【文章內(nèi)容簡(jiǎn)介】 alseEnd SubPrivate Sub About_Click() 39。關(guān)于版本 vbModalEnd SubPrivate Sub DeleteAll_Click() Dim Result If Not And Not Then Result = MsgBox(所有記錄將被刪除！, vbYesNo, 警告) SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。設(shè)置窗口在前 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, flagEnd SubPrivate Sub DocuAdd_Click() 39。添加記錄Uo = False = False Load frmTJ vbModalEnd SubPublic Sub DocuDelete_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。設(shè)置窗口在前 If Result = vbYes Then ListRefresh End If Else Result = MsgBox(請(qǐng)選擇要?jiǎng)h除的記錄！, vbOKOnly, 警告) SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。設(shè)置窗口在前 End If End If Else Result = MsgBox(無法刪除當(dāng)前記錄！, vbOKOnly, 提示) End If SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag 39。 ListRefreshEnd SubPrivate Sub DocuExit_Click() 39。退出程序 Unload frmData End SubPrivate Sub DocuSeek_Click() 39。查詢記錄numRem_Click Load frmCX vbModal End SubPrivate Sub Form_Resize() If WindowState = 1 Then = FalseEnd SubPrivate Sub Form_Load() 39。程序初始化 If Then Dim Recut As Integer Recut = MsgBox(程序已經(jīng)運(yùn)行，請(qǐng)檢查窗口是否已被最小化！, 48, 提示) Unload Me Exit Sub End If ListViewStyle_Click 39。使ListView控件可以整行選擇 ListViewStyleBiaoG_Click 39。使ListView控件有表格風(fēng)格 ListViewStyleOne_Click 39。允許單擊選擇 ListViewStyleTwo_Click 39。允許雙擊選擇 Frm_Load TuBiao 39。 SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。設(shè)置窗口在前 Dim i As String Dim j As Integer 39。開始初始化 For j = 0 To 13 Text1(j).Text = Next jEnd SubPrivate Sub numMPgl_Click() On Error GoTo ErrHandle = 信息管理 amp。 mdbFile amp。 [ amp。 mdbDataName amp。 ]39。設(shè)置字符串變量來調(diào)用SQL語句 SQLoriginal = select * from amp。 39。Data SQLadd = where Name=Name SQLorder = = mdbFile 39。\ = SQLoriginal + SQLadd + SQLorder ListRefresh Exit Sub 39。錯(cuò)誤處理ErrHandle: MsgBox End SubPrivate Sub ListView1_Click()If 0 ThenDim i, Count As Integer Count = i = 1 Do While i Count i = i + 1 Loop 39。(Name) 39。(Oicq) ListViewItem = Count (0).Text = (Sex) 39。lPassword((Sex)) (1).Text = (Age) 39。 lPassword((Year)) 39。Age年齡 (2).Text = (Year) 39。lPassword((Constell)) (3).Text = (Constell) (4).Text = (Attributive) (5).Text = (Blood) 39。lPassword((Address)) (6).Text = (Address) 39。lPassword((Address)) (7).Text = (TelepNo) 39。 lPassword((TelepNo)) (8).Text = (MoveCall) 39。lPassword((MoveCall)) (9).Text = (Home) 39。lPassword((Home)) (10).Text = (Call) 39。lPassword((Call)) (11).Text = (Fax) 39。lPassword((Fax)) (12).Text = (Email) 39。 lPassword((Email)) (13).Text = (Appendix) 39。lPassword((Appendix))End IfEnd SubPrivate Sub ListView1_DblClick() 39。雙擊修改ListView1_ClicknumUo_ClickEnd SubPrivate Sub ListView1_ItemClick(ByVal Item As )39。ListView1_ClickEnd SubPrivate Sub mdbFileData_Click(Index As Integer) mdbDataName = Data amp。 CStr(Index) numMPgl_ClickEnd SubPrivate Sub numAcess_Click() 39。新建數(shù)據(jù)庫mdbFile = DialogFile(, 0, 新建數(shù)據(jù)庫記錄, MyData, Access(*.mdb) amp。 Chr(0) amp。 *.mdb amp。 Chr(0) amp。 All files(*.*) amp。 Chr(0) amp。 *.*, , mdb)If mdbFile = Then Exit SubDataNumbel = 0New_click 39。新建數(shù)據(jù)庫nummdbData_ClickDim i As IntegerFor i = 2 To 5 mdbFileData(i).Visible = FalseNext i = True = True = TrueEnd SubPrivate Sub nummdbData_Click() 39。新建數(shù)據(jù)表cmdCreate_ClickAddNumbel 39。修改數(shù)據(jù)表記錄ReadNumbel 39。讀數(shù)據(jù)表記錄 = TruenumMPgl_ClickEnd SubPrivate Sub numOpen_Click()On Error GoTo ErrHandlemdbFile = DialogFile(, 1, 打開數(shù)據(jù)庫記錄, , Access(*.mdb) amp。 Chr(0) amp。 *.mdb amp。 Chr(0) amp。 All files(*.*) amp。 Chr(0) amp。 *.*, , mdb)If mdbFile = Then Exit Sub = TrueDim i As IntegerFor i = 2 To 5 mdbFileData(i).Visible = FalseNext i = True = True = True vbModalIf NoLogin = True Then EndReadNumbelmdbDataName = data1numMPgl_ClickExit SubErrHandle: Exit SubEnd Sub39。*********任務(wù)欄圖標(biāo)**********Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Static Message As LongStatic RR As Boolean Message = X / If RR = False Then RR = True Select Case Message Case WM_LBUTTONDBLCLK 39。DblClick If WindowState = 1 Then SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。設(shè)置窗口在前 WindowState = 0 39。 = True SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag 39。設(shè)置窗口在前 Else