|
Mavzu: kutubxonaning avtomatlashtirilgan tizimi
|
| bet | 6/6 | | Sana | 13.12.2023 | | Hajmi | 133,41 Kb. | | #117785 |
Bog'liq KUTUBXONANING AVTOMATLASHTIRILGAN TIZIMI.Ilova B
( Ma'lumotli)
Dastur ro'yxati
birlik 1- birlik ;
interfeys
foydalanadi
Windows, Xabarlar, SysUtils, Variantlar, Sinflar, Grafika, Boshqaruv elementlari, Shakllar,
Dialoglar, StdCtrls, Menyular;
turi
TForm1 = sinf (TForm)
1-tugma: TB tugmasi;
2-tugma: TB tugmasi;
3-tugma: TB tugmasi;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
protsedura Button1Click(Sender: TObject);
protsedura Button2Click(Sender: TObject);
protsedura Button3Click(Sender: TObject);
protsedurasi N1Click (Sender: TObject);
protsedurasi N4Click (Yuborish: TObject);
protsedura Button4Click(Sender: TObject);
protsedurasi N3Click (Sender: TObject);
protsedura N5Click (Yuborish: TObject);
protsedurasi N6Click (Yuborish: TObject);
protsedurasi N7Click (Yuborish: TObject);
protsedurasi N8Click (Yuborish: TObject);
xususiy
{Shaxsiy deklaratsiyalar}
ommaviy
{Ommaviy deklaratsiyalar}
oxiri;
var
Shakl 1: TForm1;
amalga oshirish
Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit9, Unit10 dan foydalanadi;
{$R *. dfm}
TForm 1 protsedurasi. Button1Click(Yuborish: TObject);
boshlanishi
shakl 3. ShowModal;
oxiri;
TForm 1 protsedurasi. Button2Click(Yuborishchi: TObject);
boshlanishi
shakl 4. ShowModal;
oxiri;
TForm 1 protsedurasi. Button3Click(Yuborish: TObject);
boshlanishi
Shakl 7. ShowModal;
oxiri;
TForm 1 protsedurasi. Button4Click(Yuborishchi: TObject);
boshlanishi
Shakl 9. ko'rsatish;
oxiri;
protsedurasi . N1Click(Yuborish: TObject);
var l: string; p: tamsayı; c,c1: mantiqiy;
boshlanishi
c: =noto'g'ri;
c1: =noto'g'ri;
l : = InputBox ('Login', 'Loginni kiriting:','');
p := strtoint ( InputBox ('Parol','Parolni kiriting: ',''));
agar l='admin' bo'lsa, c: =true else ShowMessage (' Yo'q to'g'ri tizimga kirish _ ');
if inttostr (p) ='123456' keyin c1: =true else ShowMessage (' Yo'q sodiq parol ');
agar (c=to'g'ri) va (c1=to'g'ri) bo'lsa, N2. Ko'rinadigan: = rost;
oxiri;
TForm 1 protsedurasi. N3Click (Yuborish: TObject);
boshlanishi
shakl 3. ShowModal;
oxiri;
TForm 1 protsedurasi. N4Click (Yuborish: TObject);
boshlanishi
n2. Ko'rinadigan: =false;
Shakl 1. Yopish;
oxiri;
TForm 1 protsedurasi. N5Click (Yuborish: TObject);
boshlanishi
shakl 4. ShowModal;
oxiri;
TForm 1 protsedurasi. N6Click (Yuborish: TObject);
boshlanishi
shakl 5. ShowModal;
oxiri;
TForm 1 protsedurasi. N7Click (Yuborish: TObject);
boshlanishi
shakl 6. ShowModal;
oxiri;
TForm 1 protsedurasi. N8Click (Yuborish: TObject);
boshlanishi
shakl 10. shoumodda;
oxiri;
oxiri.
birlik 2;
interfeys
foydalanadi
SysUtils, Classes, DB, ADODB;
turi
TDataModule2 = sinf (TDataModule)
ADOConnection1: TADOConnection;
t_reader: TADOTable;
t_knigi: TADOTable;
Chitatel: TDataSource;
kitob: TDataSource;
t_chitatelid_chit: TAutoIncField;
t_chitatelFio: TWideStringField;
t_chitatelid_gr: TIntegerField;
t_readelid_form: TIntegerField;
t_chitatelstatus: TIntegerField;
t_group: TADOTable;
t_form: TADOTable;
t_status: TADOTable;
guruh: TDataSource;
shakl: TDataSource;
holat: TDataSource;
t_chitatelgroup : TStringField;
t_readerform: TStringField;
t_chitatelstatus1: TStringField;
t_knigiId_knigi: TAutoIncField;
t_kniginazvanie: TWideStringField;
t_knigiavtor: TWideStringField;
t_knigigod_izdaniya: TWideStringField;
t_knigiZhanr: TIntegerField;
t_zhanr: TADOTable;
janr: TDataSource;
t_knigizhanr2: TStringField;
t_groupid_group: TAutoIncField;
t_groupspec: TWideStringField;
t_groupnomer_gr: TIntegerField;
t_zhanrid_zhanra: TAutoIncField;
t_zhanrnazvanie: TWideStringField;
t_vidacha: TADOTable;
Vidacha: TDataSource;
t_vidachaid_vid: TAutoIncField;
t_vidachachitatel: TIntegerField;
t_vidachadata_vidachi: TDateTimeField;
t_vidachadata_sdachi: TDateTimeField;
t_vidachafact_data_sdachi: TDateTimeField;
t_vidachashtraf: TBCDField;
t_vidachakol_knig: TIntegerField;
t_vidachachitatel1: TStringField;
1-savol: TADOQuery;
DQ1: TDataSource;
1id_zhanra: TAutoIncField;
Savol: TWideStringField;
|
| |
