,,,
1
1.1
1.2
1.3
2
2.1
2.2
2.3
3
3.1
3.2
3.3
3.4
4
5 -
6 , ,
: . , .
, , , , , , .
.
, . . : , , .
, .
1
1.1
, , . , , .
, , 1.
1
1.2
, , . . , , .
. .
.
:
(, , , );
( , , );
( , , );
( , , ).
, . , , , , .
: . : , , .
: , , .
1.3
, , . 20 . . , , .
:
Windows 98 XP;
BDE Administrator ;
Pentium 100 ;
256 ;
20 ;
Philips 170C ;
4 Tech;
.
2
2.1
.
, , , , .
:
- ;
- ;
- ;
- ;
- ;
- ;
- , .. ;
- , .. , , ..
2.2
:
;
;
;
.
:
;
;
.
:
;
;
.
:
;
;
.
2.3
, .
, , .
:
;
;
, .
, . , , ( 2).
2
3
3.1
, .
Project :
1 ;
2 ;
3 ;
4 .
1 :
FIO (35) ;
Data rozhdenia ;
Address (20) ;
Telefon (6) .
2 :
FIO (35) ;
Dannye pasporta (9) ;
Kem vydan (18) ;
Data vydachi .
3 :
FIO (30) ;
Data podkluchenia ;
Tip podkluchenia (12) ;
Tarif za minutu .
4 :
FIO (35) ;
Data polzovania ;
Time(min) ();
Stoimost .
3.2
, , (). 3.
. , , , .
3.3
Delphi7.
:
TTable ;
TDataSource ;
TDBGrid ;
TButton , ;
TDBNavigator , , , , , ;
TEdit ;
TLabel - , ;
TMainMenu , , ;
TRadioGroup ;
TBitBtn ( TButton), Glyph, , ;
TDBEdit .
, , , .
3.4
: . : . , ( 4).
4
( 5).
5
4.
.
1) . , .
2) . , . . .
1 -
1 | 2 | 3 | 4 |
5 -
5.1
, . .
. .
- , . , , , , - , , , , .
, , . .
, , , . , 2,5 . .
, :
∆=1-0 (1)
1, 0 .
514 . .-329 . .=185 . .
(∆):
∆ =1 1, (2)
∆ = 16280 . 14685 . = 1595 .
1 ;
0 .
(∆3)
∆3 = Q1*(0 1) (3)
∆ =350 . *(1350000 . 1174800 .) = 61320000 .
1 ;
0 ;
Q1 2008 .
( ):
∆ =(0 +∆ )/(0 ∆) 0 (4)
0=1174800 .* 350 . = 411180000 .
0= 0/ = 230000000 ./150 = 1533333 .
∆=(12000000. + 750000 .)/( 411180000 . 117500000 .) 80000 . = -79999 .
0 ;
∆ ;
0 - ;
0 ;
∆ ;
0 ;
.
,
∆ :
∆ =1 0 (5)
∆ = 925000000 . 711000000 . = 214000000 .
1 , ;
0 , .
5.2 -
- , - , . :
) :
=/, (6)
= 10538 . ./469 .=22469 ../ .
;
().
) :
=/, (7)
= 700 *./150 . = 4,66
;
().
) :
= /, (8)
= 5215. ./216. .=24
;
( ) .
) :
= /, (9)
= 1366 . . / 216 . . =6
;
( ) .
) , ,
= , , /
= 17 . / 469 . = 0,04
6 , ,
, .
, , , ( , , , .) ( , ).
, , .
( 0,76 ) ( 5-7 /2*) : , .
. ( 0,32 ) , , .
. : , , , , , , ..
. , .
, , , , .
, : , .. , , , .
15 , , . - . .
, . . , , , , , , . , , .
.
, .
, , , , , - , .
( 30 300) , .
.
, , , , .
, , , : , . , , , , . , , , , . , , , , .
: , - -.
, .
- :
- , ;
- ;
- ;
- , ;
- ;
- .
- , , .
, , , , , .
- Delphi7. , .
, .
, , , , .
1 .., .. Delphi 5. .: -, 1999. 800 .
2 .., .., . . HTML 4.0. .: , 2000. 672 .
3 .., .., .. : . / . . .. . .: , 2000. 416 .
4 . ., .. Win32 API Delphi. .: , 2005. 368 .
5 , ., . , 7- .: . . .: , 2001. 1072 .
6 .. Delphi. .: , 2004. 600 .
7 .. Delphi. . .: , 2005. 477 .
8 .., .. Delphi 2005 Win32. .: , 2005. 1136 .
9 .., .. Delphi 5. .: , 2000. 640 .
10 .. Delphi 2006. : Delphi, , Win32 .NET. M.: OOO -, 2006. 1152 .
11 : , 2008. 15 .
12 2.105-95 ̻
13 19.401-2000
14 19.402-2000
15 19.701-90 , ,
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, Menus;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
DBNavigator1: TDBNavigator;
Label1: TLabel;
Button5: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
Button6: TButton;
Button7: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit5, Unit6, Unit9, Unit10, Unit11, Unit12;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form3.show;
end;
procedure TForm1.Button3Click(Sender: TObject);
Var i:integer;
Begin
table1.Append;
if form5.showmodal=mrOk then
begin
table1.FieldByName('FIO').AsString:=form5.DBEdit1.text;
if ((Form5.DBEdit1.Text='')or(Form5.DBEdit2.Text='')or(Form5.DBEdit3.Text='')or (Form5.DBEdit4.Text='')) then begin
messagedlg (' !'+#13 +' !',mtinformation,[mbok],0);
Table1.Cancel;
end
else
table1.Post;
end
else
Table1.Cancel;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
table1.edit;
if form6.showmodal=mrOk then
begin
if ((Form6.DBEdit1.Text='')or(Form6.DBEdit2.Text='')or(Form6.DBEdit3.Text='')or(Form6.DBEdit4.Text='')) then begin
messagedlg (' !'+#13 +' !',mtinformation,[mbok],0);Table1.Cancel;
end
else
form1.Table1.Post;
end
else Table1.Cancel;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
form9.show;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form10.show;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Winhelp(Form1.Handle,'help1.hlp',Help_context,1);
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
form11.show;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
form12.show;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Form16.QuickRep1.Preview;
end;
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;
type
TForm2 = class(TForm)
DBGrid1: TDBGrid;
Table1: TTable;
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
DBNavigator1: TDBNavigator;
Label2: TLabel;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit7, Unit8, Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
Var
i:integer;
begin
table1.Append;
if form7.showmodal=mrOk then
begin
table1.FieldByName('FIO').AsString:=form7.DBEdit1.text;
if form7.DBEdit1.text=''then table1.Cancel
else
table1.Post; end
else
table1.Cancel;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
table1.edit;
if form8.showmodal=mrOk then
begin
if form8.DBEdit1.text='' then Table1.Cancel
else
table1.Post; end
else
table1.Cancel;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
form1.show;
form2.Close;
end;
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;
type
TForm3 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
Label1: TLabel;
DBGrid2: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit8, Unit4, Unit14, Unit1;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
Var
i:integer;
begin
table1.Append;
if form4.showmodal=mrOk then
begin
table1.FieldByName('FIO').AsString:=form4.DBEdit1.text;
if form4.DBEdit1.text=''then table1.Cancel
else
table1.Post; end
else
table1.Cancel;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
table1.edit;
if form14.showmodal=mrOk then
begin
if form14.DBEdit1.text='' then Table1.Cancel
else
table1.Post; end
else
table1.Cancel;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
form1.show;
form3.Close;
end;
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;
type
TForm9 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
uses Unit13, Unit15, Unit1;
{$R *.dfm}
procedure TForm9.Button1Click(Sender: TObject);
begin
table1.edit;
if form13.showmodal=mrOk then
begin
if form13.DBEdit1.text='' then Table1.Cancel
else
table1.Post; end
else
table1.Cancel;
end;
procedure TForm9.Button2Click(Sender: TObject);
Var
i:integer;
begin
table1.Append;
if form15.showmodal=mrOk then
begin
table1.FieldByName('FIO').AsString:=form15.DBEdit1.text;
if form15.DBEdit1.text=''then table1.Cancel
else
table1.Post; end
else
table1.Cancel;
end;
procedure TForm9.Button3Click(Sender: TObject);
begin
form1.show;
form9.Close;
end;
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids, Menus, DBCtrls;
type
TForm11 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
RadioGroup1: TRadioGroup;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
Button2: TButton;
Label1: TLabel;
DBNavigator1: TDBNavigator;
procedure Button1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
Public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
uses Unit4, Unit1;
{$R *.dfm}
procedure TForm11.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
4:begin
Form11.Table1.Filtered:=false;
Edit2.Text:='';Edit3.Text:='';
Edit1.Text:='';
end;
1:begin
if edit2.Text='' then
ShowMessage (' ')
else
Form11.Table1.Filter:='Address'+'='+AnsiQuotedStr(edit2.Text,'''');
Form11.Table1.Filtered:=true;
end;
2: begin
if edit3.Text='' then
ShowMessage (' ')
else
Form11.Table1.Filter:='Telefon'+'='+AnsiQuotedStr(edit3.Text,'''');
Form11.Table1.Filtered:=true;
end;
3: begin
end;
0:begin
if edit1.Text='' then
ShowMessage (' ')
else
Form11.Table1.Filter:='FIO'+'='+AnsiQuotedStr(edit1.Text,'''');
Form11.Table1.Filtered:=true;
end;
end;
end;
procedure TForm11.N1Click(Sender: TObject);
begin
Table1.Filtered:=False;
end;
procedure TForm11.Button2Click(Sender: TObject);
begin
form1.show;
form11.Close;
end;
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids, DBCtrls;
type
TForm12 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
Label1: TLabel;
RadioGroup1: TRadioGroup;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
DBNavigator1: TDBNavigator;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form12: TForm12;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm12.Button2Click(Sender: TObject);
var
Pole : ShortString;
begin
Case RadioGroup1.ItemIndex of
0:Pole:='FIO';
1:Pole:='God rozhdenia' ;
2:Pole:='Address' ;
3:Pole:='Telefon' ;
end;
If not (Table1.Locate(Pole, Edit1.Text,[loCaseInsensitive, loPartialKey])) then
messagedlg (' !'+#13 +'',mtinformation,[mbok],0);
end;
procedure TForm12.Button1Click(Sender: TObject);
begin
Edit1.Text:='';
end;
procedure TForm12.Button3Click(Sender: TObject);
begin
form1.show;
form12.Close;
end;
end.
, <Project.exe> :
1. BASE ;
2. BDE Administrator (STANDARD)
(Object →New→OK);
3. ;
4. Object→Apply→Yes;
5. Standard PROBA;
6. Project.exe;
7. .
E:\ Project.exe. Project.exe , 9 .
9
, , : , . . .
, . , , , - , ( 10).
10
ʻ. . - . , .
: , , .
, . , . ( 11).
11
ʻ. . .
. , . . ʻ. ( 12).
12
.
. , . . ʻ ( 13).
13
.
. , , . , , ( 14).
14
.
. : , , , .
, ( 15).
15
.
1 1.1 1.2 1.3 2 2.1 2.2
Copyright (c) 2024 Stud-Baza.ru , , , .