個人信息管理系統—免費-資料下載頁

【導讀】設計、開發個人信息管理系統的過程。通過對計算機硬件和軟件解決方案的論證，幫助下，已經基本上成功地實現了設計要求。需求，用戶界面友好。此系統更加貼近信息電子化處理，從而降低了人工勞動并。增加了信息的準確性。是勢在必行的了。作量，使個人管理工作真正做到科學、合理的規劃，系統、高效的實施。1個人信息錄入本系統能夠錄入個人的昵稱、姓名、性別、地址等信息，并且能夠判斷是否有不符合信息項，如有不符合的則給出提示。可以根據昵稱、姓名、地址、出生日期等信息項中的一項或多項的組合，4個人信息輸出把錄入到數據庫中的個人信息按標準報表格式輸出以備留檔。5基本表的維護對于地址、電話等可能變化但又涉及每個個人記錄的信息項，單獨取出進行維護。基本表維護模塊應具有的功能：對信息表、數據表等作為構成學生信息。最基本的項的表進行增加、查詢、修改、刪除等操作。模塊也納入進來。

　　

【正文】 Then SQLadd = SQLadd + and Love like39。* + Text1(0).Text + *39。 End If 39。判斷 查詢 If Check1(1).Value = 1 And Not IsNull(Text1(1).Text) Then SQLadd = SQLadd + and Oicq like39。* + Text1(1).Text + *39。 End If 39。判斷姓名查詢 If Check1(2).Value = 1 And Not IsNull(Text1(2).Text) Then SQLadd = SQLadd + and Name like39。* + Text1(2).Text + *39。 End If 39。性別查詢 If Check1(3).Value = 1 Then If Option1(0).Value = True Then SQLadd = SQLadd + and Sex=39。 + 男 + 39。 Else SQLadd = SQLadd + and Sex=39。 + 女 + 39。 End If End If 39。年齡查詢 If Check1(4).Value = 1 Then If Check2(0).Value = 1 And IsNumeric(Text2(0).Text) Then If Check2(1).Value = 1 Then SQLadd = SQLadd + and Age= + Text2(1).Text SQLadd = SQLadd + and Age= + Text2(0).Text Else SQLadd = SQLadd + and Age= + Text2(0).Text End If Else If Check2(1).Value = 1 Then SQLadd = SQLadd + and Age= + Text2(1).Text End If End If End If 39。判斷電話查詢 If Check1(5).Value = 1 And Not IsNull(Text1(5).Text) Then SQLadd = SQLadd + and TelepNo like39。* + Text1(5).Text + *39。 End If 39。判斷手機查詢 If Check1(6).Value = 1 And Not IsNull(Text1(6).Text) Then SQLadd = SQLadd + and MoveCall like39。* + Text1(6).Text + *39。 End If 39。判斷宅電查詢 If Check1(7).Value = 1 And Not IsNull(Text1(7).Text) Then SQLadd = SQLadd + and Home like39。* + Text1(7).Text + *39。 End If 39。判斷傳呼查詢 If Check1(8).Value = 1 And Not IsNull(Text1(8).Text) Then SQLadd = SQLadd + and Call like39。* + Text1(8).Text + *39。 End If 39。判斷傳真查詢 If Check1(9).Value = 1 And Not IsNull(Text1(9).Text) Then SQLadd = SQLadd + and Fax like39。* + Text1(9).Text + *39。 End If 39。判斷 Email 查詢 If Check1(10).Value = 1 And Not IsNull(Text1(10).Text) Then SQLadd = SQLadd + and Email like39。* + Text1(10).Text + *39。 End If 39。更新數據庫顯示信息 = 39。 + \ = SQLoriginal + SQLadd + SQLorder ListRefresh Unload Me Exit Sub ErrHandle: MsgBox Unload Me Exit Sub End Sub Private Sub Command2_Click() 39。精確查詢 On Error GoTo ErrHandle 39。判斷昵稱查詢 If Check1(0).Value = 1 And Not IsNull(Text1(0).Text) Then SQLadd = SQLadd + and Love=39。 + Text1(0).Text + 39。 End If 39。判斷 查詢 If Check1(1).Value = 1 And Not IsNull(Text1(1).Text) Then SQLadd = SQLadd + and Oicq=39。 + Text1(1).Text + 39。 End If 39。判斷姓名查詢 If Check1(2).Value = 1 And Not IsNull(Text1(2).Text) Then SQLadd = SQLadd + and Name=39。 + Text1(2).Text + 39。 End If 39。性別查詢 If Check1(3).Value = 1 Then If Option1(0).Value = True Then SQLadd = SQLadd + and Sex=39。 + 男 + 39。 Else SQLadd = SQLadd + and Sex=39。 + 女 + 39。 End If End If 39。年齡查詢 If Check1(4).Value = 1 Then If Check2(0).Value = 1 And IsNumeric(Text2(0).Text) Then If Check2(1).Value = 1 Then SQLadd = SQLadd + and Age= + Text2(1).Text SQLadd = SQLadd + and Age= + Text2(0).Text Else SQLadd = SQLadd + and Age= + Text2(0).Text End If Else If Check2(1).Value = 1 Then SQLadd = SQLadd + and Age= + Text2(1).Text End If End If End If 39。判斷電話查詢 If Check1(5).Value = 1 And Not IsNull(Text1(5).Text) Then SQLadd = SQLadd + and TelepNo=39。 + Text1(5).Text + 39。 End If 39。判斷手機查詢 If Check1(6).Value = 1 And Not IsNull(Text1(6).Text) Then SQLadd = SQLadd + and MoveCall=39。 + Te xt1(6).Text + 39。 End If 39。判斷宅電查詢 If Check1(7).Value = 1 And Not IsNull(Text1(7).Text) Then SQLadd = SQLadd + and Home=39。 + Text1(7).Text + 39。 End If 39。判斷傳呼查詢 If Check1(8).Value = 1 And Not IsNull(Text1(8).Text) Then SQLadd = SQLadd + and Call=39。 + Text1(8).Text + 39。 End If 39。判斷傳真查詢 If Check1(9).Value = 1 And Not IsNull(Text1(9).Text) Then SQLadd = SQLadd + and Fax=39。 + Text1(9).Text + 39。 End If 39。判斷 Email 查詢 If Check1(10).Value = 1 And Not IsNull(Text1(10).Text) Then SQLadd = SQLadd + and Email=39。 + Text1(10).Text + 39。 End If 39。更新數據庫顯示信息 = = SQLoriginal + SQLadd + SQLorder ListRefresh Unload Me Exit Sub ErrHandle: MsgBox Unload Me Exit Sub End Sub Private Sub Command3_Click() 39。取消查詢 Unload Me End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 10 39。在不處于查詢狀態時，把文本框設置為失效 Text1(i).Text = Text1(i).Enabled = False Next i Option1(0).Enabled = Check1(3).Value Option1(1).Enabled = Check1(3).Value 39。判斷年齡輸入是否有效 = Check1(4).Value For i = 0 To 1 Check2(i).Enabled = False Next i End Sub Private Sub Check2_Click(Index As Integer) Text2(Index).Enabled = Check2(Index).Value End Sub ☆ 窗體 9:(關于界面程序 ) Option Explicit Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = amp。HFF8080 = False End Sub Private Sub Label6_Click() Dim Email Email = ShellExecute(0amp。, vbNullString, mailto:, vbNullString, vbNullString, vbNormalFocus) End Sub Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = RGB(0, 0, 255) = True End Sub Private Sub OK_Click() Unload Me End Sub 方面程序 ☆ 模塊 1:(建立數據庫 ) Option Explicit 39。 Data 控件使用有密碼的 Access 數據庫 39。使用 Data 控件打開 Accecc 數據庫： 39。 設置 Connect 屬性為 。pwd=密碼 39。 = 。pwd=密碼 39。修改密碼 : 39。 _老密碼 _, _新密碼 _ Public Sub New_click() On Error GoTo Err100 39。建立數據庫 CreateDatabase , dbL