,,,
. .
.
_______. .
.230105.10-02.014.
______________ . .
15.06.06
______________________ . .
15.06.06
_______________ . .
15.06.06
____________________ . .
15.06.06
_________________________
15.06.06
2006
. . , 2006.
, 9 , 2 , 1 .
14
2 1: .
, . .
, .
: , , .
, . . -.
, 7894,4 .
.
充...8
1. .
. ą......9
. .10
Delphi..........................................14
充.......15
2. .
2.1 ..21
2.2 .22
2.2.1 . ⅅ.22
2.2.2 ...24
2.3 ..26
2.3.1 ...26
2.3.2 ⅅ..26
2.3.3 ..29
2.4 .....32
2.5 .
2.5.1 .33
2.5.2 .....33
2.5.3 ...36
2.6 .
2.6.1 ....37
2.6.2 .39
2.6.3 ..40
3. .
3.1 .45
3.2 -.46
4. ....50
5. .
5.1 ...55
5.2 ʅ.58
充..61
....62
充....63
. , , , , . , , , , .
, .
- - , , , .. .
, , .
, .
1.
1.1 .
, : , , , .
, .
, , , . , . , . , : , , .
() , , , .
, :
- ;
- , , ;
- .
.
:
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- .
:
- ;
- ;
- ;
- ;
- ;
- ;
- .
1.2 .
.
, , , , .
, , , , ( ) . , -, -, .
( ) , , . , , , , . ., . ( ) - ( , ).
: , , . , -, , .
.
.
( , , ) -. ( , . .), , , . . , () .
( -) .
. , , , .
, . , .
, , , .
.
, , .
, . , , . . , .
.
, . , . , , . : - , , - .
, . , . : , .
. , . , .
, . , . .
. , . . .
, , , . , , .
1.3 Delphi
, , Delphi Borland Database Engine (BDE). , , , . BDE , . . BDE.
.
Delphi Database Desktop. File New Table. : Field Name ( ( ), ), Type ( . ), Size ( ), Key ( ).
. Table properties . Secondary Indexes. Define. , (Save as).
( ). BDE SQL Exploer. (Object - New), (Apply).
Delphi . : SQL, DBGrid DataSource, .
1.4
.
- (), , , . , , , . , , .
, , , , .
, (), , , , , , (, , , ).
.
.
.
.
( , , ).
, . . .
(), , , .
.
I) :
1) , ;
2) , , ;
3) , , ;
4) ;
5) , .
6) , , , , ;
7) , ;
8) ;
9) : , ;
10) ;
11) , ;
12) ;
13) ;
14) ;
15) : , , , ;
16) , ;
17) , ;
18) ;
19) , , , ;
20) : ;
, , , .
, . .
II) . , .
III) . , , , , .
IV)
- Pentium I;
- 128Mb;
- HDD: 950KB;
- FDD 3.5 1,44Mb Samsung;
- ;
- ;
- ;
- Windows 95.
V) ࠠ
. Delphi .
.
, .
- .
, .
, , .
.
:
) ;
) ( );
) ;
) ;
) .
.
.
:
) ;
) ;
) ;
) , ;
) .
2.
2.1
, .
:
- , , , , . ;
- ( , , , );
- , ;
- ;
- , , . ;
- .
.
.
. , . Delphi, . . .
2.2
2.2.1 . .
, .
. , , , .
:
:
- ;
- ;
- ;
- , .
:
1) , .
, , . . . . , , .
2) , .
:
1) , . . . ;
2) , , . ;
3) , , . . , , . , , . ;
4) . , ;
5) , , . .
, .
2.2.2 .
: , , . , , . , Ē, , . , . Ē , , . , . , , . , , , .
. 2.2.2.1
2.3
2.3.1 .
, , .
2.3.2 .
, .
, , .
, , .
. , .
.
, .
. .
. .
, , .
, .
( ).
, , .
:
- - , . , .
- - , . , .
- : , .
, . .
- , . , .
. , ( 5-7), . .
. , . , , .
- . , , .
, , .
. , , . .
. : , , , . . , , . .
. . , .
, , , , .
2.3.3 .
.
, .
, . . , (, ). , . .
, .
, , .
2.4
. , : , .
.
Delphi.
- . . , , . . . .
Delphi - , . , , . Delphi , , , . Delphi , .
Delphi , , , . Delphi, .
Delphi . . , , .
Delphi. .
2.5
2.5.1 .
, .
:
- , ;
- ;
- .
. .
2.5.2 .
. .
, .
, .
, , .
, , .
.
: .
, , , .
:
- , ;
- () , ;
- , , , ;
- - , -, , ;
- , - .
, .
:
- : , .
. .
. , .
- , .
- .
, . .
2.5.3 .
. , .
1. .
: .
2. ( ).
: .
3. ( , , ).
: .
4. .
: .
5. .
: .
6. .
: .
7. .
: .
8. .
: .
9. һ .
: .
.
2.6
2.6.1 .
.
, , . (. . , , Office, , ), .
:
- Pentium I;
- 128Mb;
- HDD: 950KB;
- , , ;
- Windows 95;
- .
(.2.6.1.1).
( , , - ).
. . , . .
, ( ). , , .
, , . , , .
.
:
- ;
- ;
- ;
- .
2.6.2 .
.
, .
:
- Pentium I;
- 128Mb;
- HDD: 950KB;
- , , ;
- Windows 95;
- .
.
.
, , .
, , .
.
.
:
- ( , );
- Printer ( ).
2.6.2 .
.
IBM PC . :
- () ;
- ;
- ;
- .
.
. - , , . . , .
. : () .
. , , , .
. Norton Backup ( DOS Windows), FastBack Plus .
, (. . ), . , , . , . , - ( , . .). , , , , . , .
, , .
- , DIR ;
- , DOS () ;
- , . , .
:
- ;
- ;
- .
. :
- ;
- .
, , . . :
- - , (: Scan, Norton AntiVirus, Dr. Web);
- -, , ;
- - , . (: Adinf+AdinfExt, AVSP);
- - , , ;
- - , , (: FlutShot Plus);
- -, , , , , .
- , . . . . , , . , - .
, , , , , , . . .
, 1 2 , 1 2 .
3.
3.1
3.1.1.
3.2 -
1. .
1.1 - , ( (), ).
1.2 - 1 , - II 2 ; - II - - 2 ; - - , .
1.3 - (), (), .
1.4 - :
- - , ;
- , ;
- ;
-, ( );
- .
1.5 - :
- ;
- , , ;
- ;
- , , , ;
- , ;
- , ;
- ;
- ;
- ;
- ;
- , ;
- .
1.6 - , .
2. .
- :
2.1 .
2.2 .
2.3 .
2.4 , .
3. .
- :
3.1 (-) (, ) , - .
3.2 .
3.3 , , .
3.4 , , , , .
3.5 , .
3.6 , , , , .
3.7 ( , , , ).
3.8 , .
4. .
- :
4.1 , .
4.2 , , .
4.3 , , .
4.4 ( , - ).
4.5 .
5. .
- :
5.1 ( ) , , , .
5.2 - , , .
5.3 - , , .
4.
. , .
, , , , .
, - . - . . , :
- ;
- .
.
1. 1 .
2. 30 .
3. 0,8.
4. 5..
5. 1,04 ./ ..
6. 0,3 /.
.
= T * Ku * n * t ()
= 30 * 0,8 * 1 * 5 = 120 (),
-
-
Ku -
n -
t -
.
U\ = n * * Р (.)
U\ = 120 * 1,04 * 0,3 = 37,4 (),
U\-
- 1
-
.
1
| -, | 1 , |
, |
||
| 1 | 1 | 3-00 | 3-00 | |
| 2 | 1 | 7-50 | 7-50 | |
| 3 | 1 | 1-50 | 1-50 | |
| 4 | 1 | 18-00 | 18-00 | |
| 5 | 3 | 15-00 | 45-00 | |
| : | 75-00 | |||
.
, 60% 90%.
U= U\ + U
U= 37,4 + 75,0 = 112,4,
U -
U\-
U-
.
, , , , .
.
2334 /.
1934 /.
= * ()
= 30 * 88,0 = 2640,0 (),
-
: , , , .
= 0,4 * ()
= 0,4 * 2640,0 = 1056,0 (),
-
-
.
U = + ()
U = 2640,0 + 1056,0 = 3696,0 (),
U
-
-
20%, 3,2 %, ( ) 2,8 %. 26% .
U = /100 * U
U = 26/100 * 3696,0 =961,
U -
U
(26%)
, , .
= % / 100 % *
= 10,7 / 100 * 25000 = 2675,
-
% - = 10,7 %
= 25000
, , , .
U = 450 (.),
U -
U = U + U + U + + U
U = 112,4 + 3696,0 + 961,0 + 2675,0 + 450,0 =7894,4,
U -
U
U -
-
U -
.
2
| () | % | ||
| 1 |
|
112,4 | 1,4 |
| 2 | 3696,0 | 46,8 | |
| 3 | 961,0 | 12,2 | |
| 4 | 2675,0 | 33,9 | |
| 5 | 450,0 | 5,7 | |
| 6 | 7894,4 | 100 |
Sn .
Sn = 112,4 + 3696,0 + 961,0 + 2675,0 + 450,0 = 7894,4
S砠 = (112,4 / 7894,4) * 100 = 1,4%
S = (3696,0 / 7894,4) * 100 = 46,8%
S = (961,0 / 7894,4) * 100 = 12,2%
Sࠠ = (2675 / 7894,4) * 100 = 33,9%
S = (450 / 7894,4) * 100 = 5,7%
5.
5.1
:
- ;
- ;
- ;
- ;
- ;
:
- , ;
- ;
- , ;
- .
1.1 .
1.2 : , ; , .
1.3 ( )
1.4 , .
1.5 , , .
1.6 , . - , , , ( , , .); ; , , , .
1.7 , :
- 2 , - 1.2;
- , , , ; . - , , , , . 300 . 300-500 . ʠ .
- 6,0 . , - 20,0 . .
- ;
- 600-700 , 500 ;
- , ( );
- - , ) , - ;
- , (, , , , . .) . .
- ʠ , , 1,5-2,0 .
- ʠ .
- .
- , ;
- , , , . 40-60 % ( ).
1.8 , . 2 .
1.9 ( 22 6 ), , 60 .
1.10 . , , .
5.2.
1. .
1.1 , .
1.2 , . , , , , , .
1.3 .
2. .
2.1 , .
2.2 . .
2.3 . , .
2.4 , ( ). . .
2.5 - .
2.6 - , .
2.7 , .
3. .
3.1 , , , .
3.2 - , .
3.3 - , ( , . .), , , , , , .
4.1
4.2 .
. - , . ().
, , .
, .
1. . . Delphi7 - , 2005;
2. . . . , - , 1995;
3. . . . - , 2003;
4. . . Delphi 7 - , 2005;
5. . ., . . . - , 2003;
6. . ., . . . , - , 2001;
7. . . -, 2003;
8. . . - -, 2002;
9. . . AutoCAD 2005, , 2004;
10. . . - , 2005;
11. . ., . . - , 2001;
12. . . Delphi 7, -, 2003;
13. . . IBM PC - , 1996;
14. . . - , 1996.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, Grids, DBGrids, DB, DBTables, jpeg, ExtCtrls, ComCtrls,
StdCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N21: TMenuItem;
N9: TMenuItem;
N22: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N23: TMenuItem;
N31: TMenuItem;
N41: TMenuItem;
N51: TMenuItem;
N61: TMenuItem;
N71: TMenuItem;
N81: TMenuItem;
N91: TMenuItem;
N101: TMenuItem;
N111: TMenuItem;
N121: TMenuItem;
N131: TMenuItem;
N141: TMenuItem;
N151: TMenuItem;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Query1: TQuery;
StatusBar1: TStatusBar;
Label1: TLabel;
Label2: TLabel;
N13: TMenuItem;
Button1: TButton;
N14: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure N41Click(Sender: TObject);
procedure N61Click(Sender: TObject);
procedure N81Click(Sender: TObject);
procedure N71Click(Sender: TObject);
procedure N91Click(Sender: TObject);
procedure N51Click(Sender: TObject);
procedure N101Click(Sender: TObject);
procedure N121Click(Sender: TObject);
procedure N131Click(Sender: TObject);
procedure N141Click(Sender: TObject);
procedure N151Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N111Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N14Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit11, Unit7, Unit3, Unit2, Unit4, Unit5, Unit6, Unit8, Unit9, Unit10,
Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19, Unit21,
Unit20, Unit22, Unit23, Unit24, Unit25, Unit26, Unit28, Unit29, Unit30;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
Form11.ShowModal;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
form7.showmodal;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form3.showmodal;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form2.showmodal;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
form4.showmodal;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
form5.showmodal;
end;
procedure TForm1.N21Click(Sender: TObject);
begin
form6.showmodal;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
form8.showmodal;
end;
procedure TForm1.N22Click(Sender: TObject);
begin
form9.showmodal;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
form10.showmodal;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
Button1.Visible:=true;
dbgrid1.Visible:=true;
form13.ShowModal;
end;
procedure TForm1.N31Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
form24.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.N41Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
Form14.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.N61Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
form15.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.N81Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
form28.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.N71Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
form16.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.N91Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
form29.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.N51Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
form17.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.N101Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
form18.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.N121Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
form19.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.N131Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
form20.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.N141Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
form22.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.N151Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
form23.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.N23Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
form25.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.N111Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
form26.showmodal;
Button1.Visible:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DBGrid1.Visible:=false;
button1.Visible:=false;
Form1.Query1.SQL.Clear;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
Form30.showmodal;
end;
end.
unit Unit20;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls;
type
TForm20 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
ComboBox2: TComboBox;
Label6: TLabel;
Label7: TLabel;
DBComboBox1: TDBComboBox;
procedure Button1Click(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form20: TForm20;
implementation
uses Unit1, Unit17, Unit13, Unit2;
{$R *.dfm}
procedure TForm20.Button1Click(Sender: TObject);
begin
if (dbcombobox1.Text = '') or (edit1.Text = '') or (edit2.Text = '') then
MessageBox(Application.Handle, ' ', '', MB_OK + MB_ICONHAND) else
begin
Form1.Query1.SQL.Clear;
Form1.Query1.SQL.Add('SELECT DISTINCT Naimenovanie_gost as _, N_klienta as _, FIO as _, Z_s_b as __, Data_zaselenia as _ FROM _, , , 2 ');
Form1.Query1.SQL.Add('WHERE _.N_gost=.N_gost and 2.N_klienta=.N_klienta and 2.N_nomera=.N_nomera and Naimenovanie_gost='''+dbcomboBox1.Text+''' and Data_zaselenia between '''+edit1.text+''' and '''+edit2.text+''' and Z_s_b='''+combobox2.text+'''');
Form1.Query1.Open;
end;
if Form1.Query1.RecordCount = 0 then showmessage (' ') else
form20.Close;
end;
procedure TForm20.FormPaint(Sender: TObject);
begin
DBCombobox1.Items.Clear;
form2.Query1.First;
while not form2.Query1.Eof do
begin
DBCombobox1.Items.Add( form2.query1.Fields.FieldByName('Naimenovanie_gost').AsString);
form2.Query1.Next;
end;
form2.Query1.First;
end;
end.
. . . ______
Copyright (c) 2024 Stud-Baza.ru , , , .