ddeptinfo.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "DDeptInfo.h"
#include "AIDCompanyInfo.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDlgDeptInfo *DlgDeptInfo;
//---------------------------------------------------------------------------
__fastcall TDlgDeptInfo::TDlgDeptInfo( bool bNew, String& CompanyName, Department& dept,
        TDMTelSys* pDMTelSys, TComponent* Owner)
        : CompanyName( CompanyName), dept( dept), pDMTelSys( pDMTelSys), TForm(Owner)
{
    ETDeptCode->Text = dept.GetDeptNo();
    ETDeptName->Text = dept.GetDeptName();
    ETCompanyName->Text = CompanyName;
    CompanyNo = dept.GetCompanyNo();

    if( bNew) {
        ETDeptCode->ReadOnly = false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TDlgDeptInfo::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action = caFree;
    DlgDeptInfo = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TDlgDeptInfo::BitBtn1Click(TObject *Sender)
{
    AIDlgCompanyInfo = new TAIDlgCompanyInfo( CompanyNo, CompanyName, pDMTelSys, this );
    if( AIDlgCompanyInfo->ShowModal() == mrOk) {
        ETCompanyName->Text = CompanyName;
    }
}
//---------------------------------------------------------------------------
void __fastcall TDlgDeptInfo::OkBtnClick(TObject *Sender)
{
    dept.SetDeptNo( ETDeptCode->Text);
    dept.SetDeptName( ETDeptName->Text);
    dept.SetCompanyNo( CompanyNo);
    CompanyName = ETCompanyName->Text;
}
//---------------------------------------------------------------------------