module_初始化通讯录.bas

VB开发的一款简易个人通讯录

Attribute VB_Name = "Module_初始化通讯录"



Sub 初始化通讯录(frm As Form)

With frm
 '生成sql语句，并刷新DataGrid1
  sqlstring = "SELECT 通讯录维护表.帐号,分组名称 AS 分组,姓名, 性别名称 AS 性别,固定电话, 移动电话, email, qq, 省市名称, 通讯地址, 通讯录代码 FROM 性别代码表, 通讯录维护表, 省市代码表, 通讯录分组表 WHERE 性别代码表.性别代码 = 通讯录维护表.性别代码 AND 通讯录维护表.省市代码 = 省市代码表.省市代码 AND 通讯录维护表.分组代码 = 通讯录分组表.分组代码 and 通讯录维护表.帐号='" + 登陆帐号 + "' order by 姓名 "
  DataEnvironment1.Commands("com通讯录查询").CommandText = sqlstring
  DataEnvironment1.Commands("com通讯录查询").Execute
 DataEnvironment1.rsCom通讯录查询.Requery
 Set .DataGrid1.DataSource = DataEnvironment1

'刷新“通讯录分组”combo列表
  If DataEnvironment1.rsCom通讯录分组表.State = 1 Then
    DataEnvironment1.rsCom通讯录分组表.Close
  End If
  DataEnvironment1.Commands("com通讯录分组表").CommandText = "select * from 通讯录分组表 where 帐号 = '" + 登陆帐号 + "'"
  DataEnvironment1.rsCom通讯录分组表.Open
 Set .DataCombo分组.RowSource = DataEnvironment1

'刷新控件当前数据
If Not (DataEnvironment1.rsCom通讯录查询.EOF) Then

   .DataCombo分组.Text = .DataGrid1.Columns.Item("分组")
   .txt姓名.Text = .DataGrid1.Columns.Item("姓名")
   .DataCombo性别.Text = .DataGrid1.Columns.Item("性别")
   .txt固定电话.Text = .DataGrid1.Columns.Item("固定电话")
   .txt移动电话.Text = .DataGrid1.Columns.Item("移动电话")
   .txtemail.Text = .DataGrid1.Columns.Item("email")
   .txtqq.Text = .DataGrid1.Columns.Item("qq")
   .DataCombo省市名称.Text = .DataGrid1.Columns.Item("省市名称")
   .txt通讯地址.Text = .DataGrid1.Columns.Item("通讯地址")
   
Else
   .DataCombo分组.Text = " "
   .txt姓名.Text = " "
   .DataCombo性别.Text = " "
   .txt固定电话.Text = " "
   .txt移动电话.Text = " "
   .txtemail.Text = " "
   .txtqq.Text = " "
   .DataCombo省市名称.Text = " "
   .txt通讯地址.Text = " "
   
 End If
 
 End With
End Sub