dfindbillparam.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "DFindBillParam.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDlgFindBillParam *DlgFindBillParam;

//---------------------------------------------------------------------------
__fastcall TDlgFindBillParam::TDlgFindBillParam( TDMTelSys* pDMTelSys, TComponent* Owner)
        : pDMTelSys( pDMTelSys), TForm(Owner)
{
    DPBeginDate->Date = Date();
    DPEndDate->Date = Date();
}
//---------------------------------------------------------------------------
void __fastcall TDlgFindBillParam::OkBtnClick(TObject *Sender)
{
    pDMTelSys->G02BillProc->Close();
    pDMTelSys->G02BillProc->Parameters->ParamByName( "@a1")->Value = ETPhone->Text.TrimLeft();
    pDMTelSys->G02BillProc->Parameters->ParamByName( "@a2")->Value = ETUsedPhone->Text.TrimLeft();
    pDMTelSys->G02BillProc->Parameters->ParamByName( "@a3")->Value = ETDialNumber->Text.TrimLeft();
    pDMTelSys->G02BillProc->Parameters->ParamByName( "@Sday")->Value = DPBeginDate->Date;
    pDMTelSys->G02BillProc->Parameters->ParamByName( "@Eday")->Value = DPEndDate->Date;
    pDMTelSys->G02BillProc->Parameters->ParamByName( "@sqltj")->Value = 1;
    pDMTelSys->G02BillProc->Open();
}
//---------------------------------------------------------------------------