固定資產(chǎn)管理系統(tǒng)設(shè)計(jì)畢業(yè)論文(編輯修改稿)
2025-07-15 21:00 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 Len(strPwd) = 0 Then MsgBox 密碼不能為空,請(qǐng)輸入正確的密碼 Exit Sub End If Set rsPwd = (SELECT pwd FROM tblUser WHERE login=39。 amp。 Replace(strLogin, 39。, 39。39。) amp。 39。) If Then MsgBox 用戶(hù)名不正確,請(qǐng)重新輸入! ElseIf strPwd = rsPwd(pwd).value Then 39。將代碼放在這里傳遞 39。成功到 calling 函數(shù) 39。設(shè)置全局變量時(shí)最容易的 LoginSucceeded = True Else MsgBox 無(wú)效的密碼，請(qǐng)重試!, , 登錄 SendKeys {Home}+{End} End If Set rsPwd = Nothing End Sub主窗體中主要包括設(shè)備管理、設(shè)備查詢(xún)、報(bào)表管理、用戶(hù)管理、系統(tǒng)管理等項(xiàng)目。界面設(shè)計(jì)簡(jiǎn)單明了，方便用戶(hù)的訪問(wèn)。主界面代碼設(shè)計(jì):39。執(zhí)行設(shè)備顯示列表操作Private 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è)備名稱(chēng) .Col = 4 .Text = 設(shè)備型號(hào) .Col = 5 .Text = 設(shè)備分類(lèi) .Col = 6 .Text = 所屬部門(mén) .Col = 7 .Text = 購(gòu)買(mǎi)價(jià)格 .Col = 8 .Text = 折舊成本 .Col = 9 .Text = 購(gòu)買(mǎi)日期 .Col = 10 .Text = 狀態(tài) .Col = 11 .Text = 報(bào)廢日期 .Col = 12 .Text = 注銷(xiāo)日期 Do Until strRowData = rowindex amp。 vbTab strRowData = strRowData amp。 rs(IID).value amp。 vbTab strRowData = strRowData amp。 rs(DeviceNO).value amp。 vbTab strRowData = strRowData amp。 rs(DeviceName).value amp。 vbTab strRowData = strRowData amp。 rs(DeviceModel).value amp。 vbTab strRowData = strRowData amp。 rs(TypeName).value amp。 vbTab strRowData = strRowData amp。 rs(Department).value amp。 vbTab strRowData = strRowData amp。 rs(ProductPrice).value amp。 vbTab strRowData = strRowData amp。 rs(Productcost).value amp。 vbTab strRowData = strRowData amp。 FormatDateTime(rs(PurchaseDate).value, vbLongDate) amp。 vbTab If rs(Status).value = 0 Then strRowData = strRowData amp。 在庫(kù) amp。 vbTab Else strRowData = strRowData amp。 借出 amp。 vbTab End If strRowData = strRowData amp。 rs(RejectDate).value amp。 vbTab strRowData = strRowData amp。 rs(DisCardDate).value amp。 vbTab .AddItem strRowData rowindex = rowindex + 1 Loop Set rs = Nothing .Tag = 1 End IfEnd WithEnd SubPrivate Sub fillUserGrid() Dim rs As Dim strRowData As String Dim rowindex As Integer rowindex = 1 With grdUser If .Tag = Then Set rs = (SELECT * FROM tblUser ORDER BY UID DESC) .Rows = 1 .Cols = 4 .Row = 0 .Col = 0 .Text = 序號(hào) .ColWidth(0) = 500 .Col = 1 .ColWidth(1) = 0 .Col = 2 .Text = 用戶(hù)名 .ColWidth(2) = 1500 .Col = 3 .Text = 用戶(hù)級(jí)別 .ColWidth(3) = 3000 Do Until strRowData = rowindex amp。 vbTab strRowData = strRowData amp。 rs(UID).value amp。 vbTab strRowData = strRowData amp。 rs(login).value amp。 vbTab Select Case rs(userlevel).value Case 1 strRowData = strRowData amp。 系統(tǒng)管理員 amp。 vbTab Case 0 strRowData = strRowData amp。 普通用戶(hù) amp。 vbTab Case 1 strRowData = strRowData amp。 數(shù)據(jù)操作員 amp。 vbTab End Select .AddItem strRowData rowindex = rowindex + 1 Loop Set rs = Nothing .Tag = 1 End IfEnd WithEnd SubPrivate Function getDeptNo() As String Dim str As String Dim pos As Integer With cboQDept str =
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1