personquery.pas

本系统为演示Delphi的功能而开发设计

unit personquery;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ComCtrls, ExtCtrls, Grids, DBGrids, Spin, DBCtrls, Db, DBTables,
  Mask,Messages;

type
  TFormGeRen = class(TForm)
    GroupBox1: TGroupBox;
    ButtonStatic: TButton;
    ButtonClose: TButton;
    DBGrid1: TDBGrid;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure ButtonCloseClick(Sender: TObject);
    procedure ButtonStaticClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ButtonCloseKeyPress(Sender: TObject; var Key: Char);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormGeRen: TFormGeRen;
  name:string;

implementation
uses huaxia,reperson;
{$R *.DFM}

procedure TFormGeRen.ButtonCloseClick(Sender: TObject);
begin
  Close;
end;


procedure TFormGeRen.ButtonStaticClick(Sender: TObject);
begin
     huaxiadata.queryClient.active:=false;
    {personreport.quickrep1.dataset:=huaxiadata.client_Query1;
     personreport.qrdbtext1.dataset:=huaxiadata.client_Query1;
     personreport.qrdbtext1.datafield:='client_name';
     personreport.qrdbtext2.dataset:=huaxiadata.client_Query1;
     personreport.qrdbtext2.datafield:='id_number';
     personreport.qrdbtext3.dataset:=huaxiadata.client_Query1;
     personreport.qrdbtext3.datafield:='car_card_number';
     personreport.qrdbtext4.dataset:=huaxiadata.client_Query1;
     personreport.qrdbtext4.datafield:='company';
     personreport.qrdbtext5.dataset:=huaxiadata.client_Query1;
     personreport.qrdbtext5.datafield:='note';}
   with  huaxiadata.queryClient do
     begin
      parambyname('name').asstring:=edit1.text;
     end;
     huaxiadata.QueryClient.prepare;
     huaxiadata.QueryClient.active:=true;
end;



procedure TFormGeRen.FormActivate(Sender: TObject);
begin
  edit1.text:='';
end;

procedure TFormGeRen.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   huaxiadata.QueryClient.active:=false;
end;

procedure TFormGeRen.RadioButton3Click(Sender: TObject);
begin
  label1.caption:='身份证号码';
end;

procedure TFormGeRen.RadioButton4Click(Sender: TObject);
begin
   label1.caption:='姓名';
end;

procedure TFormGeRen.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 End;
end;

procedure TFormGeRen.ButtonCloseKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 End;
end;

end.