datamodule.~pas

来自「批发商品管理系统 目前我正在潜心研究」· ~PAS 代码 · 共 30 行

unit DataModule;

interface

uses
  SysUtils, Classes, ActnList, DB, ADODB;

type
  TDataForm = class(TDataModule)
    Conn: TADOConnection;
    Conn_Sys: TADOConnection;
    Inventory: TADOQuery;
    DS_INV: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataForm: TDataForm;
  ProductNo : String;
  UserCode,UserName: String;
  FlowNO: Integer;
implementation

{$R *.dfm}

end.