Delphida muammo!!!

[OmoN]

Сообщение от Hero

Omon aka ko'chirib oldim oshibka beryapti nima maslahat berasiz

Нима деган ошибка? Ошибкани тексти бордир?

Сообщение от MAK

Омон, Test.gdb таркибини янги Дельфи проектда очиб кўрмоқчиман. Қандай уланаман?

Агар шунчаки базани кўрмоқчи бўлсангиз IBExpert дан фойдаланинг. Interbase/Firebird базалари билан ишлаш учун мен билган энг яхши программа. Аввал ҳам айтганимдай мазохистлар учун интербейзнинг ўзини программаси ҳам бор. Номи ҳозир эсимда йўқ.
Агар шу база билан ишлайдиган программа тузмоқчи бўлсангиз дельфида Interbase нинг IBDataBase деган компоненти бор. Шу орқали уланасиз.
Мен программамда DataModule яратиб базага қуйидаги код орқали уланганман:

PHP код:

procedure TDM.DataModuleCreate(Sender: TObject);
 var DBPath:string;
begin
IniFileFullName := ExtractFilePath(Application.ExeName) + 'tester.ini';
if not FileExists(IniFileFullName) then
 begin
  MessageDlg('Konfiguratsiya fayli topilmadi', mtError, [mbOk], 0);
  Exit;
 end;
DBPath := Trim(GetStringParametr(IniFileFullName, 'SYSTEM', 'DBPath', ''));
if DBPath = '' then
 begin
  MessageDlg('Konfiguratsiya faylida MB ga yo`l ko`rsatilmagan', mtError, [mbOk], 0);
  Exit;
 end;
DB.Close;
DB.DatabaseName := DBPath;
DB.Params.Clear;
DB.Params.Add('User_name=SYSDBA');
DB.Params.Add('Password=masterkey');
try
 DB.Open;
 If(frmLogin = nil)Then
   Application.CreateForm(TfrmLogin, frmLogin);
 frmLogin.ShowModal;  
except
 MessageDlg('MB ga ulanish mumkin emas',mtError,[mbOK],0);
 Application.Terminate;
end;
end;

function TDM.GetStringParametr(AFileName, ASection, AIdent, ADefault: string): string;
begin
  with TIniFile.Create(AFileName) do
  try
    Result := ReadString(ASection, AIdent, ADefault);
  finally
    Free;
  end;
end;