【正文】 SQLadd = SQLadd + and MoveCall like39。年齡查詢 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 like39。 End If 39。判斷年齡輸入是否有效 = Check1(4).Value For i = 0 To 1 Check2(i).Enabled = Next i End Sub Private Sub Command1_Click() 39。錯誤處理 ErrHandle: Exit Sub 39。 For i = 1 To DataNumbel = (Numbel) 39。錯誤處理 ErrHandle: Exit Sub 39。編輯開始更改表總 數(shù)的記錄 Else End If (ID) = 1 (Name) = 數(shù)據(jù)表總數(shù) (Numbel) = DataNumbel + 1 39。\ = SQLoriginal + SQLadd + SQLorder Exit Sub 39。 mdbFile amp。 + \ SQLadd = where Name=Name = SQLoriginal + SQLadd + SQLorder ListRefresh Unload frmCX End Sub Private Sub numUo_Click() 39。設置窗口在前 Else WindowState = 1 = False End If Case WM_RBUTTONUP numFile End Select RR = False End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) = Len(TrayIcon) = = vbNull 39。*********任務欄圖標 ********** Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static Message As Long Static RR As Boolean Message = X / If RR = False Then RR = True Select Case Message Case WM_LBUTTONDBLCLK 39。 Chr(0) amp。修改數(shù)據(jù)表記錄 ReadNumbel 39。 Chr(0) amp。 Chr(0) amp。雙擊修改 ListView1_Click numUo_Click End Sub Private Sub ListView1_ItemClick(ByVal Item As ) 39。lPassword((Call)) (11).Text = (Fax) 39。lPassword((Address)) (7).Text = (TelepNo) 39。 lPassword((Year)) 39。錯誤處理 ErrHandle: MsgBox End Sub Private Sub ListView1_Click() If 0 Then Dim i, Count As Integer Count = i = 1 Do While i Count i = i + 1 Loop 39。設置字符串變量來調(diào)用 SQL 語句 SQLoriginal = select * from amp。 mdbFile amp。允許雙擊選擇 Frm_Load TuBiao 39。程序初始化 If Then Dim Recut As Integer Recut = MsgBox(程序已經(jīng)運行，請檢查窗口是否已被最小化！ , 48, 提示) Unload Me Exit Sub End If ListViewStyle_Click 39。設置窗口在前 End If End If Else Result = MsgBox(無法刪除當前記錄！ , vbOKOnly, 提示 ) End If SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag 39。設置窗口在前 If Result = vbYes Then Dim i As Integer For i = 1 To Next i ListRefresh End If Else Result = MsgBox(無法刪除記錄！ , vbOKOnly, 提示 ) End If SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag End Sub Private Sub DocuAdd_Click() 39。s Tray Icon Example amp。若有疑問，歡迎來信，我們可以共同探討。 39。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個表中的數(shù)據(jù)，就要創(chuàng)建查詢。目前已成為關系數(shù)據(jù)庫的標準語言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。 20 世紀 70 年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關系的。 第二步：用 Access 建立一個名為 Pad 的數(shù)據(jù)庫，在庫中建立一個表 Myset，給表添加四個字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。 ? 定時器類類的控件： 1) Interval 屬性：表示定時的時間間隔 ,以毫秒為單位。 2) Mutselect 屬性 :可以設置列表框為單選或允許多選屬性 . 3) Selectd 屬性 :標示一個數(shù)組 ,數(shù)組各元素為 : 4) Selected(0),selected(1)? ? 滾動條類的控件： 1) Value 屬性：滾動條上滑塊所在位置由 value 值所決定。 4） GotFocus 事件：在對象獲的焦點時發(fā)生。 15) Value 屬性：設置或返回控件的狀態(tài)。 11) DragIcon 屬性：設置或返回圖標，它將在拖放操作中做為指針顯示。 7) DataFormat 屬性：設置或返回 DataFormat 對象，用于數(shù)據(jù)綁定。 ? 復選按鈕類的控件： 1) Caption 屬性：缺省為 check1? 。 9） KeyPress 事件：當用戶按下或釋放 ANSI 一個鍵時發(fā)生。 5） GotFocus 事件： 當獲的對象焦點時發(fā)生。 ? 單選按鈕類的常用事件： 1） Click 事件：鼠標單擊控件 時發(fā)生。 20) FontName 屬性：設置 /返回控件中顯示文本所用的字體大小。 16) FontBold 屬性：設置 /返回字體粗體樣式。 12) DisabledPicture 屬性：設置 /返回一個對圖像的引用，該圖片在控件無效時顯示在控件中。 8) BackColor 屬性：設置 /返回背景色。 4) Index 屬性：屬性值表示為單選按鈕組成的控件中某個按鈕的索引值。 8) Alignment 屬性：設定控件中的文本對其方式 9) Appearance 屬性：設定一個對象在運行時是否可以 3D 效果顯示。 4) Scrollbars 屬性：該屬性決定是否為文本框加滾動條。 3) Backstyle 屬性：用以指示標簽是否透明 . 4) Bordstyle 屬性 :用以設定控件是否有邊框。 8） MouseMove 事件：當命令按鈕 上移動鼠標時發(fā)生。 2） 獲得焦點―― GotFocus 事件 （ 1） 觸發(fā)與適用 當命令按鈕獲得焦點產(chǎn)生該事件，獲得焦點可以通過諸如Tab 切換或單擊對象之類的用戶動作，或在代 碼中用SetFocus 方法改變焦點來實現(xiàn)。 ? 命令按鈕類的事件： 1） 單擊事件―― Click 事件 （ 1） 觸發(fā)與適用 此事件是在一個命令按鈕對象上按下然后釋放一個鼠標按鈕時發(fā)生。 5) Cancel 屬性：該屬性決定按鈕是否為一個 ” 取消 ” 按鈕。在眾多的開發(fā)工具中，我們?yōu)槭裁匆x擇Visual 呢？因為 VB 具有眾多其它開發(fā)工具所沒有的優(yōu)點！具體介紹如下： ? 開發(fā)的高效 ? 語言的高效 ? 編譯的高效 ? 執(zhí)行的高效 ? 維護的高效 基于以上理由，我們毫不憂郁的選擇了 做為我們的開發(fā)工具??！ 主要的控件及其基本屬性，事件簡介 ? 命令按鈕類的控件： 1) Caption 屬性：用來顯示在控件上的標題。而對于后者則要求應用程序功能完備 ,易使用等特點。 經(jīng)過分析 ,我們使用 MICROSOFT 公司的 VISUAL BASIC 開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象 ,首先在短時間內(nèi)建立系統(tǒng)應用原型 ,然后 ,對初始原型系統(tǒng)進行需求迭代 ,不斷修正和改進 ,直到形成用戶滿意的可行系統(tǒng)。 畢業(yè)設計 通訊錄信息 管理系統(tǒng) 摘要 本通訊錄信息管理系統(tǒng)用計算機管理電子通訊錄的一種計算機應用技術的創(chuàng)新 ,在計算機還未普及之前通訊管理都是由聯(lián)系人采用名片 ,筆錄手工記帳的方式來操作的 .現(xiàn)在一般的通訊錄管理都是采用計算機作為工具的實用的計算機通訊錄管理程序來幫助人們進行更有效的通訊錄信息管理。而對于后者則要求應用程序功能完備 ,易使用等特點。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。正如 Bill Gate 所說，世界上絕大多數(shù)的 Windows應用程序是用 Visual Basic 編寫的。 4) Backcolor 屬性：用來改變在按鈕上顯示圖像的背景色。 14) MaskColor 屬性：設置 /返回一個在按鈕的圖片中作為“掩碼“的的顏色 15) Picture 屬性：設置返回 mandButton 控件中要顯示的圖片。如果是命令按鈕的控件是數(shù)組，則需要使用 Index 參數(shù)標識該控件。 7） MouseDown 事件：當在命令按鈕上按下鼠標按鈕時發(fā)生。