fmodifytelrec.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "FModifyTelRec.h"
#include "DModifyTelInfo.h"
#include "DFindBillParam.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmModifyTelRec *FrmModifyTelRec;
//---------------------------------------------------------------------------
__fastcall TFrmModifyTelRec::TFrmModifyTelRec( TIniFile *pMessageIniFile,
         TDMTelSys* pDMTelSys, TComponent* Owner)
        : pMsgIniFile( pMessageIniFile), pDMTelSys( pDMTelSys), TForm(Owner)
{
    pDMTelSys->G02BillProc->Close();
    pDMTelSys->G02BillProc->Parameters->ParamByName( "@a1")->Value = "";
    pDMTelSys->G02BillProc->Parameters->ParamByName( "@a2")->Value = "";
    pDMTelSys->G02BillProc->Parameters->ParamByName( "@a3")->Value = "";
    pDMTelSys->G02BillProc->Parameters->ParamByName( "@Sday")->Value = IncMonth( Date(), -1);
    pDMTelSys->G02BillProc->Parameters->ParamByName( "@Eday")->Value = Date();
    pDMTelSys->G02BillProc->Parameters->ParamByName( "@sqltj")->Value = 0;
    pDMTelSys->G02BillProc->Open();

    TBCodeChk->Open();

    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;
    if( pDMTelSys->UserRightQuery->Locate( "FormID", Variant( "FrmModifyTelRec"), Options)) {
        if( pDMTelSys->UserRightQuery->FieldByName( "Write")->AsString == "No") {
            ModifyToolButton->Enabled = false;
            SaveToolButton->Enabled = false;
            GiveUpToolButton->Enabled = false;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmModifyTelRec::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action = caFree;
    FrmModifyTelRec = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TFrmModifyTelRec::ModifyToolButtonClick(TObject *Sender)
{
    String  StrSwitch = pDMTelSys->G02BillProc->FieldByName( "Phone")->AsString;
    DlgModifyTelInfo = new TDlgModifyTelInfo( StrSwitch, this);

    if( DlgModifyTelInfo->ShowModal() == mrOk) {
        pDMTelSys->G02BillProc->Edit();
        pDMTelSys->G02BillProc->FieldByName( "Phone")->AsString = StrSwitch;
        pDMTelSys->G02BillProc->FieldByName( "Department_number")->AsString
            = pDMTelSys->G02BillProc->FieldByName( "BMBH")->AsString;
        pDMTelSys->G02BillProc->FieldByName( "GsCode")->AsString
            = pDMTelSys->G02BillProc->FieldByName( "GSBH")->AsString;
        pDMTelSys->G02BillProc->Post();
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmModifyTelRec::SaveToolButtonClick(TObject *Sender)
{
    try {
        pDMTelSys->TelSysADOConnection->BeginTrans();
        pDMTelSys->G02BillProc->UpdateBatch( arAll);
        pDMTelSys->TelSysADOConnection->CommitTrans();
    }
    catch(...) {
        pDMTelSys->TelSysADOConnection->RollbackTrans();

        String Default;
        String Title = pMsgIniFile->ReadString( "TelWarning", "msg1", Default);
        String Message = pMsgIniFile->ReadString( "TelWarning", "msg2", Default);//