datamodule.h

档案管理系统源码

//---------------------------------------------------------------------------

#ifndef DataModuleH
#define DataModuleH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <IniFiles.hpp>      //ini配置文件库文件
//---------------------------------------------------------------------------
class TDM : public TDataModule
{
__published:	// IDE-managed Components
        TADOConnection *ADOConnection;
        TADOQuery *AQ_Back_Restore;
        TADOTable *AT_Class;
        TDataSource *DS_Class;
        TIntegerField *AT_ClassClass_ID;
        TStringField *AT_ClassClass_Name;
        TStringField *AT_ClassClass_Branch;
        TStringField *AT_ClassClass_Memo;
        TStringField *AT_ClassArchives_SPerson;
        TDateTimeField *AT_ClassArchives_SDate;
        TStringField *AT_ClassArchives_MPerson;
        TDateTimeField *AT_ClassArchives_MDate;
        TADOTable *AT_Tank;
        TDataSource *DS_Tank;
        TIntegerField *AT_TankTank_ID;
        TStringField *AT_TankTank_Memo;
        TStringField *AT_TankTank_Name;
        TADOQuery *AQ_Manage;
        TDataSource *DS_Manage;
        TIntegerField *AQ_ManageContent_ID;
        TStringField *AQ_ManageContent_Name;
        TStringField *AQ_ManageContent_Person;
        TStringField *AQ_ManageContent_Class;
        TStringField *AQ_ManageContent_SPerson;
        TDateTimeField *AQ_ManageContent_STime;
        TStringField *AQ_ManageContent_MPerson;
        TDateTimeField *AQ_ManageContent_MTime;
        TIntegerField *AQ_ManageContent_TNum;
        TIntegerField *AQ_ManageContent_PNum;
        TIntegerField *AQ_ManageContent_ANum;
        TIntegerField *AQ_ManageContent_Num;
        TStringField *AQ_ManageContent_State;
        TIntegerField *AQ_ManageContent_Tank;
        TADOTable *AT_Borrow;
        TDataSource *DS_Borrow;
        TADOTable *AT_Return;
        TDataSource *DS_Return;
        TIntegerField *AT_BorrowBorrow_ID;
        TStringField *AT_BorrowBorrow_Name;
        TStringField *AT_BorrowBorrow_Person;
        TDateTimeField *AT_BorrowBorrow_Date;
        TStringField *AT_BorrowBorrow_Memo;
        TIntegerField *AT_ReturnReturn_ID;
        TStringField *AT_ReturnReturn_Name;
        TStringField *AT_ReturnReturn_Person;
        TDateTimeField *AT_ReturnReturn_Date;
        TStringField *AT_ReturnReturn_Memo;
        TADOTable *AT_Count;
        TDataSource *DS_Count;
        TStringField *AT_CountCount_Name;
        TIntegerField *AT_CountCount_Value;
        void __fastcall DS_ClassStateChange(TObject *Sender);
        void __fastcall DS_ClassDataChange(TObject *Sender, TField *Field);
        void __fastcall DS_ManageStateChange(TObject *Sender);
        void __fastcall DS_TankStateChange(TObject *Sender);
        void __fastcall DS_TankDataChange(TObject *Sender, TField *Field);
        void __fastcall DS_ManageDataChange(TObject *Sender,
          TField *Field);
        void __fastcall DataModuleCreate(TObject *Sender);
        void __fastcall DS_BorrowStateChange(TObject *Sender);
        void __fastcall DS_BorrowDataChange(TObject *Sender,
          TField *Field);
        void __fastcall DS_ReturnStateChange(TObject *Sender);
        void __fastcall DS_ReturnDataChange(TObject *Sender,
          TField *Field);
private:	// User declarations
public:		// User declarations
        __fastcall TDM(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDM *DM;
//---------------------------------------------------------------------------
#endif