【正文】 DD, TrayIcon) = False End Sub Private Sub About_Click() 39。刪除記 錄 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。退出程序 Unload frmData End Sub Private Sub DocuSeek_Click() 39。使 ListView 控件有表格風(fēng)格 ListViewStyleOne_Click 39。設(shè)置窗口在前 Dim i As String Dim j As Integer 39。 mdbDataName amp。Data SQLadd = where Name=Name SQLorder = = mdbFile 39。(Oicq) ListViewItem = Count (0).Text = (Sex) 39。lPassword((Constell)) (3).Text = (Constell) (4).Text = (Attributive) (5).Text = (Blood) 39。lPassword((MoveCall)) (9).Text = (Home) 39。 lPassword((Email)) (13).Text = (Appendix) 39。 CStr(Index) numMPgl_Click End Sub Private Sub numAcess_Click() 39。 Chr(0) amp。新建數(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。 Chr(0) amp。 Chr(0) amp。設(shè)置窗口在前 WindowState = 0 39。刷新數(shù)據(jù)窗口 39。 39。設(shè)置字符串變量來調(diào)用 SQL 語句 SQLoriginal = select * from amp。MsgBox End Sub Private Sub AddNumbel() On Error GoTo ErrHandle AddRead_Numbel 39。進(jìn)行記錄更新 39。 Dim i As Integer If Not Then 39。把數(shù)據(jù)表當(dāng)前記錄位置復(fù)原 End If If DataNumbel 5 Then DataNumbel = 5 For i = 1 To DataNumbel mdbFileData(i).Visible = True Next i 39。, vbNullString, mailto:, vbNullString, vbNullString, vbNormalFocus) End Sub Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub Private Sub OK_Click() Unload Me End Sub 4. 資料查詢界面 : 代碼分析 : 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。判斷昵稱查詢 If Check1(0).Value = 1 And Not IsNull(Text1(0).Text) Then SQLadd = SQLadd + and Love like39。* + Text1(1).Text + *39。 End If 39。 + 女 + 39。* + Text1(5).Text + *39。 End If 39。判斷傳呼查詢 If Check1(8).Value = 1 And Not IsNull(Text1(8).Text) Then SQLadd = SQLadd + and Call like39。* + Text1(9).Text + *39。 End If 39。判斷昵稱查詢 If Check1(0).Value = 1 And Not IsNull(Text1(0).Text) Then SQLadd = SQLadd + and Love=39。 + Text1(1).Text + 39。 End If 39。 + 女 + 39。 + Text1(5).Text + 39。 End If 39。判斷傳呼查詢 If Check1(8).Value = 1 And Not IsNull(Text1(8).Text) Then SQLadd = SQLadd + and Call=39。 + Text1(9).Text + 39。 End If 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 結(jié)束語 本軟件的設(shè)計目的是為人們?nèi)粘Ｉ钪泄芾碛涗洸樵兟?lián)系人提供方便和幫助。真誠的希望你的參與。他們和我共同生活了四年，在生活和學(xué)習(xí)上給了我很大的幫助。 and yet,they have a secret pleasure in them. Cle. Very true. Ath. And is any harm done to the lover of vicious dances or songs,or any good done to the approver of the opposite sort of pleasure? Cle. I think that there is. Ath. I think is not the word, but I would say, rather, I amcertain. For must they not have the same effect as when a manassociates with bad characters, whom he likes and approves rather thandislike s, and only censures playfully because he has a suspicion ofhis own badness? In that case, he who takes pleasure in them willsurely bee like those in whom he takes pleasure, even though hebe ashamed to praise them. And what greater good or evil can anydestiny ever 。實用軟件工程教程 高等教育 出版社 2021 11 （英） Ian Sommerville 機械工業(yè)出版社 2021 12 美 Cantu,U. 王輝等譯 visual basic 從入門到精通 電子工業(yè)出版社 2021 13 李維 面向?qū)ο箝_發(fā)實踐之路（ visual basic 版） (BORLAND 資深顧問著名 visual basic 專家李維最新力作 ) 電子工業(yè)出版社 14 秦斌 等 visual basic 數(shù)據(jù)庫系統(tǒng)開發(fā)與應(yīng)用 中國水利水電出版社 2021 .1 15 劉藝 visual basic 面向?qū)ο缶幊趟枷? 機械工業(yè)出版社 2021 basic 程序設(shè)計第二版 譚浩強 清華大學(xué)出版社 2021 17. visual 程序設(shè)計教程 . 胡同森 趙劍鋒等 . 浙江科學(xué)技術(shù)出版社 , (第二版 ) 周蘇 王文 著 科學(xué)出版社 2021 Basic 程序設(shè)計與開發(fā)技術(shù) 求是科技 人民郵電出版社 give pleasureto our souls. But this is intolerable and blasphemous。無論做什么事都要大膽的去想去做，這樣會有好的創(chuàng)意，才能更有作為。經(jīng)過大量的測試和試用，作者深信本軟件達(dá)到了方便和實用的設(shè)計目的，并在軟件界面和易用實用等方面有著獨到之處。取消查詢 Unload Me End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 10 39。判斷 Email 查詢 If Check1(10).Value = 1 And Not IsNull(Text1(10).Text) Then SQLadd = SQLadd + and Email=39。 End If 39。 + Text1(7).Text + 39。判斷手機查詢 If Check1(6).Value = 1 And Not IsNull(Text1(6).Text) Then SQLadd = SQLadd + and MoveCall=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。判斷姓名查詢 If Check1(2).Value = 1 And Not IsNull(Text1(2).Text) Then SQLadd = SQLadd + and Name=39。 End If 39。 + \ = SQLoriginal + SQLadd + SQLorder ListRefresh Unload Me Exit Sub ErrHandle: MsgBox Unload Me Exit Sub End Sub Private Sub Command2_Click() 39。判斷 Email 查詢 If Check1(10).Value = 1 And Not IsNull(Text1(10).Text) Then SQLadd = SQLadd + and Email like39。 End If 39。* + Text1(7).Text + *39。判斷手機查詢 If Check1(6).Value = 1 And Not IsNull(Text1(6).Text) Then