univtad.pas

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

unit UNIVTAD;

interface

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

type
  TFMIVTAD = class(TDataModule)
    QINS: TQuery;
    QIVTA: TQuery;
    DSIVTA: TDataSource;
    QIVTAIACNT: TFloatField;
    QIVTAIADAT: TDateTimeField;
    QIVTAIATME: TStringField;
    QIVTABGENO: TStringField;
    UIVTA: TUpdateSQL;
    Database: TDatabase;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMIVTAD: TFMIVTAD;

implementation

{$R *.DFM}




end.