ydlogin.cpp

营业用电管理系统(网络版)是本公司推出的新一代软件产品

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

#include <vcl.h>
#include <shellapi.hpp>
#pragma hdrstop
#include "YDlogin.h"
#include <Registry.hpp>
#include "YDmain.h"
#include "Ydlyb.h"
#include "YDqfll.h"
#include "YDyhll.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCLogin *CLogin;
//---------------------------------------------------------------------------
__fastcall TCLogin::TCLogin(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TCLogin::BitBtn2Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------


void __fastcall TCLogin::FormActivate(TObject *Sender)
{
Edit1->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TCLogin::FormCreate(TObject *Sender)
{
   char Name[128];
   char ComputerName[255];
   DWORD size = 255;
   AnsiString servername;
   AnsiString username;
   AnsiString password;
   String strpath;
   AnsiString AppPath = ExtractFilePath(Application->ExeName);
   strpath= AppPath +"YDLOGIN.INI";
   GetComputerName(ComputerName, &size);
   GetPrivateProfileString(
         "YDLOGIN", 			// []中节的名称
         "SERVERNAME",         			// =号前的键名
         "",          				// 如果没有找到字符串时，返回Nil
         Name,           			// 存放取得字符串
         100,     		        	// 取得字符的允许最大长度
         strpath.c_str()		// .INI文件名
      );
   servername=Name;
   GetPrivateProfileString(
         "YDLOGIN", 			// []中节的名称
         "USERNAME",         			// =号前的键名
         "",          				// 如果没有找到字符串时，返回Nil
         Name,           			// 存放取得字符串
         100,     		        	// 取得字符的允许最大长度
         strpath.c_str()		// .INI文件名
      );
  username=Name;
   GetPrivateProfileString(
         "YDLOGIN", 			// []中节的名称
         "PASSWORD",         			// =号前的键名
         "",          				// 如果没有找到字符串时，返回Nil
         Name,           			// 存放取得字符串
         100,     		        	// 取得字符的允许最大长度
         strpath.c_str()		// .INI文件名
      );
  password=Name;
    TStringList *MyList=new TStringList();
    try
    {
     MyList->Add("ENABLE BCD=TRUE");
     MyList->Add("DATABASE NAME=Yddb");
     MyList->Add("SERVER NAME="+servername);
     MyList->Add("USER NAME="+username);
     MyList->Add("PASSWORD="+password);
     Session->AddAlias("ydgl_c", "MSSQL", MyList);
     Session->SaveConfigFile();
    }
    catch (...)
     {
      MessageBox(NULL,"MSSQL Server数据库服务器尚未安装或启动！","提示",MB_OK|MB_ICONWARNING);
      Session->DeleteAlias("ydgl_c"); //删除BDE别名
      Session->SaveConfigFile();
      delete MyList;
      Close();
     }


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

void __fastcall TCLogin::BitBtn1Click(TObject *Sender)
{

  Application->CreateForm(__classid(TFmain), &Fmain);
  Application->CreateForm(__classid(TFlyb), &Flyb);
  Application->CreateForm(__classid(TFyhll), &Fyhll);
  Application->CreateForm(__classid(TFqfll), &Fqfll);

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



void __fastcall TCLogin::BitBtn3Click(TObject *Sender)
{
// Application->HelpJump("dl");
}
//---------------------------------------------------------------------------