udm.pas

飞思科技的书不错

unit Udm;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    ConnBookstore: TADOConnection;
    TblCategory: TADOTable;
    TblProvider: TADOTable;
    TblBook: TADOTable;
    TblSalesList: TADOTable;
    QueryStat: TADOQuery;
    DsProvider: TDataSource;
    DsCategory: TDataSource;
    DsBook: TDataSource;
    DsSalesList: TDataSource;
    DsStat: TDataSource;
    TblProviderID: TAutoIncField;
    TblProviderName: TStringField;
    TblCategoryID: TAutoIncField;
    TblCategoryName: TStringField;
    TblBookISBN: TStringField;
    TblBookName: TStringField;
    TblBookProviderID: TIntegerField;
    TblBookPrice: TBCDField;
    TblBookAmountLeft: TIntegerField;
    TblBookCategoryID: TIntegerField;
    TblBookProviderName: TStringField;
    TblBookCategoryName: TStringField;
    QueryStatISBN: TStringField;
    QueryStatBookName: TStringField;
    QueryStatAmount: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.