aidcompanyinfo.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "AIDCompanyInfo.h"
#include "TelSystemDM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TAIDlgCompanyInfo *AIDlgCompanyInfo;
//---------------------------------------------------------------------------
__fastcall TAIDlgCompanyInfo::TAIDlgCompanyInfo(  String& CompanyNO, String& CompanyName,
        TDMTelSys* pDMTelSys, TComponent* Owner)
        : CompanyNO( CompanyNO), CompanyName( CompanyName), pDMTelSys( pDMTelSys), TForm(Owner)
{
    CompanyQuery->Open();
}
//---------------------------------------------------------------------------
void __fastcall TAIDlgCompanyInfo::OkBtnClick(TObject *Sender)
{
    if( CompanyQuery->IsEmpty() == false) {
        CompanyName = CompanyQuery->FieldByName( "gsname")->AsString;
        CompanyNO = CompanyQuery->FieldByName( "gscode")->AsString;
    }
}
//---------------------------------------------------------------------------