submain.bas

来自「一个酒店管理系统」· BAS 代码 · 共 12 行

Attribute VB_Name = "Module2"
Sub main()
On Error Resume Next
Call conn
frmLogin.Show 1
If UserID <> "" Then
 frmTip.Show
    MDIForm1.Show
    frmTip.ZOrder
End If
End Sub