【正文】 NoLogin = True Unload Me End Sub Private Sub cmdOK_Click() = 。 txtPassword = txtPassword NoLogin = False Unload Me End Sub Private Sub Form_Load() NoLogin = True txtUserName = End Sub Private Sub lblLabels_Click(Index As Integer) End Sub ☆ 窗體 6:(添 加修改界面程序 ) Option Explicit Private Sub cmdCancel_Click() 39。 MsgBox 密碼修改成功 ,請(qǐng)牢記！ , vbOKOnly Unload Me Else MsgBox 新密碼不一致，請(qǐng)重新輸入！ , 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。出生年月 (Love) = Text1(0).Text 39。昵稱 (Age) = Text1(2).Text 39。 Password(Year(Date) Year(Text1(2).Text)) (Name) = Text1(3).Text 39。姓名 (Sex) = Combo1(0).Text 39。性別 (Constell) = Combo1(1).Text 39。星座 (Attributive) = Combo1(2).Text (Blood) = Combo1(3).Text (Oicq) = Text1(4).Text 39。 (Address) = Text1(5).Text 39。地址 (TelepNo) = Text1(6).Text 39。電話 (MoveCall) = Text1(7).Text 39。手機(jī) (Home) = Text1(8).Text 39。宅電 (Call) = Text1(9).Text 39。傳呼 (Fax) = Text1(10).Text 39。傳真 (Email) = Text1(11).Text 39。電子信箱 (Appendix) = Text1(12).Text 39。備注 39。更新數(shù)據(jù)庫(kù) ListRefresh 39。排錯(cuò)處理 For i = 0 To 12 If Text1(i).Text = Then Text1(i).Text = Next i If Not IsNumeric(Text1(2).Text) Then Text1(2).Text = 0 End If For i = 0 To 3 If Combo1(i).Text = Then Combo1(i).Text = End If Next i End Sub Private Sub Command1_Click() 39。在沒有輸入法錯(cuò)誤的前提下，添加新記錄 39。復(fù)位 FW_click erren: Dim Result As Integer If Not IsDate(Text1(1).Text) Then Result = MsgBox(出生年月不符合格式！ , 48, 提示 ) Text1(1).Text = Date End If Exit Sub End Sub Private Sub FW_click() 39。修改 On Error GoTo erren Resul Add_Uo Unload frmTJ Exit Sub erren: Dim Result As Integer If Not IsDate(Text1(1).Text) Then Result = MsgBox(出生年月不符合格式！ , 48, 提示 ) Text1(1).Text = Date End If Exit Sub End Sub Private Sub Command3_Click() 39。 Combo1(1).AddItem Combo1(1).AddItem 山羊座 Combo1(1).AddItem 水瓶座 Combo1(1).AddItem 雙魚座 Combo1(1).AddItem 白羊座 Combo1(1).AddItem 金牛座 Combo1(1).AddItem 雙子座 Combo1(1).AddItem 巨蟹座 Combo1(1).AddItem 獅子座 Combo1(1).AddItem 處女座 Combo1(1).AddItem 天秤座 Combo1(1).AddItem 天蝎座 Combo1(1).AddItem 人馬座 39。 Combo1(3).AddItem Combo1(3).AddItem A 型 Combo1(3).AddItem B 型 Combo1(3).AddItem AB 型 Combo1(3).AddItem O 型 39。開始初始化 Dim i As Integer If = False Then 39。 For i = 0 To 12 Text1(i).Text = Next i Text1(1).Text = Date Else 39。姓名 Text1(4).Text = 39。昵稱 Combo1(0).Text = (0).Text 39。星座 Text1(1).Text = (2).Text 39。年齡 Combo1(2).Text = (4).Text 39。血型 Text1(5).Text = (6).Text 39。電話 Text1(7).Text = (8).Text 39。宅電 Text1(9).Text = (10).Text 39。傳真 Text1(11).Text = (12).Text 39。備注 End If Exit Sub ErrHandle: MsgBox Exit Sub End Sub Private Sub Text1_DblClick(Index As Integer) 39。判斷性別輸入是否 有效 Option1(0).Enabled = Check1(3).Value Option1(1).Enabled = Check1(3).Value 39。模糊查詢 On Error GoTo ErrHandle 39。* + Text1(0).Text + *39。判斷 查詢 If Check1(1).Value = 1 And Not IsNull(Text1(1).Text) Then SQLadd = SQLadd + and Oicq like39。 End If 39。* + Text1(2).Text + *39。性別查詢 If Check1(3).Value = 1 Then If Option1(0).Value = True Then SQLadd = SQLadd + and Sex=39。 Else SQLadd = SQLadd + and Sex=39。 End If End If 39。判斷電話查詢 If Check1(5).Value = 1 And Not IsNull(Text1(5).Text) Then SQLadd = SQLadd + and TelepNo like39。 End If 39。* + Text1(6).Text + *39。判斷宅電查詢 If Check1(7).Value = 1 And Not IsNull(Text1(7).Text) Then SQLadd = SQLadd + and Home like39。 End If 39。* + Text1(8).Text + *39。判斷傳真查詢 If Check1(9).Value = 1 And Not IsNull(Text1(9).Text) Then SQLadd = SQLadd + and Fax like39。 End If 39。* + Text1(10).Text + *39。更新數(shù)據(jù)庫(kù)顯示信息 = 39。精確查詢 On Error GoTo ErrHandle 39。 + Text1(0).Text + 39。判斷 查詢 If Check1(1).Value = 1 And Not IsNull(Text1(1).Text) Then SQLadd = SQLadd + and Oicq=39。 End If 39。 + Text1(2).Text + 39。性別查詢 If Check1(3).Value = 1 Then If Option1(0).Value = True Then SQLadd = SQLadd + and Sex=39。 Else SQLadd = SQLadd + and Sex=39。 End If End If 39。判斷電話查詢 If Check1(5).Value = 1 And Not IsNull(Text1(5).Text) Then SQLadd = SQLadd + and TelepNo=39。 End If 39。 + Te xt1(6).Text + 39。判斷宅電查詢 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(9).Value = 1 And Not IsNull(Text1(9).Text) Then SQLadd = SQLadd + and Fax=39。 End If 39。 + Text1(10).Text + 39。更新數(shù)據(jù)庫(kù)顯示信息 = = SQLoriginal + SQLadd + SQLorder ListRefresh Unload Me Exit Sub ErrHandle: MsgBox Unload Me Exit Sub End Sub Private Sub Command3_Click() 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。HFF8080 = False End Sub Private Sub Label6_Click() Dim Email Email = ShellExecute(0amp。 Data 控件使用有密碼的 Access 數(shù)據(jù)庫(kù) 39。 設(shè)置 Connect 屬性為 。 = 。修改密碼 : 39。建立數(shù)據(jù)庫(kù) CreateDatabase ,