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

...

Browse Source
This commit is contained in:
raytrace
2021-10-24 00:11:34 +09:00
parent 4fd77f0bb5
commit e530774e0b
18 changed files with 3916 additions and 3247 deletions
Download Patch File Download Diff File Expand all files Collapse all files

205
ArinWarev1/MdiMain.vb
View File

@@ -980,6 +980,161 @@ Public Class MdiMain
End Sub
Public Sub Open_File_Only_weather(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 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(FileName)
Dim Desbuf() As Byte = {}
If Source.Length < 4 Then
Prj_test.IsError = True
MsgboxE("<EFBFBD>˼<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ų<EFBFBD> <20>ջ<EFBFBD><D5BB><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Դϴ<D4B4>" + vbCrLf + FileName, True)
Return
End If
pLog.Add("<EFBFBD><EFBFBD>ȣȭ <20><><EFBFBD><EFBFBD>")
Desbuf = DeCryptArea(Source, New Byte() {&HAC, &H29, &H55, &H42})
FS = New IO.MemoryStream(Desbuf, True)
Else
FS = New IO.FileStream(FileName, IO.FileMode.Open)
End If
'///////////////////////////////////////////////////////////////////////////////////////////////////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()
'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
Private GroupList_NanbangKongkub As ArrayList
@@ -2604,4 +2759,54 @@ ENDSTAT: '//
Private Sub UpdateNewToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
End Sub
Private Sub <EFBFBD><EFBFBD><EFBFBD>Ϸκ<EFBFBD><EFBFBD>ͱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles <EFBFBD><EFBFBD><EFBFBD>Ϸκ<EFBFBD><EFBFBD>ͱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ToolStripMenuItem.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_only_weather(Od.FileName)
End Sub
Private Sub <EFBFBD><EFBFBD><EFBFBD>Ϸκ<EFBFBD><EFBFBD>Ϳ뵵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʺ<EFBFBD>ȯToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
'//<2F>뵵<EFBFBD><EBB5B5><EFBFBD><EFBFBD><EFBFBD>ʰ<EFBFBD><CAB0><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_Only_profile(Od.FileName)
End Sub
End Class