unit pfm_khxx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  pfm_wizard, Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, ComCtrls,
  Mask, DBCtrls;

type
  Tfm_khxx = class(Tfm_wizard)
    Query1khmc: TStringField;
    Query1khyh: TStringField;
    Query1yhzh: TStringField;
    Query1zzsh: TStringField;
    Query1xfkh: TStringField;
    Query1yhl: TFloatField;
    Query1lxr: TStringField;
    Query1lxdh: TStringField;
    Query1yzbm: TStringField;
    Query1lxdz: TStringField;
    Query1cz: TStringField;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    Query1khname: TStringField;
    DBEdit1: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure Query1BeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_khxx: Tfm_khxx;


implementation

{$R *.DFM}

procedure Tfm_khxx.FormCreate(Sender: TObject);
begin
       sDbtable:='t_khxx';
       strFCnName:=TStringlist.create;
       strFcnName.add('khdm=自動編號');
       strFcnName.add('khmc=客戶代碼');
       strFcnName.add('khname=客戶名稱');
       strFcnName.add('khyh=開戶銀行');
       strFcnName.add('yhzh=銀行帳號');
       strFcnName.add('zzsh=增值稅號');
       strFcnName.add('xfkh=消費稅號');
       strFcnName.add('yhl=優惠率');
       strFcnName.add('lxr=聯系人');
       strFcnName.add('lxdh=聯系電話');
       strFcnName.add('yzbm=郵政編碼');
       strFcnName.add('lxdz=聯系地址');
       strFcnName.add('cz=傳真');
       query1.Active:=true;
       inherited;
end;

procedure Tfm_khxx.Query1BeforePost(DataSet: TDataSet);
begin
  inherited;
    if length(query1.FieldByName('khmc').asstring)=0 then
    begin
        showmessage('客戶代碼不能為空');
        abort;
        exit;
    end;
end;

end.