【正文】 。用戶點擊所要修改或刪除的借出信息所在的行，所借出的資產(chǎn)的編號就顯示在左下角的空白處。也可以由此進入增加借出信息和查詢借出界面，進行操作。借出查詢界面為用戶提供三種查詢方式，用戶可以選中查找方式前的選項框后，再輸入相應信息，就可以在下面的列表中顯示具有某一相同特性的借出信息。以上為本軟件所有功能的簡要使用說明，感謝您使用本軟件！附錄B系統(tǒng)維護手冊本軟件由十三個窗體和一個通用模塊組成，其中包括一個主界面窗體，三個彈出的子窗體，九個工作窗體。一、 通用模塊：通用模塊主要定義軟件將要用到的一些全局變量，創(chuàng)建數(shù)據(jù)庫連接，其詳細代碼如下：Public iflag As Integer 39。標示要修改的資產(chǎn)信息Public ModifyBkFlag2 As Boolean 39。定義了一個關(guān)于用戶類型的全局變量Public ModifyBrwFlag1 As String 39。39。創(chuàng)建連接 Set rs = New On Error GoTo transactsql_error strConnection = Provider = 。 amp。 strConnection = strConnection amp。Jet OLEDB:Database Password=39。 strArray = Split(sql) 39。打開連接 If StrComp(UCase$(strArray(0)), select, vbTextCompare) = 0 Then Trim$(sql), cont, adOpenKeyset, adLockOptimistic Set TransactSQL = rs iflag = 1 Else sql iflag = 1 End Iftransactsql_exit: Set rs = Nothing Set cont = Nothing Exit Functiontransactsql_error: MsgBox 查詢錯誤： amp。Private Sub loginOK_Click() ‘登錄按鈕 Dim sql As String Dim rs As If Trim( = ) Then MsgBox 沒有輸入用戶名稱，請重新輸入！, vbOKOnly + vbExclamation, 警告 Else sql = select * from 用戶表 where 用戶名=39。 amp。 Set rs = TransactSQL(sql) If iflag = 1 Then If = True Then MsgBox 沒有這個用戶，重新輸入！, , 警告 Else If Trim((1)) = Trim() Then Username = Trim() usertype1 = (2) usertype = usertype1 Unload Me Else MsgBox 密碼錯誤，重新輸入！, vbOKOnly + vbExclamation, 警告 = End If End If Else Unload Me End If End If pwdcount = pwdcount + 1 If pwdcount = 3 Then MsgBox 錯誤輸入已達3次，系統(tǒng)退出！, vbOKOnly + vbExclamation, 警告 Unload Me Exit Sub End IfEnd Sub‘定義輸入次數(shù)的初值為0.Private Sub Form_Load() pwdcount = 0End SubPrivate Sub loginCancel_Click() ‘退出按鈕 EndEnd Sub點擊求助按鈕會彈出如下界面：Private Sub Command1_Click() ‘求助按鈕 End Sub二、 主界面主界面提供向各種功能界面的鏈接，包括四個下拉菜單和五個快捷方式按鈕。Private Sub Command1_Click() Unload Me End SubPrivate Sub Command2_Click() Unload Me End SubPrivate Sub Command3_Click() Unload Me End SubPrivate Sub Command4_Click() Unload Me End SubPrivate Sub Command6_Click() EndEnd SubPrivate Sub MDIForm_Load()Dim usertype2 As String usertype2 = usertype If usertype2 0 Then ‘判斷用戶類型 = False = False = False = False End IfEnd SubPrivate Sub 關(guān)于_Click() End SubPrivate Sub 借出查詢_Click() Unload Me End SubPrivate Sub 使用指南_Click() End SubPrivate Sub 添加借出信息_Click() Unload Me End SubPrivate Sub 添加用戶_Click() Unload Me End SubPrivate Sub 退出_Click() EndEnd SubPrivate Sub 修改密碼_Click() Unload Me End SubPrivate Sub 資產(chǎn)查詢_Click() Unload Me End SubPrivate Sub 資產(chǎn)借出列表_Click() Unload Me End SubPrivate Sub 資產(chǎn)列表_Click() Unload Me End SubPrivate Sub 資產(chǎn)添加_Click() Unload Me End Sub三、修改密碼修改密碼的功能要求在已知所要修改密碼的用戶名和密碼才允許進行。 amp。 39。 amp。 39。 amp。 39。用戶名要求是唯一的，當新用戶名與已有用戶重復時不允許添加。 amp。 39。添加新紀錄 (0) = Trim() (1) = Trim() If = True Then (2) = 0 Else (2) = 1 End If MsgBox 用戶添加成功！, vbOKOnly End If End If End IfEnd SubPrivate Sub reset_Click() = = = = False = FalseEnd SubPrivate Sub return_Click() Unload Me End Sub四、 資產(chǎn)列表資產(chǎn)列表界面顯示所有資產(chǎn)的情況，也是進行資產(chǎn)修改和刪除的通道。Public Function assetmentList_update() Dim rs As New Dim sql As String sql = select * from 資產(chǎn)狀態(tài)表 Dim i As Integer Set rs = TransactSQL(sql) With assetmentInfoGrid .Rows = 1 While Not .Rows = .Rows + 1 .TextMatrix(.Rows 1, 0) = rs(0) .TextMatrix(.Rows 1, 1) = rs(1) .TextMatrix(.Rows 1, 2) = rs(2) .TextMatrix(.Rows 1, 3) = rs(3) .TextMatrix(.Rows 1, 4) = rs(4) .TextMatrix(.Rows 1, 5) = rs(5) .TextMatrix(.Rows 1, 6) = rs(6) .TextMatrix(.Rows 1, 7) = rs(7) .TextMatrix(.Rows 1, 8) = rs(8) .TextMatrix(.Rows 1, 9) = rs(9) Wend End WithEnd FunctionPrivate Sub assetmentInfoGrid_Click() Dim i As Integer 39。將選定行的內(nèi)容在文本框中顯示 = (i, 0)End SubPrivate Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Dim rs As New Dim sql As String sql = select * from 資產(chǎn)狀態(tài)表 where 編號 =39。 amp。 If Trim() = Then MsgBox 請輸入或在列表中選定要修改的資產(chǎn)編號！, vbOKOnly Else Set rs = TransactSQL(sql) If = True Then MsgBox 沒有該編號的資產(chǎn)信息！, vbOKOnly Else ModifyBkFlag1 = ModifyBkFlag2 = True End If End IfEnd SubPrivate Sub Command3_Click() Dim resMsg As String Dim rs As New Dim sql As String Dim sql2 As String sql = select 編號 from 資產(chǎn)狀態(tài)表 where 編號 = 39。 amp。 sql2 = delete from 資產(chǎn)狀態(tài)表 where 編號 = 39。 amp。 If Trim() = Then MsgBox 請選擇或輸入要刪除的資產(chǎn)的編號！, vbOKOnly Else Set rs = TransactSQL(sql) If = True Then MsgBox 沒有該編號的資產(chǎn)信息！, vbOKOnly Else resMsg = MsgBox(真的要刪除該編號的資產(chǎn)信息嗎？, vbOKCancel, 警告) If resMsg = vbOK Then TransactSQL (sql2) MsgBox 該編號的資產(chǎn)信息已經(jīng)刪除！, vbOKOnly Call assetmentList_update End If End If End IfEnd SubPrivate Sub Command4_Click() Unload Me End SubPrivate Sub Command5_Click() Unload Me End SubPrivate Sub Form_Activate() Call assetmentList_updateEnd SubPrivate Sub Form_Load() ‘如果用戶類型為普通用戶將令幾個按