Delphi tilida

Dinamik yaratuvchi psevdonimlar 

Ma’lumotlar bazasiga murojaat uchun psevdonimdan foydalanish 

dasturning ma’lumotlar bazasini va dasturni har xil disklarda 
joylashtirishga imkon beradi. Shu bilan birga sodda ma’lumotlar 
bazalari dastur bilan birga bir katalogda joylashadi. Bunday holda 
BDE Administrator yordamida psevdonim yaratishdan voz kechib,
dastur bajarilish jarayonida psevdonim yaratilitshi mumkin. 
Quyidagi dasturda «Maktab» ma’lumotlar bazasi bilan boglanish 
uchun dinamik yaratiluvchi psevdonimdan foydalaniladi. 
«Maktab» ma’lumotlar bazasi(psevdonim dinamikyaratiladi) 
unit school3_; 
interface 
uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, Db, DBTables, ExtCtrls, DBCtrls, 
StdCtrls;
type 
TForml = class(TForm) 
Tablel: TTable; // TaSjiHija (Bca 6a3a ziaHHbix) 
Queryl: TQuery; // 3 a n p o c (3anHCH BH. y z i o btBophiollih e 
KpHTepHK) BBlSopa) 
DataSourcel: TDataSource; // hctomhhk ziaHHbix —TaOjinua 
h jih 3 a n p o c 

DBGridl: TDBGrid; // TaSjiH ija zijt?t oT oS paxeH H a 
h jih 

pe3yjiBTaTa BBinojiHeHHa 3 a n p o c a 

DBNavigatorl: TDBNavigator; 
DBTextl: TDBText; 
Buttonl: TButton; // KHom ca 3anpoc 
Button2: TButton; // K Hom ca Bce 3anncH 
procedure ButtonlClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormActivate(Sender: TObject); 
private 
{Private declarations } 
public 
{Public declarations } 

260 

end; 
var 
Forml: TForml; 
implementation 
{$R *.DFM} 
/ / mejiHOK H a KHonKe 3 a n p o c 
procedure TForml.ButtonlClick(Sender: TObject);