一卡通系統(tǒng)建設(shè)與規(guī)劃-數(shù)據(jù)庫設(shè)計(jì)及考勤系統(tǒng)-資料下載頁
2025-08-03 07:20本頁面
【正文】 （2）數(shù)據(jù)庫的E－R圖圖書信息提供N圖書借閱1借閱N卡庫記錄提供消費(fèi)商品信息記錄考勤擁有充值對應(yīng)操作內(nèi)容N1N11111NN1圖311 數(shù)據(jù)庫E－R圖運(yùn)行系統(tǒng)顯示用戶登錄界面，如圖41所示：圖4－1 登陸界面 用戶登陸系統(tǒng)以后，顯示系統(tǒng)的主界面。包括菜單欄和快捷按鈕欄。如圖：圖4－2 系統(tǒng)主界面 其關(guān)鍵代碼實(shí)現(xiàn)如下：Private Sub MDIForm_Activate()Select Case strJSCase 商品銷售員 = True(1).Visible = TrueCase 考勤記錄員 = True (3).Visible = TrueCase 圖書管理員 = True (5).Visible = TrueEnd SelectEnd Sub此模塊可以添加、修改、刪除、查詢卡信息。如圖：圖4－3用卡管理此模塊可以通過維護(hù)能夠使用客戶機(jī)的所有系統(tǒng)人員。如圖：圖4－4系統(tǒng)用戶其關(guān)鍵代碼實(shí)現(xiàn)如下：Private Sub Form_Load()顯示當(dāng)前的卡信息內(nèi)容f idkey ThenSet tmprs = ExecSql(select * from 卡庫 where 卡號=39。 amp。 Trim(idkey) amp。 39。 ) With tmprs = .Fields(卡號).Value Combo2(0).Text = .Fields(角色).Value = .Fields(年齡).Value = .Fields(性別).Value = .Fields(姓名).Value = .Fields(聯(lián)系方式).Value = .Fields(備注).Value = .Fields(姓名).Value = .Fields(辦卡日期).Value = .Fields(余額).Value End WithElse = Format(Date, YYYYMMDD) amp。 Format(Time, HHmmSS) = Date = FalseEnd IfEnd Sub此模塊可以通過輸入卡號信息進(jìn)行查詢卡的信息，并對卡信息進(jìn)行充值或作廢操作。如圖：圖4－5充值管理其關(guān)鍵代碼實(shí)現(xiàn)過程如下：Private Sub btnDel_Click()添加新的充值信息If = Then MsgBox 充值人員不能為空! Exit SubEnd If Call Exec_SqL(insert into 充值(充值日期,卡號,充值金額,備注) values(39。 amp。 amp。 39。 _ amp。 ,39。 amp。 amp。 39。,39。 amp。 Val() amp。 39。,39。 amp。 amp。 39。)) Call Exec_SqL(update 卡庫 set 余額=余額+ amp。 Val() amp。 where 卡號=39。 amp。 amp。 39。)Unload MeEnd Sub 考勤系統(tǒng)的實(shí)現(xiàn)人事考勤用于教師上下班考勤，可自動生成報(bào)表，可查詢。教務(wù)考勤教師上課考勤：每個(gè)教師上課在教室門口的刷卡機(jī)上打卡，可以準(zhǔn)確地知道哪個(gè)教師在哪里上課，如果與教務(wù)管理系統(tǒng)數(shù)據(jù)庫對接，可以實(shí)現(xiàn)對教師上課的有效管理。學(xué)生上課考勤：每個(gè)學(xué)生上課時(shí)在相關(guān)教室（實(shí)驗(yàn)室或其它場所）門口打卡，可自動統(tǒng)計(jì)出上課時(shí)間、授課老師、學(xué)生的出勤情況，并可以對數(shù)據(jù)進(jìn)行統(tǒng)計(jì)、查詢。其它考勤如各種研討會、學(xué)術(shù)交流、競賽等要求出勤的活動，都可以進(jìn)行考勤登記， 以便于統(tǒng)計(jì)和查詢。刷卡考勤模塊主界面如圖4－6所示：圖4－6考勤記錄此功能模塊主要代碼摘錄如下：Dim arrName() arrName = Array(流水號, 日期, 考勤類型, 原因, 卡號, 備注)Dim arrColwidth() arrColwidth = Array(0, 3000, 3000, 3000, 2500, 3500) = 6 = 2Dim i As LongFor i = 0 To 1 (i) = arrColwidth(i) (0, i) = arrName(i) (1, i) = Next = 31Call UpdateDDD(ddd, GetSql(SELECT 流水號,日期,考勤類型,原因,卡號,備注 from 考勤 where 日期 between 39。 amp。 amp。 39。 and 39。 amp。 amp。 39。and 卡號 like 39。% amp。 amp。 %39。 ))校園一卡通不但可以提高學(xué)校的資源利用率，還可以提高學(xué)校的工作效率，提升學(xué)校的競爭力。一卡通是高校信息化管理發(fā)展的必然趨勢。本軟件的設(shè)計(jì)目的是充分利用計(jì)算機(jī)技術(shù)，通過軟件來實(shí)現(xiàn)對校園的數(shù)字化和信息化管理。以實(shí)現(xiàn)管理的科學(xué)化、規(guī)范化，進(jìn)而提高效率、降低成本。通過本次畢業(yè)設(shè)計(jì)，使我學(xué)到很多以前沒有學(xué)到的VB開發(fā)技術(shù)及編程技巧，在UML圖的繪制、軟件工程學(xué)上更是取得了很大的進(jìn)步。雖然這個(gè)程序?qū)崿F(xiàn)了一些簡單的一卡通管理功能，能夠基本實(shí)現(xiàn)設(shè)計(jì)的要求，但畢竟由于水平有限，軟件存在錯(cuò)誤或不足也是在所難免的 ，在很多方面的功能還不夠完善，希望通過您的意見和建議幫助我改進(jìn)并完善軟件。真誠的希望您的參與。參考文獻(xiàn)：[1] Basic 時(shí)尚編程百例. 北京：機(jī)械工業(yè)出版社，2001.[2] Carl Franklin，（瀟湘工作室 譯）.Visual Basic Internet ，1999.[3] 朱錦坤， Basic 多媒體與因特網(wǎng)應(yīng)用. 北京：清華大學(xué)出版社，1999.[4] 馬錦忠，：南京大學(xué)出版社，1995.[5] 沈德金，. 北京：北京航天航空大學(xué)出版社，1991.[6] . 西電科大版，1999.致謝本次畢業(yè)設(shè)計(jì)的設(shè)計(jì)制作過程中，我之所以能順利完成任務(wù)，除去自身的努力之外，很大程度上要?dú)w功于我的指導(dǎo)老師和同學(xué)，他們給我提供了很大的幫助，他們認(rèn)真的做我的測試用戶、不厭其煩的為我提出了系統(tǒng)的不足之處和改進(jìn)方法、指導(dǎo)我、督促我，讓我從中得到很多編程技巧和經(jīng)驗(yàn)，在此表示誠摯的感謝。
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1