VB+通讯录信息管理系统+范文PPT及开题报告(五)

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

Private Sub numMPgl_Click()
 On Error GoTo ErrHandle
 frmData.Caption = "信息管理 -- " & mdbFile & "[" & mdbDataName & "]"
'设置字符串变量来调用SQL语句

  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年龄
 
   frmData.Text1(2).Text = frmData.Data1.Recordset.Fields("Year") 'lPassword(frmData.Data1.Recordset.Fields("Constell"))
   frmData.Text1(3).Text = frmData.Data1.Recordset.Fields("Constell")
   frmData.Text1(4).Text = frmData.Data1.Recordset.Fields("Attributive")
   frmData.Text1(5).Text = frmData.Data1.Recordset.Fields("Blood") 'lPassword(frmData.Data1.Recordset.Fields("Address"))
  
   frmData.Text1(6).Text = frmData.Data1.Recordset.Fields("Address") 'lPassword(frmData.Data1.Recordset.Fields("Address"))
   frmData.Text1(7).Text = frmData.Data1.Recordset.Fields("TelepNo") ' lPassword(frmData.Data1.Recordset.Fields("TelepNo"

首页 上一页 2 3 4 5 6 7 8 下一页 尾页 5/11/11