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 <Math.hpp>      //数学函数库文件
//---------------------------------------------------------------------------
class TDM : public TDataModule
{
__published:	// IDE-managed Components
        TADOConnection *ADOConnection;
        TADOQuery *AQ_Atten;
        TADOQuery *AQ_Back_Restore;
        TADOTable *AT_Employee;
        TDataSource *DS_Employee;
        TDataSource *DS_Atten;
        TADOQuery *AQ_Employee;
        TIntegerField *AT_EmployeeEmployee_ID;
        TStringField *AT_EmployeeEmployee_Name;
        TIntegerField *AQ_AttenAtten_ID;
        TIntegerField *AQ_AttenAtten_PID;
        TStringField *AQ_AttenAtten_In_Out;
        TDateTimeField *AQ_AttenAtten_Time;
        TStringField *AQ_AttenPID_Name;
        TADOQuery *AQ_OTime;
        TDataSource *DS_OTime;
        TIntegerField *AQ_OTimeOTime_PID;
        TDateTimeField *AQ_OTimeOTime_Date;
        TADOQuery *AQ_Evec;
        TDataSource *DS_Evec;
        TIntegerField *AQ_EvecEvection_ID;
        TIntegerField *AQ_EvecEvection_PID;
        TDateTimeField *AQ_EvecEvection_TStart;
        TDateTimeField *AQ_EvecEvection_TEnd;
        TStringField *AQ_EvecEvection_Text;
        TStringField *AQ_EvecPID_Name;
        TADOQuery *AQ_Leave;
        TDataSource *DS_Leave;
        TIntegerField *AQ_LeaveLeave_ID;
        TIntegerField *AQ_LeaveLeave_PID;
        TDateTimeField *AQ_LeaveLeave_DStart;
        TDateTimeField *AQ_LeaveLeave_DEnd;
        TStringField *AQ_LeaveLeave_Text;
        TStringField *AQ_LeavePID_Name;
        TADOQuery *AQ_Stat;
        TDataSource *DS_Stat;
        TIntegerField *AQ_StatStat_ID;
        TIntegerField *AQ_StatStat_PID;
        TDateTimeField *AQ_StatStat_YMonth;
        TIntegerField *AQ_StatStat_DLeave;
        TIntegerField *AQ_StatStat_DEvection;
        TIntegerField *AQ_StatStat_TLate;
        TIntegerField *AQ_StatStat_TEarly;
        TIntegerField *AQ_StatStat_TAbsent;
        TStringField *AQ_StatPID_Name;
        TADOQuery *AQ_Salary;
        TDataSource *DS_Salary;
        TIntegerField *AQ_SalarySalary_ID;
        TIntegerField *AQ_SalarySalary_PID;
        TDateTimeField *AQ_SalarySalary_Month;
        TFloatField *AQ_SalarySalary_PWork;
        TFloatField *AQ_SalarySalary_POTime;
        TFloatField *AQ_SalarySalary_Bonus;
        TFloatField *AQ_SalarySalary_DAbsent;
        TFloatField *AQ_SalarySalary_DInsure;
        TFloatField *AQ_SalarySalary_PTotal;
        TStringField *AQ_SalaryPID_Name;
        TADOTable *AT_Type;
        TIntegerField *AT_TypeType_ID;
        TStringField *AT_TypeType_Name;
        TDataSource *DS_SOther;
        TADOTable *AT_Count;
        TDataSource *DS_Count;
        TDataSource *DS_WSet;
        TStringField *AT_CountCount_Name;
        TIntegerField *AT_CountCount_Value;
        TIntegerField *AQ_EmployeeEmployee_ID;
        TStringField *AQ_EmployeeEmployee_Name;
        TIntegerField *AQ_EmployeeEmployee_Branch;
        TADOQuery *AQ_WSet;
        TIntegerField *AQ_WSetWSet_ID;
        TDateTimeField *AQ_WSetWSet_Date;
        TFloatField *AQ_SalarySalary_Welfare;
        TFloatField *AQ_SalarySalary_Allow;
        TIntegerField *AQ_StatStat_HWork;
        TIntegerField *AQ_StatStat_HOvertime;
        TIntegerField *AQ_OTimeOTime_Time;
        TIntegerField *AQ_OTimeOTime_ID;
        TIntegerField *AQ_LeaveLeave_Time;
        TADOQuery *AQ_SOther;
        TIntegerField *AQ_SOtherSOther_ID;
        TIntegerField *AQ_SOtherSOther_PID;
        TDateTimeField *AQ_SOtherSOther_YMonth;
        TIntegerField *AQ_SOtherSOther_Type;
        TFloatField *AQ_SOtherSOther_Money;
        TStringField *AQ_SOtherSOther_Text;
        TStringField *AQ_SOtherPID_Name;
        TStringField *AQ_SOtherType_Name;
        TFloatField *AQ_SalarySalary_LateEarly;
        TFloatField *AQ_SalarySalary_PEvect;
        TStringField *AQ_OTimePID_Name;
        TIntegerField *AQ_EvecEvection_Time;
        void __fastcall DataModuleCreate(TObject *Sender);
        void __fastcall AQ_EvecCalcFields(TDataSet *DataSet);
        void __fastcall AQ_LeaveCalcFields(TDataSet *DataSet);
private:	// User declarations
public:		// User declarations
        __fastcall TDM(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDM *DM;
//---------------------------------------------------------------------------
#endif