可視化編程課程設(shè)計(jì)vb影碟出租管理系統(tǒng)設(shè)計(jì)論文

1、 可視化編程技術(shù) 課程設(shè)計(jì)（論文）題目： 影碟出租管理系統(tǒng) 20 / 22目 錄第1章 課程設(shè)計(jì)目的與要求11.1 課程設(shè)計(jì)目的11.2 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境11.3 課程設(shè)計(jì)的預(yù)備知識11.4 課程設(shè)計(jì)要求1第2章 課程設(shè)計(jì)容22.1 系統(tǒng)功能設(shè)計(jì)22.2 系統(tǒng)詳細(xì)設(shè)計(jì)22.3 系統(tǒng)運(yùn)行與測試17第3章 課程設(shè)計(jì)總結(jié)19參考文獻(xiàn)20第1章 課程設(shè)計(jì)目的與要求1.1 課程設(shè)計(jì)目的本課程的課程設(shè)計(jì)實(shí)際是學(xué)生學(xué)習(xí)完可視化編程技術(shù)課程后，進(jìn)行的一次全面的綜合訓(xùn)練，其目的在于加深對可視化編程技術(shù)基本知識的理解，掌握運(yùn)用VB開發(fā)應(yīng)用程序的基本方法與基本技巧。1.2 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境硬件要求能運(yùn)行Wind

2、ows 9.X操作系統(tǒng)的微機(jī)系統(tǒng)。軟件：Microsoft Visual Basic 6.0 Microsoft Access 20031.3 課程設(shè)計(jì)的預(yù)備知識熟悉Visual Basic 6.0程序設(shè)計(jì)的基本語法知識與常用技巧。1.4 課程設(shè)計(jì)要求按課程設(shè)計(jì)指導(dǎo)書提供的課題，每個(gè)小組設(shè)計(jì)一個(gè)完整的管理系統(tǒng)應(yīng)用程序。要求根據(jù)規(guī)定設(shè)計(jì)系統(tǒng)的具體要求，按照應(yīng)用程序的設(shè)計(jì)步驟和VB的基本知識應(yīng)用程序的分析與實(shí)現(xiàn)。應(yīng)根據(jù)基本學(xué)時(shí)分配合理安排設(shè)計(jì)時(shí)間，并獨(dú)立完成各方面的設(shè)計(jì)。選擇同一題目的同學(xué)，可以共同協(xié)作完成一個(gè)應(yīng)用程序的開發(fā)任務(wù)。要求書寫詳細(xì)的設(shè)計(jì)說明書，對有復(fù)雜的代碼段和程序段的部分，應(yīng)畫出程序

3、流程圖，寫出全部的代碼。在界面設(shè)計(jì)中，需畫出每個(gè)窗體的布局，進(jìn)行屬性說明，杜絕雷同。第2章 課程設(shè)計(jì)容2.1系統(tǒng)功能設(shè)計(jì)2.1.1 系統(tǒng)功能分析影碟出租管理系統(tǒng)主要用于輔助音像店完成影碟出租管理方面的相關(guān)功能，包括：（1） 會員管理。主要是對會員信息進(jìn)行添加、修改、刪除和查詢。（2） 類別管理。主要完成影碟類別的添加、修改、刪除和列表顯示。（3） 影碟管理。主要完成影碟信息的添加、修改、刪除和查詢。（4） 租借管理。主要完成影碟的出租、歸還和租借信息查詢。2.1.2 系統(tǒng)功能模塊設(shè)計(jì)（如圖2.1） 影碟出租管理系統(tǒng)租借查詢 添加 結(jié)算設(shè)置用戶登陸修改密碼退出出租影碟返還影碟影碟查詢會員查詢退碟

4、查詢影碟入店新入會員日結(jié)算月結(jié)算影碟類別會員級別管理員 圖2.1 系統(tǒng)功能模塊圖2.2系統(tǒng)詳細(xì)設(shè)計(jì)2.2.1登陸模塊設(shè)計(jì)1.界面設(shè)計(jì)該模塊使用的控件有Frame、CommandButton、TextBox、Label。（如圖2.2）圖2.2登錄模塊2.代碼設(shè)計(jì);Private Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()On Error Resume NextMkDir App.Path & tablefileMkDir App.Path & montablefileEnd SubPrivate Sub Label1_C

5、lick()End SubPrivate Sub text1_keypress(keyascii As Integer)If keyascii = 13 ThenText2.SetFocusEnd IfEnd SubPrivate Sub text2_keypress(keyascii As Integer)If keyascii = 13 ThenCommand1.SetFocusEnd IfEnd Sub2.2.2 管理系統(tǒng)模塊設(shè)計(jì)1.界面設(shè)計(jì)：該模塊使用的控件有Frame、CommandButton、TextBox、Label（如圖2.3）圖2.3 影碟出租管理系統(tǒng)模塊2.代碼設(shè)計(jì)：Pr

6、ivate Sub MdAddCD_Click()On Error Resume NextAddCD.ShowEnd SubPrivate Sub MdAddVip_Click()On Error Resume NextAddVip.ShowEnd SubPrivate Sub Mdcancel_Click()CancelLent.ShowEnd SubPrivate Sub MdCancelF_Click()findCL.ShowEnd SubPrivate Sub MdCDFind_Click()FindCD.ShowEnd SubPrivate Sub MdCDType_Click()C

7、Dtype.ShowEnd SubPrivate Sub MdCheck_Click()Checkfrm.ShowEnd SubPrivate Sub MdDay_Click()DayRec.ShowEnd SubPrivate Sub MdDel_Click()FindDel.ShowEnd SubPrivate Sub MdDELCD_Click()DelLentCD.ShowEnd SubPrivate Sub MdExit_Click()If MsgBox(你確定要退出嗎？, vbInformation + vbYesNo, 退出) = vbYes Then EndEnd IfEnd

8、SubPrivate Sub MDIForm_unload(cancel As Integer)If MsgBox(你確定要退出嗎？, vbInformation + vbYesNo, 退出) = vbYes Then EndElse cancel = 1End IfEnd SubPrivate Sub MdInfo_Click()frmAbout.ShowEnd SubPrivate Sub MdLentCD_Click()LentCD.ShowEnd SubPrivate Sub MdMon_Click()MonthTable.ShowEnd SubPrivate Sub MdOut_Cl

9、ick()If MsgBox(你確定要注銷嗎？, vbInformation + vbYesNo, 注銷) = vbYes Then MdZj.Enabled = False Mdse.Enabled = False MdAdd.Enabled = False MdJsuan.Enabled = False MdSet.Enabled = False MDIForm1.StatusBar1.Panels(3) = End IfEnd SubPrivate Sub MdPass_Click()EditPas.ShowEnd SubPrivate Sub MdReturn_Click()Retur

10、nCD.ShowEnd SubPrivate Sub MdRVip_Click()ReVip.ShowEnd SubPrivate Sub Mdsec_Click()frm .ShowEnd SubPrivate Sub MdUseSet_Click()FrmUseSet.ShowEnd SubPrivate Sub MdVipF_Click()FindVip.ShowEnd SubPrivate Sub MdVip_Click()VipType.ShowEnd SubPrivate Sub mdiform_load()StatusBar1.Panels(1) = App.Title & V

11、& App.Major & . & App.Minor & . & App.RevisionEnd SubPrivate Sub MdZhuC_Click()frmREG.ShowEnd SubPrivate Sub Timer1_Timer()StatusBar1.Panels(4) = NowEnd Sub2.2.3會員基本信息模塊設(shè)計(jì)1.界面設(shè)計(jì)：使用的控件有Frame、Label、TextBox、Data。（如圖2.4）圖2.4 會員基本信息模塊Private Sub Form_Load()Dim SQL As StringDim i As IntegerAdodc1.Connecti

12、onString = provider=microsoft.jet.oledb.4.0;data source= _ & App.Path & cdlent.mdb;Mode=ReadWrite;Persist Security Info=True;Jet OLEDB:Database Password=vcdglxtAdodc1.CursorLocation = adUseClientAdodc1 mandType = adCmdTextAdodc2.ConnectionString = provider=microsoft.jet.oledb.4.0;data source= _ & Ap

13、p.Path & cdlent.mdb;Mode=ReadWrite;Persist Security Info=True;Jet OLEDB:Database Password=vcdglxtAdodc2.CursorLocation = adUseClientAdodc2 mandType = adCmdTextFor i = 0 To 5 FindVip.DataGrid1.Col = i Text1(i).Text = FindVip.DataGrid1.TextNextSQL = select cdinfo.影碟編號,cdinfo.影碟名稱,cdinfo.光碟數(shù)量,cdinfo.借出

14、次數(shù), _ & cdinfo.影碟類別,cdinfo.入店時(shí)間 from cdinfo,viplentinfo where cdinfo.影碟編號=viplentinfo.影碟編號 and viplentinfo.會員編號= & Text1(0).Text & and viplentinfo.還碟時(shí)間 is nullAdodc2.RecordSource = SQLSet DataGrid2.DataSource = Adodc2Adodc2.RefreshLabel10.Caption = Adodc2.Recordset.RecordCount & SQL = select cdinfo.

15、影碟編號,cdinfo.影碟名稱,cdinfo.光碟數(shù)量,cdinfo.借出次數(shù), _ & cdinfo.影碟類別,cdinfo.入店時(shí)間 from cdinfo,viplentinfo where cdinfo.影碟編號=viplentinfo.影碟編號 and viplentinfo.會員編號= & Text1(0).Text & Adodc1.RecordSource = SQLSet DataGrid1.DataSource = Adodc1Adodc1.RefreshLabel8.Caption = Adodc1.Recordset.RecordCount & End SubPriv

16、ate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub2.2.4影碟出租模塊設(shè)計(jì)1.界面設(shè)計(jì)：使用的控件有Frame、TextBox、Label、CommandButton（如圖2.5）圖2.5影碟出租模塊2.代碼設(shè)計(jì)：Private Sub txtcdid_keypress(keyascii As Integer)Dim SQL As StringIf keyascii = 13 And TxtCDId.Text Then SQL = select * from cdinfo,cdtype whe

17、re cdinfo.影碟類別=cdtype.影碟類別 and 影碟編號= & TxtCDId.Text & OpenDBFile OpenRS (SQL) If Not gRst.EOF Then If gRst(是否借出) = -1 Then MsgBox 對不起，該影碟已經(jīng)借出，請從新選擇！, vbInformation + vbOKOnly, 信息 TxtCDId.Text = TxtCDId.SetFocus TxtCDName.Text = TxtCDle.Text = TxtM.Text = TxtSum.Text = TxtDATE.Text = TxtYj.Text = Clo

18、seRS Exit Sub End If TxtCDName.Text = gRst(影碟名稱) TxtCDle.Text = gRst(cdinfo.影碟類別) TxtM.Text = gRst(影碟價(jià)格) TxtSum.Text = gRst(光碟數(shù)量) TxtDATE.Text = gRst(借出天數(shù)) Else MsgBox 對不起，你輸入的影碟編號不存在！, vbInformation + vbOKOnly, 信息 TxtCDId.Text = TxtCDId.SetFocus CloseRS Exit Sub End If CloseRS TxtYj.SetFocusElseIf

19、keyascii = 13 And TxtCDId.Text = Then MsgBox 對不起，請輸入影碟編號，并按回車鍵！, vbInformation + vbOKOnly, 警告 TxtCDId.Text = TxtCDId.SetFocusEnd IfEnd Sub2.2.5會員查詢模塊設(shè)計(jì)1.界面設(shè)計(jì)：使用的控件有Frame、TextBox、Option、Check、Label、CommandButton、Data。（如圖2.6）圖2.6會員查詢模塊代碼設(shè)計(jì)：Private Sub Option1_Click()Label1.Caption = 按編號查詢Text1.SetFocu

20、sLabel2.Visible = FalseEnd SubPrivate Sub Option2_Click()Label1.Caption = 按查詢Text1.SetFocusLabel2.Visible = FalseEnd SubPrivate Sub Option3_Click()Label1.Caption = 按級別查詢Text1.SetFocusLabel2.Visible = FalseEnd SubPrivate Sub Option4_Click()Label1.Caption = 按時(shí)間查詢Text1.SetFocusLabel2.Visible = TrueEnd

21、SubPrivate Sub Option5_Click()Dim SQL As StringLabel2.Visible = FalseSQL = select * from vipinfoAdodc1.RecordSource = SQLSet DataGrid1.DataSource = Adodc1Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 Then Command3.Enabled = True Command4.Enabled = True Command6.Visible = TrueElse Command3.Enabled

22、= False Command4.Enabled = False Command6.Visible = FalseEnd IfEnd SubPrivate Sub text1_keypress(keyascii As Integer)If keyascii = 13 And Text1.Text Then Dim SQL As String If Check1.Value = 0 Then If Option1.Value = True Then SQL = select * from vipinfo where 會員ID= & Text1.Text & End If If Option2.V

23、alue = True Then SQL = select * from vipinfo where 會員= & Text1.Text & End If If Option3.Value = True Then SQL = select * from vipinfo where 會員級別= & Text1.Text & End If If Option4.Value = True Then SQL = select * from vipinfo where 辦理日期=# & Text1.Text & # End If ElseIf Check1.Value = 1 Then If Option

24、1.Value = True Then SQL = select * from vipinfo where 會員ID like % & Text1.Text & % End If If Option2.Value = True Then SQL = select * from vipinfo where 會員 like % & Text1.Text & % End If If Option3.Value = True Then SQL = select * from vipinfo where 會員級別 like % & Text1.Text & % End If If Option4.Val

25、ue = True Then SQL = select * from vipinfo where 辦理日期 like % & Text1.Text & % End If End If Adodc1.RecordSource = SQL Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 If Adodc1.Recordset.RecordCount = 0 Then MsgBox 對不起數(shù)據(jù)庫中沒有你需要的信息！, vbInformation + vbOKOnly, 信息 Text1.Text = Text1.SetFocus Command3.E

26、nabled = False Command4.Enabled = False Command6.Visible = False Else Command3.Enabled = True Command4.Enabled = True Command6.Visible = True End IfElseIf keyascii = 13 And Text1.Text = Then MsgBox 請輸入需要查找的關(guān)鍵字！, vbInformation + vbOKOnly, 信息 Text1.SetFocusEnd IfEnd Sub2.2.6碟片類別添加模塊設(shè)計(jì)1.界面設(shè)計(jì)使用的控件有Frame

27、、TextBox、Label、CommandButton。（如圖2.7）圖2.7碟片類別添加模塊2.代碼設(shè)計(jì)：Private Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Text1_Change(Index As Integer)For Index = 1 To 3 If Index 2 Then Text1(Index).Text = Format(Text1(Index).Text, 0.00) End IfNextEnd Sub2.2.7 數(shù)據(jù)庫訪問技術(shù)利用ADO(ActiveX Data Objects)進(jìn)行編程：建立連接：dim conn as new adodb.connectiondim rs as new adodb.recordsetdim strstr = App.PathIf Right(str, 1) Thenstr = str + End Ifstr = Provider=Microsoft.Jet.OLEDB.3.51;Per