全国计算机二级vb英文,计算机二级access vb部分(国外英文资料).doc-CSDN博客

计算机二级access vb部分(国外英文资料)

The 1. command button makes another command button work: CmdSave.Enabled =true

2. click the button to display; Private, Sub, bt1_Click ()

'*****Add*****

BTitle.Caption = tTest

'*****Add*****

End Sub

3, Private, Sub, Form_Load ()

Set the form header to the current date

'*****Add*****

Form.Caption = Date

'*****Add*****

End Sub

4 [10]'*****Add1*****

If rs.RecordCount = 0 Then

'*****Add1*****

MsgBox age data for non party employees"

Sage = 0

Exit Sub

Else

Sage = rs.Fields (0)

End If

'*****Add2*****

TAge = sage

'*****Add2*****

Rs.Close

Cn.Close

Set rs = Nothing

Set CN = Nothing

11 sets are difficult, 18 sets are difficult, 25 are difficult

K=inputbox ("," MSG ") / opens... Show,,,

DOCMD. openFORM/openREPORT "TEMP" opens the table / Report

Case is>=3 CASE 2 CASE 1

17] Private, Sub, btnP_Click ()

Dim I As Integer

Dim s As Integer

'*****Add1*****

Dim f (19) As Integer

'*****Add1*****

F (1) = 1:, f (2) = 1

For I = 3, To 19

'*****Add2*****

F (I) = f (I - 1) + F (I - 2)

'*****Add2*****

Next I

'data output to text box

'*****Add3*****

TData = f (19)

'*****Add3*****

18] Private, Sub, bt1_Click ()

'dynamically setting forms to record source properties

'*****Add1*****

Form.RecordSource = "qEmp""

'*****Add1*****

Refresh the form

Me.Requery

End Sub

Private, Sub, bt2_Click ()

Close window

'*****Add2*****

DoCmd.Close

'*****Add2*****

End Sub

19] Private, Sub, Form_Load ()

Set the bTitle tab to red text display

'*****Add1*****"

BTitle.ForeColor = vbRed

'*****Add1*****"

End Sub

Preview output

Private, Sub, bt1_Click ()

'*****Add2*****"

MdPnt (acViewPreview)

'*****Add2*****"

End Sub

Print output

Private, Sub, bt2_Click ()

MdPnt acViewNormal

End Sub

Output process

Private, Sub, mdPnt (flag, As, Integer)

'output in parameter condition

DoCmd.OpenReport "rEmp", flag

End Sub

20) click the output button for preview

Private, Sub, bt1_Click ()

'the message box prompts the report output (looks, style, see questions, dry legend)

'*****Add*****

If MsgBox (report preview, vbY