freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

畢業(yè)論文設(shè)計(jì)影碟出租管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-資料下載頁(yè)

2025-07-13 19:35本頁(yè)面

【導(dǎo)讀】管理學(xué)院信管0301班學(xué)生覃秋園畢業(yè)設(shè)計(jì)第1頁(yè)共29頁(yè)。濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙

  

【正文】 歸還 ( 1)按會(huì)員編號(hào)歸還 用 load語(yǔ)句將會(huì)員目前在借的影碟編號(hào)、片名羅列到窗體上,以復(fù)選框控件的形式出現(xiàn)。下面是核心代碼 (rs為會(huì)員目前在借影碟的數(shù)據(jù)集 )。會(huì)員歸還界面見(jiàn)圖 。 all = = True Label2 = rs!會(huì)員編號(hào) amp。 amp。 rs!姓名 amp。 待還影碟: For i = 1 To all Load Check1(i) Check1(i).Top = Check1(i 1).Top + 300 Check1(i).Visible = True Check1(i).Caption = rs!影碟編號(hào) amp。 amp。 rs!片名 didLoad = True If Then : Exit For Next 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 21頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 圖 按會(huì)員歸還窗體界面 勾選復(fù)選框,點(diǎn)擊 “歸還 ”,則系 統(tǒng)進(jìn)行數(shù)據(jù)庫(kù)的修改工作。 ( 2) 按影碟編號(hào)歸還 適用: ,無(wú)法及時(shí)操作電腦,又有很多歸還影碟囤積 在文本框 Text1內(nèi)輸入影碟編號(hào),轉(zhuǎn)移焦點(diǎn)時(shí)觸發(fā)文本框的 validate 事件,系統(tǒng)判斷所輸入內(nèi)容是否有效,以及讀取數(shù)據(jù)庫(kù) “租借記錄 ”表內(nèi)的相關(guān)信息。運(yùn)行界面如下圖 : 圖 按影碟歸還窗體界面 文本框 Validate 事件代碼: Private Sub Text1_Validate(Index As Integer, Cancel As Boolean) For i = 0 To 5 If Text1(i) = Then Exit For 影碟編號(hào) =39。 amp。 Text1(i) amp。 39。 If Then 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 22頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 MsgBox 租借記錄中沒(méi)有此編號(hào)的影碟 ! amp。 vbCrLf amp。 請(qǐng)檢查所輸入的影碟編號(hào) !, vbCritical, 出錯(cuò)提示 Text1(i) = Text1(i).SetFocus Cancel = True Else Label3(i) = rs2!片名 Label5(i) = rs2!會(huì)員編號(hào) amp。 Space(2) amp。 rs2!姓名 If Not IsNull(rs2!歸還日期 ) Then MsgBox rs2!影碟編號(hào) amp。 rs2!片名 amp。 已于 amp。 rs2!歸還日期 amp。 歸還 ! amp。 vbCrLf amp。 請(qǐng)檢查影碟編號(hào) !, vbCritical, 出錯(cuò)提示 Text1(i).SetFocus Text1(i).SelStart = 0 Text1(i).SelLength = Len(Text1(i)) Cancel = True End If End If Next End Sub 會(huì)員管理模塊 新會(huì)員注冊(cè) 添加 Data 控件來(lái)連接數(shù)據(jù)庫(kù),用 AddNew、 update 方法實(shí)現(xiàn)數(shù)據(jù)的增加,同時(shí)用BeginTrans、 CommitTrans、 Rollback語(yǔ)句增強(qiáng)安全性。初始化窗體的時(shí)候,系統(tǒng)自動(dòng)填充某些字段,以方便操作者,并能降低出 錯(cuò)率。 會(huì)員資料 界面、代碼都和 “影碟資料 ”類似,在此將不再贅述。 會(huì)員租借記錄 顯示會(huì)員自入會(huì)以來(lái)所租借過(guò)的所有影碟,存檔備用。還可以查看全部租借記錄。使用 Adodc、 MSHFlexGrid控件。圖 : 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 23頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 圖 會(huì)員租借記錄窗體界面 “確定 ”按鈕事件代碼如下,將查詢條件賦值給 sql 變量,再以 sql 變量作為 Adodc1 的數(shù)據(jù)源。 Private Sub Command1_Click() If = True Then sql = select * from 租借記錄 where 會(huì)員編號(hào) = amp。 amp。 order by 租借日期 會(huì)員編號(hào) = amp。 Else sql = select * from 租借記錄 where 姓名 =39。 amp。 amp。 39。 amp。 order by 租借日期 姓名 =39。 amp。 amp。 39。 End If = sql Label1 = (0) amp。 Space(2) amp。 (1) amp。 的租借記錄 (2) = 0 (3) = 0 Label2 = 限租 : amp。 (2) amp。 Space(2) amp。 已租 : amp。 (3) = True = True End Sub 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 24頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 散客結(jié)賬 在 “散客 ”表讀取散客的押金,從 “租借記錄 ”表讀取此散客歸還情況,若符合條件,則計(jì)費(fèi)結(jié)賬。用布爾型變量 leave來(lái)判斷是否可以結(jié)帳。以下為核心語(yǔ)句,圖 界面。 Dim leave As Boolean = select * from 租借記錄 where 會(huì)員編號(hào) =0 and 姓名 =39。 amp。 amp。 39。 Do Until If IsNull((“歸還日期 ”)) Then leave = False Exit Do Else leave = True end if Loop 判斷此散客是否已經(jīng)歸還所有在借的影碟,這是結(jié)賬的前提。用 Select case 語(yǔ)句作判斷 leave的值,變量 onedisk作為一個(gè)影碟所需租金,并累加到總租金 rate中。核心語(yǔ)句: Select Case leave Case False = False Label2 = 歸還以下影碟后才能結(jié)帳! Do Until If IsNull((5)) Then Label1 = Label1 amp。 (0) amp。 Space(1) amp。 (1) amp。 vbCrLf Loop Case True Label2 = rate = 0 Do Until oneDisk = CDate((5)) CDate((4)) If oneDisk = 0 Then oneDisk = 1 rate = rate + oneDisk …… End Select 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 25頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 圖 散客結(jié)帳窗體界面 點(diǎn)擊 “找補(bǔ) ”按鈕,則此散客在 “散客 ”表上的信息被刪除。 業(yè)務(wù)統(tǒng)計(jì)模塊 熱門影碟 使用 MSChart和 Adodc控件。 Adodc控件的 RecordSource 屬性為 SQL文本 “select 片名 ,sum(租借次數(shù) ) as 借出次數(shù) from 影碟資料 group by 片名 order by sum(租借次數(shù) ) desc”,這樣數(shù)據(jù)能按從大到小的順序排列。運(yùn)行界面如下圖 : 參考文獻(xiàn) ......................................................................................................... 錯(cuò)誤 !未定義書簽。 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 26頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 圖 熱門影碟窗體界面 業(yè)務(wù)情況 實(shí)現(xiàn)方法與 “熱門影碟 ”相同,界面也相似。 整體界面 圖 EasyVideo 影碟出租管理系統(tǒng)主界面 如上圖 ,整體界面以傳統(tǒng)的柔和的灰色為色彩基調(diào)。上方是菜單欄,左側(cè)是常用功能快捷按鈕,當(dāng)然,也可以下拉對(duì)應(yīng)的菜單欄進(jìn)入相應(yīng)的模塊窗體界面。下方是狀態(tài)欄,顯示軟件名稱、軟件版本、作者、當(dāng)前系統(tǒng)日期及星期。 進(jìn)入 EasyVideo 影碟出租管理系統(tǒng)是首先出現(xiàn)登陸界面,用戶名稱默認(rèn)為 Admin,初始密碼為 123,可以在 “管理員 ”菜單里更改密碼,輸入正確密碼后方可激活主窗體,使用此系統(tǒng)。 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 27頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 5 總結(jié)與展望 經(jīng)過(guò)半個(gè)多月廢寢忘食地構(gòu)思、編程、調(diào)試、完善, EasyVideo影碟出租管理系統(tǒng) 版終于出爐。 總體上來(lái)說(shuō),這個(gè) EasyVideo 影碟出租管理系統(tǒng)功能比較完善,能應(yīng)付影碟出租管理日常使用需求。界面設(shè)計(jì)得相當(dāng)簡(jiǎn)單,操作也很簡(jiǎn)便,易用性很強(qiáng)。但這個(gè) 版本屬于單機(jī)版,若出租店鋪比較大,有分店的話,就需要網(wǎng)絡(luò)技術(shù)支持了。如果每張影碟都貼上條形碼,登記借出、歸還時(shí)掃描條形碼,將免去輸入影碟編號(hào)這一步驟,操作將更加簡(jiǎn)便! 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 28頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 謝辭 感謝溫秀紅老師,她豐富的學(xué)識(shí)和超凡的個(gè)人魅力給了我很 大的影響。 感謝劉鵬老師,他細(xì)心的指導(dǎo)與鼓勵(lì),使我信心百倍地高效完成這個(gè)畢業(yè)設(shè)計(jì)。 感謝我的朋友劉平,在校園網(wǎng)實(shí)在無(wú)法滿足我的需要的時(shí)候,通過(guò)遠(yuǎn)程連接他機(jī)器,使我保證了工作效率。 感謝我的朋友雷劍,他在我無(wú)助的時(shí)候給予我力量與支持,讓我感到并不是自己一個(gè)人。這種溫暖的感覺(jué),無(wú)以言表,只有自己心里最清楚。 感謝 Sobranie Pinks,她在我思路堵塞、憂愁煩悶的時(shí)候陪我一起思考,使本設(shè)計(jì)完成得比預(yù)想中更早、更順利。 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計(jì) 第 29頁(yè) 共 29 頁(yè) 濟(jì)南大學(xué)畢業(yè)設(shè)計(jì)用紙 參考 文獻(xiàn) [1] Wayne Freeze . Visual Basic 數(shù)據(jù)庫(kù)編程寶典 [M].北京 :電子工業(yè)出版社 ,20xx. [2] 溫賢發(fā). Visual Basic 6 數(shù)據(jù)庫(kù)程序設(shè)計(jì)高手 [M].北京 :科學(xué)出版社 ,20xx. [3] Noel Jerke . Visual Basic 6 參考大全 [M].北京 :希望電子出版社 ,1999. [4] 王珊.?dāng)?shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)明教程 [M].北京 :高度教育出版社 ,20xx. [5] 劉炳文. Visual Basic 程序設(shè)計(jì)教程(第二版) [M].北京 :清華大學(xué)出版社 ,20xx. [6] 朱永春 ,尹顯?。?Access20xx 中文版實(shí)例與疑難解答 [M].北京 :電子工業(yè)出版社 ,20xx. [7] Philip . A guide to SQL[M].北京 :中國(guó)鐵道出版社 ,20xx. [8] 蘇格蘭學(xué)歷管理委員會(huì)( SQA). Systems Development Relational Database Systems:Advanced[M].沈陽(yáng) :中國(guó)時(shí)代經(jīng)濟(jì)出版社 ,20xx. [9] Louis Davidson. SQL Server 20xx 數(shù)據(jù)庫(kù)設(shè)計(jì)權(quán)威指南 [M]北京 :中國(guó)電力出版社 ,20xx. [10]王進(jìn)強(qiáng). Visual 基礎(chǔ)教程 ,黑魔方系列叢書 [M].北京 :清華大學(xué)出版社. 20xx. [11]方晨. Photoshop CS操作技巧 149例.上海 :科學(xué)普及出版社 ,20xx. [12]求是科技. Visual Basic 程序設(shè)計(jì)與開發(fā)技術(shù)大全.北京 :人民郵電出版社 ,20xx. [13]甘仞初.信息系統(tǒng)分析與設(shè)計(jì) [M].北京 :高等教育出版社. 20xx. [14]Hal . The Information Economy[D]. Scientific American,1996. [15] Hal . Circulating Libraries and Video Rental Stores[D]. The USA:
點(diǎn)擊復(fù)制文檔內(nèi)容
公司管理相關(guān)推薦
文庫(kù)吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1