telsystemdm.h

来自「一套BCB６开发的电话管理系统」· C头文件 代码 · 共 101 行

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

#ifndef TelSystemDMH
#define TelSystemDMH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBClient.hpp>
#include <Provider.hpp>
//---------------------------------------------------------------------------
class TDMTelSys : public TDataModule
{
__published:	// IDE-managed Components
        TADOConnection *TelSysADOConnection;
        TADOQuery *GSNameQuery;
        TADOStoredProc *NowProc;
        TADOStoredProc *V01BillProc;
        TDataSetProvider *DSPV01BillProc;
        TClientDataSet *CDSV01BillProc;
        TADOQuery *FirmQuery;
        TADOQuery *DeptQuery;
        TADOQuery *PhoneQuery;
        TADOTable *A_TelType;
        TStringField *A_TelTypeType;
        TStringField *A_TelTypeLocal_code;
        TWideStringField *A_TelTypeAREA;
        TWideStringField *A_TelTypeLOCATION;
        TStringField *A_TelTypeMEMO;
        TFloatField *A_TelTypePRICE;
        TSmallintField *A_TelTypeINTERVAL;
        TStringField *A_TelTypeTypeCode;
        TADOTable *A_Company;
        TWideStringField *A_CompanyGSCODE;
        TWideStringField *A_CompanyGSNAME;
        TADOTable *TF04H;
        TADOTable *TF04;
        TWideStringField *TF04Telecode;
        TWideStringField *TF04Department_number;
        TWideStringField *TF04Username;
        TWideStringField *TF04Type;
        TFloatField *TF04Rent;
        TWideStringField *TF04Sqcode;
        TFloatField *TF04Deposit;
        TWideStringField *TF04Bill_type;
        TWideStringField *TF04Have_service;
        TStringField *TF04GsName;
        TStringField *TF04BM;
        TWideStringField *TF04GsCode;
        TADOTable *A_GetLocal;
        TADOTable *HKRate;
        TWideStringField *HKRateLocate;
        TFloatField *HKRateRate;
        TSmallintField *HKRateSecond;
        TWideStringField *HKRateCountry;
        TDateTimeField *HKRateCreate_date;
        TADOStoredProc *G02BillProc;
        TStringField *G02BillProcphone;
        TStringField *G02BillProcUsed_phone;
        TStringField *G02BillProcDialnumber;
        TStringField *G02BillProcTrunk;
        TDateTimeField *G02BillProcStartdate;
        TDateTimeField *G02BillProcStarttime;
        TStringField *G02BillProcDuration;
        TBCDField *G02BillProcRate;
        TBCDField *G02BillProcDhf;
        TBCDField *G02BillProcService;
        TBCDField *G02BillProcCharge;
        TStringField *G02BillProcLocal_code;
        TSmallintField *G02BillProcType;
        TStringField *G02BillProcGNO;
        TStringField *G02BillProcGRN;
        TIntegerField *G02BillProcTel_use;
        TStringField *G02BillProcUname;
        TStringField *G02BillProcBm;
        TWideStringField *G02BillProcTypeCode;
        TStringField *G02BillProcMemo;
        TWideStringField *G02BillProcGsCode;
        TWideStringField *G02BillProcDepartment_number;
        TWideStringField *G02BillProcUsername;
        TStringField *G02BillProcGSBH;
        TStringField *G02BillProcBMBH;
        TClientDataSet *V_DataSet;
        TADOCommand *CMDInserRight;
        TADOCommand *CMDDeleteRight;
        TADOQuery *ADOQuery1;
        TADOQuery *UserRightQuery;
        void __fastcall G02BillProcCalcFields(TDataSet *DataSet);
private:	// User declarations
public:		// User declarations
       String GetMemo( String ChkType, String ChkLocal, String ChkCall );
        __fastcall TDMTelSys(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDMTelSys *DMTelSys;
//---------------------------------------------------------------------------
#endif