【正文】 其中的日期也是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以這里的違規(guī)操作用的也是 Adodc 控件，所有的文本框在初始的時(shí)候也沒(méi)有同 Adodc 綁定，它也是在代碼中與數(shù)據(jù)庫(kù)中表的字段進(jìn)行的綁定，然后進(jìn)行添加操作。 amp。①界面效果圖圖 數(shù)據(jù)轉(zhuǎn)換效果圖②實(shí)現(xiàn)方法在這里用到了一個(gè)顯示 gif 圖片的控件。數(shù)據(jù)恢復(fù)代碼如下：If MsgBox(Restoring database from location amp。 amp。然后點(diǎn)擊更新就會(huì)完成此操作。 amp。 Trim() amp。 39。樹(shù)中的節(jié)點(diǎn)在點(diǎn)擊后會(huì)把父節(jié)點(diǎn)顯示在選擇公寓后面的列表框中，而選中的節(jié)點(diǎn)會(huì)出現(xiàn)在寢室名稱(chēng)里。 39。在點(diǎn)擊 sstab 各版的時(shí)候，要在這時(shí)重新生成寢室設(shè)置中的樹(shù)型結(jié)構(gòu)，Select Case PreviousTab Case 0 Call startree1 Case 1 Dim I As Integer I = 1 If 0 Then Do While I ((公寓名稱(chēng))) I = I + 1 Loop End If Call startree1 Case 2 Call startree1End SelectEnd Sub(1) 公寓設(shè)置① 公寓設(shè)置效果圖圖 公寓設(shè)置② 界面制作與實(shí)現(xiàn)方法在這個(gè)界面中主要用到了一個(gè) Sstab 控件與一個(gè)顯示表中內(nèi)容的 Datagrid 控件。普通用戶，只有普通的查看、查詢、備份、添加等權(quán)力。設(shè)置代碼如下：Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 datasource.CommandType = adCmdTable.RecordSource = weisheng.RefreshEnd WithWith Adodc5.Mode = adModeReadWrite.ConnectionString = provider amp。下面就是設(shè)置它們大小的程序代碼： = = 750 = 750 = 1200 = 1200 = 1200= 1500= 1500= 1500Y = x = (Y z) / 4(1).Width = u + x(2).Width = v + x(3).Width = w + x(4).Width = m + x這個(gè)軟件的主要部分都在這里運(yùn)行、查看，所以在主窗體的 load 事件里要把所用的到的東西都要加載進(jìn)來(lái)，例如所在程序運(yùn)行時(shí)所用到的表，左側(cè) treeview 部分樹(shù)形顯示的初始化。用這個(gè)方法得到數(shù)據(jù)源。 datasource.CommandType = adCmdTable.RecordSource = yonghu.Refresh.End With對(duì)用戶進(jìn)行判斷If = ThenMsgBox 請(qǐng)輸入用戶名!, 48, 提示Exit SubEnd If 用戶=39。HE0E0E0End Sub 鼠標(biāo)移動(dòng)到標(biāo)簽的時(shí)候設(shè)置線條的顏色如下：Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。在程序中可以按 F1 或點(diǎn)擊幫助菜單來(lái)顯示此 文檔。 數(shù)據(jù)轉(zhuǎn)換利用數(shù)據(jù)轉(zhuǎn)換將當(dāng)前數(shù)據(jù)庫(kù)中的表轉(zhuǎn)換成 Excel 表格的形式，顯示更為直觀，可以進(jìn)行打印等操作。數(shù)據(jù)結(jié)構(gòu)如下表：字段名 數(shù)據(jù)類(lèi)型 數(shù)據(jù)長(zhǎng)度日期 文本 14姓名 文本 8班級(jí) 文本 10公寓 文本 20寢室 文本 10天數(shù) 文本 10原因 備注老師 文本 8備注 備注⑶ 學(xué)生違規(guī)情況表主要存放學(xué)生違規(guī)情況，字段包括：日期、姓名、班級(jí)、公寓、寢室、原因、程度、處罰、備注。 系統(tǒng)開(kāi)發(fā)的可行性1．3．1 技術(shù)上的可行性我們正走進(jìn)一個(gè)信息時(shí)代，信息技術(shù)將從根本上改變?nèi)祟?lèi)社會(huì)的生產(chǎn)方式和生活方式，各行各業(yè)的業(yè)務(wù)管理現(xiàn)在都已經(jīng)相繼使用計(jì)算機(jī)來(lái)處理，可以說(shuō)用計(jì)算機(jī)進(jìn)行信息管理是一個(gè)總趨勢(shì)。同樣，在 VISUAL BASIC 中，用來(lái)構(gòu)成用戶圖形界面的可視化控件，也可視為是一個(gè)對(duì)象。如各個(gè)公寓的分布特色，以及公寓的各種管理制度。隨著學(xué)校寄宿人員的增多，公寓管理人員的負(fù)擔(dān)越來(lái)越重，為了讓所有公寓管理人員能從繁重的工作中解脫出來(lái)，實(shí)現(xiàn)無(wú)紙化辦公；使工作更有條理，更方便，更有效率而開(kāi)發(fā)出這套公寓管理軟件。 violation of discipline,teachers39。它目前在功能上，以及操作的簡(jiǎn)便上有很大的改進(jìn)。使軟件做起來(lái)會(huì)更加得心應(yīng)手。1．3．2 經(jīng)濟(jì)上的可行性本單位有自己的微機(jī)室可以使用，不必重新購(gòu)置計(jì)算機(jī)，不需要花費(fèi)大量資金，是一個(gè)節(jié)約人力物力的好辦法。 系統(tǒng)設(shè)置:主要完成：用戶管理、公寓設(shè)置、數(shù)據(jù)備份、數(shù)據(jù)轉(zhuǎn)換、退出的功能。利用它可以把學(xué)生的基本的違規(guī)資料保存起來(lái)。加上本單位最有特色的建筑，會(huì)讓人一目了然。在添加管理人員時(shí)有兩種默認(rèn)級(jí)別。一切主要操作及顯示都通過(guò)這里完成。.RefreshEnd WithSet = Adodc1Call dxCase 13Unload MeEnd Select狀態(tài)欄分四個(gè)部分。 amp。 amp。 datasource.CommandType = adCmdTable.RecordSource = yonghu.RefreshEnd With = False = FalseIf = 0 Then = False = False = False = FalseEnd If = 上一條與下一條的功能一目了然，它們可以對(duì)當(dāng)前表進(jìn)行上一條記錄或下一條記錄依次查看。所以在操作前要想好。要修改某條記錄時(shí)，要先對(duì)所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點(diǎn)擊下面的修改按鈕，會(huì)在下面的文本中顯示出所要修改公寓的名稱(chēng)，此時(shí)即可輸入要修改的名字。 where 公寓名稱(chēng)=39。 amp。 39。 39。 and 寢室=39。 amp。 \Backup amp。Jet OLEDB:Database Password=matrixse。Form 的 load 事件處理內(nèi)容如下： = amp。用它們可以隨時(shí)記錄請(qǐng)假記錄。 。第一是窗體在初始化時(shí)不會(huì)顯示任何記錄，不用設(shè)置文本框?yàn)榭盏纫幌盗械牟僮鳌?\dbasize = FileLen(PathName)數(shù)據(jù)轉(zhuǎn)換成 excel 用到了一個(gè)部件，在引用中用到了 Microsoft Object library。 vbNullChar .fFlags = lFlagsEnd Withlresult = SHFileOperation(SHFileOp)Set Db = New DEFSOURCE amp。 \) lblSelectedDba = Selected Backup Database is : amp。①數(shù)據(jù)備份效果圖圖 數(shù)據(jù)備份效果圖② 功能實(shí)現(xiàn) 界面制作相對(duì)程序來(lái)說(shuō)比較簡(jiǎn)單，用到的是 coolbar 控件，點(diǎn)擊按鈕可以選擇備份路徑。以及起到美觀作用的 Frame 控件。實(shí)現(xiàn)的方法主要是對(duì) qinshi 表操作，先對(duì)其進(jìn)行查詢，查詢當(dāng)前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄，則在表中把它刪除掉，刪除后調(diào)用生成樹(shù)過(guò)程，把當(dāng)前寢室設(shè)置中的樹(shù)型結(jié)構(gòu)重新生成，更新記錄。 amp。點(diǎn)擊修改后完成此操作。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then End If = Set = Adodc1(2) 寢室設(shè)置①寢室設(shè)置效果圖圖 寢室設(shè)置②界面制作與實(shí)現(xiàn)方法此界面實(shí)現(xiàn)相對(duì)比公寓設(shè)置來(lái)說(shuō)相對(duì)復(fù)雜一些。在進(jìn)行所有操作前，先要確定數(shù)據(jù)庫(kù)已連接。包括公寓添加、修改、刪除。移動(dòng)記錄 = TrueIf Then = FalseEnd If 39。 amp。 。 (3).Text = 用戶模式： amp。由它制做的工具欄的顯示效果會(huì)更有立體感一些。主要代碼如下：設(shè)置當(dāng)前控件連接的數(shù)據(jù)庫(kù)Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。主要代碼如下： 在窗體中的鼠標(biāo)移動(dòng)過(guò)程中，以及在窗體初始化的時(shí)候， 屬性設(shè)置為 False，只有在鼠標(biāo)按下的時(shí)候在改變其顏色即可。運(yùn)行圖如下:圖 衛(wèi)生檢查運(yùn)行圖 公寓資產(chǎn)主要完成：添加新增物品的功能。無(wú)用戶設(shè)置、公寓設(shè)置及記錄刪除等權(quán)力。 新系統(tǒng)數(shù)據(jù)流程圖圖 數(shù)據(jù)流程圖數(shù)據(jù)字典圖 數(shù)據(jù)元素注：其它數(shù)據(jù)元素略圖 數(shù)據(jù)流注：其它數(shù)據(jù)流略圖 加工注：其它加工略注：其它數(shù)據(jù)存儲(chǔ)略第二章 數(shù)據(jù)庫(kù)設(shè)計(jì)E—R 圖圖 E—R 圖信息的數(shù)量越來(lái)越大，數(shù)據(jù)庫(kù)的作用越發(fā)突出,所以數(shù)據(jù)庫(kù)的建立是系統(tǒng)施實(shí)的主要部分之一，它關(guān)系到整個(gè)系統(tǒng)的運(yùn)行情況，是整個(gè)系統(tǒng)的重要組成部分。而且時(shí)間一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新、維護(hù)都帶來(lái)了不少的困難。 開(kāi)發(fā)工具簡(jiǎn)介及系統(tǒng)運(yùn)行環(huán)境1．1．1 VB6 簡(jiǎn)介 本軟件的開(kāi)發(fā)工具為 VISUAL BASIC，作為一種開(kāi)發(fā)語(yǔ)言，VISUAL BASIC 率先采用了可視化（VISUAL）的程序設(shè)計(jì)方法。由于 Visual Basic 率先采用了可視化（VISUAL）的程序設(shè)計(jì)方法。中文摘要隨著電腦的普及與使用，現(xiàn)在的管理也提升了一個(gè)檔次，漸漸實(shí)現(xiàn)了無(wú)紙化辦公，即從原來(lái)的人工記錄管理模式轉(zhuǎn)變?yōu)殡娔X一體化管理。學(xué)生公寓管理軟件是用 Microsoft Visual Basic 編寫(xiě)完成。界面友好、操作簡(jiǎn)單、功能齊全、具有較好的人機(jī)接口界面是本系統(tǒng)的最大優(yōu)點(diǎn)。長(zhǎng)期以來(lái)，使用傳統(tǒng)人工的方法管理高校公寓，這種管理方式存在著許多缺點(diǎn)，如：效率低。二是來(lái)源于網(wǎng)絡(luò)上的各種同類(lèi)軟件，通過(guò)這些軟件可以看出一個(gè)公寓最低需要哪些管理與設(shè)置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來(lái)十分麻煩、繁瑣，有些雖然簡(jiǎn)單，但是功能上又不是十分完善，對(duì)這些軟件首先要進(jìn)行取其精華，棄其糟粕，從而進(jìn)行編寫(xiě)。普通用戶只有瀏覽、及一些簡(jiǎn)單的添加操作權(quán)力。這里的衛(wèi)生標(biāo)準(zhǔn)一共有五項(xiàng)可以填寫(xiě)，在每一項(xiàng)里已經(jīng)基本設(shè)置了所不合標(biāo)準(zhǔn)的記錄，你可以在下拉列表框中進(jìn)行選擇即可，但是如果沒(méi)有你想輸入的記錄的話，也可以自己輸入。原理主要是在鼠標(biāo) mousemove 事件與線的顏色變化組合來(lái)實(shí)現(xiàn)。前用戶成功登錄后，會(huì)在主窗體的狀態(tài)欄中顯示出當(dāng)前用戶及其用戶類(lèi)型。工具欄主要是由 coolbar 制作而成。其中第三部分的代碼實(shí)現(xiàn)如下： = (級(jí)別) = (用戶)(2).Text = 當(dāng)前用戶： amp。 datasource.CommandType = adCmdTable.RecordSource = gongyu.RefreshEnd WithWith Adodc3.Mode = adModeReadWrite.ConnectionString = provider amp。 。上一條與下一條主要代碼如下： 39。因?yàn)樗械脑O(shè)置都在此進(jìn)行。其它表的有關(guān)此公寓的信息還會(huì)存在。 amp。當(dāng)要對(duì)當(dāng)前寢室的所屬公寓進(jìn)行修改時(shí)，需要先選擇所要修改的寢室，然后在上面的公寓名稱(chēng)后填寫(xiě)所要修改的寢室名稱(chēng)。 update qinshi set 寢室=39。 = = Call startree1刪除操作可以刪除掉當(dāng)前樹(shù)型顯示中的任何一個(gè)子節(jié)點(diǎn)，也就是這個(gè)樹(shù)型節(jié)點(diǎn)中的寢室名稱(chēng)，注意的是，刪除后這個(gè)記錄只在 qinshi 表中刪除，其相關(guān)記錄不會(huì)被刪除掉的，如果想刪除，還需要人工操作。在這個(gè)界面中主要用到了一個(gè) Sstab 控件與一個(gè)顯示表中內(nèi)容的 Datagrid 控件。因?yàn)樵诓僮髦锌赡軙?huì)導(dǎo)致數(shù)據(jù)遭到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫(kù)損壞，或者是一些其它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復(fù)到最后一次備份的狀態(tài)，使損失做到最少，經(jīng)常備份，操作起來(lái)更有安全感。 vbNullChar .fFlags = lFlagsEnd Withlresult = SHFileOperation(SHFileOp) = vbDefault = Backup Complete在備份分前先要選擇一個(gè)備份路徑，點(diǎn)擊…那個(gè)按鈕開(kāi)始進(jìn)行選擇，實(shí)現(xiàn)方法如下：Dim strTemp As StringstrTemp = fBrowseForFolder(, Select backup path)If strTemp Then txtDestinatio