MetodDB
.pdf9
«7 , *» # * . - # + «+» # # *#
.
10
«) *» # * . #- + «+» # # . -
# * * .
11
# + «+» # * * %"$ # # * .
12
# + «+» # .
# *# * * .
13
«,» # * . # +
«+» # # . # -
* .
14
# + «+» . -
# * * * + .
191
15
«) *» # * . # + -
«+» # # .
* # + .
192
-# ! 8 # ! 0 23. $2-@% . / #>/"! . &$!32 " & '
5 )
) # * < 19 # # * MS ACCESS # + 4 * # *, # + / 4-
* * * . , # + 4 #-
# + + # + . * #-
, # + 4. 2 + 4 * # *
+ + ., + # *. #
# + # + * * * 4 * # 4-
* # *, # + / * 4 *. ,-
* 4 * #* * # * (0 12):
& 12 – ( 1
" 4 * # |
; * + |
Application |
# . MS ACCESS. |
Form |
, + MS ACCESS |
Report |
, + MS ACCESS |
Control |
- # + |
Screen |
" + , # +, |
|
/ . |
DoCmd |
( # |
" 4 * . *, # / # *
+ 4 #. " 4 DoCmd # + #
* Microsoft Access # Visual Basic. # /
*# + + * , *
# +. 7 #,
OpenForm 4 DoCmd # + * .
) 4 # * MS ACCESS # 4 * # *, # + /, #, #
* # +:
• Database – # + * *;
193
•Querydefs – # #;
•Querydef – # #;
•Recordset – # # *
*# + #.
( + # / + # # + # + * 4 -
# Recordset:
•MoveFifst - , / # #;
•MoveLast - , / # #;
•MoveNext - , / / #.
, # #* # #, / #, #-
«(» EOF, # # #* # + # # # BOF.
( + + 4 # Recordset # 4 Database – Openrecordset. –
* # + * SQL. ( + + *
# * Edit Update. 7 #, # *
# + Cost 2 .
R.Edit
R!Cost=R!Cost*2
R.Update
2 )
1. 7 # # + + «( *» *-
# # # . ( *
. * + + # . * + # #. , # + «5)6».
«5)6» # #. ,
# # * «1 *
». + 5, 10, 15, 20, 30. - * -
194
+ ( 83). # + # «(» + + «)(» ( 84).
83 –
«'$»
84 – (
«'$»
" * Visual Basic + # :
Public |
Sub Add_Data(n |
As Integer) |
||
Dim db |
As |
Database |
' |
База данных |
Dim rs |
As |
Recordset |
' |
Набор записей |
Dim k As Integer |
' |
Параметр цикла |
||
Dim dl |
As |
Date |
' |
Сохранение последней да- |
ты |
|
|
|
|
Set db |
= CurrentDb |
|
|
|
Set rs |
= db.OpenRecordset("Даты") |
|||
rs.MoveLast |
' |
на последнюю запись |
||
dl = rs!Дата |
' |
сохранение последней за- |
||
писи |
|
|
|
|
For k = 1 |
To n |
|
|
|
rs.Edit |
|
|
|
|
rs.AddNew |
|
|
|
|
rs!Дата = |
dl + 1 |
|
|
|
195
rs.Update
dl = dl + 1
Next k
End Sub
& 13-
+ #- |
0 # * |
7 # |
|
|
|
|
|
|
db |
Database |
, / * * |
rs |
Recordset |
, * «( *» |
k |
Integer |
, |
dl |
Date |
# * |
|
|
«( *» |
n |
Integer |
# *, # / - |
|
|
+ * |
# + # «)(» «* +» * * «, +» # # -
* +:
Private Sub КД_AfterUpdate()
Add_Data Val(Me.КД)
End Sub
0 # # . * + # # «)(» «( *» + + *
.
2. «5)6» # #. 7 # # + * # # # # #- +. 0 # . + + # . # #
*.
# # :
Public Sub StoreList()
Dim db As Database ' База данных
196
Dim |
rs As Recordset ' Набор записей |
||
Dim |
s As |
String |
|
Set |
db = |
CurrentDb |
|
Set |
rs = |
db.OpenRecordset("ЗапасТоплива") |
|
rs.MoveFirst |
|
||
s = |
"" |
|
|
Do Until |
rs.EOF |
|
|
|
s = s & rs!МаркаТоплива & " - " & _ |
||
rs!КоличТоплива & Chr(10) & "; |
" |
||
rs.MoveNext
Loop
Forms!ГКФ!Поле26 = s
End Sub
& 14 –
+ |
#- |
0 # * |
7 # |
|
|
|
|
|
|
|
|
db |
|
Database |
, / * * |
rs |
|
Recordset |
, * «( *» |
s |
|
String |
, + + * # |
|
|
|
«,26» |
«5)6» # «,26» # «) #30» ( 85). # «* +» *
* «7 . #» # + #:
Private Sub Кнопка30_Click()
StoreList
End Sub
( + * # * «5)6» # «,26» #-
* # * #, + * + «2» * «5)6» #-
#:
197
Private Sub Form_Load()
StoreList
End Sub
85 - & ,
2
.
86 – & ,
2
.
0 # «,26» # * # * # # #-
+.
! *
" *# * . .:
+, * * # +,
, # * # *# * * #. ) . # # *. , -
* #.
.
1
«5)6» # # + *
#. , * # . # +-
+ + *# * *
. # *# ,
# *# * <14.
198
2
«5)6» # # + *
#. , * # . # +-
+ + *# * . - # , # *#
* <14.
3
«5)6» # # + * ,
# #. , * , + -
# . + #
«*» # «) 7» . +
+, # #.
4
«5)6» #, # # + # + * # . , * # , . + # #
. # + + , / *-
#.
5
«5)6» # # + *
#. , * # . # +-
+ *
* +.
6
«5)6» # # + * # (+ ) #. , * #
# . # + + -
* * # # .
199
7
«5)6» # # + * - / #. , * /
# . # + + * /
* +.
8
«5)6» # # + * #-
#. , * #
# . # + + * # . *#.
9
«5)6» # # + * # *
.#. , * # * . -
# . # + + * # . *#.
10
«5)6» # # + * * -
#. , * * # . # + +
# * . * *-
.
11
«5)6» # # + * 0%3
#. , * 0%3 # . # +-
+ 0%3 , # # /
/ .
12
«5)6» # # + * * -
#. , * * # . # + +
200