dswitchinfo.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "DSwitchInfo.h"
#include "AIDCompanyInfo.h"
#include "AIDDepartment.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDlgSwitchInfo *DlgSwitchInfo;
//---------------------------------------------------------------------------
__fastcall TDlgSwitchInfo::TDlgSwitchInfo( bool bNew, String& TelCode, String& UsrName, String& DeptNo, String& DeptName,
        String& CompanyNO, String& CompanyName, TDMTelSys* pDMTelSys, TComponent* Owner)
        : TelCode( TelCode), UsrName( UsrName), DeptNo( DeptNo), DeptName( DeptName), CompanyNO( CompanyNO), CompanyName( CompanyName),
        pDMTelSys( pDMTelSys),   TForm(Owner)
{
    if( bNew){
        ETPhone->ReadOnly = false;
    }
    ETPhone->Text = TelCode;
    ETUsrName->Text = UsrName;
    ETDept->Text = DeptName;
    ETCompanyName->Text = CompanyName;
}
//---------------------------------------------------------------------------
void __fastcall TDlgSwitchInfo::BitBtn1Click(TObject *Sender)
{
    AIDlgDepartment = new TAIDlgDepartment( DeptNo, DeptName, pDMTelSys, this );
    if( AIDlgDepartment->ShowModal() == mrOk) {
        ETDept->Text = DeptName;
    }
}
//---------------------------------------------------------------------------
void __fastcall TDlgSwitchInfo::BitBtn2Click(TObject *Sender)
{
    AIDlgCompanyInfo = new TAIDlgCompanyInfo( CompanyNO, CompanyName, pDMTelSys, this);
    if( AIDlgCompanyInfo->ShowModal() == mrOk) {
        ETCompanyName->Text = CompanyName;
    }
}
//---------------------------------------------------------------------------
void __fastcall TDlgSwitchInfo::OkBtnClick(TObject *Sender)
{
    TelCode = ETPhone->Text;
    UsrName = ETUsrName->Text;
}
//---------------------------------------------------------------------------