Imports C1.Win.C1Ribbon Imports Microsoft.VisualBasic Public Class MdiMain Dim T As String = "ȭ" Enum E_MenuIdx NONE = 0 뷮 Form1 = 50 Form2 Form3 Form4 Form5 End Enum Dim FileExt As String = "ECL2" '''翭ִ ̸ Ѵ. Public OpenedForm As E_MenuIdx = E_MenuIdx.NONE Private Sub MdiMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If Not Prj.Opened Then If MsgBox(CLang.ҷ, MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, CLang.Ȯ) = MsgBoxResult.Ok Then 'Me.Close() Else e.Cancel = True End If Else Dim dlg As DialogResult = MsgBox(CLang.ҷ2, MsgBoxStyle.Information Or MsgBoxStyle.YesNoCancel, CLang.Ȯ) If dlg = MsgBoxResult.Yes Then '//մ ִٸ ϵѴ. For Each ChildForm As CForm In Me.MdiChildren If ChildForm.HasChanged Then ChildForm.AcceptChanged() Next '// Ѵ. Func_Save_OD(Prj.FileName) ElseIf dlg = DialogResult.Cancel Then '//ڰ Ҹ ߴ. e.Cancel = True End If End If End Sub Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Select Case e.KeyCode Case Keys.F1 If e.Control AndAlso e.Shift Then If ribbonGroup4.Visible Then ribbonGroup4.Visible = Not ribbonGroup4.Visible Else Dim f As New LoginForm1() If f.ShowDialog() = Windows.Forms.DialogResult.OK Then ribbonGroup4.Visible = Not ribbonGroup4.Visible End If End If Else Read_PreFile(0) End If Case Keys.F2 Read_PreFile(1) Case Keys.F3 Read_PreFile(2) Case Keys.F4 Read_PreFile(3) Case Keys.F5 Show_Menu(1) Case Keys.F6 Show_Menu(2) Case Keys.F7 Show_Menu(3) Case Keys.F8 Show_Menu(4) Case Keys.F9 Show_Menu(5) Case Keys.F11 If e.Control Then ExportCSV() End If Case Keys.F12 Dim tblname As String = InputBox("", "") If tblname = "" Then Return Dim f As New Frm_Debug(tblname) With { .TopMost = True } f.Show() End Select End Sub Private Sub CreateAppMenu() '//ư ̺Ʈ ҴѴ. AddHandler abt_exit.Click, Sub() Me.Close() End Sub AddHandler abt_new.Click, Sub() Menu_New() End Sub AddHandler abt_open.Click, Sub() Menu_Open() End Sub AddHandler abt_save.Click, Sub() Menu_Save() End Sub AddHandler abt_saveas.Click, Sub() Menu_SaveAs() End Sub End Sub Private Sub pinButton_Click(ByVal sender As Object, ByVal e As EventArgs) Dim pin As RibbonToggleButton = CType(sender, RibbonToggleButton) If pin.Pressed Then MsgBox("cli") '/ pin.SmallImage = My.Resources.pinned Else MsgBox("ncli") ' pin.SmallImage = My.Resources.unpinned End If End Sub Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load '//α׷ ribbonGroup4.Visible = False Me.Text = "ѷ α׷" Me.mbt_save.Enabled = False '//ưȰ Me.mbt_save2.Enabled = mbt_save.Enabled Me.Show() My.Application.DoEvents() '//ȭ鿡 ǥ Try Refresh_StatusInfo() Read_SEtting() '//ȯ漳 ´. Splah ߵ. bt5.Visible = False Dim Param As String = Command.ToString Param = Param.Replace(Chr(34), "") If Param.ToLower().LastIndexOf(".ecl2") <> -1 Then Program = EProgram.ѷ FileExt = "ECL2" ElseIf Param.ToLower().LastIndexOf(".ecl3") <> -1 Then Program = EProgram.ģȯ FileExt = "ECL3" Else Dim F As New Frm_Intro '//αȭ ǥ If F.ShowDialog <> Windows.Forms.DialogResult.OK Then End If F.RadioButton1.Checked Then '//eco2 αؾ Program = EProgram.ѷ FileExt = "ECL2" Else bt5.Visible = True Program = EProgram.ģȯ FileExt = "ECL3" End If End If If Program = EProgram.ѷ Then Me.Text = "๰ Һ ѷ" Else Me.Text = " ģȯ" End If Me.Text &= " Ver " & _ My.Application.Info.Version.Minor & "." & _ My.Application.Info.Version.Build & "." & _ My.Application.Info.Version.Revision ' & "(Beta)" '// ϸ Read_FilHistory() Me.lb_program.Text = "[" + Program.ToString() + "]" '//Version Ȯ '//170514 other button - btvercheck Work_msg("") CreateAppMenu() '//ĶȮ If Param <> "" Then If System.IO.File.Exists(Param) Then '//ش ϸ Select Case Program Case EProgram.ģȯ Me.Func_Open_OD(Param) Case EProgram.ѷ Me.Func_Open_OD(Param) End Select End If End If Catch ex As Exception Dim sb As New System.Text.StringBuilder Dim st As New StackTrace(True) sb.AppendLine("(Load) : " + st.FrameCount.ToString()) sb.AppendLine(" ޼: " + st.GetFrame(0).GetMethod().Name) sb.AppendLine("ȣ ޼: " + st.GetFrame(1).GetMethod().Name) sb.AppendLine(" ޼: " + st.GetFrame(st.FrameCount - 1).GetMethod().Name) sb.AppendLine() sb.AppendLine("-- ȣ --") For Each sf As StackFrame In st.GetFrames() sb.AppendLine( " : " + sf.GetFileName() + " : " + sf.GetFileLineNumber().ToString() + " : " + sf.GetFileColumnNumber().ToString() + " : " + sf.GetILOffset().ToString() + " ޼: " + sf.GetMethod().Name) Next MsgBox(sb.ToString(), MsgBoxStyle.Critical, "File Open Error") End Try End Sub ''' ''' ϴ ǥâ մϴ. ''' Public Sub Refresh_StatusInfo() Try 'If Prj.Admin Then ' Me.lb_usermode.Text = "[]" 'Else ' Me.lb_usermode.Text = "[Ϲ]" 'End If '//ø If Prj.EditTime = "" Then Me.lbl_lastedit.Text = "[]" Else Me.lbl_lastedit.Text = "[" & Prj.EditTime.Trim & "]" End If If Prj.Name = "" Then Me.lbl_prjname.Text = "[̸]" Me.lbl_prjname.ToolTip = "" Else Me.lbl_prjname.Text = "[" & Prj.Name.Trim.Replace(Space(1), "") & "]" Me.lbl_prjname.ToolTip = Prj.Desc End If If Prj.SFType = "" Then Me.lbl_FileInfo.Text = "[]" Else Me.lbl_FileInfo.Text = "[" & Prj.LGVersino.Trim & "]" End If 'If Prj.Password = "" Then ' Me.lbl_password.Text = "[ȣ]" 'Else ' Me.lbl_password.Text = "[ȣ]" 'End If 'Me.lbl_user.Text = "[" & Prj.UserId & "]" Me.lbl_mac.Text = "[" & Prj.CUrMac & "]" Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Error") End Try End Sub Public Sub Func_Open_OD(ByVal FileName As String, Optional ByVal SyncServer As Boolean = False) '//  ø̸ ´ If Not System.IO.File.Exists(FileName) Then Return End If '//մȭ ݴ´. RibbonButton3_Click(Nothing, Nothing) Try Dim fi As New System.IO.FileInfo(FileName) Dim FS As System.IO.Stream Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(FileName) Dim Desbuf() As Byte = {} '// ȣȭ ؾѴ If Source.Length < 4 Then MsgBox("˼ų ջ Դϴ", MsgBoxStyle.Critical, "Ȯ") Return End If '//Ͱ ȣȭǾ üũѴ.( OD) Dim isEnc As Boolean = False If (fi.Extension.ToLower() = ".ecl") Then isEnc = True If isEnc Then Desbuf = DeCryptArea(Source, New Byte() {&HAC, &H29, &H55, &H42}) FS = New IO.MemoryStream(Desbuf, True) Else FS = New IO.MemoryStream(Source, True) End If '//ҷ± ߰ Setting.Data("presetting", "filename") = Prj.FileName Dim Br As New IO.BinaryReader(FS, System.Text.Encoding.Default) Prj.FileName = FileName Prj.Opened = False Prj.SFType = STB(Br.ReadBytes(2)) '//̺ϱ(2) 'If CInt(Prj.SFType) <> 9 Then ' If MsgBox("α׷ ġ ʴ Դϴ" + vbCrLf + " Ͻðڽϱ?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return 'End If 'SyncServer = True ' 2011.06.15 ߰ ڵ ڵ ڵ带 ȭ Try '//Ȯ Prj.UIVersion = STB(Br.ReadBytes(10)) Prj.LGVersino = STB(Br.ReadBytes(10)) '//߰Ȯ Prj.Name = STB(Br.ReadBytes(100)) Prj.Desc = STB(Br.ReadBytes(256)) Prj.MakeTime = STB(Br.ReadBytes(19)) Prj.EditTime = STB(Br.ReadBytes(19)) '//DS1 ʱȭ DSET1 = New DS() DSET1.AcceptChanges() Dim DS1Len As Int64 = Br.ReadInt64 Dim DS1() As Byte = Br.ReadBytes(CInt(DS1Len)) 'System.IO.File.WriteAllBytes("c:\intel\a.xml", DS1) Dim Ms As New IO.MemoryStream(DS1) Ms.Position = 0 Try DSET1.ReadXml(Ms) DSET1.AcceptChanges() Ms.Close() Catch ex As Exception MsgBox(" ջǾϴ." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 Open Error") End Try '//DS1 ִٸ Լ Ѵ If String.Compare(Prj.UIVersion, "2014041400") >= 0 Then DSETR1 = New DSR() DSETR1.AcceptChanges() DS1Len = Br.ReadInt64 DS1 = Br.ReadBytes(CInt(DS1Len)) Ms = New IO.MemoryStream(DS1) Try DSETR1.ExtReport.ReadXml(Ms) DSETR1.AcceptChanges() Ms.Close() Catch ex As Exception MsgBox(" ϴ." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds2 Open Error") End Try End If Prj.IsError = False Catch ex As Exception MsgBox(" ¸ ϴ" + vbCrLf + ex.Message.ToString, MsgBoxStyle.Critical, "ҷ") Prj.IsError = True End Try Br.Close() FS.Close() If Not Prj.IsError Then Prj.Opened = True Frm_Work.Label1.Text = "͸ Ȯϰ ֽϴ" Frm_Work.Show() If DSET1.tbl_buha.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_buha.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_bunbae.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_bunbae.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_kongjo.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongjo.Rows.Add(New String() {"0", "()"}) 'If DSET1.tbl_kongkub.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongkub.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_myoun.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_myoun.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_nanbangkiki.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nanbangkiki.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_nangbangkiki.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nangbangkiki.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_nbunbae.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nbunbae.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_new.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_new.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_profile_od.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_profile_od.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_weather_od.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_weather_od.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_yk.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_yk.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_ReqInfo.Rows.Count < 1 Then Dim newdreq As DS.tbl_ReqInfoRow = DSET1.tbl_ReqInfo.Newtbl_ReqInfoRow() DSET1.tbl_ReqInfo.Addtbl_ReqInfoRow(newdreq) End If If DSETR1.ExtReport.Rows.Count < 1 Then Dim newdr As DSR.ExtReportRow = DSETR1.ExtReport.NewExtReportRow For i As Integer = 1 To 82 newdr("c" + i.ToString("000")) = "-" Next DSETR1.ExtReport.AddExtReportRow(newdr) End If For Each Drow As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Rows If Drow.õ = "0" Then Drow.õ = "" Next For Each Drow As DS.tbl_kongjoRow In DSET1.tbl_kongjo.Rows If Drow. = "0" Then Drow. = "dz" Next For Each drow As DS.tbl_newRow In DSET1.tbl_new.Rows If drow.ó汸 = "" Then drow.ó汸 = drow.ó汸 Next '//save file (weather, profile) DSET1.tbl_common_od.Clear() DSET1.tbl_profile_od.Clear() DSET1.tbl_weather_od.Clear() DSET1.weather_cha_od.Clear() DSET1.weather_group.Clear() DSET1.weather_ilsa_od.Clear() DSET1.weather_supdo_od.Clear() DSET1.weather_temp_od.Clear() 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" If System.IO.File.Exists(fn0) Then Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn0, "")) If (buffer(0) = &H90) Then '//ȣȭ Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42} Dim newbuffer() As Byte = DeCryptArea(buffer, decKey) Dim ms0 As New System.IO.MemoryStream(newbuffer) DSET1.tbl_common_od.ReadXml(ms0) Else '//ƴ DSET1.tbl_common_od.ReadXml(String.Format(fn0, "")) End If End If If System.IO.File.Exists(fn1) Then Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn1, "")) If (buffer(0) = &H90) Then '//ȣȭ Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42} Dim newbuffer() As Byte = DeCryptArea(buffer, decKey) Dim ms0 As New System.IO.MemoryStream(newbuffer) DSET1.tbl_profile_od.ReadXml(ms0) Else '//ƴ DSET1.tbl_profile_od.ReadXml(String.Format(fn1, "")) End If End If If System.IO.File.Exists(String.Format(fn2, "")) Then Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "")) If (buffer(0) = &H90) Then '//ȣȭ Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42} Dim newbuffer() As Byte = DeCryptArea(buffer, decKey) Dim ms0 As New System.IO.MemoryStream(newbuffer) DSET1.tbl_weather_od.ReadXml(ms0) Else '//ƴ DSET1.tbl_weather_od.ReadXml(String.Format(fn2, "")) End If End If If System.IO.File.Exists(String.Format(fn2, "_ch")) Then Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "_ch")) If (buffer(0) = &H90) Then '//ȣȭ Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42} Dim newbuffer() As Byte = DeCryptArea(buffer, decKey) Dim ms0 As New System.IO.MemoryStream(newbuffer) DSET1.weather_cha_od.ReadXml(ms0) Else '//ƴ DSET1.weather_cha_od.ReadXml(String.Format(fn2, "_ch")) End If End If If System.IO.File.Exists(String.Format(fn2, "_gr")) Then Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "_gr")) If (buffer(0) = &H90) Then '//ȣȭ Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42} Dim newbuffer() As Byte = DeCryptArea(buffer, decKey) Dim ms0 As New System.IO.MemoryStream(newbuffer) DSET1.weather_group.ReadXml(ms0) Else '//ƴ DSET1.weather_group.ReadXml(String.Format(fn2, "_gr")) End If End If If System.IO.File.Exists(String.Format(fn2, "_is")) Then Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "_is")) If (buffer(0) = &H90) Then '//ȣȭ Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42} Dim newbuffer() As Byte = DeCryptArea(buffer, decKey) Dim ms0 As New System.IO.MemoryStream(newbuffer) DSET1.weather_ilsa_od.ReadXml(ms0) Else '//ƴ DSET1.weather_ilsa_od.ReadXml(String.Format(fn2, "_is")) End If End If If System.IO.File.Exists(String.Format(fn2, "_sd")) Then Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "_sd")) If (buffer(0) = &H90) Then '//ȣȭ Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42} Dim newbuffer() As Byte = DeCryptArea(buffer, decKey) Dim ms0 As New System.IO.MemoryStream(newbuffer) DSET1.weather_supdo_od.ReadXml(ms0) Else '//ƴ DSET1.weather_supdo_od.ReadXml(String.Format(fn2, "_sd")) End If End If If System.IO.File.Exists(String.Format(fn2, "_tp")) Then Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "_tp")) If (buffer(0) = &H90) Then '//ȣȭ Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42} Dim newbuffer() As Byte = DeCryptArea(buffer, decKey) Dim ms0 As New System.IO.MemoryStream(newbuffer) DSET1.weather_temp_od.ReadXml(ms0) Else '//ƴ DSET1.weather_temp_od.ReadXml(String.Format(fn2, "_tp")) End If End If DSET1.tbl_common_od.AcceptChanges() DSET1.tbl_profile_od.AcceptChanges() DSET1.tbl_weather_od.AcceptChanges() DSET1.weather_cha_od.AcceptChanges() DSET1.weather_group.AcceptChanges() DSET1.weather_ilsa_od.AcceptChanges() DSET1.weather_supdo_od.AcceptChanges() DSET1.weather_temp_od.AcceptChanges() DSET1.AcceptChanges() Frm_Work.Close() '//ڷ ڷḸ Ѵ SyncServer = False '//̰ ͳ Ǿ Ʈ Ѵ. If isEnc AndAlso Pub.CheckInternet() Then Read_Profile_OD() If SyncServer Then '// ڵũ Read_WeatherData_OD() Read_CommonCode_OD() Read_Profile_OD() Read_WatherGroup() End If End If CalcO = New CalculatorOD(Prj.LGVersino) '//Ŭ ʱȭ Me.mbt_save.Enabled = True Me.mbt_save2.Enabled = Me.mbt_save.Enabled Refresh_StatusInfo() '//ȭϴ âǥ Menu_ȭ() '// ϸ ش. Me.Save_FilHistory(Prj.FileName) Me.Read_FilHistory() CalcO.Validation() '//null '//θ ʹȵǴ θ ϸ ݴϴ. 'Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1) '//Version Ȯ 'Work_msg(" Ȯ") '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 ''/ڵȮ 'Try ' MyVersion = DSET1.tbl_Desc.Rows(0)("versionc").ToString ' If MyVersion = "" Then MyVersion = "20100101" 'Catch ex As Exception ' MyVersion = "20100101" 'End Try 'Try ' VersionInfo = L.Get_LastVersion("CO") '// µ eco ٲ߰ ^^ ڸ ֵ սô! ' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0 ų ̹Ƿ Ѿ. ' Dim Msg As New System.Text.StringBuilder ' Msg.AppendLine("ο ȮεǾϴ" & vbCrLf) ' Msg.AppendLine(":" & MyVersion & " űԹ:" & VersionInfo.Ver) ' Msg.AppendLine("----------------------------------") ' Msg.AppendLine(VersionInfo.Desc) ' Msg.AppendLine("----------------------------------") ' If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://Ȩּ" ' ' Msg.AppendLine("űԹ Ȯϱ ðڽϱ?") ' If MsgBox(Msg.ToString, MsgBoxStyle.Information, "Ȯ") = MsgBoxResult.Ok Then ' SyncServer = True ' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus) ' ' End ' End If ' End If 'Catch ex As Exception ' MsgBox("ڵ " & ex.Message.ToString) 'End Try '//Ϲüũ 140420 'Try ' MyVersion = DSET1.tbl_Desc.Rows(0)("versionp").ToString ' If MyVersion = "" Then MyVersion = "20100101" 'Catch ex As Exception ' MyVersion = "20100101" 'End Try 'Try ' VersionInfo = L.Get_LastVersion("PO") '// µ eco ٲ߰ ^^ ڸ ֵ սô! ' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0 ų ̹Ƿ Ѿ. ' Dim Msg As New System.Text.StringBuilder ' Msg.AppendLine("ο ȮεǾϴ" & vbCrLf) ' Msg.AppendLine(":" & MyVersion & " űԹ:" & VersionInfo.Ver) ' Msg.AppendLine("----------------------------------") ' Msg.AppendLine(VersionInfo.Desc) ' Msg.AppendLine("----------------------------------") ' If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://Ȩּ" ' ' Msg.AppendLine("űԹ Ȯϱ ðڽϱ?") ' If MsgBox(Msg.ToString, MsgBoxStyle.Information, "Ȯ") = MsgBoxResult.Ok Then ' SyncServer = True ' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus) ' ' End ' End If ' End If 'Catch ex As Exception ' MsgBox("ǥ(OD) " & ex.Message.ToString) 'End Try '/͹Ȯ 'Try ' MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString ' If MyVersion = "" Then MyVersion = "20100101" 'Catch ex As Exception ' MyVersion = "20100101" 'End Try 'Try ' 'MyVersion = dset1.tbl_Desc.Rows(0)("versionw").ToString ' VersionInfo = L.Get_LastVersion("W") '// µ eco ٲ߰ ^^ ڸ ֵ սô! ' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0 ų ̹Ƿ Ѿ. ' Dim Msg As New System.Text.StringBuilder ' Msg.AppendLine("ο ȮεǾϴ" & vbCrLf) ' Msg.AppendLine(":" & MyVersion & " űԹ:" & VersionInfo.Ver) ' Msg.AppendLine("----------------------------------") ' Msg.AppendLine(VersionInfo.Desc) ' Msg.AppendLine("----------------------------------") ' If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://Ȩּ" ' ' Msg.AppendLine("űԹ Ȯϱ ðڽϱ?") ' If MsgBox(Msg.ToString, MsgBoxStyle.Information, "Ȯ") = MsgBoxResult.Ok Then ' SyncServer = True ' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus) ' ' End ' End If ' End If 'Catch ex As Exception 'End Try 'Me.Refresh_MenuItems("") '/Dim fi As New System.IO.FileInfo(Prj.FileName) lbl_filename.Text = "[" + fi.Name + "]" Work_msg("") Else '//Ϻҷ зؼ ó ʴ´. lbl_filename.Text = "[ERROR]" End If Catch ex As Exception Dim sb As New System.Text.StringBuilder Dim st As New StackTrace(True) sb.AppendLine(" : " + st.FrameCount.ToString()) sb.AppendLine(" ޼: " + st.GetFrame(0).GetMethod().Name) sb.AppendLine("ȣ ޼: " + st.GetFrame(1).GetMethod().Name) sb.AppendLine(" ޼: " + st.GetFrame(st.FrameCount - 1).GetMethod().Name) sb.AppendLine() sb.AppendLine("-- ȣ --") For Each sf As StackFrame In st.GetFrames() sb.AppendLine( " : " + sf.GetFileName() + " : " + sf.GetFileLineNumber().ToString() + " : " + sf.GetFileColumnNumber().ToString() + " : " + sf.GetILOffset().ToString() + " ޼: " + sf.GetMethod().Name) Next MsgBox(sb.ToString(), MsgBoxStyle.Critical, "File Open Error") End Try End Sub Private GroupList_Zone As ArrayList Private GroupList_nanbangkiki As ArrayList Private GroupList_NanbangKongkub As ArrayList Private GroupList_Kongjo As ArrayList Private GroupList_NanbangBunbae As ArrayList Private GroupList_Naengbankiki As ArrayList Private GroupList_New As ArrayList Private GroupList_Yk As ArrayList Private GroupList_Bunbae As ArrayList Private Sub Save_FilHistory(ByVal filename As String) Dim Path As String = filename.Substring(0, filename.LastIndexOf("\")) Dim Name As String = filename.Substring(filename.LastIndexOf("\")) Path = Path.ToUpper.Replace(My.Application.Info.DirectoryPath.ToUpper, ".\") Path = Path.Replace("\\", "\") Name = Name.Trim(CChar("\")) '// Ʈ ϴȮ Dim Exist As Boolean = False For i As Integer = 0 To 4 If PreFile(i).ToLower.Trim = filename.ToLower.Trim Then PreFile(i) = Path & "\" & Name Exist = True Exit For End If Next If Exist = False Then '//̷M 1 ֵ Ѵ. PreFile(4) = PreFile(3) PreFile(3) = PreFile(2) PreFile(2) = PreFile(1) PreFile(1) = PreFile(0) PreFile(0) = filename End If For i As Integer = 1 To 5 Setting.Data("presetting2", "filename" & i) = PreFile(i - 1) Next Read_FilHistory() '//Ŀ ٽ оѴ. End Sub ''' ''' ´. ''' ''' Private Sub Read_FilHistory() Dim listItem As RibbonListItem = New RibbonListItem(New RibbonLabel("ֱ ")) listItem.AllowSelection = False c1Ribbon1.ApplicationMenu.RightPaneItems.Clear() c1Ribbon1.ApplicationMenu.RightPaneItems.Add(listItem) c1Ribbon1.ApplicationMenu.RightPaneItems.Add(New RibbonListItem(New RibbonSeparator())) Dim Path As String Dim Name As String '// Ʈ ϴȮ Dim filelist As New List(Of String) For i As Integer = 1 To 10 Dim Filename As String = "" Filename = Setting.Read("presetting2", "filename" & i, "") Filename = Filename.Replace(".\", My.Application.Info.DirectoryPath & "\") PreFile(i - 1) = Filename Path = "" : Name = "" If Filename.Trim <> "" Then Path = Filename.Substring(0, Filename.LastIndexOf("\")) & "\" Path = Path.Replace("\\", "\") Name = Filename.Substring(Filename.LastIndexOf("\")) Name = Name.Trim(CChar("\")) End If If (String.IsNullOrEmpty(Name)) Then Continue For listItem = New RibbonListItem() listItem.AllowSelection = True If filelist.IndexOf(Path + Name) = -1 Then filelist.Add(Path + Name) Else Continue For End If Dim but As New RibbonButton(Name) but.Tag = Path + Name but.Enabled = True but.Visible = True but.SelectableInListItem = True but.ToolTip = Path + Name 'c1Ribbon1.ApplicationMenu.LeftPaneItems.Add(but) If but.Text.Length > 15 Then but.Text = but.Text.Substring(0, 15) + "..." End If AddHandler but.Click, AddressOf clickHistitem listItem.Items.Add(but) c1Ribbon1.ApplicationMenu.RightPaneItems.Add(listItem) Next End Sub Sub clickHistitem(sender As Object, e As System.EventArgs) Dim but As RibbonButton = sender Dim filename As String = but.Tag.ToString() If MsgBox(" ҷڽϱ?" + vbCrLf + filename, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "Ȯ") <> MsgBoxResult.Yes Then Return Func_Open_OD(filename) End Sub ''' ''' ޴ ܵ ȣϷ 켱 ִ ͸ Ϸּ menu ȣϴ ̸ ۵˴ϴ. ''' ''' Private Sub Func_Save_OD(ByVal FileName As String, Optional msg As Boolean = True) DSET1.AcceptChanges() DSETR1.AcceptChanges() '//  ø̸ ´ Dim Fs As New IO.FileStream(FileName, IO.FileMode.Create) Dim Bw As New IO.BinaryWriter(Fs, System.Text.Encoding.Default) Prj.SFType = "10" '// EcoODNew '//̺ϱȣ(2) Bw.Write(System.Text.Encoding.Default.GetBytes(Prj.SFType)) '// ReadMe.txt Dim UIVer() As Byte = System.Text.Encoding.Default.GetBytes("2017062000") Bw.Write(UIVer) Dim LGVer() As Byte = System.Text.Encoding.Default.GetBytes("2017062000") Bw.Write(LGVer) '//ø ̸ (100ѱ 50) Dim Name() As Byte = System.Text.Encoding.Default.GetBytes(Prj.Name) ReDim Preserve Name(99) Bw.Write(Name) '//ø (256 ѱ 128) Dim Desc() As Byte = System.Text.Encoding.Default.GetBytes(Prj.Desc) ReDim Preserve Desc(255) Bw.Write(Desc) '//ø ð Bw.Write(System.Text.Encoding.Default.GetBytes(Prj.MakeTime)) '//ø ð(׻ð Ѵ) Bw.Write(System.Text.Encoding.Default.GetBytes(CStr(Format(Now, "yyyy-MM-dd HH:mm:ss")))) 'Select Case Prj.SFType ' Case "01" '//ȣ 8Ʈ߰Ѵ. ' If Prj.Password.Length > 8 Then ' MsgBox("ȣDZ̰ 8 ʰմϴ" & vbCrLf & "ȣ ʽϴ", MsgBoxStyle.Information, "Ȯ") ' Prj.Password = "" ' End If ' Dim Pass() As Byte = System.Text.Encoding.Default.GetBytes(Prj.Password) ' ReDim Preserve Pass(7) ' Bw.Write(Pass) 'End Select '//1 ͼҽ մϴ. Dim Pos1 As Int64 = Bw.BaseStream.Position DSET1.WriteXml(Fs) Dim Pos1e As Int64 = Bw.BaseStream.Position Dim Dse1Len As Int64 = Pos1e - Pos1 '//ͼ Bw.BaseStream.Position = Pos1 '//óġ̵ Bw.Write(Dse1Len) '//ͼ± DSET1.WriteXml(Fs) '//ͼ´ٽ '// Ѵ(ExtReport) - 170414 Dim Pos2 As Int64 = Bw.BaseStream.Position DSETR1.ExtReport.WriteXml(Fs) Dim Pos2e As Int64 = Bw.BaseStream.Position Dim Dse2Len As Int64 = Pos2e - Pos2 '//ͼ Bw.BaseStream.Position = Pos2 '//óġ̵ Bw.Write(Dse2Len) '//ͼ± DSETR1.ExtReport.WriteXml(Fs) '//ͼ´ٽ ENDSTAT: '//߻ Ḧ б⹮ Bw.Flush() Bw.Close() Fs.Close() '//Ͽ Ҷ(̸) ̸ ٲǷ ش ̺Ʈ ȭ Ұſ~ 'Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1) 'Dim ȣȭ As Boolean = False 'If ȣȭ Then ' Dim Desbuf() As Byte = {} ' Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(Prj.FileName) ' Desbuf = DeCryptArea(Source, New Byte() {&HAC, &H29, &H55, &H42}) ' My.Computer.FileSystem.WriteAllBytes(Prj.FileName, Desbuf, False) 'End If If msg Then MsgBox(" Ǿϴ", MsgBoxStyle.Information, "Ȯ") End If 'Me.bt_desc.PerformClick() 'Bw.Write(CStr(Prj.UIVersion)) 'Bw.Write(CStr(Prj.LGVersino)) 'Bw.Write(CStr(IIf(Prj.Name = "", "Ʈ̸", Prj.Name))) 'Bw.Write(CStr(IIf(Prj.Desc = "", "Ʈ", Prj.Desc))) ''//ø ð 'Bw.Write(CStr(Format(Now, "yyyy-MM-dd HH:mm:ss"))) 'DSET.WriteXml(Fs) End Sub #Region "Show_Menu" Private Sub Menu_ȭ() If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If Show_Menu(1) End Sub #End Region Private Sub Read_SEtting() Work_msg(" Ȯϴ") 'Ʈ Prj.MaxUI = "20091231" Prj.MaxLG = "20091231" Prj.Admin = True Prj.Password = "" '//ȣ ⺻Ǿ Try For Each A As Net.NetworkInformation.NetworkInterface In ArinNet.MyNet.GetMacArray If A.NetworkInterfaceType <> Net.NetworkInformation.NetworkInterfaceType.Loopback Then Prj.CUrMac = A.GetPhysicalAddress.ToString End If Next Dim ipentry As Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName) For Each C As Net.IPAddress In ipentry.AddressList If C.ToString.Length <= 15 AndAlso C.ToString.Length > 4 Then Prj.CUrIP = C.ToString Exit For End If Next Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Error - Network") End Try '//͵丮 ȮѴ ̰ ͺ̽ Ÿ ϰѴ '//̴ ͳݼġǰ ⋚̴ Work_msg(" Ȯմϴ") Try If DataDir.Exists = False Then DataDir.Create() '//ٸ If TemplateDir.Exists = False Then TemplateDir.Create() 'If System.IO.File.Exists(My.Application.Info.DirectoryPath & "\template\sample.tpl") = True Then ' My.Computer.FileSystem.CopyFile(My.Application.Info.DirectoryPath & "\template\sample.tpl", TemplateDir.FullName & "\sample.tpl", True) 'End If End If Work_msg("⺻ մϴ") Setting = New arUtil.Setting() ' CEnergy.MyINI(DataDir.FullName & "\arinwaret4.ini") Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Error - Setting") End Try Work_msg("") Me.Activate() End Sub Private Sub Read_PreFile(ByVal i As Short) 'If Prj.LoginTime = "" Then ' MsgBox(" α ϼ", MsgBoxStyle.Information, "Ȯ") ' Return 'End If If PreFile(i).Trim <> "" Then If MsgBox(PreFile(i) & " ҷðڽϱ?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "ҷ") <> MsgBoxResult.Ok Then Return Dim Filename As String = PreFile(i) If System.IO.File.Exists(Filename) = True Then Me.Func_Open_OD(Filename) Else MsgBox("ش ʽϴ." + vbCrLf + PreFile(i), MsgBoxStyle.Critical, "Ȯ") End If End If End Sub #Region "Top Menu" Private Sub Menu_Open() '.Filter = "ø(*.ecl;*.ecl2)|*.ecl;*.ecl2|(*.*)|*.*", 'Od.InitialDirectory = TemplteDir.FullName Dim Od As New OpenFileDialog With { .FileName = Prj.FileName, .Filter = "ø(*." + FileExt + ")|*." + FileExt + "|(*.*)|*.*", .FilterIndex = 0 } If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return Func_Open_OD(Od.FileName) End Sub Private Sub Menu_New() 'ϴ if If MsgBox(" ۼϽðڽϱ?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return '//ok ϸ Dim new_string As String = "" new_string = "\basefile\new." + FileExt '// Dim Srcfile As New System.IO.FileInfo(My.Application.Info.DirectoryPath & new_string) If Srcfile.Exists = False Then MsgBox("(" + new_string + ") ʽϴ", MsgBoxStyle.Critical, "Ȯ") Return End If Dim SD As New SaveFileDialog With { .FileName = "new" & Format(Now, "mmdd") & "." + FileExt, .Filter = "(*." + FileExt + ")|*." + FileExt } '// ϸ Է¾ϸ If SD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//ؼ ֱ If System.IO.File.Exists(SD.FileName) Then System.IO.File.Delete(SD.FileName) Srcfile.CopyTo(SD.FileName) Me.Func_Open_OD(SD.FileName, True) End Sub #End Region '''翭ִ ޴ ݽϴ. Private Sub Close_menu() If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If If Me.OpenedForm <> E_MenuIdx.NONE Then MsgBox("翭ִ :" + Me.OpenedForm.ToString()) End If End Sub '''޴εشϴ ȯմϴ. Private Function GetFormfromMenuIDX(nidx As E_MenuIdx) As CForm Dim f As CForm Select Case nidx Case E_MenuIdx.Form1 f = Frm_1_Basic Case E_MenuIdx.Form2 f = Frm_2_Build Case E_MenuIdx.Form3 f = Frm_3_Mach Case E_MenuIdx.Form5 f = Frm_5_New Case Else f = Nothing End Select Return f End Function Private Function GetMenuIDX(tagstring As String) As E_MenuIdx Dim v As Array = [Enum].GetValues(GetType(E_MenuIdx)) For i As Integer = 0 To v.Length - 1 Dim val As Integer = v(i) Dim str As String = [Enum].GetName(GetType(E_MenuIdx), val) If str = tagstring Then Return val End If Next Return E_MenuIdx.NONE End Function Dim CurFormName As String = "Nothing" '//2011.06.03 ű߰ Public Sub Func_Calc_OD() If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If DSET1.AcceptChanges() DSETR1.AcceptChanges() If DSET1.tbl_Desc.Rows.Count < 1 Then MsgBox("Ϲݻ Էµ ʾҽϴ", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ") Return End If Dim drArea As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0) If drArea.IsbuildareaNull() OrElse drArea.buildarea = "0" Then MsgBox(" Էµ ʾҽϴ", MsgBoxStyle.Critical, "Ȯ") Return End If '// If DSET1.tbl_type.Select("code <> '0'").Length < 1 Then MsgBox("䰡 Էµ ʾҽϴ", MsgBoxStyle.Critical, "Ȯ") Return End If If DSET1.tbl_yk.Select("code <> '0'").Length < 1 Then MsgBox(" Էµ ʾҽϴ", MsgBoxStyle.Critical, "Ȯ") Return End If If DSET1.tbl_myoun.Select("code <> '0'").Length < 1 Then MsgBox("Է¸ Էµ ʾҽϴ", MsgBoxStyle.Critical, "Ȯ") Return End If If DSET1.tbl_nanbangkiki.Select("code <> '0'").Length + DSET1.tbl_nangbangkiki.Select("code <> '0'").Length < 1 Then MsgBox("ó Էµ ʾҽϴ", MsgBoxStyle.Critical, "Ȯ") Return End If '//ⵥͰ˻ 170628 0005 For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'") If dr. = "Ʈ" Then Dim ݺϷCOP As String = dr.ݺϷCOP If ݺϷCOP = "" Then ݺϷCOP = "0" Dim fcop As Decimal = TOSG(ݺϷCOP) If fcop <= 0 Then MsgBox("Ʈ Էµ ʾҽϴ", MsgBoxStyle.Critical, "Ȯ") Return End If Else 'ݺϷȿ Dim ݺϷȿ As String = dr.ݺϷȿ If ݺϷȿ = "" Then ݺϷȿ = "0" Dim fcop As Decimal = TOSG(ݺϷȿ) If fcop <= 0 AndAlso dr. <> "" Then MsgBox(dr. + " ȿ Էµ ʾҽϴ", MsgBoxStyle.Critical, "Ȯ") Return End If End If Next 'If Frm_Calc.ShowDialog <> Windows.Forms.DialogResult.OK Then Return Dim Type As CalculatorOD.ECalc = CalculatorOD.ECalc.All If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return Work_msg("غ...") Frm_Work.ProgressBar1.Visible = True Frm_Work.ProgressBar1.Maximum = 12 Frm_Work.ProgressBar1.Minimum = 0 Frm_Work.ProgressBar1.Value = 0 'Frm_Work.TopMost = True Frm_Work.Show() CalcO = New CalculatorOD(Prj.LGVersino) '//Ŭ ʱȭ Dim St As Date = Now '// Dim calcOK As Boolean = False Try calcOK = CalcO.Start(Type, Log) Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Error") Log.AppendLine(ex.Message + ex.StackTrace) calcOK = False End Try If calcOK Then '//Ķ True ҿ䷮ ߰ Իȴ. CalcO.Summary.All() Else Frm_Work.Dispose() MsgBox(" Ϸ ʾҽϴ", MsgBoxStyle.Information, "Ȯ") If Log.ToString <> "" Then Dim fn As String = AppDomain.CurrentDomain.BaseDirectory + "\\Error.txt" My.Computer.FileSystem.WriteAllText(fn, Log.ToString, False) Shell("notepad " + fn, AppWinStyle.NormalFocus) End If Return '/Ϲؼ ؿ ʽϴ. End If Dim Et As Date = Now '//Ի Frm_Work.Dispose() If Log.ToString <> "" Then '//̰ ߻ α׸ ϰѰǵ..۵Ѱź 򰡿 ճ׿. ׸߿Ѱ ƴ. Dim fn As String = AppDomain.CurrentDomain.BaseDirectory + "\\Error.txt" My.Computer.FileSystem.WriteAllText(fn, Log.ToString, False) Shell("notepad " + fn, AppWinStyle.NormalFocus) Else Func_Calc_OD_ExtReport() Frm_v20091231_Report.Visible = False Frm_v20091231_Report.Show() Frm_v20091231_Report.Visible = False 'MsgBox("Ϸ" & vbCrLf & CType(Et - St, System.TimeSpan).ToString, MsgBoxStyle.Information, "ð") Frm_v20091231_Report.Visible = True End If End Sub ''' ''' 17-05-14 ҿ䷮ 򰡼 ''' ''' Public Sub Func_Calc_OD_ExtReport() Dim IDX As Integer = 0 Dim Total2 As Double = 0.0 Dim Total1 As Double = 0.0 For Each Dr0 As DS.tbl_typeRow In DSET1.tbl_type.Rows Dim multi As Double = 1.0 Select Case Dr0.ü뵵 Case "0011" 'ü(߰)" multi = 1.12 Case "0012" 'ü(etc) multi = 0.98 End Select Total1 += Dr0. * multi Total2 += Dr0. Next Dim addmulti As Double = 0 If Total2 <> 0 Then addmulti = Total1 / Total2 Else addmulti = 1.0 End If DSETR1.ExtReport.Clear() Dim NewDR As DSR.ExtReportRow = DSETR1.ExtReport.NewExtReportRow '//c001 = . => 2. - ְŸ Dim P(100) As String For i As Integer = 0 To P.GetUpperBound(0) P(i) = "" Next Dim _C001 As Single = 0 For Each dr As DS.tbl_typeRow In DSET1.tbl_type.Rows If Not dr.IsNull Then _C001 += dr. Next P(0) = _C001.ToString("N2") + "()" '//C002 = = 2.- '//C003 = = 2.- '//c004 = '//c005 = õ '//c006 = '//c007 = Dim _C002 As Single = 0 Dim _C003 As Single = 0 'Dim C004 As String = "" 'Dim C005 As String = "" 'Dim C006 As String = "" 'Dim C007 As String = "" If DSET1.tbl_Desc.Rows.Count > 0 Then Dim drDesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0) If IsNumeric(drDesc.buildm23) Then _C002 = TOSG(T, drDesc.buildm23) If IsNumeric(drDesc.buildm21) Then _C003 = TOSG(T, drDesc.buildm21) If Not drDesc.IsNull() Then P(3) = drDesc. + "(m)" If Not drDesc.IsõNull() Then P(4) = drDesc.õ + "(m)" If Not drDesc.Isbuilds2Null() Then P(5) = drDesc.builds2 + "" If Not drDesc.Isbuilds1Null() Then P(6) = drDesc.builds1 + "" End If P(1) = _C002.ToString("N2") + "()" P(2) = _C003.ToString("N2") + "()" '//C008 ~ C0015 ( Է¸ ) 'Dim C008, C009, C010, C011, C012, C013, C014, C015 As String 'C008 = "" 'C009 = "" 'C010 = "" 'C011 = "" 'C012 = "" 'C013 = "" 'C014 = "" 'C015 = "" Dim ü As Single = 0 Dim â As Single = 0 Dim ظ As Single = 0 Dim ٴڸ As Single = 0 Dim ü As Single = 0 Dim â As Single = 0 Dim ؿ As Single = 0 Dim ٴڿ As Single = 0 For Each dr As DS.tbl_myounRow In DSET1.tbl_myoun.Select("code <> '0' and isnull(2,'') <> ''") Dim ڵ As String = dr.2 For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code='" + ڵ + "'") Select Case CInt(dr.) Case 0 '//ܺ,ü ü += TOSG(T, dr.) ü += TOSG(T, dr.) * TOSG(T, dr.) Case 3 '//,ü ü += TOSG(T, dr.) ü += TOSG(T, dr.) * TOSG(T, dr.) * 0.7 Case 1 '//ܺ, ظ += TOSG(T, dr.) ؿ += TOSG(T, dr.) * TOSG(T, dr.) Case 4 '//, ظ += TOSG(T, dr.) ؿ += TOSG(T, dr.) * TOSG(T, dr.) * 0.7 Case 2 '//ܺ,ٴ ٴڸ += TOSG(T, dr.) ٴڿ += TOSG(T, dr.) * TOSG(T, dr.) Case 5 '//,ٴ ٴڸ += TOSG(T, dr.) ٴڿ += TOSG(T, dr.) * TOSG(T, dr.) * 0.7 Case 7, 10, 12 '//ܺâ â += TOSG(T, dr.) â += TOSG(T, dr.) * TOSG(T, dr.) Case 8, 11, 13 '//â â += TOSG(T, dr.) â += TOSG(T, dr.) * TOSG(T, dr.) * 0.8 End Select Next Next P(7) = ü.ToString("N2") P(8) = â.ToString("N2") P(9) = ظ.ToString("N2") P(10) = ٴڸ.ToString("N2") If ü > 0 Then P(11) = (ü / ü).ToString("N3") End If If â > 0 Then P(12) = (â / â).ToString("N3") End If If ظ > 0 Then P(13) = (ؿ / ظ).ToString("N3") End If If ٴڸ > 0 Then P(14) = (ٴڿ / ٴڸ).ToString("N3") End If '// - Dim _MAX_뷮 As Single = 0 Dim _MAX_Ī As String = "" Dim _MAX_ As String = "" Dim _MAX_ As String = "" Dim _SUM_뷮 As Single = 0 Dim _뷮ȿ As Single = 0 Dim _뷮COP As Single = 0 Dim _뷮ȿ_MAX_뷮 As String = 0 Dim _SUM_ As Single = 0 Dim _SUM__뷮 As Single = 0 Dim _SUM_ü_뷮 As Single = 0 Dim _MAX_뷮 As Single = 0 Dim _MAX_Ī As String = "" Dim _MAX_ As String = "" Dim _MAX_ As String = "" Dim _SUM_뷮 As Single = 0 Dim _뷮ȿ As Single = 0 Dim _뷮COP As Single = 0 Dim _뷮ȿ_MAX_뷮 As String = 0 Dim _SUM_ As Single = 0 Dim _SUM__뷮 As Single = 0 Dim _SUM_ü_뷮 As Single = 0 For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'") _SUM_ü_뷮 += TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) _SUM_ü_뷮 += TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) '//Ϸ,,⺸Ϸ,Ʈ Dim 뷮 As Single = 0 Dim 뷮 As Single = 0 If dr. = "" Then _SUM_뷮 += TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) _SUM_ += TOSG(T, dr.) 뷮 = TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) If 뷮 > _MAX_뷮 Then _MAX_뷮 = 뷮 _MAX_Ī = dr. _MAX_ = dr. _MAX_ = dr.뿬 End If Select Case dr. Case "Ʈ" If dr.뿬 = "" Then _SUM__뷮 += 뷮 End If If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮COP = dr.ݺϷCOP End If Case "" If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮ȿ = dr.ݺϷȿ End If Case "⺸Ϸ" If dr.뿬 = "" Then _SUM__뷮 += 뷮 End If If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮ȿ = dr.ݺϷȿ End If Case "Ϸ" If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮COP = dr.ݺϷCOP End If End Select ElseIf dr. = "" Then _SUM_뷮 += TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) _SUM_ += TOSG(T, dr.) 뷮 = TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) If 뷮 > _MAX_뷮 Then _MAX_뷮 = 뷮 _MAX_Ī = dr. _MAX_ = dr. _MAX_ = dr.뿬 End If Select Case dr. Case "Ʈ" If dr.뿬 = "" Then _SUM__뷮 += 뷮 End If If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮COP = dr.ݺϷCOP End If Case "" If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮ȿ = dr.ݺϷȿ End If Case "⺸Ϸ" If dr.뿬 = "" Then _SUM__뷮 += 뷮 End If If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮ȿ = dr.ݺϷȿ End If Case "Ϸ" If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮ȿ = dr.ݺϷȿ End If End Select ElseIf dr. = "" Then _SUM_뷮 += TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) _SUM_ += TOSG(T, dr.) 뷮 = TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) _SUM_뷮 += TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) _SUM_ += TOSG(T, dr.) 뷮 = TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) If 뷮 > _MAX_뷮 Then _MAX_뷮 = 뷮 _MAX_Ī = dr. _MAX_ = dr. _MAX_ = dr.뿬 End If If 뷮 > _MAX_뷮 Then _MAX_뷮 = 뷮 _MAX_Ī = dr. _MAX_ = dr. _MAX_ = dr.뿬 End If Select Case dr. Case "Ʈ" If dr.뿬 = "" Then _SUM__뷮 += 뷮 _SUM__뷮 += 뷮 End If If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮COP = dr.ݺϷCOP End If If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮COP = dr.ݺϷCOP End If Case "" If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮ȿ = dr.ݺϷȿ End If If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮ȿ = dr.ݺϷȿ End If Case "⺸Ϸ" If dr.뿬 = "" Then _SUM__뷮 += 뷮 _SUM__뷮 += 뷮 End If If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮ȿ = dr.ݺϷȿ End If If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮ȿ = dr.ݺϷȿ End If Case "Ϸ" If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮ȿ = dr.ݺϷȿ End If If 뷮 > _뷮ȿ_MAX_뷮 Then _뷮ȿ_MAX_뷮 = 뷮 _뷮ȿ = dr.ݺϷȿ End If End Select End If Next P(82) = _MAX_Ī P(15) = _SUM_뷮.ToString("N2") + "()" If _MAX_ = "Ʈ" Then '//Ͽ ã Dim SUM__ As Double = 0 Dim SUM__и As Double = 0 For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and ='" + _MAX_ + "' and 뿬='" + _MAX_ + "'") SUM__ += dr.ݺϷCOP * TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) SUM__и += TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) Next If SUM__и <= 0 Then P(16) = "(COP)" Else P(16) = (SUM__ / SUM__и).ToString("N2") + "(COP)" ' _뷮COP.ToString("N2") + "(COP)" End If Else '//Ͽ ã Dim SUM__ As Double = 0 Dim SUM__и As Double = 0 For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and ='" + _MAX_ + "' and 뿬='" + _MAX_ + "'") SUM__ += dr.ݺϷȿ * TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) SUM__и += TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) Next If SUM__и <= 0 Then P(16) = "(%)" Else P(16) = (SUM__ / SUM__и).ToString("N2") + "(%)" 'P(16) = _뷮ȿ.ToString("N2") + "(%)" End If End If 'P(17) = "" '//?? P(17) = _SUM_.ToString("N2") + "()" P(18) = ((_SUM__뷮 / _SUM_뷮) * 100).ToString("N2") + "(%)" P(83) = _MAX_Ī P(20) = _SUM_뷮.ToString("N2") + "()" If _MAX_ = "Ʈ" Then '//Ͽ ã Dim SUM__ As Double = 0 Dim SUM__и As Double = 0 For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and ='" + _MAX_ + "' and 뿬='" + _MAX_ + "'") SUM__ += dr.ݺϷCOP * TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) SUM__и += TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) Next If SUM__и <= 0 Then P(22) = "(COP)" Else P(22) = (SUM__ / SUM__и).ToString("N2") + "(COP)" 'P(22) = _뷮COP.ToString("N2") + "(COP)" End If Else '//Ͽ ã '//Ͽ ã Dim SUM__ As Double = 0 Dim SUM__и As Double = 0 For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and ='" + _MAX_ + "' and 뿬='" + _MAX_ + "'") SUM__ += dr.ݺϷȿ * TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) SUM__и += TOSG(T, dr.Ϸ) * TOSG(T, dr.Ϸ) Next If SUM__и <= 0 Then P(22) = "(%)" Else P(22) = (SUM__ / SUM__и).ToString("N2") + "(%)" 'P(22) = _뷮ȿ.ToString("N2") + "(%)"" End If End If P(23) = "" '//?? P(24) = _SUM_.ToString("N2") + "()" P(25) = ((_SUM__뷮 / _SUM_뷮) * 100).ToString("N2") + "(%)" '//ù漳 Dim ù_MAX_뷮չ As String = "" Dim ù_MAX_뷮 As Single = 0 Dim ù_MAX_ As String = 0 Dim ù_SUM_뷮 As Single = 0 Dim ù_뷮_ɺ As String = "" Dim ù_SUM_ü As Single = 0 Dim ù_SUM_ð As Single = 0 Dim ù_SUM_ As Single = 0 Dim ù_SUM_õ As Single = 0 For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'") Dim 뷮 As Single = TOSG(dr.õ뷮) * TOSG(dr.) If 뷮 > ù_MAX_뷮 Then ù_MAX_뷮 = 뷮 ù_MAX_뷮չ = dr.õ ù_MAX_ = dr.뿬 End If ù_SUM_뷮 += 뷮 'TOSG(T, dr.õ뷮) ù_뷮_ɺ = dr.ɺ '// ù_SUM_ü += TOSG(T, dr.ü) ù_SUM_ð += TOSG(T, dr.ð) If dr.õ = "" Then ù_SUM_ += 뷮 End If ù_SUM_õ += 뷮 Next P(84) = ù_MAX_뷮չ P(26) = ù_SUM_뷮.ToString("N2") + "()" Dim ù_뷮_ As Double = 0 Dim ù_뷮_и As Double = 0 For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0' and õ='" + ù_MAX_뷮չ + "' and 뿬='" + ù_MAX_ + "'") ù_뷮_ += TOSG(dr.ɺ) * TOSG(dr.õ뷮) * TOSG(dr.) ù_뷮_и += TOSG(dr.õ뷮) * TOSG(dr.) Next If (ù_뷮_ < 0) Then P(27) = "(COP)" Else P(27) = (ù_뷮_ / ù_뷮_и).ToString("N2") + "(COP)" ' ù_뷮_ɺ + "(COP)" End If P(28) = "" '//?? P(29) = ù_SUM_ü.ToString("N2") + "()" P(30) = ù_SUM_ð.ToString("N2") + "()" P(31) = ((ù_SUM_ / ù_SUM_õ) * 100).ToString("N2") + "(%)" '// Dim _MAX_ޱdz As Single = 0 Dim _MAX_ޱdz As String = "" Dim _SUM_ޱdz As Single = 0 Dim _SUM_dz As Single = 0 Dim _뷮ȿ_ޱ As Single = 0 Dim _뷮ȿ_ As Single = 0 Dim _SUM_ޱҵ As Single = 0 Dim _SUM_ҵ As Single = 0 Dim _ȸ_ As Single = 0 Dim _ȸ_ù As Single = 0 'ޱ : ޱҵ 0 ƴҶ (ޱdz*ޱ/9.8) / (ޱҵ*102*3600) ȿ Ͽ ޱdzհ ' : ҵ 0 ƴҶ (dz*/9.8) / (ҵ*102*3600) ȿ Ͽ dzհ" Dim K1 As Single = 0 Dim K2 As Single = 0 Dim N1 As Single = 0 Dim N2 As Single = 0 Dim Sum_ޱdz As Single = 0 Dim Sum_dz As Single = 0 Dim Sum_ȸ As Single = 0 Dim Sum_ùȸ As Single = 0 For Each dr As DS.tbl_kongjoRow In DSET1.tbl_kongjo.Select("code <> '0'") Dim ޱdz As Single = TOSG(T, dr.ޱdz) * TOSG(T, dr.) Dim ޱ As Single = TOSG(T, dr.Ѿз¼սDZޱ) Dim ޱҵ As Single = TOSG(T, dr.ޱҵ) * TOSG(T, dr.) Dim dz As Single = TOSG(T, dr.dz) * TOSG(T, dr.) Dim As Single = TOSG(T, dr.Ѿз¼սǹ) Dim ҵ As Single = TOSG(T, dr.ҵ) * TOSG(T, dr.) Dim ȸ As Single = TOSG(T, dr.ȸ) Dim ùȸ As Single = TOSG(T, dr.ȸ_ù) '//ȯ ° ȸ ʱȭ If dr.ȯ = "0" OrElse dr.ȯ = "ȸҰ" Then ȸ = 0 ùȸ = 0 End If N1 += ȸ * ޱdz N2 += ùȸ * ޱdz If ޱҵ > 0 Then K1 += ((ޱdz * ޱ / 9.8) / (ޱҵ * 102 * 3600)) * ޱdz End If If ҵ > 0 Then K2 += ((dz * / 9.8) / (ҵ * 102 * 3600)) * dz End If If ޱdz > _MAX_ޱdz Then _MAX_ޱdz = ޱdz _MAX_ޱdz = dr. End If _SUM_ޱdz += TOSG(T, dr.ޱdz) * TOSG(T, dr.) _SUM_dz += TOSG(T, dr.dz) * TOSG(T, dr.) _SUM_ޱҵ += TOSG(T, dr.ޱҵ) * TOSG(T, dr.) _SUM_ҵ += TOSG(T, dr.ҵ) * TOSG(T, dr.) If dr.ȯ <> "0" OrElse dr.ȯ <> "ȸҰ" Then Sum_ޱdz += ޱdz Sum_dz += dz Sum_ȸ += ȸ Sum_ùȸ += ùȸ End If Next If Sum_ޱdz > 0 Then _뷮ȿ_ޱ = ((K1 / Sum_ޱdz) * 100).ToString("N2") If Sum_dz > 0 Then _뷮ȿ_ = ((K2 / Sum_dz) * 100).ToString("N2") If Sum_ȸ > 0 Then _ȸ_ = (N1 / Sum_ޱdz).ToString("N2") '//170827 *100 If Sum_ùȸ > 0 Then _ȸ_ù = (N2 / Sum_ޱdz).ToString("N2") P(85) = _MAX_ޱdz P(32) = "ޱ:" & _SUM_ޱdz.ToString("N0") & "(CMH)" & vbCrLf & _ ":" & _SUM_dz.ToString("N0") & "(CMH)" P(33) = "" P(34) = "ޱ:" & _뷮ȿ_ޱ.ToString("N2") & "(%)" & vbCrLf & _ ":" & _뷮ȿ_.ToString("N2") & "(%)" P(35) = "" P(36) = "ޱ:" & _SUM_ޱҵ.ToString("N2") & "()" & vbCrLf & _ ":" & _SUM_ҵ.ToString("N2") & "()" P(37) = "" 'P(36) = _SUM_ޱҵ.ToString("N2") 'P(37) = _SUM_ҵ.ToString("N2") P(38) = ":" & _ȸ_.ToString("N2") & "(%)" & vbCrLf & _ "ù:" & _ȸ_ù.ToString("N2") & "(%)" P(39) = "" '// Dim _MAX_ As String = "" Dim _MAX_´ As Single = 0 Dim _SUM_´ As Single = 0 Dim _SUM_LED´ As Single = 0 Dim _SUM_ As Single = 0 Dim _SUM_ As Single = 0 Dim _SUM_LED As Single = 0 Dim _SUM_ As Single = 0 For Each dr As DS.tbl_typeRow In DSET1.tbl_type.Select("code<>'0'", "code") _SUM_ += TOSG(T, dr.) Next For Each dr As DS.tbl_lightRow In DSET1.tbl_light.Select("code <> '0'") _SUM_ += TOSG(T, dr.) Dim ´ As Single = TOSG(T, dr.) * TOSG(T, dr.) _SUM_´ += ´ If dr. = "LED" Then _SUM_LED´ += ´ _SUM_LED += TOSG(T, dr.) End If _SUM_ += TOSG(T, dr.) If ´ > _MAX_´ Then _MAX_´ = ´ _MAX_ = dr. End If ' _SUM_ += TOSG(T, dr.) Next P(40) = _MAX_ P(41) = (_SUM_LED´ / 1000).ToString("N2") + "()" P(42) = (_SUM_´ / 1000).ToString("N2") + "()" P(43) = _SUM_.ToString("N2") + "()" P(44) = (_SUM_´ / _SUM_).ToString("N2") + "(W/)" '// Dim ¾翭_MAX__ As String = "" Dim ¾翭_MAX__DZ As String = "" Dim ¾翭_MAX__ As String = "" Dim ¾翭_MAX__ȿ As String = "" Dim ¾翭_MAX_ As Single = 0 Dim ¾翭_SUM_ As Single = 0 Dim Grp_E As New Dictionary(Of String, Single) '//group sum For Each dr As DS.tbl_new_energyRow In DSET1.tbl_new_energy.Select("code <> '0'") If Grp_E.ContainsKey(dr.) Then Dim oldValue As Single = Grp_E.Item(dr.) Grp_E.Item(dr.) = oldValue + TOSG(T, dr.Ǹ) Else Grp_E.Add(dr., TOSG(T, dr.Ǹ)) End If Next For Each dr As System.Collections.Generic.KeyValuePair(Of String, Single) In Grp_E ¾翭_SUM_ += TOSG(T, dr.Value) If dr.Value > ¾翭_MAX_ Then ¾翭_MAX_ = dr.Value ¾翭_MAX__ = dr.Key End If Next If Not String.IsNullOrEmpty(¾翭_MAX__) Then Dim dr As DS.tbl_new_energyRow = DSET1.tbl_new_energy.Select(" = '" + ¾翭_MAX__ + "'")(0) ¾翭_MAX__DZ = "45" ' dr.DZ ¾翭_MAX__ = dr.ǹ ¾翭_MAX__ȿ = dr.ȿ End If If Not String.IsNullOrEmpty(¾翭_MAX__) Then P(45) = ¾翭_MAX__ P(46) = ¾翭_SUM_.ToString("N2") + "()" P(47) = ¾翭_MAX__DZ P(48) = ¾翭_MAX__ If (¾翭_MAX__ = "ġԷ") Then P(49) = ¾翭_MAX__ȿ + "(%)" End If Dim ¾籤_MAX__ As String = "" Dim ¾籤_MAX__ As String = "" Dim ¾籤_MAX__ As String = "" Dim ¾籤_MAX__ȿ As String = "" Dim ¾籤_MAX_ As Single = 0 Dim ¾籤_SUM_ As Single = 0 '//group sum Dim Grp_L As New Dictionary(Of String, Single) For Each dr As DS.tbl_new_lightRow In DSET1.tbl_new_light.Select("code <> '0'") If Grp_L.ContainsKey(dr.¾籤) Then Dim oldValue As Single = Grp_L.Item(dr.¾籤) Grp_L.Item(dr.¾籤) = oldValue + TOSG(T, dr.¾籤) Else Grp_L.Add(dr.¾籤, TOSG(T, dr.¾籤)) End If Next For Each dr As System.Collections.Generic.KeyValuePair(Of String, Single) In Grp_L ¾籤_SUM_ += TOSG(T, dr.Value) If TOSG(T, dr.Value) > ¾籤_MAX_ Then ¾籤_MAX_ = TOSG(T, dr.Value) ¾籤_MAX__ = dr.Key End If Next If Not String.IsNullOrEmpty(¾籤_MAX__) Then Dim dr As DS.tbl_new_lightRow = DSET1.tbl_new_light.Select("¾籤 = '" + ¾籤_MAX__ + "'")(0) ¾籤_MAX__ = dr.¾籤 ¾籤_MAX__ = dr.¾籤 ¾籤_MAX__ȿ = dr.¾籤ȿ End If If Not String.IsNullOrEmpty(¾籤_MAX__) Then P(50) = ¾籤_MAX__ P(51) = ¾籤_SUM_.ToString("N2") + "()" P(52) = ¾籤_MAX__ P(53) = ¾籤_MAX__ If (¾籤_MAX__ = "ġԷ") Then P(54) = (¾籤_MAX__ȿ) + "(%)" End If Dim _SUM_Ʈ As String = "" Dim _SUM_Ʈ As String = "" Dim _MAX_ As String = "" Dim _뷮 As Single = 0 Dim _ȿ As Single = 0 '// Dim _ù뷮 As Single = 0 Dim _ùȿ As Single = 0 '// Dim _뷮 As Single = 0 Dim _ȿ As Single = 0 '// Dim _ȯ As Single = 0 Dim _SUM_Ʈ뷮 As Single = 0 If DSET1.tbl_new_ground.Select("code <> '0'").Length > 0 Then For Each dr As DS.tbl_new_groundRow In DSET1.tbl_new_ground.Select("code <> '0'") If dr. = "" OrElse dr. = "õ" OrElse dr. = "ȭ" Then _SUM_Ʈ += dr.Ʈ뷮 Else _SUM_Ʈ += dr.Ʈ뷮 End If Next If _SUM_Ʈ > _SUM_Ʈ Then _MAX_ = "Ʈ" ElseIf _SUM_Ʈ = _SUM_Ʈ Then Dim dr As DS.tbl_new_groundRow = DSET1.tbl_new_ground.Select("code <> '0'", "Ʈ뷮 desc")(0) If dr. = "" Then _MAX_ = "Ʈ" Else _MAX_ = "Ʈ" End If Else _MAX_ = "Ʈ" End If For Each dr As DS.tbl_new_groundRow In DSET1.tbl_new_ground.Select("code <> '0'") _SUM_Ʈ뷮 += TOSG(T, dr.Ʈ뷮) If dr.ó汸 = "" Then _뷮 += TOSG(T, dr.Ʈ뷮) _ȿ += TOSG(T, dr.Ʈ뷮) * TOSG(T, dr.ɺ񳭹) End If If dr.ó汸 = "" Then _뷮 += TOSG(T, dr.Ʈ뷮) _ȿ += TOSG(T, dr.Ʈ뷮) * TOSG(T, dr.ɺ񳭹) End If If dr.ó汸 = "" Then _뷮 += TOSG(T, dr.Ʈ뷮) _뷮 += TOSG(T, dr.Ʈ뷮) _ȿ += TOSG(T, dr.Ʈ뷮) * TOSG(T, dr.ɺ񳭹) _ȿ += TOSG(T, dr.Ʈ뷮) * TOSG(T, dr.ɺ񳭹) End If If dr.ó汸 = "ù" Then _ù뷮 += TOSG(T, dr.Ʈ뷮) _ùȿ += TOSG(T, dr.Ʈ뷮) * TOSG(T, dr.ɺù) End If _ȯ += TOSG(T, dr.뷮1) Next End If If Not String.IsNullOrEmpty(_MAX_) Then P(55) = _MAX_ If (_뷮 > 0) Then P(56) = _뷮.ToString("N2") + "(kW)" + vbCrLf + _ (_ȿ / _SUM_Ʈ뷮).ToString("N2") + "(COP)" End If If (_ù뷮 > 0) Then P(57) = _ù뷮.ToString("N2") + "(kW)" + vbCrLf + _ (_ùȿ / _SUM_Ʈ뷮).ToString("N2") + "(COP)" End If If (_뷮 > 0) Then P(58) = _뷮.ToString("N2") + "(kW)" + vbCrLf + _ (_ȿ / _SUM_Ʈ뷮).ToString("N2") + "(COP)" End If If (_ȯ > 0) Then P(59) = _ȯ.ToString("N0") + "(W)" End If End If '// 䱸, ҿ䷮, 1ҿ䷮ '//,,ù,,ȯ,հ '//65,66,67 '//68,69,70 IDX = 60 Dim r As Decimal Dim r濡 As Decimal Dim rù濡 As Decimal Dim r As Decimal Dim r As Decimal Dim rȯ⿡ As Decimal Dim rհ As Decimal Dim Dr2 As DSR.Graph_ReqUseRow For Gubun As Short = 0 To 2 Select Case Gubun Case 2 '//䱸 r = 0 r濡 = Result1o.E䱸(0). * addmulti r = Result1o.E䱸(0). * addmulti rù濡 = Result1o.E䱸(0).ù * addmulti r = Result1o.E䱸(0). * addmulti rȯ⿡ = 0 * addmulti rհ = r濡 + rù濡 + r + r If r濡 = 0 Then P(64) = "" Else P(64) = r濡.ToString("N1") End If If rù濡 = 0 Then P(65) = "" Else P(65) = rù濡.ToString("N1") End If If r = 0 Then P(66) = "" Else P(66) = r.ToString("N1") End If If r = 0 Then P(67) = "" Else P(67) = r.ToString("N1") End If If rȯ⿡ = 0 Then P(68) = "" Else P(68) = rȯ⿡.ToString("N1") End If P(69) = rհ.ToString("N1") Case 1 '//ҿ䷮ Dim Sum As Decimal = Result1o.E(0).¾籤»귮 / (Result1o.Eҿ䷮(0). + Result1o.Eҿ䷮(0).ù + Result1o.Eҿ䷮(0). + Result1o.Eҿ䷮(0). + Result1o.Eҿ䷮(0).ȯ) Dim As Decimal = Sum * Result1o.Eҿ䷮(0). '//ƸԻ̾ȵ Ⱚ 0ſ. Dim ù As Decimal = Sum * Result1o.Eҿ䷮(0).ù Dim As Decimal = Sum * Result1o.Eҿ䷮(0). Dim As Decimal = Sum * Result1o.Eҿ䷮(0). Dim ȯ As Decimal = Sum * Result1o.Eҿ䷮(0).ȯ Dim As Decimal = 0 Dim ù As Decimal = 0 Dim As Decimal = 0 Dim As Decimal = 0 Dim ȯ As Decimal = 0 If Result1o..H <> 0 Then = TOSG(T, IIf( = 0, 0, / Result1o..H)) End If If Result1o..C <> 0 Then ù = TOSG(T, IIf(ù = 0, 0, ù / Result1o..C)) End If If Result1o..L <> 0 Then = TOSG(T, IIf( = 0, 0, / Result1o..L)) End If If Result1o..W <> 0 Then = TOSG(T, IIf( = 0, 0, / Result1o..W)) End If If Result1o..V <> 0 Then ȯ = TOSG(T, IIf(ȯ = 0, 0, ȯ / Result1o..V)) End If Dim As Decimal = + ù + + + ȯ r = -1 * (Result1o.E(0).귮¾翭 + Result1o.E(0).翭귮 + Result1o.E(0).귮) - r濡 = Result1o.Eҿ䷮(0). * addmulti rù濡 = Result1o.Eҿ䷮(0).ù * addmulti r = Result1o.Eҿ䷮(0). * addmulti r = Result1o.Eҿ䷮(0). * addmulti rȯ⿡ = Result1o.Eҿ䷮(0).ȯ * addmulti rհ = r濡 + rù濡 + r + r + rȯ⿡ If r = 0 Then P(91) = "" Else P(91) = (r * -1).ToString("N1") End If If r濡 = 0 Then P(70) = "" Else P(70) = r濡.ToString("N1") End If If rù濡 = 0 Then P(71) = "" Else P(71) = rù濡.ToString("N1") End If If r = 0 Then P(72) = "" Else P(72) = r.ToString("N1") End If If r = 0 Then P(73) = "" Else P(73) = r.ToString("N1") End If If rȯ⿡ = 0 Then P(74) = "" Else P(74) = rȯ⿡.ToString("N1") End If P(75) = rհ.ToString("N1") Case 0 '//1ҿ䷮ If Pub.Program = EProgram.ѷ Then Dim Sum As Decimal = Result1o.E(0).¾籤»귮 / (Result1o.Eҿ䷮(0). + Result1o.Eҿ䷮(0).ù + Result1o.Eҿ䷮(0). + Result1o.Eҿ䷮(0). + Result1o.Eҿ䷮(0).ȯ) Dim As Decimal = Sum * Result1o.Eҿ䷮(0). '//ƸԻ̾ȵ Ⱚ 0ſ. Dim ù As Decimal = Sum * Result1o.Eҿ䷮(0).ù Dim As Decimal = Sum * Result1o.Eҿ䷮(0). Dim As Decimal = Sum * Result1o.Eҿ䷮(0). Dim ȯ As Decimal = Sum * Result1o.Eҿ䷮(0).ȯ Dim As Decimal = 0 Dim ù As Decimal = 0 Dim As Decimal = 0 Dim As Decimal = 0 Dim ȯ As Decimal = 0 If Result1o..H <> 0 Then = TOSG(T, IIf( = 0, 0, / Result1o..H)) End If If Result1o..C <> 0 Then ù = TOSG(T, IIf(ù = 0, 0, ù / Result1o..C)) End If If Result1o..L <> 0 Then = TOSG(T, IIf( = 0, 0, / Result1o..L)) End If If Result1o..W <> 0 Then = TOSG(T, IIf( = 0, 0, / Result1o..W)) End If If Result1o..V <> 0 Then ȯ = TOSG(T, IIf(ȯ = 0, 0, ȯ / Result1o..V)) End If Dim As Decimal = + ù + + + ȯ r = -1 * (Result1o.E(0).귮¾翭 + Result1o.E(0).翭귮 + Result1o.E(0).귮 + * 2.75) If Program = EProgram.ѷ Then r濡 = Result1o.Eҿ䷮(0). * 1.0 * addmulti '//171021 rù濡 = Result1o.Eҿ䷮(0).ù * 1.0 * addmulti '//171021 r = Result1o.Eҿ䷮(0). * 1.0 * addmulti '//171021 r = Result1o.Eҿ䷮(0). * 1.0 * addmulti '//171021 rȯ⿡ = Result1o.Eҿ䷮(0).ȯ * 1.0 * addmulti '//171021 Else r濡 = Result1o.Eҿ䷮(0). * 1.0 '//171021 rù濡 = Result1o.Eҿ䷮(0).ù * 1.0 '//171021 r = Result1o.Eҿ䷮(0). * 1.0 '//171021 r = Result1o.Eҿ䷮(0). * 1.0 '//171021 rȯ⿡ = Result1o.Eҿ䷮(0).ȯ * 1.0 '//171021 End If rհ = r濡 + rù濡 + r + r + rȯ⿡ If r濡 = 0 Then P(76) = "" Else P(76) = r濡.ToString("N1") End If If rù濡 = 0 Then P(77) = "" Else P(77) = rù濡.ToString("N1") End If If r = 0 Then P(78) = "" Else P(78) = r.ToString("N1") End If If r = 0 Then P(79) = "" Else P(79) = r.ToString("N1") End If If rȯ⿡ = 0 Then P(80) = "" Else P(80) = rȯ⿡.ToString("N1") End If If r = 0 Then P(89) = "" Else P(89) = (r * -1).ToString("N1") End If P(81) = rհ.ToString("N1") Else '//ģȯ Dim Sum As Decimal = Result1o.E(0).¾籤»귮 / (Result1o.Eҿ䷮(0). + Result1o.Eҿ䷮(0).ù + Result1o.Eҿ䷮(0). + Result1o.Eҿ䷮(0). + Result1o.Eҿ䷮(0).ȯ) Dim As Decimal = Sum * Result1o.Eҿ䷮(0). '//ƸԻ̾ȵ Ⱚ 0ſ. Dim ù As Decimal = Sum * Result1o.Eҿ䷮(0).ù Dim As Decimal = Sum * Result1o.Eҿ䷮(0). Dim As Decimal = Sum * Result1o.Eҿ䷮(0). Dim ȯ As Decimal = Sum * Result1o.Eҿ䷮(0).ȯ Dim As Decimal = 0 Dim ù As Decimal = 0 Dim As Decimal = 0 Dim As Decimal = 0 Dim ȯ As Decimal = 0 If Result1o..H <> 0 Then = TOSG(T, IIf( = 0, 0, / Result1o..H)) End If If Result1o..C <> 0 Then ù = TOSG(T, IIf(ù = 0, 0, ù / Result1o..C)) End If If Result1o..L <> 0 Then = TOSG(T, IIf( = 0, 0, / Result1o..L)) End If If Result1o..W <> 0 Then = TOSG(T, IIf( = 0, 0, / Result1o..W)) End If If Result1o..V <> 0 Then ȯ = TOSG(T, IIf(ȯ = 0, 0, ȯ / Result1o..V)) End If Dim As Decimal = + ù + + + ȯ r = -1 * (Result1o.E(0).귮¾翭 + Result1o.E(0).翭귮 + Result1o.E(0).귮 + * 2.75) r濡 = Result1o.Eҿ䷮(0). 'If (Result1o..H_WF = 0) Then ' r濡 = 0 'Else ' r濡 = Result1o.Eҿ䷮(0).2 * Result1o..H / Result1o..H_WF 'End If rù濡 = Result1o.Eҿ䷮(0).ù r = Result1o.Eҿ䷮(0). '//޿ 170707 2332 'If (Result1o..W_WF = 0) Then ' r = 0 'Else ' r = Result1o.Eҿ䷮(0).2 * Result1o..W / Result1o..W_WF 'End If r = Result1o.Eҿ䷮(0). rȯ⿡ = Result1o.Eҿ䷮(0).ȯ rհ = r濡 + rù濡 + r + r + rȯ⿡ If r濡 = 0 Then P(76) = "" Else P(76) = r濡.ToString("N1") End If If rù濡 = 0 Then P(77) = "" Else P(77) = rù濡.ToString("N1") End If If r = 0 Then P(78) = "" Else P(78) = r.ToString("N1") End If If r = 0 Then P(79) = "" Else P(79) = r.ToString("N1") End If If rȯ⿡ = 0 Then P(80) = "" Else P(80) = rȯ⿡.ToString("N1") End If If r = 0 Then P(89) = "" Else P(89) = (r * -1).ToString("N1") End If P(81) = rհ.ToString("N1") End If End Select Next ' P(89) = "" '// Dim Sum1 As Decimal = Result1o.E(0).¾籤»귮 / (Result1o.Eҿ䷮(0). + Result1o.Eҿ䷮(0).ù + Result1o.Eҿ䷮(0). + Result1o.Eҿ䷮(0). + Result1o.Eҿ䷮(0).ȯ) Dim 1 As Decimal = Sum1 * Result1o.Eҿ䷮(0). '//ƸԻ̾ȵ Ⱚ 0ſ. Dim ù1 As Decimal = Sum1 * Result1o.Eҿ䷮(0).ù Dim 1 As Decimal = Sum1 * Result1o.Eҿ䷮(0). Dim 1 As Decimal = Sum1 * Result1o.Eҿ䷮(0). Dim ȯ1 As Decimal = Sum1 * Result1o.Eҿ䷮(0).ȯ Dim 1 As Decimal = 0 Dim ù1 As Decimal = 0 Dim 1 As Decimal = 0 Dim 1 As Decimal = 0 Dim ȯ1 As Decimal = 0 If Result1o..H <> 0 Then 1 = TOSG(T, IIf(1 = 0, 0, 1 / Result1o..H)) End If If Result1o..C <> 0 Then ù1 = TOSG(T, IIf(ù1 = 0, 0, ù1 / Result1o..C)) End If If Result1o..L <> 0 Then 1 = TOSG(T, IIf(1 = 0, 0, 1 / Result1o..L)) End If If Result1o..W <> 0 Then 1 = TOSG(T, IIf(1 = 0, 0, 1 / Result1o..W)) End If If Result1o..V <> 0 Then ȯ1 = TOSG(T, IIf(ȯ1 = 0, 0, ȯ1 / Result1o..V)) End If Dim 1 As Decimal = 1 + ù1 + 1 + 1 + ȯ1 '// _ҿ䷮ P(92) = (-1 * (Result1o.E(0).귮¾翭 + Result1o.E(0).귮) - 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) DSETR1.ExtReport.AcceptChanges() End Sub #Region "̻޴" Private Sub κк() If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If 'Me.Toggle_Menu_Color(E_MenuIdx.κк) Select Case Prj.UIVersion Case "2009123100", StartVersion Frm_V20091231_buha.ControlBox = True Frm_V20091231_buha.ShowDialog() 'Show_menu(New Frm_V20091231_buha) Case Else MsgBox(CLang.UI, MsgBoxStyle.Information, "Ȯ") End Select End Sub Private Sub ͼε() MsgBox(" ʽϴ.") 'If MsgBox(" ͸ Ͻðڽϱ?" & vbCrLf & ' " Ͱ ǰ 絥Ͱ ϴ." & vbCrLf & ' "۾ ǵ ϴ", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return 'Dim pass As String = InputBox("ȣԷ") 'If pass <> "raytrace" Then Return 'Dim Cn As New SqlClient.SqlConnection(My.Settings.cs) 'Cn.Open() 'Dim CMd As New SqlClient.SqlCommand("delete from tbl_weather", Cn) 'CMd.ExecuteNonQuery() 'CMd.CommandText = "delete from weather_cha" : CMd.ExecuteNonQuery() 'CMd.CommandText = "delete from weather_ilsa" : CMd.ExecuteNonQuery() 'CMd.CommandText = "delete from weather_temp" : CMd.ExecuteNonQuery() 'CMd.CommandText = "delete from weather_supdo" : CMd.ExecuteNonQuery() 'CMd.Dispose() 'Cn.Close() 'Cn.Dispose() 'Dim Taw As New DSTableAdapters.tbl_weatherTableAdapter 'Dim Ta1 As New DSTableAdapters.weather_chaTableAdapter 'Dim Ta2 As New DSTableAdapters.weather_ilsaTableAdapter 'Dim Ta3 As New DSTableAdapters.weather_supdoTableAdapter 'Dim Ta4 As New DSTableAdapters.weather_tempTableAdapter 'Dim Rcnt As Integer = 0 'For Each Dr As DS.tbl_weatherRow In DSET1.tbl_weather.Rows ' Rcnt += Taw.Insert(Dr.code, Dr.ǹġ, Dr., Dr.ù, Dr.m01, Dr.m02, Dr.m03, Dr.m04, Dr.m05, Dr.m06, Dr.m07, Dr.m08, Dr.m09, Dr.m10, Dr.m11, Dr.m12) 'Next 'For Each Dr As DS.weather_chaRow In DSET1.weather_cha.Rows ' Rcnt += Ta1.Insert(Dr.pcode, Dr.code, Dr., Dr.m01, Dr.m02, Dr.m03, Dr.m04, Dr.m05, Dr.m06, Dr.m07, Dr.m08, Dr.m09, Dr.m10, Dr.m11, Dr.m12) 'Next 'For Each Dr As DS.weather_ilsaRow In DSET1.weather_ilsa.Rows ' Rcnt += Ta2.Insert(Dr.pcode, Dr.code, Dr., Dr.ִ, Dr.m01, Dr.m02, Dr.m03, Dr.m04, Dr.m05, Dr.m06, Dr.m07, Dr.m08, Dr.m09, Dr.m10, Dr.m11, Dr.m12) 'Next 'For Each Dr As DS.weather_supdoRow In DSET1.weather_supdo.Rows ' Rcnt += Ta3.Insert(Dr.pcode, Dr.code, Dr., Dr.t01, Dr.t02, Dr.t03, Dr.t04, Dr.t05, Dr.t06, Dr.t07, Dr.t08, Dr.t09, Dr.t10, ' Dr.t11, Dr.t12, Dr.t13, Dr.t14, Dr.t15, Dr.t16, Dr.t17, Dr.t18, Dr.t19, Dr.t20, Dr.t21, Dr.t22, Dr.t23, Dr.t24) 'Next 'For Each Dr As DS.weather_tempRow In DSET1.weather_temp.Rows ' Rcnt += Ta4.Insert(Dr.pcode, Dr.code, Dr., Dr.t01, Dr.t02, Dr.t03, Dr.t04, Dr.t05, Dr.t06, Dr.t07, Dr.t08, Dr.t09, Dr.t10, ' Dr.t11, Dr.t12, Dr.t13, Dr.t14, Dr.t15, Dr.t16, Dr.t17, Dr.t18, Dr.t19, Dr.t20, Dr.t21, Dr.t22, Dr.t23, Dr.t24) 'Next 'MsgBox("ƮϷ", MsgBoxStyle.Information, "Ȯ") End Sub #End Region #Region "COntextMenu" Private Sub ContextMenuStrip1_Opening(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening 'If Me.TreeView1.SelectedNode Is Nothing Then Return 'Dim tagstring As String = Me.TreeView1.SelectedNode.Tag.ToString() 'If Me.TreeView1.SelectedNode.Level = 0 Then '//ܸ޴̰ ' If Me.TreeView1.SelectedNode.Text.Substring(0, 3) = "Է" Then ' Me.׷߰ToolStripMenuItem.Enabled = True ' Me.׷캯ToolStripMenuItem.Enabled = False ' Me.׷캹ToolStripMenuItem.Enabled = False ' Me.׷ToolStripMenuItem.Enabled = False ' Else ' e.Cancel = True ' End If 'ElseIf Me.TreeView1.SelectedNode.Level = 1 AndAlso tagstring.Length > 3 Then ' If tagstring.Substring(0, 3) = "Է" Then ' Me.׷߰ToolStripMenuItem.Enabled = True ' Me.׷캯ToolStripMenuItem.Enabled = True ' Me.׷캹ToolStripMenuItem.Enabled = True ' Me.׷ToolStripMenuItem.Enabled = True ' Else ' e.Cancel = True ' End If 'End If End Sub Private Sub ׷߰ToolStripMenuItem_Click(sender As System.Object, e As EventArgs) Handles ׷߰ToolStripMenuItem.Click 'If Me.TreeView1.SelectedNode Is Nothing Then Return 'Dim newname As String = InputBox("׷̸", "űԱ׷̸ Էϼ", "׷") 'If newname.Trim = "" Then Return 'If Me.TreeView1.SelectedNode.Level = 1 Then ' If Me.TreeView1.SelectedNode.Parent.Nodes.Find(newname, True).Length = 0 Then ' Dim ntv As TreeNode = Me.TreeView1.SelectedNode.Parent.Nodes.Add(newname, newname + "(0)") ' ntv.Tag = "Է|" + newname ' Me.TreeView1.SelectedNode = ntv ' 'TreeView1_MouseDoubleClick(Nothing, Nothing) ' End If 'Else ' If Me.TreeView1.SelectedNode.Nodes.Find(newname, True).Length = 0 Then ' Dim ntv As TreeNode = Me.TreeView1.SelectedNode.Nodes.Add(newname, newname + "(0)") ' ntv.Tag = "Է|" + newname ' Me.TreeView1.SelectedNode = ntv ' 'TreeView1_MouseDoubleClick(Nothing, Nothing) ' End If 'End If End Sub Private Sub ׷ToolStripMenuItem_Click(sender As System.Object, e As EventArgs) Handles ׷ToolStripMenuItem.Click ''//õȱ׷ 'If Me.TreeView1.SelectedNode Is Nothing Then Return 'Dim tn As TreeNode = Me.TreeView1.SelectedNode 'If Me.TreeView1.SelectedNode.Level <> 1 Then Return 'Dim tag As String = Me.TreeView1.SelectedNode.Tag.ToString() 'Dim t() As String = tag.Split("|") 'If MsgBox("õȱ׷ [" + t(1) + "]() Ͻðڽϱ?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then ' For Each dr As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0' and ׷='" + t(1) + "'") ' DeleteMyunFromZoneCode(dr.code) ' dr.Delete() ' Next ' DSET1.tbl_zone.AcceptChanges() ' ' Refresh_MenuItems("") 'End If End Sub '''ش մϴ. Private Sub DeleteMyunFromZoneCode(Zonecode As String) For Each dr As DS.tbl_myounRow In DSET1.tbl_myoun.Select("code <> '0' and з='" + Zonecode + "'") dr.Delete() Next DSET1.tbl_myoun.AcceptChanges() End Sub Private Sub ׷캯ToolStripMenuItem_Click(sender As System.Object, e As EventArgs) Handles ׷캯ToolStripMenuItem.Click ''//õȱ׷ 'If Me.TreeView1.SelectedNode Is Nothing Then Return 'Dim tn As TreeNode = Me.TreeView1.SelectedNode 'If Me.TreeView1.SelectedNode.Level <> 1 Then Return 'Dim tag As String = Me.TreeView1.SelectedNode.Tag.ToString() 'Dim t() As String = tag.Split("|") 'Dim m As New System.Text.StringBuilder 'Dim newname As String = InputBox(" ׷̸ Էϼ", "׷캯", t(1)) 'If newname.Trim = "" Then Return 'If newname.Trim = t(1) Then Return 'If MsgBox("õȱ׷ [" + t(1) + "]() [" + newname + "] Ͻðڽϱ?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then ' For Each dr As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0' and ׷='" + t(1) + "'") ' dr.׷ = newname ' Next ' DSET1.tbl_zone.AcceptChanges() ' ' Refresh_MenuItems("") 'End If End Sub Private Sub ׷캹ToolStripMenuItem_Click(sender As System.Object, e As EventArgs) Handles ׷캹ToolStripMenuItem.Click ''//õȱ׷ 'If Me.TreeView1.SelectedNode Is Nothing Then Return 'Dim tn As TreeNode = Me.TreeView1.SelectedNode 'If Me.TreeView1.SelectedNode.Level <> 1 Then Return 'Dim tag As String = Me.TreeView1.SelectedNode.Tag.ToString() 'Dim t() As String = tag.Split("|") 'Dim m As New System.Text.StringBuilder 'Dim newname As String = InputBox("ο ׷̸ Էϼ", "׷캹", t(1)) 'If newname.Trim = "" Then Return 'If newname.Trim = t(1) Then Return 'If MsgBox("õȱ׷ [" + t(1) + "]() [" + newname + "] Ͻðڽϱ?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then ' For Each dr As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0' and ׷='" + t(1) + "'") ' Dim newcode As String = GetNewZoneCode() ' Dim newdr As DataRow = DSET1.tbl_zone.NewRow ' For Each c As DataColumn In DSET1.tbl_zone.Columns ' newdr(c.ColumnName) = dr(c.ColumnName) ' Next ' newdr("code") = newcode ' newdr("׷") = newname ' DuplicateZoneRow(dr.code, newcode) '//ڵ尪 ش. ' DSET1.tbl_zone.Rows.Add(newdr) ' Next ' DSET1.tbl_zone.AcceptChanges() ' 'Refresh_MenuItems("") 'End If End Sub Private Sub DuplicateZoneRow(ZoneCode As String, newzoneCode As String) '//Է ϴ Է¸ ؼ ش. Dim Է¸() As DS.tbl_myounRow = DSET1.tbl_myoun.Select("з='" + ZoneCode + "'") For Each Է¸ As DS.tbl_myounRow In Է¸ Dim űԷ¸ As DS.tbl_myounRow = DSET1.tbl_myoun.Newtbl_myounRow For Each ÷ As DataColumn In DSET1.tbl_myoun.Columns If ÷.ColumnName.ToUpper = "CODE" Then űԷ¸.code = GetMyounMaxCode(DSET1.tbl_myoun) Else űԷ¸(÷.ColumnName) = Է¸(÷.ColumnName) End If Next űԷ¸.з = newzoneCode DSET1.tbl_myoun.Rows.Add(űԷ¸) DSET1.tbl_myoun.AcceptChanges() Next End Sub '''ǻοڵ尪ҶѴ. Private Function GetMyounMaxCode(ByVal dt As DataTable) As String Try Dim Dr As DataRow = dt.Select("", "code desc")(0) Return Format(CInt(Dr("code")) + 1, "0000") Catch ex As Exception Return "0001" End Try End Function Private Function GetNewZoneCode() As String Try Dim Dr As DataRow = DSET1.tbl_zone.Select("", "code desc")(0) Dim Dr_myoun As DataRow = DSET1.tbl_myoun.Select("", "з desc")(0) If Dr("code") >= Dr_myoun("з") Then Return Format(CInt(Dr("code")) + 1, "0000") Else Return Format(CInt(Dr_myoun("з")) + 1, "0000") End If Catch ex As Exception Return "0001" End Try End Function #End Region Private Sub BtCalc_Click(sender As Object, e As EventArgs) End Sub Private Sub RibbonButton9_Click(sender As Object, e As EventArgs) Handles mbt_report_od.Click If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If Frm_v20091231_Report.Show() End Sub Private Sub RibbonButton10_Click(sender As Object, e As EventArgs) Handles ribbonButton10.Click If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If If Program = EProgram.ģȯ Then Report_ģȯ.Show() Else Report_伭2.Show() End If End Sub Private Sub RibbonButton5_Click(sender As Object, e As EventArgs) Handles ribbonButton5.Click Menu_New() End Sub Private Sub RibbonButton6_Click(sender As Object, e As EventArgs) Handles ribbonButton6.Click Menu_Open() End Sub Sub Menu_Save() '/ ư Ŭ Ͼ ̺Ʈ ƽ ^^? If Not Prj.Opened Then MsgBox(CLang.Ͼ, MsgBoxStyle.Information, "Ȯ") Return End If '//մ ִٸ ϵѴ. For Each ChildForm As CForm In Me.MdiChildren If ChildForm.HasChanged Then ChildForm.AcceptChanged() Next '// Ѵ. Func_Save_OD(Prj.FileName) End Sub Sub Menu_SaveAs() If Prj.FileName = "" Then MsgBox(CLang.Ͼ, MsgBoxStyle.Information, "Ȯ") Return End If '//մ ִٸ ϵѴ. For Each ChildForm As CForm In Me.MdiChildren If ChildForm.HasChanged Then ChildForm.AcceptChanged() Next Dim SD As New SaveFileDialog With { .FileName = Prj.FileName, .Filter = "ø(*." + FileExt + ")|*." + FileExt + "|(*.*)|*.*", .FilterIndex = 0 } If SD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return Prj.FileName = SD.FileName Me.Func_Save_OD(Prj.FileName) End Sub Private Sub BtSaveFile_Click(sender As Object, e As EventArgs) Handles mbt_save.Click Menu_Save() End Sub Private Sub BTSaveNew_Click(sender As Object, e As EventArgs) Handles mbt_save2.Click Menu_SaveAs() End Sub Private Sub RibbonButton13_Click(sender As Object, e As EventArgs) Handles RibbonButton13.Click Frm_About.ShowDialog() End Sub Private Sub RibbonButton9_Click_1(sender As Object, e As EventArgs) Handles RibbonButton9.Click If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If If Frm_FileInfo.ShowDialog = Windows.Forms.DialogResult.OK Then Refresh_StatusInfo() End If End Sub Private Sub RibbonButton11_Click(sender As Object, e As EventArgs) Handles btShowWeather.Click If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If 'Me.Toggle_Menu_Color(E_MenuIdx.) Frm_Weather.ControlBox = True Frm_Weather.ShowDialog() End Sub Private Sub RibbonButton12_Click(sender As Object, e As EventArgs) Handles ribbonButton12.Click If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If Frm_profile.ControlBox = True Frm_profile.Show() End Sub Private Sub RibbonButton14_Click(sender As Object, e As EventArgs) Dim but As C1.Win.C1Ribbon.RibbonButton = CType(sender, C1.Win.C1Ribbon.RibbonButton) Dim idx As Integer = CInt(but.Tag.ToString) Read_PreFile(idx) End Sub Private Sub RibbonButton14_Click_1(sender As Object, e As EventArgs) Handles RibbonButton14.Click If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If Frm_Common.ControlBox = True Frm_Common.Show() 'Show_menu(New Frm_Common) End Sub Private Sub RibbonButton15_Click(sender As Object, e As EventArgs) Handles RibbonButton15.Click If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If Frm_RepResult_Admin.ControlBox = True Frm_RepResult_Admin.Show() End Sub Private Sub RibbonButton16_Click(sender As Object, e As EventArgs) Handles RibbonButton16.Click If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If Frm_Zone.ControlBox = True Frm_Zone.Show() End Sub ''' ''' ִ Ȯ ''' ''' ''' ''' Function CheckOpenForm(TagStr As String) As CForm Dim childf As Form = Nothing For Each cf As Form In Me.MdiChildren If cf.Tag.ToString = TagStr Then childf = cf Exit For End If Next Return childf End Function Sub Show_Menu(fNo As Integer) If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If '//ش ִ ȮѴ. Dim ftagStr As String = fNo.ToString() Dim ChildForm As CForm = CheckOpenForm(ftagStr) If Not ChildForm Is Nothing Then '// ִ ̴. If ChildForm.WindowState = FormWindowState.Minimized Then ChildForm.WindowState = FormWindowState.Normal ChildForm.Show() ChildForm.Activate() Else If fNo = 1 Then ChildForm = New Frm_1_Basic() ElseIf fNo = 2 Then ChildForm = New Frm_2_Build() ElseIf fNo = 3 Then ChildForm = New Frm_3_Mach() ElseIf fNo = 4 Then ChildForm = New Frm_5_New() ElseIf fNo = 5 Then ChildForm = New Frm_6_Req() End If ChildForm.MdiParent = Me ChildForm.Show() End If End Sub Private Sub BtMenu_Click(sender As Object, e As EventArgs) Handles bt1.Click, bt2.Click, bt3.Click, bt4.Click, bt5.Click Dim but As C1.Win.C1Ribbon.RibbonButton = sender If but Is bt1 Then Show_Menu(1) ElseIf but Is bt2 Then Show_Menu(2) ElseIf but Is bt3 Then Show_Menu(3) ElseIf but Is bt4 Then Show_Menu(4) ElseIf but Is bt5 Then Show_Menu(5) End If End Sub Private Sub RibbonButton1_Click(sender As System.Object, e As System.EventArgs) Handles RibbonButton1.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub Private Sub RibbonButton2_Click(sender As System.Object, e As System.EventArgs) Handles RibbonButton2.Click Me.LayoutMdi(MdiLayout.Cascade) End Sub Private Sub RibbonButton3_Click(sender As System.Object, e As System.EventArgs) Handles RibbonButton3.Click Try For Each child As CForm In Me.MdiChildren If child.HasChanged Then child.AcceptChanged() child.Close() Next Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Error") End Try End Sub Private Sub RibbonButton4_Click(sender As Object, e As EventArgs) Handles RibbonButton4.Click If Not Prj.Opened Then Work_msg_timer(CLang.Ͼ) Return End If Frm_Yk.ControlBox = True Frm_Yk.Show() End Sub Private Sub RibbonButton7_Click(sender As Object, e As EventArgs) Handles RibbonButton7.Click Me.LayoutMdi(MdiLayout.TileVertical) End Sub Private Sub RibbonButton17_Click(sender As Object, e As EventArgs) Me.LayoutMdi(MdiLayout.ArrangeIcons) End Sub Private Sub RibbonButton8_Click(sender As Object, e As EventArgs) Handles RibbonButton8.Click Show_Menu(1) Show_Menu(2) Show_Menu(3) Show_Menu(4) End Sub Private Sub RibbonButton18_Click(sender As Object, e As EventArgs) Handles RibbonButton18.Click Read_FilHistory() End Sub Private Sub RibbonButton20_Click(sender As Object, e As EventArgs) Handles RibbonButton20.Click Frm_ExtReport.Show() End Sub Private Sub RibbonButton21_Click(sender As System.Object, e As System.EventArgs) Handles RibbonButton21.Click Dim sd As New SaveFileDialog If sd.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return DSETR1.ExtReport.WriteXml(sd.FileName, XmlWriteMode.WriteSchema) End Sub Private Sub RibbonButton22_Click(sender As System.Object, e As System.EventArgs) '// cache Ѵ. Dim savepath As New System.IO.DirectoryInfo(AppDomain.CurrentDomain.BaseDirectory + "\Cache") If Not savepath.Exists Then savepath.Create() '// ͸ Ѵ. If DSET1.tbl_weather_od.Rows.Count < 2 Then MsgBox("尡 Ͱ ϴ", MsgBoxStyle.Critical, "Ȯ") Return End If Try DSET1.tbl_weather_od.WriteXml(savepath.FullName + "\tbl_weather_od.xml") DSET1.weather_group.WriteXml(savepath.FullName + "\weather_group.xml") DSET1.weather_cha_od.WriteXml(savepath.FullName + "\weather_cha_od.xml") DSET1.weather_ilsa_od.WriteXml(savepath.FullName + "\weather_ilsa_od.xml") DSET1.weather_supdo_od.WriteXml(savepath.FullName + "\weather_supdo_od.xml") DSET1.weather_temp_od.WriteXml(savepath.FullName + "\weather_temp_od.xml") MsgBox("Ϸ", MsgBoxStyle.Information, "Ȯ") Shell("explorer " + savepath.FullName, AppWinStyle.NormalFocus) Catch ex As Exception MsgBox(" ߻߽ϴ" + vbCrLf + ex.Message, MsgBoxStyle.Critical, "Ȯ") End Try End Sub Private Sub RibbonButton23_Click(sender As System.Object, e As System.EventArgs) '// cache Ѵ. Dim savepath As New System.IO.DirectoryInfo(AppDomain.CurrentDomain.BaseDirectory + "\Cache") If Not savepath.Exists Then savepath.Create() '// ͸ Ѵ. If DSET1.tbl_common_od.Rows.Count < 2 Then MsgBox("尡 뵥Ͱ ϴ", MsgBoxStyle.Critical, "Ȯ") Return End If Try DSET1.tbl_common_od.WriteXml(savepath.FullName + "\tbl_common_od.xml") MsgBox("Ϸ", MsgBoxStyle.Information, "Ȯ") Shell("explorer " + savepath.FullName, AppWinStyle.NormalFocus) Catch ex As Exception MsgBox(" ߻߽ϴ" + vbCrLf + ex.Message, MsgBoxStyle.Critical, "Ȯ") End Try End Sub Private Sub btVerCheck_Click(sender As Object, e As EventArgs) Handles btVerCheck.Click Work_msg("α׷ Ȯ") Dim MyVersion As String = Format(My.Application.Info.Version.Minor, "0000") & Format(My.Application.Info.Version.Build, "0000") Dim MyProgVer As String = "" If Pub.Program = EProgram.ģȯ Then MyVersion = "20171215" '"20170708" MyProgVer = "20180118" Else MyVersion = "20180901" '//ui version MyProgVer = "20180901" '//interface version End If 'MyProgVer = "20170710" '//Ʈũ ̵Ǹ üũѴ. If Pub.CheckInternet Then lbOnline.Text = String.Format("[{0}]", "Online") Dim L As New ArinLogin.ArinLOgin Dim VersionInfo As ArinLogin.ArinLOgin.sVersionInfo = Nothing '// üũ Try If Program = EProgram.ѷ Then VersionInfo = L.Get_LastVersion("N") '//ѷ Else VersionInfo = L.Get_LastVersion("O") '//ģȯ End If Catch ex As Exception End End Try If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0 ų ̹Ƿ Ѿ. Dim Msg As New System.Text.StringBuilder Msg.AppendLine("ο ȮεǾϴ" & vbCrLf) Msg.AppendLine(":" & MyVersion & " űԹ:" & VersionInfo.Ver) Msg.AppendLine("----------------------------------") Msg.AppendLine(VersionInfo.Desc) Msg.AppendLine("----------------------------------") If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://Ȩּ" If MsgBox(Msg.ToString, MsgBoxStyle.Information, "Ȯ") = MsgBoxResult.Ok Then End If End '2011.03.08 α׷ ֽŹ ƴϸ α׷ Ų. Else '//α׷ ߰ üũѴ. Try If Program = EProgram.ѷ Then VersionInfo = L.Get_LastVersion("Q") '//ѷ (α׷) Else VersionInfo = L.Get_LastVersion("R") '//ģȯ (α׷) End If Catch ex As Exception End End Try If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyProgVer)) Then '//0 ų ̹Ƿ Ѿ. Dim Msg As New System.Text.StringBuilder Msg.AppendLine("α׷ ̽ Ǿϴ." & vbCrLf) Msg.AppendLine(":" & MyProgVer & " űԹ:" & VersionInfo.Ver) Msg.AppendLine("----------------------------------") Msg.AppendLine(VersionInfo.Desc) Msg.AppendLine("----------------------------------") If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://Ȩּ" If MsgBox(Msg.ToString, MsgBoxStyle.Information, "Ȯ") = MsgBoxResult.Ok Then End If End '2011.03.08 α׷ ֽŹ ƴϸ α׷ Ų. End If MsgBox("ֽ Դϴ.", MsgBoxStyle.Information, "Ȯ") End If Else lbOnline.Text = String.Format("[{0}]", "Offline") Dim msg As New System.Text.StringBuilder msg.AppendLine(" Դϴ") msg.AppendLine("űԹ üũ ϴ") msg.AppendLine("űԹ {0} Ȯ Ͻñ ٶϴ") MsgBox(msg.ToString(), MsgBoxStyle.Information, "Ȯ") End If Work_msg("") End Sub Private Sub RibbonButton24_Click(sender As Object, e As EventArgs) Handles mbt_calc.Click For Each f As CForm In Me.MdiChildren '//ο ȭ ȭ ٸ ׳ ִʴ. If f.HasChanged Then f.AcceptChanged() Next 'If Me.OpenedForm <> E_MenuIdx.NONE Then 'End If Func_Calc_OD() 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" If MsgBox("ȣȭ Ͻðڽϱ?", MsgBoxStyle.YesNo, "Ȯ") = 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 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_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.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_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_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 Private Sub RibbonButton25_Click(sender As Object, e As EventArgs) Handles RibbonButton25.Click DSET1.tbl_yk.Clear() DSET1.tbl_ykdetail.Clear() DSET1.tbl_new.Clear() DSET1.tbl_new_energy.Clear() DSET1.tbl_new_ground.Clear() DSET1.tbl_new_light.Clear() DSET1.AcceptChanges() DSETR1.ExtReport.Clear() DSETR1.AcceptChanges() End Sub Private Sub RibbonButton26_Click(sender As Object, e As EventArgs) Handles RibbonButton26.Click DSET1.tbl_profile_od.Clear() DSET1.tbl_weather_od.Clear() DSET1.weather_cha_od.Clear() DSET1.weather_ilsa_od.Clear() DSET1.weather_temp_od.Clear() DSET1.weather_supdo_od.Clear() DSET1.weather_group.Clear() DSET1.AcceptChanges() End Sub Private Sub RibbonButton11_Click_1(sender As System.Object, e As System.EventArgs) Handles RibbonButton11.Click '//tpl test Dim od As New OpenFileDialog() od.Filter = "tpl|*.tpl" If (od.ShowDialog() = Windows.Forms.DialogResult.OK) Then Open_TPL(od.FileName) End If End Sub Private Function Open_TPL(ByVal FileName As String) As String '//翭ִƮ ݴ´. DSET1.Clear() DSET2.Clear() DSETR1.Clear() DSETR2.Clear() DSET1.AcceptChanges() DSET2.AcceptChanges() DSETR1.AcceptChanges() DSETR2.AcceptChanges() Prj.IsError = False '//160509 '//  ø̸ ´ Dim FS As System.IO.Stream FS = New IO.FileStream(FileName, IO.FileMode.Open) Dim Br As New IO.BinaryReader(FS, System.Text.Encoding.Default) Prj.FileName = FileName Prj.Opened = False '//̺ϱ(2) Prj.SFType = STB(Br.ReadBytes(2)) Dim ext As String = "ECL2" Select Case Prj.SFType Case "00" '//⺻ Prj.UIVersion = STB(Br.ReadBytes(10)) Prj.LGVersino = STB(Br.ReadBytes(10)) Select Case Prj.LGVersino Case "2009123100", "2010030700", "2010031400" Prj.LGVersino = StartVersion End Select Select Case Prj.UIVersion Case "2009123100", "2010030700", "2010031400" Prj.UIVersion = StartVersion Prj.UIVersion = StartVersion End Select Prj.Name = STB(Br.ReadBytes(100)) Prj.Desc = STB(Br.ReadBytes(256)) Prj.MakeTime = STB(Br.ReadBytes(19)) Prj.EditTime = STB(Br.ReadBytes(19)) ' MsgBox(Br.BaseStream.Position) '//DS1 ʱȭ DSET1.Clear() : DSET1.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.IsError = True MsgBox(" ջǾϴ(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.IsError Then Dim Ms As New IO.MemoryStream(DS1) Try DSET1.ReadXml(Ms) DSET1.AcceptChanges() Ms.Close() Catch ex As Exception Prj.IsError = True MsgBox(" ջǾϴ(Read DataSet)" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 Open Error") End Try If Prj.IsError Then If MsgBox("͸ ȮϽðڽϱ?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "Ȯ") = MsgBoxResult.Yes Then '//޸𸮹۸ utf8 ̿Ͽ ó ؾѴ Dim accCount As UInteger = 0 Ms.Position = 0 Dim AllDataList As String = System.Text.Encoding.UTF8.GetString(DS1) My.Computer.FileSystem.WriteAllText("c:\temp\1.txt", AllDataList, False) Dim CurrentTable As String = "" Dim dr As DataRow = Nothing For Each line As String In AllDataList.Split(vbCrLf) '// ó Ѵ line = line.Trim If line.ToLower.StartsWith("") Then '//ͼ¼̹Ƿ Ѿ ElseIf line.ToLower.StartsWith("") Then CurrentTable = line.Substring(1, line.Length - 2) dr = DSET1.Tables(CurrentTable).NewRow ElseIf line.ToLower.StartsWith("") Then '//̺ '// accCount += 1 DSET1.Tables(CurrentTable).Rows.Add(dr) CurrentTable = "" ElseIf line.ToLower.StartsWith("") Then CurrentTable = line.Substring(1, line.Length - 2) dr = DSET1.Tables(CurrentTable).NewRow ElseIf line.ToLower.StartsWith("") Then '//̺ DSET1.Tables(CurrentTable).Rows.Add(dr) accCount += 1 CurrentTable = "" Else '//Ϲݵ If String.IsNullOrWhiteSpace(CurrentTable) Then Continue For Dim ݴ±ġ As Integer = line.IndexOf(">") If ݴ±ġ > -1 Then Dim ʵ As String = line.Substring(1, ݴ±ġ - 1) Dim ±ġ As Integer = line.IndexOf("<", ݴ±ġ) If ±ġ > -1 Then Dim ΰ As String = line.Substring(ݴ±ġ + 1, ±ġ - ݴ±ġ - 1) dr(ʵ) = ΰ End If End If End If Next '//Է Է¸ Ͱ ִٸ з ̿ؼ 켱 ش If DSET1.tbl_zone.Rows.Count < 2 AndAlso DSET1.tbl_myoun.Rows.Count > 1 Then For Each drMn As DS.tbl_myounRow In DSET1.tbl_myoun.Rows Dim з As String = drMn.з.Trim If String.IsNullOrWhiteSpace(з) Then Continue For Dim Ͱ As Integer = DSET1.tbl_zone.Select("code='" + з + "'").Length If Ͱ = 0 Then Dim As DS.tbl_zoneRow = DSET1.tbl_zone.Newtbl_zoneRow .code = з . = "ڵ(" + з + ")" DSET1.tbl_zone.Addtbl_zoneRow() accCount += 1 End If Next DSET1.tbl_zone.AcceptChanges() End If MsgBox(accCount.ToString() + " ڷᰡ Ǿϴ", MsgBoxStyle.Critical, "Ȯ") DSET1.AcceptChanges() DSETR1.Clear() : DSETR1.AcceptChanges() Prj.IsError = False End If Else '//° '//DS1 ִٸ Լ Ѵ 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(" ϴ." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds2 Open Error") End Try Prj.IsError = False End If End If Case "01" '//⺻(+ȣ Prj.UIVersion = STB(Br.ReadBytes(10)) Prj.LGVersino = STB(Br.ReadBytes(10)) Select Case Prj.LGVersino Case "2009123100", "2010030700", "2010031400" Prj.LGVersino = StartVersion End Select Select Case Prj.UIVersion Case "2009123100", "2010030700", "2010031400" Prj.UIVersion = StartVersion End Select Prj.Name = STB(Br.ReadBytes(100)) Prj.Desc = STB(Br.ReadBytes(256)) Prj.MakeTime = STB(Br.ReadBytes(19)) Prj.EditTime = STB(Br.ReadBytes(19)) Prj.Password = STB(Br.ReadBytes(8)) '//ȣ 8ƮҴѴ. 8ǹڰ ѱ ҰѴ ' MsgBox(Br.BaseStream.Position) '//DS1 ʱȭ DSET1.Clear() : DSET1.AcceptChanges() Dim DS1Len As Int64 = Br.ReadInt64 'MsgBox("pos=" & Br.BaseStream.Position & vbCrLf & DS1Len, MsgBoxStyle.Information, Hex(DS1Len)) Dim DS1() As Byte = Br.ReadBytes(CInt(DS1Len)) 'MsgBox("pos=" & Br.BaseStream.Position & vbCrLf & DS1.Length, MsgBoxStyle.Information, DS1Len) Dim Ms As New IO.MemoryStream(DS1) Try DSET1.ReadXml(Ms) DSET1.AcceptChanges() Ms.Close() Catch ex As Exception MsgBox(" ջǾϴ." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 Open Error") End Try '//DS1 ִٸ Լ Ѵ 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(" ϴ." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds2 Open Error") End Try Prj.IsError = False Case Else MsgBox(" ҷ ϴ1", MsgBoxStyle.Critical, "ҷ") Prj.IsError = True End Select Br.Close() FS.Close() If Not Prj.IsError Then Prj.Opened = True 'e.m_initdata.Enabled = True 'Frm_Work.MdiParent = Me Frm_Work.Label1.Text = "͸ Ȯϰ ֽϴ" Frm_Work.Show() If DSET1.tbl_buha.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_buha.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_bunbae.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_bunbae.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_kongjo.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongjo.Rows.Add(New String() {"0", "()"}) 'If DSET1.tbl_kongkub.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_kongkub.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_myoun.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_myoun.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_nanbangkiki.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nanbangkiki.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_nangbangkiki.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nangbangkiki.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_nbunbae.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_nbunbae.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_new.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_new.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_profile_od.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_profile_od.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_weather_od.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_weather_od.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_zone.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_zone.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_yk.Select("code='0'").GetUpperBound(0) = -1 Then DSET1.tbl_yk.Rows.Add(New String() {"0", "()"}) If DSET1.tbl_Desc.Rows.Count < 1 Then MsgBox("ǹ䵥Ͱ Ƿ ʱڷḦ մϴ", MsgBoxStyle.Critical, "Ȯ") Dim newdescdr As DS.tbl_DescRow = DSET1.tbl_Desc.NewRow newdescdr.name = "" newdescdr.buildarea = "0001" DSET1.tbl_Desc.Addtbl_DescRow(newdescdr) DSET1.tbl_Desc.AcceptChanges() End If '// DSET1.tbl_common_od.Clear() DSET1.tbl_profile_od.Clear() DSET1.tbl_weather_od.Clear() DSET1.weather_cha_od.Clear() DSET1.weather_group.Clear() DSET1.weather_ilsa_od.Clear() DSET1.weather_supdo_od.Clear() DSET1.weather_temp_od.Clear() 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" If System.IO.File.Exists(fn0) Then Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn0, "")) DSET1.tbl_common_od.ReadXml(String.Format(fn0, "")) End If If System.IO.File.Exists(fn1) Then DSET1.tbl_profile_od.ReadXml(String.Format(fn1, "")) End If If System.IO.File.Exists(String.Format(fn2, "")) Then DSET1.tbl_weather_od.ReadXml(String.Format(fn2, "")) End If If System.IO.File.Exists(String.Format(fn2, "_ch")) Then DSET1.weather_cha_od.ReadXml(String.Format(fn2, "_ch")) End If If System.IO.File.Exists(String.Format(fn2, "_gr")) Then DSET1.weather_group.ReadXml(String.Format(fn2, "_gr")) End If If System.IO.File.Exists(String.Format(fn2, "_is")) Then DSET1.weather_ilsa_od.ReadXml(String.Format(fn2, "_is")) End If If System.IO.File.Exists(String.Format(fn2, "_sd")) Then DSET1.weather_supdo_od.ReadXml(String.Format(fn2, "_sd")) End If If System.IO.File.Exists(String.Format(fn2, "_tp")) Then DSET1.weather_temp_od.ReadXml(String.Format(fn2, "_tp")) End If DSET1.tbl_common_od.AcceptChanges() DSET1.tbl_profile_od.AcceptChanges() DSET1.tbl_weather_od.AcceptChanges() DSET1.weather_cha_od.AcceptChanges() DSET1.weather_group.AcceptChanges() DSET1.weather_ilsa_od.AcceptChanges() DSET1.weather_supdo_od.AcceptChanges() DSET1.weather_temp_od.AcceptChanges() DSET1.AcceptChanges() '//Է Dim As Decimal = 0 Dim As Integer = 0 Dim As Decimal = 0 For Each dr As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'") Dim As Integer = 0 If IsNumeric(dr.ԷǼ) Then = CInt(dr.ԷǼ) Else = 1 End If += If IsNumeric(dr.) Then = dr. * Else = 0 End If = + Next '//ǹ뵵⺻ DSET1.tbl_type.Clear() Dim 뵵 As String = DSET1.tbl_Desc.Rows(0)("isjugo").ToString If 뵵 = "0001" OrElse 뵵 = "0002" OrElse 뵵 = "1" OrElse 뵵 = "2" Then '//ģȯ(ecl3) '//üǼ Dim newdr As DS.tbl_typeRow = DSET1.tbl_type.Newtbl_typeRow If = 0 Then newdr. = 0 Else newdr. = / End If newdr. = newdr.Ÿ = "1" newdr.code = "0001" DSET1.tbl_type.Addtbl_typeRow(newdr) DSET1.tbl_type.AcceptChanges() ext = "ECL3" Else '//ecl2 '//߰ Dim new As DS.tbl_typeRow = DSET1.tbl_type.Newtbl_typeRow new.code = "0001" new. = new. = "ü" new.ü뵵 = "0002" DSET1.tbl_type.Addtbl_typeRow(new) ext = "ECL2" End If If IsNumeric(뵵) = False Then DSET1.tbl_Desc.Rows(0)("isjugo") = "1" End If '//׷̾° ó(130810:arin) For Each dr As DS.tbl_zoneRow In DSET1.tbl_zone.Select("isnull(׷,'')=''") dr.׷ = "⺻" Next '//뷮Ϳ(130819:arin) If DSET1.tbl_monuse.Rows.Count = 0 Then For y As Integer = 1 To 3 Dim idx As String = y.ToString("0000") For i As Integer = 1 To 12 DSET1.tbl_monuse.Rows.Add(New String() {y.ToString() + "⵵", i.ToString("00"), "0", "0", "0", idx}) '//,,ð,,,ڵ Next Next End If '//140808 ⺻ ó '//Է If Not DSET1 Is Nothing Then For i As Integer = 1 To DSET1.tbl_zone.Rows.Count '//ü 150111 'üNTb.Text = TOST(TOSG(NTb.Text) * TOSG(õNTb.Text)) Dim As String = "" Dim õ As String = "" Dim ü As String = "" Try = DSET1.tbl_zone.Rows(i - 1)("").ToString Catch ex As Exception = "" End Try Try õ = DSET1.tbl_zone.Rows(i - 1)("õp").ToString Catch ex As Exception õ = "" End Try Try ü = DSET1.tbl_zone.Rows(i - 1)("ü").ToString Catch ex As Exception ü = "" End Try If IsNumeric() AndAlso IsNumeric(õ) Then If Not IsNumeric(ü) Then ' MsgBox("ü Ƿ մϴ", MsgBoxStyle.Information, "Ȯ") DSET1.tbl_zone.Rows(i - 1)("ü") = CSng() * CSng(õ) End If End If If DSET1.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse _ DSET1.tbl_zone.Rows(i - 1).RowState = DataRowState.Detached Then Continue For End If Dim StrCode As String = DSET1.tbl_zone.Rows(i - 1)("code").ToString If StrCode.Length = 4 Then DSET1.tbl_zone.Rows(i - 1)("code") = "0" + StrCode End If Next DSET1.tbl_zone.AcceptChanges() End If If Not DSET2 Is Nothing Then For i As Integer = 1 To DSET2.tbl_zone.Rows.Count If DSET2.tbl_zone.Rows(i - 1).RowState = DataRowState.Deleted OrElse _ DSET2.tbl_zone.Rows(i - 1).RowState = DataRowState.Detached Then Continue For End If Dim StrCode As String = DSET2.tbl_zone.Rows(i - 1)("code").ToString If StrCode.Length = 4 Then DSET2.tbl_zone.Rows(i - 1)("code") = "0" + StrCode End If Next DSET2.tbl_zone.AcceptChanges() End If '//Է¸ If Not DSET1 Is Nothing Then For i As Integer = 1 To DSET1.tbl_myoun.Rows.Count If DSET1.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse _ DSET1.tbl_myoun.Rows(i - 1).RowState = DataRowState.Detached Then Continue For End If Dim StrCode As String = DSET1.tbl_myoun.Rows(i - 1)("code").ToString If StrCode.Length = 4 Then DSET1.tbl_myoun.Rows(i - 1)("code") = "0" + StrCode End If Dim StrCode2 As String = DSET1.tbl_myoun.Rows(i - 1)("з").ToString If StrCode2.Length = 4 Then StrCode2 = "0" + StrCode2 DSET1.tbl_myoun.Rows(i - 1)("з") = StrCode2 End If '//Է ã 171219 Dim () As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code = '" + StrCode2 + "'") If .Length = 1 Then Dim As Integer = 0 If IsNumeric((0).ԷǼ) Then = CInt((0).ԷǼ) Else = 1 End If If > 1 Then Dim As Single = TOSG(DSET1.tbl_myoun.Rows(i - 1)("")) DSET1.tbl_myoun.Rows(i - 1)("") = * End If End If Next DSET1.tbl_myoun.AcceptChanges() End If If Not DSET2 Is Nothing Then For i As Integer = 1 To DSET2.tbl_myoun.Rows.Count If DSET2.tbl_myoun.Rows(i - 1).RowState = DataRowState.Deleted OrElse _ DSET2.tbl_myoun.Rows(i - 1).RowState = DataRowState.Detached Then Continue For End If Dim StrCode As String = DSET2.tbl_myoun.Rows(i - 1)("code").ToString If StrCode.Length = 4 Then DSET2.tbl_myoun.Rows(i - 1)("code") = "0" + StrCode End If Dim StrCode2 As String = DSET2.tbl_myoun.Rows(i - 1)("з").ToString If StrCode2.Length = 4 Then DSET2.tbl_myoun.Rows(i - 1)("з") = "0" + StrCode2 End If Next DSET2.tbl_myoun.AcceptChanges() End If RibbonButton17_Click_1(Nothing, Nothing) Frm_Work.Close() '//,Ȯ / 13-12-05 / arin Dim Drdesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0) If Drdesc.injungdate.Trim = "" Then Drdesc.injungdate = Now.ToString("yyyy-MM-dd") If Drdesc.jubsudate.Trim = "" Then Drdesc.jubsudate = Now.ToString("yyyy-MM-dd") If Drdesc.뵵Ա = "" Then Drdesc.뵵Ա = Now.ToString("yyyy-MM-dd") If Drdesc.reqdate = "" Then Drdesc.reqdate = Now.ToString("yyyy-MM-dd") If Drdesc.existdate = "" Then Drdesc.existdate = Now.ToString("yyyy-MM-dd") If Drdesc.ΰ = "" Then Drdesc.ΰ = "1" '//1==, 0==Ϲ Drdesc.buildarea = "010100" DSET1.tbl_Desc.AcceptChanges() validation() '//null '//θ ʹȵǴ θ ϸ ݴϴ. Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1) End If Return ext End Function Private Sub Set_Null(ByVal Columns() As String, ByRef dt As DataTable, ByVal val As String) For Each Dr As DataRow In dt.Select("code<>'0'", "code") For Each Col As String In Columns If Dr(Col).ToString.Trim = "" Then '//̾ ⺻(val) Dr(Col) = val End If Next Next End Sub Private Function validation() As Boolean '// 2̻־Ѵ (ͷؼ ݵ 1 ֱ⶧̴.) '//⺸Ͱճ׿.; Dim NoErr As Boolean = True '//޺ڽ Ǿմ ȮѴ. ־Ѵ Dim Title As String Dim Columns() As String '//()  ޺ʵ Dim ColumnC() As String '//ڵ ʵ Dim CGubun() As String '//ڵʵ а Dim Columnst() As String '//0  ޺ʵ '//ZONE Title = "Zone" Columns = New String() {"ó濭޽ý", "ɷ", "ġ", _ "ָ", "߰", "ܱó", _ "ó", "ó", _ "ϻ", "", "ΰ"} ColumnC = New String() {"ɷ", "ġ", _ "ָ", "߰", "ܱó"} ' '//ٸ 𸣴 ߿ ȮϽñ CGubun = New String() {"1023", "1022", _ "1002", "1002", "1054"} '//ڵִµ Ͻñ ̴ ٷϰ ƾմѴ. '//⿡ ڵ а 1009 ̷͵ ־ּ column 8־ cgubun 8 ˴ϴ. Columnst = New String() {"", "óóý", "곭", _ "", "ù", _ "갡", "óйý", _ "óйý", "ù", ""} Set_Null(Columns, DSET1.tbl_zone, "()") '//͸ ⺻ ִ±̱ µʹ аó Set_Null(ColumnC, DSET1.tbl_zone, "()") '//ڵ尪 ƿ ͸ ⺻ ִ±̱ µʹ аó 'Set_CheckCommon(ColumnC, DSET.tbl_zone, CGubun) '//̰Ŵ // ڵ ˻ϴºκ̿ Set_Null(Columnst, DSET1.tbl_zone, "0") Title = "" Columns = New String() {"", "", "¾翭", "", _ "ǹ", "¾翭ýǼ", "࿭ũġ", _ "¾籤", "¾籤", _ "¾籤", "¾籤Ÿ", _ "ȯ⼳ġ", "âũġ"} Set_Null(Columns, DSET1.tbl_new, "()") 'Set_Null(Columnst, DSET.tbl_bunbae, "0") Title = "йý" Columns = New String() {"ⱸ", "ǥġ", "", _ "", "ġ", _ "ġ", ""} Set_Null(Columns, DSET1.tbl_nbunbae, "()") 'Set_Null(Columnst, DSET.tbl_bunbae, "0") Title = "" Columns = New String() {"", "뿬", "", "Ϸ", _ "", "ܿ", "࿭ũ", _ "", "", "", _ "йý۹", "ȯ", "", _ "Ʈý", "Ῡ"} Columnst = New String() {"Ƚý"} Set_Null(Columns, DSET1.tbl_nanbangkiki, "()") Set_Null(Columnst, DSET1.tbl_nanbangkiki, "0") Title = "ù" Columns = New String() {"õ", "õ", "õ", _ "", "õ⼳ý", _ "õ⼳ý", "", _ "꿬", "뿬", "߽İǽijð", _ "߽ijð", "", "Ῡ"} Columnst = New String() {"¼", "Ƚý"} Set_Null(Columns, DSET1.tbl_nangbangkiki, "()") Set_Null(Columnst, DSET1.tbl_nangbangkiki, "0") Title = "Է¸" Columns = New String() {"", "ε", _ "εġ", "", "ε", _ "ε", "ε尢"} Columnst = New String() {"з", ""} Set_Null(Columns, DSET1.tbl_myoun, "()") Set_Null(Columnst, DSET1.tbl_myoun, "0") 'Title = "޽ý" 'Columns = New String() {"޽ý", "", "ٴڳ濭", _ ' "ٴڳ濭", "ٴڳ", "ٴڳ", "Ⳮ"} 'Columnst = New String() {"޻"} 'Set_Null(Columns, DSET1.tbl_kongkub, "()") 'Set_Null(Columnst, DSET1.tbl_kongkub, "0") Title = "ó" Columns = New String() {"", "ϰȥտ", "", "ܱù", "ȯ"} Set_Null(Columns, DSET1.tbl_kongjo, "()") 'Set_Null(Columnst, DSET.tbl_bunbae, "0") Title = "ùйý" Columns = New String() {"øŹ", ""} Columnst = New String() {"õ"} Set_Null(Columns, DSET1.tbl_bunbae, "()") Set_Null(Columnst, DSET1.tbl_bunbae, "0") '// ȯ For Each DR As DS.tbl_kongjoRow In DSET1.tbl_kongjo.Select("code<>'0'") DR.ȿ = DR.ȿ.Trim 'MsgBox(DR. & "==Ȱ : " & DR.ȿ & " = " & DR.ȿ.Length) If DR.ȿ.Trim = "" Then DR.ȿ = "Էġ" Next 'DSET.tbl_kongjo.AcceptChanges() DSET1.AcceptChanges() '//װ վ?cnrkehlsrp?߰Ȱ? For Each Dr As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'") '// ˻ (0) 'If Dr. = "0" And Dr.ù = "0" Then '//Ѵ 0ϰ '// ⼭ return false ع˴ϴ.'ٸ մٸ.. Ʊó.. 'Return False ó ó : : 'End If If Dr.ó = "ó" Then '// If Dr. = "0" OrElse Dr.ù = "0" Then MsgBox("Է Ŀ ϴ óⰡ ֽϴ.") Return False End If End If If Dr.ó = "" OrElse (Dr.ó = "ù" And Dr.ܱó = "") Then '// If Dr. = "0" Then MsgBox("Է Ŀ ϴ Ⱑ ֽϴ.") Return False End If End If If Dr.ó = "ù" OrElse (Dr.ó = "" And Dr.ܱó = "") Then '// If Dr.ù = "0" Then MsgBox("Է Ŀ ϴ ùⰡ ֽϴ.") Return False End If End If If Dr.ó = "ȯ" And Dr.ܱó = "" Then '// If Dr. = "0" OrElse Dr.ù = "0" Then MsgBox("Է ܱó óⰡ ֽϴ.") Return False End If End If Next '//⿡ FAlse ȯع.. Ի ʾƿ Ի Ǵ°̱ '//Ʊ Ͽ½ÿ ⸦ ȣմϴ. ٷ κ nul l ⺻ ó. Return NoErr End Function Private Sub RibbonButton17_Click_1(sender As System.Object, e As System.EventArgs) Handles RibbonButton17.Click '//171001 - ͺ For i As Integer = 1 To DSET1.tbl_kongjo.Rows.Count Dim As String = DSET1.tbl_kongjo.Rows(i - 1)("").ToString() If = "" OrElse = "0" Then DSET1.tbl_kongjo.Rows(i - 1)("") = 1 End If Next For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Rows Dim As String = dr.Ϸ If = "" OrElse = "0" Then dr.Ϸ = 1 End If '// 濡 Ǹ , , + Dim 濬 As Boolean = False Dim As Boolean = False For Each dr2 As DS.tbl_zoneRow In DSET1.tbl_zone.Rows If dr2.곭 <> "0" AndAlso dr2.곭 = dr.code Then 濬 = True 'Continue For End If If dr2. <> "0" AndAlso dr2. = dr.code Then = True ' Continue For End If Next If 濬 AndAlso Then dr. = "" ElseIf 濬 Then dr. = "" ElseIf Then dr. = "" End If If dr. <> "" Then dr. = TOSG(dr.) / 1000 End If If dr. = "Ʈ" Then dr.Ϸ = dr.Ʈ뷮 dr.뿬 = dr.Ʈ dr.ݺϷCOP = dr.Ʈ7 ElseIf dr..StartsWith("") Then dr.Ϸ = dr.ȯ dr.뿬 = "" ElseIf dr. = "⺸Ϸ" Then dr.뿬 = "" End If Next For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'") Dim As String = dr. If = "" OrElse = "0" Then dr. = 1 End If dr. = TOSG(dr.) If dr.õ = "" Then dr.뿬 = "" ElseIf dr.õ = "" Then If dr.꿬 = "ȭ" Then '//ʿ ElseIf dr.꿬 = "ܺο" Then '//ᵷڷãƼ ´. For Each dr3 As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Rows If dr3.code = dr.¼ Then dr.뿬 = dr3.뿬 End If Next End If ElseIf dr.õ = "(LNG)" Then dr.뿬 = "õ" ElseIf dr.õ = "ù" Then dr.뿬 = "ù" End If dr.ð = 0 dr.ü = 0 '//ü(ùй迡 ã´) For Each dr4 As DS.tbl_bunbaeRow In DSET1.tbl_bunbae.Select("code <> '0'") If dr.code = dr4.õ Then If dr4..LastIndexOf("ð") > 0 Then dr.ð = TOSG(dr4.) / 1000 Else dr.ü = TOSG(dr4.) / 1000 End If End If Next If dr.õ = "dzý" Then dr.õ = "Ʈ" End If If dr.ð = "" Then dr.ð = "0" End If If dr.ü = "" Then dr.ü = "0" End If '//ðž If dr.߽İǽijð = "߽" Then If dr.߽ijð = "" Then dr.߽İǽijð = "߽()" ElseIf dr.߽ijð = "" Then dr.߽İǽijð = "߽()" End If End If Next For Each dr As DS.tbl_kongjoRow In DSET1.tbl_kongjo.Select("code <> '0'") If dr.ȸ <> "" AndAlso dr.ȸ <> "0" Then dr.ȸ = TOSG(dr.ȸ) * 100 End If dr.ȸ_ù = TOSG(dr.ȸ_ù) * 100 If dr.ġ = "20" AndAlso dr.ġù = "26" Then dr. = "ȯ" End If Next '//߰ DSET1.tbl_light.Rows.Clear() For Each dr As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'") Dim newdr As DS.tbl_lightRow = DSET1.tbl_light.Newtbl_lightRow newdr.code = (DSET1.tbl_light.Rows.Count + 1).ToString("00000") newdr. = dr. newdr. = TOSG(dr.ԷǼ) newdr. = TOSG(dr.) * TOSG(dr.Էġ) newdr. = "" DSET1.tbl_light.Addtbl_lightRow(newdr) Next DSET1.tbl_light.AcceptChanges() '//dzܸ߰ 'DSET1.tbl_danmal.Rows.Clear() 'For Each dr As DS.tbl_kongkubRow In DSET1.tbl_kongkub.Select("code <> '0'") ' Dim newdr As DS.tbl_danmalRow = DSET1.tbl_danmal.Newtbl_danmalRow ' newdr. = dr. ' newdr. = TOSG(dr.Ҽdz) ' newdr. = "0" ' newdr.뷮 = "0" ' newdr.ҵ = TOSG(dr.Ҽdz) ' DSET1.tbl_danmal.Addtbl_danmalRow(newdr) 'Next 'DSET1.tbl_danmal.AcceptChanges() '//߰ DSET1.tbl_new_energy.Clear() DSET1.tbl_new_light.Clear() DSET1.tbl_new_ground.Clear() DSET1.tbl_new_.Clear() '// 'DSET1.tbl_common_od.Clear() 'DSET1.tbl_common_od.Merge(DSET1.tbl_common) Dim drDesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0) drDesc.buildm21 = "0" drDesc. = "" drDesc.buildarea = "010000" Dim As Double = 0 Dim õ As Double = 0 For Each dr As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0' and code <>'()'") += TOSG(dr.) õ += TOSG(dr.õp) * TOSG(dr.) Next drDesc.õ = (õ / ).ToString("N2") '//Է¸ For Each dr As DS.tbl_myounRow In DSET1.tbl_myoun.Select("code <> '0'") If dr.2 <> "" Then Dim dryk() As DS.tbl_ykRow = DSET1.tbl_yk.Select("code = '" + dr.2 + "'") If dryk.Length = 1 Then dr. = TOSG(dryk(0).) End If End If Next For Each dr As DS.tbl_newRow In DSET1.tbl_new.Select("code <> '0'") If dr. = "¾籤" Then Dim newdr1 As DS.tbl_new_lightRow = DSET1.tbl_new_light.Newtbl_new_lightRow newdr1.code = dr.code newdr1. = dr. newdr1.¾籤 = dr.¾籤 newdr1.¾籤 = dr.¾籤 newdr1.¾籤 = dr.¾籤 newdr1.¾籤Ÿ = dr.¾籤Ÿ newdr1.¾籤 = dr.¾籤.Replace(" ", "") newdr1.¾籤ȿ = TOSG(dr.¾籤ȿ) * 100 newdr1.¾籤뷮 = dr.¾籤뷮 DSET1.tbl_new_light.Addtbl_new_lightRow(newdr1) ElseIf dr. = "¾翭" Then Dim newdr1 As DS.tbl_new_energyRow = DSET1.tbl_new_energy.Newtbl_new_energyRow newdr1.code = dr.code newdr1. = dr. newdr1.¾翭 = dr.¾翭 newdr1.¾翭ýǼ = dr.¾翭ýǼ newdr1. = dr. newdr1.Ǹ = dr.Ǹ newdr1.ǹ = dr.ǹ newdr1.ȿ = dr.ȿ newdr1.ֶ = dr.ֶ newdr1.࿭ũü = dr.࿭ũü newdr1.࿭ũü = dr.࿭ũü newdr1.࿭ũġ = dr.࿭ũġ DSET1.tbl_new_energy.Addtbl_new_energyRow(newdr1) ElseIf dr. = "" Then Dim newdr1 As DS.tbl_new_Row = DSET1.tbl_new_.Newtbl_new_Row newdr1.code = dr.code newdr1. = dr. newdr1.ճó汸 = dr.ճó汸 newdr1.ɷ = dr.ɷ newdr1.ȿ = dr.ȿ newdr1.ȿ = dr.ȿ newdr1.ս = dr.ս '// ü , ù⿡ Ǿ üũѴ. Dim As Boolean = False Dim ù As Boolean = False For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code<>'0'") If dr.Ƚý = dr.code Then = True Exit For End If Next For Each drù As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code<>'0'") If drù.Ƚý = dr.code Then ù = True Exit For End If Next If AndAlso ù Then newdr1.ճó汸 = "ó" ElseIf Then newdr1.ճó汸 = "" ElseIf ù Then newdr1.ճó汸 = "ù" End If DSET1.tbl_new_.Addtbl_new_Row(newdr1) ElseIf dr. = "" Then Dim newdr1 As DS.tbl_new_groundRow = DSET1.tbl_new_ground.Newtbl_new_groundRow newdr1.code = dr.code newdr1. = dr. newdr1.ó汸 = dr.ó汸 newdr1.Ʈ뷮 = dr.Ʈ뷮 newdr1. = dr. newdr1.ɺ񳭹 = dr.ɺ񳭹 newdr1.ɺù = dr.ɺù newdr1.뷮1 = dr.뷮1 '// ü , ù⿡ Ǿ üũѴ. Dim As Boolean = False Dim ù As Boolean = False For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code<>'0'") If dr.Ƚý = dr.code Then = True Exit For End If Next For Each drù As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code<>'0'") If drù.Ƚý = dr.code Then ù = True Exit For End If Next If AndAlso ù Then newdr1.ó汸 = "ó" ElseIf Then newdr1.ó汸 = "" ElseIf ù Then newdr1.ó汸 = "ù" End If DSET1.tbl_new_ground.Addtbl_new_groundRow(newdr1) End If Next '//ٽñ DSET1.tbl_new.Clear() '//⺻ ϳ ߰ش. DSET1.tbl_new.Rows.Add(New String() {"0", "()"}) DSET1.tbl_new.AcceptChanges() '//͸ For Each dr As DS.tbl_new_energyRow In DSET1.tbl_new_energy.Rows Dim newdr As DS.tbl_newRow = DSET1.tbl_new.NewRow For Each c As DataColumn In DSET1.tbl_new_energy.Columns newdr(c.ColumnName) = dr(c.ColumnName) Next newdr. = "¾翭" newdr.ó汸 = newdr.¾翭 DSET1.tbl_new.Rows.Add(newdr) Next For Each dr As DS.tbl_new_groundRow In DSET1.tbl_new_ground.Rows Dim newdr As DS.tbl_newRow = DSET1.tbl_new.NewRow For Each c As DataColumn In DSET1.tbl_new_ground.Columns newdr(c.ColumnName) = dr(c.ColumnName) Next newdr. = "" DSET1.tbl_new.Rows.Add(newdr) Next For Each dr As DS.tbl_new_lightRow In DSET1.tbl_new_light.Rows Dim newdr As DS.tbl_newRow = DSET1.tbl_new.NewRow For Each c As DataColumn In DSET1.tbl_new_light.Columns newdr(c.ColumnName) = dr(c.ColumnName) Next newdr. = "¾籤" DSET1.tbl_new.Rows.Add(newdr) Next For Each dr As DS.tbl_new_Row In DSET1.tbl_new_.Rows Dim newdr As DS.tbl_newRow = DSET1.tbl_new.NewRow For Each c As DataColumn In DSET1.tbl_new_.Columns newdr(c.ColumnName) = dr(c.ColumnName) Next newdr. = "" DSET1.tbl_new.Rows.Add(newdr) Next DSET1.tbl_new.AcceptChanges() End Sub Private Sub RibbonButton22_Click_1(sender As System.Object, e As System.EventArgs) Handles RibbonButton22.Click Dim fd As New FolderBrowserDialog If fd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return Dim filecnt As Integer = 0 For Each file As String In System.IO.Directory.GetFiles(fd.SelectedPath, "*.tpl") Dim ext As String = Open_TPL(file) Dim fi As New System.IO.FileInfo(file) Dim newfil As String = fi.Directory.FullName + "\" + fi.Name.Replace(fi.Extension, "." + ext) Me.Func_Save_OD(newfil, False) filecnt += 1 Next MsgBox(filecnt.ToString() + " File") 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.Ͼ) Return End If Frm_Buha.ControlBox = True Frm_Buha.Show() End Sub Private Sub ExportCSV() Return '//̺Ͽ If Prj.Opened = False Then MsgBox("No File") Return End If If MsgBox("Export CSV?", MsgBoxStyle.YesNo, "Save") <> MsgBoxResult.Yes Then Return Dim fi As New System.IO.FileInfo(Prj.FileName) Dim path As String = fi.Directory.FullName + "\" + fi.Name.Replace(fi.Extension, "") If System.IO.Directory.Exists(path) = False Then System.IO.Directory.CreateDirectory(path) For i As Integer = 1 To DSET1.Tables.Count Dim dt As System.Data.DataTable = DSET1.Tables(i - 1) Dim file As String = path + "\" + dt.TableName + ".csv" Dim sb As New System.Text.StringBuilder For Each col As System.Data.DataColumn In dt.Columns sb.Append("," + col.ColumnName) Next sb.AppendLine() For j As Integer = 1 To dt.Rows.Count Dim sb2 As New System.Text.StringBuilder For k As Integer = 1 To dt.Columns.Count Dim val As String = dt.Rows(j - 1)(k - 1).ToString() If dt.Columns(k - 1).ColumnName.ToLower() = "code" AndAlso val = "0" Then sb2.Clear() Exit For Else sb2.Append("," + val.Replace(",", "_")) End If Next If sb2.Length > 0 Then sb.AppendLine(sb2.ToString()) Next System.IO.File.WriteAllText(file, sb.ToString(), System.Text.Encoding.UTF8) Next MsgBox("ok") Shell("explorer " + path, AppWinStyle.NormalFocus) End Sub End Class