unitdm.pas

小型仓库管理系统

unit UnitDm;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TfrDbm = class(TDataModule)
    ADOConnection1: TADOConnection;
    dsetC: TADODataSet;
    dsC: TDataSource;
    qryT: TADOQuery;
    dsT1: TDataSource;
    dsF: TDataSource;
    ComF: TADOCommand;
    dsetF: TADODataSet;
    ComG1: TADOCommand;
    ComG2: TADOCommand;
    ComM1: TADOCommand;
    ComM2: TADOCommand;
    qrys1: TADOQuery;
    qrys2: TADOQuery;
    dss1: TDataSource;
    dss2: TDataSource;
    dsets: TADODataSet;
    Coms: TADOCommand;
    dsN: TDataSource;
    qryN: TADOQuery;
    ComCT: TADOCommand;
    dsetCT: TADODataSet;
    dsCT: TDataSource;
    dsetG: TADODataSet;
    dsetM: TADODataSet;
    ComWZ: TADOCommand;
    dsetWZ: TADODataSet;
    dsWZ: TDataSource;
    ComZ: TADOCommand;
    dsetZ: TADODataSet;
    dsZ: TDataSource;
    dsetT: TADODataSet;
    dsT2: TDataSource;
    ComGY1: TADOCommand;
    dsetGY: TADODataSet;
    dsGY: TDataSource;
    ComGY2: TADOCommand;
    qryBF: TADOQuery;
    qryF: TADOQuery;
    qryG: TADOQuery;
    qryM: TADOQuery;
    ComCK: TADOCommand;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frDbm: TfrDbm;

implementation

{$R *.dfm}

end.