Delphi BDE ile database uygulaması - Delphi / Kylix Webmaster bilgi bankası, knowledge base Webmaster Araçları

AnaSayfa > Delphi / Kylix > Delphi BDE ile database uygulaması
Kategori: Delphi / Kylix
Gönderen: Admin
Tarih: 2011-02-20
Puan: 6   Puan:6 | Katılımcı:4 | Katılımcı : 4
Okunma: 5262
  
 
1 puan 2 puan 3 puan 4 puan 5 puan 6 puan 7 puan 8 puan 9 puan 10 puan

uses DBTables;
procedure TForm1.Button1Click(Sender: TObject);
var CurrentAliases: TStringList;
begin
CurrentAliases := TStringList.Create;
Session.GetAliasNames(CurrentAliases);
ComboBox1.Items:= CurrentAliases;
CurrentAliases.Free;
end;



uses DBTables;
...
var sMaybeAlias : string;
...
Session.IsAlias(sMaybeAlias)
...



uses dbtables;
procedure TForm1.Button1Click(Sender: TObject);
var sMaybeAlias : string;
DBPath : string;
ParamList : TStringList;
begin
sMaybeAlias := 'DBDEMOS';

if Session.isAlias(sMaybeAlias) then
begin
ParamList := TStringList.Create;
try
Session.GetAliasParams(sMaybeAlias, ParamList);
DBPath := ParamList.Values['PATH'];
finally
ParamList.Free;
end;
ShowMessage('Path to '+sMaybeAlias+' is '+DBPath);
end
else ShowMessage(sMaybeAlias+' is not an alias!');
end;




...
sNewAlias := 'MyNewParadoxAlias'
sDataDir := 'c:\MyApplication\NewDataDirectory'
Session.AddStandardAlias
(sNewAlias, sDataDir, 'PARADOX');
...




uses dbtables;
procedure TForm1.Button1Click(Sender: TObject);
var AliasParams : TStringList;
AliasDirectory : string;
AliasName : string;
begin
AliasDirectory:='c:\MyApp\Data\IBData.GDB';
AliasName:='IBNewData';

AliasParams := TStringList.create;
try
AliasParams.Values['SERVER NAME'] := DataFile;
AliasParams.Values['USER NAME'] := 'SYSDBA';
Session.AddAlias
(AliasName, 'INTRBASE', AliasParams);
Session.SaveConfigFile;
finally
AliasParams.Free;
end;








Yorumlar
Henüz Kimse Yorum Yapmamış, ilk yorumu siz ekleyin!
Yorum Ekleme Aparatı
Yorum Eklemek için lütfen sol menuden giris yapınız..
Toplam 0 yorum listelendi.