data.pas

来自「蛮好的系统大家一起使用看看!~呵呵!关于图书仓库管理系统的!」· PAS 代码 · 共 58 行

unit data;

interface

uses
  SysUtils, Classes, DBTables, DB, ADODB;

type
  Tdm = class(TDataModule)
    bookQuery: TADOQuery;
    inQuery: TADOQuery;
    outQuery: TADOQuery;
    empQuery: TADOQuery;
    shopQuery: TADOQuery;
    mainQuery: TADOQuery;
    keyQuery: TADOQuery;
    bookSource: TDataSource;
    inSource: TDataSource;
    outSource: TDataSource;
    empSource: TDataSource;
    shopSource: TDataSource;
    mainSource: TDataSource;
    keyTable: TTable;
    ADOConnection1: TADOConnection;
    keySource: TDataSource;
    emptable: TTable;
    shopTable: TTable;
    guestQuery: TADOQuery;
    guestTable: TTable;
    inTable: TTable;
    outTable: TTable;
    bookTable: TTable;
    guestSource: TDataSource;
    bookSource1: TDataSource;
    helpDataSource: TDataSource;
    helpTable: TTable;
    guestSource1: TDataSource;
    shopSource1: TDataSource;
    empSource1: TDataSource;
    inSource1: TDataSource;
    DataSource1: TDataSource;
    Query1: TADOQuery;
    Query2: TQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

end.