module1.bas

来自「小区巡逻管理靠请系统。需要硬件支持才可以工作」· BAS 代码 · 共 30 行

Attribute VB_Name = "Module1"
Type myrecord
mydate As String * 10
mytime As String * 5
myid As String * 16
End Type
Public mydb As DAO.Database
Public fMainForm As main1
Public markdelete As Boolean
Public pp
'Public permit As Boolean
Sub Main()
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.ok Then
        '登录失败，退出应用程序
        End
    End If
    Unload fLogin
    frmSplash.Show
    frmSplash.Refresh
    'Set fMainForm = New main1
    'Load fMainForm
    Load main1
    Unload frmSplash
    'fMainForm.Show
    main1.Show
End Sub