Data room Charging System (VB) (iii)-Form Design, charging system (vb)

Data room Charging System (VB) (iii)-Form Design, charging system (vb)
During the process of creating a table while typing a form, you may encounter many problems. Therefore, you can modify the form and change it to the following.
Form menu:
Form function distribution chart:


Function Analysis diagram for the first time:



Explanation:The diagram drawn this time is not the same as the original system function analysis diagram, but the basic content is not changed, but the permission function is more specific. (1) change the password, help, version information, and exit the system as a separate "system" menu. (2) Place the bills, daily bills, and weekly bills under the "checkout" level-2 sub-menu. (3) "student computer status" and "Student Computer Information Statistics" are collectively referred to as viewing the computer status. (4) Click "register" under the "operator" menu and add a common user name. The default user name and password are card numbers. Click "back" and delete the common user name represented by this card number. (5) "add or delete users" under the "Administrator" menu represents or deletes administrators and operators. You do not have permission to add or delete general users. Most of these are just some changes on the interface. In fact, the biggest changes are still their responsibilities. The Administrator only does what the administrator should do. The operator only does what the operator should do. For general users, the Administrator just goes on and off and changes the password.The above are just some of my personal understandings. If other people have different ideas, you can share them!
The VB Form Designer is used to design ______ A, form code B, object attribute C, application code D, and applications.

D

Questions about vb Form Design

I will do it for you. Changed four times. Remove errors. Debugging passed. Okay. Two lists and one Combo.

Dim List1GF As Boolean
Dim List2GF As Boolean

Private Sub commandementclick ()
If List1GF = True And List1.Text <> "" Then Combo1.AddItem List1.Text
If List2GF = True And List2.Text <> "" Then Combo1.AddItem List2.Text
End Sub

Private Sub Form_Load ()
List1.AddItem "text1"
List1.AddItem "text2"
List1.AddItem "text3"
List1.AddItem "text4"
List1.AddItem "text5"

List2.AddItem "text1"
List2.AddItem "text2"
List2.AddItem "text3"
List2.AddItem "text4"
List2.AddItem "text5"
End Sub

Private Sub listdomaingotfocus ()
List1GF = True
List2GF = False
End Sub

Private Sub List2_GotFocus ()
List2GF = True
List1GF = False
End Sub