changidnumber.pas

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

unit ChangIdNumber;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TChangIdNumberForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    EditOldIdNumber: TEdit;
    EditNewIdNumber: TEdit;
    ButtonOk: TButton;
    ButtonCancel: TButton;
    Label3: TLabel;
    Label4: TLabel;
    procedure ButtonOkClick(Sender: TObject);
    procedure ButtonCancelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChangIdNumberForm: TChangIdNumberForm;

implementation

uses LoginData, HuaXia, Shenfen;

{$R *.DFM}

procedure TChangIdNumberForm.ButtonOkClick(Sender: TObject);
begin
Try
HuaXiaData.QueryClient.Edit;
HuaXiaData.QueryClient.FieldByName('id_number').AsString:=ShenfenForm.EditIdCode.Text;
HuaXiaData.QueryClient.Post;
With HuaXiaData.QueryXinyong Do
     Begin
     Close;
     Unprepare;
     RequestLive:=False;
     With Sql Do
     Begin
     Clear;
     Add('Update Lease_car_info Set Id_number=:IdNewNumber Where Id_Number=:IdOldNumber');
     End;
     ParamByName('IdNewNumber').AsString:=EditNewIdNumber.Text;
     ParamByName('IdOldNumber').AsString:=EditOldIdNumber.Text;
     ExecSql;
     Post;
     End;
Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
End;

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


procedure TChangIdNumberForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin { 不是在TDbgrid控件内}
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
 End;
end;


procedure TChangIdNumberForm.FormActivate(Sender: TObject);
begin
Try
EditOldIdNumber.Text:=HuaXiaData.QueryClient.FieldByName('id_number').AsString;
EditNewIdNumber.Text:=ShenfenForm.EditIdCode.Text;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

end.