datamodule.pas

delphi7.0+ACCESS,是以前做过的一个档案资料管理信息系统

unit DataModule;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, ADODB, RpBase, RpSystem, RpCon, RpConDS, RpDefine,
  RpRave;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    A_Class: TADOTable;
    DS_Class: TDataSource;
    DS_Tank: TDataSource;
    DS_Borrow: TDataSource;
    DS_Return: TDataSource;
    A_Tank: TADOTable;
    A_Borrow: TADOTable;
    A_Return: TADOTable;
    A_Count: TADOTable;
    DS_Count: TDataSource;
    DS_Manage: TDataSource;
    AQ_Manage: TADOQuery;
    A_TankTank_ID: TIntegerField;
    A_TankTank_Name: TWideStringField;
    A_TankTank_Memo: TWideStringField;
    A_BorrowBorrow_ID: TIntegerField;
    A_BorrowBorrow_Name: TWideStringField;
    A_BorrowBorrow_Person: TWideStringField;
    A_BorrowBorrow_Date: TDateTimeField;
    A_BorrowBorrow_Memo: TWideStringField;
    A_ReturnReturn_ID: TIntegerField;
    A_ReturnReturn_Name: TWideStringField;
    A_ReturnReturn_Person: TWideStringField;
    A_ReturnReturn_Date: TDateTimeField;
    A_ReturnReturn_Memo: TWideStringField;
    A_CountCount_ID: TWideStringField;
    A_CountCount_Value: TSmallintField;
    DataSource9: TDataSource;
    ADOQuery1: TADOQuery;
    A_User: TADOTable;
    DS_User: TDataSource;
    AQ_ManageContent_ID: TSmallintField;
    AQ_ManageContent_State: TWideStringField;
    AQ_ManageContent_Name: TWideStringField;
    AQ_ManageContent_Person: TWideStringField;
    AQ_ManageContent_Num: TSmallintField;
    AQ_ManageContent_Class: TWideStringField;
    AQ_ManageContent_Tank: TSmallintField;
    AQ_ManageContent_SPerson: TWideStringField;
    AQ_ManageContent_STime: TDateTimeField;
    AQ_ManageContent_MPerson: TWideStringField;
    AQ_ManageContent_MTime: TDateTimeField;
    AQ_ManageContent_TNum: TIntegerField;
    AQ_ManageContent_PNum: TIntegerField;
    AQ_ManageContent_ANum: TIntegerField;
    ContentRP: TRvProject;
    ContentDSC: TRvDataSetConnection;
    RvSystem1: TRvSystem;
    A_Content: TADOTable;
    DS_Content: TDataSource;
    A_ContentContent_ID: TSmallintField;
    A_ContentContent_State: TWideStringField;
    A_ContentContent_Name: TWideStringField;
    A_ContentContent_Person: TWideStringField;
    A_ContentContent_Num: TSmallintField;
    A_ContentContent_Class: TWideStringField;
    A_ContentContent_Tank: TSmallintField;
    A_ContentContent_SPerson: TWideStringField;
    A_ContentContent_STime: TDateTimeField;
    A_ContentContent_MPerson: TWideStringField;
    A_ContentContent_MTime: TDateTimeField;
    A_ContentContent_TNum: TIntegerField;
    A_ContentContent_PNum: TIntegerField;
    A_ContentContent_ANum: TIntegerField;
    A_UserUser_ID: TIntegerField;
    A_UserUser_Name: TWideStringField;
    A_UserUser_Password: TIntegerField;
    A_ClassClass_ID: TSmallintField;
    A_ClassClass_Name: TWideStringField;
    A_ClassClass_Branch: TWideStringField;
    A_ClassClass_Memo: TWideStringField;
    A_ClassArchives_SPerson: TWideStringField;
    A_ClassArchives_STime: TDateTimeField;
    A_ClassArchives_MPerson: TWideStringField;
    A_ClassArchives_MTime: TDateTimeField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.