submain.bas

来自「山西旅游酒店预定商务软件」· BAS 代码 · 共 16 行

BAS
16
字号
Attribute VB_Name = "Module2"
Sub main()
On Error Resume Next
Call conn
If mAdoCon.State <> 1 Then
  MsgBox "数据库连接失败!"
  Exit Sub
End If
frmLogin.Show 1
If UserID <> "" Then
 frmTip.Show
    MDIForm1.Show
    frmTip.ZOrder
End If
End Sub

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?