untgoodsorderdat.pas

来自「这是一个不错的数据库管理程序」· PAS 代码 · 共 33 行

unit untGoodsOrderDat;

interface

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

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

var
  datGoodsOrder: TdatGoodsOrder;

implementation

{$R *.DFM}

end.