【正文】 eans there are many shortings in the management, such as : low efficiency, confidentiality poor, and As time went on, will produce a large number of documents and data, which is essential for identifying, updating and maintenance have brought many difficulties. This paper introduces a fixed asset management system as a whole design process. With the continuous development of puter technology, puter applications major areas, and to the people39。隨著計(jì)算機(jī)技術(shù)的不斷發(fā)展，計(jì)算機(jī)應(yīng)用于各大領(lǐng)域，并給人們的生活帶來了極大的便利，在固定管理系統(tǒng)亦是如此。主要提供修改密碼,退出系統(tǒng)等.四. 用戶管理:新增用戶,與刪除用戶等功能.3．2 界面設(shè)計(jì)1登陸界面設(shè)計(jì):登陸界面代碼設(shè)計(jì):Private Sub cmdOK_Click() Dim strPwd As String Dim rsPwd As Dim strLogin As String strLogin = Trim() strPwd = Trim() If Len(strLogin) = 0 Then MsgBox 用戶名不能為空,請(qǐng)輸入用戶名 Exit Sub End If If Len(strPwd) = 0 Then MsgBox 密碼不能為空,請(qǐng)輸入正確的密碼 Exit Sub End If Set rsPwd = (SELECT pwd FROM tblUser WHERE login=39。39。將代碼放在這里傳遞 39。執(zhí)行用戶顯示列表操作Private Sub doUser(uid As String) Dim frm As New frmUser If Len(uid) 0 Then uid End If vbModal If = True Then = Call fillUserGrid End If Unload frm Set frm = NothingEnd SubPrivate Sub cmdAdd_Click() Call doDevice() End SubPrivate Sub cmdAll_Click() = fillDeviceGrid grdQueryEnd SubPrivate Sub cmdBackup_Click() Dim newPath As String newPath = amp。 Right(Rnd(100), 1) amp。 amp。 amp。 amp。, 39。39。 Pricefrom Else strSQL = ProductPrice= amp。 Priceto Else strSQL = ProductPrice= amp。 PurchaseDatefrom amp。 txtDate(1).SetFocus Exit Sub Else If Len(strSQL) 0 Then strSQL = strSQL amp。 PurchaseDateto amp。 RejectDatefrom amp。 txtDate(3).SetFocus Exit Sub Else If Len(strSQL) 0 Then strSQL = strSQL amp。 RejectDateto amp。 DeviceName amp。 DeviceName amp。% amp。% amp。 strSQL amp。88839。 amp。普通人員 .Tab = 1 .TabVisible(0) = False .TabVisible(3) = False = False End Select End With End SubPrivate Sub Form_Unload(Cancel As Integer) Set gConn = Nothing Set gUser = Nothing End SubPrivate Sub grdDevice_DblClick() Dim iid As String With grdDevice If .Row 0 Then .Col = 1 iid = .Text Call doDevice(iid) End If End WithEnd SubPrivate Sub grdUser_DblClick() Dim uid As String With grdUser If .Row 0 Then .Col = 1 uid = .Text Call doUser(uid) End If End WithEnd SubPrivate Sub tabMain_Click(PreviousTab As Integer) Dim strSQL As String Select Case Case 0 strSQL = SELECT a.*, FROM (tblDevice AS A INNER JOIN tblDepartment AS B ON =) INNER JOIN tblTypeInfo C ON = ORDER BY DESC Call fillDeviceGrid(grdDevice, strSQL) Case 3 Call fillUserGrid End Select End SubPrivate Sub fillDeviceGrid(grid As MSFlexGrid, Optional strSQL As String) Dim rs As Dim strRowData As String Dim rowindex As Integer If Len(strSQL) = 0 Then strSQL = SELECT a.*, FROM (tblDevice AS A INNER JOIN tblDepartment AS B ON =) INNER JOIN tblTypeInfo C ON = ORDER BY DESC End If rowindex = 1 With grid If .Tag = Then Set rs = (strSQL) .Rows = 1 .Cols = 13 .Row = 0 .Col = 0 .Text = 序號(hào) .Col = 1 .Text = ID .ColWidth(1) = 0 .Col = 2 .Text = 設(shè)備編號(hào) .Col = 3 .Text = 設(shè)備名稱 .Col = 4 .Text = 設(shè)備型號(hào) .Col = 5 .Text = 設(shè)備分類 .Col = 6 .Text = 所屬部門 .Col = 7 .Text = 購買價(jià)格 .Col = 8 .Text = 折舊成本 .Col = 9 .Text = 購買日期 .Col = 10 .Text = 狀態(tài) .Col = 11 .Text = 報(bào)廢日期 .Col = 12 .Text = 注銷日期 Do Until strRowData = rowindex amp。 rs(DeviceNO).value amp。 rs(DeviceModel).value amp。 rs(Department).value amp。 rs(Productcost).value amp。 在庫 amp。 rs(RejectDate).value amp。 vbTab strRowData = strRowData amp。 vbTab Select Case rs(userlevel).value Case 1 strRowData = strRowData amp。 vbTab Case 1 strRowData = strRowData amp。數(shù)據(jù)操作員 = 1 Case 1 39。不允許修改用戶名； End IfEnd Sub:設(shè)備界面代碼設(shè)計(jì):Private Sub cmdCancel_Click() With theDevice If .isDirty Then If MsgBox(你已經(jīng)更改數(shù)據(jù)，是否做保存數(shù)據(jù)后再退出？, vbYesNo) = vbYes Then If saveData() = False Then Exit Sub End If End If End If End With End SubPrivate Sub cmdDelete_Click() () isUpdate = True End SubPrivate Sub cmdSave_Click() If saveData() = True Then isUpdate = True End IfEnd SubPrivate Sub Form_Load() Dim rs As Dim strSQL As String strSQL = SELECT * FROM tblTypeInfo ORDER BY TypeNO Set rs = (strSQL) With rs Do Until .EOF .Fields(TypeNO).value amp。 .Fields(Department).value .MoveNext Loop End With Set rs = Nothing isUpdate = False End SubPublic Sub loadDevice(iid As String)