..

Epole/dialogForm/SplashScreen.vb

@@ -18,10 +18,22 @@ Public NotInheritable Class SplashScreen
         Copyright.Text = My.Application.Info.Copyright
         Me.Show() : My.Application.DoEvents()
 
+        '스타일팩확인
+        Dim fistyle As New System.IO.FileInfo("StylePack.zip")
+        If fistyle.Exists Then
+            Dim fzip As New fExtractZip(fistyle.FullName)
+            fzip.ShowDialog()
+            Try
+                System.IO.File.Delete(fistyle.FullName)
+            Catch ex As Exception
+
+            End Try
+        End If
+
         If Not LoadINI() Then End '//환경파일 불러오기실패시 종료한다.
         If Command() <> "ARIN" AndAlso Not ReadAuth() Then '//에러났을떄는 카운터를 확인
             '//사용횟수가 10번ㅇ르 초과했는지 확인
-            Runcnt = Me.ReadAuthcount
+            RunCnt = Me.ReadAuthcount
             Dim f As New fAuth()
             If (f.ShowDialog <> Windows.Forms.DialogResult.OK) Then
                 End
@@ -46,8 +58,13 @@ Public NotInheritable Class SplashScreen
 
 
         'If Not ReadAuth() Then DemoDlg.ShowDialog()
-        If Not LoadReg() Then End '//레지스트리정보 실패시 종료
-        If Not Connect() Then End '//연결정보 실패시 종료
+        If Not LoadReg() Then
+
+            End '//레지스트리정보 실패시 종료
+        End If
+        If Not Connect() Then
+            End '//연결정보 실패시 종료
+        End If
         Me.lb_msg.Text = ""
 
         MakeList.Show()
@@ -107,7 +124,7 @@ Public NotInheritable Class SplashScreen
             Return False
         End If
 
-        Rundate = Date.FromFileTimeUtc(install)
+        RunDate = Date.FromFileTimeUtc(install)
 
         Return True
         ' MsgBox(auth.GetDateNumberEnc(Now))
@@ -181,7 +198,11 @@ Public NotInheritable Class SplashScreen
     Private Function Connect() As Boolean
         Me.lb_msg.Text = "데이터베이스확인중..."
         Dim Dbpath As String = My.Application.Info.DirectoryPath & "\database"
-        If Not System.IO.File.Exists(DataBaseFile) Then Return False
+        If Not System.IO.File.Exists(DataBaseFile) Then
+            MsgBox("데이터베이스 파일이 없습니다", MsgBoxStyle.Critical, "오류")
+            Return False
+        End If
+
         Dim Dbini As New MyINI(Dbpath & "\patch.ini")
 
         ' Return True