untgoodsorderdat.pas

来自「数据库实习个人作品」· PAS 代码 · 共 33 行

unit untGoodsOrderDat;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TdatGoodsOrder = class(TDataModule)
    conGoodsOrder: TADOConnection;
    qryCustomer: TADOQuery;
    qryOrders: TADOQuery;
    qryOrderItem: TADOQuery;
    qryGoods: TADOQuery;
    qryInStock: TADOQuery;
    qryOutStock: TADOQuery;
    qryStock: TADOQuery;
    qryPurchase: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  datGoodsOrder: TdatGoodsOrder;

implementation

{$R *.dfm}

end.