VCD租借管理系統(tǒng)-VB編程畢業(yè)設(shè)計VIP

1、目錄VCD管理信息系統(tǒng)課程設(shè)計任務(wù)書課題: VCD管理信息系統(tǒng)專業(yè)班級: 本組成員: 本組設(shè)計負責人: 指導(dǎo)老師: 起始日期: 20XX 月 日17目錄前言II第一章.需求分析11.1 基本需求分析1一、用戶需求分析1二、系統(tǒng)初步分析1三、可行性分析1四.詳細調(diào)查1五.建立新系統(tǒng)的邏輯模型2六.編寫系統(tǒng)說明書與系統(tǒng)分析評審2七.管理模型及其建立21.2系統(tǒng)分析31.3業(yè)務(wù)流程圖3第二章結(jié)構(gòu)設(shè)計52.1 模塊的劃分52.2 VCD的結(jié)構(gòu)功能圖52.3 E-R圖5第三章數(shù)據(jù)庫設(shè)計73.1 建立數(shù)據(jù)庫表73.2 連接數(shù)據(jù)9第四章界面設(shè)計104.1創(chuàng)建主窗體104.2 創(chuàng)建子窗體12前言當今時代不斷的

2、在發(fā)展,現(xiàn)代信息技術(shù)和管理理論、建立管理系統(tǒng)是當今社會的重點,現(xiàn)代不斷出現(xiàn)的“自動辦公化”的指導(dǎo)思想。對商家而言,全面開發(fā)和應(yīng)用計算機管理信息近期成了不可避免的問題,所以我們就VCD影碟租借管理系統(tǒng),它可以幫助經(jīng)銷商減輕比較繁瑣的影碟租借管理過程。隨著社會的進步,影片成了人們茶余飯后的重要部分,那么為了更好的管理好影片,經(jīng)營商對影碟租借管理系統(tǒng)的要求,對客戶管理的困難。如果要設(shè)計一套針對經(jīng)營影碟租借系統(tǒng)就特別有用,特別有深刻的意義,并且是現(xiàn)代的人代替不了的工作,這就是我們這個影碟租借系統(tǒng)的主要目標。本系統(tǒng)實現(xiàn)的主要功能:影碟的信息管理、影碟租借設(shè)置、客戶信息打印等功能。第一章.需求分析第一章.

3、需求分析1.1 基本需求分析一、用戶需求分析隨著科技的發(fā)展和計算機的應(yīng)用提高.人們在影視方面的需求也越來越大,所以在VCD租借的發(fā)展也隨之發(fā)展變大.所以在這方面的管理的需求也是越來越成型,更是需要一個好的管理系統(tǒng)來管理VCD的租借.為了滿足經(jīng)營商的需求,為了更好的管理VCD我們做了這個管理系統(tǒng),為用戶提供了更方便,快捷,簡單的操作.來減輕人工的工作負擔,從而更好的管理.二、系統(tǒng)初步分析(一) 調(diào)查的目的和內(nèi)容調(diào)查是為了了解用戶的需求,了解用戶對于系統(tǒng)的要求,同時也可以知道用戶目前采用的管理方式.1. 組織的概況2. 組織的環(huán)境3. 現(xiàn)行信息管理概況4. 關(guān)于認識的基礎(chǔ)5. 資源情況(二).調(diào)查

4、的方式方法1. 訪問VCD租借的商家2. 在網(wǎng)上及書上收集資料三、可行性分析1. 對開發(fā)任務(wù)的提出2. 對系統(tǒng)所達到的目標3. 對用戶需求做了初步調(diào)查4. 初步實施方案和比較5. 結(jié)論四.詳細調(diào)查在我們系統(tǒng)進入實質(zhì)性階段,就提出新系統(tǒng)的邏輯模型,要了解系統(tǒng)的目的.也為我們順利開展系統(tǒng)的設(shè)計與實現(xiàn)工作打下良好的基礎(chǔ).一. 組織結(jié)構(gòu)調(diào)查.二. 事務(wù)處理調(diào)查.三. 信息流程的調(diào)查與分析.五.建立新系統(tǒng)的邏輯模型建立新系統(tǒng)的邏輯模型就是在現(xiàn)行系統(tǒng)調(diào)查和分析的基礎(chǔ)上,了解系統(tǒng)的存在問題,對影響其效率的不合理因素做出修改,并最終形成新的邏輯方案.六.編寫系統(tǒng)說明書與系統(tǒng)分析評審七.管理模型及其建立表1.1

5、-進度安排表通過系統(tǒng)的調(diào)查與分析,將系統(tǒng)開發(fā)進度規(guī)定其相應(yīng)的時間,得到如表1.1所示的進度安排表,使整個過程一目了然。圖1.1-甘特圖1.2系統(tǒng)分析1、系統(tǒng)分析是指在管理信息系統(tǒng)開發(fā)的生命周期中系統(tǒng)分析階段的各次活動和方法,應(yīng)用系統(tǒng)思想和系統(tǒng)科學(xué)的原理進行分析工作的方法技術(shù)。2、系統(tǒng)分析階段的目的,就是按照系統(tǒng)規(guī)劃所定的某個開發(fā)項目范圍內(nèi)明確系統(tǒng)開發(fā)的目標和用戶的信息需求,提出系統(tǒng)的邏輯方案。3、系統(tǒng)分析在整個系統(tǒng)開發(fā)過程中,是要解決“做什么”的問題,即根據(jù)系統(tǒng)規(guī)劃所確定的范圍,對現(xiàn)行系統(tǒng)進行詳細調(diào)查,盡可能弄清楚用戶對信息的需求,調(diào)查原信息系統(tǒng)的資源,輸入、處理和輸出,描述現(xiàn)行系統(tǒng)的業(yè)務(wù)流程

6、,指出現(xiàn)行系統(tǒng)的局限性和不足之處,確定新系統(tǒng)的基本目標和邏輯功能要求,也即提出新系統(tǒng)邏輯模型,為下一階段進行物理方案設(shè)計、解決“怎么做”提供依據(jù)。因此,這個階段又稱邏輯設(shè)計階段。1.3業(yè)務(wù)流程圖VCD租借管理系統(tǒng)業(yè)務(wù)流程圖,是一種表明系統(tǒng)內(nèi)各單位,管理員與用戶之間的業(yè)務(wù)關(guān)系,作業(yè)順序和管理信息流動的流程圖,它可以幫助分析人員找出業(yè)務(wù)流程中的不合理之處。VCD租借管理系統(tǒng)分析的重點是對VCD管理系統(tǒng)的業(yè)務(wù)流程進行描述,通過采用流程圖中的部分圖形信息管理活動進行規(guī)范化說明。如圖1.2所示,管理員根據(jù)用戶需求,開出定貨單并存檔。然后通過定貨單購買碟子,供碟商發(fā)貨后,管理員驗貨并入庫,完成入庫登記。最

7、后將碟子分類編號,填寫進貨賬單。這就是進貨業(yè)務(wù)流程。廠商發(fā)貨編號用戶需求管理員驗貨入庫登記進貨賬單訂貨單分類圖1.2-進貨業(yè)務(wù)流程圖出租按普通價查詢庫存開出進貨單按日出租按普通價按會員價賬單匯總按月出租按年出租按會員價管理員是否會員是否會員是否有？賬單進貨單賬單賬單賬單賬單 否 否是 是 否 是圖1.3-出租業(yè)務(wù)流程圖如圖1.3所示,管理員根據(jù)用戶需求查詢存貨,如果沒有,則開出進貨單。如果有,就按照出租類型進行出租,其中出租類型分為按年出租、按月出租、按日出租。在根據(jù)用戶類型確定出租途徑,其中包括按會員出租和按普通出租。出租后分別記賬,最后對賬單進行匯總。第二章 結(jié)構(gòu)設(shè)計第二章結(jié)構(gòu)設(shè)計2.1

8、模塊的劃分根據(jù)需求,設(shè)計好數(shù)據(jù)庫系統(tǒng),然后開發(fā)應(yīng)用程序可以考慮的窗體的系統(tǒng)。每個窗體實現(xiàn)不同的功能,可以設(shè)計下面的幾個模塊:出租管理模塊:用來實現(xiàn)對碟片的增加,刪除和修改等操作。現(xiàn)金出入模塊:用來實現(xiàn)對碟片出租價格,帳戶增加,減少等操作。查詢管理模塊:用來實現(xiàn)對碟片的查詢和瀏覽。系統(tǒng)管理模塊:用來實現(xiàn)對碟片的出租,客戶還碟,進貨,遺失等操作。2.2 VCD的結(jié)構(gòu)功能圖根據(jù)前面的VCD租借業(yè)務(wù)流程和信息化的管理的目標,一個通用的VCD租借系統(tǒng)應(yīng)包含如下功能:VCD租借管理系統(tǒng)碟片出租管理客戶還碟管理碟片進貨管理碟片查詢管理現(xiàn)金出入管理現(xiàn)金單查詢管理過期未還碟片管理圖2.1-功能結(jié)構(gòu)圖2.3 E-

9、R圖根據(jù)以上需求分析,一個基本的VCD租借管理系統(tǒng)數(shù)據(jù)庫包括多張數(shù)據(jù)表,存放相應(yīng)功能的數(shù)據(jù)信息,其中碟片分類表和碟片查詢表是關(guān)鍵表,它們是1:N的關(guān)系。關(guān)系模型:碟片查詢表(編號,名稱,租金,主演,導(dǎo)演,備注)碟片出租表(編號,名稱,碟數(shù),是否出租)客戶還碟表(編號,名稱,碟數(shù),出租時間,歸還時間,備注)進貨表(名稱,碟數(shù),進貨時間,價格,備注)碟片分類表(編號,名稱,備注)會員表(會員號,姓名,家庭住址,聯(lián)系TEL,備注)E-R圖類別碟片租借客戶備注碟名碟數(shù)編號租金導(dǎo)演主演家庭住址姓名聯(lián)系電話hua 話會員號類名INNM類圖2.2 E-R圖表2.1 碟片進貨表編號名稱碟數(shù)進貨時間價格備注表2

10、.2 碟片出租表編號名稱碟數(shù)是否出租表2.3 客戶還碟表編號名稱碟數(shù)出租時間歸還時間備注表2.4 會員表會員號姓名家庭住址聯(lián)系TEL備注表2.5 碟片查詢表編號名稱租金主演導(dǎo)演備注表2.6 碟片分類表編號名稱備注第三章 數(shù)據(jù)庫設(shè)計第三章數(shù)據(jù)庫設(shè)計3.1 建立數(shù)據(jù)庫表在Microsoft Access中建立數(shù)據(jù)庫表,如下圖:圖3.1圖3.2 碟片查詢表圖3.3 客戶進貨表圖3.4客戶進貨表圖3.3 碟片出租表圖3.4 客戶還碟表圖3.5 會員表圖3.6 碟片分類表3.2 連接數(shù)據(jù)由于本項目是采用ADO對象訪問數(shù)據(jù)庫的技術(shù),所以在VB中需要添加ADO庫,添加的方法是在VB中選擇“工程”/“引用”命

11、令,在對話框中選擇MICROSOFT ACTIVE XDATAOBJECTS2.0,LIBRARY,單擊“確定”按鈕,如圖所示圖3.7 控件選擇在程序設(shè)計的公共模塊中,選定ADO連接對象,語句如下:Public conn as new ADOB.connection標記連接對象,然后在子程序中,用如下語句即可打開數(shù)據(jù)庫:Dim connectionstring as string Connnectionstring=provider=MicrosoftJet.oledb.4.0;”&_”data source=carshale.mdb”Conn.open,connctionstring第四章界

12、面設(shè)計第四章界面設(shè)計4.1創(chuàng)建主窗體圖4.1-主界面截圖主窗體界面代碼:Option ExplicitPrivate Sub Command1_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Form_Load()Me.Width = Screen.Width - 100Me.Height = Screen.Height - 1000Me.Picture = LoadPicture(E:li.jpg)Label1.FontSize = 40Label1.Caption = VCD租借管理系統(tǒng)Label1.ForeColor = QBColor(6)L

13、abel1.Width = 6000Label1.Height = 1000Label1.BackColor = QBColor(11)Label2.Caption = NO:Label2.Visible = FalseData1.Visible = FalseAdodc1.Visible = FalseEnd Sub. Private Sub give_Click()Form1.HideForm3.ShowEnd Sub圖4.2 用戶登錄窗體用戶登錄窗體代碼如下:Option ExplicitPrivate Sub Command1_Click()If Trim(txtname) = The

14、nMsgBox 對不起,請輸入用戶名, vbInformation, App, Title, txtname, SetFocusExit SubEnd IfIf InStr(1, txtname, Text, ) 0 Or InStr(1, txtname, Text, and) 0 Or instrl Then MsgBox 用戶名不合法！, vbInformation, App, Titletxtname.Text = txtnamne.SetFocusExit SubEnd IfDim login_rs As New ADODB.Recordsetlogin_rs.Open select

15、 用戶名,密碼 from 系統(tǒng)管理 where 用戶名= & Trim(txtname.Text) & , cn, 1.3If login_rs.EOF ThenMsgBox 用戶名不存在, vbInformation, App, Titletxtname.Text = txtname.SetFocusExit SubEnd IfIf LCase(txtpwd, Text) login_rs(1) ThenMsgBox 用戶密碼錯誤, vbInformation, App, Titletxtpwd.Text = txtpwd.SetFocuspwdtimes = pwdtimest1If pe

16、dtimes = 3 ThenMsgBox 密碼輸入錯誤超過3次！系統(tǒng)強制退出！, vbInformation, App, TitleEndEnd IfExit SubEnd IfSet login_rs = Nothingloginname = LCase(Trim(txtname.Text)access = 1Load frmmainfrmmain ShowUnload MeEnd SubPrivate Sub Form_Load()Picture1.Picture = LoadPicture(E:01.jpg)Adodc1.Visible = FalseEnd Sub用戶退出窗體代碼如下

17、:Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)If MsgBox(確定要退出嗎？, vbQuestion + vbYesNo + vbDefaultButton2, App, Title) = vbYes ThenUnload MeEnd SubPrivate Sub sysleft_Click()On Error Resume NextIf MsgBox(確定要退出嗎？, vbQuestion + vbYesNo + vbDefaultButton2, App, Title) = vbYes ThenUn

18、load MeEnd Sub4.2 創(chuàng)建子窗體圖4.2-操作菜單下拉子菜單圖4.3-輔助菜單下拉子菜單圖4.4-幫助菜單下拉子菜單圖4.5-工具攔截圖現(xiàn)金出入窗體代碼如下:Private Sub Form_Load()Dim strfitler As StringDim db As New DatabasesDim rs As RecordsetSet rs = db.runselectSQLupdatabceSet adodc1.Recordset = rsEnd SubPrivate Sub saveforadd()Dim db As New DatabasesDim strSQL As

19、StringstrSQL = insert into 帳單明細(消費內(nèi)容,消費時間,消費金額,備注)valuesstrSQL = strSQL + Trim(cbbinid.Text) + ,strSQL = strSQL + Trim(cbbcontent.Text) + ,strSQL = strSQL + Trim(txbmoney.Text) + ,strSQL = strSQL + Trim(txremark.Text) + ,db.runselectSQL (strSQL)End SubPrivate Sub toolbar_buttonclick(ByVal button As

20、mscomctclib.button)If StrComp(button.Key, btnfirst) = 0 ThenAdodc1.Recordset.MoveFirstElseIf StrComp(button.Key, btnbefore) = 0 ThenAdodc1.Recordset.MovepreivousElseIf StrComp(button.Key, btnnext) = 0 ThenAdodc1.Recordset.MoveLastElseIf StrComp(button.Key, btnexit) = 0 ThenEndEnd IfEnd SubPrivate Su

21、b btnover_click()Dim db As New DatabasesDim strSQL As StringstrSQL = exec sf_收銀strSQL = strSQL + Adodc1.Recordsetdb.runselectSQL (strSQL)db.closeconnLoad DataEnd Sub 用戶資料窗口圖4.6-用戶資料窗口截圖用戶資料窗口代碼:Dim myval As String 定義字符串變量Private Sub Form_Load()查詢所有VCD預(yù)定信息添加租期類型列表Combo2.AddItem (日租)Combo2.AddItem (月租

22、)Combo2.AddItem (年租)Combo2.ListIndex = 0End SubPrivate Sub Txtjg_Change()Txtje.Text = Val(Txtts.Text) * Val(Txtjg.Text) 計算預(yù)付金額End SubPrivate Sub Txtts_Change()Txtjg_ChangeEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)With Adodc1.RecordsetIf .RecordCount 0 The

23、n 給文本框賦值If Fields(編號) Then Txtbh.Text = .Fields(編號)If .Fields(姓名) Then Txtxm.Text = .Fields(姓名)If .Fields(證件名稱) Then Combo1.Text = .Fields(證件名稱)If .Fields(證件號) Then Txtzjh.Text = .Fields(證件號)If .Fields(聯(lián)系TEL) Then Txtdh.Text = .Fields(聯(lián)系TEL)If .Fields(詳細Adress) Then Txtdz.Text = .Fields(詳細Adress)If

24、.Fields(工作單位) Then Txtdw.Text = .Fields(工作單位)If .Fields(VCD類型) Then Combo2.Text = .Fields(VCD類型)If .Fields(碟片價格) Then Txtjg.Text = .Fields(碟片價格)If .Fields(預(yù)租日期) Then DTP1.Value = .Fields(預(yù)租日期)If .Fields(租期) Then Txtts.Text = .Fields(租期)If .Fields(押金) Then Txtje.Text = .Fields(押金)End IfEnd WithEnd Su

25、bPrivate Sub CmdModity_Click() 允許修改數(shù)據(jù)Txtxm.Enabled = TrueCombo1.Enabled = TrueTxtzjh.Enabled = TrueTxtdh.Enabled = TrueTxtdz.Enabled = TrueTxtdw.Enabled = TrueCombo2.Enabled = TrueTxtjg.Enabled = TrueDTP1.Enabled = TrueTxtts.Enabled = TrueTxtje.Enabled = TrueTxtbh.Enabled = TrueEnd SubPrivate Sub Cm

26、dSave_Click() 保存修改后的數(shù)據(jù)Adodc2.RecordSource = select * from VCD預(yù)定表 where 編號= + Txtbh.Text + order by 編號Adodc2.RefreshIf Adodc2.Recordset.RecordCount 0 Thenmyval = MsgBox(是否修改該信息？, vbYesNo)If myval = vbYes Then賦值給數(shù)據(jù)庫字段If Txtxm.Text Then Adodc1.Recordset.Fields(姓名) = Txtxm.TextIf Combo1.Text Then Adodc1

27、.Recordset.Fields(證件名稱) = Combo1.TextIf Txtzjh.Text Then Adodc1.Recordset.Fields(證件號) = Txtzjh.TextIf Txtdh.Text Then Adodc1.Recordset.Fields(聯(lián)系TEL) = Txtdh.TextIf Txtdz.Text Then Adodc1.Recordset.Fields(詳細Adress) = Txtdz.TextIf Txtdw.Text Then Adodc1.Recordset.Fields(工作單位) = Txtdw.TextIf Combo2.Text Then Adodc1.Recordset.Fields(類型) = Combo2.TextIf Txtjg.Text Then Adodc1.Recordset.Fields(價格) = Val(Txtjg.Text)If DTP1.Valu