JAVA 웹 과 비교를 하기위한 기타 기능 추가
This commit is contained in:
chi
@@ -436,8 +436,6 @@ Public Class MdiMain
|
||||
Dim fn1 As String = AppDomain.CurrentDomain.BaseDirectory + "\profile.dat"
|
||||
Dim fn2 As String = AppDomain.CurrentDomain.BaseDirectory + "\weather{0}.dat"
|
||||
|
||||
|
||||
|
||||
If System.IO.File.Exists(fn0) Then
|
||||
Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn0, ""))
|
||||
If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
@@ -2404,8 +2402,10 @@ ENDSTAT: '//
|
||||
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> _<>ҿ䷮
|
||||
P(92) = (-1 * (Result1o.<EFBFBD><EFBFBD><EFBFBD><EFBFBD>E(0).<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>귮<EFBFBD>¾翭 + Result1o.<EFBFBD><EFBFBD><EFBFBD><EFBFBD>E(0).<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>귮<EFBFBD><EFBFBD><EFBFBD><EFBFBD>) - <EFBFBD><EFBFBD><EFBFBD><EFBFBD>1).ToString()
|
||||
|
||||
Console.WriteLine("exp report ==========")
|
||||
For i As Integer = 1 To 99
|
||||
NewDR("c" + i.ToString("000")) = P(i - 1)
|
||||
Console.WriteLine("P[{0}]={1}", i, P(i - 1))
|
||||
Next
|
||||
|
||||
DSETR1.ExtReport.AddExtReportRow(NewDR)
|
||||
@@ -3073,61 +3073,64 @@ ENDSTAT: '//
|
||||
End Sub
|
||||
|
||||
Private Sub RibbonButton24_Click_1(sender As Object, e As EventArgs) Handles RibbonButton24.Click
|
||||
|
||||
'//save file (weather, profile)
|
||||
Dim fn0 As String = AppDomain.CurrentDomain.BaseDirectory + "\common.dat"
|
||||
Dim fn1 As String = AppDomain.CurrentDomain.BaseDirectory + "\profile.dat"
|
||||
Dim fn2 As String = AppDomain.CurrentDomain.BaseDirectory + "\weather{0}.dat"
|
||||
|
||||
'DSET1.tbl_common_od.WriteXml(String.Format(fn0, ""), True)
|
||||
'DSET1.tbl_profile_od.WriteXml(String.Format(fn1, ""), True)
|
||||
'DSET1.tbl_weather_od.WriteXml(String.Format(fn2, ""), True)
|
||||
'DSET1.weather_cha_od.WriteXml(String.Format(fn2, "_ch"), True)
|
||||
'DSET1.weather_group.WriteXml(String.Format(fn2, "_gr"), True)
|
||||
'DSET1.weather_ilsa_od.WriteXml(String.Format(fn2, "_is"), True)
|
||||
'DSET1.weather_supdo_od.WriteXml(String.Format(fn2, "_sd"), True)
|
||||
'DSET1.weather_temp_od.WriteXml(String.Format(fn2, "_tp"), True)
|
||||
If MsgBox("<EFBFBD><EFBFBD>ȣȭ<EFBFBD><EFBFBD> <20>Ͻðڽ<C3B0><DABD>ϱ<EFBFBD>?", MsgBoxStyle.YesNo, "Ȯ<EFBFBD><EFBFBD>") = MsgBoxResult.Yes Then
|
||||
Dim ms0 As New System.IO.MemoryStream()
|
||||
Dim ms1 As New System.IO.MemoryStream()
|
||||
Dim ms2 As New System.IO.MemoryStream()
|
||||
|
||||
Dim ms0 As New System.IO.MemoryStream()
|
||||
Dim ms1 As New System.IO.MemoryStream()
|
||||
Dim ms2 As New System.IO.MemoryStream()
|
||||
Dim ms21 As New System.IO.MemoryStream()
|
||||
Dim ms22 As New System.IO.MemoryStream()
|
||||
Dim ms23 As New System.IO.MemoryStream()
|
||||
Dim ms24 As New System.IO.MemoryStream()
|
||||
Dim ms25 As New System.IO.MemoryStream()
|
||||
|
||||
Dim ms21 As New System.IO.MemoryStream()
|
||||
Dim ms22 As New System.IO.MemoryStream()
|
||||
Dim ms23 As New System.IO.MemoryStream()
|
||||
Dim ms24 As New System.IO.MemoryStream()
|
||||
Dim ms25 As New System.IO.MemoryStream()
|
||||
DSET1.tbl_common_od.WriteXml(ms0)
|
||||
Dim buffer0() As Byte = EnctryArea(ms0.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn0, ""), buffer0)
|
||||
|
||||
DSET1.tbl_common_od.WriteXml(ms0)
|
||||
Dim buffer0() As Byte = EnctryArea(ms0.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn0, ""), buffer0)
|
||||
DSET1.tbl_profile_od.WriteXml(ms1)
|
||||
buffer0 = EnctryArea(ms1.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn1, ""), buffer0)
|
||||
|
||||
DSET1.tbl_profile_od.WriteXml(ms1)
|
||||
buffer0 = EnctryArea(ms1.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn1, ""), buffer0)
|
||||
DSET1.tbl_weather_od.WriteXml(ms2)
|
||||
buffer0 = EnctryArea(ms2.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn2, ""), buffer0)
|
||||
|
||||
DSET1.tbl_weather_od.WriteXml(ms2)
|
||||
buffer0 = EnctryArea(ms2.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn2, ""), buffer0)
|
||||
DSET1.weather_cha_od.WriteXml(ms21)
|
||||
buffer0 = EnctryArea(ms21.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn2, "_ch"), buffer0)
|
||||
|
||||
DSET1.weather_cha_od.WriteXml(ms21)
|
||||
buffer0 = EnctryArea(ms21.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn2, "_ch"), buffer0)
|
||||
DSET1.weather_group.WriteXml(ms22)
|
||||
buffer0 = EnctryArea(ms22.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn2, "_gr"), buffer0)
|
||||
|
||||
DSET1.weather_group.WriteXml(ms22)
|
||||
buffer0 = EnctryArea(ms22.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn2, "_gr"), buffer0)
|
||||
DSET1.weather_ilsa_od.WriteXml(ms23)
|
||||
buffer0 = EnctryArea(ms23.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn2, "_is"), buffer0)
|
||||
|
||||
DSET1.weather_ilsa_od.WriteXml(ms23)
|
||||
buffer0 = EnctryArea(ms23.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn2, "_is"), buffer0)
|
||||
DSET1.weather_supdo_od.WriteXml(ms24)
|
||||
buffer0 = EnctryArea(ms24.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn2, "_sd"), buffer0)
|
||||
|
||||
DSET1.weather_supdo_od.WriteXml(ms24)
|
||||
buffer0 = EnctryArea(ms24.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn2, "_sd"), buffer0)
|
||||
|
||||
DSET1.weather_temp_od.WriteXml(ms25)
|
||||
buffer0 = EnctryArea(ms25.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn2, "_tp"), buffer0)
|
||||
DSET1.weather_temp_od.WriteXml(ms25)
|
||||
buffer0 = EnctryArea(ms25.GetBuffer())
|
||||
System.IO.File.WriteAllBytes(String.Format(fn2, "_tp"), buffer0)
|
||||
Else
|
||||
DSET1.tbl_common_od.WriteXml(String.Format(fn0, "") + ".xml", True)
|
||||
DSET1.tbl_profile_od.WriteXml(String.Format(fn1, "") + ".xml", True)
|
||||
DSET1.tbl_weather_od.WriteXml(String.Format(fn2, "") + ".xml", True)
|
||||
DSET1.weather_cha_od.WriteXml(String.Format(fn2, "_ch") + ".xml", True)
|
||||
DSET1.weather_group.WriteXml(String.Format(fn2, "_gr") + ".xml", True)
|
||||
DSET1.weather_ilsa_od.WriteXml(String.Format(fn2, "_is") + ".xml", True)
|
||||
DSET1.weather_supdo_od.WriteXml(String.Format(fn2, "_sd") + ".xml", True)
|
||||
DSET1.weather_temp_od.WriteXml(String.Format(fn2, "_tp") + ".xml", True)
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -4252,7 +4255,12 @@ ENDSTAT: '//
|
||||
End Sub
|
||||
|
||||
Private Sub RibbonButton23_Click_1(sender As System.Object, e As System.EventArgs) Handles RibbonButton23.Click
|
||||
|
||||
If Not Prj.Opened Then
|
||||
Work_msg_timer(CLang.<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͼ<EFBFBD><EFBFBD><EFBFBD>)
|
||||
Return
|
||||
End If
|
||||
Frm_Buha.ControlBox = True
|
||||
Frm_Buha.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub ExportCSV()
|
||||
|
||||
Reference in New Issue
Block a user