fcompany.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "FCompany.h"
#include "CompanyInfo.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmCompany *FrmCompany;
//---------------------------------------------------------------------------
__fastcall TFrmCompany::TFrmCompany(  TIniFile *pMessageIniFile, TDMTelSys* pDMTelSys,
        TComponent* Owner)
        : pMsgIniFile( pMessageIniFile), pDMTelSys( pDMTelSys), TForm(Owner)
{
    CompanyQuery->Open();

    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;
    if( pDMTelSys->UserRightQuery->Locate( "FormID", Variant( "FrmChangeTel"), Options)) {
        if( pDMTelSys->UserRightQuery->FieldByName( "Write")->AsString == "No") {
            ModifyToolButton->Enabled = false;
            SaveToolButton->Enabled = false;
            GiveUpToolButton->Enabled = false;
            NewToolButton->Enabled = false;
            DeleteToolButton->Enabled = false;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmCompany::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action = caFree;
    FrmCompany = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TFrmCompany::ExitToolButtonClick(TObject *Sender)
{
    Close();        
}
//---------------------------------------------------------------------------
void __fastcall TFrmCompany::NewToolButtonClick(TObject *Sender)
{
    String Code, Name;

    DlgCompanyInfo = new TDlgCompanyInfo( true, Code, Name, pMsgIniFile, this);
    if( DlgCompanyInfo->ShowModal() == mrOk) {
        Company company( pDMTelSys->TelSysADOConnection);;
        //company.SetConnect( pDMTelSys->TelSysADOConnection);
        company.SetCode( Code);
        company.SetName( Name);

        NewCompanyVec.push_back( company);
        CompanyQuery->Append();
        CompanyQuery->FieldByName( "gsCode")->AsString = Code;
        CompanyQuery->FieldByName( "gsname")->AsString = Name;
        CompanyQuery->Post();
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmCompany::RefreshToolButtonClick(TObject *Sender)
{
    CompanyQuery->Close();
    CompanyQuery->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFrmCompany::ModifyToolButtonClick(TObject *Sender)
{
    String Code, Name;
    Code = CompanyQuery->FieldByName( "gscode")->AsString;
    Name = CompanyQuery->FieldByName( "gsname")->AsString;

    DlgCompanyInfo = new TDlgCompanyInfo( false, Code, Name, pMsgIniFile, this);
    if( DlgCompanyInfo->ShowModal() == mrOk) {
        Company company( pDMTelSys->TelSysADOConnection);;
        company.SetCode( Code);
        company.SetName( Name);

        ModifyCompanyVec.push_back( company);
        CompanyQuery->Edit();
        CompanyQuery->FieldByName( "gsname")->AsString = Name;
        CompanyQuery->Post();
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmCompany::DeleteToolButtonClick(TObject *Sender)
{
    String Default;
    String Title = pMsgIniFile->ReadString( "TelWarning", "Msg1", Default);
    String Message = pMsgIniFile->ReadString( "TelWarning", "Msg4", Default);//