unit1.h

电费管理程序 VC源码-系统控制 这个源码是一个系统控制的电费管理系统 功能很强大

//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Db.hpp>
#include <DBTables.hpp>
//---------------------------------------------------------------------------
class TDModule : public TDataModule
{
__published:	// IDE-managed Components
    TDataSource *DataSource1;
    TTable *Table1;
    TStringField *Table1Danwei;
    TFloatField *Table1QimaA;
    TFloatField *Table1QimaB;
    TFloatField *Table1QimaC;
    TFloatField *Table1ZhimaA;
    TFloatField *Table1ZhimaB;
    TFloatField *Table1ZhimaC;
    TFloatField *Table1MaCha;
    TFloatField *Table1BeiLv;
    TFloatField *Table1YongDianLiang;
    TFloatField *Table1TieSun;
    TFloatField *Table1TongSun;
    TFloatField *Table1GaoSun;
    TFloatField *Table1GongDianLiang;
    TFloatField *Table1SDianLiang;
    TFloatField *Table1SDanJia;
    TFloatField *Table1SJinE;
    TFloatField *Table1FDianLiang;
    TFloatField *Table1FDanJia;
    TFloatField *Table1FJinE;
    TFloatField *Table1NDianLiang;
    TFloatField *Table1NDanJia;
    TFloatField *Table1NJinE;
    TFloatField *Table1DianFeiZongE;
    TFloatField *Table1GuanLiFei;
    TFloatField *Table1HeJi;
    TFloatField *Table1FSDianliang;
    TFloatField *Table1FSDanJia;
    TFloatField *Table1FSJinE;
    TDataSource *DataSource2;
    TTable *Table2;
    TDataSource *DataSource3;
    TTable *Table3;
    TFloatField *Table2P1;
    TFloatField *Table2P2;
    TFloatField *Table2P3;
    TFloatField *Table2P4;
    TFloatField *Table2P5;
    TFloatField *Table2P6;
    TFloatField *Table2P7;
    TFloatField *Table2P8;
    TFloatField *Table2P9;
    TFloatField *Table2Pa;
    TFloatField *Table2Pb;
    TDataSource *DataSource4;
    TTable *Table4;
    TStringField *Table4BIANHAO;
    TStringField *Table4XINGMING;
    TFloatField *Table4QIMA1;
    TFloatField *Table4ZHIMA1;
    TFloatField *Table4BUJIA;
    TFloatField *Table4YDL;
    TFloatField *Table4DANJIA;
    TFloatField *Table4DIANFEI;
    TFloatField *Table4BIANBI;
    TFloatField *Table4YUE;
    TFloatField *Table4QIMA2;
    TFloatField *Table4ZHIMA2;
    TStringField *Table4Y14;
    TFloatField *Table4XIANSUN;
    TFloatField *Table4TIESUN;
    TStringField *Table4HUHAO;
    TStringField *Table4RQ;
    TStringField *Table4RMB;
    TStringField *Table4DANWEI;
    TFloatField *Table4JSY;
    TFloatField *Table4ZXY;
    TFloatField *Table4SHISHOU;
    TFloatField *Table4QIMA;
    TFloatField *Table4ZHIMA;
    TBooleanField *Table4GZF;
    TBooleanField *Table4YDF;
    TSmallintField *Table4FENLEI;
    TFloatField *Table1BianSunHeJi;
    TFloatField *Table1ShiChaoDianLiang;
    TFloatField *Table1DiYaXianSun;
    TBooleanField *Table1GaiZaoFou;
    TFloatField *Table2Gp1;
    TFloatField *Table2Gp2;
    TFloatField *Table2Gp3;
    TFloatField *Table2Gp4;
    TFloatField *Table4QIMA3;
    TFloatField *Table4ZHIMA3;
    TFloatField *Table4BL;
    TStringField *Table3User;
    TStringField *Table3Level;
    TStringField *Table3Pass;
    TStringField *Table3Station;
    TStringField *Table3Service;
    TStringField *Table3ChaoBiao;
    TStringField *Table3ShenHe;
    TFloatField *Table4MACHA;
    void __fastcall Table1CalcFields(TDataSet *DataSet);
    void __fastcall Table4CalcFields(TDataSet *DataSet);

private:	// User declarations
public:		// User declarations



    void ReadPara();
    float CalMacha(float f1,float f2);
    float ParaTs,ParaGs,ParaSd,ParaSDanJia,ParaFd,ParaFDanJia,ParaNd,ParaNDanJia,ParaFSd,ParaFSDanJia,ParaGl;
      float    ysjia,yfsjia,yfpjia,ynjia;






    __fastcall TDModule(TComponent* Owner);




};
//---------------------------------------------------------------------------
extern PACKAGE TDModule *DModule;
//---------------------------------------------------------------------------
#endif