MetodDB
.pdf
73 – .
Private Sub ПолеСоСписком0_AfterUpdate()
Dim n As Byte
n = DCount("ТабНомер", "зпВодителиКатегории")
Me.Поле4 = "Право управления транспортным средством данной категории имеют " _
& Str([n]) & " водителей"
End Sub
# * # # * # *
(0 10)
& 10 –
+ # |
0 # * |
7 # |
n |
Byte |
) * - |
|
|
|
( + * * + «5)6»
# # + * + («, #6»)
# («,8») + * . < 3 . * # «#2 *», * . # + *- # + +, # # . -
. . «, + #-
171
6» * «5)6» * «* +» + * +
«, +» # #:
Private Sub ПолеСоСписком6_AfterUpdate()
Dim n As Byte
Dim tn As Byte
Dim p As Double
Dim tp As Double
Dim pr As Double
n = DCount("НоЗаказа", "зпЗаказы", _ "ТабНомер =" & Me.[ПолеСоСписком6]) tn = DCount("НоЗаказа", "зпЗаказы") p = DSum("Цена", "зпЗаказы", _ "ТабНомер =" & Me.[ПолеСоСписком6]) tp = DSum("Цена", "зпЗаказы")
pr = Round(p / tp * 100, 2)
Me.Поле8 = "Выбранный водитель выполнил " & n
& _
" заказов из " & tn & _
", его выручка составила " & p & " рублей из " & tp & ", что составляет " & pr & "%"
End Sub
# * # # * # *
(0 11)
& 11 –
+ # |
0 # * |
7 # |
n |
Byte |
) , *# * *- |
|
|
* |
tn |
Byte |
" / |
p |
Double |
+ , *#- |
|
|
* * * |
tp |
Double |
+ |
pr |
Double |
( + + # |
|
|
|
172
74 – !
*# + # # ( 74).
! *
" *# * . .:
+, * * # . -
SQL, # #, # * # *#-
* * #. ) . # -
# *. , * #.
.
1
«5)6» #. , * .
# #, < 18, # .-# + + * . *- # .
2
«5)6» #. , * *
# #, < 18, # .
# + + # # +, /
*# . +.
173
3
«5)6» # # + * *. -
#. , * * # . # +-
+ / + * *
.
4
«5)6» # # + * -. #. , * #
. # + + / + # * -
.
5
«5)6» # # + * #-
+. #. , * # +
# . # + + / +
# * .
6
«5)6» #. , * # # #, < 18, # .
# + + , # #
*# # # *.
7
«5)6» # # + * .
#. , * # .-# + + / + * /-.
8
«5)6» # # + * -. #. , * #
174
. # + + / + *# *
.
9
«5)6» # # + * .
#. , * # .-# + + / + *# * .
10
«5)6» # # + * *.
#. , * * # .
# + + / + # * .
11
«0%3» # «3». «5)6» -
# # + * . #. , * # . # + + - / + +/ + 0%3.
12
«5)6» # # + * . -
#. , * # . # +-
+ / + *# * .
13
«5)6» # # + * #- +. #. , * # + #
. # + + / + * -
.
14
«5)6» # # + * + .
#. , * + # .
175
# + + , # #
*# # *.
15
«5)6» # # + * .
#. , * # .
# + + / + # .
176
-# ! 8 # ! 0 20. %&/-/ / # %' & '(. $.8% '/ ! #-9'
3 * – # * * + *
.
1
/ * # * # * - * * Access . 7 # * + + + #-
*, # + * * - # . # + # *
* # # *.
+ * * # + / +:
# + * Access, -
* * , # * « »,
. * * / * *. - + * . * . +
* + *;
## + + * -
* # ,
* . + + .
+ * # + + * *
* #, * . * .
# + *,
+ # . + # . *. ,
+ * * Access -
+ + , * + +, + #
+ * # + # +. $* + *
* . + + - * *, . " + - * * +. ( , +
177
. * +,
# # * # +. ( # *
+ + + MDB, MDE, ACCDB ACCDE. +
* / / #, + # + * +
# . #.
2 *. ', #-
* # .. "
*. ', + + + # +
+ + * + 4-
* *.
7 « *» ## «#» *
«Access». # «+ » + -
* * . # «"», *
«" * ». ' # « + + + *» -
. # «")». «+ » *-
*, * +. ! *
*, / / . ( + + # -
. # "). 1 * + * *. " +-
* * . *, * +, * -
. + #.
, 4 * * *. ( + -
+ * * # «1 * Access»
##* «, *» « *». 1 * , * -
. * *, – * 4- * * * (# *, *, *, * ).
2 )
# * *. *
. # * + *
* * *, . / *.
178
, *# < 4, # + * +- * .
, # / # «Office» «, * Access» # * *. + - *, # + «1 * Access» ##* «,-
*» « *» ( 75).
75 –
179
76 – "
, + * # * * ( 76).
# *. 7 « *»
##* «#» * «Access». , -
* * ( , #
+ * *). *# + < 4.
! *
" *# * . .:
+, # , *# + * # -
+ * * *, # - / * * # *# + -
.
.
( + :
1. # * *. - * . # * +-
* * * *, . /
*. , *# < 11, # + *
+ * .
180