baobiaou.~cpp

来自「这是个16路采集器的上位机源码。该套程序是由C++builder开发的」· ~CPP 代码 · 共 78 行

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

#include <vcl.h>
#pragma hdrstop

#include "BaobiaoU.h"
#include "MainU.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TBaobiaoFrm *BaobiaoFrm;
//---------------------------------------------------------------------------
__fastcall TBaobiaoFrm::TBaobiaoFrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TBaobiaoFrm::QRDBTC1Print(TObject *sender,
      AnsiString &Value)
{
   Value=FormatFloat("0.000",StrToFloat(Value));
}
//---------------------------------------------------------------------------
void __fastcall TBaobiaoFrm::QRDBTC2Print(TObject *sender,
      AnsiString &Value)
{
     Value=FormatFloat("0.000",StrToFloat(Value));
}
//---------------------------------------------------------------------------
void __fastcall TBaobiaoFrm::QRDBTC3Print(TObject *sender,
      AnsiString &Value)
{
    Value=FormatFloat("0.000",StrToFloat(Value));
}
//---------------------------------------------------------------------------
void __fastcall TBaobiaoFrm::QRDBTC4Print(TObject *sender,
      AnsiString &Value)
{
    Value=FormatFloat("0.000",StrToFloat(Value));    
}
//---------------------------------------------------------------------------
void __fastcall TBaobiaoFrm::QRDBTTimePrint(TObject *sender,
      AnsiString &Value)
{
   //Value=FormatDateTime("hh:mm:ss",Value);     
}
//---------------------------------------------------------------------------
void __fastcall TBaobiaoFrm::Button2Click(TObject *Sender)
{
   QuickRep1->Preview();     
}
//---------------------------------------------------------------------------
void __fastcall TBaobiaoFrm::QRSysData2Print(TObject *sender,
      AnsiString &Value)
{
    Value="第"+Value+"页";    
}
//---------------------------------------------------------------------------
void __fastcall TBaobiaoFrm::QRSysData3Print(TObject *sender,
      AnsiString &Value)
{
   Value="打印时间"+Value;
}
//---------------------------------------------------------------------------

void __fastcall TBaobiaoFrm::ADOQuery1BeforeOpen(TDataSet *DataSet)
{
    //by fang 2008.1.11
    AnsiString ConnStr="";
    ConnStr  = " Provider=Microsoft.Jet.OLEDB.4.0;";
    ConnStr += "Data Source=" +  MainFrm->AdoDir +";";
    ConnStr += " Persist Security Info=False";
    this->ADOQuery1->ConnectionString = ConnStr;     
}
//---------------------------------------------------------------------------