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

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

2、ft Access 2003 課程設(shè)計(jì)的預(yù)備知識(shí)熟悉的根本語(yǔ)法知識(shí)及常用技巧。 課程設(shè)計(jì)要求按課程設(shè)計(jì)指導(dǎo)書(shū)提供的課題，每個(gè)小組設(shè)計(jì)一個(gè)完整的管理系統(tǒng)應(yīng)用程序。要求根據(jù)規(guī)定設(shè)計(jì)系統(tǒng)的具體要求，按照應(yīng)用程序的設(shè)計(jì)步驟和VB的根本知識(shí)應(yīng)用程序的分析與實(shí)現(xiàn)。應(yīng)根據(jù)根本學(xué)時(shí)分配合理安排設(shè)計(jì)時(shí)間，并獨(dú)立完成各方面的設(shè)計(jì)。選擇同一題目的同學(xué)，可以共同協(xié)作完成一個(gè)應(yīng)用程序的開(kāi)發(fā)任務(wù)。要求書(shū)寫(xiě)詳細(xì)的設(shè)計(jì)說(shuō)明書(shū)，對(duì)有復(fù)雜的代碼段和程序段的局部，應(yīng)畫(huà)出程序流程圖，寫(xiě)出全部的代碼。在界面設(shè)計(jì)中，需畫(huà)出每個(gè)窗體的布局，進(jìn)行屬性說(shuō)明，杜絕雷同。課程設(shè)計(jì)內(nèi)容系統(tǒng)功能設(shè)計(jì) 系統(tǒng)功能分析影碟出租管理系統(tǒng)主要用于輔助音像店完成

3、影碟出租管理方面的相關(guān)功能，包括：會(huì)員管理。主要是對(duì)會(huì)員信息進(jìn)行添加、修改、刪除和查詢。類(lèi)別管理。主要完成影碟類(lèi)別的添加、修改、刪除和列表顯示。影碟管理。主要完成影碟信息的添加、修改、刪除和查詢。租借管理。主要完成影碟的出租、歸還和租借信息查詢。 系統(tǒng)功能模塊設(shè)計(jì)如圖2.1 影碟出租管理系統(tǒng)租借查詢 添加 結(jié)算設(shè)置用戶登陸修改密碼退出出租影碟返還影碟影碟查詢會(huì)員查詢退碟查詢影碟入店新入會(huì)員日結(jié)算月結(jié)算影碟類(lèi)別會(huì)員級(jí)別管理員 系統(tǒng)功能模塊圖系統(tǒng)詳細(xì)設(shè)計(jì)登陸模塊設(shè)計(jì)該模塊使用的控件有Frame、CommandButton、TextBox、Label。如圖2.代碼設(shè)計(jì);Private Sub Com

4、mand2_Click()Unload MeEnd SubPrivate Sub Form_Load()On Error Resume NextMkDir App.Path & tablefileMkDir App.Path & montablefileEnd SubPrivate Sub Label1_Click()End SubPrivate Sub text1_keypress(keyascii As Integer)If keyascii = 13 ThenEnd IfEnd SubPrivate Sub text2_keypress(keyascii As Integer)If ke

5、yascii = 13 ThenEnd IfEnd Sub2.2.2 管理系統(tǒng)模塊設(shè)計(jì)1.界面設(shè)計(jì)：該模塊使用的控件有Frame、CommandButton、TextBox、Label如圖2.3圖2.3 影碟出租管理系統(tǒng)模塊2.代碼設(shè)計(jì)：Private Sub MdAddCD_Click()On Error Resume NextEnd SubPrivate Sub MdAddVip_Click()On Error Resume NextEnd SubPrivate Sub Mdcancel_Click()End SubPrivate Sub MdCancelF_Click()findCL.S

6、howEnd SubPrivate Sub MdCDFind_Click()End SubPrivate Sub MdCDType_Click()End SubPrivate Sub MdCheck_Click()End SubPrivate Sub MdDay_Click()End SubPrivate Sub MdDel_Click()End SubPrivate Sub MdDELCD_Click()End SubPrivate Sub MdExit_Click()If MsgBox(你確定要退出嗎？, vbInformation + vbYesNo, 退出) = vbYes Then

7、EndEnd IfEnd SubPrivate Sub MDIForm_unload(cancel As Integer)If MsgBox(你確定要退出嗎？, vbInformation + vbYesNo, 退出) = vbYes Then EndElse cancel = 1End IfEnd SubPrivate Sub MdInfo_Click()End SubPrivate Sub MdLentCD_Click()End SubPrivate Sub MdMon_Click()End SubPrivate Sub MdOut_Click()If MsgBox(你確定要注銷(xiāo)嗎？, v

8、bInformation + vbYesNo, 注銷(xiāo)) = 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()End SubPrivate Sub MdReturn_Click()End SubPrivate Sub MdRVip_Click()End SubPri

9、vate Sub Mdsec_Click()End SubPrivate Sub MdUseSet_Click()End SubPrivate Sub MdVipF_Click()End SubPrivate Sub MdVipJb_Click()End SubPrivate Sub mdiform_load()StatusBarEnd SubPrivate Sub MdZhuC_Click()End SubPrivate Sub Timer1_Timer()StatusBar1.Panels(4) = NowEnd Sub2.2.3會(huì)員根本信息模塊設(shè)計(jì)1.界面設(shè)計(jì)：使用的控件有Frame、L

10、abel、TextBox、Data。如圖2.4圖2.4 會(huì)員根本信息模塊Private Sub Form_Load()Dim SQL As StringDim i As IntegerAdodc1.ConnectionString = provider=microsoft.jet.oledb.4.0;data source= _ & App.Path & cdlent.mdb;Mode=ReadWrite;Persist Security Info=True;Jet OLEDB:Database Password=vcdglxtAdodc1.CursorLocation = adUseClie

11、ntAdodc1 mandType = adCmdTextAdodc2.ConnectionString = provider=microsoft.jet.oledb.4.0;data source= _ & App.Path & cdlent.mdb;Mode=ReadWrite;Persist Security Info=True;Jet OLEDB:Database Password=vcdglxtAdodc2.CursorLocation = adUseClientAdodc2 mandType = adCmdTextFor i = 0 To 5 FindVip.DataGrid1.C

12、ol = iNextSQL = select cdinfo.影碟編號(hào),cdinfo.影碟名稱(chēng),cdinfo.光碟數(shù)量,cdinfo.借出次數(shù), _ & cdinfo.影碟類(lèi)別,cdinfo.入店時(shí)間 from cdinfo,viplentinfo where cdinfo.影碟編號(hào)=viplentinfo.影碟編號(hào) and viplentinfo.會(huì)員編號(hào)= & Text1(0).Text & and viplentinfo.還碟時(shí)間 is nullAdodc2.RecordSource = SQLSet DataGrid2.DataSource = Adodc2Label10.Caption

13、 = Adodc2.Recordset.RecordCount & 張SQL = select cdinfo.影碟編號(hào),cdinfo.影碟名稱(chēng),cdinfo.光碟數(shù)量,cdinfo.借出次數(shù), _ & cdinfo.影碟類(lèi)別,cdinfo.入店時(shí)間 from cdinfo,viplentinfo where cdinfo.影碟編號(hào)=viplentinfo.影碟編號(hào) and viplentinfo.會(huì)員編號(hào)= & Text1(0).Text & Adodc1.RecordSource = SQLSet DataGrid1.DataSource = Adodc1Label8.Caption = A

14、dodc1.Recordset.RecordCount & 張End SubPrivate 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 Th

15、en SQL = select * from cdinfo,cdtype where cdinfo.影碟類(lèi)別=cdtype.影碟類(lèi)別 and 影碟編號(hào)= & TxtCDId.Text & OpenDBFile OpenRS (SQL) If Not gRst.EOF Then If gRst(是否借出) = -1 Then MsgBox 對(duì)不起，該影碟已經(jīng)借出，請(qǐng)從新選擇！, vbInformation + vbOKOnly, 信息 TxtCDId.Text = TxtCD TxtCDName.Text = TxtCDle.Text = TxtM.Text = TxtSum.Text = Tx

16、tDATE.Text = TxtYj.Text = CloseRS Exit Sub End If TxtCDName.Text = gRst(影碟名稱(chēng)) TxtCDle.Text = gRst(cdinfo.影碟類(lèi)別) TxtM.Text = gRst(影碟價(jià)格) TxtSum.Text = gRst(光碟數(shù)量) TxtDATE.Text = gRst(借出天數(shù)) Else MsgBox 對(duì)不起，你輸入的影碟編號(hào)不存在！, vbInformation + vbOKOnly, 信息 TxtCDId.Text = tFocus CloseRS Exit Sub End If CloseRSEls

17、eIf keyascii = 13 And TxtCDId.Text = Then MsgBox 對(duì)不起，請(qǐng)輸入影碟編號(hào)，并按回車(chē)鍵！, vbInformation + vbOKOnly, 警告 TxtCDId.Text = End IfEnd Sub2.2.5會(huì)員查詢模塊設(shè)計(jì)1.界面設(shè)計(jì)：使用的控件有Frame、TextBox、Option、Check、Label、CommandButton、Data。如圖2.6圖2.6會(huì)員查詢模塊代碼設(shè)計(jì)：Private Sub Option1_Click()Label1.Caption = 按編號(hào)查詢Label2.Visible = FalseEnd S

18、ubPrivate Sub Option2_Click()Label1.Caption = 按姓名查詢FocusLabel2.Visible = FalseEnd SubPrivate Sub Option3_Click()Label1.Caption = 按級(jí)別查詢Label2.Visible = FalseEnd SubPrivate Sub Option4_Click()Label1.Caption = 按時(shí)間查詢Label2.Visible = TrueEnd SubPrivate Sub Option5_Click()Dim SQL As StringLabel2.Visible =

19、 FalseSQL = select * from vipinfoAdodc1.RecordSource = SQLSet DataGrid1.DataSource = Adodc1If Adodc1.Recordset.RecordCount 0 Then Command3.Enabled = True Command4.Enabled = True Command6.Visible = TrueElse Command3.Enabled = False Command4.Enabled = False Command6.Visible = FalseEnd IfEnd SubPrivate

20、 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 會(huì)員ID= & Text1.Text & End If If Option2.Value = True Then SQL = select * from vipinfo where 會(huì)員姓名= & Text1.Text & End I

21、f If Option3.Value = True Then SQL = select * from vipinfo where 會(huì)員級(jí)別= & Text1.Text & End If If Option4.Value = True Then SQL = select * from vipinfo where 辦理日期=# & Text1.Text & # End If ElseIf Check1.Value = 1 Then If Option1.Value = True Then SQL = select * from vipinfo where 會(huì)員ID like % & Text1.T

22、ext & % End If If Option2.Value = True Then SQL = select * from vipinfo where 會(huì)員姓名 like % & Text1.Text & % End If If Option3.Value = True Then SQL = select * from vipinfo where 會(huì)員級(jí)別 like % & Text1.Text & % End If If Option4.Value = True Then SQL = select * from vipinfo where 辦理日期 like % & Text1.Text

23、 & % End If End If Adodc1.RecordSource = SQL Set DataGrid1.DataSource = Adodc1 If Adodc1.Recordset.RecordCount = 0 Then MsgBox 對(duì)不起數(shù)據(jù)庫(kù)中沒(méi)有你需要的信息！, vbInformation + vbOKOnly, 信息 Text1.Text = Command3.Enabled = False Command4.Enabled = False Command6.Visible = False Else Command3.Enabled = True Command4.

24、Enabled = True Command6.Visible = True End IfElseIf keyascii = 13 And Text1.Text = Then MsgBox 請(qǐng)輸入需要查找的關(guān)鍵字！, vbInformation + vbOKOnly, 信息End IfEnd Sub2.2.6碟片類(lèi)別添加模塊設(shè)計(jì)使用的控件有Frame、TextBox、Label、CommandButton。如圖2.7圖2.7碟片類(lèi)別添加模塊2.代碼設(shè)計(jì)：Private Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load()End

25、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 Sub 數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)利用ADO(ActiveX Data Objects)進(jìn)行編程：建立連接：dim conn as new adodb.conne

26、ctiondim rs as new adodb.recordsetdim strstr = App.PathIf Right(str, 1) Thenstr = str + End Ifstr = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= & str & tsl.mdbconn.open strrs.cursorlocation=aduseclientrs.open 數(shù)據(jù)表名,conn,adopenkeyset.adlockpessimistic用完之后關(guān)閉數(shù)據(jù)庫(kù)：conn.closeset co