unit3.pas

1

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, Grids, DBGrids, StdCtrls, XPMenu,implemntation,
  Buttons;

type
  TForm3 = class(TForm)
    XPMenu1: TXPMenu;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    memo2: TMemo;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit18: TEdit;
    memo1: TMemo;
    DBGrid1: TDBGrid;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
uses unit6,unit7;


{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
  sqlstr:string;
begin
sqlstr:=' where (1=1) ';
if edit2.Text <>'' then sqlstr:=sqlstr+' and (学号 like'''+'%'+edit2.text+'%'')';
if edit1.Text <>'' then sqlstr:=sqlstr+'and (姓名 like'''+'%'+edit1.text+'%'')';
if combobox1.text <>'' then sqlstr:=sqlstr+'and (性别 like'''+'%'+combobox1.text+'%'')';
if edit14.Text <>'' then sqlstr:=sqlstr+'and (出生年月日 like'''+'%'+edit14.text+'%'')';
if edit15.Text <>'' then sqlstr:=sqlstr+'and (身份证号码 like'''+'%'+edit15.text+'%'')';
if combobox2.text <>'' then sqlstr:=sqlstr+'and (政治面貌 like'''+'%'+combobox1.text+'%'')';
if edit4.Text <>'' then sqlstr:=sqlstr+'and (籍贯 like'''+'%'+edit4.text+'%'')';
if edit16.Text <>'' then sqlstr:=sqlstr+'and (民族 like'''+'%'+edit16.text+'%'')';
if memo2.text <>'' then sqlstr:=sqlstr+'and (家庭地址 like'''+'%'+memo2.text+'%'')';
if edit18.Text <>'' then sqlstr:=sqlstr+'and (家庭邮编 like'''+'%'+edit18.text+'%'')';
if edit3.Text <>'' then sqlstr:=sqlstr+'and (所属分院 like'''+'%'+edit3.text+'%'')';
if edit7.Text <>'' then sqlstr:=sqlstr+'and (学历 like'''+'%'+edit7.text+'%'')';
if edit8.Text <>'' then sqlstr:=sqlstr+'and (入学时间 like'''+'%'+edit8.text+'%'')';
if edit5.Text <>'' then sqlstr:=sqlstr+'and (专业 like'''+'%'+edit5.text+'%'')';
if edit9.Text <>'' then sqlstr:=sqlstr+'and (学制 like'''+'%'+edit9.text+'%'')';
if edit6.Text <>'' then sqlstr:=sqlstr+'and (电话号码 like'''+'%'+edit6.text+'%'')';
if edit10.Text <>'' then sqlstr:=sqlstr+'and (兴趣爱好 like'''+'%'+edit10.text+'%'')';
if edit11.Text <>'' then sqlstr:=sqlstr+'and (扩展项1 like'''+'%'+edit11.text+'%'')';
if edit12.Text <>'' then sqlstr:=sqlstr+'and (扩展项2 like'''+'%'+edit12.text+'%'')';
if edit13.Text <>'' then sqlstr:=sqlstr+'and (扩展项3 like'''+'%'+edit13.text+'%'')';
if memo1.Text <>'' then sqlstr:=sqlstr+'and (备注 like'''+'%'+memo1.text+'%'')';

   dm.ADOQuery1.Close ;
   dm.ADOQuery1.SQL.Clear ;
   dm.ADOQuery1.SQL.Add('select * from student');
   dm.ADOQuery1.SQL.Add(sqlstr);
   dm.ADOQuery1.Open ;
 statusbar1.Panels[0].Text:='总共找到 '+inttostr(dm.ADOQuery1.RecordCount)+' 条记录';


end;


procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cafree;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
form7:=tform7.create(application);
form7.QuickRep1.Preview;
end;

procedure TForm3.FormCreate(Sender: TObject);
 var
 mypath:string;
begin
self.height:=peg_height;
self.Width:=peg_width;

dm.ADOConnection1.Close;
MyPath:=ExtractFilePath(ParamStr(0));
  dm.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
  Product_Dir+data_path+';Persist Security Info=False';
 try
  dm.ADOConnection1.Open;

  except
   application.MessageBox('找不到数据库，引起该问题的原因是数据库可能被删除或改名.','无法打开数据库',0);
   application.Terminate;
  end;
end;

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_ESCAPE then self.close;
end;

procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
state:='组合条件搜索';

end;

end.