stattelparam.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "StatTelParam.h"
#include "TelDetail.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDlgStatTelParam *DlgStatTelParam;
//---------------------------------------------------------------------------
__fastcall TDlgStatTelParam::TDlgStatTelParam(  TIniFile *pMessageIniFile,
        TDMTelSys *pDMTelSys, TComponent* Owner)
        : pMsgIniFile( pMessageIniFile), pDMTelSys( pDMTelSys), TForm(Owner)
{
    if( pDMTelSys->PhoneQuery->Active == false) {
        pDMTelSys->PhoneQuery->Open();
    }

    if( pDMTelSys->DeptQuery->Active == false) {
        pDMTelSys->DeptQuery->Open();
    }

    if( pDMTelSys->FirmQuery->Active == false) {
        pDMTelSys->FirmQuery->Open();
    }

    CBPhone->Items->Add( "*");
    pDMTelSys->PhoneQuery->First();
    while( !pDMTelSys->PhoneQuery->Eof) {
        CBPhone->Items->Add( pDMTelSys->PhoneQuery->FieldByName( "TeleCode")->AsString);
        pDMTelSys->PhoneQuery->Next();
    }

    CBDept->Items->Add( "*");
    pDMTelSys->DeptQuery->First();
    while( !pDMTelSys->DeptQuery->Eof) {
        CBDept->Items->Add( pDMTelSys->DeptQuery->FieldByName( "number")->AsString
            + ":" + pDMTelSys->DeptQuery->FieldByName( "name")->AsString);

        pDMTelSys->DeptQuery->Next();
    }

    CBFirm->Items->Add( "*");
    pDMTelSys->FirmQuery->First();
    while( !pDMTelSys->FirmQuery->Eof) {
        CBFirm->Items->Add( pDMTelSys->FirmQuery->FieldByName( "gscode")->AsString
            + ":" + pDMTelSys->FirmQuery->FieldByName( "gsname")->AsString);

        pDMTelSys->FirmQuery->Next();
    }
}
//---------------------------------------------------------------------------
void __fastcall TDlgStatTelParam::OKBtnClick(TObject *Sender)
{
    pDMTelSys->CDSV01BillProc->Close();
    pDMTelSys->GSNameQuery->Close();
    pDMTelSys->GSNameQuery->Open();

    pDMTelSys->V01BillProc->Close();
    pDMTelSys->V01BillProc->Parameters->ParamByName( "@Sday")->Value = DPStartDate->Date;
    pDMTelSys->V01BillProc->Parameters->ParamByName( "@Eday")->Value = DPEndDate->Date;
    pDMTelSys->V01BillProc->Parameters->ParamByName( "@Secvar")->Value
        = pDMTelSys->GSNameQuery->FieldByName( "Get_Sec")->AsString;
    pDMTelSys->V01BillProc->Parameters->ParamByName( "@dialnumber")->Value
        = ETDialNumber->Text.TrimLeft();

    if( RadioGroup1->ItemIndex == 0) {
        //