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

　　

【正文】 xt) 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。判斷手機(jī)查詢 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。更新數(shù)據(jù)庫顯示信息 = 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。判斷手機(jī)查詢 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。更新數(shù)據(jù)庫顯示信息 = = 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。在不處于查詢狀態(tài)時(shí)，把文本框設(shè)置為失效 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:(關(guān)于界面程序 ) 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:(建立數(shù)據(jù)庫 ) Option Explicit 39。 Data 控件使用有密碼的 Access 數(shù)據(jù)庫 39。使用 Data 控件打開 Accecc 數(shù)據(jù)庫： 39。 設(shè)置 Connect 屬性為 。pwd=密碼 39。 = 。pwd=密碼 39。修改密碼 : 39。 _老密碼 _, _新密碼 _ Public Sub New_click() On Error GoTo Err100 39。建立數(shù)據(jù)庫 CreateDatabase