unit1.pas

来自「软件简介：（贸易管理系统Delphi源代码（有开发文档） 采用access+de」· PAS 代码 · 共 60 行

unit Unit1;

interface

uses
  SysUtils, Classes, DBXpress, FMTBcd, DB, DBClient, Provider, SqlExpr,
  ADODB, ImgList, Controls;

type
  TDataModule1 = class(TDataModule)
    ADOConnection1: TADOConnection;
    DaScreIn: TDataSource;
    ImageList1: TImageList;
    ADOQryIn: TADOQuery;
    ADOQryInDSDesigner: TWideStringField;
    ADOQryInDSDesigner2: TWideStringField;
    ADOQryInDSDesigner3: TWideStringField;
    ADOQryInDSDesigner4: TWideStringField;
    ADOQryInDSDesigner5: TWideStringField;
    ADOQryInDSDesigner6: TWideStringField;
    ADOQryInDSDesigner7: TWideStringField;
    ADOQryInDSDesigner8: TIntegerField;
    ADOQryInDSDesigner9: TBCDField;
    ADOQryInDSDesigner10: TBCDField;
    ADOQryInDSDesigner11: TDateTimeField;
    ADOQryInDSDesigner12: TMemoField;
    ADOQrySale: TADOQuery;
    DaScreSale: TDataSource;
    ADOQrySaleDSDesigner: TWideStringField;
    ADOQrySaleDSDesigner2: TWideStringField;
    ADOQrySaleDSDesigner3: TWideStringField;
    ADOQrySaleDSDesigner4: TWideStringField;
    ADOQrySaleDSDesigner5: TWideStringField;
    ADOQrySaleDSDesigner6: TWideStringField;
    ADOQrySaleDSDesigner7: TWideStringField;
    ADOQrySaleDSDesigner8: TIntegerField;
    ADOQrySaleDSDesigner9: TWideStringField;
    ADOQrySaleDSDesigner10: TDateTimeField;
    ADOQrySaleDSDesigner11: TIntegerField;
    ADOQrySaleDSDesigner12: TMemoField;
    ADOQryPriSch: TADOQuery;
    ADOQryCusSch: TADOQuery;
    ADOQryMerSch: TADOQuery;
    DaScrePriSch: TDataSource;
    DaScreCusSch: TDataSource;
    DaScreMerSch: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation
 {$R *.dfm}

end.