heimingdanwei.pas

来自「本系统为演示Delphi的功能而开发设计」· PAS 代码 · 共 68 行

unit HeiMingDanWei;

interface

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

type
  THeiMingDanWeiForm = class(TForm)
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    ButtonOk: TButton;
    DBEditaddress: TDBEdit;
    DBEditclienttele: TDBEdit;
    DBEditnote: TDBEdit;
    Label1: TLabel;
    DBEditName: TDBEdit;
    Label2: TLabel;
    DBEditIdCode: TDBEdit;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBNavigator1: TDBNavigator;
    DataSourceHei: TDataSource;
    Label5: TLabel;
    procedure ButtonOkClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HeiMingDanWeiForm: THeiMingDanWeiForm;
  Code:String;

implementation

uses HuaXia, Shenfen, Xinyong,ChangIdNumber;

{$R *.DFM}

procedure THeiMingDanWeiForm.ButtonOkClick(Sender: TObject);
begin
   HuaXiaData.TableHei.Close;
end;

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

end;

procedure THeiMingDanWeiForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
HuaXiaData.TableHei.Active:=False;
end;

end.