unitdm.~pas

这是一个很好的超市管理系统

unit UnitDM;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    conn: TADOConnection;
    ADOQXPXX1: TADOQuery;
    dsADOQXPXX1: TDataSource;
    dsADOTXPXX: TDataSource;
    dsADOTXPJH: TDataSource;
    ADOQTEMP1: TADOQuery;
    dsADOQTEMP1: TDataSource;
    ADOTXPXX: TADOTable;
    ADOTXPJH: TADOTable;
    ADOQTEMP2: TADOQuery;
    dsADOQTEMP2: TDataSource;
    ADOQTEMP3: TADOQuery;
    ADOQXPXS1: TADOQuery;
    dsXPXS1: TDataSource;
    ADOQXPXS: TADOQuery;
    ADOQTEMP4: TADOQuery;
    dsADOQTEMP3: TDataSource;
    dsADOQTEMP4: TDataSource;
    ADOTGHX: TADOTable;
    dsGHX: TDataSource;
    ADOQDH: TADOQuery;
    dsDH: TDataSource;
    ADOQJHTH: TADOQuery;
    dsJHTH: TDataSource;
    ADOQCHTH: TADOQuery;
    dsCHTH: TDataSource;
    ADOQTEMP5: TADOQuery;
    dsADOQTEMP5: TDataSource;
    ADOTDHR: TADOTable;
    dsDHR: TDataSource;
    ADOQTEMP6: TADOQuery;
    dsTEMP6: TDataSource;
    ADOTCZY: TADOTable;
    dsCZY: TDataSource;
    ADOSPUpdateStock: TADOStoredProc;
    ADOSPDeleteStock: TADOStoredProc;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.