【文章內(nèi)容簡(jiǎn)介】 一般說(shuō)來(lái)安全措施是分級(jí)設(shè)置的，本 系統(tǒng) 安全性設(shè)計(jì)中采用的是用戶(hù)標(biāo)識(shí)和鑒定。用 戶(hù)標(biāo)識(shí)和鑒定是 系統(tǒng) 提供的最外層的安全保護(hù)措施，其方法是由 系統(tǒng) 提供一定的方式讓用戶(hù)標(biāo)識(shí)自己的名字或身份，每次用戶(hù)要進(jìn)入 系統(tǒng) 時(shí)， 系統(tǒng) 對(duì)用戶(hù)身份進(jìn)行核實(shí)，通過(guò)鑒定后才提供 系統(tǒng) 使用權(quán)。本 系統(tǒng)采用的方法具體是：用一個(gè)用戶(hù)名來(lái)標(biāo)明用戶(hù)身份， 系統(tǒng) 鑒別此用戶(hù)是否是合法的用戶(hù)，若是，則可進(jìn)入下一步的核實(shí)；若不是，則不能使用 系統(tǒng) 。為了進(jìn)一步核實(shí)用戶(hù)， 系統(tǒng) 要求用戶(hù)輸入密碼，為保密起見(jiàn)，用戶(hù)在終端上輸入的口令不顯示在屏幕上， 系統(tǒng) 核定密碼以鑒別用戶(hù)身份。 創(chuàng)建方法和步驟同 ，示例如下圖 創(chuàng)建應(yīng)用工程文件 本 系統(tǒng) 的應(yīng)用工程文件是用 Visual 創(chuàng)建的，選定“標(biāo)準(zhǔn)的可執(zhí)行文件”單擊“打開(kāi)”進(jìn)入工程的窗體文件設(shè)計(jì)。 創(chuàng)建應(yīng)用窗體文件 本工程文件中有十一個(gè)應(yīng)用窗體文件，下面分別是應(yīng)用窗體文件的窗體格式和程序代碼文本。 創(chuàng)建關(guān)于倉(cāng)庫(kù)管理程序窗體（ ） 在 visual basic 中新建一個(gè) form，保存為 。從工具箱中選擇相應(yīng)控件將 其添加到窗體中，根據(jù)需要設(shè)置其各項(xiàng)屬性，最后的關(guān)于倉(cāng)庫(kù)管理程序窗體如圖所示。 將窗體及其各控件的屬性設(shè)置完畢后，根據(jù)需要為窗體及控件添加事件處理函數(shù)，程序如下： Private Sub CommandOK_Click() Load Formstart End Sub Private Sub Form_Load() = 關(guān) 于 倉(cāng)庫(kù) 管理程序 = 0 = 倉(cāng)庫(kù) 管理程序 End Sub 創(chuàng)建程序初始化窗體（ ） 在 visual basic 中新建一個(gè) form，保存為 。從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項(xiàng)屬性，最后的程序初始化窗體如圖所示。 將窗體及其各控件的屬性設(shè)置完畢后，根據(jù)需要為窗體及控件添加事件處理函數(shù)，程序如下： Private Sub Form_Load() = 20 = 歡 迎登 錄倉(cāng)庫(kù) 管理程序 = 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)建用戶(hù)登錄窗體（ ） 在 visual basic 中新建一個(gè) form，保存為 。從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項(xiàng)屬性，最后的用戶(hù)登錄窗體如圖所示。 將窗體及其各控件的屬性設(shè)置完畢后，根據(jù)需要為窗體及控件添加事件處理函數(shù)，程序如下： Dim denglu As New Dim rstdenglu As New Private Sub Command1_Click() If = Then MsgBox 請(qǐng)輸 入用 戶(hù) 名 , vbOKOnly, 警告 End If If = Then MsgBox 請(qǐng)輸 入密 碼 , vbOKOnly, 警告 End If (yonghuming = 39。39。 + + 39。39。) If Not Then If = (mima) Then = False Else i = MsgBox(請(qǐng)輸 入正確的密 碼 ！ , vbOKOnly, 密 碼錯(cuò)誤 ) End If Else MsgBox 用 戶(hù) 名不正確！ End If End Sub Private Sub Command2_Click() Dim i As Byte Beep i = MsgBox(你 確定要退出 倉(cāng)庫(kù) 管理系 統(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:\倉(cāng)庫(kù) 管理系 統(tǒng) \。Persist Security Info=False Set rstdenglu = New Set = denglu select * from yonghuxinxi, denglu, adOpenStatic, adLockOptimistic End Sub 創(chuàng)建倉(cāng)庫(kù)管理 系統(tǒng) 主窗體（ ） 在 visual basic 中新建一個(gè) form，保存為 。從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項(xiàng)屬性，最后的倉(cāng)庫(kù)管理程序主窗體如圖所示。 將窗體及其各控件的屬性設(shè)置完畢后，根據(jù)需要為窗體及控件添加事件處理函數(shù)，程序如下： Private Sub Commandsc_Click() Load Formshanchuyh End Sub Private Sub Commandtc_Click() Dim i As Byte Beep i = MsgBox(你 確定要退出 倉(cāng)庫(kù) 管理系 統(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(你 確定要退出 倉(cāng)庫(kù) 管理系 統(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)建窗體菜單 在窗體設(shè)計(jì)界面中，右鍵單擊窗體，從右鍵菜單中選擇【 menu editor? 】命令，選擇【 menu editor? 】命令將會(huì)打開(kāi)【 menu editor】對(duì)話框，在菜單編輯器中編輯窗體菜單。 各菜單項(xiàng)的單擊事件處理函數(shù)如下所示： 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(你 確定要退出 倉(cāng)庫(kù) 管理系 統(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)建 查詢(xún) 信息窗體（ ） 在 visual basic 中新建一個(gè) form，保存為 。從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項(xiàng)屬性，最后的 查詢(xún) 信 息窗體如圖所示。 將窗體及其各控件的屬性設(shè)置完畢后，根據(jù)需要為窗體及控件添加事件處理函數(shù)，程序如下： 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