【正文】 序。 硬盤：（可用空間最好在160MB以上）。換言之，系統(tǒng)維護(hù)就是為了保證系統(tǒng)中的各個要素隨著環(huán)境的變化始終處于最新的、正確的工作狀態(tài)。（3）完善性維護(hù) 為滿足用戶的需求而進(jìn)行的維護(hù)。開發(fā)總結(jié)通過此管理信息系統(tǒng)的開發(fā)，做到了理論聯(lián)系實際，將書本上學(xué)到的知識與具體實踐充分結(jié)合起來，進(jìn)一步明確了開發(fā)管理信息系統(tǒng)的方法和思想；既加深了對管理信息系統(tǒng)的認(rèn)識，又進(jìn)一步鞏固了以前所學(xué)的計算機軟件開發(fā)方面的知識，提高了軟件開發(fā)的水平，從而為今后在實際工作中更好的應(yīng)用計算機進(jìn)行信息管理打下了堅實的基礎(chǔ)。提高科學(xué)管理水平首先要提高科學(xué)管理的意識，進(jìn)行MIS的開發(fā)首先要具有科學(xué)的開發(fā)方法。2 ．從解決開發(fā)系統(tǒng)的基本問題入手，討論了研究和開發(fā)本系統(tǒng)的可行性，并對開發(fā)工具及其語言進(jìn)行選擇。由于以前根本未曾接觸過軟件的整體開發(fā)設(shè)計，所以在前期的調(diào)研中相當(dāng)不充分，開題開題也有些盲目，以為把屬性和表寫得越多越好，這個問題越到后來越嚴(yán)種，而且因為客觀的原因耽誤了進(jìn)度，因而對開題的開題做了修改 。一開始連接時并不順利，常出現(xiàn)無法找到數(shù)據(jù)庫和路徑不對的問題。致 謝在本次畢業(yè)設(shè)計中，我首先要感謝的是我的指導(dǎo)老師，在他身上我學(xué)到了很多東西。使得我的論文不斷完完美，對數(shù)據(jù)庫和VB程序有了更深的學(xué)習(xí)。將這種精神帶到以后的工作和學(xué)習(xí)，使得自己的工作更上一層樓。再則,感謝我的室友,由于整個設(shè)計都是在寢室的電腦前完成的,有時會影響你們休息,你們卻能夠理解,毫無怨言。初始化代碼On Error GoTo Err = (1).Text = 用戶管理Dim rs1 As New select * from 用戶信息表, CN, adOpenStatic, adLockOptimisticWhile Not If Not IsNull((0)) Then Trim((0))WendErr:End SubPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub Command4_Click() 39。 amp。39。 .mdb, TrueMsgBox 數(shù)據(jù)庫備份成功!, , 提示Unload MeExit SubErr:MsgBox End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Dir1_Change() = End SubPrivate Sub Dir1_Click() = End SubPrivate Sub Drive1_Change() = = End SubPrivate Sub Form_Load()On Error GoTo Err(1).Text = 數(shù)據(jù)庫備份 = GetSetting(, Settings, DatabasePath, C:) = Mid(Trim(), 1, 1) amp。39。判斷密碼是否為空 MsgBox 請輸入密碼！, vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。 amp。如果沒有這個用戶 MsgBox 沒有這個帳號，請重新輸入帳號!, vbOKOnly + vbExclamation, 警告 = = Else 39。判斷權(quán)限 UserPrivs = If Trim((2)) = 管理員 Then 39。普通用戶權(quán)限 IsUserMode = 2 Else 39。三次錯誤,自動退出程序 End End IfExit SubErr: MsgBox 登錄出錯,請找管理員!, vbExclamation Ok = False EndEnd SubPrivate Sub Form_Activate()End SubPrivate Sub Form_Load()On Error GoTo Err39。 amp。 where 組編號=39。order by 組編號,戶號,成員號, CN, adOpenStatic, adLockOptimisticElse select * from amp。39?？蛻粜畔⒉樵僺trTableName = 客戶信息表 1End SubPrivate Sub FindXS_Click()strTableName = 銷售信息表 1End SubPrivate Sub FindYg_Click() 39。加載權(quán)限設(shè)置End SubPrivate Sub Form_Resize()On Error GoTo Err 39。39。39。39。戶型strTableName = 戶型信息表 1End SubPrivate Sub InfoKHm_Click()strTableName = 客戶信息表 1End SubPrivate Sub InfoLFjg_Click() 39。strTableName = 銷售信息表 1End SubPrivate Sub InfoYG_Click() 39。39。39。39。39。39。管理員 = True = True (1).Enabled = TrueElseIf IsUserMode = 2 Then = False = False (1).Enabled = FalseEnd IfEnd SubPrivate Sub ZiDianmanage_Click() 39。用戶名稱Public CurrentIndex As Integer 39。數(shù)據(jù)表名Public Ok As BooleanPublic IsUserMode As Integer 39?？荚嚂r總間長Public kmName As String 39。題數(shù)Public STID() 39。試題id多項Public DaiAn() 39。39。 CStr(Mon)Else DateChange = DateChange amp。 CStr(Mon) Else DateChange = DateChange amp。 CStr(i) amp。s thumbnailshowing like spectators who lined the railings of his lips.Don39。 if I pursue you I will not catch you, and if I catch youthrough your own slowness and clumsinessI will not kill you, and if I kill you I will not eat you.Nicholas had begun to back away, and at the last。 CStr(Mon) End IfEnd IfExit FunctionErr:DateChange = End FunctionFunction GetNumFile(str1 As String) As IntegerDim i As IntegerIf str1 = ThenExit FunctionEnd Ifi = 1GetNumFile = 1Do If Not ( + \report\ + str1 amp。 CStr(Mon)End IfIf Len(strDate) 7 Then Mon = Day(strDate) If Mon 10 Then DateChange = DateChange amp。改變?nèi)掌诟袷?yyyyMMddPublic Function DateChange(strDate As String) As StringOn Error GoTo ErrDim Mon As IntegerDateChange = Year(strDate)Mon = Month(strDate)If Mon 10 Then DateChange = DateChange amp。答案39。試題id單項Public STID1() 39?？颇縋ublic Txs(4) As Integer 39。判斷權(quán)限Global mFso As New FileSystemObjectPublic Declare Function ShellExecute Lib Alias ShellExecuteA _(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPublic TimeKS As Integer 39。當(dāng)前的indexPublic strTableName As String 39。39。權(quán)限設(shè)置If IsUserMode = 1 Then 39。39。39。39。39。39。樓房結(jié)構(gòu)strTableName = 樓房結(jié)構(gòu)表 1End SubPrivate Sub InfoLFLX_Click()strTableName = 樓房類型表 1End SubPrivate Sub InfoLFm_Click()strTableName = 樓房信息表 1End SubPrivate Sub InfoLP_Click()strTableName = 樓盤信息表 1End SubPrivate Sub InfoXS_Click() 39。39。 \) , , , , , 0, 0, , End IfEnd IfErr:End SubPrivate Sub Gongzitongji_Click() 1End SubPrivate Sub Form_Unload(Cancel As Integer)EndEnd SubPrivate Sub HelpFiles_Click() 39。39。39。員工信息查詢strTableName = 員工信息表 1End SubPrivate Sub Form_Load()PrivsSeting 39。背景 1End SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub FindKh_Click() 39。39。 HuKouID amp。Persist Security Info=FalsemiCount = 0Ok = False = GetSetting(, Settings, user_name, ) = Exit SubErr:MsgBox , , 數(shù)據(jù)庫連接錯誤EndEnd SubPrivate Sub Form_Resize() = + 30 = + 30End SubPrivate Sub Label2_Click()EndEnd SubPrivate Sub txtPassword_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall cmdOK_ClickEnd IfEnd SubPrivate Sub txtUserName_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenEnd IfEnd SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo ErrDim rs2 As New If Then If strLook = 文化戶口信息 Then select * from amp。連數(shù)據(jù)庫代碼If Then = Provider=。無權(quán) IsUserMode = 0 MsgBox 你沒有權(quán)限!, vbExclamation, 警告 End End If UserPr