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

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.