畢業(yè)設(shè)計(jì)-計(jì)算機(jī)等現(xiàn)代化設(shè)備管理系統(tǒng)(參考版)
2024-12-05 17:51本頁(yè)面
【正文】 釋放資源 Set objSheet = Nothing Set objWorkBook = Nothing Set objExcel = Nothing End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() 39?；貜?fù) 狀態(tài) 39。 amp。寫完文件，回復(fù)狀態(tài) 39。單元格內(nèi)的數(shù)據(jù)，水平居中排列 (i, j).HorizontalAlignment = xlCenter ElseIf .Type = adDouble Or adInteger Then (i, j) = .Value (i, j).HorizontalAlignment = xlCenter End IfEnd With End If Next j If i 1 Then 39。如果是字符型的字段類型 If .Type = adChar Then (i, j).NumberFormatLocal = 39。利用行、列的雙重循環(huán)，向單元格內(nèi)寫入數(shù)據(jù)，并指定其格式 For i = 1 To iRow For j = 1 To iCol If i = 1 Then 39。從 A3 開(kāi)始重新設(shè)置范圍寫入數(shù)據(jù) 蘭州石化職業(yè)技術(shù)學(xué)院畢業(yè)論文 第 28 頁(yè) 共 37 頁(yè) With objRange 39。結(jié)果 . = xlCenter . = xlCenter End With 39。用了 2 行，用來(lái)寫入報(bào)表的標(biāo)題 Set objRange = (A1: amp。數(shù)值型的字段，直接取字段名的長(zhǎng)度為列寬 (j).ColumnWidth = LenB(StrConv(.Name, vbFromUnicode)) End If End With Next j 39。如果是字符型的字段，比較字段名的長(zhǎng)度與字段定義長(zhǎng)度哪個(gè)長(zhǎng)，取長(zhǎng)的設(shè)置為列寬度 If LenB(StrConv(.Name, vbFromUnicode)) .DefinedSize Then 39。取得最末列的字母 蘭州石化職業(yè)技術(shù)學(xué)院畢業(yè)論文 第 27 頁(yè) 共 37 頁(yè) iChr = Asc(A) + iCol 1 strChr = Chr(iChr) amp。用來(lái)設(shè)置 Excel 的行數(shù) 和列數(shù) iRow = + 1 iCol = End If Set objExcel = New 39。用來(lái)取得工作表中最后一個(gè)列的字符名，比如第 H 列 Dim strChr As String 39。定義工作表 Dim objRange As 39。定義 Excel 對(duì)象 Dim objWorkBook As 39。 cfdd as 存放地點(diǎn) End If End Sub 蘭州石化職業(yè)技術(shù)學(xué)院畢業(yè)論文 第 26 頁(yè) 共 37 頁(yè) = constr = adCmdText = sqlstr Set = Adodc1 End If End If End Sub Private Sub Command2_Click() 39。 je as 金額 End If End Sub Private Sub Check17_Click() If = Then = cfdd as 存放地點(diǎn) Else = amp。 dj as 單價(jià) End If End Sub Private Sub Check16_Click() If = Then = je as 金額 Else = amp。 sl as 數(shù)量 End If End Sub Private Sub Check15_Click() If = Then = dj as 單價(jià) Else = amp。 pz as 配置 End If End Sub Private Sub Check14_Click() If = Then = sl as 數(shù)量 Else = amp。 gzrq as 購(gòu)置日期 End If End Sub Private Sub Check13_Click() If = Then = pz as 配置 蘭州石化職業(yè)技術(shù)學(xué)院畢業(yè)論文 第 25 頁(yè) 共 37 頁(yè) Else = amp。 sccj as 生產(chǎn)廠家 End If End Sub Private Sub Check12_Click() If = Then = gzrq as 購(gòu)置日期 Else = amp。 “mcgg as 規(guī)格型號(hào) End If End Sub Private Sub Check11_Click() If = Then = sccj as 生產(chǎn)廠家 Else = amp。 mc as 名稱 End If End Sub Private Sub Check10_Click() If = Then = mcgg as 規(guī)格型號(hào) Else = amp。) endcase 蘭州石化職業(yè)技術(shù)學(xué)院畢業(yè)論文 第 22 頁(yè) 共 37 頁(yè) End Sub Private Sub Command4_Click() End Sub Private Sub Form_Load() Dim j As Integer Dim i As Integer Dim k As Integer For i = 1 To 11 Select Case i Case 1 (計(jì)算機(jī) ) Case 2 (打印機(jī) ) Case 3 (服務(wù)器 ) Case 4 (繪圖儀 ) Case 5 (HUB) Case 6 (主機(jī) ) Case 7 (終端 ) Case 8 (工作站 ) Case 9 (UPS) Case 10 (收發(fā)器 ) Case 11 (傳真機(jī) ) 蘭州石化職業(yè)技術(shù)學(xué)院畢業(yè)論文 第 23 頁(yè) 共 37 頁(yè) End Select Next i For j = 1998 To 2021 Str(j) Next j For k = 1 To 11 Select Case k Case 1 (信息化五樓 ) Case 2 (信息化六樓 ) Case 3 (設(shè)計(jì)處 ) Case 4 (工藝處 ) Case 5 (檔案處 ) Case 6 (銷售處 ) Case 7 (財(cái)務(wù)處 ) Case 8 (大中型 ) Case 9 (生產(chǎn)處 ) Case 10 (供應(yīng)處 ) Case 11 (大型 ) End Select Next k End Sub 蘭州石化職業(yè)技術(shù)學(xué)院畢業(yè)論文 第 24 頁(yè) 共 37 頁(yè) Private Sub Check1_Click() If = Then = mc as 名稱 Else = amp。 s amp。) Case s = = 1 = select * From jsj2 WHERE (存放地點(diǎn) = 39。 s amp。) Case s = = 1 = select * From jsj2 WHERE (購(gòu)置日期 = 39。 s amp。) End Sub Private Sub Command3_Click() Dim s As String Select Case s Case s = = 1 = select * From jsj2 WHERE (名稱 = 39。 j amp。) k = = 1 = select * From jsj2 WHERE (存放地點(diǎn) = 39。 j amp。(備注 )
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1