#include "io.h"
#include "inifiles.hpp"
extern LPSTR CommandLine;
//------------------------------------------
int Login(TADOConnection *Cnct, AnsiString &ServerMessage){
// возвращает код ошибки, выявленный регистрацией,
// в ServerMessage помещает сообщение сервера
AnsiString UserName,Password,IniFileName;
int DotPos,Ret= 0  /* код возврата */;
TfrmLogin *f;
TIniFile *ini;
AnsiString ServerName,DatabaseName;
bool HaveIni;

// если CommandLine не пусто, то это имя ini файла в командной строке
if(CommandLine!=NULL && CommandLine[ 0 ]!='\0'){
    IniFileName=CommandLine;
} else {
    // полагаем, что ini - файл зовут также, как и exe-файл, и
    // что находится он в том же каталоге, но имеет расширение ini
    IniFileName=Application->ExeName;
    // где точка перед exe
    DotPos=IniFileName.Pos(".");
    IniFileName=IniFileName.SubString( 1 ,DotPos)+"ini";
}

// существует ли ini - файл
HaveIni=access(IniFileName.c_str(), 0 )== 0 ;
ini=new TIniFile(IniFileName);
if(HaveIni){
    // возьмем оттуда имя пользователя и, возможно
    // имена сервера и БД
    UserName=ini->ReadString("common", "USER NAME","");
    ServerName=ini->ReadString("common","SERVER NAME","");
    DatabaseName=ini->ReadString("common","DATABASE NAME","");
}

if(HaveIni){
    if(ServerName.IsEmpty()){
        Ret=NO_SERVERNAME;
    }
    if(DatabaseName.IsEmpty()){
        Ret=NO_DATABASENAME;
    }
}
if(Ret!= 0 ){
    // не хватает данных для открытия БД
    delete ini;
    return Ret;
}

f=new TfrmLogin(Application);
// в окне диалога регистрации установим последнего пользователя
f->edtName->Text=UserName;
// установить английский язык
LoadKeyboardLayout("00000409", KLF_ACTIVATE);
int rf=f->ShowModal();
if(rf< 0 ){
    delete ini;
    delete f;
    return USER_CANCEL;
}
// установить русский язык
LoadKeyboardLayout("00000419", KLF_ACTIVATE);
UserName=f->edtName->Text;
Password=f->edtPassword->Text;
delete f;

// формирование строки соединения
AnsiString ConnectionString=
  "Provider=SQLOLEDB.1; "
  "Persist Sequrity Info=false; "
  "Use Procedure for Prepare=1;"
  "Auto Translate=true;"
  "Packet Size=4096;"
  "Use Encryption for Data=false;"
  "Tag with column collation when possible=false;";
ConnectionString=ConnectionString+
//  "Workstation ID="+CompName+";"  +
  "Initial Catalog="+DatabaseName+";"  +
  "Data Source="+ServerName+";"  +
  "User ID="+UserName+";"  +
  "Password="+Password;

try{
    if(Cnct->Connected){
        Cnct->Close();
    }
    Cnct->LoginPrompt=false;
    Cnct->ConnectionString=ConnectionString;
    Cnct->Open();
    // возможно изменился пользователь - изменим в ini - файле
    ini->DeleteKey("common","USER NAME");
    ini->WriteString("common","USER NAME",UserName);
    ini->UpdateFile();
}
catch(Exception &e){
    Ret=DB_NOTOPEN;
    ServerMessage=e.Message;
}
delete ini;
return Ret;
}