進銷存管理系統(tǒng)-課程設計報告

1、2007級課程設計報告課題名稱：進銷存管理系統(tǒng)盤點管理管理子系統(tǒng)專 業(yè)：班 級： 學 號： 姓 名： 指導教師： 年 月目錄1 系統(tǒng)概述12 系統(tǒng)分析2-62.1需求分析2.2業(yè)務流程圖2.3數(shù)據(jù)流程圖2.4數(shù)據(jù)詞典3 系統(tǒng)設計6-323.1模塊結(jié)構(gòu)設計3.2 數(shù)據(jù)庫概念設計3.3 數(shù)據(jù)庫邏輯設計3.4 輸出設計3.5 輸入設計3.6 代碼設計4結(jié)語331.系統(tǒng)概述 現(xiàn)代科技技術(shù)突飛猛進，在不同的領(lǐng)域要求各異，以前對庫存盤點的統(tǒng)計都是手寫登記，紙制查看，這樣很容易發(fā)生錯誤，導致企事業(yè)失去他們所需要的信息，而且會產(chǎn)生錯誤信息誤導決策，現(xiàn)在為了方便決策者了解到更加確切的信息和資料，所以開發(fā)這樣的系

2、統(tǒng)方便決策者查詢信息及網(wǎng)上瀏覽，使各方面的信息都能夠正確及時。系統(tǒng)的功能是將該企業(yè)的所有庫存盤點信息進行電子統(tǒng)計,根據(jù)不同的需求建立各種的報表,便于企事業(yè)在網(wǎng)上查詢庫存的各方面的信息情況,方便決策者了解市場,也能夠方便管理者對庫存盤點的信息進行不同的統(tǒng)計。庫存盤點管理管理子系統(tǒng)主要實現(xiàn)的是庫存盤點信息的錄入，修改，查詢以及盤點信息的打印等功能，為此，假設要實現(xiàn)各方面的需求，系統(tǒng)的數(shù)據(jù)必須具有高度的完整性和準確性，這就要求系統(tǒng)的高度平安性，可維護性，可靠性及靈活性。比方庫存管理系統(tǒng)的管理，管理員在錄入商品的庫存情況的時候或是數(shù)據(jù)庫出現(xiàn)異常而產(chǎn)生過失，可能會影響決策者從網(wǎng)上查詢這些商品的庫存情況，

3、這就要求系統(tǒng)具有高度的平安性，可維護性和可靠性；靈活性指的是系統(tǒng)要具有強大的功能以適應不同層次的客戶不同的需求。另外，系統(tǒng)的操作界面要求簡便，通俗，以便于操作。用戶對系統(tǒng)的信用，如果因為一次的錯誤就會導致一連串的信息錯誤，所以保證信息的可靠性十分必須的，這樣才能使系統(tǒng)得到用戶的信賴和支持。這樣的系統(tǒng)需要保證可靠性,防止給決策者提供虛假的信息,更確保各部門通過瀏覽該系統(tǒng),進行相應的需求操作。因此，隨著技術(shù)開展，企業(yè)采用庫存盤點信息化已成為趨勢及必然。2.系統(tǒng)分析2.1需求分析2.1.1需求分析本系統(tǒng)通過簡單的數(shù)據(jù)庫的操作，實現(xiàn)企事業(yè)單位的庫存信息的管理。庫存盤點管理管理子系統(tǒng)是一個小型的信息管理

4、系統(tǒng)，數(shù)據(jù)庫采用SQL Server 2005。使用戶和工程人員明確系統(tǒng)的功能、應用范圍。本系統(tǒng)具有以下功能：1：實現(xiàn)庫存盤點管理的信息化管理。 2：實現(xiàn)庫存盤點管理的根底要求，如信息添加，查看及刪除。操作方便簡單，且數(shù)據(jù)穩(wěn)定性強。 3：方便的庫存信息查詢功能，支持多條件查詢。 4：數(shù)據(jù)計算自動完成，盡量減少人工干預。5：強大的報表打印功能。2.1.2開發(fā)及運行環(huán)境 1 硬件環(huán)境：CPU：C1.7G以上，內(nèi)存在256M以上。2 軟件環(huán)境：Windows XP操作系統(tǒng)，Microsoft SQL Servers數(shù)據(jù)庫系統(tǒng)。軟件編程使用Microsoft Visual Basic 6.0 中文版。

5、12.1.3程序流程 本庫存盤點管理管理子系統(tǒng)使用如下的流程進行登陸以及其他的操作：開始界面是始于登陸界面“登錄登錄.frm，當用戶鍵入用戶名和密碼的時候，系統(tǒng)自動到所對應的數(shù)據(jù)庫“用戶信息表中進行用戶驗證。如果輸入正確那么進入系統(tǒng)主界面，就可以進入到主操作菜單窗體“系統(tǒng)(系統(tǒng).frm)中進行操作。在主操作菜單窗體“系統(tǒng)(系統(tǒng).frm)中，用戶可以對數(shù)據(jù)庫中的商品信息、供給商信息及客戶信息等根本信息進行包括：添加，查詢，修改等操作，并能夠進行入庫管理，出庫管理及庫存盤點。此外，可在“清單報表管理窗口中進行相應的報表打印。主界面入下列圖所示：22業(yè)務流程圖庫存盤點流程如下：2.3數(shù)據(jù)流程圖2.4

6、數(shù)據(jù)字典4.1.數(shù)據(jù)元素條目數(shù)據(jù)元素條目總編號：1-100編 號：100名稱：庫存單編號編碼說明：別名：kcdb * * 說明：庫存單編碼商品編號數(shù)據(jù)值類型：離散庫存編號類型：數(shù)字庫存序號長度：10有關(guān)數(shù)據(jù)：庫存卡4.2數(shù)據(jù)結(jié)構(gòu)條目數(shù)據(jù)結(jié)構(gòu)條目名稱：商品入庫卡總編號：2-03說明：商品入庫時填寫的卡片編 號：006結(jié)構(gòu)：有關(guān)的數(shù)據(jù)流，數(shù)據(jù)存儲入庫序號新商品入庫表入庫編號商品庫存表商品編號商品名稱規(guī)格數(shù)量：計量單位每年約2000份數(shù)量單價總金額入庫日期經(jīng)手人備注信息4.3.數(shù)據(jù)流條目數(shù)據(jù)流條目名稱：庫存信息表總編號：3-02簡要說明：庫存信息的匯總編 號：005數(shù)據(jù)流來源：賬面庫存數(shù)據(jù)流去向：P

7、2.1,P2,2包含的數(shù)據(jù)結(jié)構(gòu)：流通量：1000份每年銷售的商品商品庫存記錄4.4數(shù)據(jù)存儲條目數(shù)據(jù)存儲條目名稱：庫存盤點明細表總編號：4-05說明：庫存信息匯總編 號：A1結(jié)構(gòu)：有關(guān)的數(shù)據(jù)流盤點編號P2.1->A1A1->P商品名稱A1->P賬面庫存信息量：150份每年實盤庫存有無復查：有差異數(shù)3.5處理過程條目處理過程條目名稱：打印庫存盤點清單總編號：5-009說明：公布庫存盤點信息，并說明庫存情況編 號：P輸入：A1->P輸出：P->盤點明細表處理：查A1庫存明顯表，打印庫存信息表及盤點信息表，表現(xiàn)好的可以保持，表現(xiàn)不令人滿意的可加以調(diào)整，并注明表現(xiàn)不好的地方

8、，要求改良。4.6外部實體條目外部實體條目名稱：員工總編號：06-001說明：編 號：001輸出數(shù)據(jù)流：個數(shù)：約2000個輸入數(shù)據(jù)流：P2.1,5員工工資表2.5程序運行流程圖清單報表管理商品信息管理窗口驗證失敗，返回重新登陸登陸成功，進入操作主界面！用戶登陸根本信息管理窗體供給商信息管理窗口客戶信息管理窗口登陸窗體：系統(tǒng)(系統(tǒng).frm)判斷是否登陸成功。數(shù)據(jù)庫數(shù)據(jù)：用戶信息表驗證登錄庫存管理窗口系統(tǒng)管理窗口退出窗口入庫管理窗口出庫管理窗口盤點庫存管理窗口用戶信息添加窗口用戶密碼修改窗口用戶信息查詢窗口數(shù)據(jù)備份與修改窗口庫存清單報表預覽窗口庫存清單報表打印窗口3.系統(tǒng)設計3.1模塊結(jié)構(gòu)設計該系

9、統(tǒng)的總體結(jié)構(gòu)設計如下列圖所示：人員信息檔案管理系統(tǒng)包括根本信息管理，銷售信息管理，庫存信息管理，數(shù)據(jù)報表管理和系統(tǒng)管理等局部。其中，根本信息管理中可以對商品，供給商，客戶根本信息進行添加，修改，查詢和刪除等操作，如圖：庫存管理中可以實現(xiàn)庫存信息，入庫單信息，出庫單信息，盤點清單信息的錄入，修改，查詢等操作，如圖：數(shù)據(jù)報表管理可以實現(xiàn)盤點清單的預覽及打印等操作，如圖：系統(tǒng)管理中主要是用戶查詢，添加用戶，修改密碼，數(shù)據(jù)備份及恢復等的操作，如圖： 3.2數(shù)據(jù)庫概念設計3.3數(shù)據(jù)庫邏輯設計1商品信息表字段名數(shù)據(jù)類型長度是否允許空說明商品編號varchar10否主鍵，惟一標識商品記錄商品名稱varcha

10、r50是單價varchar50是計量單位varchar10是產(chǎn)地varchar50是供給商名稱varchar50是備注信息text16是2供給商信息表字段名數(shù)據(jù)類型長度是否允許空說明供給商編號varchar10否主鍵，惟一標識供給商記錄供給商名稱varchar50是供給商單位全稱地址varchar50是郵政編碼varchar10是聯(lián)系 varcgar20是企業(yè)網(wǎng)址varchar50是聯(lián)系人varchar50是聯(lián)系人 varcgar20是開戶銀行varchar50是銀行賬號varchar13是備注信息text16是3客戶信息表字段名數(shù)據(jù)類型長度是否允許空說明客戶編號varchar10否主鍵，惟一

11、標識客戶記錄客戶名稱varchar50是客戶單位全稱地址varchar50是郵政編碼varchar6是聯(lián)系 varchar20是企業(yè)網(wǎng)址varcgar30是聯(lián)系人varchar50是聯(lián)系人 varcgar20是開戶銀行varchar50是銀行賬號varchar20是備注信息text16是4商品入庫信息表字段名數(shù)據(jù)類型長度是否允許空說明入庫序號decimal9否主鍵，惟一標識商品入庫記錄商品編號varchar10否外鍵，對應商品信息表中商品編號商品名稱varchar50是供給商編號varchar10否外鍵，對應供給商信息表中供給商編號供給商名稱varchar50是規(guī)格varchar30是計量單位

12、varchar10是數(shù)量varchar10是單價varchar50是總金額varchar50是日期datetime8是經(jīng)手人varchar20是備注信息text16是修改人varchar20是修改日期datetime8是5商品庫存信息表字段名數(shù)據(jù)類型長度是否允許空說明庫存序號decimal9否主鍵，惟一標識商品庫存記錄庫存編號varchar30是庫存名稱varchar50是商品編號varchar10否外鍵，對應商品信息表中商品編號規(guī)格varchar30是計量單位varchar10是數(shù)量varchar10是單價varchar50是總金額varchar50是日期datetime8是備注信息text

13、16是6商品出庫信息表字段名數(shù)據(jù)類型長度是否允許空說明出庫序號decimal9否主鍵，惟一標識商品入庫記錄出庫編號varchar10是商品編號varchar10否外鍵，對應商品信息表中商品編號商品名稱varchar50是規(guī)格varchar30是計量單位varchar10是數(shù)量varchar10是單價varchar50是總金額varchar50是出庫日期datetime8是提貨單位varchar50是提貨人varchar50是經(jīng)手人varchar20是備注信息text16是修改人varchar20是修改日期datetime8是7庫存明細表字段名數(shù)據(jù)類型長度是否允許空說明盤點編號varchar10

14、否主鍵，惟一標識商品盤點記錄商品編號varchar10否外鍵，對應商品信息表中商品編號商品名稱varchar50是規(guī)格varchar30是計量單位varchar10是單價varchar50是賬面庫存varchar50是實盤庫存varchar50是差異數(shù)varchar50是盤點人員varchar50是盤點日期datetime8是備注信息text16是8用戶信息表字段名數(shù)據(jù)類型長度是否允許空說明用戶編號varchar10否主鍵用戶密碼varchar10否用戶名稱varchar50是備注信息text16是3.4輸出設計和輸入設計登錄界面：主界面：商品信息管理的輸出界面如下圖： 入庫單錄入修改的輸出界

15、面如下圖：入庫單信息查詢的輸出界面如下圖：盤點清單錄入修改的輸出界面如下圖：數(shù)據(jù)庫備份與恢復：盤點清單打印界面：3.5代碼設計登錄Option ExplicitDim SQL As StringDim msg As StringDim LoginSucceeded As BooleanDim 用戶名稱 As StringPrivate Sub Command1_Click() Dim rst As ADODB.Recordset Dim password As String '判斷用戶是否存在 用戶名稱 = Trim(Text1.Text) '取出用戶的ID SQL = &qu

16、ot; select * from 用戶信息表 where 用戶名稱='" & 用戶名稱 & "'" Set rst = SelectSQL(SQL, msg) If rst.RecordCount > 0 Then password = Trim(rst.Fields(1) '取出該用戶的密碼 rst.Close Else MsgBox ("數(shù)據(jù)庫操作錯誤！") Exit Sub End If '判斷密碼是否正確 If password = Trim(Text2.Text) Then Lo

17、ginSucceeded = True 系統(tǒng).Show Unload Me Else MsgBox ("密碼錯誤！") LoginSucceeded = False End If End SubPrivate Sub Command2_Click() '設置全局變量為 false '不提示失敗的登錄 LoginSucceeded = False Unload MeEnd SubPrivate Sub Form_Load()登錄.Enabled = TrueEnd SubPrivate Sub Form_Unload(Cancel As Integer) Lo

18、ginSucceeded = False Unload MeEnd Sub.1進入系統(tǒng)主界面后，對系統(tǒng)進行操作，各代碼如下： 3.5.1在根本信息管理界面中，各按鈕的代碼如下以“商品信息管理為例:Option ExplicitDim i As Integer '定義整型變量Dim rs1 As New ADODB.Recordset '定義數(shù)據(jù)集對象Dim rs As New ADODB.Recordset '定義數(shù)據(jù)集對象Dim SQL As StringDim msg As StringPrivate Sub Command1_Click() If Text1.Te

19、xt = "" Then MsgBox "商品編號不允許為空！" End If SQL = "SELECT * FROM 商品信息表 " Set rs1 = SelectSQL(SQL, msg) '新增商品 rs1.AddNew rs1.Fields("商品編號") = Text1.Text rs1.Fields("商品名稱") = Text2.Text rs1.Fields("單價") = Text3.Text rs1.Fields("單位")

20、 = Combo1.Text rs1.Fields("產(chǎn)地") = Text4.Text rs1.Fields("供給商名稱") = Combo2.Text rs1.Fields("備注信息") = Text5.Text rs1.Update MsgBox "添加數(shù)據(jù)成功！" '關(guān)閉數(shù)據(jù)集對象 rs1.Close Unload Me 商品信息管理.ShowEnd SubPrivate Sub Command2_Click()商品信息管理.Hide系統(tǒng).ShowEnd SubPrivate Sub Comma

21、nd3_Click()'查詢操作 Call LoadData '裝載數(shù)據(jù) Call ShowData '顯示數(shù)據(jù)End SubPrivate Sub ShowData()'在控件中顯示數(shù)據(jù) '如果存在記錄 '為控件賦值 SQL = "SELECT * FROM 商品信息表 " Set rs = SelectSQL(SQL, msg) Set Me.DataGrid1.DataSource = rs If rs.RecordCount <> 0 Then DataGrid1.Refresh End IfEnd Sub

22、Private Sub LoadData() '查詢商品信息 SQL = "SELECT * FROM 商品信息表 " Set rs = SelectSQL(SQL, msg) Set Me.DataGrid1.DataSource = rs DataGrid1.Refresh rs.UpdateEnd SubPrivate Sub ControlClear()'重置控件 Me.Text1.Text = "" Me.Text2.Text = "" Me.Text3.Text = "" Me.Text

23、4.Text = "" Me.Text5.Text = "" Me.Combo1.Text = "" Me.Combo2.Text = ""End SubPrivate Sub Command4_Click()'刪除操作 On Error GoTo ErrMsg '錯誤處理If rs.RecordCount > 0 Then msg = MsgBox("刪除該條記錄嗎?", vbYesNo) If msg = vbYes Then rs.Delete '刪除數(shù)據(jù) C

24、all LoadData '重新裝載數(shù)據(jù) '清空控件 Call ControlClear '設置控件Enable值為不可用 MsgBox ("成功刪除的數(shù)據(jù)!") End If Else MsgBox ("沒有可刪除的數(shù)據(jù)!") End If Exit SubErrMsg: '報告出錯信息 MsgBox Err.Description, vbExclamation, "出錯"End SubPrivate Sub Form_Load()Combo1.AddItem ("瓶")Combo

25、1.AddItem ("公斤")Combo1.AddItem ("袋")Combo2.AddItem ("吉良集團")Combo2.AddItem ("吉林米業(yè)")Combo2.AddItem ("宏基")Combo2.AddItem ("光華企業(yè)")End Sub.1在庫存信息查詢界面中，各按鈕的代碼如下:Private Sub Command1_Click()'查詢操作 Dim colName As String '保存所選擇的查詢條件 Dim colVa

26、lue As String '保存所要查詢具體的值 Dim strWhere As String colName = Combo1.Text '取出條件的值 colValue = Text1.Text '取出所要查詢的值 strWhere = " where " & colName & " like '%" & colValue & "%'" SQL = " select * from 商品庫存信息表 " & strWhere Set

27、rs = SelectSQL(SQL, msg) If rs.RecordCount <> 0 Then Set DataGrid1.DataSource = rs Else Set rs = Nothing End IfEnd SubPrivate Sub Command2_Click()'退出操作庫存信息查詢.Hide系統(tǒng).ShowEnd SubPrivate Sub Form_Load()Combo1.AddItem ("庫存序號")Combo1.AddItem ("庫存編號")Combo1.AddItem ("商品編

28、號")Combo1.AddItem ("商品名稱")Combo1.AddItem ("日期")Combo1.ListIndex = 0End Sub.2.1在入庫單錄入修改界面中，各按鈕的代碼如下:Option ExplicitDim i As Integer '定義整型變量Dim rs1 As New ADODB.Recordset '定義數(shù)據(jù)集對象Dim rs As New ADODB.Recordset '定義數(shù)據(jù)集對象Dim SQL As StringDim msg As StringPrivate Sub Co

29、mmand1_Click() If Text1.Text = "" Then MsgBox "入庫序號不允許為空！" End If SQL = "SELECT * FROM 商品入庫信息表 " Set rs1 = SelectSQL(SQL, msg) '新增商品 rs1.AddNew rs1.Fields("入庫序號") = Text1.Text rs1.Fields("入庫編號") = Text2.Text rs1.Fields("商品編號") = Text5.T

30、ext rs1.Fields("商品名稱") = Text6.Text rs1.Fields("供給商編號") = Text4.Text rs1.Fields("供給商名稱") = Combo1.Text rs1.Fields("規(guī)格") = Text7.Text rs1.Fields("計量單位") = Combo2.Text rs1.Fields("數(shù)量") = Text8.Text rs1.Fields("單價") = Text9.Text rs1.

31、Fields("總金額") = Text10.Text rs1.Fields("經(jīng)手人") = Text3.Text rs1.Fields("備注信息") = Text11.Text rs1.Fields("修改人") = Text12.Text rs1.Update MsgBox "添加數(shù)據(jù)成功！" '關(guān)閉數(shù)據(jù)集對象 rs1.Close Unload Me 入庫單錄入修改.ShowEnd SubPrivate Sub Command4_Click()入庫單錄入修改.Hide系統(tǒng).Sho

32、wEnd SubPrivate Sub Command2_Click()'查詢操作 Call LoadData '裝載數(shù)據(jù) Call ShowData '顯示數(shù)據(jù)End SubPrivate Sub ShowData()'在控件中顯示數(shù)據(jù) '如果存在記錄 '為控件賦值 SQL = "SELECT * FROM 商品入庫信息表 " Set rs = SelectSQL(SQL, msg) Set Me.DataGrid1.DataSource = rs If rs.RecordCount <> 0 Then Data

33、Grid1.Refresh End IfEnd SubPrivate Sub LoadData() '查詢商品入庫信息 SQL = "SELECT * FROM 商品入庫信息表 " Set rs = SelectSQL(SQL, msg) Set Me.DataGrid1.DataSource = rs DataGrid1.Refresh rs.UpdateEnd SubPrivate Sub ControlClear()'重置控件 Me.Text1.Text = "" Me.Text2.Text = "" Me.Te

34、xt3.Text = ""Me.Text4.Text = "" Me.Text5.Text = "" Me.Text6.Text = "" Me.Text7.Text = "" Me.Text8.Text = "" Me.Text9.Text = "" Me.Text10.Text = "" Me.Text11.Text = "" Me.Text12.Text = "" Me.Combo1.Tex

35、t = "" Me.Combo2.Text = ""End SubPrivate Sub Command3_Click()'刪除操作 On Error GoTo ErrMsg '錯誤處理 If rs.RecordCount > 0 Then msg = MsgBox("刪除該條記錄嗎?", vbYesNo) If msg = vbYes Then rs.Delete '刪除數(shù)據(jù) Call LoadData '重新裝載數(shù)據(jù) '清空控件 Call ControlClear '設置控件E

36、nable值為不可用 MsgBox ("成功刪除的數(shù)據(jù)!") End If Else MsgBox ("沒有可刪除的數(shù)據(jù)!") End If Exit SubErrMsg: '報告出錯信息 MsgBox Err.Description, vbExclamation, "出錯"End SubPrivate Sub Form_Load()Combo1.AddItem ("吉良集團")Combo1.AddItem ("吉林米業(yè)")Combo1.AddItem ("宏基")C

37、ombo1.AddItem ("光華企業(yè)")Combo2.AddItem ("瓶")Combo2.AddItem ("公斤")Combo2.AddItem ("袋")End Sub在修改密碼界面中，“確定按鈕的代碼如下：Option ExplicitDim SQL As StringDim msg As StringPrivate Sub Command2_Click()'退出操作 系統(tǒng).Enabled = True Unload MeEnd SubPrivate Sub Commandok_

38、Click()'確定操作 Dim rst As ADODB.Recordset Dim p1 As String '保存用戶的密碼 Dim p2 As String '保存用戶的新密碼 Dim p3 As String '保存用戶確實認密碼 '賦值p1 = Trim(Text1.Text) p2 = Trim(Text2.Text) p3 = Trim(Text3.Text) SQL = "select * from 用戶信息表 用戶名稱='" & 用戶名稱 & "'" SQL =

39、SQL & " and 用戶密碼='" & p1 & "'" On Error GoTo ErrMsg '出錯處理 Set rst = SelectSQL(SQL, msg) If rst.RecordCount > 0 Then '如果輸入密碼正確 '檢查新密碼和確認密碼 If (p3 <> p2) Then MsgBox ("兩次輸入的密碼不一致！") Exit Sub End If '接受新的密碼 rst.Fields("密碼&q

40、uot;) = p2 rst.Update MsgBox ("更新成功！") Else MsgBox ("用戶名稱或密碼輸入錯誤！") Exit Sub End If Exit SubErrMsg: '出錯信息 MsgBox Err.Description, vbExclamation, "出錯"End SubPrivate Sub cmdCancel_Click()'退出操作 系統(tǒng).Enabled = True Unload MeEnd Sub數(shù)據(jù)庫備份界面中的“開始備份按鈕的代碼如下：Private

41、Sub Cmd_BackUp_Click()Cmd_backup.Enabled = FalseMe.MousePointer = 11If Text1.Text = "" Then MsgBox "請您選擇數(shù)據(jù)庫備份的路徑!", 64, "提示信息"ElseDim connter As IntegerDim SQL, workarea(6) As StringProgressBar1.Visible = TrueProgressBar1.Max = UBound(workarea)ProgressBar1.Value = Progr

42、essBar1.Min For connter = LBound(workarea) To UBound(workarea) workarea(connter) = "initial value" & connter ProgressBar1.Value = connter '連接數(shù)據(jù)庫 Call joins StrCnn.Open Str1 SQL = "backup DATABASE db_kcgl TO disk='" & Text1.Text & "'" StrCnn.Execu

43、te (SQL) '執(zhí)行SQL語句 StrCnn.Close Next connter ProgressBar1.Value = ProgressBar1.Min MsgBox "數(shù)據(jù)庫備份成功!", 64, "提示信息" Cmd_backup.Enabled = True Me.MousePointer = 0 End IfEnd Sub3.5.6公用模塊設計代碼：Public Function GetConnStr() As String'得到數(shù)據(jù)庫連接字符串，用戶可以在此處設置連接字符串'User ID 是數(shù)據(jù)庫用戶ID，P

44、assword是登陸密碼'Initial Catalog是數(shù)據(jù)庫名，Data Source是效勞器名稱 ConnectionString = "Provider =SQLOLEDB;Data Source=WWW-4A31291611D;Initial Catalog= wyx13;User ID=sa;Password=;" GetConnStr = ConnectionStringEnd FunctionPublic Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean'翻開數(shù)據(jù)庫連接，

45、連接成功返回true，出錯時返回false Set Conn = New ADODB.Connection '出錯處理 On Error GoTo ErrorHandle Conn.Open GetConnStr OpenConn = True Exit FunctionErrorHandle: MsgBox "連接數(shù)據(jù)庫失??！請重新連接！" OpenConn = False Exit FunctionEnd FunctionPublic Sub ExecuteSQL(ByVal SQL As String, ByRef msg As String)'執(zhí)行S

46、QL語句 Dim Conn As ADODB.Connection Dim sTokens() As String '出錯處理 On Error GoTo ErrorHandle '判斷SQL語句sTokens = Split(SQL)If InStr("INSERT,DELETE,UPDATE", UCase(sTokens(0) Then '翻開數(shù)據(jù)庫連接 If OpenConn(Conn) Then Conn.Execute SQL msg = sTokens(0) & "操作執(zhí)行成功！" End If Else m

47、sg = "SQL語句有誤：" & SQL End IfFinally_Exit: Set rst = Nothing Set Conn = Nothing Exit SubErrorHandle: msg = "執(zhí)行錯誤: " & Err.Description Resume Finally_ExitEnd SubPublic Function SelectSQL(ByVal SQL _As String, ByRef msg As String) As ADODB.Recordset'執(zhí)行SQL語句，返回ADODB.Recor

48、dset Dim Conn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String '出錯處理 On Error GoTo ErrorHandle '判斷SQL語句 sTokens = Split(SQL) If InStr("SELECT", UCase(sTokens(0) Then '翻開數(shù)據(jù)庫連接 If OpenConn(Conn) Then Set rst = New ADODB.Recordset rst.CursorLocation = adUseCl

49、ient rst.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic Set SelectSQL = rst msg = "查詢到" & rst.RecordCount & " 條記錄! " End If Else msg = "SQL語句有誤：" & SQL End IfFinally_Exit: Set rst = Nothing Set Conn = Nothing Exit FunctionErrorHandle: MsgString = "查詢錯誤: