使用ADO,多线程访问ACCESS数据库的开发。[3]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 wxjh 的 blog

              mark:=fadoquery.fieldbyname('workmark').asstring; //将工号写入mark临时变量

              fadoquery.close; //关闭第一个数据集
   //===========进入第二个表进行查找===============================================
    with fadoquserinfor do
       begin
            
              if active =true then close;   //关闭数据集
              sql.clear;

              sql.add('select * from worker where workmark='+'"'+mark+'"'); //该部分可能要求具体化内容
              prepared :=true;
              open;
              //连接第二个线程时这里出现问题

            if (fieldbyname('phone').asstring='')or (fieldbyname('name').asstring='')or (fieldbyname('skilllevel').asstring='')then
               begin
             showmessage('nil');
                  fnmmsg.disconnect;
                  fnmmsg.host:= fipaddressinfo;
                  fnmmsg.port :=6711;
                  fnmmsg.fromname :='b';
                  fnmmsg.postit(defeat);  //发送错误消息
                  close;
               end

           else    //如果找到了电话号码
               begin

                   strlist.add(fieldbyname('name').asstring);  //写入姓名
                   skillinfor:=fieldbyname('skillgroup').asstring;
                   strlist.add(fieldbyname('skillgroup').asstring+'业务处理='+fieldbyname('skilllevel').asstring); //上海市业务处理=1
                   strlist.add(fieldbyname('phone').asstring);  //写入电话号码
                 
                   retureinformation :=strlist.strings[0]{工号}+'#'+strlist.strings[1]{姓名}+'#'+strlist.strings[2]+'#'{技能信息}+strlist.strings[3]{电话号码};
                   //edit;                      //烦会给客户端的信息
                  // fieldbyname('islogon').asstring:='1'; //登录成功,写入成功标志

本文关键:ADO
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top