lookup.pas

档案管理系统,档案管理系统vb+access源代码+可执行文件+论文+开题报告+外文翻译..

unit LookUp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, ImgList, StdCtrls, Buttons, ExtCtrls, Grids, DBGridEh,
  DB, DBTables, DBActns;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    Query1: TQuery;
    DBGridEh1: TDBGridEh;
    GroupBox1: TGroupBox;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    Label5: TLabel;
    Label7: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    ImageList1: TImageList;
    ActionList1: TActionList;
    Action1: TAction;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    procedure BitBtn7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
    Queryed:Boolean;
    procedure DispAllRecords;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BitBtn7Click(Sender: TObject);
begin
  self.Close;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  i:Integer;
  t:string;
begin
  Queryed:=False;
  DispAllRecords;
  //ComboBox1.Clear;
  //for i:=0 to Query1.FieldCount-1 do
  //Items.Add(Format('档案编号[%s] 姓名[%s]',[Fields[0].AsString,Fields[1].AsString]));
  //ComboBox1.Items.Add(Query1.Fields[i].FieldName);
  ComboBox1.ItemIndex:=0;
  ComboBox2.ItemIndex:=0;
  Edit1.Text:='';
  label6.Caption:=Datetostr(date());
  label5.Caption:='当前记录：'+IntToStr(DataSource1.DataSet.RecNo);
  label7.Caption:='记录总数：'+IntToStr(DataSource1.DataSet.RecordCount);
end;

procedure TForm2.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  label5.Caption:='当前记录：'+IntToStr(DataSource1.DataSet.RecNo);
  label7.Caption:='记录总数：'+IntToStr(DataSource1.DataSet.RecordCount);
end;

procedure TForm2.DispAllRecords;
begin
  with Query1 do
  begin
  SQL.Clear;
  SQL.Add('Select DangAnBianHao,XingMin,XingBie,NianLing,ChuShenNianYue,ZhengZhiMianMao,MinZu,XueLi,SuoSuBuMen,GangWeiZhongLei,GangWeiJiBie,ZhiWei,ZhiCheng,QianYueHeTongHao From DangAnBiao');
  Prepare;
  open;
  end;
  Queryed:=False;
  Edit1.Text:='';
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
var
  sign:string;
  fstr:string;
  t:string;
begin
  if Edit1.Text='' then
  begin
    DispAllRecords;
    Queryed:=False;
    Exit;
  end;
  case ComboBox1.ItemIndex of
    0: t:='DangAnBianHao';
    1: t:='XingMin';
    2: t:='XingBie';
    3: t:='NianLing';
    4: t:='ChuShenNianYue';
    5: t:='ZhengZhiMianMao';
    6: t:='MinZu';
    7: t:='XueLi';
    8: t:='SuoSuBuMen';
    9: t:='GangWeiZhongLei';
    10: t:='GangWeiJiBie';
    11: t:='ZhiWei';
    12: t:='ZhiCheng';
    13: t:='QianYueHeTongHao';
  end;
  case ComboBox2.ItemIndex of
    0: sign:='=';
    1: sign:='>';
    2: sign:='<';
    3: sign:=' like ';
    4: sign:='<>';
  end;
  case ComboBox1.ItemIndex of
   //0,3,13:fstr:='select DangAnBianHao,XingMin,XingBie,NianLing,ChuShenNianYue,ZhengZhiMianMao,MinZu,XueLi,SuoSuBuMen,GangWeiZhongLei,GangWeiJiBie,ZhiWei,ZhiCheng,QianYueHeTongHao from DangAnBiao where(%s%s%s)';
   4:fstr:='select DangAnBianHao,XingMin,XingBie,NianLing,ChuShenNianYue,ZhengZhiMianMao,MinZu,XueLi,SuoSuBuMen,GangWeiZhongLei,GangWeiJiBie,ZhiWei,ZhiCheng,QianYueHeTongHao from DangAnBiao where(%s%s#%s#)';
  else fstr:='select DangAnBianHao,XingMin,XingBie,NianLing,ChuShenNianYue,ZhengZhiMianMao,MinZu,XueLi,SuoSuBuMen,GangWeiZhongLei,GangWeiJiBie,ZhiWei,ZhiCheng,QianYueHeTongHao from DangAnBiao where(%s%s''%s'')';
  end;
  with Query1 do
  begin                 
    SQL.Clear;
    SQL.Add(Format(fstr,[t,sign,Edit1.Text,t]));
    Prepare;
    Open;
  end;
  Queryed:=True;
end;

procedure TForm2.BitBtn6Click(Sender: TObject);
begin
  DispAllRecords;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  Query1.First;
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
begin
  Query1.Prior;
end;

procedure TForm2.BitBtn4Click(Sender: TObject);
begin
  query1.Next;
end;

procedure TForm2.BitBtn5Click(Sender: TObject);
begin
  query1.Last;
end;

end.