【正文】 Integer 39。定義一個日志標(biāo)識變量 39。*** “添加”貨品出庫信息按鈕的事件過程 *** Private Sub Cmd_Add_Click() For i = 0 To 5 39。單擊“添加”按鈕之后，清空文本框中的內(nèi)容 Text1(i).Text = Next i = select * from tb_out order by ID If 0 Then StrNum = Val((ID)) + 1 39。使出貨編號加1 Select Case Len(Trim(StrNum)) 39。位數(shù)不足者補(bǔ) 0 Case 1 StrTemp = 00000 Case 2 StrTemp = 0000 Case 3 StrTemp = 000 Case 4 StrTemp = 00 Case 5 StrTemp = 0 Case 6 StrTemp = End Select Text1(0).Text = L amp。 Trim(StrTemp) amp。 Trim(Str(StrNum)) Else Text1(0).Text = L000001 39。給出貨編號賦一個初值 StrNum = 1 End If Text1(1).SetFocus = True = False End Sub Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 39。如果按下的是回車鍵，則光標(biāo)落到文本框當(dāng)中 Text1(3).SetFocus End If End Sub Private Sub DataGrid1_Click() Call JionBack 39。 調(diào) 用 數(shù) 據(jù) 反 綁 定 過 程 39。調(diào)用數(shù)據(jù)反綁定過 程 = True = False End Sub Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 39。如果按下的是回車鍵，則光標(biāo)落到文本框當(dāng)中 Text1(5).SetFocus End If End Sub Private Sub Form_Load() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。運(yùn)用 API 函數(shù) SetWindowPos，來實現(xiàn)使窗體置前的功能 39。利用代碼連接數(shù)據(jù)庫 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_out 39。連接出庫信息數(shù)據(jù)表 = ( ) / 2 39。使窗體居中 = ( ) / 2 = Date End Sub 、查詢界面實現(xiàn) 系統(tǒng)查詢主要分為入庫貨品，出庫貨品，庫存貨品。分別都以貨品名稱進(jìn)行查詢。每個界面都可以實現(xiàn)顯示全部產(chǎn)品。以 控件 DATAGRID 來實現(xiàn)全部產(chǎn)品的顯示信息。 源代碼如下： Private Sub Form_Load() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。運(yùn)用 API 函數(shù) SetWindowPos，來實現(xiàn)使窗體置前的功能 39。通過代碼連接數(shù)據(jù)庫 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_kcxx 39。連接庫存信息數(shù)據(jù)表 = ( ) / 2 39。使窗體居中 = ( ) / 2 End Sub Private Sub Text1_Change() 39。通過文本框的 Change 事件來動態(tài)地對庫存貨品信息進(jìn)行模糊查詢 On Error Resume Next 39。執(zhí)行錯誤處理 39。執(zhí)行模糊查詢 = select * from tb_KCXX where kc_name like 39。% + + %39。 End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub 、 系統(tǒng)權(quán)限設(shè)置 界面 實 現(xiàn) 操作員權(quán)限設(shè)置界面可以對每個注冊用戶的訪問權(quán)限進(jìn)行設(shè)置，具體為期初設(shè)置、貨品管理、查詢統(tǒng)計、數(shù)據(jù)報表、系統(tǒng)維護(hù)等權(quán)限授權(quán)。 源程序代碼： Dim itmX As ListItem 39。定義一個 ListItem 對象 Dim a, c Dim key As String 39。定義字符串變量 39。*** 單擊“取消”按鈕的事件過程 *** Private Sub Cmd_cancel_Click() = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False End Sub Private Sub Cmd_exit_Click() Unload Me End Sub 39。*** 給操作員授權(quán)的事件過程 *** Private Sub Cmd_sq_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。運(yùn)用 API 函數(shù) SetWindowPos，來實現(xiàn)取消窗體置前的功能 Call main 39。調(diào)用公共模塊中的連接數(shù)據(jù)庫函數(shù) = select * from tb_enter 39。判斷數(shù)據(jù)庫中是否存在該操作員 39。 If 0 Then c = MsgBox(確認(rèn)要將所選權(quán)限的信息賦給該操作員嗎 ?, 33, 提示信息 ) If c = vbOK Then 39。給操作員分配權(quán)限 Set adoRs = (UPDATE tb_enter SET [1]= 39。 + Str() + 39。, [2]= 39。 + Str() + 39。,[3]= 39。 + Str() + 39。,[4]= 39。 + Str() + 39。,[5]= 39。 amp。 _ Str() + 39。,[6]= 39。 + Str() + 39。,[7]= 39。 + Str() + 39。,[8]= 39。 + Str() + 39。,[9]= 39。 + Str() + 39。,[10]= 39。 + Str() + 39。,[11]= 39。 amp。 _ Str() + 39。,[12]= 39。 + Str() + 39。,[13]= 39。 + Str() + 39。,[14]= 39。 + Str() + 39。,[15]= 39。 + Str() + 39。,[16]= 39。 + Str() + 39。,[17]= 39。 amp。 _ Str() + 39。,[18]= 39。 + Str() + 39。,[19]= 39。 + Str() + 39。,[20]= 39。 + Str() + 39。,[21]= 39。 + Str() + 39。 where M_name=39。 + + 39。) MsgBox 成功授權(quán) !!, 48, 信息提示 = False Else End If End If 39。關(guān)閉數(shù)據(jù)連接 End Sub Private Sub Form_Load() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。運(yùn)用 API 函數(shù) SetWindowPos，來實現(xiàn)使窗體置前的功能 39。通過代碼連接數(shù)據(jù)庫 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_enter 39。連接操作員信息表 = ( ) / 2 = ( ) / 2 a = = select * from tb_enter If 0 Then = True 39。刷新 ListView 控件 Do While = False 39。向 ListView 控件中添加操作員信息 key = Set itmX = (, , key, 1) Loop On Error Resume Next = select * from tb_enter where M_Name=39。 + + 39。 If 0 Then 39。將操作員所具有的權(quán)限信息顯示在相應(yīng)的 Check 控件當(dāng)中 = (1) = (2) = (3) = (4) = (5) = (6) = (7) = (8) = (9) = (10) = (11) = (12) = (13) = (14) = (14) = (16) = (17) = (18) = (19) = (20) = (21) Else End If Else = False 39。如果數(shù)據(jù)庫中沒有操作員信息，則將 ListView 控件設(shè)置為不可用狀態(tài) End If End Sub 39。*** 單擊 ListView 控件將在 Check 控件中顯示相應(yīng)的權(quán)限 *** Private Sub ListView1_Click() = True = select * from tb_enter where M_Name=39。 + + 39。 On Error Resume Next If 0 Then 39。在標(biāo)簽控件中顯示操作員的職務(wù)信息 = 當(dāng)前所選操作員 amp。