user id DB로그인 안되게 수정
디버깅이안되는 현상 있음
This commit is contained in:
chi
@@ -1,3 +1,5 @@
|
||||
Imports System.IO
|
||||
|
||||
Public Class MdiMain
|
||||
|
||||
Enum E_MenuIdx
|
||||
@@ -84,7 +86,7 @@ Public Class MdiMain
|
||||
|
||||
Refresh_info()
|
||||
|
||||
|
||||
|
||||
|
||||
Read_SEtting() '//ȯ<>漳<EFBFBD><E6BCB3><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>´<EFBFBD>. Splah<61><68> <20><><EFBFBD><EFBFBD><EFBFBD>ߵ<EFBFBD>.
|
||||
Read_FilHistory() '//<2F><><EFBFBD>ϻ<EFBFBD><CFBB>볻<EFBFBD><EBB3BB>
|
||||
@@ -213,6 +215,11 @@ Public Class MdiMain
|
||||
|
||||
pLog.Add("Program Start")
|
||||
|
||||
If System.Diagnostics.Debugger.IsAttached Then
|
||||
Me.bt_etc.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_info()
|
||||
@@ -255,8 +262,41 @@ Public Class MdiMain
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub ClearData()
|
||||
'//<2F><><EFBFBD>翭<EFBFBD><E7BFAD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʈ<EFBFBD><C6AE> <20>ݴ´<DDB4>.
|
||||
DSET1.Clear()
|
||||
DSET2.Clear()
|
||||
DSETR1.Clear()
|
||||
DSETR2.Clear()
|
||||
|
||||
DSET1.AcceptChanges()
|
||||
DSET2.AcceptChanges()
|
||||
DSETR1.AcceptChanges()
|
||||
DSETR2.AcceptChanges()
|
||||
|
||||
'DSET1 = New DS()
|
||||
'DSET2 = New DS()
|
||||
|
||||
'DSETR1 = New DSR()
|
||||
'DSETR2 = New DSR()
|
||||
|
||||
'DSET1.AcceptChanges()
|
||||
'DSET2.AcceptChanges()
|
||||
'DSETR1.AcceptChanges()
|
||||
'DSETR2.AcceptChanges()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub Open_File(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)
|
||||
|
||||
If SyncServer Then
|
||||
If Prj.UserId.ToLower().StartsWith("user") Then
|
||||
SyncServer = False
|
||||
End If
|
||||
End If
|
||||
|
||||
If Prj.Opened Then
|
||||
|
||||
If silent Then
|
||||
@@ -271,20 +311,20 @@ Public Class MdiMain
|
||||
Next
|
||||
|
||||
'//<2F><><EFBFBD>翭<EFBFBD><E7BFAD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʈ<EFBFBD><C6AE> <20>ݴ´<DDB4>.
|
||||
DSET1.Clear()
|
||||
DSET2.Clear()
|
||||
DSETR1.Clear()
|
||||
DSETR2.Clear()
|
||||
DSET1.AcceptChanges()
|
||||
DSET2.AcceptChanges()
|
||||
DSETR1.AcceptChanges()
|
||||
DSETR2.AcceptChanges()
|
||||
ClearData()
|
||||
|
||||
Else
|
||||
Dim quitmsg As String = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʈ<EFBFBD><C6AE> <20><><EFBFBD><EFBFBD><EFBFBD>Ͻðڽ<C3B0><DABD>ϱ<EFBFBD>?"
|
||||
Dim dlg As DialogResult = MsgBox(quitmsg, MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel, "Ȯ<EFBFBD><EFBFBD>")
|
||||
If dlg = Windows.Forms.DialogResult.Yes Then
|
||||
Me.Save_File(Prj.FileName, False)
|
||||
|
||||
If bt_filesave.Enabled = False Then
|
||||
If Save_New() = False Then Return '//<2F><><EFBFBD>Ҹ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
|
||||
Else
|
||||
Me.Save_File(Prj.FileName, False)
|
||||
End If
|
||||
|
||||
|
||||
For Each fChild As CForm In Me.MdiChildren
|
||||
If fChild.HasChanged Then
|
||||
@@ -295,14 +335,7 @@ Public Class MdiMain
|
||||
Next
|
||||
|
||||
'//<2F><><EFBFBD>翭<EFBFBD><E7BFAD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʈ<EFBFBD><C6AE> <20>ݴ´<DDB4>.
|
||||
DSET1.Clear()
|
||||
DSET2.Clear()
|
||||
DSETR1.Clear()
|
||||
DSETR2.Clear()
|
||||
DSET1.AcceptChanges()
|
||||
DSET2.AcceptChanges()
|
||||
DSETR1.AcceptChanges()
|
||||
DSETR2.AcceptChanges()
|
||||
ClearData()
|
||||
'//<2F><><EFBFBD><EFBFBD>
|
||||
ElseIf dlg = Windows.Forms.DialogResult.No Then
|
||||
For Each fChild As CForm In Me.MdiChildren
|
||||
@@ -314,14 +347,7 @@ Public Class MdiMain
|
||||
Next
|
||||
|
||||
'//<2F><><EFBFBD>翭<EFBFBD><E7BFAD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʈ<EFBFBD><C6AE> <20>ݴ´<DDB4>.
|
||||
DSET1.Clear()
|
||||
DSET2.Clear()
|
||||
DSETR1.Clear()
|
||||
DSETR2.Clear()
|
||||
DSET1.AcceptChanges()
|
||||
DSET2.AcceptChanges()
|
||||
DSETR1.AcceptChanges()
|
||||
DSETR2.AcceptChanges()
|
||||
ClearData()
|
||||
'//quit
|
||||
ElseIf dlg = Windows.Forms.DialogResult.Cancel Then
|
||||
Return
|
||||
@@ -339,24 +365,46 @@ Public Class MdiMain
|
||||
Prj.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(FileName)
|
||||
Dim Desbuf() As Byte = {}
|
||||
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 + FileName, 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})
|
||||
FS = New IO.MemoryStream(Desbuf, True)
|
||||
|
||||
Else
|
||||
FS = New IO.FileStream(FileName, IO.FileMode.Open)
|
||||
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.FileName = FileName : Myini.Write("presetting", "filename", Prj.FileName)
|
||||
Prj.Opened = False
|
||||
@@ -389,7 +437,10 @@ Public Class MdiMain
|
||||
' MsgBox(Br.BaseStream.Position)
|
||||
|
||||
'//DS1 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>ȭ <20><> <20><><EFBFBD><EFBFBD>
|
||||
DSET1.Clear() : DSET1.AcceptChanges()
|
||||
DSET1.Clear()
|
||||
DSET1.AcceptChanges()
|
||||
|
||||
|
||||
Dim DS1Len As Int64 = Br.ReadInt64
|
||||
If DS1Len = 0 Then
|
||||
DS1Len = FS.Length - Br.BaseStream.Position - 2
|
||||
@@ -407,9 +458,17 @@ Public Class MdiMain
|
||||
If Not Prj.IsError Then
|
||||
Dim Ms As New IO.MemoryStream(DS1)
|
||||
Try
|
||||
DSET1.ReadXml(Ms)
|
||||
Ms.Position = 0
|
||||
|
||||
Dim tempds As New DS()
|
||||
tempds.ReadXml(Ms)
|
||||
|
||||
DSET1.Clear()
|
||||
DSET1.Merge(tempds) ' DSET1.ReadXml(Ms)
|
||||
DSET1.AcceptChanges()
|
||||
Ms.Close()
|
||||
|
||||
tempds.Dispose()
|
||||
Catch ex As Exception
|
||||
Prj.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 Open Error")
|
||||
@@ -496,9 +555,17 @@ Public Class MdiMain
|
||||
DS1 = Br.ReadBytes(CInt(DS1Len))
|
||||
Ms = New IO.MemoryStream(DS1)
|
||||
Try
|
||||
DSETR1.ReadXml(Ms)
|
||||
|
||||
Dim tempds As New DS()
|
||||
tempds.ReadXml(Ms)
|
||||
|
||||
|
||||
DSETR1.Clear()
|
||||
DSETR1.Merge(tempds) ' DSETR1.ReadXml(Ms)
|
||||
DSETR1.AcceptChanges()
|
||||
Ms.Close()
|
||||
|
||||
tempds.Dispose()
|
||||
Catch ex As Exception
|
||||
MsgBox("<EFBFBD><EFBFBD><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
|
||||
@@ -536,9 +603,16 @@ Public Class MdiMain
|
||||
'MsgBox("pos=" & Br.BaseStream.Position & vbCrLf & DS1.Length, MsgBoxStyle.Information, DS1Len)
|
||||
Dim Ms As New IO.MemoryStream(DS1)
|
||||
Try
|
||||
DSET1.ReadXml(Ms)
|
||||
|
||||
Dim tempds As New DS()
|
||||
tempds.ReadXml(Ms)
|
||||
|
||||
DSET1.Clear()
|
||||
DSET1.Merge(tempds) ' DSET1.ReadXml(Ms)
|
||||
DSET1.AcceptChanges()
|
||||
Ms.Close()
|
||||
|
||||
tempds.Dispose()
|
||||
Catch ex As Exception
|
||||
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ջ<EFBFBD><D5BB>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 Open Error")
|
||||
End Try
|
||||
@@ -549,8 +623,16 @@ Public Class MdiMain
|
||||
DS1 = Br.ReadBytes(CInt(DS1Len))
|
||||
Ms = New IO.MemoryStream(DS1)
|
||||
Try
|
||||
DSETR1.ReadXml(Ms)
|
||||
|
||||
Dim tempds As New DS()
|
||||
tempds.ReadXml(Ms)
|
||||
|
||||
DSETR1.Clear()
|
||||
DSETR1.Merge(tempds) ' DSETR1.ReadXml(Ms)
|
||||
DSETR1.AcceptChanges()
|
||||
|
||||
tempds.Dispose()
|
||||
|
||||
Ms.Close()
|
||||
Catch ex As Exception
|
||||
MsgBox("<EFBFBD><EFBFBD><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")
|
||||
@@ -594,9 +676,16 @@ Public Class MdiMain
|
||||
'MsgBox("pos=" & Br.BaseStream.Position & vbCrLf & DS1.Length, MsgBoxStyle.Information, DS1Len)
|
||||
Dim Ms As New IO.MemoryStream(DS1)
|
||||
Try
|
||||
DSET1.ReadXml(Ms)
|
||||
Dim tempds As New DS()
|
||||
tempds.ReadXml(Ms)
|
||||
|
||||
DSET1.Clear()
|
||||
DSET1.Merge(tempds) ' DSET1.ReadXml(Ms)
|
||||
DSET1.AcceptChanges()
|
||||
Ms.Close()
|
||||
|
||||
tempds.Dispose()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ջ<EFBFBD><D5BB>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 Open Error")
|
||||
End Try
|
||||
@@ -647,7 +736,7 @@ Public Class MdiMain
|
||||
drDesc1.buildarea = "010100" '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
drDesc1.EndEdit()
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -830,21 +919,28 @@ 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)
|
||||
|
||||
'//Version <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<><C8AE>
|
||||
Work_msg("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE><EFBFBD><EFBFBD>")
|
||||
Dim MyVersion As String '= Format(My.Application.Info.Version.Minor, "0000") & Format(My.Application.Info.Version.Build, "0000")
|
||||
Dim L As New ArinLogin.ArinLOgin
|
||||
Dim VersionInfo As ArinLogin.ArinLOgin.sVersionInfo = Nothing
|
||||
'/<2F><><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD><DAB5><EFBFBD><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE>
|
||||
Try
|
||||
MyVersion = DSET1.tbl_Desc.Rows(0)("versionc").ToString
|
||||
If MyVersion = "" Then MyVersion = "20100101"
|
||||
Catch ex As Exception
|
||||
MyVersion = "20100101"
|
||||
End Try
|
||||
|
||||
|
||||
pLog.Add(String.Format("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = {0}", MyVersion))
|
||||
If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
|
||||
|
||||
'//Version <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<><C8AE>
|
||||
Dim MyVersion As String = ""
|
||||
Dim VersionInfo As ArinLogin.ArinLOgin.sVersionInfo = Nothing
|
||||
|
||||
Work_msg("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE><EFBFBD><EFBFBD>")
|
||||
'= Format(My.Application.Info.Version.Minor, "0000") & Format(My.Application.Info.Version.Build, "0000")
|
||||
Dim L As New ArinLogin.ArinLOgin
|
||||
|
||||
'/<2F><><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD><DAB5><EFBFBD><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE>
|
||||
Try
|
||||
MyVersion = DSET1.tbl_Desc.Rows(0)("versionc").ToString
|
||||
If MyVersion = "" Then MyVersion = "20100101"
|
||||
Catch ex As Exception
|
||||
MyVersion = "20100101"
|
||||
End Try
|
||||
|
||||
pLog.Add(String.Format("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = {0}", MyVersion))
|
||||
|
||||
Try
|
||||
|
||||
VersionInfo = L.Get_LastVersion("C2") '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD> eco <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ٲ<EFBFBD><D9B2>߰<EFBFBD><DFB0><EFBFBD> ^^ <20><><EFBFBD><EFBFBD><EFBFBD>ڸ<EFBFBD> <20>ֵ<EFBFBD><D6B5><EFBFBD> <20>սô<D5BD>!
|
||||
@@ -867,20 +963,17 @@ Public Class MdiMain
|
||||
Catch ex As Exception
|
||||
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD> <20><><EFBFBD><EFBFBD>" & ex.Message.ToString)
|
||||
End Try
|
||||
End If
|
||||
|
||||
'/ǥ<><C7A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϲ<EFBFBD><CFB9><EFBFBD>Ȯ<EFBFBD><C8AE> '//2010.12.06 <20>߰<EFBFBD>
|
||||
Try
|
||||
MyVersion = DSET1.tbl_Desc.Rows(0)("versionp").ToString
|
||||
If MyVersion = "" Then MyVersion = "20100101"
|
||||
Catch ex As Exception
|
||||
MyVersion = "20100101"
|
||||
End Try
|
||||
|
||||
'/ǥ<><C7A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϲ<EFBFBD><CFB9><EFBFBD>Ȯ<EFBFBD><C8AE> '//2010.12.06 <20>߰<EFBFBD>
|
||||
Try
|
||||
MyVersion = DSET1.tbl_Desc.Rows(0)("versionp").ToString
|
||||
If MyVersion = "" Then MyVersion = "20100101"
|
||||
Catch ex As Exception
|
||||
MyVersion = "20100101"
|
||||
End Try
|
||||
pLog.Add(String.Format("ǥ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϲ<EFBFBD><EFBFBD><EFBFBD> = {0}", MyVersion))
|
||||
|
||||
pLog.Add(String.Format("ǥ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϲ<EFBFBD><EFBFBD><EFBFBD> = {0}", MyVersion))
|
||||
|
||||
If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
|
||||
Try
|
||||
VersionInfo = L.Get_LastVersion("P2") '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD> eco <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ٲ<EFBFBD><D9B2>߰<EFBFBD><DFB0><EFBFBD> ^^ <20><><EFBFBD><EFBFBD><EFBFBD>ڸ<EFBFBD> <20>ֵ<EFBFBD><D6B5><EFBFBD> <20>սô<D5BD>!
|
||||
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0<><30> <20><><EFBFBD>ų<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>̹Ƿ<CCB9> <20>Ѿ<D1BE><EEB0A3>.
|
||||
@@ -902,9 +995,12 @@ Public Class MdiMain
|
||||
Catch ex As Exception
|
||||
MsgBox("ǥ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>" & ex.Message.ToString)
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Read_WeatherFile()
|
||||
|
||||
@@ -982,7 +1078,7 @@ Public Class MdiMain
|
||||
|
||||
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("=======================================")
|
||||
@@ -991,22 +1087,42 @@ Public Class MdiMain
|
||||
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(FileName)
|
||||
Dim Desbuf() As Byte = {}
|
||||
Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(FI.FullName)
|
||||
|
||||
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)
|
||||
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})
|
||||
FS = New IO.MemoryStream(Desbuf, True)
|
||||
|
||||
Else
|
||||
FS = New IO.FileStream(FileName, IO.FileMode.Open)
|
||||
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)
|
||||
@@ -1117,7 +1233,7 @@ Public Class MdiMain
|
||||
|
||||
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
|
||||
@@ -1130,11 +1246,11 @@ Public Class MdiMain
|
||||
|
||||
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
|
||||
@@ -1146,10 +1262,24 @@ Public Class MdiMain
|
||||
Private GroupList_Bunbae As ArrayList
|
||||
|
||||
|
||||
Sub DeSerialize(buffer As Byte(), ByRef data As DataTable)
|
||||
|
||||
'If System.IO.File.Exists(filename) = False Then Return
|
||||
'Dim ms As New MemoryStream()
|
||||
|
||||
Using stm As System.IO.Stream = New System.IO.MemoryStream(buffer)
|
||||
Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȭ <20><> <20><>ü Ŭ<><C5AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ȯ... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
|
||||
Dim dt As DataTable = bf.Deserialize(stm)
|
||||
data.Clear()
|
||||
data.Merge(dt)
|
||||
End Using
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub DeSerialize(filename As String, ByRef data As DataTable)
|
||||
|
||||
If System.IO.File.Exists(filename) = False Then Return
|
||||
|
||||
Using stm As System.IO.Stream = System.IO.File.Open(filename, System.IO.FileMode.Open, System.IO.FileAccess.Read)
|
||||
Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȭ <20><> <20><>ü Ŭ<><C5AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ȯ... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
|
||||
Dim dt As DataTable = bf.Deserialize(stm)
|
||||
@@ -1165,6 +1295,11 @@ Public Class MdiMain
|
||||
DSET1.weather_supdo.Clear()
|
||||
DSET1.weather_temp.Clear()
|
||||
DSET1.weather_group.Clear()
|
||||
|
||||
DSET1.weather_wind.Clear()
|
||||
DSET1.weather_river.Clear()
|
||||
DSET1.weather_water.Clear()
|
||||
|
||||
DSET1.tbl_weather.Clear()
|
||||
|
||||
Dim DataPath As String = AppDomain.CurrentDomain.BaseDirectory + "Data"
|
||||
@@ -1174,19 +1309,112 @@ Public Class MdiMain
|
||||
Dim fi4d As String = System.IO.Path.Combine(DataPath, DSET1.weather_temp.TableName + ".dat")
|
||||
Dim fi5d As String = System.IO.Path.Combine(DataPath, DSET1.tbl_weather.TableName + ".dat")
|
||||
Dim fi6d As String = System.IO.Path.Combine(DataPath, DSET1.weather_group.TableName + ".dat")
|
||||
|
||||
Dim fi7d As String = System.IO.Path.Combine(DataPath, DSET1.weather_wind.TableName + ".dat")
|
||||
Dim fi8d As String = System.IO.Path.Combine(DataPath, DSET1.weather_river.TableName + ".dat")
|
||||
Dim fi9d As String = System.IO.Path.Combine(DataPath, DSET1.weather_water.TableName + ".dat")
|
||||
|
||||
If System.IO.File.Exists(fi1d) Then
|
||||
DeSerialize(fi1d, CType(DSET1.weather_cha, DS.weather_chaDataTable))
|
||||
DeSerialize(fi2d, CType(DSET1.weather_ilsa, DS.weather_ilsaDataTable))
|
||||
DeSerialize(fi3d, CType(DSET1.weather_supdo, DS.weather_supdoDataTable))
|
||||
DeSerialize(fi4d, CType(DSET1.weather_temp, DS.weather_tempDataTable))
|
||||
DeSerialize(fi5d, CType(DSET1.tbl_weather, DS.tbl_weatherDataTable))
|
||||
|
||||
'Using stm As System.IO.Stream = System.IO.File.Open(fi6d, System.IO.FileMode.Open, System.IO.FileAccess.Read)
|
||||
' Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȭ <20><> <20><>ü Ŭ<><C5AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ȯ... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
|
||||
' DSET1.weather_group = CType(bf.Deserialize(stm), DS.weather_groupDataTable))
|
||||
'End Using
|
||||
'//check contents
|
||||
Dim buffer As String = System.IO.File.ReadAllText(fi1d, System.Text.Encoding.Default)
|
||||
|
||||
Dim commpressed As Boolean
|
||||
Try
|
||||
DeSerialize(fi1d, CType(DSET1.weather_cha, DS.weather_chaDataTable))
|
||||
commpressed = False
|
||||
Catch ex As Exception
|
||||
commpressed = True
|
||||
End Try
|
||||
|
||||
If commpressed = False Then
|
||||
'//class data
|
||||
DeSerialize(fi1d, CType(DSET1.weather_cha, DS.weather_chaDataTable))
|
||||
DeSerialize(fi2d, CType(DSET1.weather_ilsa, DS.weather_ilsaDataTable))
|
||||
DeSerialize(fi3d, CType(DSET1.weather_supdo, DS.weather_supdoDataTable))
|
||||
DeSerialize(fi4d, CType(DSET1.weather_temp, DS.weather_tempDataTable))
|
||||
DeSerialize(fi5d, CType(DSET1.tbl_weather, DS.tbl_weatherDataTable))
|
||||
DeSerialize(fi6d, CType(DSET1.weather_group, DS.weather_groupDataTable))
|
||||
DeSerialize(fi7d, CType(DSET1.weather_wind, DS.weather_windDataTable))
|
||||
DeSerialize(fi8d, CType(DSET1.weather_river, DS.weather_riverDataTable))
|
||||
DeSerialize(fi9d, CType(DSET1.weather_water, DS.weather_waterDataTable))
|
||||
Else
|
||||
'//lzo data
|
||||
Dim buffer1 As Byte() = System.IO.File.ReadAllBytes(fi1d)
|
||||
Dim buffer2 As Byte() = System.IO.File.ReadAllBytes(fi2d)
|
||||
Dim buffer3 As Byte() = System.IO.File.ReadAllBytes(fi3d)
|
||||
Dim buffer4 As Byte() = System.IO.File.ReadAllBytes(fi4d)
|
||||
Dim buffer5 As Byte() = System.IO.File.ReadAllBytes(fi5d)
|
||||
Dim buffer6 As Byte() = System.IO.File.ReadAllBytes(fi6d)
|
||||
Dim buffer7 As Byte() = System.IO.File.ReadAllBytes(fi7d)
|
||||
Dim buffer8 As Byte() = System.IO.File.ReadAllBytes(fi8d)
|
||||
Dim buffer9 As Byte() = System.IO.File.ReadAllBytes(fi9d)
|
||||
|
||||
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ó<><C3B3>4<EFBFBD><34><EFBFBD><EFBFBD>Ʈ<EFBFBD><C6AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ũ<>Ⱑ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Dim len1 As UInt32 = BitConverter.ToUInt32(buffer1, 0)
|
||||
Dim len2 As UInt32 = BitConverter.ToUInt32(buffer2, 0)
|
||||
Dim len3 As UInt32 = BitConverter.ToUInt32(buffer3, 0)
|
||||
Dim len4 As UInt32 = BitConverter.ToUInt32(buffer4, 0)
|
||||
Dim len5 As UInt32 = BitConverter.ToUInt32(buffer5, 0)
|
||||
Dim len6 As UInt32 = BitConverter.ToUInt32(buffer6, 0)
|
||||
Dim len7 As UInt32 = BitConverter.ToUInt32(buffer7, 0)
|
||||
Dim len8 As UInt32 = BitConverter.ToUInt32(buffer8, 0)
|
||||
Dim len9 As UInt32 = BitConverter.ToUInt32(buffer9, 0)
|
||||
|
||||
Dim dbuffer1(len1 - 1) As Byte
|
||||
Dim dbuffer2(len2 - 1) As Byte
|
||||
Dim dbuffer3(len3 - 1) As Byte
|
||||
Dim dbuffer4(len4 - 1) As Byte
|
||||
Dim dbuffer5(len5 - 1) As Byte
|
||||
Dim dbuffer6(len6 - 1) As Byte
|
||||
Dim dbuffer7(len7 - 1) As Byte
|
||||
Dim dbuffer8(len8 - 1) As Byte
|
||||
Dim dbuffer9(len9 - 1) As Byte
|
||||
|
||||
Dim body1(buffer1.Length - 4 - 1) As Byte
|
||||
Dim body2(buffer2.Length - 4 - 1) As Byte
|
||||
Dim body3(buffer3.Length - 4 - 1) As Byte
|
||||
Dim body4(buffer4.Length - 4 - 1) As Byte
|
||||
Dim body5(buffer5.Length - 4 - 1) As Byte
|
||||
Dim body6(buffer6.Length - 4 - 1) As Byte
|
||||
Dim body7(buffer7.Length - 4 - 1) As Byte
|
||||
Dim body8(buffer8.Length - 4 - 1) As Byte
|
||||
Dim body9(buffer9.Length - 4 - 1) As Byte
|
||||
|
||||
Array.Copy(buffer1, 4, body1, 0, body1.Length)
|
||||
Array.Copy(buffer2, 4, body2, 0, body2.Length)
|
||||
Array.Copy(buffer3, 4, body3, 0, body3.Length)
|
||||
Array.Copy(buffer4, 4, body4, 0, body4.Length)
|
||||
Array.Copy(buffer5, 4, body5, 0, body5.Length)
|
||||
Array.Copy(buffer6, 4, body6, 0, body6.Length)
|
||||
Array.Copy(buffer7, 4, body7, 0, body7.Length)
|
||||
Array.Copy(buffer8, 4, body8, 0, body8.Length)
|
||||
Array.Copy(buffer9, 4, body9, 0, body9.Length)
|
||||
|
||||
|
||||
Utility.MiniLZO.Decompress(body1, dbuffer1) '67682 -> 304964
|
||||
Utility.MiniLZO.Decompress(body2, dbuffer2)
|
||||
Utility.MiniLZO.Decompress(body3, dbuffer3)
|
||||
Utility.MiniLZO.Decompress(body4, dbuffer4)
|
||||
Utility.MiniLZO.Decompress(body5, dbuffer5)
|
||||
Utility.MiniLZO.Decompress(body6, dbuffer6)
|
||||
Utility.MiniLZO.Decompress(body7, dbuffer7)
|
||||
Utility.MiniLZO.Decompress(body8, dbuffer8)
|
||||
Utility.MiniLZO.Decompress(body9, dbuffer9)
|
||||
|
||||
|
||||
DeSerialize(dbuffer1, CType(DSET1.weather_cha, DS.weather_chaDataTable))
|
||||
DeSerialize(dbuffer2, CType(DSET1.weather_ilsa, DS.weather_ilsaDataTable))
|
||||
DeSerialize(dbuffer3, CType(DSET1.weather_supdo, DS.weather_supdoDataTable))
|
||||
DeSerialize(dbuffer4, CType(DSET1.weather_temp, DS.weather_tempDataTable))
|
||||
DeSerialize(dbuffer5, CType(DSET1.tbl_weather, DS.tbl_weatherDataTable))
|
||||
DeSerialize(dbuffer6, CType(DSET1.weather_group, DS.weather_groupDataTable))
|
||||
DeSerialize(dbuffer7, CType(DSET1.weather_wind, DS.weather_windDataTable))
|
||||
DeSerialize(dbuffer8, CType(DSET1.weather_river, DS.weather_riverDataTable))
|
||||
DeSerialize(dbuffer9, CType(DSET1.weather_water, DS.weather_waterDataTable))
|
||||
End If
|
||||
|
||||
|
||||
DeSerialize(fi6d, CType(DSET1.weather_group, DS.weather_groupDataTable))
|
||||
|
||||
Else
|
||||
'//<2F><>ȣȭ<C8A3><C8AD><EFBFBD≯<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>ҷ<EFBFBD><D2B7><EFBFBD><EFBFBD><EFBFBD>
|
||||
@@ -1197,6 +1425,10 @@ Public Class MdiMain
|
||||
Dim fi5 As String = System.IO.Path.Combine(DataPath, DSET1.tbl_weather.TableName + ".xml")
|
||||
Dim fi6 As String = System.IO.Path.Combine(DataPath, DSET1.weather_group.TableName + ".xml")
|
||||
|
||||
Dim fi7 As String = System.IO.Path.Combine(DataPath, DSET1.weather_wind.TableName + ".xml")
|
||||
Dim fi8 As String = System.IO.Path.Combine(DataPath, DSET1.weather_river.TableName + ".xml")
|
||||
Dim fi9 As String = System.IO.Path.Combine(DataPath, DSET1.weather_water.TableName + ".xml")
|
||||
|
||||
|
||||
|
||||
If System.IO.File.Exists(fi1) Then
|
||||
@@ -1229,17 +1461,37 @@ Public Class MdiMain
|
||||
Else
|
||||
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#6 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
|
||||
End If
|
||||
If System.IO.File.Exists(fi7) Then
|
||||
DSET1.weather_wind.ReadXml(fi7)
|
||||
Else
|
||||
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#7 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
|
||||
End If
|
||||
If System.IO.File.Exists(fi8) Then
|
||||
DSET1.weather_river.ReadXml(fi8)
|
||||
Else
|
||||
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#8 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
|
||||
End If
|
||||
If System.IO.File.Exists(fi9) Then
|
||||
DSET1.weather_water.ReadXml(fi9)
|
||||
Else
|
||||
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#9 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
DSET1.weather_cha.AcceptChanges()
|
||||
DSET1.weather_ilsa.AcceptChanges()
|
||||
DSET1.weather_supdo.AcceptChanges()
|
||||
DSET1.weather_temp.AcceptChanges()
|
||||
DSET1.tbl_weather.AcceptChanges()
|
||||
|
||||
DSET1.weather_wind.AcceptChanges()
|
||||
DSET1.weather_river.AcceptChanges()
|
||||
DSET1.weather_water.AcceptChanges()
|
||||
|
||||
|
||||
DSET1.weather_group.AcceptChanges()
|
||||
End Sub
|
||||
|
||||
@@ -1542,17 +1794,37 @@ ENDSTAT: '//
|
||||
Fs.Close()
|
||||
|
||||
'//<2F><><EFBFBD>Ͽ<EFBFBD><CFBF><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ҷ<EFBFBD>(<28><><EFBFBD≯<EFBFBD><CCB8><EFBFBD><EFBFBD><EFBFBD>) <20≯<EFBFBD><CCB8><EFBFBD> <20>ٲ<EFBFBD><D9B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD> <20>ش<EFBFBD> <20>̺<EFBFBD>Ʈ<EFBFBD><C6AE><EFBFBD><EFBFBD> ȭ<><C8AD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ұſ<D2B0><C5BF><EFBFBD>~
|
||||
Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1)
|
||||
Dim fi As New System.IO.FileInfo(FileName)
|
||||
Me.lbl_filename.Text = fi.Name ' Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1)
|
||||
|
||||
|
||||
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD> 220919
|
||||
Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(FileName)
|
||||
Dim Desbuf() As Byte = {}
|
||||
|
||||
If FileName.ToLower().EndsWith("x") Then '//compressed
|
||||
Utility.MiniLZO.Compress(Source, Desbuf)
|
||||
Dim OrgLength As Integer = Source.Length
|
||||
Dim NewLength As Integer = Desbuf.Length
|
||||
Array.Clear(Source, 0, Source.Length)
|
||||
Array.Resize(Source, Desbuf.Length + 4)
|
||||
Dim datalen() As Byte = BitConverter.GetBytes(OrgLength)
|
||||
Array.Copy(datalen, Source, datalen.Length)
|
||||
Array.Copy(Desbuf, 0, Source, 4, Desbuf.Length)
|
||||
End If
|
||||
|
||||
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>2011.03.16<EFBFBD>߰<EFBFBD>
|
||||
'//Encoding
|
||||
If Not (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><EFBFBD><EFBFBD><EFBFBD> <20><> admin <20><><EFBFBD><EFBFBD> Prj.UserAuthType = "ADMIN" OrElse
|
||||
Dim Desbuf() As Byte = {}
|
||||
Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(Prj.FileName)
|
||||
'Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(FileName)
|
||||
Desbuf = DeCryptArea(Source, New Byte() {&HAC, &H29, &H55, &H42})
|
||||
My.Computer.FileSystem.WriteAllBytes(Prj.FileName, Desbuf, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(FileName, Desbuf, False)
|
||||
Else
|
||||
My.Computer.FileSystem.WriteAllBytes(FileName, Source, False)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>2011.03.16<EFBFBD>߰<EFBFBD>
|
||||
|
||||
If prompt Then MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>", MsgBoxStyle.Information, "Ȯ<EFBFBD><EFBFBD>")
|
||||
@@ -1613,7 +1885,7 @@ ENDSTAT: '//
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'//<2F><><EFBFBD><EFBFBD><EFBFBD>͵<EFBFBD><CDB5><EFBFBD><EFBFBD>丮<EFBFBD><E4B8AE><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<><C8AE><EFBFBD>Ѵ<EFBFBD> <20>̰<EFBFBD><CCB0><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ͺ<EFBFBD><CDBA>̽<EFBFBD><CCBD><EFBFBD> <20><>Ÿ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ϰ<EFBFBD><CFB0>Ѵ<EFBFBD>
|
||||
'//<2F>̴<EFBFBD> <20><><EFBFBD>ͳݼ<CDB3>ġ<EFBFBD><C4A1><EFBFBD><EFBFBD><EFBFBD>ǰ<EFBFBD><C7B0><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⋚<EFBFBD><E28B9A><EFBFBD>̴<EFBFBD>
|
||||
@@ -1658,14 +1930,14 @@ ENDSTAT: '//
|
||||
Read_PreFile(idx)
|
||||
End Sub
|
||||
|
||||
Private Sub <EFBFBD>ű<EFBFBD>ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles <EFBFBD>ű<EFBFBD>ToolStripMenuItem.Click
|
||||
Private Sub <EFBFBD>ű<EFBFBD>ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles btNew.Click
|
||||
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD> if
|
||||
If MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ۼ<EFBFBD><DBBC>Ͻðڽ<C3B0><DABD>ϱ<EFBFBD>?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ<EFBFBD><EFBFBD>") <> MsgBoxResult.Ok Then Return '//ok <20><><EFBFBD>ϸ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Dim new_string As String
|
||||
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 <20>߰<EFBFBD>
|
||||
new_string = "\new"
|
||||
new_string = "\newx.tplx"
|
||||
Else
|
||||
new_string = "\new1"
|
||||
new_string = "\newx.ecox"
|
||||
End If
|
||||
Dim Srcfile As New System.IO.FileInfo(My.Application.Info.DirectoryPath & new_string)
|
||||
If Srcfile.Exists = False Then
|
||||
@@ -1673,20 +1945,20 @@ ENDSTAT: '//
|
||||
Return '//<2F><><EFBFBD><EFBFBD><EFBFBD>ҿ<EFBFBD><D2BF><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
End If
|
||||
|
||||
Dim SD As New SaveFileDialog
|
||||
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 <20>߰<EFBFBD>
|
||||
SD.FileName = "new" & Format(Now, "mmdd") & ".tpl"
|
||||
SD.Filter = "<EFBFBD><EFBFBD><EFBFBD>ø<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.TPL)|*.tpl|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.*)|*.*"
|
||||
Else
|
||||
SD.FileName = "new" & Format(Now, "mmdd") & ".eco"
|
||||
SD.Filter = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.ECO)|*.eco|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.*)|*.*"
|
||||
End If
|
||||
'Dim SD As New SaveFileDialog
|
||||
'If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 <20>߰<EFBFBD>
|
||||
' SD.FileName = "new" & Format(Now, "mmdd") & ".tpl"
|
||||
' SD.Filter = "<EFBFBD><EFBFBD><EFBFBD>ø<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.tplx)|*.tplx|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.*)|*.*"
|
||||
'Else
|
||||
' SD.FileName = "new" & Format(Now, "mmdd") & ".eco"
|
||||
' SD.Filter = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.ecox)|*.ecox|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.*)|*.*"
|
||||
'End If
|
||||
|
||||
If SD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD> <20>Է¾<D4B7><C2BE>ϸ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
'If SD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD> <20>Է¾<D4B7><C2BE>ϸ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ؼ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD>
|
||||
If System.IO.File.Exists(SD.FileName) Then System.IO.File.Delete(SD.FileName)
|
||||
Srcfile.CopyTo(SD.FileName)
|
||||
''//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ؼ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD>
|
||||
'If System.IO.File.Exists(SD.FileName) Then System.IO.File.Delete(SD.FileName)
|
||||
'Srcfile.CopyTo(SD.FileName)
|
||||
|
||||
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>2011.03.16<EFBFBD>߰<EFBFBD>
|
||||
'If Not (Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1") Then '//2011.03.09 <20>߰<EFBFBD>
|
||||
@@ -1696,10 +1968,12 @@ 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(SD.FileName, True, False, False, True)
|
||||
Me.Open_File(Srcfile.FullName, True, False, False, True)
|
||||
Prj.UIVersion = CurrentUIVersion() '//<2F><EFBFBD><D7BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 160327
|
||||
Refresh_info()
|
||||
Me.Save_File(Prj.FileName, False)
|
||||
ToolStripButton3.Enabled = False
|
||||
bt_filesave.Enabled = False
|
||||
'Me.Save_File(Prj.FileName, False)
|
||||
End Sub
|
||||
|
||||
Public PreNode As TreeNode = Nothing
|
||||
@@ -1963,7 +2237,7 @@ ENDSTAT: '//
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ToolStripMenuItem.Click
|
||||
Private Sub <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles btOpen.Click
|
||||
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()
|
||||
@@ -1975,13 +2249,15 @@ ENDSTAT: '//
|
||||
'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>(*.*)|*.*"
|
||||
Od.Filter = "<EFBFBD><EFBFBD><EFBFBD>ø<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.TPL,*.TPLX)|*.tpl;*.tplx|<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>(*.*)|*.*"
|
||||
Od.Filter = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.ECO,*.ECOX)|*.eco;*.ecox|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.*)|*.*"
|
||||
End If
|
||||
Od.FilterIndex = 0
|
||||
If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
|
||||
Open_File(Od.FileName)
|
||||
ToolStripButton3.Enabled = True
|
||||
bt_filesave.Enabled = True
|
||||
End Sub
|
||||
|
||||
Private Sub <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles bt_filesave.Click
|
||||
@@ -1998,6 +2274,12 @@ ENDSTAT: '//
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim fi As New System.IO.FileInfo(Prj.FileName)
|
||||
If fi.Extension.ToLower().EndsWith("x") = False Then
|
||||
MsgBox("<EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Դϴ<D4B4>. [<5B>ٸ<EFBFBD> <20≯<EFBFBD>]<5D><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>ϼ<EFBFBD><CFBC><EFBFBD>", MsgBoxStyle.Information, "Ȯ<EFBFBD><EFBFBD>")
|
||||
Return
|
||||
End If
|
||||
|
||||
' Dim lastmenu As String = ""
|
||||
If Me.OpenedForm <> E_MenuIdx.NONE Then '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD>.
|
||||
' lastmenu = Me.OpenedForm.ToString
|
||||
@@ -2257,7 +2539,7 @@ ENDSTAT: '//
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
|
||||
<EFBFBD>ű<EFBFBD>ToolStripMenuItem.PerformClick()
|
||||
btNew.PerformClick()
|
||||
End Sub
|
||||
|
||||
Private Sub <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뷮<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
@@ -2272,7 +2554,7 @@ ENDSTAT: '//
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton2.Click
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ToolStripMenuItem.PerformClick()
|
||||
btOpen.PerformClick()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -2280,7 +2562,7 @@ ENDSTAT: '//
|
||||
bt_filesave.PerformClick()
|
||||
End Sub
|
||||
Private Sub ToolStripButton4_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton4.Click
|
||||
<EFBFBD>ٸ<EFBFBD><EFBFBD≯<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ToolStripMenuItem.PerformClick()
|
||||
btSaveNew.PerformClick()
|
||||
End Sub
|
||||
Private Sub ToolStripButton5_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton5.Click
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ToolStripMenuItem1.PerformClick()
|
||||
@@ -2421,7 +2703,7 @@ ENDSTAT: '//
|
||||
Return
|
||||
End If
|
||||
|
||||
Report_pyonga.ControlBox = True
|
||||
Report_pyonga.ControlBox = True
|
||||
Report_pyonga.Show()
|
||||
End Sub
|
||||
|
||||
@@ -2431,30 +2713,43 @@ ENDSTAT: '//
|
||||
Next
|
||||
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 <EFBFBD>ٸ<EFBFBD><EFBFBD≯<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ToolStripMenuItem.Click
|
||||
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
|
||||
|
||||
|
||||
Function Save_New() As Boolean
|
||||
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
|
||||
Return False
|
||||
End If
|
||||
|
||||
If Prj.FileName = "" Then
|
||||
MsgBox(CLang.<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͼ<EFBFBD><EFBFBD><EFBFBD>, MsgBoxStyle.Information, "Ȯ<EFBFBD><EFBFBD>")
|
||||
Return
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Dim newfilename As String = Prj.FileName
|
||||
If newfilename.ToLower().EndsWith("x") = False Then
|
||||
newfilename = newfilename + "x"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim SD As New SaveFileDialog
|
||||
SD.FileName = Prj.FileName
|
||||
SD.FileName = newfilename
|
||||
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 <20>߰<EFBFBD>
|
||||
SD.Filter = "<EFBFBD><EFBFBD><EFBFBD>ø<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.TPL)|*.tpl|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.*)|*.*"
|
||||
SD.Filter = "<EFBFBD><EFBFBD><EFBFBD>ø<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.tplx)|*.tplx|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.*)|*.*"
|
||||
Else
|
||||
SD.Filter = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.eco)|*.eco|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.*)|*.*"
|
||||
SD.Filter = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.ecox)|*.ecox|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(*.*)|*.*"
|
||||
End If
|
||||
|
||||
SD.FilterIndex = 0
|
||||
If SD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
|
||||
If SD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return False
|
||||
Prj.FileName = SD.FileName
|
||||
|
||||
' Dim lastmenu As String = ""
|
||||
@@ -2465,19 +2760,17 @@ ENDSTAT: '//
|
||||
curf.Close()
|
||||
End If
|
||||
|
||||
|
||||
Me.Save_File(Prj.FileName)
|
||||
|
||||
If lastmenutag <> "" Then
|
||||
Me.show_menu(lastmenutag)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub ȯ<EFBFBD>漳<EFBFBD><EFBFBD>ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ȯ<EFBFBD>漳<EFBFBD><EFBFBD>ToolStripMenuItem.Click
|
||||
|
||||
End Sub
|
||||
@@ -2558,7 +2851,7 @@ ENDSTAT: '//
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
Next
|
||||
If Change Then
|
||||
LineChange = True
|
||||
@@ -2780,7 +3073,7 @@ ENDSTAT: '//
|
||||
End If
|
||||
Od.FilterIndex = 0
|
||||
If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
|
||||
Open_File_only_weather(Od.FileName)
|
||||
Open_File_Only_weather(Od.FileName)
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -2806,7 +3099,7 @@ ENDSTAT: '//
|
||||
End If
|
||||
Od.FilterIndex = 0
|
||||
If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
|
||||
Open_File_Only_profile(Od.FileName)
|
||||
'Open_File_Only_profile(Od.FileName)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user