Ma’lumotlar va bilimlar bazasi. Nisanbaev Sh

8. Dinamik jaratiwshi psevdonimler 
Mag`liwmatlar bazasina usinis etiw ushin psevdonimnen paydalaniw programmanin` 
mag`liwmatlar bazasin ha`m programmani ha`r turli disklerge jaylastiriwg`a imkan beredi. Sol 
menen birge a`piwayi mag`liwmatlar bazalari programma menen birge katalogda jaylasadi. 
Bunday jag`dayda BDEAdminstrator ja`rdeminde psevdonim jaratiwdan waz keship, programma 
orinlaniw protsessinde psevdonim jaratiliwi mukin. 
To`mendegi programmada «Mektep» mag`liwmatlar bazasi menen baylanisiw ushin 
dinamik jaratiwshi psevdonimnen paydalaniladi.
«Mektep» mag`liwmatlar bazasi (psevdonim dinamik jaratiladi) 
Unit school3_; 
Interface 

---

Uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
Dialogs, Orids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls; StdCtrls; 
 Type
TForm1=class (TForm) 
Table1: Ttable; // tablitsa(vsya baza dannix) 
Query1: TQuery;// zapros(zapisi BD, udovletvoryayushie kriteriyu vibora) 
DataSourse1: TDataSource;// istochnik dannix-tablitsa ili zapros 
DBGrid1: DBGrid;// tablitsa dlya otobrajeniya BD ili rezul`tata vipolneniya 
DBNavigator1: TDBNavigator; 
DBText1: TDBText; 
Button1: TButton;// knopka zaprosa 
Button2: TButton;// knopka vse zapisi 
Prodcedure Button1 Click(Sender:TObject); 
Prodcedure Button2 Click(Sender:TObject); 
Prodcedure Form Activate(Sender:TObject); 
Private 
{ Private declarations } 
 public 
{ Private declarations } 
 End; 
 Var 
Form1: TForm1; 
Implementation
{$R*.dfm} 
// shelchok na knopke Zapros 
Prodcedure TForm1.Button1 Click(Sender:TObject); 
Var
Fam:string[30]; 
Begin 
Fam:=InputBox(‘viborka informatsii iz BD’ ‘ukajite familiyu i shelknite na OK’)
If fam <> «»// pol`zovatel` vvel familiyu