telsystemmain.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "TelSystemMain.h"
#include "CollectTelRec.h"
#include "TelSystemDM.h"
//#include "StatTelParam.h"
#include "FCompany.h"
#include "FTeleZone.h"
#include "FStatOnTelType.h"
#include "FModifyTelRec.h"
#include "FDepartment.h"
#include "FSoleStatTel.h"
#include "FReMakeTel.h"
#include "FSetSysParam.h"
#include "FChangeTel.h"
#include "FStatSelfTel.h"
#include "FSumMoney.h"
#include "FStatDialCountry.h"
#include "FUserGroup.h"
#include "FUsrGrpRight.h"
#include "FSetGrpMember.h"
#include "FModifyUsrRight.h"
#include "DLogin.h"
#include "FSwitch.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIImagePanel"
#pragma link "SUIImagePanel"
#pragma link "SUIImagePanel"
#pragma link "SUIImagePanel"
#pragma link "SUIImagePanel"
#pragma link "SUIImagePanel"
#pragma resource "*.dfm"
TTelSystemMainForm *TelSystemMainForm;
//---------------------------------------------------------------------------
__fastcall TTelSystemMainForm::TTelSystemMainForm(TComponent* Owner)
        : TForm(Owner)
{
    String UserID, UserPassword;
    DlgLogin = new TDlgLogin( UserID, UserPassword, this);
    if( DlgLogin->ShowModal() == mrOk) {
        String PathName = ExtractFilePath( Application->ExeName) + "TelWarning.ini";
        pMessageIniFile = new TIniFile( PathName);

        pDMTelSys = new TDMTelSys( this);

        if( UserID.UpperCase() != "MANAGER") {
            VerifyUsrQuery->Close();
            VerifyUsrQuery->Parameters->ParamByName( "UserID")->Value = UserID;
            VerifyUsrQuery->Parameters->ParamByName( "Password")->Value = UserPassword;
            VerifyUsrQuery->Open();

            if( VerifyUsrQuery->IsEmpty()) {
                String Title, Message, Default;
                Title = pMessageIniFile->ReadString( "TelWarning", "Msg1", Default);
                Message = pMessageIniFile->ReadString( "TelWarning", "Msg13", Default);//赣ノめぃ