【正文】 他們的關(guān)心幫助給予了我前進的動力，他們的批評教育掃除了我成功道路上的障礙！最后，向百忙之中抽出寶貴時間評閱論文的各位專家致以衷心的感謝! 。陳老師嚴謹?shù)墓ぷ髯黠L、銳意創(chuàng)新的進取精神、寬博的知識面、科學的思維方式以及待人的和氣都給我留下了十分深刻的印象，展現(xiàn)了一位學者的思想境界和人格魅力，是我繼續(xù)學習的榜樣!在此，特向我的講師致以最誠摯的敬意和最衷心的感謝!其次，我還要感謝我們同組的其他同學們，在論文的寫作過程中，他們不僅為我提出了許多寶貴的意見，并給予我無私的幫助，而且為我提供了大量可靠的數(shù)據(jù)資料，在此也對他們表示由衷的感謝。陳老師在我整個論文的撰寫過程中，提供了大量的寶貴建議和改進的方法，給了我諸多的關(guān)心和指導。 vbCrLf amp。 目前正在打開狀態(tài)，無法覆蓋，請關(guān)閉。 ExportFileName amp。 vbCrLf amp。合并 表 尾 單元格33 / 40((iRow,1),(iRow,3)).MergeCells= True((iRow,4),(iRow,8)).MergeCells = True(iRow, 1).HorizontalAlignment = xlLeft(iRow, 4).HorizontalAlignment = xlLeft = True39。 制單人(iRow, 1) = sql(iRow, 7) = 備注： amp。備注 iRow = iRow + 1Next39。單位 (iRow, 7) = (5) 39。規(guī)格型號 (iRow, 5) = (3) 39。代碼 (iRow, 3) = (1) 39。寫入明細iRow = 4For Each itemX In (iRow, 1) = 39。 39。 庫管員(2, 1) = sql(2, 7) = 日期： amp。 ） amp。 （ amp。 倉庫： amp。首先寫入表頭 信息sql = 單號： amp。？, vbOKOnly, 文件占用 = True Exit Sub End If End If Kill ExportFileNameEnd IfExcelModel = amp。 vbCrLf amp。 已經(jīng)存在，是否覆蓋？, vbYesNo, 文件已存在) = vbNo Then Exit Sub If Not Is Nothing Then If = ExportFileName Then MsgBox 文件： amp。 ExportFileName amp。, vbOKOnly, 連接錯誤: Exit SubIf Dir(ExportFileName) Then 39。, vbOKOnly, 錯誤提示: Exit SubEnd If39。, vbOKOnly, 導出提示: Exit SubExportFileName = GetExportFileName( 單號)If ExportFileName = Then Exit SubIf UCase(Right(ExportFileName, 4)) .XLS Then 39。 Order By End IfIf Then sql, Conn, adOpenForwardOnly, adLockReadOnlyWhile Not Set itemX = (, a amp。 And amp。 and Between amp。 amp。 _ Where ID = 39。 Order By Else 39。 And amp。 and Between amp。 amp。 _ ID = Where = 39。檢索外協(xié)入庫單If = 毛坯 Then sql = SELECT , ID, , 人, , , amp。 Order By End IfIf Then sql, Conn, adOpenForwardOnly, adLockReadOnlyWhile Not 30 / 40 Set itemX = (, a amp。 And amp。 and Between amp。 amp。 _ Where ID = 39。 Order By Else 39。 And amp。 and Between amp。 amp。 _ ID = Where = 39。檢索外協(xié)出庫單If = 毛坯 Then sql = SELECT 外協(xié)工單 .單號, ID, , , 外, , amp。備注 = True Set = itemXExit SubErr_Cmd_AddItem_Click: MsgBox End Sub3 按毛坯或外協(xié)廠對外協(xié)件進行檢索代碼Private Sub Cmd_Find_Click()On Error GoTo Err_Cmd_Find_ClickDim itemX As ListItem39。單位 (5) = Val( 數(shù)量) 39。規(guī)格型號 (3) = (3) 39。代碼 (1) = (1) 39。 已經(jīng)存在，請直接修改數(shù)量即可。 amp。, vbOKOnly, 添加毛坯: Exit Sub39。 CurrUserNameElse MsgBox 用戶名或密碼錯誤,請重新輸入。初始化主窗口狀態(tài)欄信息 (2).Text = 用戶類型： amp。 sql, Conn, adOpenForwardOnly, adLockReadOnlyIf Not Then CurrUserID = rs(ID) CurrAccount = CurrUserName = rs(賬號) CurrUserType = rs(用戶類別) CurrUserPWD = LoginState = TrueUnload Me: If CurrUserType = 普通用戶 Then = False = True = False = True27 / 40 = True = True = False = False = False = False = False LoginState = True (1).Visible = False For i = 2 To 7 (i).Enabled = True Next Else 39。 amp。 and 密碼 =39。 amp。25 / 40參考文獻[1] 劉彬彬、 basic 程序設計標準教程[M].北京：人民郵電出版社 2022,453[2] 盧湘鴻、陳潔等. Access 數(shù)據(jù)庫與程序設計[M].北京：電子工業(yè)出版社 2022，97120[3] 王穎、 Basic + SQL Server 數(shù)據(jù)庫應用實例完全解析[J].人民郵電出版社 2022[4] 楊富國. Visual Basic 程序開發(fā)案例解析 [M].北京：清華大學出版社 2022，212[5] 馬維峰. Excel VBA 應用開發(fā)從基礎到實踐 [M].北京：電子工業(yè)出版社 [6] 劉文濤. Visual Basic + Access 數(shù)據(jù)庫開發(fā)與實例 [M].北京： 清華大學出版社 [7] 劉愛琴. Visual Basic 程序設計教程[M].北京： 航空工業(yè)出版社 2022，2134 [8] 求是科技. Visual 數(shù)據(jù)庫開發(fā)技術(shù)與工程實踐 [M].北京：人民郵電出版社 [9] 楊黎麗. 學生成績管理信息系統(tǒng)的設計與實現(xiàn) [碩士學士論文]. [10] 曾強聰. Visual Basic 程序設計基礎教程[M].北京：北京交通大學出版社 [11] 尹為民等． 《現(xiàn)代數(shù)據(jù)庫系統(tǒng)及應用教程》[J]．武漢大學出版社，2022，02[12] 鄒建． 《SQL Server2022 開發(fā)與管理應用實例》[J]．人民郵電出版社，2022，0826 / 40附錄 部分代碼1 用戶登錄窗口設計代碼If txtUserName = Then MsgBox 請輸入用戶名！ ElseIf txtPassword = Then MsgBox 請輸入密碼！ Else sql = Select * From 用戶表 where 賬號 =39。6．在完成了系統(tǒng)體系結(jié)構(gòu)設計和數(shù)據(jù)庫體系結(jié)構(gòu)設計后，又進行了編碼調(diào)試及系統(tǒng)測試等工作，使得系統(tǒng)更加實用和穩(wěn)定。◆ 銷售管理模塊可實現(xiàn)產(chǎn)成品的銷售和退貨管理，使公司的產(chǎn)品和次品有效的區(qū)分開來，并能生成相關(guān)報表，極大的提高的企業(yè)效率。24 / 40◆ 基礎信息模塊包括毛坯、外協(xié)件、產(chǎn)品等菜單項，可以實現(xiàn)對相應產(chǎn)品的添加、刪除和修改等操作。該系統(tǒng)主要包括：用戶、基礎信息、生產(chǎn)管理、銷售管理、業(yè)務報表等幾個模塊。4．在對系統(tǒng)功能及需求進行分析的基礎上，確定了系統(tǒng)實施后應達到的目標：強大的產(chǎn)品管理功能；構(gòu)架流行，平臺先進、數(shù)據(jù)保密性強，為每個操作員設置權(quán)限級別；系統(tǒng)采用人機對話方式，界面清晰，信息查詢方便，數(shù)據(jù)存儲安全可靠：鍵盤操作，快速響應；對輸入的數(shù)據(jù)，系統(tǒng)進行嚴格的數(shù)據(jù)檢