新建 文本文档.txt

来自「学生档案管理系统 这是个用delphi+sql编写的学生档案管理系统」· 文本 代码 · 共 47 行

procedure TForm1.Button1Click(Sender: TObject);
var
  sqlstr:string;
begin
   sqlstr:='select * from student where (1=1)';
   if edit1.Text <>'' then
   sqlstr:=sqlstr+'and (name='''+edit1.text+''')';
   if edit2.text<>'' then
   sqlstr:=sqlstr+'and (id='''+edit2.text+''')';
   if combobox1.Text<>'' then
   sqlstr:=sqlstr+'and (xb='''+combobox1.text+''')' ;
   if combobox2.Text <>'' then
   sqlstr:=sqlstr+'and (dty='''+combobox2.text+''')' ;
   if  edit3.text<>'' then
   sqlstr:=sqlstr+'and (yx='''+edit3.text+''')';
   if edit4.text<>'' then
   sqlstr:=sqlstr+'and (zy='''+edit4.text+''')';
   if edit5.text<>'' then
   sqlstr:=sqlstr+'and (jg='''+edit5.text+''')';
   if edit6.text<>'' then
   sqlstr:=sqlstr+'and (tel='''+edit6.text+''')';
   ADOQuery1.Close ;
   ADOQuery1.SQL.Clear ;
   ADOQuery1.SQL.Add(sqlstr);
   ADOQuery1.Open ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   ADOQuery1.Close ;
   ADOQuery1.SQL.Clear ;
   ADOQuery1.SQL.Add('select * from student');
   ADOQuery1.SQL.Add('where name like'''+edit7.text+'%''');
   ADOQuery1.Open ;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin

end;

end.