pfm_spxx.pas

POS收银系统

unit pfm_spxx;

interface

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

type
  Tfm_spxx = class(Tfm_wizard)
    Label20: TLabel;
    DBEdit8: TDBEdit;
    Label21: TLabel;
    DBEdit16: TDBEdit;
    Label22: TLabel;
    DBEdit20: TDBEdit;
    Label23: TLabel;
    DBEdit21: TDBEdit;
    Label24: TLabel;
    DBEdit22: TDBEdit;
    Label25: TLabel;
    DBEdit23: TDBEdit;
    Label26: TLabel;
    DBEdit24: TDBEdit;
    Label27: TLabel;
    DBEdit25: TDBEdit;
    Label28: TLabel;
    DBEdit26: TDBEdit;
    Label29: TLabel;
    DBEdit27: TDBEdit;
    Label30: TLabel;
    DBEdit28: TDBEdit;
    Label32: TLabel;
    DBEdit30: TDBEdit;
    Label33: TLabel;
    DBEdit31: TDBEdit;
    Label34: TLabel;
    DBEdit32: TDBEdit;
    Label35: TLabel;
    DBEdit33: TDBEdit;
    Label36: TLabel;
    DBEdit34: TDBEdit;
    Label37: TLabel;
    DBEdit35: TDBEdit;
    Label38: TLabel;
    DBEdit36: TDBEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_spxx: Tfm_spxx;

implementation

{$R *.DFM}

procedure Tfm_spxx.FormCreate(Sender: TObject);
begin
 
  sDbTable:='t_spxx';
  strFCnName:=TStringlist.create;
  strFCnname.Add('spbm=商品代码');
  strFCnname.Add('sptxm=商品条形码');
  strFCnname.Add('spmc=商品名称');
  strFCnname.Add('ggxh=规格型号');
  strFCnname.Add('dengji=等级');
  strFCnname.Add('zhuangtai=商品状态');
  strFCnname.Add('baozhuangdw=包装单位');
  strFCnname.Add('baozhuangsl=包装数量');
  strFCnname.Add('hh=货号');
  strFCnname.Add('gysmc=供应商代码');
  strFCnname.Add('cd=产地');
  strFCnname.Add('wsjj=无税进价');
  strFCnname.Add('jhsl=进价税率');
  strFCnname.Add('wsdj=无税单价');
  strFCnname.Add('xssl=销售税率');
  strFCnname.Add('xsfs=销售方式');
  strFCnname.Add('splb=商品类别');
  strFCnname.Add('yhl=优惠率');






  inherited;
end;

end.