【正文】 ……………………… ..9 個(gè)人信息查詢實(shí)現(xiàn) …………………………………………………… .10 軟件介紹 ………………………………… .. ……………………… ..10 第五部分 源程序 ……………………………………………………………… .10 登陸界面 程序 .........................................................................................11 主界面程序 …… .....................................................................................12 查詢信息 及更新信息 界面程序 …… .....................................................21 第六部分 軟件工程打包 ……………………………………………………… .34 第七部分 實(shí)習(xí)總結(jié) …………………………………………………………… .38 設(shè)計(jì)體會 ……………………………………………………………… .38 結(jié)束語 ………………………………………………………………… .38 第八部分 教師評語 ………………………………………………………… .... 39 一 .需求分析 問題定義 ： 隨著辦公自動化水平的不斷提高， 個(gè)人信息管理從 手工轉(zhuǎn)到計(jì)算機(jī)自動化信息處理階段。 2 個(gè)人 信息查詢 可以根據(jù) 昵稱 、姓名、 地址 、出生日期等信息項(xiàng)中的一項(xiàng)或多項(xiàng)的組合，進(jìn)行模糊查詢和精確查詢，從而高效地找到您想要的信息。在修改子模塊中，首先查詢出要修改的記錄，然后對每一條記錄進(jìn)行除 編 號外的任何一項(xiàng)的修改。當(dāng)然也可以在系統(tǒng)中再增加其他的功能。定義一個(gè)保存 SQL語句的變量 39。把記錄集從內(nèi)存中清除 Set adoRS = Nothing 39。退出程序 Unload frmData End Sub Private Sub DocuSeek_Click() 39。Data SQLadd = where Name=Name SQLorder = = mdbFile 39。 lPassword((Email)) (13).Text = (Appendix) 39。 Chr(0) amp。 39。 Dim i As Integer If Not Then 39。昵稱 (Age) = Text1(2).Text 39。手機(jī) (Home) = Text1(8).Text 39。在沒有輸入法錯(cuò)誤的前提下，添加新記錄 39。昵稱 Combo1(0).Text = (0).Text 39。判斷性別輸入是否 有效 Option1(0).Enabled = Check1(3).Value Option1(1).Enabled = Check1(3).Value 39。 End If End If 39。 End If 39。性別查詢 If Check1(3).Value = 1 Then If Option1(0).Value = True Then SQLadd = SQLadd + and Sex=39。 + Text1(8).Text + 39。 設(shè)置 Connect 屬性為 。HFF8080 = False End Sub Private Sub Label6_Click() Dim Email Email = ShellExecute(0amp。判斷宅電查詢 If Check1(7).Value = 1 And Not IsNull(Text1(7).Text) Then SQLadd = SQLadd + and Home=39。 End If 39。* + Text1(8).Text + *39。性別查詢 If Check1(3).Value = 1 Then If Option1(0).Value = True Then SQLadd = SQLadd + and Sex=39。傳真 Text1(11).Text = (12).Text 39。 For i = 0 To 12 Text1(i).Text = Next i Text1(1).Text = Date Else 39。更新數(shù)據(jù)庫 ListRefresh 39。地址 (TelepNo) = Text1(6).Text 39。 MsgBox 密碼修改成功 ,請牢記！ , vbOKOnly Unload Me Else MsgBox 新密碼不一致，請重新輸入！ , vbOKOnly = End If End Sub Private Sub Form_Load() txtUserName = End Sub Private Sub lblLabels_Click(Index As Integer) End Sub ☆ 窗體 7:(添加修改界面程序 ) Option Explicit Private Sub Add_Uo() (Year) = CDate(Text1(1).Text) 39。進(jìn)行記錄更新 39。刷新數(shù)據(jù)窗 口 39。新建數(shù)據(jù)庫 nummdbData_Click Dim i As Integer For i = 2 To 5 mdbFileData(i).Visible = False Next i = True = True = True End Sub Private Sub nummdbData_Click() 39。lPassword((MoveCall)) (9).Text = (Home) 39。 mdbDataName amp。刪除記錄 Dim Result If Not And Not Then If 0 Then If 0 Then Result = MsgBox(當(dāng)前記錄將被刪除！ , vbYesNo, 警告 ) SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。通過身份驗(yàn)證后卸載登錄窗體 Unload Me 39。調(diào)用模塊中的 ConnectDB過程連接數(shù)據(jù)庫，可以把連接模塊直接寫在這里 Call ConnectDB 39。當(dāng)然也可以在系統(tǒng)中再增加其他的功能。它包含如下子模塊 ： 1) 新增記錄： 為保證數(shù)據(jù)的有效性、一致性、完整性，在錄入新記錄時(shí)，系統(tǒng)能個(gè)人信息 性別 電話 備注 郵箱 地址 年齡 姓名 昵稱 個(gè)人用戶 基本表的維護(hù) 用戶管理 信息管理 修改 添加 查詢 刪除 登陸 新加用戶 查找用戶 修改 密碼 注銷用戶 新增記錄 更新信息 信息 查詢 信息輸出 根據(jù)操作員輸入的 資料 到 信息 表中查詢是否已經(jīng)存在這樣的記錄，如果已經(jīng)存在，則給出更換 信息 的提示；如果不存在，則判斷姓名是否為空，如果是空的則提示輸入姓名，否則進(jìn)行出生日期是否合法的判斷，再進(jìn)行 性別 、民族是否選擇，地址是否錄入等一系列必須輸入的項(xiàng)目的審核，如果都通過才能把當(dāng)前輸入的所有信息項(xiàng)插入到物理數(shù)據(jù)庫的 信息 表中。 ： 因?yàn)殚_發(fā)所采用的工具全是可視化工具，開發(fā)出的應(yīng)用程序均是圖形化界面，操作員幾乎不用記任何 DOS 命令就可以操作此軟件。通過對計(jì)算機(jī)硬件和軟件解 決方案的論證，對應(yīng)用領(lǐng)域進(jìn)行調(diào)查分析，參考各種資料和進(jìn)行數(shù)據(jù)庫編程實(shí)踐，在指導(dǎo)老師的幫助下，已經(jīng)基本上成功地實(shí)現(xiàn)了設(shè)計(jì)要求。這樣原來幾個(gè)一干的活一個(gè)人就完全可以勝任。 ? 用戶管理模塊應(yīng)具有的功能：這個(gè)模塊從本質(zhì)上來講，當(dāng)然應(yīng)該只有 DBA才有權(quán)使用之，但是本系統(tǒng)為了使開發(fā)者有一個(gè)整體的概念，故把這一模塊也納入進(jìn)來。 ? 系統(tǒng)必須考慮安全問題，故至少給一個(gè)登錄模塊，在使用系統(tǒng)時(shí)進(jìn)行身份的驗(yàn)證。 3) 然后在 ” Frame1” 中添上多個(gè)文本框 ,如 圖 : ☆ 窗體 4 ☆ 數(shù)據(jù)庫中信息庫登陸界面及密碼的修改設(shè)置 1) 設(shè)置一個(gè)數(shù)據(jù)庫中的信息庫的查看權(quán)限界面 :如 ☆ 窗體 5 2) 對數(shù)據(jù)庫查看權(quán)限的密碼的修改及設(shè)置 :如 ☆ 窗體 6 ☆ 添加修改界面 1) 新 建一個(gè) ” Frame1” 框 ,把 ” Comption” 設(shè)置為 ” 詳細(xì)情況 ” 。 Trim() amp。關(guān)于版本 vbModal End Sub Private Sub DeleteAll_Click() Dim Result If Not And Not Then Result = MsgBox(所有記錄將被刪除！ , vbYesNo, 警告 ) SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。開始初始化 For j = 0 To 13 Text1(j).Text = Next j End Sub Private Sub numMPgl_Click() On Error GoTo ErrHandle = 信息管理 amp。lPassword((Address)) (6).Text = (Address) 39。 All files(*.*) amp。 = True SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag 39。********************** If 0 Then 39。pwd= amp。Password(Text1(3).Text) 39。 Password(Text1(11).Text) 39。 39。手機(jī) Text1(8).Text = (9).Text 39。判斷姓名查詢 If Check1(2).Value = 1 And Not IsNull(Text1(2).Text) Then SQLadd = SQLadd + and Name like39。* + Text1(7).Text + *39。 End If 39。判斷手機(jī)查詢 If Check1(6).Value = 1 And Not IsNull(Text1(6).Text) Then SQLadd = SQLadd + and MoveCall=39。取消查詢 Unload Me End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 10 39。pwd=密碼 39。 + Text1(9).Text + 39。 + 女 + 39。 End If 39。* + Text1(5).Text + *39。判斷昵稱查詢 If Check1(0).Value = 1 And Not IsNull(Text1(0).Text) Then SQLadd = SQLadd + and Love like39。年月日 Text1(2).Text = (1).Text 39。復(fù)位 Dim i As Integer For i = 0 To 12 Text1(i).Text = Next i For i = 0 To 3 Combo1(i).Text = Next i Text1(1).Text = Date End Sub Private Sub Command2_Click() 39。 Password(Text1(8).Text) 39。Password(Text1(1).Text) 39。Next i 39。 [mdbNumel] 39。 All files(*.*) amp。 ListView1_Click End Sub