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

2024y .

Browse Source
This commit is contained in:
ykh
2024-12-30 23:04:30 +09:00
parent c01051f024
commit 8f89991a09
45 changed files with 7567 additions and 1033 deletions
Download Patch File Download Diff File Expand all files Collapse all files

93
ArinWarev1/Forms_Input/Frm_NaengBang.Designer.vb generated
View File

@@ -26,8 +26,6 @@ Partial Class Frm_NaengBang
Dim Label215 As System.Windows.Forms.Label
Dim Label216 As System.Windows.Forms.Label
Dim Label1 As System.Windows.Forms.Label
Dim Label2 As System.Windows.Forms.Label
Dim Label3 As System.Windows.Forms.Label
Dim Label4 As System.Windows.Forms.Label
Dim Label5 As System.Windows.Forms.Label
Dim Label6 As System.Windows.Forms.Label
@@ -40,8 +38,10 @@ Partial Class Frm_NaengBang
Dim Label13 As System.Windows.Forms.Label
Dim Label14 As System.Windows.Forms.Label
Dim Label15 As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_NaengBang))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_NaengBang))
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.GroupBox18 = New System.Windows.Forms.GroupBox()
Me.Label17 = New System.Windows.Forms.Label()
Me.cmb_신재생 = New Eco2Ar.MyCmb()
@@ -80,6 +80,8 @@ Partial Class Frm_NaengBang
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.dv = New CEnergy.arindv()
Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
Me.lbl_count = New System.Windows.Forms.ToolStripLabel()
Me.bt_add = New System.Windows.Forms.ToolStripButton()
@@ -93,13 +95,9 @@ Partial Class Frm_NaengBang
Me.chk_개별기기적용 = New System.Windows.Forms.CheckBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Label215 = New System.Windows.Forms.Label()
Label216 = New System.Windows.Forms.Label()
Label1 = New System.Windows.Forms.Label()
Label2 = New System.Windows.Forms.Label()
Label3 = New System.Windows.Forms.Label()
Label4 = New System.Windows.Forms.Label()
Label5 = New System.Windows.Forms.Label()
Label6 = New System.Windows.Forms.Label()
@@ -165,27 +163,16 @@ Partial Class Frm_NaengBang
Label1.TabIndex = 0
Label1.Text = "냉동기 방식:"
'
'Label2
'
Label2.AutoSize = True
Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label2.Location = New System.Drawing.Point(8, 57)
Label2.Name = "Label2"
Label2.Size = New System.Drawing.Size(130, 12)
Label2.TabIndex = 2
Label2.Text = "냉동기 총 용량[kW]:"
'
'Label3
'
Label3.AutoSize = True
Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label3.Location = New System.Drawing.Point(8, 83)
Label3.Name = "Label3"
Label3.Size = New System.Drawing.Size(217, 12)
Label3.TabIndex = 4
Label3.Text = "정격냉열성능지수; 열성능비(COP):"
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label3.Location = New System.Drawing.Point(8, 83)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(217, 12)
Me.Label3.TabIndex = 4
Me.Label3.Text = "정격냉열성능지수; 열성능비(COP):"
'
'Label4
'
@@ -319,6 +306,18 @@ Partial Class Frm_NaengBang
Label15.TabIndex = 165
Label15.Text = "0. 열생산 연결방식"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.Label2.Font = New System.Drawing.Font("돋움", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Blue
Me.Label2.Location = New System.Drawing.Point(8, 57)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(130, 12)
Me.Label2.TabIndex = 2
Me.Label2.Text = "냉동기 총 용량[kW]:"
'
'GroupBox18
'
Me.GroupBox18.BackColor = System.Drawing.Color.White
@@ -404,9 +403,9 @@ Partial Class Frm_NaengBang
Me.GroupBox11.Controls.Add(Me.Label9)
Me.GroupBox11.Controls.Add(Label1)
Me.GroupBox11.Controls.Add(Me.열성능비NTb)
Me.GroupBox11.Controls.Add(Label2)
Me.GroupBox11.Controls.Add(Me.Label2)
Me.GroupBox11.Controls.Add(Me.냉동기용량NTb)
Me.GroupBox11.Controls.Add(Label3)
Me.GroupBox11.Controls.Add(Me.Label3)
Me.GroupBox11.Controls.Add(Me.냉동기방식ComboBox)
Me.GroupBox11.Controls.Add(Me.PictureBox1)
Me.GroupBox11.Location = New System.Drawing.Point(6, 50)
@@ -778,6 +777,24 @@ Partial Class Frm_NaengBang
Me.dv.Size = New System.Drawing.Size(185, 532)
Me.dv.TabIndex = 0
'
'sortkey
'
Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.sortkey.DataPropertyName = "sortkey"
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
Me.sortkey.HeaderText = "▼"
Me.sortkey.Name = "sortkey"
Me.sortkey.Width = 30
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
Me.DataGridViewTextBoxColumn1.HeaderText = "설명"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
'
'bn
'
Me.bn.AddNewItem = Nothing
@@ -904,24 +921,6 @@ Partial Class Frm_NaengBang
Me.PictureBox4.TabIndex = 167
Me.PictureBox4.TabStop = False
'
'sortkey
'
Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.sortkey.DataPropertyName = "sortkey"
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
Me.sortkey.HeaderText = "▼"
Me.sortkey.Name = "sortkey"
Me.sortkey.Width = 30
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
Me.DataGridViewTextBoxColumn1.HeaderText = "설명"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
'
'Frm_NaengBang
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -1014,4 +1013,6 @@ Partial Class Frm_NaengBang
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
End Class

6
ArinWarev1/Forms_Input/Frm_NaengBang.resx
View File

@@ -126,12 +126,6 @@
<metadata name="Label1.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label4.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>

87
ArinWarev1/Forms_Input/Frm_NaengBang.vb
View File

@@ -821,4 +821,91 @@ Public Class Frm_NaengBang
MsgBox("개별기기와 헤더가 모두 체크되었습니다. 둘 중 하나만 체크하시기 바랍니다.", MsgBoxStyle.Information, "확인")
End If
End Sub
Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click
If DSET1.tbl_Desc.Rows.Count < 1 Then
MsgboxE("건물개요가 없습니다")
Return
End If
Dim drdesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
Dim 주거형태 As String = drdesc.isjugo
If 주거형태 <> "2" Then
'MsgBox("주거용건축물만 사용 가능 합니다")
Return
End If
'//zone list
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & drv("code").ToString & "'") '//2010.12.02 수정
If DR.Length < 1 Then
MsgBox("연결된 존이 없습니다")
Return
End If
Dim 전용면적 As Decimal = 0
For Each drz As DS.tbl_zoneRow In DR
If 전용면적 = 0 Then
전용면적 = drz.면적
Else
If 전용면적 <> drz.면적 Then
MsgBox("동일하지 않는 면적이 있습니다")
Return
End If
End If
Next
Dim newvalue As Decimal = Math.Round(0.1801 * 전용면적, 3)
If MsgBox("전용면적(" + 전용면적.ToString() + ") * 0.1801 = " + newvalue.ToString() + vbCrLf + _
"냉방효율 : 2.894" + vbCrLf + _
"압축식, 실내공조시스템, 멀티분리시스템, on/off제어", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
열성능비NTb.Text = "2.894"
냉동기용량NTb.Text = newvalue 'Math.Round(0.1801 * 전용면적, 3)
냉동기방식ComboBox.Text = "압축식"
냉동기종류ComboBox.Text = "실내공조시스템"
냉동기설비시스템ComboBox.Text = "멀티분리시스템"
제어방식ComboBox.Text = "on/off제어"
'압축식/실내공조시스템
'실내기 및 제어방식
'멀티분리시스템/ON‧OFF제어
End If
End Sub
Private Sub Frm_NaengBang_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
If DSET1.tbl_Desc.Rows.Count < 1 Then
'MsgboxE("건물개요가 없습니다")
Return
End If
Dim dr As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
Dim 주거형태 As String = dr.isjugo
If 주거형태 <> "2" Then
Me.Label2.ForeColor = SystemColors.ControlDarkDark
Me.Label2.Font = Me.Font
' Me.Label3.ForeColor = SystemColors.ControlDarkDark
' Me.Label3.Font = Me.Font
'Else
Me.Label2.ForeColor = Color.Blue
Me.Label2.Font = New Font(Me.Font.Name, Me.Font.Size, FontStyle.Underline)
'Me.Label3.ForeColor = Color.Blue
'Me.Label3.Font = New Font(Me.Font.Name, Me.Font.Size, FontStyle.Underline)
End If
End Sub
Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click
End Sub
End Class

97
ArinWarev1/Forms_Input/Frm_New.Designer.vb generated
View File

@@ -75,6 +75,7 @@ Partial Class Frm_New
Dim Label2 As System.Windows.Forms.Label
Dim Label46 As System.Windows.Forms.Label
Dim Label47 As System.Windows.Forms.Label
Dim Label48 As System.Windows.Forms.Label
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.NTb1 = New Eco2Ar.MyTb()
@@ -82,6 +83,8 @@ Partial Class Frm_New
Me.Panel6 = New System.Windows.Forms.Panel()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.dv = New CEnergy.arindv()
Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New Eco2Ar.DS()
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
@@ -128,6 +131,7 @@ Partial Class Frm_New
Me.tb_모듈효율 = New Eco2Ar.MyTb()
Me.tb_모듈면적 = New Eco2Ar.MyTb()
Me.열병합Panel = New System.Windows.Forms.Panel()
Me.MyTb9 = New Eco2Ar.MyTb()
Me.chk_개별기기적용 = New System.Windows.Forms.CheckBox()
Me.tb_열생산능력 = New Eco2Ar.MyTb()
Me.tb_열생산효율 = New Eco2Ar.MyTb()
@@ -158,8 +162,6 @@ Partial Class Frm_New
Me.Label164 = New System.Windows.Forms.Label()
Me.cmb_가동연료 = New Eco2Ar.MyCmb()
Me.NTb3 = New Eco2Ar.MyTb()
Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Label33 = New System.Windows.Forms.Label()
Label25 = New System.Windows.Forms.Label()
Label26 = New System.Windows.Forms.Label()
@@ -213,6 +215,7 @@ Partial Class Frm_New
Label2 = New System.Windows.Forms.Label()
Label46 = New System.Windows.Forms.Label()
Label47 = New System.Windows.Forms.Label()
Label48 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
Me.Panel6.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -512,17 +515,17 @@ Partial Class Frm_New
'
Label459.AutoSize = True
Label459.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label459.Location = New System.Drawing.Point(10, 50)
Label459.Location = New System.Drawing.Point(4, 50)
Label459.Name = "Label459"
Label459.Size = New System.Drawing.Size(106, 12)
Label459.Size = New System.Drawing.Size(101, 12)
Label459.TabIndex = 74
Label459.Text = "열생산 효율[%]:"
Label459.Text = "열생산효율[%]:"
'
'Label457
'
Label457.AutoSize = True
Label457.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label457.Location = New System.Drawing.Point(10, 73)
Label457.Location = New System.Drawing.Point(4, 73)
Label457.Name = "Label457"
Label457.Size = New System.Drawing.Size(93, 12)
Label457.TabIndex = 75
@@ -548,11 +551,11 @@ Partial Class Frm_New
'
Label458.AutoSize = True
Label458.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label458.Location = New System.Drawing.Point(10, 28)
Label458.Location = New System.Drawing.Point(4, 28)
Label458.Name = "Label458"
Label458.Size = New System.Drawing.Size(112, 12)
Label458.Size = New System.Drawing.Size(107, 12)
Label458.TabIndex = 73
Label458.Text = "열생산 능력[kW]:"
Label458.Text = "열생산능력[kW]:"
'
'Label35
'
@@ -764,6 +767,16 @@ Partial Class Frm_New
Label47.TabIndex = 158
Label47.Text = "35도:"
'
'Label48
'
Label48.AutoSize = True
Label48.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label48.Location = New System.Drawing.Point(168, 50)
Label48.Name = "Label48"
Label48.Size = New System.Drawing.Size(109, 12)
Label48.TabIndex = 174
Label48.Text = "외부공급비율[%]"
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.AutoScroll = True
@@ -873,6 +886,24 @@ Partial Class Frm_New
Me.dv.Size = New System.Drawing.Size(210, 535)
Me.dv.TabIndex = 0
'
'sortkey
'
Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.sortkey.DataPropertyName = "sortkey"
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
Me.sortkey.HeaderText = "▼"
Me.sortkey.Name = "sortkey"
Me.sortkey.Width = 30
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
Me.DataGridViewTextBoxColumn1.HeaderText = "설명"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
'
'bs
'
Me.bs.DataMember = "tbl_new"
@@ -1393,6 +1424,8 @@ Partial Class Frm_New
'
Me.열병합Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.열병합Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.열병합Panel.Controls.Add(Label48)
Me.열병합Panel.Controls.Add(Me.MyTb9)
Me.열병합Panel.Controls.Add(Me.chk_개별기기적용)
Me.열병합Panel.Controls.Add(Label5)
Me.열병합Panel.Controls.Add(Label459)
@@ -1408,12 +1441,23 @@ Partial Class Frm_New
Me.열병합Panel.Size = New System.Drawing.Size(279, 96)
Me.열병합Panel.TabIndex = 145
'
'MyTb9
'
Me.MyTb9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "외부공급비율", True))
Me.MyTb9.Location = New System.Drawing.Point(194, 70)
Me.MyTb9.Name = "MyTb9"
Me.MyTb9.NectControl = Nothing
Me.MyTb9.Size = New System.Drawing.Size(55, 21)
Me.MyTb9.TabIndex = 173
Me.MyTb9.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.MyTb9.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'chk_개별기기적용
'
Me.chk_개별기기적용.AutoSize = True
Me.chk_개별기기적용.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "열병합신재생여부", True))
Me.chk_개별기기적용.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.chk_개별기기적용.Location = New System.Drawing.Point(150, 4)
Me.chk_개별기기적용.Location = New System.Drawing.Point(162, 5)
Me.chk_개별기기적용.Name = "chk_개별기기적용"
Me.chk_개별기기적용.Size = New System.Drawing.Size(120, 16)
Me.chk_개별기기적용.TabIndex = 172
@@ -1424,10 +1468,10 @@ Partial Class Frm_New
'tb_열생산능력
'
Me.tb_열생산능력.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열생산능력", True))
Me.tb_열생산능력.Location = New System.Drawing.Point(165, 25)
Me.tb_열생산능력.Location = New System.Drawing.Point(108, 25)
Me.tb_열생산능력.Name = "tb_열생산능력"
Me.tb_열생산능력.NectControl = Nothing
Me.tb_열생산능력.Size = New System.Drawing.Size(94, 21)
Me.tb_열생산능력.Size = New System.Drawing.Size(60, 21)
Me.tb_열생산능력.TabIndex = 13
Me.tb_열생산능력.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.tb_열생산능력.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
@@ -1435,10 +1479,10 @@ Partial Class Frm_New
'tb_열생산효율
'
Me.tb_열생산효율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열생산효율", True))
Me.tb_열생산효율.Location = New System.Drawing.Point(165, 47)
Me.tb_열생산효율.Location = New System.Drawing.Point(108, 47)
Me.tb_열생산효율.Name = "tb_열생산효율"
Me.tb_열생산효율.NectControl = Nothing
Me.tb_열생산효율.Size = New System.Drawing.Size(94, 21)
Me.tb_열생산효율.Size = New System.Drawing.Size(60, 21)
Me.tb_열생산효율.TabIndex = 14
Me.tb_열생산효율.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.tb_열생산효율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
@@ -1446,10 +1490,10 @@ Partial Class Frm_New
'tb_발전효율
'
Me.tb_발전효율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "발전효율", True))
Me.tb_발전효율.Location = New System.Drawing.Point(165, 70)
Me.tb_발전효율.Location = New System.Drawing.Point(108, 70)
Me.tb_발전효율.Name = "tb_발전효율"
Me.tb_발전효율.NectControl = Nothing
Me.tb_발전효율.Size = New System.Drawing.Size(94, 21)
Me.tb_발전효율.Size = New System.Drawing.Size(60, 21)
Me.tb_발전효율.TabIndex = 15
Me.tb_발전효율.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.tb_발전효율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
@@ -1702,7 +1746,7 @@ Partial Class Frm_New
Me.기기종류ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "기기종류", True))
Me.기기종류ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.기기종류ComboBox.FormattingEnabled = True
Me.기기종류ComboBox.Items.AddRange(New Object() {"(없음)", "태양열", "태양광", "지열", "열병합", "풍력", "수열"})
Me.기기종류ComboBox.Items.AddRange(New Object() {"(없음)", "태양열", "태양광", "지열", "열병합", "풍력", "수열", "외부신재생"})
Me.기기종류ComboBox.Location = New System.Drawing.Point(146, 10)
Me.기기종류ComboBox.Name = "기기종류ComboBox"
Me.기기종류ComboBox.NectControl = Nothing
@@ -1763,24 +1807,6 @@ Partial Class Frm_New
Me.NTb3.TabIndex = 59
Me.NTb3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'sortkey
'
Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.sortkey.DataPropertyName = "sortkey"
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
Me.sortkey.HeaderText = "▼"
Me.sortkey.Name = "sortkey"
Me.sortkey.Width = 30
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
Me.DataGridViewTextBoxColumn1.HeaderText = "설명"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
'
'Frm_New
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -1912,4 +1938,5 @@ Partial Class Frm_New
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents MyTb9 As Eco2Ar.MyTb
End Class

3
ArinWarev1/Forms_Input/Frm_New.resx
View File

@@ -276,6 +276,9 @@
<metadata name="Label47.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label48.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>

6
ArinWarev1/Forms_Input/Frm_New.vb
View File

@@ -936,4 +936,10 @@
End Sub
Private Sub chk_개별기기적용_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chk_개별기기적용.CheckedChanged
MyTb9.Enabled = chk_개별기기적용.Checked
If chk_개별기기적용.Checked = False Then
MyTb9.Text = "0"
End If
End Sub
End Class

46
ArinWarev1/Forms_Input/Frm_Zone.vb
View File

@@ -207,6 +207,12 @@
Private Sub Binding_Zone()
Dim bs_cmb_profile As New BindingSource(DSET1, "tbl_profile")
bs_cmb_profile.Sort = "code"
If Prj.UserAuthType_Real.StartsWith("BOTH_C") = False Then
bs_cmb_profile.Filter = "code <> '9999'"
Else
bs_cmb_profile.Filter = ""
End If
cmb_profile.DataSource = bs_cmb_profile
cmb_profile.DisplayMember = "설명"
cmb_profile.ValueMember = "code"
@@ -968,28 +974,32 @@
Private Sub Show_면적존수합()
'//현재 존의 면적의 합(?)
Dim 면적합 As Decimal = 0
Dim 존수합 As Integer = 0
Dim 면적 As Decimal = 0
'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
Dim 값 As Tuple(Of Decimal, Int32) = Pub.면적존수합()
Dim 면적합 As Decimal = 값.Item1
Dim 존수합 As Int32 = 값.Item2
존수합 += 존수
If IsNumeric(dr존.면적) Then
면적 = dr존.면적 * 존수
Else
면적 = 0
End If
'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
' 면적합 = 면적합 + 면적
'Next
Me.lb_면적합.Text = Format(면적합, "##,###,###.#####").ToString
Me.lb_전체존수.Text = Format(존수합, "#,###,###").ToString
End Sub

1146
ArinWarev1/Forms_Input/Frm_custom_profile.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

201
ArinWarev1/Forms_Input/Frm_custom_profile.resx Normal file
View File

@@ -0,0 +1,201 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Label43.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label44.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label55.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label58.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label59.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label56.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label57.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label37.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label27.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label28.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label1.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label30.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label4.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label34.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label35.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label5.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label6.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label38.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label8.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>222, 17</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>222, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>370, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>370, 17</value>
</metadata>
<metadata name="bn_all.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>40</value>
</metadata>
</root>

470
ArinWarev1/Forms_Input/Frm_custom_profile.vb Normal file
View File

@@ -0,0 +1,470 @@
Public Class Frm_custom_profile
Dim Init As Boolean = False
Dim SrcDrv As DataRowView
Public Sub New(_opentime)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
OpenTime = _opentime
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Return BaseDS.Tables(bs.DataMember)
End Function
#End Region
Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
Dim oval As String = e.Row(e.Column.ColumnName).ToString
Dim nval As String = e.ProposedValue.ToString
If oval <> nval Then
Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow
newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss")
newdr.tablename = "tbl_profile"
newdr.ovalue = oval
newdr.nvalue = nval
newdr.column = e.Column.ColumnName
newdr.code = e.Row("code").ToString
DSHistory.history.AddhistoryRow(newdr)
DSHistory.history.AcceptChanges()
End If
End Sub
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
My.Application.DoEvents()
'Work_msg_timer("잠시만 기다려주세요")
'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me)
'//공유데이터셋에 연결한다.
Me.bs.DataSource = DSET1
If DSET1.tbl_profile.Select("code='9999'").Length = 0 Then
Dim newdr As DS.tbl_profileRow = DSET1.tbl_profile.Newtbl_profileRow()
newdr.code = "9999"
newdr.설명 = "커스텀프로필"
Dim code2 As DS.tbl_profileRow = DSET1.tbl_profile.Select("code='0002'")(0)
For Each col As DataColumn In DSET1.tbl_profile.Columns
If col.ColumnName.ToLower() = "code" Then Continue For
If col.ColumnName.ToLower() = "설명" Then Continue For
newdr(col.ColumnName) = code2(col.ColumnName)
Next
newdr.EndEdit()
DSET1.tbl_profile.Addtbl_profileRow(newdr)
End If
AddHandler DSET1.tbl_profile.TableNewRow, AddressOf AddNewDataRow_Profile
AddHandler DSET1.tbl_profile.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
'//모든컨트롤의 cTrl_enter 를 추가합니다
BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection))
Me.Init = True
Try
Dim lastpos As Integer = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
If lastpos < Me.bs.Count Then
Me.bs.Position = lastpos 'CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
ElseIf Me.bs.Count > 0 Then
Me.bs.Position = 0
End If
Catch ex As Exception
Me.bs.MoveFirst()
End Try
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH2" Then '//2010.11.22 추가
Me.SplitContainer1.Panel2.Enabled = True
Me.bn_all.Visible = True
ElseIf Prj.UserAuthType_Real.StartsWith("BOTH_C") Then ' = "ADMIN" OrElse Prj.UserAuthType = "BOTH2" Then
Me.SplitContainer1.Panel2.Enabled = True
Me.bn_all.Visible = True
Else
Me.SplitContainer1.Panel2.Enabled = False
Me.bn_all.Visible = False
End If
If System.Diagnostics.Debugger.IsAttached Then
Me.bn_all.Visible = True
Me.SplitContainer1.Panel2.Enabled = True
MsgboxI("debug mode panel2 open")
End If
AddDebug("▲ Form Load")
End Sub
#Region "Control_Enter"
Private Sub BindProperty(ByVal Ctl As Control.ControlCollection)
For Each C As Control In Ctl
If C.Controls.Count > 1 Then
BindProperty(C.Controls)
Else
If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then
AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown
ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then
AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown
End If
End If
Next
End Sub
Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField)
For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyTb).Text
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField)
For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyCmb).SelectedValue
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
#End Region
#Region "기본"
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
End Sub
Private Sub AddNewDataRow_Profile(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("code") = GetMaxCode(DSET1.tbl_profile)
End Sub
Private Function GetMaxCode(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
#Region "제어버튼"
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
If Not EndEdit(Me.bs) Then Return
Me.bs.AddNew()
INitRow(Me.Controls)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click
Dbbase.DelCrow(Me.bs, True)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
If Not EndEdit(Me.bs) Then Return
Data_Cancel(DSET1.tbl_profile, Nothing)
MdiMain.RefreshMenuList(TreeTag)
End Sub
#End Region
Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta < 0 Then
If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1
Else
If Me.bs.Position > 0 Then Me.bs.Position -= 1
End If
Me.Validate()
My.Application.DoEvents()
End Sub
#End Region
Private Sub 사용시작시간NTb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_t1.GotFocus
CType(sender, TextBox).SelectAll()
End Sub
Private Sub tb_t1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_t1.KeyDown
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = True
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) <> 59 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_add.PerformClick() '//한줄추가
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0
CType(Me.bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim
Case 0 + 1
Me.tb_일급탕요구량.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 1 + 1 '//공란
Case 2 + 1 '//면적
Me.tb_t1.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 3 + 1
Me.tb_t2.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 4 + 1
Me.tb_t3.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5 + 1
Me.tb_t4.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6 + 1
Me.tb_t5.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 7 + 1
'Me.tb_t6.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8 + 1
' Me.tb_t7.Text = CB(i).Trim
Case 9
' Me.tb_t8.Text = CB(i).Trim
Case 10
' Me.tb_t9.Text = CB(i).Trim
Case 11
' Me.tb_t10.Text = CB(i).Trim
Case 12
' Me.tb_공냉난시간.Text = CB(i).Trim
Case 13 + 1
Case 14 + 1
Case 15 '//요구조도
' Me.tb_t12.Text = CB(i).Trim
Case 16
'Me.tb_t13.Text = CB(i).Trim
Case 17
'Me.tb_t14.Text = CB(i).Trim
Case 18
'Me.tb_t15.Text = CB(i).Trim
Case 19
'Me.tb_t16.Text = CB(i).Trim
Case 20 '//부분운전계수
'Me.tb_t17.Text = CB(i).Trim
Case 21
Case 22
Case 23 + 1 '//최소도입외기량
Me.tb_t18.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 24
' Me.tb_t19.Text = CB(i).Trim
Case 25
Case 26
Case 27 + 1
Me.tb_t20.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 28 + 1 '//작업보조기기
Me.tb_t21.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 29
Case 30
Case 31 + 1 '//실내공기온도
'Me.TabControl11.SelectedIndex = 1
'Me.tB_t22.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 32 + 1
'Me.tb_t23.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 33 + 1
'Me.tb_t24.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 34 + 1
'Me.tb_t25.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 35 + 1
' Me.tb_t26.Text = CB(i).Trim
Case 36 '//최소설정온도 냉방
'Me.tb_t27.Text = CB(i).Trim
Case 37
Case 38
Case 39
' Me.tb_t28.Text = CB(i).Trim
Case 40
'Me.tb_t29.Text = CB(i).Trim
Case 41
' Me.tb_t30.Text = CB(i).Trim
Case 42
' Me.tb_t31.Text = CB(i).Trim
Case 43
' Me.tb_t32.Text = CB(i).Trim
Case 44
Case 45
Case 46
Case 40 + 7 + 1
Me.tb_tm1.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 41 + 7 + 1
Me.tb_tm2.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 42 + 7 + 1
Me.tb_tm3.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 43 + 7 + 1
Me.tb_tm4.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 44 + 7 + 1
Me.tb_tm5.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 45 + 7 + 1
Me.tb_tm6.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 46 + 7 + 1
Me.tb_tm7.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 47 + 7 + 1
Me.tb_tm8.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 48 + 7 + 1
Me.tb_tm9.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 49 + 7 + 1
Me.tB_tm10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 50 + 7 + 1
Me.tb_tm11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 51 + 7 + 1
Me.tb_tm12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
If bs.Position < bs.Count Then bs.Position += 1 '//위치이동
Next
Me.bs.EndEdit()
End If
End If
End Sub
Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.Button = Windows.Forms.MouseButtons.Right Then
If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then
Dim dR() As DataRow = DSET1.tbl_profile.Select(Me.bs.Filter, "")
For i As Integer = dR.GetUpperBound(0) To 0 Step -1
dR(i).Delete()
Next
DSET1.tbl_profile.AcceptChanges()
End If
End If
End If
End Sub
Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim Frm_FilterA As New Frm_Filter
Frm_FilterA.ColumTitle = getColCaption(Me.DT)
Frm_FilterA.ColumList = getColName(Me.DT)
Frm_FilterA.Colorlist = ""
If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요.
Try
Me.bs.Filter = Filter
Catch ex As Exception
Me.bs.Filter = ""
End Try
End If
End If
End Sub
Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown
'//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
Select Case e.KeyCode
Case Keys.D
If e.Alt Then
Dbbase.DelCrow(Me.bs, False)
End If
Case Keys.C
If e.Control Then
Me.SrcDrv = Me.bs.Current
If Me.SrcDrv Is Nothing Then
MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인")
Return
End If
' My.Computer.Clipboard.SetData("ZDATA", Drv)
End If
Case Keys.V
If e.Control Then
If Me.SrcDrv Is Nothing Then Return
Me.bt_add.PerformClick() '//신규추가
Dim NewDrv As DataRowView = Me.bs.Current
For Each C As DataColumn In Me.DT.Columns
If C.ColumnName.ToUpper = "CODE" Then
ElseIf C.ColumnName.ToUpper = "설명" Then
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1"
Else
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName)
End If
Next
Me.bs.EndEdit()
bs.MoveLast()
End If
End Select
End If
End Sub
Private Sub Frm_V20091231_Profile_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
Select Case e.KeyCode
Case Keys.F12
ShowHistory()
End Select
End Sub
Private Sub ShowHistory()
Dim drv As DataRowView = Me.bs.Current
Dim f As New Frm_History("tbl_profile", drv("code").ToString)
If f.ShowDialog = DialogResult.OK Then
drv(f.colname) = f.val
Me.Validate()
Me.bs.EndEdit()
My.Application.DoEvents()
MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인")
End If
End Sub
End Class

2
ArinWarev1/Forms_Input/Frm_v20091231_Myoun.Designer.vb generated
View File

@@ -488,7 +488,7 @@ Partial Class Frm_V20091231_Myoun
'lbl_pos
'
Me.lbl_pos.Name = "lbl_pos"
Me.lbl_pos.Size = New System.Drawing.Size(12, 12)
Me.lbl_pos.Size = New System.Drawing.Size(12, 32)
Me.lbl_pos.Text = "0"
'
'Arindv1

16
ArinWarev1/Forms_Input/Frm_v20091231_profile.Designer.vb generated
View File

@@ -50,6 +50,7 @@ Partial Class Frm_V20091231_Profile
Dim Label38 As System.Windows.Forms.Label
Dim Label8 As System.Windows.Forms.Label
Me.dv = New CEnergy.arindv()
Me.설명DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New Eco2Ar.DS()
Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components)
@@ -111,7 +112,6 @@ Partial Class Frm_V20091231_Profile
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.NTb2 = New Eco2Ar.MyTb()
Me.설명DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Label43 = New System.Windows.Forms.Label()
Label44 = New System.Windows.Forms.Label()
Label55 = New System.Windows.Forms.Label()
@@ -462,6 +462,13 @@ Partial Class Frm_V20091231_Profile
Me.dv.Size = New System.Drawing.Size(210, 489)
Me.dv.TabIndex = 0
'
'설명DataGridViewTextBoxColumn
'
Me.설명DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.설명DataGridViewTextBoxColumn.DataPropertyName = "설명"
Me.설명DataGridViewTextBoxColumn.HeaderText = "설명"
Me.설명DataGridViewTextBoxColumn.Name = "설명DataGridViewTextBoxColumn"
'
'bs
'
Me.bs.DataMember = "tbl_profile"
@@ -1190,13 +1197,6 @@ Partial Class Frm_V20091231_Profile
Me.NTb2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.NTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'설명DataGridViewTextBoxColumn
'
Me.설명DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.설명DataGridViewTextBoxColumn.DataPropertyName = "설명"
Me.설명DataGridViewTextBoxColumn.HeaderText = "설명"
Me.설명DataGridViewTextBoxColumn.Name = "설명DataGridViewTextBoxColumn"
'
'Frm_V20091231_Profile
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None