chaxun.~pas

来自「用delphi开发的户籍管理系统」· ~PAS 代码 · 共 129 行

unit chaxun;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, DBCtrls, Mask, ExtCtrls, jpeg;

type
  TForm6 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label3: TLabel;
    Button2: TButton;
    DataSource1: TDataSource;
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TAutoIncField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TIntegerField;
    Table1BDEDesigner7: TStringField;
    Table1BDEDesigner8: TDateTimeField;
    Table1BDEDesigner9: TStringField;
    Table1BDEDesigner10: TStringField;
    Table1BDEDesigner11: TStringField;
    Table1BDEDesigner12: TStringField;
    Table1BDEDesigner13: TStringField;
    Table1BDEDesigner14: TMemoField;
    Memo1: TMemo;
    Label9: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label16: TLabel;
    Label15: TLabel;
    Label14: TLabel;
    Label13: TLabel;
    Label12: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Edit9: TEdit;
    Edit8: TEdit;
    Edit7: TEdit;
    Edit6: TEdit;
    Edit5: TEdit;
    Edit4: TEdit;
    Edit3: TEdit;
    Edit2: TEdit;
    Edit12: TEdit;
    Edit11: TEdit;
    Edit10: TEdit;
    DBImage1: TDBImage;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

//退出
procedure TForm6.Button2Click(Sender: TObject);
begin
  table1.Close;
  form6.Close;
end;

//确定查询
procedure TForm6.Button1Click(Sender: TObject);
begin
 table1.Open;
 table1.IndexName:='姓名';
 table1.SetKey;
 table1.FieldByName('姓名').AsString:=edit1.Text;
 if table1.GotoKey then
 begin
 edit2.Text:=table1.FieldByName('姓名').AsString;
 edit3.Text:=table1.FieldByName('性别').AsString;
 edit4.Text:=table1.FieldByName('年龄').AsString;
 edit5.Text:=table1.FieldByName('血型').AsString;
 edit6.Text:=table1.FieldByName('民族').AsString;
 edit7.Text:=table1.FieldByName('出生年月').AsString;
 edit8.Text:=table1.FieldByName('身份证').AsString;
 edit9.Text:=table1.FieldByName('籍贯').AsString;
 edit10.Text:=table1.FieldByName('文化程度').AsString;
 edit11.Text:=table1.FieldByName('居住地点').AsString;
 edit12.Text:=table1.FieldByName('工作单位').AsString;
 memo1.Text:=table1.FieldByName('备注').AsString;
 end
 else
 showmessage('你要查找的户主不存在！');
 edit1.SetFocus;
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
 edit1.Text:='';
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
 edit6.Text:='';
 edit7.Text:='';
 edit8.Text:='';
 edit9.Text:='';
 edit10.Text:='';
 edit11.Text:='';
 edit12.Text:='';
 dbImage1.Visible:=false;
 memo1.Text:='';
 edit1.SetFocus;
end;

end.