pfm_ckxx.pas

POS收银系统

unit pfm_ckxx;

interface

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

type
  Tfm_ckxx = class(Tfm_wizard)
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    DBMemo1: TDBMemo;
    Memo1: TMemo;
    Query1ckdm: TIntegerField;
    Query1ckmc: TStringField;
    Query1ckname: TStringField;
    Query1ckmj: TIntegerField;
    Query1ckdz: TStringField;
    Query1lxdh: TStringField;
    Query1glydm: TStringField;
    Query1remark: TStringField;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    DBEdit6: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure Query1BeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_ckxx: Tfm_ckxx;

implementation

{$R *.DFM}

procedure Tfm_ckxx.FormCreate(Sender: TObject);
begin
  
  sDbTable:='t_ckxx';
  strFCnName:=TStringlist.create;
  strFcnName.add('ckdm=自动编号');
  strFcnName.add('ckmc=仓库代码');
  strFcnName.add('ckname=仓库名称');
  strFcnName.add('ckmj=仓库面积');
  strFcnName.add('ckdz=仓库地址');
  strFcnName.add('lxdh=联系电话');
  strFcnName.add('glydm=管理员代码');
  strFcnName.add('remark=备注');
  inherited;

end;

procedure Tfm_ckxx.Query1BeforePost(DataSet: TDataSet);
begin
  inherited;
  if not ((length(query1.FieldByName('ckmc').asstring)>=4) and
    (length(query1.FieldByName('ckmc').asstring)<=10)) then
    begin
        showmessage('仓库代码必须在4~10个字符之间');
        abort;
    end;
end;

end.