unit pfm_fendianxx;

interface

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

type
  Tfm_fendianxx = class(Tfm_wizard)
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBMemo1: TDBMemo;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    Memo1: TMemo;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Query1fdbm: TIntegerField;
    Query1fdset: TStringField;
    Query1fdmc: TStringField;
    Query1fdname: TStringField;
    Query1addr: TStringField;
    Query1manager: TStringField;
    Query1tel: TStringField;
    Query1remark: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure Query1BeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_fendianxx: Tfm_fendianxx;

implementation

{$R *.DFM}

procedure Tfm_fendianxx.FormCreate(Sender: TObject);
begin
  sDbTable:='t_fendianxx';
  strFcnName:=TStringlist.create;
  strFcnName.add('fdbm=分店編碼');
  strFcnName.add('fdset=分店通訊標識');
  strFcnName.add('fdmc=分店代碼');
  strFcnName.add('fdname=分店名稱');
  strFcnName.add('addr=分店地址');
  strFcnName.add('manager=分店經理');
  strFcnName.add('tel=聯系電話');
  strFcnName.add('remark=備注');                   
  inherited;

end;

procedure Tfm_fendianxx.Query1BeforePost(DataSet: TDataSet);
begin
  inherited;
  if not ((length(query1.FieldByName('fdmc').asstring)>=4) and
    (length(query1.FieldByName('fdmc').asstring)<=10)) then
    begin
        showmessage('分店代碼必須在4~10個字符之間');
        abort;
    end;
    if length(query1.FieldByName('fdset').asstring)<>4 then
    begin
        showmessage('分店標識必須是4個字符');
        abort;
    end;
end;

end.