unbgdsd.pas

来自「DELPHI编写的商场收银POS机源代码」· PAS 代码 · 共 79 行

unit UNBGDSD;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TFMBGDSD = class(TDataModule)
    DSBGDS: TDataSource;
    QBGDS: TQuery;
    UBGDS: TUpdateSQL;
    QDOWN: TQuery;
    QBGDSBGENO: TStringField;
    QBGDSBGNAM: TStringField;
    QBGDSBGKIN: TStringField;
    QBGDSBGPST: TFloatField;
    QBGDSBGPVP: TFloatField;
    QBGDSBGPMM: TFloatField;
    QBGDSBGCST: TFloatField;
    QBGDSBGOTH: TFloatField;
    QBGDSBGQTS: TFloatField;
    QBGDSBGCOS: TFloatField;
    QBGDSBSENO: TStringField;
    QBGDSBGCNA: TStringField;
    QBGDSBGSUM: TStringField;
    QBGDSBGRUL: TStringField;
    QBGDSBGGAU: TStringField;
    QBGDSBGUNS: TStringField;
    QBGDSBGUNP: TStringField;
    QBGDSBGCLR: TStringField;
    QBGDSBGCLH: TStringField;
    QBGDSBGCLW: TFloatField;
    QBGDSBGUNW: TStringField;
    QBGDSBGUSE: TStringField;
    QBGDSBGCSS: TFloatField;
    QBGDSBGQTE: TFloatField;
    QBGDSBGDTC: TDateTimeField;
    QBGDSBGDAT: TDateTimeField;
    QBGDSBGMRK: TMemoField;
    QBGDSBGSIN: TStringField;
    QBGDSBGBSA: TStringField;
    QBGDSBGBSB: TStringField;
    QBGDSBGBSC: TStringField;
    QBGDSBGBIA: TFloatField;
    QBGDSBGBIB: TFloatField;
    QBGDSBGBIC: TFloatField;
    QBGDSBGQTN: TFloatField;
    procedure QBGDSAfterOpen(DataSet: TDataSet);
    procedure QBGDSAfterPost(DataSet: TDataSet);
    procedure QBGDSAfterEdit(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMBGDSD: TFMBGDSD;

implementation

uses SYSINI, UNBGDS, MAINU;

{$R *.DFM}










procedure TFMBGDSD.QBGDSAfterOpen(DataSet: TDataSet);
begin
  FMBGDS.StatusBar.Panels.Items[0].Text := '