【正文】 _老密碼 _, _新密碼 _ Public Sub New_click() On Error GoTo Err100 39。pwd=密碼 39。pwd=密碼 39。使用 Data 控件打開 Accecc 數(shù)據(jù)庫： 39。, 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。判斷年齡輸入是否有效 = 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。取消查詢 Unload Me End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 10 39。 End If 39。判斷 Email 查詢 If Check1(10).Value = 1 And Not IsNull(Text1(10).Text) Then SQLadd = SQLadd + and Email=39。 + Text1(9).Text + 39。 End If 39。判斷傳呼查詢 If Check1(8).Value = 1 And Not IsNull(Text1(8).Text) Then SQLadd = SQLadd + and Call=39。 + 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。 + Text1(5).Text + 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。 + 女 + 39。 + 男 + 39。 End If 39。判斷姓名查詢 If Check1(2).Value = 1 And Not IsNull(Text1(2).Text) Then SQLadd = SQLadd + and Name=39。 + Text1(1).Text + 39。 End If 39。判斷昵稱查詢 If Check1(0).Value = 1 And Not IsNull(Text1(0).Text) Then SQLadd = SQLadd + and Love=39。 + \ = SQLoriginal + SQLadd + SQLorder ListRefresh Unload Me Exit Sub ErrHandle: MsgBox Unload Me Exit Sub End Sub Private Sub Command2_Click() 39。 End If 39。判斷 Email 查詢 If Check1(10).Value = 1 And Not IsNull(Text1(10).Text) Then SQLadd = SQLadd + and Email like39。* + Text1(9).Text + *39。 End If 39。判斷傳呼查詢 If Check1(8).Value = 1 And Not IsNull(Text1(8).Text) Then SQLadd = SQLadd + and Call 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 like39。* + Text1(5).Text + *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。 + 女 + 39。 + 男 + 39。 End If 39。判斷姓名查詢 If Check1(2).Value = 1 And Not IsNull(Text1(2).Text) Then SQLadd = SQLadd + and Name like39。* + Text1(1).Text + *39。 End If 39。判斷昵稱查詢 If Check1(0).Value = 1 And Not IsNull(Text1(0).Text) Then SQLadd = SQLadd + and Love like39。判斷年齡輸入是否有效 = Check1(4).Value For i = 0 To 1 Check2(i).Enabled = Next i End Sub Private Sub Command1_Click() 39。在 程序中計(jì)算人的年齡 If Index = 2 Then Text1(2).Text = Year(Now) Year(Text1(1).Text) End Sub ☆ 窗體 8:(查詢信息界面程序 ) Option Explicit Private Sub Check1_Click(Index As Integer) Dim i As Integer For i = 0 To 10 Text1(i).Enabled = Check1(i).Value Next i 39。Email Text1(12).Text = (13).Text 39。傳呼 Text1(10).Text = (11).Text 39。手機(jī) Text1(8).Text = (9).Text 39。地址 Text1(6).Text = (7).Text 39。屬相 Combo1(3).Text = (5).Text 39。年月日 Text1(2).Text = (1).Text 39。性別 Combo1(1).Text = (3).Text 39。 Text1(0).Text = 39。修改 Text1(3).Text = 39。添加 39。 39。 Combo1(2).AddItem Combo1(2).AddItem 鼠 Combo1(2).AddItem 牛 Combo1(2).AddItem 虎 Combo1(2).AddItem 兔 Combo1(2).AddItem 龍 Combo1(2).AddItem 蛇 Combo1(2).AddItem 馬 Combo1(2).AddItem 羊 Combo1(2).AddItem 猴 Combo1(2).AddItem 雞 Combo1(2).AddItem 狗 Combo1(2).AddItem 豬 39。取消 Unload frmTJ End Sub Private Sub Form_Load() On Error GoTo ErrHandle Combo1(0).AddItem Combo1(0).AddItem 男 Combo1(0).AddItem 女 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。添加開始 Add_Uo 39。添加 On Error GoTo erren Resul 39。調(diào)用子程序，來完成 frmData 窗體列表控件的數(shù)據(jù)庫更新 End Sub Private Sub Resul() Dim Result As Integer Dim i As Integer 39。進(jìn)行記錄更新 39。 Password(Text1(11).Text) 39。Password(Text1(10).Text) 39。Pass word(Text1(9).Text) 39。 Password(Text1(8).Text) 39。 Password(Text1(7).Text) 39。Password(Te xt1(6).Text) 39。 Password(Text1(5).Text) 39。Password(Text1(4).Text) 39。Password(Text1(3).Text) 39。 Password() 39。 Password() 39。Password(Text1(1).Text) 39。Year(Date) Year(Text1(2).Text) 39。Password(Text1(0).Text) 39。 Password(CDate(Text1(2).Text)) 39。取消登錄 Unload Me End Sub Private Sub cmdOK_Click() If = Then , = 39。pwd= amp。MsgBox End Su