gerenchaxun.pas

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

unit GeRenChaXun;

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;
    QueryClient: TQuery;
    QueryClientid_number: TStringField;
    QueryClientclient_name: TStringField;
    QueryClientcar_type: TStringField;
    QueryClientbegin_date: TDateTimeField;
    QueryClientreal_return_date: TDateTimeField;
    QueryClientreturn_date: TDateTimeField;
    QueryClientnote: TStringField;
    DataSourceClient: TDataSource;
    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
{$R *.DFM}
Uses Login;

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


procedure TFormGeRen.ButtonStaticClick(Sender: TObject);
begin
   queryClient.active:=false;
   with  queryClient do
     begin
      parambyname('name').asstring:=edit1.text;
      parambyname('code').asstring:=Login.CodeComp;
     end;
     QueryClient.prepare;
     QueryClient.active:=true;
end;



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

procedure TFormGeRen.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   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.