【文章內容簡介】 一般說來安全措施是分級設置的，本 系統(tǒng) 安全性設計中采用的是用戶標識和鑒定。用 戶標識和鑒定是 系統(tǒng) 提供的最外層的安全保護措施，其方法是由 系統(tǒng) 提供一定的方式讓用戶標識自己的名字或身份，每次用戶要進入 系統(tǒng) 時， 系統(tǒng) 對用戶身份進行核實，通過鑒定后才提供 系統(tǒng) 使用權。本 系統(tǒng)采用的方法具體是：用一個用戶名來標明用戶身份， 系統(tǒng) 鑒別此用戶是否是合法的用戶，若是，則可進入下一步的核實；若不是，則不能使用 系統(tǒng) 。為了進一步核實用戶， 系統(tǒng) 要求用戶輸入密碼，為保密起見，用戶在終端上輸入的口令不顯示在屏幕上， 系統(tǒng) 核定密碼以鑒別用戶身份。 創(chuàng)建方法和步驟同 ，示例如下圖 創(chuàng)建應用工程文件 本 系統(tǒng) 的應用工程文件是用 Visual 創(chuàng)建的，選定“標準的可執(zhí)行文件”單擊“打開”進入工程的窗體文件設計。 創(chuàng)建應用窗體文件 本工程文件中有十一個應用窗體文件，下面分別是應用窗體文件的窗體格式和程序代碼文本。 創(chuàng)建關于倉庫管理程序窗體（ ） 在 visual basic 中新建一個 form，保存為 。從工具箱中選擇相應控件將 其添加到窗體中，根據需要設置其各項屬性，最后的關于倉庫管理程序窗體如圖所示。 將窗體及其各控件的屬性設置完畢后，根據需要為窗體及控件添加事件處理函數，程序如下： Private Sub CommandOK_Click() Load Formstart End Sub Private Sub Form_Load() = 關 于 倉庫 管理程序 = 0 = 倉庫 管理程序 End Sub 創(chuàng)建程序初始化窗體（ ） 在 visual basic 中新建一個 form，保存為 。從工具箱中選擇相應控件將其添加到窗體中，根據需要設置其各項屬性，最后的程序初始化窗體如圖所示。 將窗體及其各控件的屬性設置完畢后，根據需要為窗體及控件添加事件處理函數，程序如下： Private Sub Form_Load() = 20 = 歡 迎登 錄倉庫 管理程序 = vbRed = 50 = True = 1665 = / 2 / 2 = 50 End Sub Private Sub Timer1_Timer() = + 4 If = 98 Then = 100 End If If = 100 Then If = 1 Then Unload Formstart Load Formdenglu End If End If End Sub Private Sub Timer2_Timer() = / 2 / 2 = + 1 If = 36 Then = False End If End Sub 創(chuàng)建用戶登錄窗體（ ） 在 visual basic 中新建一個 form，保存為 。從工具箱中選擇相應控件將其添加到窗體中，根據需要設置其各項屬性，最后的用戶登錄窗體如圖所示。 將窗體及其各控件的屬性設置完畢后，根據需要為窗體及控件添加事件處理函數，程序如下： Dim denglu As New Dim rstdenglu As New Private Sub Command1_Click() If = Then MsgBox 請輸 入用 戶 名 , vbOKOnly, 警告 End If If = Then MsgBox 請輸 入密 碼 , vbOKOnly, 警告 End If (yonghuming = 39。39。 + + 39。39。) If Not Then If = (mima) Then = False Else i = MsgBox(請輸 入正確的密 碼 ！ , vbOKOnly, 密 碼錯誤 ) End If Else MsgBox 用 戶 名不正確！ End If End Sub Private Sub Command2_Click() Dim i As Byte Beep i = MsgBox(你 確定要退出 倉庫 管理系 統(tǒng)嗎 ？ , vbYesNo, 退出系 統(tǒng) ) If i = vbYes Then End End If End Sub Private Sub Form_Load() Set denglu = New = adUseClient Provider=。User ID=admin。Data Source=F:\倉庫 管理系 統(tǒng) \。Persist Security Info=False Set rstdenglu = New Set = denglu select * from yonghuxinxi, denglu, adOpenStatic, adLockOptimistic End Sub 創(chuàng)建倉庫管理 系統(tǒng) 主窗體（ ） 在 visual basic 中新建一個 form，保存為 。從工具箱中選擇相應控件將其添加到窗體中，根據需要設置其各項屬性，最后的倉庫管理程序主窗體如圖所示。 將窗體及其各控件的屬性設置完畢后，根據需要為窗體及控件添加事件處理函數，程序如下： Private Sub Commandsc_Click() Load Formshanchuyh End Sub Private Sub Commandtc_Click() Dim i As Byte Beep i = MsgBox(你 確定要退出 倉庫 管理系 統(tǒng)嗎 ？ , vbYesNo, 退出系 統(tǒng) ) If i = vbYes Then Unload Me End If End Sub Private Sub Commandtj_Click() Load Formtianjiayh End Sub Private Sub Commandxg_Click() Load Formxiugaiyh End Sub Private Sub Commandxxcx_Click() Load Formchaxun End Sub Private Sub Commandxxsc_Click() Load Formshanchu End Sub Private Sub Commandxxtj_Click() Load Formtianjia End Sub Private Sub Commandxxxg_Click() Load Formxiugai End Sub Private Sub f11_Click(Index As Integer) Select Case Index Case 0 Unload Me Load mainForm Case 2 Dim i As Byte Beep i = MsgBox(你 確定要退出 倉庫 管理系 統(tǒng)嗎 ？ , vbYesNo, 退出系統(tǒng) ) If i = vbYes Then End End If End Select End Sub Private Sub s11_Click(Index As Integer) Select Case Index Case 0 Load Formchaxun End Select End Sub Private Sub a11_Click(Index As Integer) Select Case Index Case 0 Load Formtianjia Case 2 Load Formxiugai Case 3 Load Formshanchu End Select End Sub Private Sub Timer1_Timer() = Now End Sub 創(chuàng)建窗體菜單 在窗體設計界面中，右鍵單擊窗體，從右鍵菜單中選擇【 menu editor? 】命令，選擇【 menu editor? 】命令將會打開【 menu editor】對話框，在菜單編輯器中編輯窗體菜單。 各菜單項的單擊事件處理函數如下所示： Private Sub f11_Click(Index As Integer) Select Case Index Case 0 Unload Me Load mainForm Case 2 Dim i As Byte Beep i = MsgBox(你 確定要退出 倉庫 管理系 統(tǒng)嗎 ？ , vbYesNo, 退出系統(tǒng) ) If i = vbYes Then End End If End Select End Sub Private Sub s11_Click(Index As Integer) Select Case Index Case 0 Load Formchaxun End Select End Sub Private Sub a11_Click(Index As Integer) Select Case Index Case 0 Load Formtianjia Case 2 Load Formxiugai Case 3 Load Formshanchu End Select End Sub 菜單編輯如圖所示 創(chuàng)建 查詢 信息窗體（ ） 在 visual basic 中新建一個 form，保存為 。從工具箱中選擇相應控件將其添加到窗體中，根據需要設置其各項屬性，最后的 查詢 信 息窗體如圖所示。 將窗體及其各控件的屬性設置完畢后，根據需要為窗體及控件添加事件處理函數，程序如下： Dim xinxi As New Dim rstxinxi As New Private Sub a11_Click(Index As Integer) Select Case Index Case 0 Unload Me Load Formtianjia Case 2 Unload Me Load Formxiugai Case 3 Unload Me Load Formshanchu End Select End Sub Private Sub