?? module_初始化通訊錄.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -