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

..

Browse Source
This commit is contained in:
chi
2022-12-18 21:01:35 +09:00
parent 9e11b36bba
commit d313cafb38
9 changed files with 630 additions and 1170 deletions
Download Patch File Download Diff File Expand all files Collapse all files

302
ArinWarev1/MdiMain.vb
View File

@@ -127,7 +127,7 @@ Public Class MdiMain
Case "BOTH" '
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><EFBFBD><EFBFBD>.Visible = False
Me.bt_etc.Visible = False
bt_<EFBFBD><EFBFBD><EFBFBD>谳<EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD>.Visible = True
bt_<EFBFBD><EFBFBD><EFBFBD>谳<EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD>.Visible = False
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.Visible = True
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
@@ -135,7 +135,7 @@ Public Class MdiMain
Case "BOTH1"
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><EFBFBD><EFBFBD>.Visible = True
Me.bt_etc.Visible = False
bt_<EFBFBD><EFBFBD><EFBFBD>谳<EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD>.Visible = True
bt_<EFBFBD><EFBFBD><EFBFBD>谳<EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD>.Visible = False
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.Visible = True
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
@@ -143,7 +143,7 @@ Public Class MdiMain
Case "BOTH2"
bt_<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><EFBFBD><EFBFBD>.Visible = False
Me.bt_etc.Visible = False
bt_<EFBFBD><EFBFBD><EFBFBD>谳<EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD>.Visible = True
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><EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><EFBFBD><EFBFBD>.Visible = False
'bt_<74><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׷<EFBFBD><D7B7><EFBFBD>q.Visible = False
@@ -381,6 +381,7 @@ Public Class MdiMain
Desbuf = DeCryptArea(Source, New Byte() {&HAC, &H29, &H55, &H42})
Else
'tpl file
Desbuf = System.IO.File.ReadAllBytes(FileName)
' FS = New IO.FileStream(FileName, IO.FileMode.Open)
End If
@@ -870,12 +871,12 @@ Public Class MdiMain
'Me.bt_newsave.Enabled = True
Refresh_info() '//ȭ<><C8AD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD> <20><><EFBFBD><EFBFBD>âǥ<C3A2><C7A5>
If Prj.UserId.ToLower() <> "guest" AndAlso SyncServer Then '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ڵ<EFBFBD><DAB5><EFBFBD>ũ
pLog.Add("SyncServer ON")
Read_CommonCode()
Read_WeatherData()
Read_ProfileData()
End If
'If Prj.UserId.ToLower() <> "guest" AndAlso SyncServer Then '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ڵ<EFBFBD><DAB5><EFBFBD>ũ
' pLog.Add("SyncServer ON")
' Read_CommonCode()
' Read_WeatherData()
' Read_ProfileData()
'End If
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE> / 13-12-05 / arin
Dim Drdesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
@@ -919,7 +920,7 @@ Public Class MdiMain
'//<2F>θ<EFBFBD><CEB8><EFBFBD><EFBFBD><EFBFBD> <20>ʹ<EFBFBD><CAB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȵǴ<C8B5> <20><><EFBFBD>θ<EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ݴϴ<DDB4>.
Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1)
If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
@@ -999,7 +1000,7 @@ Public Class MdiMain
End If
Read_WeatherFile()
@@ -1191,6 +1192,8 @@ Public Class MdiMain
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>°<EFBFBD><C2B0><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
DSET1_TEST.AcceptChanges()
'remove old data
DSET1.weather_cha.Clear()
DSET1.weather_group.Clear()
@@ -1250,6 +1253,246 @@ Public Class MdiMain
End Sub
Public Sub Open_File_checker(ByVal FileName As String, Optional ByVal SyncServer As Boolean = False, Optional checkVersion As Boolean = True, Optional silent As Boolean = False, Optional isNew As Boolean = False)
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD> Ʈ<><C6AE><EFBFBD><EFBFBD><EFBFBD>带 <20><><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD>.
Me.PreNode = Nothing
pLog.Add("=======================================")
pLog.Add(String.Format("Open File = {0}", FileName))
pLog.Add("=======================================", True)
Prj_test.IsError = False '//160509
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><20><><EFBFBD>ø<EFBFBD><C3B8≯<EFBFBD><CCB8><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>´<EFBFBD>
Dim FI As New System.IO.FileInfo(FileName)
Dim Desbuf() As Byte = {}
Dim FS As System.IO.Stream
'///////////////////////////////////////////////////////////////////////////////////////////////////2011.03.16 <20>Է<EFBFBD><D4B7><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
If Not (Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1") Then '//2011.03.16 <20>߰<EFBFBD> //eco <20><><EFBFBD><EFBFBD> <20>ҷ<EFBFBD><D2B7>ö<EFBFBD> ADMIN <20><><EFBFBD><EFBFBD> 'Prj.UserAuthType = "ADMIN" OrElse
Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(FI.FullName)
If Source.Length < 4 Then
Prj.IsError = True
MsgboxE("<EFBFBD>˼<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ų<EFBFBD> <20>ջ<EFBFBD><D5BB><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Դϴ<D4B4>" + vbCrLf + FI.FullName, True)
Return
End If
pLog.Add("<EFBFBD><EFBFBD>ȣȭ <20><><EFBFBD><EFBFBD>")
Desbuf = DeCryptArea(Source, New Byte() {&HAC, &H29, &H55, &H42})
Else
Desbuf = System.IO.File.ReadAllBytes(FileName)
' FS = New IO.FileStream(FileName, IO.FileMode.Open)
End If
If FI.Extension.ToLower().EndsWith("x") Then '//Ȯ<><C8AE><EFBFBD>ڰ<EFBFBD> x<>γ<EFBFBD><CEB3><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
Dim datalen As Integer = BitConverter.ToInt32(Desbuf, 0)
Dim RealData(Desbuf.Length - 4 - 1) As Byte
Array.Copy(Desbuf, 4, RealData, 0, RealData.Length)
Dim DeCompress(datalen - 1) As Byte
Array.Clear(DeCompress, 0, DeCompress.Length)
Utility.MiniLZO.Decompress(RealData, DeCompress)
Array.Resize(Desbuf, DeCompress.Length)
Array.Clear(Desbuf, 0, Desbuf.Length)
Array.Copy(DeCompress, Desbuf, Desbuf.Length)
End If
FS = New IO.MemoryStream(Desbuf, True)
'///////////////////////////////////////////////////////////////////////////////////////////////////2011.03.16 <20>Է<EFBFBD><D4B7><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
Dim Br As New IO.BinaryReader(FS, System.Text.Encoding.Default)
Prj_test.FileName = FileName ' : Myini.Write("presetting", "filename", Prj.FileName)
Prj_test.Opened = False
'//<2F><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD><EFBFBD>ϱ<EFBFBD><CFB1><EFBFBD>(2)
Prj_test.SFType = STB(Br.ReadBytes(2))
pLog.Add("File Type = " + Prj_test.SFType)
'im DSET1 As New DS()
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 <20>߰<EFBFBD> //eco <20><><EFBFBD><EFBFBD> <20>ҷ<EFBFBD><D2B7>ö<EFBFBD> ADMIN <20><><EFBFBD><EFBFBD> 'Prj.UserAuthType = "ADMIN" OrElse
Select Case Prj.SFType
Case "00" '//<2F>⺻<EFBFBD><E2BABB><EFBFBD><EFBFBD>
Prj_test.UIVersion = STB(Br.ReadBytes(10))
Prj_test.LGVersino = STB(Br.ReadBytes(10))
Select Case Prj_test.LGVersino
Case "2009123100", "2010030700", "2010031400"
Prj_test.LGVersino = StartVersion
End Select
Select Case Prj_test.UIVersion
Case "2009123100", "2010030700", "2010031400"
Prj_test.UIVersion = StartVersion
Prj_test.UIVersion = StartVersion
End Select
Prj_test.Name = STB(Br.ReadBytes(100))
Prj_test.Desc = STB(Br.ReadBytes(256))
Prj_test.MakeTime = STB(Br.ReadBytes(19))
Prj_test.EditTime = STB(Br.ReadBytes(19))
' MsgBox(Br.BaseStream.Position)
'//DS1 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>ȭ <20><> <20><><EFBFBD><EFBFBD>
DSET1_TEST.Clear() : DSET1_TEST.AcceptChanges()
Dim DS1Len As Int64 = Br.ReadInt64
If DS1Len = 0 Then
DS1Len = FS.Length - Br.BaseStream.Position - 2
End If
'MsgBox("pos=" & Br.BaseStream.Position & vbCrLf & DS1Len, MsgBoxStyle.Information, Hex(DS1Len))
Dim DS1() As Byte
Try
DS1 = Br.ReadBytes(CInt(DS1Len))
Catch ex As Exception
Prj_test.IsError = True
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ջ<EFBFBD><D5BB>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>(Read Data Array)." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 byteRead Error")
End Try
'MsgBox("pos=" & Br.BaseStream.Position & vbCrLf & DS1.Length, MsgBoxStyle.Information, DS1Len)
If Not Prj_test.IsError Then
Dim Ms As New IO.MemoryStream(DS1)
Try
DSET1_TEST.ReadXml(Ms)
DSET1_TEST.AcceptChanges()
Ms.Close()
Catch ex As Exception
Prj_test.IsError = True
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ջ<EFBFBD><D5BB>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>(Read DataSet)" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1_test Open Error")
End Try
If Prj_test.IsError Then
MsgBox("load error")
Else
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>°<EFBFBD><C2B0><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
DSET1_TEST.AcceptChanges()
Dim sb As New System.Text.StringBuilder()
For Each dt As DataTable In DSET1.Tables
If dt.TableName.StartsWith("weather") Then
If dt.Columns.Contains("pcode") Then
Dim dt1 As DataTable = DSET1_TEST.Tables(dt.TableName)
For Each dr As DataRow In dt.Rows
Dim drows() As DataRow = dt1.Select("pcode='" + dr("pcode").ToString() + "' and code='" + dr("code").ToString() + "'")
If drows.Length <> 1 Then
'//too many
sb.AppendLine("table many rows " + dt.TableName + "pcode='" + dr("pcode").ToString() + "' and code='" + dr("code").ToString() + "'")
Else
'//ok
Dim dr1 As DataRow = drows(0)
For Each dc As DataColumn In dt.Columns
If dr(dc.ColumnName) Is DBNull.Value Then
If dr1(dc.ColumnName) Is DBNull.Value Then
Else
sb.AppendLine("table diff value " + dt.TableName + "pcode='" + dr("pcode").ToString() + "' and code='" + dr("code").ToString() + "',column=" + dc.ColumnName + ",org=null,new=" + dr1(dc.ColumnName))
End If
ElseIf dr(dc.ColumnName) <> dr1(dc.ColumnName) Then
sb.AppendLine("table diff value " + dt.TableName + "pcode='" + dr("pcode").ToString() + "' and code='" + dr("code").ToString() + "',column=" + dc.ColumnName + ",org=" + dr(dc.ColumnName) + ",new=" + dr1(dc.ColumnName))
End If
Next
End If
Next
Else
Dim dt1 As DataTable = DSET1_TEST.Tables(dt.TableName)
For Each dr As DataRow In dt.Rows
Dim drows() As DataRow = dt1.Select("code='" + dr("code").ToString() + "'")
If drows.Length <> 1 Then
'//too many
sb.AppendLine("table many rows " + dt.TableName + "' and code='" + dr("code").ToString() + "'")
Else
'//ok
Dim dr1 As DataRow = drows(0)
For Each dc As DataColumn In dt.Columns
If dr(dc.ColumnName) Is DBNull.Value Then
If dr1(dc.ColumnName) Is DBNull.Value Then
Else
sb.AppendLine("table diff value " + dt.TableName + " code='" + dr("code").ToString() + "',column=" + dc.ColumnName + ",org=null,new=" + dr1(dc.ColumnName))
End If
ElseIf dr(dc.ColumnName) <> dr1(dc.ColumnName) Then
sb.AppendLine("table diff value " + dt.TableName + " code='" + dr("code").ToString() + "',column=" + dc.ColumnName + ",org=" + dr(dc.ColumnName) + ",new=" + dr1(dc.ColumnName))
End If
Next
End If
Next
End If
End If
Next
' MsgboxI(sb.ToString())
Dim fn As String = "C:\ECO2\diff.txt"
System.IO.File.WriteAllText(fn, sb.ToString(), System.Text.Encoding.Default)
'Dim prc As New System.Diagnostics.Process()
Process.Start(fn)
Return
'remove old data
DSET1.weather_cha.Clear()
DSET1.weather_group.Clear()
DSET1.weather_ilsa.Clear()
DSET1.weather_supdo.Clear()
DSET1.weather_temp.Clear()
DSET1.tbl_weather.Clear()
DSET1.tbl_profile.Clear()
DSET1.AcceptChanges()
'merge data
DSET1.weather_cha.Merge(DSET1_TEST.weather_cha)
DSET1.weather_group.Merge(DSET1_TEST.weather_group)
DSET1.weather_ilsa.Merge(DSET1_TEST.weather_ilsa)
DSET1.weather_supdo.Merge(DSET1_TEST.weather_supdo)
DSET1.weather_temp.Merge(DSET1_TEST.weather_temp)
DSET1.tbl_weather.Merge(DSET1_TEST.tbl_weather)
DSET1.tbl_profile.Merge(DSET1_TEST.tbl_profile)
DSET1.AcceptChanges()
MsgBox("(weather+profile) load ok")
'//DS1<53><31> <20>ִٸ<D6B4> <20>Լ<EFBFBD> <20>Ѵ<EFBFBD>
'DSETR1.Clear() : DSETR1.AcceptChanges()
'DS1Len = Br.ReadInt64
'DS1 = Br.ReadBytes(CInt(DS1Len))
'Ms = New IO.MemoryStream(DS1)
'Try
' DSETR1.ReadXml(Ms)
' DSETR1.AcceptChanges()
' Ms.Close()
'Catch ex As Exception
' MsgBox("<22><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds2 Open Error")
'End Try
Prj.IsError = False
End If
End If
Case Else
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ҷ<EFBFBD><D2B7><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>1", MsgBoxStyle.Critical, "<EFBFBD>ҷ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
Prj.IsError = True
End Select
End If
Br.Close()
FS.Close()
pLog.Add(String.Format("Project Name={0},Desc={1},Version={2}", Prj.Name, Prj.Desc, Prj.UIVersion))
End Sub
Private GroupList_Zone As ArrayList
Private GroupList_nanbangkiki As ArrayList
@@ -1970,7 +2213,8 @@ ENDSTAT: '//
' My.Computer.FileSystem.WriteAllBytes(SD.FileName, Desbuf, False)
'End If
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>2011.03.16<EFBFBD>߰<EFBFBD>
Me.Open_File(Srcfile.FullName, True, False, False, True)
Dim filesync As Boolean = False
Me.Open_File(Srcfile.FullName, filesync, False, False, True)
Prj.UIVersion = CurrentUIVersion() '//<2F>׻<EFBFBD><D7BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 160327
Refresh_info()
ToolStripButton3.Enabled = False
@@ -2716,7 +2960,7 @@ ENDSTAT: '//
End Sub
Private Sub <EFBFBD>ٸ<EFBFBD><EFBFBD≯<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles btSaveNew.Click
Save_New()
End Sub
@@ -3104,4 +3348,36 @@ ENDSTAT: '//
'Open_File_Only_profile(Od.FileName)
End Sub
Private Sub SaveXmlRawToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SaveXmlRawToolStripMenuItem.Click
Dim sd As New SaveFileDialog()
sd.Filter = "XML|*.xml"
If sd.ShowDialog = Windows.Forms.DialogResult.OK Then
DSET1.WriteXml(sd.FileName)
End If
End Sub
Private Sub FielCheckerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FielCheckerToolStripMenuItem.Click
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><CDB0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
If Prj.LoginTime = "" Then
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>α<EFBFBD><CEB1><EFBFBD><EFBFBD><EFBFBD> <20>ϼ<EFBFBD><CFBC><EFBFBD>", MsgBoxStyle.Information, "Ȯ<EFBFBD><EFBFBD>")
Frm_Intro.Activate()
Frm_Intro.tb_id.Focus()
Return
End If
Dim Od As New OpenFileDialog
'Od.InitialDirectory = TemplateDir.FullName
Od.FileName = Prj.FileName
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 <20>߰<EFBFBD>
Od.Filter = "<EFBFBD><EFBFBD><EFBFBD>ø<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.TPL)|*.tpl|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.*)|*.*"
Else
Od.Filter = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.ECO)|*.eco|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.*)|*.*"
End If
Od.FilterIndex = 0
If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
Open_File_checker(Od.FileName)
End Sub
End Class