,,,
:
220105 22 02 07
|
______ ..
______ ..
- , , , . .
, . , : , , .
. , . . .
(): , , , , .. ( , ) , , .
, , .
MS Access. , MS Office, .
1
:
Intel Pentium 4 CPU 2.66GHz / RAM 512 Mb / HDD 38,6 Gb Samsung SyncMaster 753DF, Windows MS Office 2003, Epson Stylus C43SX.
1.2MS Office 2003 , .
, , . , . Office , , , , Office 2003 , .
: Microsoft Word, Microsoft Excel Microsoft Access.
Microsoft Word : , , , ( *.pcx *.bmp), . , , . Word , , , , , , , , . Word , , , , . . , , . , Word - . Word . .
Microsoft Excel , . (, , ), , . , .
Excel , . , , (, ) . . . , . ., , ( ) .
, , , . Microsoft Excel ( ) .
Microsoft Access . , . , . . , , , , .
:
- ;
- ;
- .
:
- , ;
- , ;
- , , .
:
- , -;
- , , , , , WEB-;
- , , .
Microsoft Access , , , . - Visual Basic for Applications (VBA). 2.4 .
Windows XP Professional Windows 2000 Professional (, , ) Windows 98 Windows ME ( Plug and Play, ). Windows XP Professional , . , .
Windows XP Professional Windows NT Windows 2000, 32- . Windows XP Professional, Windows 2000, . , Windows NT 4.0 Windows 95/98/ME . .
, . . .
, Windows. DLL, , , , , .
. , Windows. , Windows XP Professional , Windows.
, , . , , , . , ; 4 .
Windows XP Professional EFS
Windows 2000, Windows XP Professional . , , . Windows 2000.
Microsoft Office Access Microsoft Office . , Access , . , . Microsoft Access
, , Microsoft SQL Server, Delphi .
Microsoft Access . :
- ;
- ;
- , ;
- ;
- , .
, , , , , , . , , SQL (Structured Query Language).
SQL , , Microsoft Access. SQL , , , DDL Data Definition Language . , , () .
DDL:
CREAT TABLE . .
DROP TABLE . .
ALTER TABLE . , .
CREAT VIEW . SQL .
DROP VIEW .
ALTER VIEW . .
CREAT INDEX . , .
DROP INDEX - .
:
DELETE . , , . , ,
INSERT . . , .
UPDATE . , .
Data Query Language (DQL)
SELECT . , , .
SELECT , , . . (DISTINCT) (ALL, ). , , * () . , , , . , , , , .
FROM SELECT, . , . , , . ( n , ).
WHERE , , , , . .
WHERE :
{ =, < >, >, <, >=, <= }, .
Between A and B . , , .
Not Between A and B, , , .
IN () , . . NOT IN (), , .
LIKE NOT LIKE. LIKE , , , , . NOT LIKE .
IS NULL. , . . : . : < >IS NULL < > IS NOT NULL. ( ) , IS NULL (TRUE), IS NOT NULL (FALSE), IS NULL , IS NOT NULL .
GROUP BY .
HAVING , .
ORDER BY , .. , .
, . Microsoft Access . . , . , . , , , .
. . , . . , , , . , , , .
. 젠
. , . . . , , , .
() VBA (Visual Basic for Applications). , (, / , , . .). VBA, .
Visual Basic for Applications (VBA) Microsoft Microsoft Office. VBA . , VBA . Visual Basic Access. VBA , , Access . Visual Basic , , , . , : , .
Microsoft Access 2003 :
- Microsoft SQL Server. Microsoft Access, Microsoft SQL Server, Microsoft SQL Server SQL Server Microsoft Access . Microsoft Access
Microsoft Access , , , . SQL Server, , , , , Microsoft SQL Server Design Tools.
- Microsoft Access . Microsoft Access , , dBASE, Paradox ; Microsoft Access Microsoft Access .
- Microsoft Outlook Microsoft Exchange. Microsoft Outlook Microsoft Exchange Server Microsoft Outlook Microsoft Exchange Server. , Microsoft Outlook , Microsoft Word.
- . Microsoft Access .
2.
2.1
.
:
1) :
- ;
- ;
- ;
- ;
- ;
- ;
-
- ;
- ;
2) :
- ;
- ;
- ;
3) :
- ;
- ;
- .
2.2
|
|
|
|
|
2.3
1 :
- [, ,
];
- [, 60 , ,
];
2 :
- [, ,
];
- [, 30 , , ];
3 :
- [, ,
];
- [, 15 , ,
];
- [, 5 , ,
];
- [, 10 , ,
];
4 :
- [, ,
];
- [, 50 , ,
].
- [, 20 , ,
].
- [, 20 , ,
].
- [, 20 , ,
].
- [, 20 , ,
].
- [, 20 , ,
].
5 :
- [, ,
];
- [, 10 , ,
];
6
- [, , ];
- [, 20 , ,
]
- [, 20 , ,
]
- [, 20 , ,
]
2.4
: .
.
:
- ;
- ;
- ;
- .
, ,
, , .
,
, , , .
, ,
, , .
Ի .
4
: , , , , , 堠
: , , , , , 堠
: , ,
2.5
.
:
1) Windows ;
2)MS Access 2002;
3) ;
4) :
- INTEL 386;
- 32 .
3.1
:
- ;
- ;
- ;
- .
, :
- ;
- ;
- ;
- .
.
,
:
- ;
- ;
- ;
- .
,
.
, , .
, .
,
.
, , .
, .
,
.
, , .
, .
3.2
, :
- ;
- ;
- ;
- ;
- ;
- .
, .
, .
3.
2.
, , MS ACCESS, , . . , , 2,5 . . .
1-
|
|
|
||
, . | 12000 | |||
, | 5 | |||
, , / | t . | 0,5 | ||
, , / | t . | 2 | ||
, , / | t . | 6 | ||
, % | % | 50 | ||
, % | . | 15 | ||
, % | 0,35 | |||
0,2 | ||||
, % | 10 | |||
- 1 , | N | 2 | ||
1 / | / | 1,16 | ||
, | N | 0,06 | ||
, | N | 0,7 | ||
, 2 |
S 2 |
12 |
|
|
, | h | 2,80 | ||
13 , . |
3 |
1850 | ||
, . | 32000 | |||
, . | 8000 |
- 頠 . : , , , . . :
I ():
-
-
-
-
-
-
:6
II :
) :
-
-
-
-
-
-
-
: 7
) :
-
-
-
-
-
:5
III :
-
- ,
-
:3
IV . : | -: | 6 |
- - - |
- - - |
2 -
/ | |||
1 | 2,5 | 6 | |
2 | 2 | 12 | |
3 | 2 | 3 | |
4 | 1,5 | 6 | |
5 | 0 |
FP :
FP=∑Ci*i, i=1,5,
Ci , i - .
FP=6*2,5+12*2+3*2+6*1,5=54
:
Q=FP*,
FP - , - , , MS ACCESS =9:
Q=54*9=486
4
3 -
KP | |
2- |
0,8 |
2-3 | 1 |
3-5 | 1,1-1,2 |
5-7 | 1,3-1,4 |
7 | 1,5-1,6 |
(4.1) :
Q = ;
, ;
- , , B=1,5;
S , , =80.
|
|
tu=11.39 ()
(4.2) :
Q = ;
, ;
R , , 젠 R=20.
tp= 30()
(4.3) :
t
t =12()
(4.4) :
t = 61()
(4.5) :
t= 30()
(4.6) , :
t=0.75*t
t=0.75*30=23()
(4.7) :
=tu+tp+tn+t+t+t=168()
5.
(5.1)
= 12000 (.)
(5.2)
=*12,
12 ,
=12000*12=144 000 (.)
(5.3)
= ,
% =50
= 144 000*50 = 72 000 (.)
100
(5.4)
=+
=144 000+72 000=216 000 (.)
(5.6)
% = + 1%,
= 44 ;
= 365 ;
= 104 ;
= 12
% = 44*100% + 1% = 22,36%
36510412 44
(5.7)
=
= 216 000*22,46 = 48295,92 (.)
100
(5.8)
= +
= 216000 + 48295,92 = 264295,92 (.)
(5.9)
- = * 1.7
- =264295,92 * 1.7 =396443,88 (.)
1,7- .
(5.10)
= - * 1.26,
1,26 ( ), 26% 01.01.2005
= 396443,88 * 1.26 = 499519,29 (.)
(5.11)
=( ) * t,
=(3651041244)*8=1640 (.)
(5.12)
=
= 396443,88 = 345,20 (.)
1640
(5.13)
= * T
= 345,20 * 168 = 57931,48 (.)
6.
4-
() | - | () | |
1350,00 | 2 | 2700,00 | |
4 | 130,00 | 1 | 130,00 |
3,20 | 3 | 9,60 | |
- | 8,00 | 2 | 16,00 |
1,50 | 1 | 1,50 | |
10,00 | 3 | 30,00 | |
12,00 | 2 | 24,00 | |
6,05 | 2 | 12,10 | |
12,5 | 1 | 12,50 | |
: | = | 2935,7 |
7
(7.1) , :
.. = + +
(7.1.1.) :
=t * ( )
t , 堠
= 0,5 * (365 104 12) = 124,5 (.)
(7.1.2.) :
= t * 12
t = 2
= 2 * 12 = 24 (.)
(7.1.3.) :
=t
t = 6 , 堠
.. =124,5 + 24 + 6 = 154,5 (.)
(7.2) :
= ( ) * t * . .
= 1,
= (36510412)*8*1154,5= 1837,5 (.)
(7.3) :
(7.3.1.) :
= 1 * N * N *
1/ = 1,29, 1 / .
N = 2,
N = 0,06,
=1,29 * 2 * 0,06 * 1837,5 = 255,71 (.)
= / * N*
N = 0,4,
= 1,29 * 0,4 * 1837,5 = 852,37 (.)
. = / * N.*
N. = 0,3,
= 1,29 * 0,3 * 1837,5 = 639,28 (.)
∑= + + .
∑= 255,71 + 852,37 + 639,28 = 1747,35 (.)
(7.4.)
(7.4.1) :
= *./ ,
100
./ = 4,2%, ,
= 32000 * 4,2 = 4800 (.)
100
(7.4.2) :
=*/100
=3*h*S2,
3 = 1850 (.) 3 ;
S2 - , S2 =12;
h - , h = 2,80.
=1850*12*2,80=62160(.)
=62160*0,35/100=217,56(.)
:
=+=4800+217,56=5017,56(.)
(7.5) :
=*=32000*0,2=6 400,00.
(7.6.) , :
5-
- |
(.) | |
|
1 747,35. | |
5 017,56. | ||
|
6 400,00. | |
|
13 164,91. |
(7.7.) :
13 164,91
1= = =7,17
. 1837,5
(7.8.) :
t=tn+t+t
t=12+61+23=96()
(7.9.) :
=1*t
=7,17*96=685,70
8.
8.1.
6 -
- |
(.) | |
|
57 931,48. | |
.. |
2 935,70. | |
|
685,70. | |
S |
61 552,89. |
(8.2) :
= S + = S* .= 61 552,89 * 1,08=66477,13 ()
10 . 70% , 7 .
(8.3.) :
= =66477,13 /7=9496,74 ()
N -
, .
4
, , -, -, -, -, . , :
- , , ;
- ;
- ();
- ;
- - - ;
- ;
- .
, , :
1. 6 8- .
2. 2- . 10 .
3. - , , .. , , , .
:
4. , .
5. , , , .., .
6. .
7. . , . .
8. .
9. , .
10. .
:
1. , .
2. :
a. , , , , ..;
b. ;
c. ( , , (UPS), ) (220, 50).
11. - .
12. . .
13. , , .
14. .
15. : , , , , .
16. .
17. , .
18. . . .
19. () , , , , , .
20. : UPS, (, ..)
21. .
:
1 .
2 .
3 .
4 .
5 ( 3 ) . .
6 , . .
7 :
7.4 , , .. ;
7.5 ;
7.6 ;
7.7 ;
7.8 ;
7.9 , ;
7.10 ;
7.11 ;
7.12 : , , .
8 .
9 , , , .
10 .
11 .
12 , :
12.1 , ;
12.2 - ;
12.3 , .
13 , .
14 , , .
15 , .
16 , 2-3 , .
17 , , , .
18 , , .
19 , 5 ̠ , .
20 , - , , .
:
1. , , .
2. , .
3. .
4. , 01. .
5. : , ; , .
, , . .
6. , 03.
7. .
:
1. .
2. UPS .
3. . , .
Private Sub Form_Load()
End Sub
'------------------------------------------------------------
' 1_Click
'
'------------------------------------------------------------
Private Sub 1_Click()
On Error GoTo 1_Click_Err
DoCmd.OpenForm "", acNormal, "", "", , acNormal
1_Click_Exit:
Exit Sub
1_Click_Err:
MsgBox Error$
Resume 1_Click_Exit
End Sub
'------------------------------------------------------------
' 3_Click
'
'------------------------------------------------------------
Private Sub 3_Click()
On Error GoTo 3_Click_Err
DoCmd.OpenForm "", acNormal, "", "", , acNormal
3_Click_Exit:
Exit Sub
3_Click_Err:
MsgBox Error$
Resume 3_Click_Exit
End Sub
'------------------------------------------------------------
' 5_Click
'
'------------------------------------------------------------
Private Sub 5_Click()
On Error GoTo 5_Click_Err
DoCmd.OpenForm " ", acNormal, "", "", , acNormal
5_Click_Exit:
Exit Sub
5_Click_Err:
MsgBox Error$
Resume 5_Click_Exit
End Sub
'------------------------------------------------------------
' 7_Click
'
'------------------------------------------------------------
Private Sub 7_Click()
On Error GoTo 7_Click_Err
DoCmd.Quit acExit
7_Click_Exit:
Exit Sub
7_Click_Err:
MsgBox Error$
Resume 7_Click_Exit
End Sub
'------------------------------------------------------------
' 9_Click
'
'------------------------------------------------------------
Private Sub 9_Click()
On Error GoTo 9_Click_Err
DoCmd.Close acForm, ""
9_Click_Exit:
Exit Sub
9_Click_Err:
MsgBox Error$
Resume 9_Click_Exit
End Sub
Private Sub Form_Load()
End Sub
'------------------------------------------------------------
' 1_Click
'
'------------------------------------------------------------
Private Sub 1_Click()
On Error GoTo 1_Click_Err
DoCmd.OpenForm "", acNormal, "", "", , acNormal
1_Click_Exit:
Exit Sub
1_Click_Err:
MsgBox Error$
Resume 1_Click_Exit
End Sub
'------------------------------------------------------------
' 3_Click
'
'------------------------------------------------------------
Private Sub 3_Click()
On Error GoTo 3_Click_Err
DoCmd.OpenForm "", acNormal, "", "", , acNormal
3_Click_Exit:
Exit Sub
3_Click_Err:
MsgBox Error$
Resume 3_Click_Exit
End Sub
'------------------------------------------------------------
' 5_Click
'
'------------------------------------------------------------
Private Sub 5_Click()
On Error GoTo 5_Click_Err
DoCmd.OpenForm " ", acNormal, "", "", , acNormal
5_Click_Exit:
Exit Sub
5_Click_Err:
MsgBox Error$
Resume 5_Click_Exit
End Sub
'------------------------------------------------------------
' 7_Click
'
'------------------------------------------------------------
Private Sub 7_Click()
On Error GoTo 7_Click_Err
DoCmd.Quit acExit
7_Click_Exit:
Exit Sub
7_Click_Err:
MsgBox Error$
Resume 7_Click_Exit
End Sub
'------------------------------------------------------------
' 9_Click
'
'------------------------------------------------------------
Private Sub 9_Click()
On Error GoTo 9_Click_Err
DoCmd.Close acForm, ""
9_Click_Exit:
Exit Sub
9_Click_Err:
MsgBox Error$
Resume 9_Click_Exit
End Sub
Private Sub 2_Click()
On Error GoTo Err_2_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1055) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1074) & ChrW(1097) & ChrW(1080) & ChrW(1082) & ChrW(1080)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_2_Click:
Exit Sub
Err_2_Click:
MsgBox Err.Description
Resume Exit_2_Click
End Sub
Private Sub 3_Click()
On Error GoTo Err_3_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1057) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1082) & ChrW(1080)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_3_Click:
Exit Sub
Err_3_Click:
MsgBox Err.Description
Resume Exit_3_Click
End Sub
Private Sub 12_Click()
On Error GoTo Err_12_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1091) & ChrW(1087) & ChrW(1082) & ChrW(1080)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_12_Click:
Exit Sub
Err_12_Click:
MsgBox Err.Description
Resume Exit_12_Click
End Sub
Private Sub 13_Click()
On Error GoTo Err_13_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1050) & ChrW(1086) & ChrW(1084) & ChrW(1087) & ChrW(1087) & ChrW(1083) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1091) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1077)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_13_Click:
Exit Sub
Err_13_Click:
MsgBox Err.Description
Resume Exit_13_Click
End Sub
Private Sub 22_Click()
On Error GoTo Err_22_Click
Dim stDocName As String
stDocName = ChrW(1050) & ChrW(1086) & ChrW(1084) & ChrW(1087) & ChrW(1087) & ChrW(1083) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1091) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1077)
DoCmd.OpenReport stDocName, acPreview
Exit_22_Click:
Exit Sub
Err_22_Click:
MsgBox Err.Description
Resume Exit_22_Click
End Sub
Private Sub 26_Click()
On Error GoTo Err_26_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1042) & ChrW(1099) & ChrW(1095) & ChrW(1080) & ChrW(1089) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_26_Click:
Exit Sub
Err_26_Click:
MsgBox Err.Description
Resume Exit_26_Click
End Sub
Private Sub 28_Click()
On Error GoTo Err_28_Click
DoCmd.Close
Exit_28_Click:
Exit Sub
Err_28_Click:
MsgBox Err.Description
Resume Exit_28_Click
End Sub
Private Sub 33_Click()
On Error GoTo Err_33_Click
Dim stDocName As String
stDocName = ChrW(1052) & ChrW(1072) & ChrW(1082) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(49)
DoCmd.RunMacro stDocName
Exit_33_Click:
Exit Sub
Err_33_Click:
MsgBox Err.Description
Resume Exit_33_Click
End Sub
ר
1. . ., . ., . . : . .: : -, 2004
2. . SQL: . .: , 2001.
3. . . : , , . - : , 2001.
4. . . MS ACCESS 2002. . - -, 2002.
5. . ., . . , . . SQL : . .- .: ,2002.
6. . ., . . MS ACCESS 2000 30 . .: - ,2001.
7. . . UML. - : - , 2002.
8. . . : . .: - . , 2003.
9. . . : . .: , 2002.
10. . . : . .: , 2002.
:
Copyright (c) 2024 Stud-Baza.ru , , , .