【正文】 一個日志標識變量 39。*** “添加”貨品出庫信息按鈕的事件過程 *** Private Sub Cmd_Add_Click() For i = 0 To 5 39。單擊“添加”按鈕之后，清空文本框中的內容 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ù)不足者補 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。如果按下的是回車鍵，則光標落到文本框當中 Text1(3).SetFocus End If End Sub Private Sub DataGrid1_Click() Call JionBack 39。 調 用 數(shù) 據 反 綁 定 過 程 39。調用數(shù)據反綁定過 程 = True = False End Sub Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 39。如果按下的是回車鍵，則光標落到文本框當中 Text1(5).SetFocus End If End Sub Private Sub Form_Load() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。運用 API函數(shù) SetWindowPos，來實現(xiàn)使窗體置前的功能 39。利用代碼連接數(shù)據庫 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_out 39。連接出庫信息數(shù)據表 = ( ) / 2 39。使窗體居中 = ( ) / 2 = Date End Sub 、查詢界面實現(xiàn) 系統(tǒng)查詢主要分為入庫貨品，出庫貨品，庫存貨品。分別都以貨品名稱進行查詢。每個界面都可以實現(xiàn)顯示全部產品。以 控件 DATAGRID 來實現(xiàn)全部產品的顯示信息。 源代碼如下： Private Sub Form_Load() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。運用 API函數(shù) SetWindowPos，來實現(xiàn)使窗體置前的功能 39。通過代碼連接數(shù)據庫 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_kcxx 39。連接庫存信息數(shù)據表 = ( ) / 2 39。使窗體居中 = ( ) / 2 End Sub Private Sub Text1_Change() 39。通過文本框的 Change 事件來動態(tài)地對庫存貨品信息進行模糊查詢 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)權限設置 界面 實 現(xiàn) 操作員權限設置界面可以對每個注冊用戶的訪問權限進行設置，具體為期初設置、貨品管理、查詢統(tǒng)計、數(shù)據報表、系統(tǒng)維護等權限授權。 源程序代碼： 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。*** 給操作員授權的事件過程 *** Private Sub Cmd_sq_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。運用 API 函數(shù) SetWindowPos，來實現(xiàn)取消窗體置前的功能 Call main 39。調用公共模塊 中的連接數(shù)據庫函數(shù) = select * from tb_enter 39。判斷數(shù)據庫中是否存在該操作員 39。 If 0 Then c = MsgBox(確認要將所選權限的信息賦給該操作員嗎 ?, 33, 提示信息 ) If c = vbOK Then 39。給操作員分配權限 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 成功授權 !!, 48, 信息提示 = False Else End If End If 39。關閉數(shù)據連接 End Sub Private Sub Form_Load() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。運用 API函數(shù) SetWindowPos，來實現(xiàn)使窗體置前的功能 39。通過代碼連接數(shù)據庫 = 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。將操作員所具有的權限信息顯示在相應的 Check 控件當中 = (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ù)據庫中沒有操作員信息，則將 ListView 控件設置為不可用狀態(tài) End If End Sub 39。*** 單擊 ListView 控件將在 Check 控件中顯示相應的權限 *** Private Sub ListView1_Click() = True = select * from tb_enter where M_Name=39。 + + 39。 On Error Resume Next If 0 Then 39。在標簽控件中顯示操作員的職務信息 = 當前所選操作員 amp。 (M_Name) amp。 的職務為： amp。 (