pfm_bmxx.pas

POS收银系统

unit pfm_bmxx;

interface

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

type
  Tfm_bmxx = class(Tfm_wizard)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBMemo1: TDBMemo;
    Query1bmdm: TIntegerField;
    Query1bmmc: TStringField;
    Query1bmfzr: TStringField;
    Query1lxdh: TStringField;
    Query1remark: TStringField;
    Query1bmname: TStringField;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_bmxx: Tfm_bmxx;

implementation

{$R *.DFM}

procedure Tfm_bmxx.FormCreate(Sender: TObject);
var
i:integer;
begin
  sDbTable:='t_bmxx';
  strFCnName:=TStringlist.create;
  strFCnName.add('bmdm=自动编号');
  strFCnName.add('bmmc=部门代码');
  strFCnName.add('bmname=部门名称');
  strFcnName.add('bmfzr=负责人');
  strFcnName.add('lxdh=联系电话');
  strFcnName.add('remark=备注');


  inherited;
  query1.Active:=true;
end;

end.