pfm_gzxx.pas

POS收银系统

unit pfm_gzxx;

interface

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

type
  Tfm_gzxx = class(Tfm_wizard)
    Query1gzbm: TIntegerField;
    Query1gzmc: TStringField;
    Query1fdmc: TStringField;
    Query1fzy: TStringField;
    Query1remark: TStringField;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBMemo1: TDBMemo;
    Query1gzname: TStringField;
    DBEdit5: TDBEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_gzxx: Tfm_gzxx;

implementation

{$R *.DFM}

procedure Tfm_gzxx.FormCreate(Sender: TObject);
begin
  sDbTable:='t_gzxx';
  strFCnName:=TStringList.Create;
  strFCnname.Add('gzbm=自动编号');
  strFCnname.Add('gzmc=柜组代码');
  strFCnname.Add('gzname=柜组名称');
  strFCnname.Add('fdmc=所属分店');
  strFcnName.add('fzy=负责人');
  strFCnname.Add('remark=备注');
  inherited;

end;

end.