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

正文內(nèi)容

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

2025-07-13 19:35本頁面

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

  

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