Масаланинг қўйилиши


 -№11. - Ч. 1.- С. 58-76; 2000.-№12.- Ч. II.-С. 58-78. 13. Баренбаум И.Е



Download 0,95 Mb.
Pdf ko'rish
bet19/19
Sana23.02.2022
Hajmi0,95 Mb.
#139303
1   ...   11   12   13   14   15   16   17   18   19
Bog'liq
kutubxona statistika tizimi dasturi

2000. -№11. - Ч. 1.- С. 58-76; 2000.-№12.- Ч. II.-С. 58-78.
13. Баренбаум И.Е. Книговедение и электронная книга //Книга: 
Исследования и материалы: Сб. 76.- М. ТЕРРА, 1999. – С. 5-15. 
14. Богданов А.В., Сюнтюренко О.В., Хохлов Ю.Е. Программа 
"Российские электронные библиотеки" // Электронные библиотеки: 
научный электронный журнал. 1998, т.1, вып. 1. – URL: 
http://www.iis.ru/el-bib/1998/199801/bhs/bhs.ru.html. 
 


54 
Илова 
unit Unit1; 
interface 
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, XPMan; 
type 
TForm1 = class(TForm) 
Label1: TLabel; 
Label2: TLabel; 
Label3: TLabel; 
Label4: TLabel; 
Label5: TLabel; 
Label6: TLabel; 
Label7: TLabel; 
XPManifest1: TXPManifest; 
Image1: TImage; 
Image2: TImage; 
Image3: TImage; 
SpeedButton1: TSpeedButton; 
BitBtn1: TBitBtn; 
XPManifest2: TXPManifest; 
procedure BitBtn1Click(Sender: TObject); 
procedure Label2Click(Sender: TObject); 
procedure Label3Click(Sender: TObject); 
procedure Label4Click(Sender: TObject); 
procedure Label5Click(Sender: TObject); 
procedure Label6Click(Sender: TObject); 
procedure Label7Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
var 
Form1: TForm1; 
implementation 
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7; 
{$R *.dfm} 
procedure TForm1.BitBtn1Click(Sender: TObject); 
begin 


55 
close 
Label3: TLabel; 
Label4: TLabel; 
Edit2: TEdit; 
Edit3: TEdit; 
Edit4: TEdit; 
Label5: TLabel; 
Label7: TLabel; 
Edit5: TEdit; 
Label6: TLabel; 
Label8: TLabel; 
Edit6: TEdit; 
Label9: TLabel; 
Label10: TLabel; 
Edit7: TEdit; 
Edit8: TEdit; 
procedure FormCreate(Sender: TObject); 
procedure BitBtn1Click(Sender: TObject); 
procedure N5Click(Sender: TObject); 
procedure Button1Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
var 
Form1: TForm1; 


56 
implementation 
{$R *.dfm} 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
ADOTable1.IndexFieldNames:='Номер'; 
end; 
procedure TForm1.BitBtn1Click(Sender: TObject); 
begin 
if (Length(Edit1.Text) > 0) then 
ADOTable1.Filtered:=true 
else 
ADOTable1.IndexFieldNames:='Номер'; 
ADOTable1.Filter:='Номер>=' + Edit1.Text + ''; 
end; 
procedure TForm1.N5Click(Sender: TObject); 
begin 
close 
end; 
procedure TAfirst.Ouvrages1Click(Sender: TObject); 
begin 
passwordO.show; 
end; 
procedure TAfirst.Listedesouvrages1Click(Sender: TObject); 
begin 


57 
OuvragesAffichier.PageControl1.ActivePageIndex:=0; 
OuvragesAffichier.show; 
end; 
procedure TAfirst.Ficheparfiche1Click(Sender: TObject); 
begin 
OuvragesAffichier.PageControl1.ActivePageIndex:=1; 
OuvragesAffichier.Show; 
end; 
procedure TAfirst.Listesdesouvrages1Click(Sender: TObject); 
begin 
POuvrages.PageControl1.ActivePageIndex:=0; 
POuvrages.show; 
end; 
procedure TAfirst.Ficheparfiche2Click(Sender: TObject); 
begin 
POuvrages.PageControl1.ActivePageIndex:=1; 
POuvrages.show; 
end; 
procedure TAfirst.Timer1Timer(Sender: TObject); 
var DateEtHeure : TSystemTime; 
begin 
PanelDate.caption:= 'Le ' +Datetostr(now); 
PanelTime.Caption:= Timetostr(now); 
GetSystemTime(DateEtHeure); 
Gauge1.Progress:=DateEtHeure.wSecond; 
end; 


58 
procedure TAfirst.Ouvrages4Click(Sender: TObject); 
begin 
RechercherOuvrages.PageControl1.ActivePageIndex:=0; 
RechercherOuvrages.show; 
end; 
procedure TAfirst.BitBtn2Click(Sender: TObject); 
begin 
Edit1.Text:=''; 
end; 
procedure TAfirst.Etudiants1Click(Sender: TObject); 
begin 
passwordL.show; 
end; 
procedure TAfirst.Listedestudiants1Click(Sender: TObject); 
begin 
EtudiantsAffichier.PageControl1.ActivePageIndex:=0; 
EtudiantsAffichier.show; 
end; 
procedure TAfirst.Ficheparfiche3Click(Sender: TObject); 
begin 
EtudiantsAffichier.PageControl1.ActivePageIndex:=1; 
EtudiantsAffichier.show; 
end; 
procedure TAfirst.Listedestudiants2Click(Sender: TObject); 


59 
begin 
PEtudiants.PageControl1.ActivePageIndex:=0; 
PEtudiants.show; 
end; 
procedure TAfirst.Ficheparfiche4Click(Sender: TObject); 
begin 
PEtudiants.PageControl1.ActivePageIndex:=1; 
PEtudiants.show; 
end; 
procedure TAfirst.Etudiants4Click(Sender: TObject); 
begin 
RechercherEtudiants.show; 
end; 
procedure TAfirst.Nouveau1Click(Sender: TObject); 
begin 
password.show; 
end; 
procedure TAfirst.Rglement1Click(Sender: TObject); 
begin 
passwordR.show; 
end; 
procedure TAfirst.Historiquedesprts1Click(Sender: TObject); 
begin 
HPrets.show; 
end; 


60 
procedure TAfirst.Etudiantsbloqus1Click(Sender: TObject); 
begin 
Bloques.show; 
end; 
procedure TAfirst.Etudiantsbloqus2Click(Sender: TObject); 
begin 
PBloques.show; 
end; 
procedure TAfirst.FormCloseQuery(Sender: TObject; var CanClose: 
Boolean); 
begin 
canclose:=false; 
if MessageBox(Handle,'', 
'Avertissement',MB_YESNO or MB_ICONSTOP ) =IDYES then 
application.Terminate; 
end; 
procedure TAfirst.Quitter1Click(Sender: TObject); 
begin 
if MessageBox(Handle,'', 
'Avertissement',MB_YESNO or MB_ICONSTOP ) =IDYES then 
application.Terminate; 
end; 
procedure TAfirst.SpeedButton1Click(Sender: TObject); 
begin 
if MessageBox(Handle,'', 


61 
'Avertissement',MB_YESNO or MB_ICONSTOP ) =IDYES then 
application.Terminate; 
end; 
procedure TAfirst.Aproposde1Click(Sender: TObject); 
begin 
Apropos.Show; 
end; 
procedure TAfirst.SpeedButton2Click(Sender: TObject); 
begin 
passwordO.show;
end; 
procedure TAfirst.SpeedButton3Click(Sender: TObject); 
begin 
passwordL.show; 
end; 
procedure TAfirst.SpeedButton4Click(Sender: TObject); 
begin 
password.show; 
end; 
procedure TAfirst.BitBtn1Click(Sender: TObject); 
begin 
if Edit1.text=''then exit; 
Data.TOuvrages.Filter:= ComboBox1.text+'= ''' + Edit1.Text + '*'''; 


62 
end; 
procedure TForm1.Label2Click(Sender: TObject); 
begin 
form1.Visible:=false; 
form2.visible:=true; 
end; 
procedure TForm1.Label3Click(Sender: TObject); 
begin 
form3.visible:=true; 
form1.Visible:=false; 
end; 
procedure TForm1.Label4Click(Sender: TObject); 
begin 
form4.visible:=true; 
form1.Visible:=false; 
end; 
procedure TForm1.Label5Click(Sender: TObject); 
begin 
form5.visible:=true; 
form1.Visible:=false; 
end; 
procedure TForm1.Label6Click(Sender: TObject); 
begin 
form6.visible:=true; 
form1.Visible:=false; 
end; 
procedure TForm1.Label7Click(Sender: TObject); 
begin 
form7.visible:=true; 
form1.Visible:=false; 
end; 
end. 

Download 0,95 Mb.

Do'stlaringiz bilan baham:
1   ...   11   12   13   14   15   16   17   18   19




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish