【正文】 (M_。 On Error Resume Next If 0 Then 39。*** 單擊 ListView 控件將在 Check 控件中顯示相應(yīng)的權(quán)限 *** Private Sub ListView1_Click() = True = select * from tb_enter where M_Name=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。 + + 39。刷新 ListView 控件 Do While = False 39。Persist Security Info=False = select * from tb_enter 39。 amp。通過代碼連接數(shù)據(jù)庫 = Provider=。關(guān)閉數(shù)據(jù)連接 End Sub Private Sub Form_Load() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。 + + 39。 + Str() + 39。 + Str() + 39。 + Str() + 39。 + Str() + 39。 _ Str() + 39。,[17]= 39。,[16]= 39。,[15]= 39。,[14]= 39。,[13]= 39。,[12]= 39。 amp。 + Str() + 39。 + Str() + 39。 + Str() + 39。 + Str() + 39。 + Str() + 39。 _ Str() + 39。,[5]= 39。,[4]= 39。,[3]= 39。, [2]= 39。給操作員分配權(quán)限 Set adoRs = (UPDATE tb_enter SET [1]= 39。判斷數(shù)據(jù)庫中是否存在該操作員 39。運用 API 函數(shù) SetWindowPos，來實現(xiàn)取消窗體置前的功能 Call main 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。定義一個 ListItem 對象 Dim a, c Dim key As String 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)。執(zhí)行模糊查詢 = select * from tb_KCXX where kc_name like 39。通過文本框的 Change 事件來動態(tài)地對庫存貨品信息進(jìn)行模糊查詢 On Error Resume Next 39。連接庫存信息數(shù)據(jù)表 = ( ) / 2 39。 \。Data Source= amp。運用 API 函數(shù) SetWindowPos，來實現(xiàn)使窗體置前的功能 39。以 控件 DATAGRID 來實現(xiàn)全部產(chǎn)品的顯示信息。分別都以貨品名稱進(jìn)行查詢。連接出庫信息數(shù)據(jù)表 = ( ) / 2 39。 \。Data Source= amp。運用 API 函數(shù) SetWindowPos，來實現(xiàn)使窗體置前的功能 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(3).SetFocus End If End Sub Private Sub DataGrid1_Click() Call JionBack 39。 Trim(Str(StrNum)) Else Text1(0).Text = L000001 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。單擊“添加”按鈕之后，清空文本框中的內(nèi)容 Text1(i).Text = Next i = select * from tb_out order by ID If 0 Then StrNum = Val((ID)) + 1 39。定義一個日志標(biāo)識變量 39。用于顯示編號信息的變量 Dim StrNum As Long 39。定義一個計算價格的變量 Dim i As Integer 39。此界面下只有給了管理員權(quán)限后才可以進(jìn)行操作，若沒有給予權(quán)限則不能進(jìn)行操作。調(diào)用添加日志過程 For i = 0 To 5 39。 ) End If ETemp = 1 39。 and KC_Price= amp。 and KC_UNIT =39。 and KC_SPEC=39。 where KC_name=39。修改該貨品的庫 存數(shù)量 Set adoRs = (UPDATE tb_KCXX SET KC_Num=39。 , adoCon, adOpenKeyset, adLockOptimistic If 0 Then Dim SNum As Integer 39。 and KC_Price= amp。 and KC_UNIT =39。 and KC_SPEC=39。刪除入庫信息 Call main select * from tb_KCXX where KC_name=39。*** 刪除入庫信息的事件過程 *** Private Sub Cmd_del_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。 Trim(Str(StrNum)) Else Text1(0).Text = J000001 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 = J amp。將數(shù)據(jù)庫記錄移向最后一條 StrNum = Val((ID)) + 1 39。*** “添加”貨品入庫信息按鈕的事件過程 *** Private Sub Cmd_Add_Click() For i = 0 To 5 39。用于顯示編號信息的變量 Dim ETemp As Integer 39。運用在 FOR 循環(huán)中的變量 Dim StrTemp 39。 程序源代碼： Dim Prices As Single 39。但它無法對數(shù)據(jù)進(jìn)行動態(tài)輸入，只能提供瀏覽功能。顯示操作員權(quán)限設(shè)置窗體 = False End Sub Private Sub CZYXXWH_Click() 39。顯示出入庫現(xiàn)金年統(tǒng)計窗體 = False End Sub Private Sub CRKXXRTJ_Click() 39。顯示倉庫設(shè)置窗體 = False End Sub Private Sub CKXXCX_Click() 39。HF030 Private Sub CKRZ_Click() 39。H1000amp。定義一個添加系統(tǒng)登錄日志功能的變量 Dim TStr As String 39。 主窗體界面如下： 主界面精彩代碼如下： Dim itmX As ListItem 39。 通過運行程序首先進(jìn)入登陸窗體，通過輸入密碼，驗證身份后進(jìn)入主窗體，在主窗體上有六個菜單項，分別對應(yīng)各自的功能模塊窗體，包括系統(tǒng)，物資管理，入庫管理，出庫管理，倉庫設(shè)置， 查詢統(tǒng)計、 系統(tǒng)權(quán)限操作設(shè)置，數(shù)據(jù)備份，數(shù)據(jù)恢復(fù)，打印和查詢。 If 0 Then = 所選操作員的職務(wù)： amp。將操作員信息添加到ListView 控件當(dāng)中 key = (M_Name) Set itmX = (, , key, 1) Loop Else = False End If ScreenCenter If TWidth = 800 Or THeigth = 600 Then Exit Sub Else ScreenCenter End If End Sub Private Sub ListView1_Click() = = select * from tb_enter where M_Name=39。 \。Data Source= amp。運用 API 函數(shù) SetWindowPos，來實現(xiàn)使窗體置前的功能 39。 \系統(tǒng)日志 .ini) For Input As 1 Do While Not EOF(1) Line Input 1, Intext TStr = TStr + Intext + Chr(13) + Chr(10