mainfrm.cpp

移动通信网中摩托罗拉BSC话务统计分析软件,实现原始话统文件导入SQL SERVER2000数据库,极大方便后期分析.做摩托无线维护的同志必备.

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

#include <vcl.h>
#pragma hdrstop

#include "IniFiles.hpp"
#include "StrUtils.hpp"

#include "MainFrm.h"
#include "var.h"
#include "NPM_OverviewSystemBSS.cpp"
#include "NPM_OverviewCell.cpp"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormCreate(TObject *Sender)
{
    TIniFile *ini;
    GetCurrentDirectory(150, SysDir);
    SendMessage(MainForm->Handle, WM_SYSCOMMAND, SC_MAXIMIZE,0);
    ini = new TIniFile(ChangeFileExt( Application->ExeName, ".INI" ));

    DBOpened = false;
    try
    {
        Database1->AliasName = ini->ReadString("SQLServer","AliasName","ydb_sts");
        Database1->DatabaseName = ini->ReadString("SQLServer","DatabaseName","sts");
        Database1->LoginPrompt = false;
        Database1->Params->Clear();
        Database1->Params->Add("User Name=" + ini->ReadString("SQLServer","UserName","sa"));
        Database1->Params->Add("Password=" + ini->ReadString("SQLServer","Password","1"));
        LogMemo->Lines->Add("正在连接数据库服务器!");
        Database1->Connected = true;
        LogMemo->Lines->Add("已经成功连接数据库服务器!");
        DBOpened = true; 
    }
    catch(const Exception &E)
    {
        LogMemo->Lines->Add("连接SQLServer服务器失败，请检查SQLServer服务器设置！！原因：" + E.Message);
        DBOpened = false;
    }
    delete ini;

}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N2Click(TObject *Sender)
{
    if(DBOpened)
    {
        OpenDialog1->FileName = "";
        OpenDialog1->Execute();

        if((OpenDialog1->FileName == ""))
//        if((OpenDialog1->FileName == "") || (ExtractFileName(OpenDialog1->FileName).SubString(1, 9) == "BssReport") || (ExtractFileName(OpenDialog1->FileName).SubString(1, 10) == "CellReport"))
        {
//            LogMemo->Lines->Add("您没有选择文件或者选的文件不是原始数据类型，请查实！");
            LogMemo->Lines->Add("您没有选择文件，请查实！");
        }
        else
        {
            AnsiString s = ExtractFileName(OpenDialog1->FileName);
            FileNamePre = s.SubString((s.AnsiPos(".") + 1), 8);
            MainForm->N2->Enabled = false;
            MainForm->N4->Enabled = false;
            MainForm->N8->Enabled = false;
            if(FileExists("BssReport." + FileNamePre + "10"))
                MainForm->NPM_OverviewSystemBSS();
            else
                LogMemo->Lines->Add("BssReport的早忙时原始数据不存在，请查实！");

            if(FileExists("CellReport." + FileNamePre + "10"))
                MainForm->NPM_OverviewCell();
            else
                LogMemo->Lines->Add("CellReport的早忙时原始数据不存在，请查实！");


            MainForm->N2->Enabled = true;
            MainForm->N4->Enabled = true;
            MainForm->N8->Enabled = true;
        }
    }
    else
    {
        LogMemo->Lines->Add("数据库服务器没有连接，不能导入，请查实！");
    }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormResize(TObject *Sender)
{
    if (MainForm->Width > 629)
    {
        StatusBar1->Width=MainForm->Width - 8;
        LogMemo->Width=MainForm->Width -8 ;
    }
    else
    {
        MainForm->Width = 629;
        StatusBar1->Width=MainForm->Width - 8;
        LogMemo->Width=MainForm->Width - 8;
    }

    if (MainForm->Height > 441)
    {
        LogMemo->Height=MainForm->Height - 65;
       // StatusBar1->Top=MainForm->Height - 46;
    }
    else
    {
        MainForm->Height=441;
        LogMemo->Height=MainForm->Height - 65;
       // StatusBar1->Top=MainForm->Height - 46;
    }
}
//---------------------------------------------------------------------------