linkedin facebook linkedin facebook nod32

Dinamik yaratiluvchi psevdonimlar

Muallif: Mengliyev SH.

Qo`shilgan sana: 2014-09-17

Dinamik yaratiluvchi psevdonimlar

Ma’lumotlar bazasiga murojaat uchun psevdonimdan foydalanish dasturning ma’lumotlar bazasini va dasurni 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 bog‘lanish uchun dinamik yaratiluvchi psevdonimdan foydalaniladi.

"Maktab" ma’lumotlar bazasi(psevdonim dinamik yaratiladi)
unit school3_;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, Db, DBTables, ExtCtrls, DBCtrls, StdCtrls;
type
TForm1 = class(TForm)
Table1: TTable;
Query1: TQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
DBText1: TDBText;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
fam: string[30];
begin
fam:=InputBox('Vыborka informatsii iz BD', 'Ukajite familiyu i щelknite na OK.', '');
if fam <> ''
then
begin

with form1.Query1 do begin
Close;
SQL.Clear;
SQL.Add('SELECT Fam, Name, Class');
SQL.Add('FROM ":SHkola:school.db"');
SQL.Add('WHERE');
SQL.Add('(Fam = "'+ fam + '")');
SQL.Add('ORDER BY Name, Fam');
Open;
end;
if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1
else begin
ShowMessage('V BD net zapisey, udovletvoryayuщix kriteriyu zaprosa.');
DataSource1.DataSet:=Table1;
end;
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
DataSource1.DataSet:=Table1;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
with Session do
begin
ConfigMode := cmSession;
try

AddStandardAlias( 'SHkola',
ExtractFilePath(ParamStr(0))+'DATA\',
'PARADOX');
Table1.Active:=True;
finally
ConfigMode := cmAll;
end;
end;
end;

end.
Bu dasturda ma’lumotlar bazasi dastur joylashgan katalogning DATA ostki katalogida joylashgan deb hisoblanadi. Psevdonim TForm1.FormActivate protsedurasida yaratiladi. Psevdonim yaratishni AddstandardAlias protsedurasi bajaradi. Protseduraga parametr sifatida psevdonim nomi va unga mos katalog nomi beriladi. Katalog nomi ParamStr(0) va ExtractFilePatch funksiyalarga murojaat qilish yordamida aniqlanadi. Birinchi funksiya qiymati - dastur fayli to‘liq nomi, ikkinchisi shu faylga yul. SHunday kilib AddstandardAiias protsedurasiga ma’lumotlar bazasi katalogining to‘liq nomi beriladi.

1277 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений