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