📄 module1.bas
字号:
Attribute VB_Name = "Module1"
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Public Sub main()
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=ljm"
If frm_YHZC.Check2.Value = 1 Then
MDI_main.Caption = frm_YHZC.Text6.Text + "房地产销售管理系统"
frm_GSXX.Text1.Text = frm_YHZC.Text6.Text
MDI_main.Show
'frm_XTDL.Show
Else
frm_YHZC.Show
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -