用Delphi7.0开发的学生宿舍管理系统-论文

查询模块中的核心代码如下：
var
sql:string;
begin
if (edit1.Text<>'')or(edit2.Text<>'')or(edit3.Text<>'') then
   begin
      if (edit1.Text<>'')and(edit2.Text<>'')and(edit3.Text<>'') then
       begin
        datamodule3.ADOQuery9.close;
        datamodule3.ADOQuery9.SQL.Clear;
        sql:='select * from xsxxb where xh='+edit1.text;
        sql:=sql+' and xm='''+edit2.Text+'''';
        sql:=sql+' and bj='''+edit3.Text+'''';
        datamodule3.ADOQuery9.SQL.Add(sql);
        datamodule3.ADOQuery9.Open;
       end
      else
       begin
        if edit1.Text='' then
         begin
           if edit2.Text='' then
            begin
             datamodule3.ADOQuery9.close;
             datamodule3.ADOQuery9.SQL.Clear;
             datamodule3.ADOQuery9.SQL.Add('select * from xsxxb where bj='''+edit3.Text+'''');
             datamodule3.ADOQuery9.Open;
            end
           else
            begin
             if edit3.Text='' then
              begin
                datamodule3.ADOQuery9.close;
                datamodule3.ADOQuery9.SQL.Clear;
                datamodule3.ADOQuery9.SQL.Add('select * from xsxxb where xm='''+edit2.Text+'''');
                datamodule3.ADOQuery9.Open;
              end
             else
              begin
                datamodule3.ADOQuery9.close;
                datamodule3.ADOQuery9.SQL.Clear;
                sql:='select * from xsxxb where xm='''+edit2.text+'''';
                sql:=sql+' and bj='''+edit3.text+'''';
                datamodule3.ADOQuery9.SQL.Add(sql);
                datamodule3.ADOQuery9.Open;
              end;
            end;
         end
        else
         begin
          if edit2.text='' then
           begin
            if edit3.text='' then
             begin
              datamodule3.ADOQuery9.close;
              datamodule3.ADOQuery9.SQL.Clear;
              datamodule3.ADOQuery9.SQL.Add('select * from xsxxb where xh='+edit1.Text);
              datamodule3.ADOQuery9.Open;
             end转贴于 酷文网-论文下载中心 http://www.coolwen.net


共12页: 上一页 [1] [2] [3] [4] [5] [6] 7 [8] [9] [10] [11] [12] 下一页

网摘收藏:

上一篇：基于Delphi的试卷生成系统的开发与实现
下一篇：中国如何定位品牌

 -> 在百度中搜索：用Delphi7.0开发的学生宿舍管理系统-论文
 -> 在Google中搜索：用Delphi7.0开发的学生宿舍管理系统-论文