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.
Do'stlaringiz bilan baham: |