geren.pas

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

unit GeRen;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Db, Dbgrids;

type
  TGeRenForm = class(TForm)
    Label2: TLabel;
    Label10: TLabel;
    Label3: TLabel;
    ButtonOk: TButton;
    ButtonCancel: TButton;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    Panel1: TPanel;
    Label1: TLabel;
    EditIdNumber: TEdit;
    DBMemo1: TDBMemo;
    Label6: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    procedure ButtonCancelClick(Sender: TObject);
    procedure ButtonOkClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure EditIdNumberExit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GeRenForm: TGeRenForm;

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

procedure TGeRenForm.ButtonCancelClick(Sender: TObject);
begin
Close;
end;

procedure TGeRenForm.ButtonOkClick(Sender: TObject);
begin
Try
If (huaxiaData.QueryGeRen.State=DsInsert) or (huaxiaData.QueryGeRen.State=DsEdit) Then
    huaxiaData.QueryGeRen.post;
ActiveControl:=EditIdNumber;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGeRenForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 If Not(ActiveControl Is TDbgrid) Then
 Begin { 不是在TDbgrid控件内}
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
  End Else
  If (ActiveControl Is TDbgrid) Then{是在 TDbgrid 控件内}
  Begin
    With TDbgrid(ActiveControl) Do
    If Selectedindex<(FieldCount-1) Then
    Selectedindex:=Selectedindex+1{ 移动到下一字段}
    Else Selectedindex:=0;
   End;
end;

procedure TGeRenForm.EditIdNumberExit(Sender: TObject);
begin
Try
If (length(EditIdNumber.Text)=15) Or (length(EditIdNumber.Text)=18) Then
Begin
With HuaXiaData.QueryGeRen Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
        Clear;
        Add('Select * From lease_client_info ');
        Add('Where id_number=:idnumber');
     End;
     RequestLive:=True;
     ParamByName('idnumber').AsString:=GeREnForm.EditIdNumber.text;
     prepare;
     Open;
     End;
If HuaXiaData.QueryGeRen.RecordCount=0 Then
   Begin
   HuaXiaData.QueryGeRen.Append;
   HuaXiaData.QueryGeRen.Edit;
   HuaXiaData.QueryGeRen.FieldByName('id_number').AsString:=GeRenForm.EditIdNumber.text;
   End
Else
   HuaXiaData.QueryGeRen.Edit;
End
Else
   Begin
   ErrorForm.ShowModal;
   ActiveControl:=ButtonCancel;
   End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGeRenForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Try
HuaXiaData.QueryGeRen.Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TGeRenForm.FormActivate(Sender: TObject);
begin
EditIdNumber.Text:='';
end;

end.