collecttelrec.cpp

一套BCB６开发的电话管理系统

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

#include <vcl.h>
#pragma hdrstop

#include <algorithm>
#include <DateUtils.hpp>
#include <SysUtils.hpp>
#include "CollectTelRec.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmCollectTelRec *FrmCollectTelRec;
//---------------------------------------------------------------------------
__fastcall TFrmCollectTelRec::TFrmCollectTelRec( TIniFile *pMessageIniFile,
        TDMTelSys *pDMTelSys, TComponent* Owner)
        : pMsgIniFile( pMessageIniFile), pDMTelSys( pDMTelSys), TForm(Owner)
{
    MaxCheckInLen = 0;
    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;
    if( pDMTelSys->UserRightQuery->Locate( "FormID", Variant( "FrmCollectTelRec"), Options)) {
        if( pDMTelSys->UserRightQuery->FieldByName( "Write")->AsString == "No") {
            CollectToolButton->Enabled = false;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmCollectTelRec::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    NewBillQuery->Close();
    DeleteBillTempQuery->Close();
    DeleteBillTempQuery->ExecSQL();
    Action = caFree;
    FrmCollectTelRec = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TFrmCollectTelRec::CollectToolButtonClick(TObject *Sender)
{
    pDMTelSys->GSNameQuery->Close();
    pDMTelSys->GSNameQuery->Open();

    //代刚琌