module1.bas

对个人信息进行详细的登记

Attribute VB_Name = "Module1"
Option Explicit
  '定义SQL初始语句
  Public SQLoriginal As String
  '定义SQL添加语句
  Public SQLadd As String
  '定义SQL排序语句
  Public SQLorder As String
  
Public Sub ListRefresh()
  Dim i As Integer
  '清空所有文本
  For i = 0 To 13
 frmData.Text1(i).Text = ""
  Next i
  '清空列表框
 frmData.ListView1.ListItems.Clear
  '出错判断
  If Not frmData.Data1.Recordset.EOF Then
   '测量表中记录数目
   frmData.Data1.Recordset.MoveLast
   frmData.Data1.Recordset.MoveFirst
  
   For i = 1 To frmData.Data1.Recordset.RecordCount
     Dim itmX
     Set itmX = frmData.ListView1.ListItems.Add(, , i)
         itmX.SubItems(1) = frmData.Data1.Recordset.Fields("Name")
         itmX.SubItems(2) = frmData.Data1.Recordset.Fields("Oicq")
          itmX.SubItems(3) = frmData.Data1.Recordset.Fields("Love")
     frmData.Data1.Recordset.MoveNext
   Next i
   '把数据表当前记录位置复原
   frmData.Data1.Recordset.MoveFirst
  End If
  If frmData.Data1.Recordset.RecordCount > 0 Then
  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"))
   frmData.Text1(8).Text = frmData.Data1.Recordset.Fields("MoveCall") 'lPassword(frmData.Data1.Recordset.Fields("MoveCall"))
   frmData.Text1(9).Text = frmData.Data1.Recordset.Fields("Home") 'lPassword(frmData.Data1.Recordset.Fields("Home"))
   frmData.Text1(10).Text = frmData.Data1.Recordset.Fields("Call") 'lPassword(frmData.Data1.Recordset.Fields("Call"))
   frmData.Text1(11).Text = frmData.Data1.Recordset.Fields("Fax") 'lPassword(frmData.Data1.Recordset.Fields("Fax"))
   frmData.Text1(12).Text = frmData.Data1.Recordset.Fields("Email") ' lPassword(frmData.Data1.Recordset.Fields("Email"))
   frmData.Text1(13).Text = frmData.Data1.Recordset.Fields("Appendix") 'lPassword(frmData.Data1.Recordset.Fields("Appendix"))
  End If
End Sub