【正文】 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 。實(shí)用軟件工程教程 高等教育 出版社 2021 11 （英） Ian Sommerville 機(jī)械工業(yè)出版社 2021 12 美 Cantu,U. 王輝等譯 visual basic 從入門到精通 電子工業(yè)出版社 2021 13 李維 面向?qū)ο箝_發(fā)實(shí)踐之路（ visual basic 版） (BORLAND 資深顧問著名 visual basic 專家李維最新力作 ) 電子工業(yè)出版社 14 秦斌 等 visual basic 數(shù)據(jù)庫系統(tǒng)開發(fā)與應(yīng)用 中國水利水電出版社 2021 .1 15 劉藝 visual basic 面向?qū)ο缶幊趟枷? 機(jī)械工業(yè)出版社 2021 basic 程序設(shè)計(jì)第二版 譚浩強(qiáng) 清華大學(xué)出版社 2021 17. visual 程序設(shè)計(jì)教程 . 胡同森 趙劍鋒等 . 浙江科學(xué)技術(shù)出版社 , (第二版 ) 周蘇 王文 著 科學(xué)出版社 2021 Basic 程序設(shè)計(jì)與開發(fā)技術(shù) 求是科技 人民郵電出版社 give pleasureto our souls. But this is intolerable and blasphemous。他們和我共同生活了四年，在生活和學(xué)習(xí)上給了我很大的幫助。無論做什么事都要大膽的去想去做，這樣會(huì)有好的創(chuàng)意，才能更有作為。真誠的希望你的參與。經(jīng)過大量的測(cè)試和試用，作者深信本軟件達(dá)到了方便和實(shí)用的設(shè)計(jì)目的，并在軟件界面和易用實(shí)用等方面有著獨(dú)到之處。判斷年齡輸入是否有效 = 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è)計(jì)目的是為人們?nèi)粘Ｉ钪泄芾碛涗洸樵兟?lián)系人提供方便和幫助。取消查詢 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。, 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。錯(cuò)誤處理 ErrHandle: Exit Sub 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。 For i = 1 To DataNumbel = (Numbel) 39。 Dim i As Integer If Not Then 39。錯(cuò)誤處理 ErrHandle: Exit Sub 39。進(jìn)行記錄更新 39。編輯開始更改表總 數(shù)的記錄 Else End If (ID) = 1 (Name) = 數(shù)據(jù)表總數(shù) (Numbel) = DataNumbel + 1 39。MsgBox End Sub Private Sub AddNumbel() On Error GoTo ErrHandle AddRead_Numbel 39。\ = SQLoriginal + SQLadd + SQLorder Exit Sub 39。設(shè)置字符串變量來調(diào)用 SQL 語句 SQLoriginal = select * from amp。 mdbFile amp。 39。 + \ SQLa