VB+通讯录信息管理系统+文档PPT及开题报告(五)
bsp; SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag '设置窗口在前
End If
End If
Else
Result = MsgBox("无法删除当前记录！", vbOKOnly, "提示")
End If
SetWindowPos Me.hwnd, HWND_notopmost, 0, 0, 0, 0, flag
' ListRefresh
End Sub
Private Sub DocuExit_Click() '退出程序
Unload frmData
End Sub
Private Sub DocuSeek_Click() '查询记录
numRem_Click
Load frmCX
frmCX.Show vbModal
End Sub
Private Sub Form_Resize()
If WindowState = 1 Then Me.Visible = False
End Sub
Private Sub Form_Load() '程序初始化
If App.PrevInstance Then
Dim Recut As Integer
Recut = MsgBox("程序已经运行，请检查窗口是否已被最小化！", 48, "提示")
Unload Me
Exit Sub
End If
ListViewStyle_Click '使ListView控件可以整行选择
ListViewStyleBiaoG_Click '使ListView控件有表格风格
ListViewStyleOne_Click '允许单击选择
ListViewStyleTwo_Click '允许双击选择
Frm_Load
TuBiao
' SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag '设置窗口在前
Dim i As String
Dim j As Integer
'开始初始化
For j = 0 To 13
Text1(j).Text = ""
Next j
End Sub
SQLoriginal = "select * from " & frmData.mdbDataName '"Data"
SQLadd = " where Name=Name"
SQLorder = ""
Data1.DatabaseName = mdbFile '"\MyNote.mdb"
Data1.RecordSource = SQLoriginal + SQLadd + SQLorder
Data1.Refresh
ListRefresh
Exit Sub
'错误处理
ErrHandle:
MsgBox Err.Description
End Sub
Private Sub ListView1_Click()
If ListView1.ListItems.Count > 0 Then
Dim i, Count As Integer
Count = ListView1.SelectedItem.Index
Data1.Recordset.MoveFirst
i = 1
Do While i < Count
Data1.Recordset.MoveNext
i = i + 1
Loop
'("Name")
'("Oicq")
ListViewItem = Count
frmData.Text1(0).Text = frmData.Data1.Recordset.Fields("Sex") 'lPassword(frmData.Data1.Recordset.Fields("Sex"))
frmData.Text1(1).Text = frmData.Data1.Recordset.Fields("Age") ' lPassword(frmData.Data1.Recordset.Fields("Year"))
'Age年龄
