KICT/ECO2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

가져오기 버튼 , 출력 버튼하고 동일하게 노출

Browse Source 
파일 열리지 않았을때 가져오기 버튼 오류 표시
This commit is contained in:
raytrace
2023-05-20 23:01:04 +09:00
parent 8813ad3289
commit 3eed3c6cd4
10 changed files with 351 additions and 320 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
ArinWarev1/MdiMain.vb
View File

@@ -110,6 +110,7 @@ Public Class MdiMain
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD>.Visible = True
'bt_<74><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><D7B7><EFBFBD>q.Visible = True
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>򰡼<EFBFBD>.Visible = True
btImport.Visible = True
Case "BOTH0" '//<2F>Ϲݻ<CFB9><DDBB><EFBFBD><EFBFBD><EFBFBD>
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><EFBFBD><EFBFBD>.Visible = False
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD>.Visible = True
@@ -118,7 +119,7 @@ Public Class MdiMain
bt_<EFBFBD><EFBFBD><EFBFBD>谳<EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD>.Visible = False
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.Visible = False
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>򰡼<EFBFBD>.Visible = False
btImport.Visible = False
'//<2F><><EFBFBD><EFBFBD><EFBFBD>κ<EFBFBD><CEBA><EFBFBD> <20><><EFBFBD>뿩<EFBFBD><EBBFA9> üũ
'If L.Check_guest <> "OK" Then
' MsgBox("<22>Ϲݻ<CFB9><DDBB><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF>Դ<EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD>µ<EFBFBD><C2B5><EFBFBD> <20>ʾҽ<CABE><D2BD>ϴ<EFBFBD>.", MsgBoxStyle.Information, "Ȯ<><C8AE>")
@@ -132,6 +133,7 @@ Public Class MdiMain
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD>.Visible = True
'bt_<74><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><D7B7><EFBFBD>q.Visible = True
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>򰡼<EFBFBD>.Visible = True
btImport.Visible = True
Case "BOTH1"
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><EFBFBD><EFBFBD>.Visible = True
Me.bt_etc.Visible = False
@@ -140,6 +142,7 @@ Public Class MdiMain
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD>.Visible = True
'bt_<74><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><D7B7><EFBFBD>q.Visible = True
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>򰡼<EFBFBD>.Visible = True
btImport.Visible = True
Case "BOTH2"
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><EFBFBD><EFBFBD>.Visible = False
Me.bt_etc.Visible = False
@@ -148,8 +151,10 @@ Public Class MdiMain
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD>.Visible = False
'bt_<74><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><D7B7><EFBFBD>q.Visible = False
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>򰡼<EFBFBD>.Visible = False
btImport.Visible = False
End Select
Try
If Not Prj.UserId.ToLower().StartsWith("guest") AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then
Work_msg("<EFBFBD><EFBFBD><EFBFBD>α׷<EFBFBD> <20><><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE><EFBFBD><EFBFBD>")
@@ -215,7 +220,8 @@ Public Class MdiMain
pLog.Add("Program Start")
If System.Diagnostics.Debugger.IsAttached Then
If Me.bt_etc.Visible = False AndAlso System.Diagnostics.Debugger.IsAttached Then
MsgBox("debugmode import on")
Me.bt_etc.Visible = True
End If
@@ -3387,7 +3393,19 @@ ENDSTAT: '//
Open_File_checker(Od.FileName)
End Sub
Private Sub XmlImportToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles XmlImportToolStripMenuItem.Click
Private Sub XmlImportToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
End Sub
Private Sub ImportToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles btImport.Click
If Prj.Opened = False Then
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ҷ<EFBFBD><D2B7><EFBFBD> <20><> <20>ٽ<EFBFBD> <20>õ<EFBFBD><C3B5>ϼ<EFBFBD><CFBC><EFBFBD>", MsgBoxStyle.Information, "Ȯ<EFBFBD><EFBFBD>")
Return
End If
Dim od As New OpenFileDialog
od.Filter = "xml file|*.xml|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.*)|*.*"
od.RestoreDirectory = True
@@ -3411,20 +3429,29 @@ ENDSTAT: '//
Dim sb As New System.Text.StringBuilder()
sb.AppendLine("--- <20>߰<EFBFBD><DFB0><EFBFBD> <20><><EFBFBD><EFBFBD> ---")
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD> <20>⺻ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD>
For Each tb As DataTable In tempds.Tables
'//<2F>ڷᰡ <20><><EFBFBD><EFBFBD> <20><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD> ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ʴ´<CAB4>
If tb.Rows.Count < 1 Then Continue For
Dim tablename As String = tb.TableName.ToLower()
If tablename.StartsWith("tbl_common") Then Continue For
If tablename.StartsWith("tbl_profile") Then Continue For
If tablename.StartsWith("tbl_weather") Then Continue For
If tablename.StartsWith("weather") Then Continue For
sb.AppendLine("[" + tb.TableName + "] " + tb.Rows.Count.ToString() + " Lines")
'//<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
For Each dr As DataRow In tb.Rows
For Each dc As DataColumn In tb.Columns
If dr(dc.ColumnName) Is DBNull.Value Then
If dr(dc.ColumnName) Is DBNull.Value OrElse dc.ReadOnly Then
Else
dr(dc.ColumnName) = dr(dc.ColumnName).ToString().Trim() '//<2F><><EFBFBD><EFBFBD> <20>ڵ<EFBFBD> <20><><EFBFBD><EFBFBD>
End If
Next
@@ -3452,6 +3479,5 @@ ENDSTAT: '//
Catch ex As Exception
MsgboxE("<EFBFBD>ܺ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>\n" + ex.Message)
End Try
End Sub
End Class