機房收費系統VB版（三）——表單設計，收費系統vb

機房收費系統VB版（三）——表單設計，收費系統vb
    在邊建表邊敲表單的過程中，遇到很多問題，所以一邊改，一邊繼續進行，最後將表單改成下邊這個模樣。
表單菜單： 
表單功能分布圖：


第一次做的功能分析圖：



解釋說明：     這次畫的圖與最初畫的系統功能分析圖不太一樣，但是基本內容沒怎麼變，只是將許可權功能分的更明確一些。（1）將修改密碼，協助，版本資訊，退出系統提出來，作為單獨的一個“系統”菜單。（2）將結賬，日賬單，周賬單統一放到“結賬”二級子功能表下。（3）將“學生上機狀態”與“學生上機資訊統計”統稱為查看上機狀態。（4）點擊“操作員”菜單下的“註冊”，同時添加一般使用者名稱，使用者名稱和密碼預設為卡號。點擊“退卡”時，同時刪除此卡號代表的一般使用者名稱。（5）“管理員”菜單下的“添加或刪除使用者”代表的是或刪除管理員和操作員。對一般使用者無權進行添加或刪除。      這些大部分只是一點介面上的改動，其實最大的改變還是各負其責。管理員只做管理員該做的事情；操作員只做操作員該做的事情；一般使用者呢，就只是上下機，以及修改密碼。      以上只是個人的一些理解而已，如果其他人有不同的想法大家可以一起交流哦！
VB表單設計器是用於設計______ A、表單的代碼 B、對象的屬性 C、應用程式的代碼 D、應用程式

D
 
vb表單設計的題

我給你做。改了4次。去除錯誤。調試通過。好了。2個LIST，1個Combo。

Dim List1GF As Boolean
Dim List2GF As Boolean

Private Sub Command1_Click()
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 List1_GotFocus()
List1GF = True
List2GF = False
End Sub

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