?? publicmodule.bas
字號:
Attribute VB_Name = "PubLicModule"
'數據連接模塊
Public MyStrs As String
Public DB_AdoRs As New ADODB.Recordset '后添加一個記錄集對象
Public DB_AdoRs1 As New ADODB.Recordset '后添加一個記錄集對象
Public DB_AdoRs2 As New ADODB.Recordset '后添加一個記錄集對象
'定義一個變量,用戶保存員工編號信息
Public YgNums
Public Function Cnn() As ADODB.Connection '定義連接字符串函數
Set Cnn = New ADODB.Connection
Cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DB_YGGL"
End Function
Public Sub main()
MyStrs = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DB_YGGL"
frm_xtdl.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -