module1.bas

来自「人事管理系统的一个比较不错的VB软件 有管理系统的功能」· BAS 代码 · 共 49 行

Attribute VB_Name = "Module1"
Public fMainForm As FrmMain
Public gintMode As Integer
Public flagEdit As Boolean
Public publicAllReady As Boolean
Public ServerNameStr, DataCount, DataBaseNameStr, PassWordStr As String '服务器名字、登陆名字、登陆密码
Public PublicUserId As String




Sub Main()

   If FindDataIniFile = False Then
      publicAllReady = False
      MsgBox "数据库还没有配置，请配置服务器信息，或者联系管理员！", vbCritical + vbOKOnly, "系统提示："
      frmSelServer.Show
      Exit Sub
   Else
      Call ReadDataIniFile
      If ConnectionSQLServer = True Then
         'frm_login.Show
      Else
         publicAllReady = False
         MsgBox "数据库打开失败！请联系开发人员！或者重新尝试！", vbCritical + vbOKOnly, "系统提示："
      End If
   End If
   publicAllReady = True


   Dim fLogin As New frmLogin
   fLogin.Show vbModal
   If Not fLogin.LoginSucceeded Then
      'Login Failed so exit app
      End
      
   End If
   
   Unload fLogin
   
   Set fMainForm = New FrmMain
    
   fMainForm.Show

End Sub