fstatonteltype.cpp

来自「一套BCB６开发的电话管理系统」· C++ 代码 · 共 40 行

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

#include <vcl.h>
#pragma hdrstop

#include "FStatOnTelType.h"
#include "TelSystemDM.h"
#include "DFindTel.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmStatOnTelType *FrmStatOnTelType;
//---------------------------------------------------------------------------
__fastcall TFrmStatOnTelType::TFrmStatOnTelType( TDMTelSys* pDMTelSys, TComponent* Owner)
        : pDMTelSys( pDMTelSys), TForm(Owner)
{
    if( pDMTelSys->GSNameQuery->Active == false){
        pDMTelSys->GSNameQuery->Open();
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmStatOnTelType::FindToolButtonClick(TObject *Sender)
{
    int TypeIndex;
    TDateTime BeginDate, EndDate;
    DlgFindTel = new TDlgFindTel( TypeIndex, BeginDate, EndDate, this);

    if( DlgFindTel->ShowModal() == mrOk) {
        V02BillProc->Close();
        V02BillProc->Parameters->ParamByName( "@Sday")->Value = BeginDate;
        V02BillProc->Parameters->ParamByName( "@Eday")->Value = EndDate;
        V02BillProc->Parameters->ParamByName( "@Secvar")->Value
            = pDMTelSys->GSNameQuery->FieldByName( "Get_Sec")->AsString;
        V02BillProc->Parameters->ParamByName( "@sqltj")->Value = TypeIndex + 1;

        V02BillProc->Open();
    }
}
//---------------------------------------------------------------------------