procedure TForm3.BitBtn1Click(Sender: TObject); var mysql:string;
begin if (combobox1.text=') or (combobox4.text=' )or (edit1.text=' )then application.messagebox('请选择或添写完整!','注意',mb_ok+mb_iconwarning);
if combobox1.text=' then begin combobox1.SetFocus; end else if combobox4.text=' then begin combobox4.SetFocus; end else if edit1.text=' then begin edit1.SetFocus; end else begin form1.adoquery1.close; form1.adoquery1.Prepared; form1.adoquery1.open; mysql:='select * from 成员信息 where '; form1.adoquery1.Close; form1.adoquery1.SQL.Clear; if combobox4.text<>'类似于' then form1.ADOQuery1.SQL.Add(mysql+combobox1.Text+combobox4.text+''+edit1.text+'') else form1.ADOQuery1.SQL.Add(mysql+combobox1.text+' like '+''+'%'+edit1.text+'%'+'') ; form1.ADOQuery1.Prepared; form1.adoquery1.Open;
if form1.ADOQuery1.RecordCount>0 then form1.statusbar1.panels[0].text:=' 查询结果如上' else begin application.messagebox('找不到相关的记录!','信息',mb_ok+mb_iconwarning); form1.adoquery1.close; form1.adoquery1.sql.clear; form1.adoquery1.sql.add('select * from 成员信息'); form1.ADOQuery1. Prepared; form1.adoquery1.Open; end; form3.close; end;
procedure TForm3.BitBtn1Click(Sender: TObject); var mysql:string; begin if combobox1.text=' then begin application.messagebox('请选择或添写完整!','注意',mb_ok+mb_iconwarning); exit; combobox1.SetFocus; end;
if combobox4.text=' then begin application.messagebox('请选择或添写完整!','注意',mb_ok+mb_iconwarning); Exit; combobox4.SetFocus; end;
if edit1.text=' then begin application.messagebox('请选择或添写完整!','注意',mb_ok+mb_iconwarning); Exit; edit1.SetFocus; end
form1.adoquery1.close; mysql:='select * from 成员信息 where '; form1.adoquery1.Close; form1.adoquery1.SQL.Clear; if combobox4.text<>'类似于' then mysql :=mysql + '' + trim(combobox1.Text) + trim(edit1.text) + '' //form1.ADOQuery1.SQL.Add(mysql+combobox1.Text+combobox4.text+''+edit1.text+'') else mysql :=mysql + '' + trim(combobox1.Text) + ''like ' + '%' + '' + trim(edit1.Text) + '%''; //form1.ADOQuery1.SQL.Add(mysql+combobox1.text+' like '+''+'%'+edit1.text+'%'+'') ; //form1.ADOQuery1.Prepared; form1.ADOQuery1.SQL.Add(mysql); form1.adoquery1.Open;
if form1.ADOQuery1.RecordCount>0 then form1.statusbar1.panels[0].text:=' 查询结果如上' else begin application.messagebox('找不到相关的记录!','信息',mb_ok+mb_iconwarning); form1.adoquery1.close; form1.adoquery1.sql.clear; form1.adoquery1.sql.add('select * from 成员信息'); form1.ADOQuery1.Prepared; form1.adoquery1.Open; end;