unbsupd.pas

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

unit UNBSUPD;

interface

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

type
  TFMBSUPD = class(TDataModule)
    DSBSUP: TDataSource;
    QBSUP: TQuery;
    UBSUP: TUpdateSQL;
    QBSUPBSENO: TStringField;
    QBSUPBSNAM: TStringField;
    QBSUPBSCNA: TStringField;
    QBSUPBSSCN: TStringField;
    QBSUPBSMN1: TStringField;
    QBSUPBSMN2: TStringField;
    QBSUPBSMN3: TStringField;
    QBSUPBSTL1: TStringField;
    QBSUPBSTL2: TStringField;
    QBSUPBSTL9: TStringField;
    QBSUPBSFX1: TStringField;
    QBSUPBSFX2: TStringField;
    QBSUPBSAD1: TStringField;
    QBSUPBSAD2: TStringField;
    QBSUPBSAD9: TStringField;
    QBSUPBSZP1: TStringField;
    QBSUPBSZP2: TStringField;
    QBSUPBSZP9: TStringField;
    QBSUPBSID1: TStringField;
    QBSUPBSDIS: TFloatField;
    QBSUPBSTP1: TFloatField;
    QBSUPBSTP2: TFloatField;
    QBSUPBSTP5: TFloatField;
    QBSUPBSTP6: TFloatField;
    QBSUPBSTPN: TStringField;
    QBSUPBSTTP: TStringField;
    QBSUPBSTTD: TFloatField;
    QBSUPBSTEG: TStringField;
    QBSUPBSTBK: TStringField;
    QBSUPBSALT: TFloatField;
    QBSUPBSTDT: TDateTimeField;
    QBSUPBSDAT: TDateTimeField;
    QBSUPBSMRK: TMemoField;
    procedure QBSUPAfterOpen(DataSet: TDataSet);
    procedure QBSUPAfterPost(DataSet: TDataSet);
    procedure QBSUPAfterEdit(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMBSUPD: TFMBSUPD;

implementation

uses UNBSUP;

{$R *.DFM}




procedure TFMBSUPD.QBSUPAfterOpen(DataSet: TDataSet);
begin
FMBSUP.StatusBar.Panels.Items[0].Text := '