в ̲
1
̳ , : Pentium1000 , 256 , 20 , Microsoft Windows 98/2000/, Borland Database Engine (BDE).
2
BOOK book.exe, book.hlp BD, . . , book_01 BDE Administrator. .
:
- ;
- ;
- ;
- .
3
, , . , . 1.
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Table2.Locate('avtor',Edit1.Text,[loPartialKey,loCaseInsensitive]);
end;
1
2.
procedure TForm1.Table2GodChange(Sender: TField);
begin
if (Table2God.AsInteger>2050) or (Table2God.AsInteger<1950) then begin
MessageDlg(' !',mtError,[mbOK],0);
Table2.Cancel;
end;
end;
2
3
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if not Table1.Filtered then begin
Table1.Filter:='FIO = '''+Edit2.Text+'''';
Table1.Filtered:=True;
end else Table1.Filtered:=False;
end;
3
4
, , , . Paradox , *.db. 4,5 6.
4
5
6
, 7.
7 ³
3.1 ()
в ()
1
|
|
̳ , : Pentium1000 , 256 , 20 , Microsoft Windows 98/2000/, Borland Database Engine (BDE).
2
book.exe. :
- ;
- ;
- ;
- , ;
- ;
- ;
- .
:
- ;
- ;
- ;
- .
, . Գ. , . Գ , . . , 9. , , 8.
8 ³
:
. + TDBNavigator .
.. + TDBNavigator .
, . . . , , ( 9).
9
3 ()
. - ( , ), , 10.
10
, , . , , 1950 . 2050 ., , 11.
11
1 1.5:2003
2 3008-95
3 19.506-79 . .
4 19.201-78 . .
5 19.504-79 . .
6 19.505-79 . .
|
|
7 19.401-78 . .
8 19.102-77