xiangguan.pas

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

unit xiangguan;

interface

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

type
  TXiangguanForm = class(TForm)
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    ButtonUpdate: TButton;
    ButtonNext: TButton;
    DBEditIdnumber: TDBEdit;
    DBEditaddress: TDBEdit;
    DBEditcompany: TDBEdit;
    DBEditcomptele: TDBEdit;
    DBEditpostcode: TDBEdit;
    DBEditclienttele: TDBEdit;
    DBEditnote: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    DBEditName: TDBEdit;
    DBEditIdCode: TDBEdit;
    procedure ButtonNextClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ButtonUpdateClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XiangguanForm: TXiangguanForm;
  Code:String;

implementation

uses HuaXia, Shenfen, Xinyong,ChangIdNumber;

{$R *.DFM}

procedure TXiangguanForm.ButtonNextClick(Sender: TObject);
begin
Try
If (HuaXiaData.QueryClient.State=DsEdit) or  (HuaXiaData.QueryClient.State=DsInsert) Then
   HuaXiaData.QueryClient.Cancel;
HuaXiaData.QueryClient.Close;
XiangGuanForm.Visible:=False;
XinYongForm.ShowModal;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TXiangguanForm.FormActivate(Sender: TObject);
begin
Try
XiangguanForm.Caption:='客户相关信息(姓名:'+ShenfenForm.EditName.text+')';
DBEditIdCode.Readonly:=True;
DBEditIdCode.Color:=clBtnFace;
With HuaXiaData.QueryClient Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From lease_client_info Where id_number=:Id_code');
     End;
     RequestLive:=True;
     ParamByName('Id_code').AsString:=ShenfenForm.EditIdCode.text;
     prepare;
     Open;
     End;
If (HuaXiaData.QueryClient.RecordCount=0) And (StrLen(Pchar(ShenfenForm.EditIdCode.text))=18) Then
   Begin
      Code:=copy(ShenfenForm.EditIdCode.text,0,6)+copy(ShenfenForm.EditIdCode.text,9,9);
      With HuaXiaData.QueryClient Do
      Begin
      Close;
      Unprepare;
      RequestLive:=True;
      ParamByName('Id_code').AsString:=Code;
      prepare;
      Open;
      End;
      If HuaXiaData.QueryClient.RecordCount>0 Then
         ChangIdNumberForm.ShowModal
   End;
If HuaXiaData.QueryClient.RecordCount=0 Then
   Begin
   HuaXiaData.QueryClient.Append;
   HuaXiaData.QueryClient.FieldByName('id_number').AsString:=ShenfenForm.EditIdCode.text;
   HuaXiaData.QueryClient.FieldByName('client_name').AsString:=ShenfenForm.Editname.text;
   HuaXiaData.QueryClient.FieldByName('licence_number').AsString:=ShenfenForm.EditLicenceCode.text;
   End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;


procedure TXiangguanForm.ButtonUpdateClick(Sender: TObject);
begin
Try
If (HuaXiaData.QueryClient.State=DsEdit) or (HuaXiaData.QueryClient.State=DsInsert) Then
   HuaXiaData.QueryClient.Post;
HuaXiaData.QueryClient.Edit;
{With HuaXiaData.QueryClient Do
      Begin
      Close;
      Unprepare;
      RequestLive:=True;
      ParamByName('Id_code').AsString:=Code;
      prepare;
      Open;
      End;
{HuaXiaData.QueryClient.Close;}
DBEditIdCode.Readonly:=True;
DBEditIdCode.Color:=clBtnFace;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;





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

end;

end.