【正文】 asswordchar 屬性：該屬性設(shè)定輸入文本的特殊顯示字符 ,在設(shè)計密碼程序時非常有用。 5) Tabindex 屬性：建立控件時 ,vb 自動為其分配一個 tabindex 值 ,利用tab 鍵可以在控件之間切換焦點。 13) DownPicture 屬性：設(shè)置 /返回一個對圖片的引用，該圖片在控件單擊下處于壓下狀態(tài)時顯示。 21) FontSize 屬性：設(shè)置 /返回控件中顯示文本所用的字體大小 22) Height 屬性：設(shè)置 /返回控件的高度。 6） LostFocus 事件：當(dāng)對象失去焦點時發(fā)生。 2) Index 屬性 :該屬性值為復(fù)選框控件數(shù)組的下標(biāo) . 3) Value 屬性 :value 為 0 表空白 ,為 1 表勾號 ,為 2 表示灰色勾號 . 4) Container 屬性： Form 控件上的容器。 12) DragMode 屬性：設(shè)置返回一個值，確定在拖放操作中 所用方式。 5） OLECompleteDrag 事件：當(dāng)源部件被放到目標(biāo)時發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。 2) Enable屬性 :為 true時 (缺省值 ),激活定時器開始計時 。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算?，F(xiàn)在看來有很多語句沒有優(yōu)化，算法也一般。 Chr$(0) 39。 ListRefresh End Sub Private Sub DocuExit_Click() 39。 SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。 39。Age 年齡 (2).Text = (Year) 39。lPassword((Fax)) (12).Text = (Email) 39。 *.mdb amp。讀數(shù)據(jù)表記錄 = True numMPgl_Click End Sub Private Sub numOpen_Click() On Error GoTo ErrHandle mdbFile = DialogFile(, 1, 打開數(shù)據(jù)庫記錄 , , Access(*.mdb) amp。DblClick If WindowState = 1 Then SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。修改記錄 If 1 Then Exit Sub If ListViewItem 0 Then ListView_Name = (ListViewItem).SubItems(1) ListView_ = (ListViewItem).SubItems(2) ListView_Love = (ListViewItem).SubItems(3) Uo = True = False vbModal Else MsgBox 請選擇要修改的記錄！ , vbOKOnly, 警告 SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag End If End Sub 39。錯誤處理 ErrHandle: Exit Sub 39。MsgBox End Sub Private Sub ReadNumbel() On Error GoTo ErrHandle AddRead_Numbel 39。MsgBox End Sub 3. 關(guān)于界面 關(guān)于界面代碼分析 : Private Sub Label6_Click() Dim Email Email = ShellExecute(0amp。判斷 查詢 If Check1(1).Value = 1 And Not IsNull(Text1(1).Text) Then SQLadd = SQLadd + and Oicq like39。 Else SQLadd = SQLadd + and Sex=39。* + Text1(6).Text + *39。判斷傳真查詢 If Check1(9).Value = 1 And Not IsNull(Text1(9).Text) Then SQLadd = SQLadd + and Fax like39。精確查詢 On Error GoTo ErrHandle 39。 + Text1(2).Text + 39。判斷電話查詢 If Check1(5).Value = 1 And Not IsNull(Text1(5).Text) Then SQLadd = SQLadd + and TelepNo=39。 End If 39。 + Text1(10).Text + 39。 雖然軟件基本達(dá)到設(shè)計 要求并且達(dá)到同行的先進(jìn)水平，但由于作者水平有限，軟件存在 bug 也是在所難免的 ，您的意見和建議將極大的幫助我改進(jìn)并完善軟件。 there is,however, a much more plausible account of the delusion. Cle. What? Ath. The adaptation of art to the characters of men. Choricmovements are imitations of manners occurring in various actions,f ortunes, dispositionseach particular is imitated, and those towhom the w ords, or songs, or dances are suited, either by nature orhabit or both, cannot help feeling pleasure in them and applaudingthem, and c alling them beautiful. But those whose natures, or ways, orhabits are unsuited to them, cannot delight in them or applaud them,and they call them base. There are others, again, whose natures areright and the ir habits wrong, or whose habits are right and theirnatures wrong, and they praise one thing, but are pleased atanother. For they say that all these imitations are pleasant, butnot good. A nd in the presence of those whom they think wise, theyare ashamed of dancing and singing in the baser manner, or ofdeliberately lending any countenance to such proceedings。 在這里我還要感謝我們宿舍的其它 5 個同學(xué)。在不處于查詢狀態(tài)時，把文本框設(shè)置為失效 Text1(i).Text = Text1(i).Enabled = False Next i Option1(0).Enabled = Check1(3).Value Option1(1).Enabled = Check1(3).Value 39。判斷傳真查詢 If Check1(9).Value = 1 And Not IsNull(Text1(9).Text) Then SQLadd = SQLadd + and Fax=39。 + Text1(6).Text + 39。 Else SQLadd = SQLadd + and Sex=39。判斷 查詢 If Check1(1).Value = 1 And Not IsNull(Text1(1).Text) Then SQLadd = SQLadd + and Oicq=39。* + Text1(10).Text + *39。 End If 39。判斷電話查詢 If Check1(5).Value = 1 And Not IsNull(Text1(5).Text) Then SQLadd = SQLadd + and TelepNo like39。* + Text1(2).Text + *39。模糊查詢 On Error GoTo ErrHandle 39。Next i 39。 39。 [mdbNumel] 39。刪除任務(wù)欄圖標(biāo) Call Shell_NotifyIcon(NIM_DELETE, TrayIcon) End Sub Private Sub numPass_Click() vbModal End Sub Private Sub numRem_Click() 39。 All files(*.*) amp。 *.*, , mdb) If mdbFile = Then Exit Sub DataNumbel = 0 New_click 39。 ListView1_Click End Sub Private Sub mdbFileData_Click(Index As Integer) mdbDataName = Data amp。 lPassword((TelepNo)) (8).Text = (MoveCall) 39。(Name) 39。 [ amp。使 ListView 控件可以整行選擇 ListViewStyleBiaoG_Click 39。添加記錄 Uo = False = False Load frmTJ vbModal End Sub Public Sub DocuDelete_Click() 39。 Option Explicit Public mdbFile, mdbDataName As String Public DataNumbel As Integer Public Uo As Boolean Public ListView_Name, ListView_, ListView_Love As String Public ListViewItem As Integer Public Password As String Private Sub TuBiao() 39。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報表。在這個文件中，用戶可 以將自己的數(shù)據(jù)分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報表以特定的版面布置來分析及打印數(shù)據(jù)。注意：請將庫文件存入程序所在目錄。 2) Max 和 min 屬性：對 value 值的最大 ,最小進(jìn)行限制。 ? 復(fù)選按鈕類的控件的基本事件： 1） Click 事件：鼠標(biāo)單擊控件時發(fā)生。 8) Datasource 屬性：設(shè)置或返回控件綁定的一個數(shù)據(jù)源。 10） MouseDown 事件：當(dāng)在控件上按下鼠標(biāo)鍵時發(fā)生。 2） DbClick 事件： 當(dāng)在一個對象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時，該事件發(fā)生。 17) FontItalic 屬性：設(shè)置 /返回字體斜體樣式。 9) Container 屬性：設(shè)置 /返回 Form 上的控件屬性。 10) BackColor 屬性：設(shè)置返回背景色 11) BorderStyle 屬性：設(shè)置對象的邊框樣式 12) DataField 屬性：設(shè)定數(shù)據(jù)使用者將被綁定到的字段名 13) DataFormat 屬性：設(shè)定 DataFormat 對象，用于數(shù)據(jù)綁定 14) DataMember 屬性：從數(shù)據(jù)供應(yīng)程序提供的幾個數(shù)據(jù)成員中返回 /設(shè)定一個特定的數(shù)據(jù)成員 15) DataSource 屬性：設(shè)定控件綁定的一個數(shù)據(jù)源 16) DragIcon 屬性：設(shè)定圖標(biāo)，它將在拖放操作中作為指針顯示 17) DragMode 模式：設(shè)定一個值，確定在拖放操作中所用方式 18) Enabled 屬性：設(shè)置 /返回運行時 TextBox 是否相應(yīng)用戶事件 19) Font 屬性：設(shè)置 /返 回字體屬性 20) ForeColor 屬性：設(shè)置 /返回文本的前景色 21) Height 屬性：設(shè)置 /返回 TextBox 的高度 22) IMEMode 屬性：設(shè)置 /返回