initial commit
This commit is contained in:
raytrace
BIN
ArinWarev1/002.ico
Normal file
BIN
ArinWarev1/002.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 345 KiB |
BIN
ArinWarev1/002_S.ico
Normal file
BIN
ArinWarev1/002_S.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
ArinWarev1/9-8.ico
Normal file
BIN
ArinWarev1/9-8.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 46 KiB |
36
ArinWarev1/ApplicationEvents.vb
Normal file
36
ArinWarev1/ApplicationEvents.vb
Normal file
@@ -0,0 +1,36 @@
|
||||
Namespace My
|
||||
|
||||
Class MyApplication
|
||||
|
||||
'Startup: Raised when the application starts, before the startup form is created.
|
||||
'Shutdown: Raised after all application forms are closed. This event is not raised if the application is terminating abnormally.
|
||||
'UnhandledException: Raised if the application encounters an unhandled exception.
|
||||
'StartupNextInstance: Raised when launching a single-instance application and the application is already active.
|
||||
'NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
|
||||
|
||||
''' <summary>
|
||||
''' Update the network connectivity status on the main form each time the connection status changes.
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Include logic here that should be performed before any forms are loaded
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Update the status strip to denote the current network connection status
|
||||
''' </summary>
|
||||
''' <param name="connected"></param>
|
||||
''' <remarks></remarks>
|
||||
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
866
ArinWarev1/Calculator-OD/AirHandling/CAirHandling.vb
Normal file
866
ArinWarev1/Calculator-OD/AirHandling/CAirHandling.vb
Normal file
@@ -0,0 +1,866 @@
|
||||
Public Class CAirHandlingOD
|
||||
|
||||
Dim T As String = "공조기기"
|
||||
|
||||
''' <summary>
|
||||
''' 최대냉/난반후하 계산식인거 같다.
|
||||
''' </summary>
|
||||
''' <param name="i_HeatCool"></param>
|
||||
''' <remarks></remarks>
|
||||
Public Overridable Sub Calc_Max_Power(ByVal i_HeatCool As Integer)
|
||||
'Dim i_count_zone As Integer, i_count_AHU As Integer, i_count_profile As Integer
|
||||
Dim c_p_L As Decimal, rho_L As Decimal
|
||||
Dim theta_i_c As Decimal, theta_ABL_wi As Decimal, theta_ABL_so As Decimal, theta_AUL_wi As Decimal, theta_AUL_so As Decimal, theta_ZUL_wi As Decimal, theta_ZUL_so As Decimal
|
||||
Dim x_ABL_wi As Decimal, x_ABL_so As Decimal, x_AUL_wi As Decimal, x_AUL_so As Decimal, x_ZUL_so As Decimal
|
||||
Dim h_ABL_wi As Decimal, h_ABL_so As Decimal, h_AUL_wi As Decimal, h_AUL_so As Decimal, h_ZUL_wi As Decimal, h_ZUL_so As Decimal
|
||||
Dim Delta_h_WRG As Decimal, V_dot_mech_m As Decimal, V_dot_star As Decimal, theta_c_mech_min As Decimal, ps_theta_ZUL_so As Decimal
|
||||
Dim Q_dot_h_star As Decimal, Q_dot_c_star As Decimal, Q_dot_st_star As Decimal
|
||||
Dim Q_dot_h_max As Decimal, Q_dot_c_max As Decimal
|
||||
Dim theta_e_min As Decimal, theta_e_max As Decimal, V_A As Decimal, theta_i_h As Decimal, theta_i_c_soll As Decimal
|
||||
Dim A_B As Decimal, c_p_Lrho_L As Decimal
|
||||
|
||||
|
||||
theta_i_c = 24
|
||||
theta_i_c_soll = 26
|
||||
theta_i_h = 20
|
||||
c_p_L = 1.006 'kJ/kg K
|
||||
rho_L = 1.204 'kg/m3 (20도 1기압상태)
|
||||
c_p_Lrho_L = 0.34 'Wh/m3 K
|
||||
theta_ABL_wi = 22
|
||||
x_ABL_wi = 0.008 '편차가 없는 습도요구 적용
|
||||
h_ABL_wi = 42.6 '편차가 없는 습도요구 적용
|
||||
theta_ABL_so = 26
|
||||
x_ABL_so = 0.008 '편차가 없는 습도요구 적용
|
||||
h_ABL_so = 46.7 '편차가 없는 습도요구 적용
|
||||
theta_AUL_wi = -12
|
||||
x_AUL_wi = 0.001
|
||||
h_AUL_wi = -9.6
|
||||
theta_AUL_so = 32
|
||||
x_AUL_so = 0.012
|
||||
h_AUL_so = 63
|
||||
theta_e_min = -11.3
|
||||
theta_e_max = 31.5
|
||||
|
||||
|
||||
'Dim dr공조처리 As DS.tbl_kongjoRow
|
||||
|
||||
For Each Dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code<>'0'", "code")
|
||||
|
||||
Dim dr최대냉난방부하 As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Dr존.code & "'")(0), DSR.최대냉난방부하Row)
|
||||
If Dr존.냉난방공조 = "냉방" Or Dr존.냉난방공조 = "냉난방" Then
|
||||
A_B = TOSG(T, Dr존.면적) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1)
|
||||
Dim dr프로필 As DS.tbl_profile_odRow = CType(DSET1.tbl_profile_od.Select("code='0'")(0), DS.tbl_profile_odRow)
|
||||
V_A = TOSG(T, dr프로필.최소도입외기량) * A_B ' Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile) * A_B
|
||||
|
||||
For Each dr공조처리 As DS.tbl_kongjoRow In DSET1.tbl_kongjo.Select("code <>'0'", "code")
|
||||
'//아래두코드는 상단코드로 변경
|
||||
'If Dr존.냉난방공조처리시스템 <> "" Then ' Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) <> "" Then
|
||||
'If Dr존.냉난방공조처리시스템 = dr공조처리.code Then ' Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) = Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then
|
||||
|
||||
' 공조기 최대 가열성능
|
||||
If i_HeatCool = 1 Then
|
||||
If Dr존.냉난방공조 = "냉난방" Then ' Worksheets("입력존").Range("공조존2").Offset(0, i_count_zone - 1) = "냉난방" Then
|
||||
Delta_h_WRG = 0 '(3.2.5-54) 열 회수기 없음
|
||||
|
||||
|
||||
theta_ZUL_wi = TOSG(T, dr공조처리.설정치난방) ' Worksheets("공조처리시스템").Range("공조방식1").Offset(1, i_count_AHU - 1) 'theta_h_mech_min '(도표 3-3)
|
||||
|
||||
'h_ZUL_wi = 1.01 * theta_ZUL_wi + 0.001 * (2501 + 1.86 * theta_ZUL_wi) '(3.2.5-38) 습도요구 없음
|
||||
'h_ZUL_wi = 1.01 * theta_ZUL_wi + 0.006 * (2501 + 1.86 * theta_ZUL_wi) '(3.2.5-42) 편차가 있는 습도요구
|
||||
h_ZUL_wi = TOSG(T, 1.01 * theta_ZUL_wi + 0.008 * (2501 + 1.86 * theta_ZUL_wi)) '(3.2.5-48) 편차가 없는 습도요구만 우선 적용
|
||||
Q_dot_h_max = TOSG(T, dr최대냉난방부하.최대난방기기부하) ' Worksheets("0").Range("최대난방부하1").Offset(0, i_count_zone - 1)
|
||||
|
||||
'--------------------------------------------------------------------------------------------------2010.02.22 수정
|
||||
If (TOSG(T, dr공조처리.설정치난방) - theta_i_h) > 0 Then
|
||||
V_dot_mech_m = 1000 * Q_dot_h_max / (c_p_Lrho_L * (TOSG(T, dr공조처리.설정치난방) - theta_i_h))
|
||||
Else
|
||||
V_dot_mech_m = 0
|
||||
End If
|
||||
'--------------------------------------------------------------------------------------------------2010.02.22 수정
|
||||
|
||||
V_dot_star = V_dot_mech_m
|
||||
Q_dot_h_star = V_dot_star * rho_L * (c_p_L * (theta_ZUL_wi - theta_AUL_wi) - Delta_h_WRG) / 3600 '(3.2.5-58) 증기가습 없음 - 열교환방식으로 수정 추후 검토
|
||||
|
||||
dr최대냉난방부하.최대가열성능 = Q_dot_h_star
|
||||
'Worksheets("0").Range("최대난방부하1").Offset(3, i_count_zone - 1) = Q_dot_h_star
|
||||
If Q_dot_h_max > (c_p_Lrho_L * (theta_i_h - theta_e_min) * V_A) / 1000 Then
|
||||
dr최대냉난방부하.최대난방실내부하 = (Q_dot_h_max - (c_p_Lrho_L * (theta_i_h - theta_e_min) * V_A) / 1000)
|
||||
'Worksheets("0").Range("최대난방부하1").Offset(1, i_count_zone - 1) = Q_dot_h_max - (c_p_Lrho_L * (theta_i_h - theta_e_min) * V_A) / 1000
|
||||
Else
|
||||
dr최대냉난방부하.최대난방실내부하 = 0
|
||||
'Worksheets("0").Range("최대난방부하1").Offset(1, i_count_zone - 1) = 0
|
||||
End If
|
||||
End If
|
||||
|
||||
'공조기 최대 가습성능
|
||||
|
||||
'h_ZUL_wi = 1.01 * theta_ZUL_wi + 0.001 * (2501 + 1.86 * theta_ZUL_wi) '(3.2.5-38) 습도요구 없음
|
||||
'h_ZUL_wi = 1.01 * theta_ZUL_wi + 0.006 * (2501 + 1.86 * theta_ZUL_wi) '(3.2.5-42) 편차가 있는 습도요구
|
||||
h_ZUL_wi = TOSG(T, 1.01 * theta_ZUL_wi + 0.008 * (2501 + 1.86 * theta_ZUL_wi)) '(3.2.5-48) 편차가 없는 습도 요구
|
||||
|
||||
Delta_h_WRG = 0 '(3.2.5-63) 열 회수기 없음
|
||||
|
||||
Q_dot_st_star = V_dot_star * rho_L * (h_ZUL_wi - h_AUL_wi - Delta_h_WRG) / 3600 '(3.2.5-65)
|
||||
dr최대냉난방부하.최대가습성능 = Q_dot_st_star
|
||||
dr최대냉난방부하.공조풍량 = V_dot_star
|
||||
'Worksheets("0").Range("최대가습성능1").Offset(0, i_count_zone - 1) = Q_dot_st_star
|
||||
'Worksheets("0").Range("최대가습성능1").Offset(1, i_count_zone - 1) = V_dot_star '공조풍량
|
||||
|
||||
Else
|
||||
|
||||
' 공조기 최대 냉각성능
|
||||
|
||||
theta_c_mech_min = TOSG(T, dr공조처리.설정치냉방) ' Worksheets("공조처리시스템").Range("공조방식1").Offset(2, i_count_AHU - 1)
|
||||
theta_ZUL_so = theta_c_mech_min '(도표 3.3)
|
||||
ps_theta_ZUL_so = TOSG(T, Math.Exp(23.621 - 4065 / (theta_ZUL_so + 236.2506))) '(3.2.5-37) 0.01C<=theta<=80C
|
||||
x_ZUL_so = TOSG(T, 0.5911 / (100000 / ps_theta_ZUL_so - 0.95)) '(3.2.5-41)
|
||||
|
||||
'h_ZUL_so = 1.01 * theta_ZUL_so + 0.012 * (2501 + 1.86 * theta_ZUL_so) '(3.2.5-39) 습도요구 없음 ps_theta_ZUL_so>1892Pa
|
||||
'h_ZUL_so = 1.01 * theta_ZUL_so + x_ZUL_so * (2501 + 1.86 * theta_ZUL_so) '(3.2.5-40) 습도요구 없음 ps_theta_ZUL_so<=1892Pa
|
||||
'h_ZUL_so = 1.01 * theta_ZUL_so + 0.011 * (2501 + 1.86 * theta_ZUL_so) '(3.2.5-43) 편차가 있는 습도요구 ps_theta_ZUL_so>1737Pa
|
||||
'h_ZUL_so = 1.01 * theta_ZUL_so + x_ZUL_so * (2501 + 1.86 * theta_ZUL_so) '(3.2.5-44) 편차가 있는 습도요구 ps_theta_ZUL_so<=1737Pa
|
||||
|
||||
If ps_theta_ZUL_so > 1269 Then
|
||||
h_ZUL_so = TOSG(T, 1.01 * theta_ZUL_so + 0.008 * (2501 + 1.86 * theta_ZUL_so)) '(3.2.5-43) 편차가 없는 습도요구 ps_theta_ZUL_so>1269Pa
|
||||
Else
|
||||
h_ZUL_so = TOSG(T, 1.01 * theta_ZUL_so + x_ZUL_so * (2501 + 1.86 * theta_ZUL_so)) '(3.2.5-44) 편차가 없는 습도요구 ps_theta_ZUL_so<=1269Pa
|
||||
End If
|
||||
|
||||
Delta_h_WRG = 0 '(3.2.5-59) 열 회수기 없음
|
||||
|
||||
Q_dot_c_max = TOSG(T, dr최대냉난방부하.최대냉방기기부하) ' Worksheets("0").Range("최대냉방부하1").Offset(0, i_count_zone - 1)
|
||||
'--------------------------------------------------------------------------------------------------2010.02.22 수정
|
||||
If (theta_i_c - TOSG(T, dr공조처리.설정치냉방)) > 0 Then
|
||||
V_dot_star = 1000 * Q_dot_c_max / (c_p_Lrho_L * (theta_i_c - TOSG(T, dr공조처리.설정치냉방)))
|
||||
Else
|
||||
V_dot_star = 0
|
||||
End If
|
||||
'--------------------------------------------------------------------------------------------------2010.02.22 수정
|
||||
Q_dot_c_star = V_dot_star * rho_L * (h_AUL_so - h_ZUL_so - Delta_h_WRG) / 3600 '(3.2.5-62)
|
||||
|
||||
dr최대냉난방부하.최대냉각성능 = Q_dot_c_star
|
||||
dr최대냉난방부하.최대냉방실내부하 = Q_dot_c_max - (c_p_Lrho_L * (theta_e_max - theta_i_c_soll) * V_A) / 1000
|
||||
|
||||
'Worksheets("0").Range("최대냉방부하1").Offset(3, i_count_zone - 1) = Q_dot_c_star
|
||||
'Worksheets("0").Range("최대냉방부하1").Offset(1, i_count_zone - 1) = Q_dot_c_max - (c_p_Lrho_L * (theta_e_max - theta_i_c_soll) * V_A) / 1000
|
||||
End If
|
||||
|
||||
'End If
|
||||
'End If
|
||||
|
||||
Next
|
||||
Else
|
||||
|
||||
dr최대냉난방부하.최대난방실내부하 = 0
|
||||
dr최대냉난방부하.최대냉방실내부하 = 0
|
||||
dr최대냉난방부하.최대가열성능 = 0
|
||||
dr최대냉난방부하.최대냉각성능 = 0
|
||||
dr최대냉난방부하.최대가습성능 = 0
|
||||
dr최대냉난방부하.공조풍량 = 0
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Public Overridable Sub Calc_AirHandling(ByVal i_count_month As Integer, ByVal theta_e As Decimal) ' ByVal d_mth As Integer,
|
||||
Dim A_B As Decimal
|
||||
Dim x_ABL_wi As Decimal, h_ABL_wi As Decimal, x_ABL_so As Decimal, h_ABL_so As Decimal, x_AUL_wi As Decimal, h_AUL_wi As Decimal, x_AUL_so As Decimal, h_AUL_so As Decimal
|
||||
Dim c_p_L As Decimal, rho_L As Decimal, f_p As Decimal, rho_cl As Decimal
|
||||
Dim q_st_18_12h_m As Decimal, q_st_12h_m As Decimal, q_h_12h_m As Decimal, q_c_12h_m As Decimal, q_h_m As Decimal, q_c_m As Decimal, q_st_m As Decimal
|
||||
Dim eta_ZUL As Decimal, eta_ABL As Decimal, f_h_H As Decimal, f_h_C As Decimal, f_h_st As Decimal
|
||||
Dim Delta_p_star_ZUL As Decimal, Delta_p_star_ABL As Decimal, Delta_h_WRG As Decimal
|
||||
Dim Q_V_E_ZUL_m As Decimal, Q_V_E_ABL_m As Decimal, Q_c_b As Decimal, Q_h_b As Decimal, Q_vh_b As Decimal, Q_vc_b As Decimal, Q_vm_b As Decimal
|
||||
Dim t_V_mech_m As Decimal, theta_V_mech_m As Decimal, theta_hc_m As Decimal
|
||||
Dim V_dot_mech_m As Decimal, V_dot_mech_max As Decimal, V_dot_A As Decimal, V_dot_z As Decimal, P_V_ZUL_m As Decimal, P_V_ABL_m As Decimal
|
||||
Dim Sigma_V_dot As Decimal, Sigma_V_dot_3 As Decimal
|
||||
Dim theta_h_mech_m As Decimal, theta_c_mech_m As Decimal
|
||||
|
||||
' Dim i_count_zone As Integer, i_count_profile As Integer, i_count_AHU As Integer
|
||||
Dim theta_i_c_soll As Integer, theta_i_c As Integer, theta_i_h_soll As Integer, d_V_mech_m As Integer, theta_ABL_wi As Integer, theta_ABL_so As Integer
|
||||
Dim V_dot_mech_h_max As Decimal, V_dot_mech_c_max As Decimal, V_dot_mech_c_m As Decimal, V_dot_mech_h_m As Decimal
|
||||
Dim theta_e_min As Decimal, theta_e_max As Decimal
|
||||
Dim x_ZUL_wi As Decimal, theta_ZUL_wi As Decimal, theta_AUL As Decimal, h_AUL As Decimal, x_AUL As Decimal, theta_AUL_j As Decimal, x_AUL_j As Decimal, psi_AUL_j As Decimal
|
||||
Dim h_B As Decimal, r_0 As Decimal, m_dot_1_L As Decimal, u As Decimal, Phi_h As Decimal, Phi_c As Decimal '===============================2010.04.14 수정
|
||||
Dim Q_VE_B As Decimal, Q_VE_ZU As Decimal, Q_VE_D As Decimal
|
||||
Dim c_p_Lrho_L As Decimal, theta_ZUL_so As Decimal, p_S_theta_ZUL_so As Decimal, p_95_theta_ZUL_so As Decimal, x_95_ZUL_so As Decimal
|
||||
Dim h_95_ZUL_so As Decimal, i_count_air As Integer, i_count_start_time As Integer, i_count_end_time As Integer ', i_profile As Integer
|
||||
Dim P_D_j_theta_AUL_j As Decimal
|
||||
|
||||
' 공조처리
|
||||
|
||||
theta_i_c_soll = 26
|
||||
theta_i_c = 24 'theta_i_c_soll - 2 '(2-36)
|
||||
theta_i_h_soll = 20
|
||||
c_p_L = 1.006 'kJ/kg K
|
||||
rho_L = 1.204 'kg/m3 (20도 1기압상태)
|
||||
c_p_Lrho_L = 0.34 'Wh/m3 K
|
||||
f_p = 0.4 '= Delta_p_konst / Delta_p_star = 0.4 '(3.2.5-13, 7-1)
|
||||
'================================================2010.2.21 수정
|
||||
'd_V_mech_m = d_mth
|
||||
'================================================2010.2.21 수정
|
||||
theta_ABL_wi = 20
|
||||
x_ABL_wi = 0.008 '편차가 없는 습도요구 적용
|
||||
h_ABL_wi = 42.6 '편차가 없는 습도요구 적용
|
||||
theta_ABL_so = 26
|
||||
x_ABL_so = 0.008 'kg/kg 편차가 없는 습도요구 적용
|
||||
h_ABL_so = 46.7 'kJ/kg 편차가 없는 습도요구 적용
|
||||
x_AUL_wi = 0.001
|
||||
h_AUL_wi = -9.6
|
||||
x_AUL_so = 0.012
|
||||
h_AUL_so = 63
|
||||
q_st_18_12h_m = 0 '우선 0으로 적용 추후 검토
|
||||
theta_e_min = -11.3
|
||||
theta_e_max = 31.5
|
||||
r_0 = 2500 'kJ/kg
|
||||
x_ZUL_wi = 0.00699
|
||||
|
||||
|
||||
'Dim Dr프로필 As DS.tbl_profileRow '//아래에서 할당되도록되어있다.
|
||||
'//location 은 거의 서울(0번줄)이된다.
|
||||
Dim Drow평균온도 As DS.weather_temp_odRow = CType(DSET1.weather_temp_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(i_count_month, "0000") & "'")(0), DS.weather_temp_odRow)
|
||||
Dim Drow평균습도 As DS.weather_supdo_odRow = CType(DSET1.weather_supdo_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(i_count_month, "0000") & "'")(0), DS.weather_supdo_odRow)
|
||||
Dim Mon As String = "M" & Format(i_count_month, "00")
|
||||
|
||||
Dim sum_kongjo As Decimal = 0
|
||||
Dim sum_baeki As Decimal = 0
|
||||
Dim ea_kongjo As Decimal = 0
|
||||
Dim ea_baeki As Decimal = 0
|
||||
For Each Dr공조 As DS.tbl_kongjoRow In DSET1.tbl_kongjo.Select("code <> '0'", "code")
|
||||
If Dr공조.급기풍량 <> "" AndAlso Dr공조.급기풍량 <> "0" Then
|
||||
sum_kongjo += TOSG(T, Dr공조.급기풍량) * TOSG(T, Dr공조.대수)
|
||||
End If
|
||||
If Dr공조.배기풍량 <> "" AndAlso Dr공조.배기풍량 <> "0" Then
|
||||
sum_baeki += TOSG(T, Dr공조.배기풍량) * TOSG(T, Dr공조.대수)
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
|
||||
For Each Dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code<>'0'", "code")
|
||||
Dim Drow분석() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row())
|
||||
'If Worksheets("입력존").Range("공조존2").Offset(0, i_count_zone - 1) = "냉방" Or Worksheets("입력존").Range("공조존2").Offset(0, i_count_zone - 1) = "냉난방" Then
|
||||
If Dr존.냉난방공조 = "냉난방" Or Dr존.냉난방공조 = "환기" Then
|
||||
|
||||
'//존의 프로필과 일치하는 프로필검색후 적용
|
||||
Dim Dr프로필 As DS.tbl_profile_odRow = CType(DSET1.tbl_profile_od.Select("code='0'")(0), DS.tbl_profile_odRow)
|
||||
t_V_mech_m = TOSG(T, Dr프로필.운전시간난방) ' Worksheets("설정조건").Range("사용시작시간1").Offset(5, i_count_profile)
|
||||
V_dot_A = TOSG(T, Dr프로필.최소도입외기량) ' Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile)
|
||||
'i_profile = i_count_profile '//아래 루프종료문은 없어서 추가했다.
|
||||
'===================================================================================2010.2.21 추가
|
||||
If i_count_month = 0 Then
|
||||
d_V_mech_m = 0
|
||||
Else
|
||||
d_V_mech_m = CInt(Dr프로필("day" & Format(i_count_month, "00")))
|
||||
End If
|
||||
'===================================================================================2010.2.21 추가
|
||||
Q_V_E_ZUL_m = 0
|
||||
Q_V_E_ABL_m = 0
|
||||
|
||||
For Each Dr공조 As DS.tbl_kongjoRow In DSET1.tbl_kongjo.Select("code <> '0'", "code")
|
||||
'If Dr존.냉난방공조처리시스템 <> "" Then ' Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) <> "" Then
|
||||
'If Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) = Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then
|
||||
'If Dr존.냉난방공조처리시스템 = Dr공조.code Then ' Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then
|
||||
If sum_kongjo = 0 Then
|
||||
ea_kongjo = 0
|
||||
Else
|
||||
ea_kongjo = TOSG(T, Dr공조.급기풍량) * TOSG(T, Dr공조.대수) / sum_kongjo
|
||||
|
||||
End If
|
||||
If sum_baeki = 0 Then
|
||||
ea_baeki = 0
|
||||
Else
|
||||
ea_baeki = TOSG(T, Dr공조.배기풍량) * TOSG(T, Dr공조.대수) / sum_baeki
|
||||
|
||||
End If
|
||||
Q_vh_b = 0
|
||||
Q_vc_b = 0
|
||||
Q_vm_b = 0
|
||||
|
||||
|
||||
If Dr공조.급기팬동력 <> "" AndAlso Dr공조.급기팬동력 <> "0" AndAlso Dr공조.급기팬동력 <> "0." Then
|
||||
Try
|
||||
eta_ZUL = Math.Round(TOSG(T, Dr공조.급기풍량) * TOSG(T, Dr공조.대수) * (TOSG(T, Dr공조.총압력손실급기팬) / 9.8) / (TOSG(T, Dr공조.급기팬동력) * TOSG(T, Dr공조.대수) * 102 * 3600), 3)
|
||||
|
||||
Catch ex As Exception
|
||||
eta_ZUL = 0
|
||||
End Try
|
||||
End If
|
||||
|
||||
|
||||
If Dr공조.배기팬동력 <> "" AndAlso Dr공조.배기팬동력 <> "0" AndAlso Dr공조.배기팬동력 <> "0." Then
|
||||
Try
|
||||
Dim a As Double = TOSG(T, Dr공조.배기풍량) * TOSG(T, Dr공조.대수) * (TOSG(T, Dr공조.총압력손실배기팬) / 9.8)
|
||||
Dim b As Double = (TOSG(T, Dr공조.배기팬동력) * TOSG(T, Dr공조.대수) * 102 * 3600)
|
||||
|
||||
|
||||
eta_ABL = Math.Round(a / b, 3)
|
||||
|
||||
Catch ex As Exception
|
||||
eta_ABL = 0
|
||||
End Try
|
||||
End If
|
||||
|
||||
Delta_p_star_ZUL = TOSG(T, Dr공조.총압력손실급기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(0, i_count_AHU - 1)
|
||||
Delta_p_star_ABL = TOSG(T, Dr공조.총압력손실배기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(1, i_count_AHU - 1)
|
||||
theta_V_mech_m = TOSG(T, Dr공조.설정치냉방) ' Worksheets("공조처리시스템").Range("공조방식1").Offset(2, i_count_AHU - 1)
|
||||
theta_h_mech_m = TOSG(T, Dr공조.설정치난방) 'Worksheets("공조처리시스템").Range("공조방식1").Offset(1, i_count_AHU - 1)
|
||||
theta_c_mech_m = TOSG(T, Dr공조.설정치냉방) ' Worksheets("공조처리시스템").Range("공조방식1").Offset(2, i_count_AHU - 1)
|
||||
|
||||
A_B = TOSG(T, Dr존.면적) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1)
|
||||
|
||||
theta_AUL = 0
|
||||
x_AUL = 0
|
||||
i_count_start_time = CInt(Dr프로필.운전시작시간.Substring(0, Dr프로필.운전시작시간.IndexOf(":"))) ' Worksheets("설정조건").Range("사용시작시간1").Offset(3, i_profile)
|
||||
i_count_end_time = CInt(Dr프로필.운전종료시간.Substring(0, Dr프로필.운전종료시간.IndexOf(":"))) ' Worksheets("설정조건").Range("사용시작시간1").Offset(4, i_profile)
|
||||
If i_count_start_time - i_count_end_time < 0 Then
|
||||
For i_count_air = 0 To CInt(t_V_mech_m - 1) '자정 전까지 운전 조건
|
||||
'//Dr기상데이터의 2번째 인덱스부터 시간이다.
|
||||
theta_AUL_j = TOSG(T, Drow평균온도("t" & Format(i_count_start_time + i_count_air + 1, "00"))) ' Worksheets("기상데이타").Range("시간별평균온도1").Offset((i_count_month - 1) * 25 + i_count_start_time + i_count_air, location - 1)
|
||||
psi_AUL_j = TOSG(T, Drow평균습도("t" & Format(i_count_start_time + i_count_air + 1, "00"))) / 100 ' Worksheets("기상데이타").Range("시간별평균습도1").Offset((i_count_month - 1) * 25 + i_count_start_time + i_count_air, location - 1) / 100
|
||||
P_D_j_theta_AUL_j = TOSG(T, psi_AUL_j * Math.Exp(23.621 - 4065 / (theta_AUL_j + 236.2506)))
|
||||
x_AUL_j = TOSG(T, 0.5911 / (100000 / P_D_j_theta_AUL_j - 0.95))
|
||||
theta_AUL = theta_AUL + theta_AUL_j
|
||||
x_AUL = x_AUL + x_AUL_j
|
||||
Next
|
||||
Else
|
||||
For i_count_air = 0 To 23 - i_count_start_time '자정 넘어까지 운전 조건
|
||||
theta_AUL_j = TOSG(T, Drow평균온도("t" & Format(i_count_start_time + i_count_air + 1, "00"))) 'Worksheets("기상데이타").Range("시간별평균온도1").Offset((i_count_month - 1) * 25 + i_count_start_time + i_count_air, location - 1)
|
||||
psi_AUL_j = TOSG(T, Drow평균습도("t" & Format(i_count_start_time + i_count_air + 1, "00"))) / 100 'Worksheets("기상데이타").Range("시간별평균습도1").Offset((i_count_month - 1) * 25 + i_count_start_time + i_count_air, location - 1) / 100
|
||||
P_D_j_theta_AUL_j = TOSG(T, psi_AUL_j * Math.Exp(23.621 - 4065 / (theta_AUL_j + 236.2506)))
|
||||
x_AUL_j = TOSG(T, 0.5911 / (100000 / P_D_j_theta_AUL_j - 0.95))
|
||||
theta_AUL = theta_AUL + theta_AUL_j
|
||||
x_AUL = x_AUL + x_AUL_j
|
||||
Next
|
||||
For i_count_air = 0 To i_count_end_time - 1 '자정 넘어까지 운전 조건
|
||||
theta_AUL_j = TOSG(T, Drow평균온도("t" & Format(i_count_air + 1, "00"))) 'Worksheets("기상데이타").Range("시간별평균온도1").Offset((i_count_month - 1) * 25 + i_count_air, location - 1)
|
||||
psi_AUL_j = TOSG(T, Drow평균습도("t" & Format(i_count_air + 1, "00"))) / 100 'Worksheets("기상데이타").Range("시간별평균습도1").Offset((i_count_month - 1) * 25 + i_count_air, location - 1) / 100
|
||||
P_D_j_theta_AUL_j = TOSG(T, psi_AUL_j * Math.Exp(23.621 - 4065 / (theta_AUL_j + 236.2506)))
|
||||
x_AUL_j = TOSG(T, 0.5911 / (100000 / P_D_j_theta_AUL_j - 0.95))
|
||||
theta_AUL = theta_AUL + theta_AUL_j
|
||||
x_AUL = x_AUL + x_AUL_j
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
If (t_V_mech_m = 0) Then
|
||||
theta_AUL = 0
|
||||
x_AUL = 0
|
||||
Else
|
||||
theta_AUL = theta_AUL / t_V_mech_m
|
||||
x_AUL = x_AUL / t_V_mech_m
|
||||
End If
|
||||
|
||||
|
||||
h_AUL = c_p_L * theta_AUL + x_AUL * (r_0 + c_p_L * theta_AUL)
|
||||
|
||||
''V_dot_mech_h_max = Worksheets("0").Range("최대난방부하1").Offset(1, i_count_zone - 1) * 1000 / (c_p_Lrho_L * (theta_h_mech_m - theta_i_h_soll)) '(3.2.4-86)
|
||||
|
||||
'//현재존과일치하는 데이터수집
|
||||
If (theta_i_c_soll - theta_c_mech_m) <> 0 Then
|
||||
V_dot_mech_max = TOSG(T, Result1o.최대부하.Item(Dr존.code).최대냉방실내부하) * 1000 * ea_kongjo / (c_p_Lrho_L * (theta_i_c_soll - theta_c_mech_m)) '(3.2.4-86)
|
||||
Else
|
||||
V_dot_mech_max = 0
|
||||
End If
|
||||
|
||||
' Worksheets("0").Range("최대냉방부하1").Offset(1, i_count_zone - 1)
|
||||
|
||||
''If V_dot_mech_h_max < V_dot_mech_c_max Then
|
||||
'' V_dot_mech_max = V_dot_mech_c_max
|
||||
''Else
|
||||
'' V_dot_mech_max = V_dot_mech_h_max
|
||||
''End If
|
||||
|
||||
If V_dot_mech_max < V_dot_A * A_B * ea_kongjo Then V_dot_mech_max = V_dot_A * A_B * ea_kongjo
|
||||
|
||||
|
||||
|
||||
Select Case Dr공조.공조방식.Trim ' Worksheets("공조처리시스템").Range("공조방식1").Offset(0, i_count_AHU - 1)
|
||||
Case "정풍량" '정풍량"
|
||||
V_dot_mech_m = V_dot_mech_max
|
||||
|
||||
Case "변풍량" '변풍량"
|
||||
'//계산결과가들엉잇는 12개월용시트(1~12)에ㅓ 해당값을 찾는 엑셀루틴이다. 이건좀 교환하기가 그러네;;ㅠ
|
||||
'//해당12개시트의 데이터는 DSR월별에너지분석에 존재한다 이곳에는 월/존두개의 기본키가존재하며 해당rOW를 가져와야한다.
|
||||
|
||||
If Drow분석.GetUpperBound(0) = -1 Then
|
||||
MsgBox("월별에너지분석에 " & i_count_month & "데이터가 없습니다", MsgBoxStyle.Critical, "계산실패")
|
||||
Return
|
||||
End If
|
||||
|
||||
'Q_c_b = Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) - (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_AUL - theta_c_mech_m) * V_dot_A * A_B) / 1000
|
||||
Q_c_b = TOSG(T, Drow분석(0).냉방요구량공조) * ea_kongjo - (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_AUL - theta_c_mech_m) * V_dot_A * A_B) * ea_kongjo / 1000
|
||||
|
||||
If Q_c_b < 0 Then Q_c_b = 0
|
||||
|
||||
V_dot_mech_m = (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_AUL - theta_c_mech_m) * V_dot_A * A_B * ea_kongjo) / 1000 + Q_c_b / (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_i_c - theta_c_mech_m) / 1000) '(3.2.5-4) 공조풍량(변풍량)
|
||||
'If V_dot_mech_m < 0 Then
|
||||
'V_dot_mech_m = 0
|
||||
'End If
|
||||
|
||||
If V_dot_mech_m < V_dot_A * A_B * ea_kongjo Then V_dot_mech_m = V_dot_A * A_B * ea_kongjo
|
||||
|
||||
End Select
|
||||
|
||||
'If V_dot_mech_m = 0 Then
|
||||
' theta_hc_m = theta_V_mech_m
|
||||
'Else
|
||||
' theta_hc_m = theta_V_mech_m - Q_V_E_ZUL_m * 1000 / (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * V_dot_mech_m) + 1.4 '(3.2.5-22) Q_V_E_ZUL_m에 1000 을 곱해야하는지 확인요망
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
|
||||
'==========================================================================================================================================
|
||||
'월별 풍량당 공조에너지 요구량은 추후 적용
|
||||
|
||||
|
||||
'If theta_hc_m <= 22 And theta_hc_m > 18 Then
|
||||
'q_h_12h_m = q_h_18_12h_m + g_h_o_m * (theta_hc_m - 18) '(3.2.5-23) 18C<theta_hc_m<=22C
|
||||
'q_c_12h_m = q_c_18_12h_m - g_c_o_m * (theta_hc_m - 18) '(3.2.5-25) 18C<theta_hc_m<=22C
|
||||
'End If
|
||||
'If theta_hc_m <= 18 And theta_hc_m > 14 Then
|
||||
'q_h_12h_m = q_h_18_12h_m + g_h_u_m * (theta_hc_m - 18) '(3.2.5-24) 14C<theta_hc_m<=18C
|
||||
'q_c_12h_m = q_c_18_12h_m - g_c_u_m * (theta_hc_m - 18) '(3.2.5-26) 14C<theta_hc_m<=18C
|
||||
'End If
|
||||
'q_st_12h_m = q_st_18_12h_m '(3.2.5-27)
|
||||
|
||||
|
||||
|
||||
'==========================================================================================================================================
|
||||
'==========================================================================================================================================
|
||||
|
||||
If V_dot_mech_m = 0 Then
|
||||
u = 1 '//??
|
||||
Else
|
||||
u = (V_dot_mech_m - V_dot_A * A_B * ea_kongjo) / V_dot_mech_m
|
||||
End If
|
||||
|
||||
|
||||
If Dr공조.열교환기유형 = "현열교환" OrElse Dr공조.열교환기유형 = "전열교환" Then ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) = "현열교환" Or Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) = "전열교환" Then
|
||||
Phi_h = TOSG(Dr공조.열회수율) / 100 'Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) '=====================2010.04.14 수정
|
||||
Phi_c = TOSG(Dr공조.열회수율_냉방) / 100 'Worksheets("공조처리시스템").Range("열교환기1").Offset(2, i_count_AHU - 1) '=====================2010.04.14 수정
|
||||
Else
|
||||
Phi_h = 0 '==============================2010.04.14 수정
|
||||
Phi_c = 0 '==============================2010.04.14 수정
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
If TOSG(T, Drow분석(0).난방요구량공조) > 0 AndAlso ea_kongjo > 0 Then 'Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) > 0 Then
|
||||
|
||||
|
||||
'Q_h_b = Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) - (theta_i_h_soll - theta_AUL) * c_p_L * rho_L * d_V_mech_m * t_V_mech_m * V_dot_A * A_B / 3600
|
||||
Q_h_b = TOSG(T, Drow분석(0).난방요구량공조) * ea_kongjo - (theta_i_h_soll - theta_AUL) * c_p_L * rho_L * d_V_mech_m * t_V_mech_m * V_dot_A * A_B * ea_kongjo / 3600
|
||||
Select Case Dr공조.공조방식.Trim ' Worksheets("공조처리시스템").Range("공조방식1").Offset(0, i_count_AHU - 1)
|
||||
Case "정풍량"
|
||||
theta_ZUL_wi = 1000 * Q_h_b / (V_dot_mech_m * c_p_Lrho_L * t_V_mech_m * d_V_mech_m) + theta_i_h_soll 'd_Nutz=d_V_mech_m 으로 적용
|
||||
|
||||
Case "변풍량"
|
||||
If V_dot_mech_m > V_dot_A * A_B * ea_kongjo Then
|
||||
theta_ZUL_wi = theta_h_mech_m
|
||||
Else
|
||||
If V_dot_mech_m = 0 Then
|
||||
theta_ZUL_wi = theta_i_h_soll
|
||||
Else
|
||||
theta_ZUL_wi = 1000 * Q_h_b / (V_dot_mech_m * c_p_Lrho_L * t_V_mech_m * d_V_mech_m) + theta_i_h_soll
|
||||
End If
|
||||
|
||||
End If
|
||||
End Select
|
||||
|
||||
m_dot_1_L = V_dot_mech_m * rho_L
|
||||
|
||||
'외기모드 경우와 에너지
|
||||
'theta_ZUL_wi<theta_ABL_wi+(1-u)*(1-Phi)*(theta_AUL-theta_ABL_wi)
|
||||
'Q_VE_B = 0
|
||||
'Q_VE_D = 0
|
||||
|
||||
'//h_B = c_p_L * theta_ZUL_wi + x_ZUL_wi * (r_0 + c_p_L * theta_ZUL_wi)
|
||||
|
||||
'//가습기유형은 = 가습불가로 한다 170827
|
||||
Select Case Dr공조.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1)
|
||||
Case "현열교환" '현열교환"
|
||||
Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_wi - u * theta_ABL_wi - (1 - u) * (theta_AUL + Phi_h * (theta_ABL_wi - theta_AUL))) / 3600) '==============2010.04.14 수정
|
||||
Case "전열교환" '전열교환"
|
||||
Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_wi - u * theta_ABL_wi - (1 - u) * (theta_AUL + Phi_h * (h_ABL_wi - h_AUL) / c_p_L)) / 3600) '==============2010.04.14 수정
|
||||
Case Else
|
||||
'"열회수불가" '열회수불가"
|
||||
Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_wi - u * theta_ABL_wi - (1 - u) * theta_AUL) / 3600)
|
||||
End Select
|
||||
Q_vh_b = Q_VE_ZU
|
||||
Q_vm_b = 0
|
||||
|
||||
|
||||
'//Q_VE_B = d_V_mech_m * (m_dot_1_L * t_V_mech_m * (h_B - u * h_ABL_wi - (1 - u) * h_AUL) / 3600)
|
||||
'Q_vh_b = Q_VE_B
|
||||
|
||||
|
||||
Else
|
||||
Q_vh_b = 0
|
||||
Q_vm_b = 0
|
||||
|
||||
End If
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------
|
||||
If TOSG(T, Drow분석(0).냉방요구량공조) > 0 AndAlso ea_kongjo > 0 Then ' Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) > 0 Then
|
||||
|
||||
Q_c_b = TOSG(T, Drow분석(0).냉방요구량공조) 'Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone)
|
||||
Select Case Dr공조.공조방식.Trim 'Worksheets("공조처리시스템").Range("공조방식1").Offset(0, i_count_AHU - 1)
|
||||
Case "정풍량" '정풍량"
|
||||
If theta_AUL - theta_i_c_soll > 0 Then
|
||||
Q_c_b = Q_c_b - (theta_AUL - theta_i_c_soll) * c_p_L * rho_L * d_V_mech_m * t_V_mech_m * V_dot_A * A_B / 3600
|
||||
Q_c_b = Q_c_b * ea_kongjo
|
||||
Else
|
||||
Q_c_b = Q_c_b - (theta_i_c_soll - theta_AUL) * c_p_L * rho_L * d_V_mech_m * t_V_mech_m * V_dot_A * A_B / 3600
|
||||
Q_c_b = Q_c_b * ea_kongjo
|
||||
End If
|
||||
If Q_c_b < 0 Then Q_c_b = 0
|
||||
If (V_dot_mech_m * c_p_Lrho_L * t_V_mech_m * d_V_mech_m) = 0 Then
|
||||
theta_ZUL_so = 0
|
||||
Else
|
||||
theta_ZUL_so = theta_i_c - 1000 * Q_c_b * ea_kongjo / (V_dot_mech_m * c_p_Lrho_L * t_V_mech_m * d_V_mech_m) 'd_Nutz=d_V_mech_m 으로 적용
|
||||
End If
|
||||
|
||||
|
||||
Case "변풍량" '변풍량"
|
||||
If V_dot_mech_m > V_dot_A * A_B * ea_kongjo OrElse V_dot_mech_m = 0 Then
|
||||
theta_ZUL_so = theta_c_mech_m
|
||||
Else
|
||||
theta_ZUL_so = theta_i_c - 1000 * Q_c_b * ea_kongjo / (V_dot_mech_m * c_p_Lrho_L * t_V_mech_m * d_V_mech_m)
|
||||
End If
|
||||
Q_c_b = Q_c_b * ea_kongjo
|
||||
End Select
|
||||
|
||||
p_S_theta_ZUL_so = TOSG(T, Math.Exp(23.621 - 4065 / (theta_ZUL_so + 236.2506)))
|
||||
p_95_theta_ZUL_so = TOSG(T, 0.95 * p_S_theta_ZUL_so)
|
||||
x_95_ZUL_so = TOSG(T, 0.5911 / (100000 / p_95_theta_ZUL_so - 0.95))
|
||||
m_dot_1_L = V_dot_mech_m * rho_L
|
||||
h_95_ZUL_so = c_p_L * theta_ZUL_so + x_95_ZUL_so * (r_0 + c_p_L * theta_ZUL_so)
|
||||
|
||||
|
||||
'If theta_ZUL_so > theta_AUL Then
|
||||
|
||||
'냉방의 경우 가열에너지
|
||||
'Select Case Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1)
|
||||
'Case "열회수불가"
|
||||
'If theta_ZUL_so > theta_ABL_so + (1 - u) * (theta_AUL - theta_ABL_so) Then
|
||||
'Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * theta_AUL) / 3600)
|
||||
'Q_vh_b = Q_vh_b + Q_VE_ZU
|
||||
'Else
|
||||
'If Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "무" Then
|
||||
'i_count_air = 1
|
||||
'End If
|
||||
'End If
|
||||
'Case "현열교환"
|
||||
'If theta_ZUL_so > theta_ABL_so + (1 - u) * (1 - Phi) * (theta_AUL - theta_ABL_so) Then
|
||||
'Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * (theta_AUL + Phi * (theta_ABL_so - theta_AUL))) / 3600)
|
||||
'Q_vh_b = Q_vh_b + Q_VE_ZU
|
||||
'Else
|
||||
'If Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "무" Then
|
||||
'i_count_air = 1
|
||||
'End If
|
||||
'End If
|
||||
'Case "전열교환"
|
||||
'If theta_ZUL_so > theta_ABL_so + (1 - u) * (1 - Phi) * (h_AUL - h_ABL_so) / c_p_L Then
|
||||
'Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * (theta_AUL + Phi * (h_ABL_so - h_AUL) / c_p_L)) / 3600)
|
||||
'Q_vh_b = Q_vh_b + Q_VE_ZU
|
||||
'Else
|
||||
'If Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "무" Then
|
||||
'i_count_air = 1
|
||||
'End If
|
||||
'End If
|
||||
'End Select
|
||||
'End If
|
||||
|
||||
If theta_ZUL_so > theta_AUL Then ' Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "유" Then
|
||||
Q_vc_b = 0
|
||||
V_dot_mech_m = (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_c_mech_m - theta_AUL) * V_dot_A * A_B) / 1000 + Q_c_b / (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_i_c - theta_AUL) / 1000)
|
||||
If V_dot_mech_m < V_dot_A * A_B * ea_kongjo Then V_dot_mech_m = V_dot_A * A_B * ea_kongjo '===================2011.07.11 추가 ea_kongjo를 추가함
|
||||
Else
|
||||
If 0.5911 / (100000 / p_95_theta_ZUL_so - 0.95) > (1 - u) * x_AUL + u * x_ABL_so Then
|
||||
Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * theta_AUL) / 3600
|
||||
Else
|
||||
Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * (h_95_ZUL_so - u * h_ABL_so - (1 - u) * h_AUL) / 3600
|
||||
End If
|
||||
|
||||
End If
|
||||
Else
|
||||
Q_vc_b = 0
|
||||
|
||||
End If
|
||||
'==========================================================================================================================================
|
||||
'==========================================================================================================================================
|
||||
|
||||
Select Case Dr공조.공조방식.Trim ' Worksheets("공조처리시스템").Range("공조방식1").Offset(0, i_count_AHU - 1)
|
||||
Case "정풍량" '정풍량"
|
||||
If eta_ZUL <> 0 Then
|
||||
P_V_ZUL_m = V_dot_mech_m * Delta_p_star_ZUL / eta_ZUL / 3600000 ' V_dot_ZUL = V_dot_mech_m (3.2.5-7) 정풍량 (3600은 Pa을 W환산하면서 h를 s로 환산)
|
||||
Else
|
||||
P_V_ZUL_m = 0
|
||||
End If
|
||||
|
||||
If eta_ABL <> 0 Then
|
||||
P_V_ABL_m = V_dot_mech_m * Delta_p_star_ABL / eta_ABL / 3600000
|
||||
Else
|
||||
P_V_ABL_m = 0
|
||||
End If
|
||||
Q_V_E_ZUL_m += P_V_ZUL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량
|
||||
Q_V_E_ABL_m += P_V_ABL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량
|
||||
|
||||
Case "변풍량" '변풍량"
|
||||
|
||||
Sigma_V_dot = t_V_mech_m * d_V_mech_m * V_dot_mech_m + 1000 * Q_c_b / (c_p_Lrho_L * (theta_i_c - theta_V_mech_m)) '(3.2.5-5) 월간 공조풍량 합(변풍량)
|
||||
' 수식 변경 Sigma_V_dot_3 = t_V_mech_m * d_V_mech_m * (V_dot_mech_m ^ 3) + Q_c_b / (c_p_L * rho_L * (theta_i_c - theta_V_mech_m))
|
||||
Sigma_V_dot_3 = TOSG(T, Sigma_V_dot * (0.8 * V_dot_mech_m + 0.2 * V_dot_mech_max) ^ 2)
|
||||
|
||||
If V_dot_mech_m = 0 Then
|
||||
P_V_ZUL_m = 0 'CSng(V_dot_mech_m * Delta_p_star_ZUL * f_p / eta_ZUL / 3600 + (V_dot_mech_m ^ 3 * Delta_p_star_ZUL * (1 - f_p)) / (eta_ZUL * V_dot_mech_m ^ 2) / 3600) '(3.2.5-11) 변풍량 시간, 용도로 추후검토
|
||||
P_V_ABL_m = 0 'CSng(V_dot_mech_m * Delta_p_star_ABL * f_p / eta_ABL / 3600 + (V_dot_mech_m ^ 3 * Delta_p_star_ABL * (1 - f_p)) / (eta_ABL * V_dot_mech_m ^ 2) / 3600) '(3.2.5-11) 변풍량 시간, 용도로 추후검
|
||||
Q_V_E_ZUL_m = 0 'P_V_ZUL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하
|
||||
Q_V_E_ABL_m = 0 'P_V_ABL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하
|
||||
Else
|
||||
|
||||
'==========================변풍량에서도 효율이 없을 경우 동력이 0인 것으로 평가 2010.10.10
|
||||
If eta_ZUL <> 0 Then
|
||||
P_V_ZUL_m = TOSG(T, V_dot_mech_m * Delta_p_star_ZUL * f_p / eta_ZUL / 3600 + (V_dot_mech_m ^ 3 * Delta_p_star_ZUL * (1 - f_p)) / (eta_ZUL * V_dot_mech_max ^ 2) / 3600) '(3.2.5-11) 변풍량 시간, 용도로 추후검토
|
||||
Else
|
||||
P_V_ZUL_m = 0
|
||||
End If
|
||||
If eta_ABL <> 0 Then
|
||||
P_V_ABL_m = TOSG(T, V_dot_mech_m * Delta_p_star_ABL * f_p / eta_ABL / 3600 + (V_dot_mech_m ^ 3 * Delta_p_star_ABL * (1 - f_p)) / (eta_ABL * V_dot_mech_max ^ 2) / 3600) '(3.2.5-11) 변풍량 시간, 용도로 추후검
|
||||
Else
|
||||
P_V_ABL_m = 0
|
||||
End If
|
||||
'============================================================2010.10.10
|
||||
Q_V_E_ZUL_m += P_V_ZUL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하
|
||||
Q_V_E_ABL_m += P_V_ABL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하
|
||||
End If
|
||||
|
||||
Case "환기용"
|
||||
If eta_ZUL <> 0 Then
|
||||
P_V_ZUL_m = V_dot_A * A_B * ea_kongjo * Delta_p_star_ZUL / eta_ZUL / 3600000 ' V_dot_ZUL = V_dot_mech_m (3.2.5-7) 정풍량 (3600은 Pa을 W환산하면서 h를 s로 환산)
|
||||
Else
|
||||
P_V_ZUL_m = 0
|
||||
End If
|
||||
|
||||
If eta_ABL <> 0 Then
|
||||
P_V_ABL_m = V_dot_A * A_B * ea_baeki * Delta_p_star_ABL / eta_ABL / 3600000
|
||||
Else
|
||||
P_V_ABL_m = 0
|
||||
End If
|
||||
Q_V_E_ZUL_m += P_V_ZUL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량
|
||||
Q_V_E_ABL_m += P_V_ABL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량
|
||||
|
||||
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------
|
||||
' 우선 외기온도에 대한 공조에너지 요구량 산정 필요 ????
|
||||
|
||||
'q_st_12h_m = q_st_18_12h_m '(3.2.5-27)
|
||||
|
||||
'If theta_e < theta_hc_m Then
|
||||
'Select Case Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1)
|
||||
'Case "열회수불가"
|
||||
'Delta_h_WRG = 0 '(3.2.5-54) 열 회수기 없음
|
||||
'Case "현열교환"
|
||||
'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_ABL_wi - theta_e) '(3.2.5-55) 순수 현열 회수기
|
||||
'Case "전열교환"
|
||||
'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_ABL_wi - theta_e) '(3.2.5-56) 현열 및 습기 회수기 우선 현열만 고려
|
||||
'End Select
|
||||
'q_h_12h_m = rho_L * (c_p_L * (theta_hc_m - theta_e) - Delta_h_WRG) * 12 * d_mth * V_dot_A * A_B + rho_L * c_p_L * (theta_h_mech_m - theta_i_h_soll) * 12 * d_mth * (V_dot_mech_m - V_dot_A * A_B) 'theta_h_mech_m 과 theta_hc_m 중 선택 검토
|
||||
|
||||
'End If
|
||||
|
||||
'If theta_e > theta_hc_m Then
|
||||
'Select Case Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1)
|
||||
'Case "열회수불가"
|
||||
'Delta_h_WRG = 0 '(3.2.5-54) 열 회수기 없음
|
||||
'Case "현열교환"
|
||||
'If theta_e > theta_ABL_so Then
|
||||
'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_e - theta_ABL_so) '(3.2.5-55) 순수 현열 회수기
|
||||
'Else
|
||||
'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_ABL_so - theta_e) '(3.2.5-55) 순수 현열 회수기
|
||||
'End If
|
||||
'Case "전열교환"
|
||||
'If theta_e > theta_ABL_so Then
|
||||
'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_e - theta_ABL_so) '(3.2.5-55) 순수 현열 회수기 우선 현열만 고려
|
||||
'Else
|
||||
'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_ABL_so - theta_e) '(3.2.5-55) 순수 현열 회수기 우선 현열만 고려
|
||||
'End If
|
||||
|
||||
'End Select
|
||||
|
||||
'q_c_12h_m = rho_L * (c_p_L * (theta_e - theta_hc_m) - Delta_h_WRG) * 12 * d_mth * V_dot_A * A_B + rho_L * c_p_L * (theta_i_c_soll - theta_c_mech_m) * 12 * d_mth * (V_dot_mech_m - V_dot_A * A_B) 'theta_c_mech_m 과 theta_hc_m 중 선택 검토
|
||||
|
||||
'End If
|
||||
|
||||
|
||||
'f_h_H = 1 + 6.333 * 10 ^ (-3) * (t_V_mech_m - 12) - 2.689 * 10 ^ (-4) * (t_V_mech_m - 12) ^ 2 + 6.94 * 10 ^ (-6) * (t_V_mech_m - 12) ^ 3 '(3.2.5-31)
|
||||
'f_h_C = 1 - 5.583 * 10 ^ (-3) * (t_V_mech_m - 12) + 2.153 * 10 ^ (-4) * (t_V_mech_m - 12) ^ 2 - 6.597 * 10 ^ (-6) * (t_V_mech_m - 12) ^ 3 '(3.2.5-32) 편차가 없는 습도요구
|
||||
'f_h_C = 1 - 1.552 * 10 ^ (-3) * (t_V_mech - 12) - 8.073 * 10 ^ (-4) * (t_V_mech_m - 12) ^ 2 - 1.302 * 10 ^ (-6) * (t_V_mech_m - 12) ^ 3 '(3.2.5-32) 편차가 있는 습도요구 추후 검토
|
||||
'f_h_st = 1
|
||||
|
||||
'q_h_m = q_h_12h_m * t_V_mech_m / 12 * f_h_H * d_V_mech_m / d_mth '(3-28)
|
||||
'q_c_m = q_c_12h_m * t_V_mech_m / 12 * f_h_C * d_V_mech_m / d_mth '(3-29)
|
||||
'q_st_m = q_st_12h_m * t_V_mech_m / 12 * f_h_st * d_V_mech_m / d_mth '(3-30)
|
||||
|
||||
'Q_vh_b = q_h_m * V_dot_mech_m '(3-36) =Q_vi_b (7-2,7-8,7-14)
|
||||
'Q_vc_b = q_c_m * V_dot_mech_m '(3-36) =Q_vi_b (7-2,7-8,7-14)
|
||||
'Q_vm_b = q_st_m * V_dot_mech_m '(3-36) =Q_vi_b (7-2,7-8,7-14)
|
||||
|
||||
'Q_vh_b = q_h_m / 1000 ' 우선 공조풍량을 미리 포함시킴 추후 검토
|
||||
'Q_vc_b = q_c_m / 1000 ' 우선 공조풍량을 미리 포함시킴 추후 검토
|
||||
'Q_vm_b = q_st_m * V_dot_mech_m / 1000 '(3-36) =Q_vi_b (7-2,7-8,7-14)
|
||||
|
||||
'==========================================================================================================================================
|
||||
Drow분석(0).공조풍량 = V_dot_mech_m
|
||||
'Sheets("" & i_count_month & "").Cells(17, 7 + i_count_zone) = V_dot_mech_m
|
||||
If Q_vh_b < 0 Then
|
||||
Q_vh_b = 0 '음수 여부 추후 검토
|
||||
End If
|
||||
Drow분석(0).공조요구량난방 = Q_vh_b
|
||||
'Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone) = Q_vh_b
|
||||
|
||||
If Q_vc_b < 0 Then
|
||||
Q_vc_b = 0 '냉방공조에너지요구량이 -인 것은 난방에서 처리되는 것으로 설정
|
||||
End If
|
||||
Drow분석(0).공조요구량냉방 = Q_vc_b
|
||||
'Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone) = Q_vc_b
|
||||
|
||||
If Q_vm_b < 0 Then
|
||||
Q_vm_b = 0 '음수 여부 추후 검토
|
||||
End If
|
||||
Drow분석(0).공조요구량가습 = Q_vm_b ' Sheets("" & i_count_month & "").Cells(23, 7 + i_count_zone) = Q_vm_b
|
||||
Drow분석(0).환기요구량 = Q_V_E_ZUL_m + Q_V_E_ABL_m ' Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m
|
||||
'==========================================================================================================================================
|
||||
'End If
|
||||
'End If
|
||||
Next
|
||||
|
||||
Else
|
||||
Drow분석(0).공조풍량 = 0 ' Sheets("" & i_count_month & "").Cells(17, 7 + i_count_zone) = 0
|
||||
Drow분석(0).공조요구량난방 = 0 ' Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone) = 0
|
||||
Drow분석(0).공조요구량냉방 = 0 'Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone) = 0
|
||||
Drow분석(0).공조요구량가습 = 0 ' Sheets("" & i_count_month & "").Cells(23, 7 + i_count_zone) = 0
|
||||
Drow분석(0).환기요구량 = 0 'Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = 0
|
||||
|
||||
|
||||
|
||||
''===========================================================2017.12.25 공조부분 추가
|
||||
|
||||
'==========================================================================2010.02.04 추가부분 시작
|
||||
If Dr존.냉난방공조 = "환기" OrElse (Dr존.냉난방공조 = "난방" AndAlso Dr존.외기부하처리여부 = "예") Then '//환기
|
||||
Dim DR프로필() As DS.tbl_profile_odRow = CType(DSET1.tbl_profile_od.Select("code='0'"), DS.tbl_profile_odRow())
|
||||
If DR프로필.GetUpperBound(0) = 0 Then
|
||||
t_V_mech_m = TOSG(DR프로필(0).운전시간난방) ' Worksheets("설정조건").Range("사용시작시간1").Offset(5, i_count_profile)
|
||||
V_dot_A = TOSG(DR프로필(0).최소도입외기량) 'Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile)
|
||||
A_B = TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1)
|
||||
'===================================================================================2010.2.25 추가
|
||||
'd_V_mech_m = Worksheets("설정조건").Range("월간사용일수1").Offset(i_count_month, i_count_profile)
|
||||
Select Case i_count_month
|
||||
Case 0 : d_V_mech_m = 0
|
||||
Case 1 : d_V_mech_m = DR프로필(0).day01
|
||||
Case 2 : d_V_mech_m = DR프로필(0).day02
|
||||
Case 3 : d_V_mech_m = DR프로필(0).day03
|
||||
Case 4 : d_V_mech_m = DR프로필(0).day04
|
||||
Case 5 : d_V_mech_m = DR프로필(0).day05
|
||||
Case 6 : d_V_mech_m = DR프로필(0).day06
|
||||
Case 7 : d_V_mech_m = DR프로필(0).day07
|
||||
Case 8 : d_V_mech_m = DR프로필(0).day08
|
||||
Case 9 : d_V_mech_m = DR프로필(0).day09
|
||||
Case 10 : d_V_mech_m = DR프로필(0).day10
|
||||
Case 11 : d_V_mech_m = DR프로필(0).day11
|
||||
Case 12 : d_V_mech_m = DR프로필(0).day12
|
||||
End Select
|
||||
'===================================================================================2010.2.25 추가
|
||||
|
||||
End If
|
||||
|
||||
Dim DR공조() As DS.tbl_kongjoRow = CType(DSET1.tbl_kongjo.Select("code='" & Dr존.냉난방공조처리시스템 & "' and code <> '0'"), DS.tbl_kongjoRow())
|
||||
If DR공조.GetUpperBound(0) = 0 Then
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------2010.05.26 추가
|
||||
If DR공조(0).열교환기유형.Trim = "현열교환" OrElse DR공조(0).열교환기유형.Trim = "전열교환" Then
|
||||
Phi_h = TOSG(DR공조(0).열회수율) / 100 'Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1)
|
||||
Phi_c = TOSG(DR공조(0).열회수율_냉방) / 100 'Worksheets("공조처리시스템").Range("열교환기1").Offset(2, i_count_AHU - 1)
|
||||
Else
|
||||
Phi_h = 0
|
||||
Phi_c = 0
|
||||
End If
|
||||
'// 여기 i_count_month 에 0 이 오지는 않나요? 예.. 1 부터 시작해요
|
||||
'// If CSng(Drow분석(0).난방요구량공조) > 0 Then 'Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) > 0 Then
|
||||
|
||||
If TOSG(Drow분석(0).난방요구량공조) > 0 Then
|
||||
Drow분석(0).난방요구량공조 = (1 - Phi_h) * TOSG(Drow분석(0).난방요구량공조)
|
||||
End If
|
||||
|
||||
If TOSG(Drow분석(0).냉방요구량공조) > 0 Then
|
||||
Drow분석(0).냉방요구량공조 = (1 - Phi_c) * TOSG(Drow분석(0).냉방요구량공조)
|
||||
End If
|
||||
|
||||
'If Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) > 0 Then
|
||||
' Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) = (1 - Phi_h) * Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone)
|
||||
'End If
|
||||
|
||||
'If Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) > 0 Then
|
||||
' Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) = (1 - Phi_c) * Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone)
|
||||
'End If
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------2010.05.26 추가
|
||||
|
||||
eta_ZUL = TOSG(DR공조(0).총효율급기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(2, i_count_AHU - 1)
|
||||
eta_ABL = TOSG(DR공조(0).총효율배기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(3, i_count_AHU - 1)
|
||||
Delta_p_star_ZUL = TOSG(DR공조(0).총압력손실급기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(0, i_count_AHU - 1)
|
||||
Delta_p_star_ABL = TOSG(DR공조(0).총압력손실배기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(1, i_count_AHU - 1)
|
||||
|
||||
If eta_ZUL <> 0 Then
|
||||
P_V_ZUL_m = V_dot_A * A_B * Delta_p_star_ZUL / eta_ZUL / 3600000
|
||||
Else
|
||||
P_V_ZUL_m = 0
|
||||
End If
|
||||
|
||||
If eta_ABL <> 0 Then
|
||||
P_V_ABL_m = V_dot_A * A_B * Delta_p_star_ABL / eta_ABL / 3600000
|
||||
Else
|
||||
P_V_ABL_m = 0
|
||||
End If
|
||||
Q_V_E_ZUL_m = P_V_ZUL_m * t_V_mech_m * d_V_mech_m
|
||||
Q_V_E_ABL_m = P_V_ABL_m * t_V_mech_m * d_V_mech_m
|
||||
|
||||
|
||||
Result1o.E분석(i_count_month).환기에너지요구량(Dr존.code) = Q_V_E_ZUL_m + Q_V_E_ABL_m
|
||||
'Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m
|
||||
End If
|
||||
Else
|
||||
Result1o.E분석(i_count_month).환기에너지요구량(Dr존.code) = 0
|
||||
End If
|
||||
'==========================================================================2010.02.04 추가부분 끝
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
''=======================================2017.12.25 공조부분 추가 끝
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
182
ArinWarev1/Calculator-OD/CShared.vb
Normal file
182
ArinWarev1/Calculator-OD/CShared.vb
Normal file
@@ -0,0 +1,182 @@
|
||||
''' <remarks>공용으로 사용되는 값을을 이곳에서 설정한다</remarks>
|
||||
Public Class CSharedOD
|
||||
|
||||
Dim T As String = "공용코드"
|
||||
|
||||
Public ReadOnly Property 기상데이터() As DS.tbl_weather_odRow
|
||||
Get
|
||||
|
||||
If DSET1.tbl_Desc.Rows.Count = 0 Then
|
||||
MsgBox("건물개요데이터가 없습니다.", MsgBoxStyle.Critical, "오류")
|
||||
Return Nothing
|
||||
Else
|
||||
Dim 지역코드 As String = DSET1.tbl_Desc.Rows(0)("buildarea").ToString
|
||||
If 지역코드 = "" Then
|
||||
MsgBox("지역코드가 설정되어있지 않습니다", MsgBoxStyle.Critical, "확인")
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
If 지역코드 = "0" Then
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
'//설정된 지역값은 weather_group 의 정보이다. 이 값에서 area 를 취한것이 실제 계산에 적용할 값이다.
|
||||
If DSET1.weather_group.Select("code='" + 지역코드 + "'").Length < 1 Then
|
||||
MsgBox("지역코드({0}) 값이 존재하지 않는 코드입니다", MsgBoxStyle.Critical, "확인")
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
Dim 적용지역명 As String = DSET1.weather_group.Select("code='" + 지역코드 + "'")(0)("area").ToString()
|
||||
If String.IsNullOrEmpty(적용지역명) Then
|
||||
MsgBox("현재 선택된 지역에는 기상정보가 설정되지 않았습니다" + vbCrLf +
|
||||
"상위/하위 지역 을 다시 확인하시기 바랍니다", MsgBoxStyle.Critical, "확인")
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
|
||||
Dim 지역데이터() As DataRow = DSET1.tbl_weather_od.Select("건물위치 ='" & 적용지역명 & "'")
|
||||
If 지역데이터.GetUpperBound(0) = -1 Then
|
||||
MsgBox("건물개요의 지역정보(" + 적용지역명 + ")를 찾을 수 없습니다." + vbCrLf + "지역을 다시 선택하세요", MsgBoxStyle.Critical, "오류")
|
||||
Return Nothing
|
||||
Else
|
||||
Return 지역데이터(0)
|
||||
End If
|
||||
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
''' <summary>
|
||||
''' 오류가있는가?
|
||||
''' </summary>
|
||||
Public IsError As Boolean = False
|
||||
''' <summary>
|
||||
''' 주6일근무제로 변경
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public d_full() As Decimal
|
||||
''' <summary>
|
||||
''' 외기온도값
|
||||
''' </summary>
|
||||
Public theta_e(12) As Decimal
|
||||
''' <summary>
|
||||
''' 평균일사값이 들어있다.
|
||||
''' </summary>
|
||||
Public I_s(8, 12) As Decimal
|
||||
''' <summary>
|
||||
''' 외기온도 난방기(최대)
|
||||
''' </summary>
|
||||
Public theta_e_min As Decimal
|
||||
''' <summary>
|
||||
''' 외기온도 냉방기(최대)
|
||||
''' </summary>
|
||||
Public theta_e_max As Decimal
|
||||
|
||||
Public F_sh_gl(7, 11) As Decimal '//2010.02.26 차양감소계수
|
||||
|
||||
''' <summary>
|
||||
''' 클래스 생성자
|
||||
''' </summary>
|
||||
Public Sub New()
|
||||
'//지정된 존에 해당하는 지역정보를 가지고옴(현재기상정보가 존에 할당되어있어서 그렇다)
|
||||
'//1번째 존에 지역이 설정된걸로 간주한다
|
||||
|
||||
If 기상데이터 Is Nothing Then Return
|
||||
|
||||
'Dr신재생 = CType(DSET1.tbl_new.Rows(0), DS.tbl_newRow)
|
||||
|
||||
d_full = New Decimal() {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31} '우선 휴일없는 것으로 설정
|
||||
'd_op = new decimal() {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31} '우선 휴일없는 것으로 설정 각달의 일수 ##### 02/21 삭제됨
|
||||
'd_we = new decimal() {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ' 우선 휴일없는 것으로 설정
|
||||
|
||||
'//최소외기온도 설정
|
||||
If Not 기상데이터.Is난방기Null() Then
|
||||
theta_e_min = TOSG(T, 기상데이터.난방기)
|
||||
Else
|
||||
MsgBox("최소외기온도 확인불가")
|
||||
theta_e_min = TOSG(T, 기상데이터.난방기)
|
||||
End If
|
||||
|
||||
If Not 기상데이터.Is냉방기Null() Then
|
||||
theta_e_max = TOSG(T, 기상데이터.냉방기)
|
||||
Else
|
||||
MsgBox("최대외기온도 확인불가")
|
||||
theta_e_max = 0
|
||||
End If
|
||||
|
||||
'//지역의 외기온도값
|
||||
theta_e(0) = 0
|
||||
theta_e(1) = TOSG(T, 기상데이터.m01)
|
||||
theta_e(2) = TOSG(T, 기상데이터.m02)
|
||||
theta_e(3) = TOSG(T, 기상데이터.m03)
|
||||
theta_e(4) = TOSG(T, 기상데이터.m04)
|
||||
theta_e(5) = TOSG(T, 기상데이터.m05)
|
||||
theta_e(6) = TOSG(T, 기상데이터.m06)
|
||||
theta_e(7) = TOSG(T, 기상데이터.m07)
|
||||
theta_e(8) = TOSG(T, 기상데이터.m08)
|
||||
theta_e(9) = TOSG(T, 기상데이터.m09)
|
||||
theta_e(10) = TOSG(T, 기상데이터.m10)
|
||||
theta_e(11) = TOSG(T, 기상데이터.m11)
|
||||
theta_e(12) = TOSG(T, 기상데이터.m12)
|
||||
|
||||
'//월별평균일사(기상데이터) 9개를 가져온다. 그중 최대부하값만 취한다.
|
||||
'//현재 기상ROW의 CODE 와같은 Weather ilsa 데이터를 가져온다.
|
||||
'//엑셀의 0 to 8 은 9개의 평균일사 데이터를 의미한다
|
||||
Dim DRow일사() As DS.weather_ilsa_odRow = CType(DSET1.weather_ilsa_od.Select("pcode='" & 기상데이터.code & "'", "code"), DS.weather_ilsa_odRow())
|
||||
If DRow일사.GetUpperBound(0) = -1 Then
|
||||
MsgBox("월별평균일사데이터중 " & 기상데이터.code & "에 해당되는 지역이 없습니다", MsgBoxStyle.Critical, "CShared")
|
||||
Me.IsError = True
|
||||
Else
|
||||
'ReDim I_s(DR일사.GetUpperBound(0), 12)
|
||||
For i As Short = 0 To 8 'DRow일사.GetUpperBound(0) <- 이식을 사용하려했으나 45도용데이터떄문에 사용못함
|
||||
Dim DR일사 As DS.weather_ilsa_odRow = DRow일사(i)
|
||||
I_s(i, 0) = TOSG(T, DR일사.최대부하)
|
||||
I_s(i, 1) = TOSG(T, DR일사.m01)
|
||||
I_s(i, 2) = TOSG(T, DR일사.m02)
|
||||
I_s(i, 3) = TOSG(T, DR일사.m03)
|
||||
I_s(i, 4) = TOSG(T, DR일사.m04)
|
||||
I_s(i, 5) = TOSG(T, DR일사.m05)
|
||||
I_s(i, 6) = TOSG(T, DR일사.m06)
|
||||
I_s(i, 7) = TOSG(T, DR일사.m07)
|
||||
I_s(i, 8) = TOSG(T, DR일사.m08)
|
||||
I_s(i, 9) = TOSG(T, DR일사.m09)
|
||||
I_s(i, 10) = TOSG(T, DR일사.m10)
|
||||
I_s(i, 11) = TOSG(T, DR일사.m11)
|
||||
I_s(i, 12) = TOSG(T, DR일사.m12)
|
||||
Next
|
||||
End If
|
||||
|
||||
'=============================================================================2010.02.26 추가
|
||||
Dim DRow차양() As DS.weather_cha_odRow = CType(DSET1.weather_cha_od.Select("pcode='" & 기상데이터.code & "'", "code"), DS.weather_cha_odRow())
|
||||
If DRow차양.GetUpperBound(0) = -1 Then
|
||||
MsgBox("월별차양감소데이터중 " & 기상데이터.code & "에 해당되는 지역이 없습니다", MsgBoxStyle.Critical, "CShared")
|
||||
Me.IsError = True
|
||||
Else
|
||||
'//차양감소계수 추가
|
||||
For i As Short = 0 To 7 '총 8개의 종류가있따.
|
||||
Dim DR차양 As DS.weather_cha_odRow = DRow차양(i)
|
||||
F_sh_gl(i, 0) = TOSG(T, DR차양.m01)
|
||||
F_sh_gl(i, 1) = TOSG(T, DR차양.m02)
|
||||
F_sh_gl(i, 2) = TOSG(T, DR차양.m03)
|
||||
F_sh_gl(i, 3) = TOSG(T, DR차양.m04)
|
||||
F_sh_gl(i, 4) = TOSG(T, DR차양.m05)
|
||||
F_sh_gl(i, 5) = TOSG(T, DR차양.m06)
|
||||
F_sh_gl(i, 6) = TOSG(T, DR차양.m07)
|
||||
F_sh_gl(i, 7) = TOSG(T, DR차양.m08)
|
||||
F_sh_gl(i, 8) = TOSG(T, DR차양.m09)
|
||||
F_sh_gl(i, 9) = TOSG(T, DR차양.m10)
|
||||
F_sh_gl(i, 10) = TOSG(T, DR차양.m11)
|
||||
F_sh_gl(i, 11) = TOSG(T, DR차양.m12)
|
||||
Next
|
||||
End If
|
||||
|
||||
'=============================================================================2010.02.26 추가
|
||||
'For i = 0 To 7
|
||||
' For j = 0 To 11
|
||||
' F_sh_gl(i, j) = Worksheets("기상데이타").Range("차양감소계수1").Offset(i * 13 + j, i_count_location - 1)
|
||||
' Next
|
||||
'Next
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
438
ArinWarev1/Calculator-OD/Calculator.vb
Normal file
438
ArinWarev1/Calculator-OD/Calculator.vb
Normal file
@@ -0,0 +1,438 @@
|
||||
Public Class CalculatorOD
|
||||
|
||||
Dim T As String = "계산"
|
||||
|
||||
Public WithEvents Zone As CZoneOD '//존에클래스할당
|
||||
Public WithEvents AirHandling As CAirHandlingOD '//존에클래스할당
|
||||
Public WithEvents Cooling As CCoolingOD '//존에클래스할당
|
||||
Public WithEvents Heating As CHeatingOD '//존에클래스할당
|
||||
Public WithEvents Renewable As CRenewableOD '//존에클래스할당
|
||||
Public WithEvents Summary As CSummaryOD
|
||||
Public WithEvents Pub As CSharedOD
|
||||
|
||||
Public IsError As Boolean = False
|
||||
|
||||
Enum ECalc
|
||||
All = 0
|
||||
REq = 1
|
||||
Use = 2
|
||||
End Enum
|
||||
|
||||
Public Sub New(ByVal Version As String)
|
||||
Me.IsError = False
|
||||
|
||||
Me.Zone = New CZoneOD '//존
|
||||
Me.AirHandling = New CAirHandlingOD '//공기
|
||||
Me.Cooling = New CCoolingOD
|
||||
Me.Heating = New CHeatingOD
|
||||
Me.Renewable = New CRenewableOD '//신재상
|
||||
Me.Summary = New CSummaryOD '//계산결과 집계
|
||||
Me.Pub = New CSharedOD '//공용변수
|
||||
Me.IsError = Me.Pub.IsError '//공용변수값에 오류확인
|
||||
|
||||
'Select Case Version
|
||||
' Case "2009123100", StartVersion, "2017041400"
|
||||
|
||||
' Case Else
|
||||
' MsgBox("LG계산식에 지원되지않는 버젼(" & StartVersion & "/" & Version & ")입니다", MsgBoxStyle.Critical, "확인")
|
||||
' Me.IsError = True
|
||||
'End Select
|
||||
End Sub
|
||||
|
||||
Public Function Start(ByVal CalcType As ECalc, ByRef log As System.Text.StringBuilder) As Boolean
|
||||
'//계산을 시작 p_CalcUse : 는 소요량 계산도 할건지으 ㅣ플래그 나중에 분리해야겠따.
|
||||
|
||||
Setup_Zone9()
|
||||
|
||||
'Dim ST As Date = Now
|
||||
If Me.IsError Then
|
||||
MsgBox("계산준비중 오류발생", MsgBoxStyle.Critical, "확인")
|
||||
Return False
|
||||
End If
|
||||
log = New System.Text.StringBuilder("")
|
||||
Dim Cnt As Integer = FixData()
|
||||
'log.AppendLine(">>데이터보정(" & Cnt.ToString & ")개의 데이터가 보정되었습니다")
|
||||
'log.AppendLine(">>유효성검사시작")
|
||||
If Validation() = False Then Return False '//유효성 체크를 수행한다.
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'///////////////////////////////////////////////////////////////////////////
|
||||
' 2017. 12. 19
|
||||
'///////////////////////////////////////////////////////////////////////////
|
||||
'//모드난방기기는 헤더적용
|
||||
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Rows
|
||||
dr.헤더적용 = True
|
||||
dr.개별기기적용 = False
|
||||
Next
|
||||
DSET1.tbl_nanbangkiki.AcceptChanges()
|
||||
|
||||
|
||||
|
||||
|
||||
If CalcType <> ECalc.Use Then
|
||||
'log.AppendLine(">>계산영역초기화")
|
||||
Clear_ResultArea() '//과거의 계산영역을 클리어시킨다.
|
||||
'log.AppendLine(">>각존의 사용면적 계산")
|
||||
Result1o.사용면적.Calc() '//A_H,C,W,L,V 의 누적값을 계산(사용면적) : 개별프로시져로 할당
|
||||
'log.AppendLine(">>주계산시작")
|
||||
End If
|
||||
|
||||
Dim Retval As Boolean
|
||||
Select Case CalcType
|
||||
Case ECalc.All
|
||||
Retval = CalcO.Zone.Calc_LoadOfZones
|
||||
If Retval Then Retval = CalcO.Zone.Calc_Useage
|
||||
Return Retval
|
||||
Case ECalc.REq
|
||||
Return CalcO.Zone.Calc_LoadOfZones
|
||||
Case ECalc.Use
|
||||
Return CalcO.Zone.Calc_Useage
|
||||
End Select
|
||||
|
||||
End Function
|
||||
|
||||
Private Function FixData() As Integer
|
||||
Dim RetCnt As Integer = 0
|
||||
Dim Null As String = "(없음)"
|
||||
'//보정할수있는데이터를 보정합니다.
|
||||
';//입력면 - 건축부위방식이 .내벽 or 간벽일경우 방위는 (없음)이다
|
||||
For Each DR면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("code <> '0'")
|
||||
If DR면.건축부위방식 = "내벽" Or DR면.건축부위방식 = "간벽" Then
|
||||
If DR면.방위 <> Null AndAlso DR면.방위 <> "일사없음" Then
|
||||
RetCnt += 1
|
||||
DR면.방위 = Null
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
For Each DR존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'")
|
||||
If DR존.조명방식.ToString = "0" OrElse DR존.조명방식.ToString = "" Then
|
||||
RetCnt += 1
|
||||
Log.AppendLine("Zone " & DR존.설명.ToString & "] 의 조명방식이 없음으로 설정됩니다.")
|
||||
DR존.조명방식 = "(없음)"
|
||||
End If
|
||||
If DR존.인공광원.ToString = "0" OrElse DR존.인공광원.ToString = "" Then
|
||||
RetCnt += 1
|
||||
Log.AppendLine("Zone " & DR존.설명.ToString & "] 의 인공광원이 없음으로 설정됩니다.")
|
||||
DR존.인공광원 = "(없음)"
|
||||
End If
|
||||
If DR존.외기부하처리여부.ToString = "0" OrElse DR존.외기부하처리여부.ToString = "" Then
|
||||
RetCnt += 1
|
||||
Log.AppendLine("Zone " & DR존.설명.ToString & "] 의 외기부하처리여부가 아니오로 설정됩니다.")
|
||||
DR존.외기부하처리여부 = "아니오"
|
||||
End If
|
||||
|
||||
'If DR존.조명방식.ToString.Trim = "" Then DR존.조명방식 = "(없음)"
|
||||
'If DR존.인공광원.ToString.Trim = "" Then DR존.인공광원 = "(없음)"
|
||||
Next
|
||||
|
||||
DSET1.AcceptChanges() '//변경내용 적용
|
||||
Return RetCnt
|
||||
End Function
|
||||
Public 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, DSET1.tbl_zone, CGubun) '//이거는 // 공용코드오류난 데이터 검색하는부분이에요
|
||||
Set_Null(Columnst, DSET1.tbl_zone, "0")
|
||||
|
||||
Title = "신재생에너지"
|
||||
Columns = New String() {"기기종류", "가동연료", "태양열종류", "집열기유형",
|
||||
"집열판방위", "태양열시스템의성능", "축열탱크설치장소",
|
||||
"태양광모듈기울기", "태양광모듈방위",
|
||||
"태양광모듈종류", "태양광모듈적용타입",
|
||||
"열교환기설치여부", "팽창탱크설치여부"}
|
||||
Set_Null(Columns, DSET1.tbl_new, "(없음)")
|
||||
'Set_Null(Columnst, DSET1.tbl_bunbae, "0")
|
||||
|
||||
Title = "난방분배시스템"
|
||||
Columns = New String() {"생산기기구분", "표준치적용", "배관망유형",
|
||||
"배관구간방식", "배관설치장소",
|
||||
"배관설치장소", "지관장소"}
|
||||
Set_Null(Columns, DSET1.tbl_nbunbae, "(없음)")
|
||||
'Set_Null(Columnst, DSET1.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() {"냉동기방식", "냉동기종류",
|
||||
"냉동기용량", "열성능비",
|
||||
"사용연료"}
|
||||
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, DSET1.tbl_bunbae, "0")
|
||||
|
||||
'Title = "냉방분배시스템"
|
||||
''Columns = New String() {"냉매방식", "펌프운전제어유무"}
|
||||
'Columnst = New String() {"냉동기"}
|
||||
''Set_Null(Columns, DSET1.tbl_bunbae, "(없음)")
|
||||
'Set_Null(Columnst, DSET1.tbl_bunbae, "0")
|
||||
|
||||
|
||||
'DSET1.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
|
||||
|
||||
'//부위명 업데이트 171021
|
||||
For Each drm As DS.tbl_myounRow In DSET1.tbl_myoun.Select("code<>'0'")
|
||||
If drm.열관류율2 <> "" Then
|
||||
|
||||
Dim ykcode As String = drm.열관류율2
|
||||
Dim dr() As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & ykcode & "'")
|
||||
If dr.GetUpperBound(0) <> -1 Then
|
||||
Select Case dr(0).면형태
|
||||
Case "외벽(직접)", "0"
|
||||
drm.면형태 = "외벽(직접)"
|
||||
Case "지붕(직접)", "0001"
|
||||
drm.면형태 = "지붕(직접)"
|
||||
Case "바닥(직접)", "0002"
|
||||
drm.면형태 = "바닥(직접)"
|
||||
Case "외벽(간접)", "0003"
|
||||
drm.면형태 = "외벽(간접)"
|
||||
Case "지붕(간접)", "0004"
|
||||
drm.면형태 = "지붕(간접)"
|
||||
Case "바닥(간접)", "0005"
|
||||
drm.면형태 = "바닥(간접)"
|
||||
Case "간벽", "0006"
|
||||
drm.면형태 = "간벽"
|
||||
Case "창(직접)", "창(간접)", "문(직접)", "문(간접)", "세대현관문(직접)", "세대현관문(간접)", "0007", "0008", "0010", "0011", "0012", "0013"
|
||||
If dr(0).면형태 = "0007" Then
|
||||
drm.면형태 = "창(직접)"
|
||||
ElseIf dr(0).면형태 = "0008" Then
|
||||
drm.면형태 = "창(간접)"
|
||||
ElseIf dr(0).면형태 = "0010" Then
|
||||
drm.면형태 = "문(직접)"
|
||||
ElseIf dr(0).면형태 = "0011" Then
|
||||
drm.면형태 = "문(간접)"
|
||||
ElseIf dr(0).면형태 = "0012" Then
|
||||
drm.면형태 = "세대현관문(직접)"
|
||||
ElseIf dr(0).면형태 = "0013" Then
|
||||
drm.면형태 = "세대현관문(간접)"
|
||||
End If
|
||||
Case "지중벽", "0009"
|
||||
drm.면형태 = "지중벽"
|
||||
Case Else
|
||||
drm.면형태 = "--"
|
||||
End Select
|
||||
|
||||
End If
|
||||
Else
|
||||
drm.면형태 = ""
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
|
||||
'//여기에서 FAlse 를 반환해버리면.. 게산은 돌지않아요 게산전에 수행되는곳이구요
|
||||
'//아까 파일오픈시에도 여기를 호출합니다. 바로 윗부분이 nul l값에대한 기본값 처리구요.
|
||||
Return NoErr
|
||||
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) Is DBNull.Value OrElse Dr(Col).ToString.Trim = "" Then '//값이없으면 기본값(val)으로 설정
|
||||
Dr(Col) = val
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
|
||||
'''공용코드에값이있는지확인
|
||||
Private Sub Set_CheckCommon(ByVal Columns() As String, ByRef dt As DataTable, ByVal gubunval() As String)
|
||||
Dim index As Short = -1
|
||||
For Each Dr As DataRow In dt.Select("code<>'0'", "code")
|
||||
index = 0
|
||||
For Each Col As String In Columns
|
||||
If Dr(Col).ToString.Trim = "" Then '//값이없으면 기본값(val)으로 설정
|
||||
'Dr(Col) = val
|
||||
Else '//값이있을때
|
||||
Dim V As String = Dr(Col).ToString.Trim
|
||||
'//v의값이 공용ㅇ코드에 있는지 확인 공용코드는 name 을 저장하므로 name 으로검사를 수행
|
||||
Dim Cdr() As DS.tbl_common_odRow = DSET1.tbl_common_od.Select("gubun='" & gubunval(index) & "' and name='" & V & "'")
|
||||
If Cdr.GetUpperBound(0) = -1 Then
|
||||
MsgBox("값이있으나 공용코드에없음(여기에 경고문구좀 날려주시면되구요")
|
||||
End If
|
||||
End If
|
||||
index += 1
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' 계산결과 영역을 초기화시킵니다.
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Clear_ResultArea()
|
||||
DSETR1.Clear() : DSETR1.AcceptChanges() '//기존데이터 클리어
|
||||
|
||||
'//0번시트의 결과값을 저장할 장소를 생성한다. Zone=00 은 합계필드이다(이것이 일률적이지않아서 00으로 할당을 따로 해서 나중에 합산작업을 할 예정)
|
||||
'//00번 존을포함하여 현재 존의 갯수+1개를 생성한다.
|
||||
|
||||
'//최대냉난방/E분석
|
||||
Dim ZoneCode As String
|
||||
For Each Dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("", "code")
|
||||
If Dr존.code = "0" Then
|
||||
ZoneCode = "00"
|
||||
Else
|
||||
ZoneCode = Dr존.code
|
||||
End If
|
||||
|
||||
Dim Res1 As DSR.최대냉난방부하Row = DSETR1.최대냉난방부하.New최대냉난방부하Row
|
||||
Res1.Zone = ZoneCode : DSETR1.최대냉난방부하.Add최대냉난방부하Row(Res1)
|
||||
For ii As Integer = 1 To 12
|
||||
Dim DrE분석 As DSR.월별에너지분석Row = DSETR1.월별에너지분석.New월별에너지분석Row
|
||||
DrE분석.월 = "M" & Format(ii, "00") '//정렬을위해서 00숫자형태로 기록한다. 앞으로 모든 월데이터는 그렇게 기록함
|
||||
DrE분석.존 = ZoneCode
|
||||
DSETR1.월별에너지분석.Add월별에너지분석Row(DrE분석)
|
||||
|
||||
'MsgBox("M" & Format(ii, "00"), MsgBoxStyle.Information, ZoneCo'de)
|
||||
Next
|
||||
Next
|
||||
|
||||
' MsgBox(DSETR1.월별에너지분석.Select("월='M01'").GetUpperBound(0))
|
||||
|
||||
|
||||
'//월별로 움직이는데이터
|
||||
Dim Mon As String
|
||||
Dim Dr As DataRow
|
||||
For ii As Integer = 0 To 12
|
||||
Mon = "M" & Format(ii, "00")
|
||||
|
||||
Dr = DSETR1.생산에너지.NewRow
|
||||
Dr("mon") = Mon '//정렬을위해서 00숫자형태로 기록한다. 앞으로 모든 월데이터는 그렇게 기록함
|
||||
DSETR1.생산에너지.Rows.Add(Dr)
|
||||
|
||||
Dr = DSETR1.에너지소요량.NewRow
|
||||
Dr("mon") = Mon '//정렬을위해서 00숫자형태로 기록한다. 앞으로 모든 월데이터는 그렇게 기록함
|
||||
DSETR1.에너지소요량.Rows.Add(Dr)
|
||||
|
||||
Dr = DSETR1.에너지소요량1.NewRow
|
||||
Dr("mon") = Mon '//정렬을위해서 00숫자형태로 기록한다. 앞으로 모든 월데이터는 그렇게 기록함
|
||||
DSETR1.에너지소요량1.Rows.Add(Dr)
|
||||
|
||||
Next
|
||||
'//전부다시 구성해야함
|
||||
DSETR1.AcceptChanges()
|
||||
End Sub
|
||||
|
||||
|
||||
'''열관류율값ㅇㄹ 반환
|
||||
Public Function Get_열관류율(ByVal Dr As DS.tbl_myounRow) As Decimal
|
||||
Return TOSG(T, Dr.열관류율)
|
||||
|
||||
|
||||
'Dim 열관류율2 As String = Dr.열관류율2
|
||||
'If 열관류율2 = "" OrElse 열관류율2 = "0" Then '//코드가없으므로 입력값그대로 사용
|
||||
' Return TOSG(T,Dr.열관류율)
|
||||
'Else '//코드값이잇으므로 값을 찾는다.
|
||||
' Try
|
||||
' Dim Drow As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & 열관류율2 & "'")(0)
|
||||
' Return TOSG(T,Drow.열관류율) '//코드내에 저장된 값을 보낸다
|
||||
' Catch ex As Exception
|
||||
' MsgBox("열관류율코드값(" & 열관류율2 & ") 값오류" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical, "확인")
|
||||
' Return 0
|
||||
' End Try
|
||||
'End If
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
488
ArinWarev1/Calculator-OD/Cooling/CCooling.vb
Normal file
488
ArinWarev1/Calculator-OD/Cooling/CCooling.vb
Normal file
@@ -0,0 +1,488 @@
|
||||
Public Class CCoolingOD
|
||||
Public Overridable Sub Calc_CoolingSystem(ByVal i_count_month As Integer, ByVal theta_e As Decimal)
|
||||
|
||||
Dim T As String = "냉방기기"
|
||||
Dim c_p1 As Decimal, c_p2 As Decimal, c_cl As Decimal
|
||||
Dim b As Decimal, L As Decimal, n_G As Decimal, h_G As Decimal, L_max As Decimal, R As Decimal, z As Decimal
|
||||
Dim rho_cl As Decimal
|
||||
Dim eta_c_star_d As Decimal, eta_c_star_ce_sens As Decimal, eta_c_star_ce As Decimal, eta_c_d As Decimal, eta_c_ce As Decimal, eta_c_ce_sens As Decimal
|
||||
Dim Q_c_star_s As Decimal, Q_c_s As Decimal, Q_c_b As Decimal, Q_vc_b As Decimal, Q_vm_b As Decimal, Q_c_b_i As Decimal, Q_c_star_b_i As Decimal
|
||||
Dim Q_c_star_b As Decimal, Q_m_star_b As Decimal, Q_c_star_d As Decimal, Q_c_star_ce As Decimal, Q_c_d As Decimal, Q_c_ce As Decimal
|
||||
Dim Q_c_star_outg As Decimal, Q_z_outg_l As Decimal, Q_m_star_outg As Decimal, Q_dot_c_outg As Decimal, Q_c_outg As Decimal, Q_c_outg_total As Decimal, Q_dot_z As Decimal
|
||||
Dim Q_c_ce_aux As Decimal, Q_z_aux_d_l As Decimal, Q_z_star_outg_l As Decimal
|
||||
Dim f_c_ce_aux As Decimal, f_Abgl As Decimal, f_e As Decimal
|
||||
Dim V_dot_z As Decimal
|
||||
Dim EER As Decimal, PLV_av As Decimal
|
||||
Dim P_d_hydr As Decimal, P_Pump As Decimal
|
||||
Dim beta_d_l As Decimal, e_d_l As Decimal
|
||||
Dim W_d_hydr_l As Decimal
|
||||
Dim Q_c_f_elektr As Decimal, Q_c_f_R_elektr As Decimal, Q_dot_R_outg As Decimal, Q_c_outg_therm As Decimal, Q_c_f As Decimal, Q_c_aux As Decimal
|
||||
Dim t_h_max As Integer
|
||||
Dim Q_c_g As Decimal, Q_c_g_v_i As Decimal, Q_dot_N As Decimal, Q_dot_d_in As Decimal
|
||||
Dim theta_VA As Decimal, theta_RA As Decimal, theta_HK_m_beta_h_d As Decimal, beta_h As Decimal, n_beta As Decimal
|
||||
Dim eta_k_100 As Decimal, eta_k_pl As Decimal, f As Decimal, e As Decimal, q_B_70 As Decimal, q_B_theta As Decimal, f_Hs_Hi As Decimal
|
||||
Dim Q_V_g_100 As Decimal, Q_dot_B_h As Decimal, Q_V_g_pl As Decimal, q_R_elektr As Decimal
|
||||
Dim beta_k_pl As Decimal, Delta_theta_z_cl As Decimal
|
||||
Dim Delta_P_WUE As Decimal, Delta_P_WUV As Decimal, Delta_P_RV As Decimal, Delta_p_z As Decimal
|
||||
Dim k_n As Decimal, f_1_av As Decimal, f_2_av As Decimal, f_R_av As Decimal, T_W_1_i As Decimal, l_min_i As Decimal
|
||||
Dim use_Oil As Decimal, use_LNG As Decimal, use_LPG As Decimal, use_Elec As Decimal, use_DH As Decimal
|
||||
|
||||
'20100223 제거 i_count_chiller As Integer, 최적화중 사용안함
|
||||
'Dim i_count_zone As Integer, i_count_c_d As Integer
|
||||
Dim i_count_beta As Integer, k_n_index As Integer
|
||||
' Dim i_count_renewable As Integer
|
||||
Dim i_HeatCool As Integer
|
||||
Dim theta_i As Decimal, Q_hp_outg As Decimal, Q_c_f_hp As Decimal, Q_c_g_hp_aux As Decimal
|
||||
Dim Q_chp_outg As Decimal, Q_c_f_chp As Decimal
|
||||
Dim system_type As Integer
|
||||
'==================================2010.2.21 수정
|
||||
Dim use_DC As Decimal
|
||||
Dim d_op_mth As Integer
|
||||
Dim d_op_max_mth As Integer
|
||||
' Dim i_count_profile As Integer
|
||||
use_DC = 0
|
||||
d_op_max_mth = 0
|
||||
'==================================2010.2.21 수정
|
||||
'==================================2010.04.02 수정
|
||||
Dim Q_H_sol_out_m As Decimal, Q_W_sol_out_m As Decimal, W_sol_aux_m As Decimal
|
||||
Dim Q_h_outg_i As Decimal
|
||||
|
||||
Q_H_sol_out_m = 0
|
||||
Q_h_outg_i = 0
|
||||
'==================================2010.04.02 수정
|
||||
|
||||
|
||||
|
||||
eta_c_star_d = 0.95 '건물 내 배관 적용
|
||||
eta_c_star_ce_sens = 1 '습도요구 편차없음 적용
|
||||
eta_c_star_ce = 0.9 '공조기기로 냉열전달에서 현열전달효율로 우선 0.9 적용
|
||||
Q_c_star_s = 0
|
||||
Q_c_s = 0 '(3.2.8-22)
|
||||
eta_c_d = 0.9 ' 우선 적용 추후 검토
|
||||
eta_c_ce = 1 ' 우선 적용 추후 검토
|
||||
eta_c_ce_sens = 0.9 '우선 적용 추후 검토
|
||||
f_c_ce_aux = 0.04 ' 표3.93 우선 적용 추후 검토
|
||||
f_Abgl = 1 '수리역학적으로 평형을 이룬 배관망
|
||||
Q_c_f = 0
|
||||
Q_c_aux = 0
|
||||
beta_k_pl = 0.3
|
||||
PLV_av = 1
|
||||
use_Oil = 0
|
||||
use_LNG = 0
|
||||
use_LPG = 0
|
||||
use_Elec = 0
|
||||
use_DH = 0
|
||||
i_HeatCool = 2
|
||||
system_type = 2
|
||||
|
||||
|
||||
Dim 냉동기용량합 As Decimal = 0
|
||||
For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code<>'0'", "code")
|
||||
If IsNumeric(dr냉방.냉동기용량) Then 냉동기용량합 += (dr냉방.냉동기용량 * TOSG(T, dr냉방.대수))
|
||||
Next
|
||||
|
||||
Dim Mon As String = "M" & Format(i_count_month, "00")
|
||||
For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code<>'0'", "code")
|
||||
|
||||
'//이 냉방기가가 존에서 사용되었는지확인한다.
|
||||
Dim Drow존() As DS.tbl_zoneRow = CType(DSET1.tbl_zone.Select("code <> '0'"), DS.tbl_zoneRow())
|
||||
If Drow존.GetUpperBound(0) <> -1 Then ' Worksheets("냉방기기").Range("냉방생산기기1").Offset(2, i_count_chiller - 1) = "0001" Then '2
|
||||
Q_c_b = 0
|
||||
Q_c_star_b = 0
|
||||
t_h_max = 0
|
||||
Q_c_f_elektr = 0
|
||||
Q_c_outg_therm = 0
|
||||
Q_c_g = 0
|
||||
Q_c_f_R_elektr = 0
|
||||
|
||||
|
||||
For Each Dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'", "code")
|
||||
Dim Drow분석() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row())
|
||||
' 존데이터를가져올떄 해당 냉방기기에서 사용한 존만 가져왔따.
|
||||
' If Dr존.열생산냉방생산기기 <> "" Then ' Worksheets("입력존").Range("입력냉방생산기기1").Offset(0, i_count_zone - 1) <> "" Then
|
||||
' If Dr존.열생산냉방생산기기 = dr냉방.code Then ' Worksheets("입력존").Range("입력냉방생산기기1").Offset(0, i_count_zone - 1) = Worksheets("냉방기기").Range("냉방생산기기1").Offset(0, i_count_chiller - 1) Then
|
||||
|
||||
If (Dr존.냉난방방식 = "냉난방" OrElse Dr존.냉난방방식 = "냉방") Then
|
||||
Q_c_b_i = Result1o.E분석(i_count_month).냉방에너지요구량열(Dr존.code) * (TOSG(T, dr냉방.냉동기용량) * TOSG(T, dr냉방.대수)) / 냉동기용량합 ' CSng(Drow분석(0).냉방요구량열) ' Sheets("" & i_count_month & "").Cells(10, 7 + i_count_zone)
|
||||
Q_c_b = Q_c_b + Q_c_b_i
|
||||
End If
|
||||
If Dr존.냉난방공조 = "냉난방" OrElse Dr존.냉난방공조 = "냉방" OrElse ((Dr존.냉난방공조 = "환기" OrElse Dr존.냉난방공조 = "난방") And Dr존.외기부하처리여부 = "예") Then
|
||||
'If (Dr존.냉난방공조 = "환기" OrElse Dr존.냉난방공조 = "난방") And Dr존.외기부하처리여부 = "예" Then '// 2010.11.19 추가
|
||||
Q_c_star_b_i = TOSG(T, Drow분석(0).냉방요구량공조) * TOSG(T, dr냉방.냉동기용량) * TOSG(T, dr냉방.대수) / 냉동기용량합 '//2010.11.19 추가
|
||||
'Else
|
||||
'Q_c_star_b_i = Result1o.E분석(i_count_month).공조에너지요구량냉방(Dr존.code) * TOSG(T,dr냉방.냉동기용량) / 냉동기용량합 ' CSng(Drow분석(0).공조요구량냉방) ' Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone)
|
||||
|
||||
' End If
|
||||
|
||||
Q_c_star_b = Q_c_star_b + Q_c_star_b_i
|
||||
End If
|
||||
|
||||
'===================================================================================2010.2.21 수정
|
||||
Dim Dr프로필 As DS.tbl_profile_odRow = CType(DSET1.tbl_profile_od.Select("code='0'")(0), DS.tbl_profile_odRow)
|
||||
Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Dr존.code & "'"), DSR.최대냉난방부하Row())
|
||||
|
||||
If i_count_month = 0 Then
|
||||
d_op_mth = 0
|
||||
Else
|
||||
d_op_mth = CInt(Dr프로필("day" & Format(i_count_month, "00")))
|
||||
End If
|
||||
|
||||
If t_h_max < TOSG(T, Drow최대(0).난방최대가동시간) * d_op_mth Then
|
||||
t_h_max = CInt(TOSG(T, Drow최대(0).난방최대가동시간) * d_op_mth)
|
||||
End If
|
||||
If d_op_max_mth < d_op_mth Then
|
||||
d_op_max_mth = d_op_mth
|
||||
End If
|
||||
'===================================================================================2010.2.21 수정
|
||||
' End If
|
||||
' End If
|
||||
Next
|
||||
|
||||
'Q_vh_b = Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone)
|
||||
'Q_vc_b = Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone)
|
||||
'Q_vm_b = Sheets("" & i_count_month & "").Cells(23, 7 + i_count_zone)
|
||||
|
||||
|
||||
'==========================================================================================================================================
|
||||
' 가열유닛에 대한 사용에너지(3차 에너지)
|
||||
' 외부 공조덕트가 없어서 Q_vh_d 는 0으로 적용
|
||||
|
||||
'Q_dot_V_H_max = V_dot_star_rho_L(c_p_L * (theta_ZUL_wi - theta_AUL_wi) - Delta_h_WRG) '(3.2.5-58)
|
||||
'Q_dot_V_H_max = V_dot_star * rho_L(h_ZUL_wi - h_AUL_wi - Delta_h_WRG) '(3.2.5-57)
|
||||
'b_VH_a = sigma1_12(b_VH_month) '(3.2.8-7)
|
||||
'b_VH_mth = Q_vh_b / Q_dot_V_H_max '(3.2.8-6)
|
||||
't_H_r = t_H_r_14_12h + (t_H_r_22_12h - t_H_r_14_12h) * (theta_V_mech - 14) / 8 '(3-B.1) theta_V_mech은 (3-C.1)
|
||||
't_H_star_op_mth = t_H_r * b_VH_mth / b_VH_a '(3.2.8-5)
|
||||
'Q_vh_d = f_vh_d * A_K_A * t_H_star_opo_mth '(3.2.8-10) f_vh_d=16W/m
|
||||
|
||||
'Q_vh_ce = (1 - eta_vh_ce) * Q_vh_b '(3.2.8-9) eta_vh_ce 는 1로 Q_vh_ce 는 0이 됨
|
||||
'Q_h_star_b = Q_vh_b 'Q_h_star_b = Q_vh_b + Q_vh_ce + Q_vh_d '(3.2.8-2)
|
||||
'==========================================================================================================================================
|
||||
|
||||
|
||||
|
||||
'==========================================================================================================================================
|
||||
' 냉각 유닛에 대한 사용 에너지(3차 에너지)
|
||||
' 외부 공조덕트가 없어서 Q_vc_d 는 0으로 적용
|
||||
|
||||
'Q_dot_V_C_max = V_dot_star * rho_L(h_AUL_so - h_ZUL_so - Delta_h_WRG) '(3.2.5-62)
|
||||
'b_VC_a = sigma1_12(b_VC_month) '(3.2.8-13)
|
||||
'b_VC_mth = Q_vc_b / Q_dot_V_C_max '(3.2.8-12)
|
||||
't_C_r = (t_C_r_14_12h + (t_C_r_22_12h - t_C_r_14_12h) * (theta_V_mech - 14) / 8) * f_h_C '(3-B.2) theta_V_mech은 (3-C.1)
|
||||
't_C_star_op_mth = t_C_r * b_VC_mth / b_VC_a '(3.2.8-11)
|
||||
'Q_vc_d = f_vc_d * A_K_A * t_C_star_opo_mth '(3.2.8-10) f_vh_d=9W/m
|
||||
'Q_vc_ce = (1 - eta_vc_ce) * Q_vc_b '(3.2.8-9) eta_vc_ce 는 1로 Q_vc_ce 는 0이 됨
|
||||
|
||||
'Q_c_star_b = Q_vc_b 'Q_c_star_b = Q_vc_b + Q_vc_ce + Q_vc_d '(3.2.8-8)
|
||||
|
||||
'==========================================================================================================================================
|
||||
|
||||
|
||||
'가습
|
||||
Q_m_star_b = Q_vm_b '(3.2.8-14)
|
||||
|
||||
|
||||
' 실-냉방 냉열 공급
|
||||
|
||||
'Q_c_b = Sheets("" & i_count_month & "").Cells(7, 7 + i_count_zone)
|
||||
|
||||
Q_c_d = (1 - eta_c_d) * Q_c_b '(3.2.8-21) eta_c_d는 (Tab.7-8)
|
||||
Q_c_ce = ((1 - eta_c_ce) + (1 - eta_c_ce_sens)) * Q_c_b '(3.2.5-20) eta_c_ce는(Tab.7-8), eta_c_ce_sens는 (Tab.7-7)
|
||||
|
||||
Q_c_outg = Q_c_b + Q_c_ce + Q_c_d + Q_c_s '(3.2.8-19)
|
||||
|
||||
|
||||
|
||||
'==========================================================================================================================================
|
||||
' 실-냉방 2차 공기 송풍기의 전기에너지 요구량
|
||||
' 추후 세부 변수 검토
|
||||
|
||||
'beta_c_i = beat_c_we = Q_c_b_we / (Q_c_max_res * t_c_op_we) '(2-D.7)
|
||||
'beta_c_i = beta_c_nutz = Q_c_b_nutz / (Q_c_max_res * t_c_op_nutz)
|
||||
't_c_i = t_mth_nutz = d_nutz * t_c_op_nutz '(2-D.8) t_c_i=t_mth_we=d_we*t_c_op_we
|
||||
't_c_i = t_mth_i * beta_c_i / beta_c_grenz '(2-D.6)
|
||||
't_c_op = t_c_NR + t_c_we '(2-D.5)
|
||||
'Q_c_outg = Q_c_b + Q_c_ce + Q_c_d + Q_c_s '(3.2.8-19)
|
||||
'Q_c_ce_aux = f_c_ce_aux * Q_c_outg * t_c_op / 1000 '(3.2.8-23) f_c_ce_aux 는 (Tab.3.93)
|
||||
Q_c_ce_aux = f_c_ce_aux * Q_c_outg * t_h_max / 1000
|
||||
|
||||
|
||||
'==========================================================================================================================================
|
||||
|
||||
|
||||
|
||||
|
||||
'공조-냉방 냉열 공급
|
||||
|
||||
Q_c_star_d = (1 - eta_c_star_d) * Q_c_star_b '(3.2.8-18) eta_c_star_d는 (Tab.3.91)
|
||||
Q_c_star_ce = ((1 - eta_c_star_ce) + (1 - eta_c_star_ce_sens)) * Q_c_star_b '(3.2.8-16) eta_c_star_ce는 (Tab.3.91), eta_c_star_ce_sens는 (Tab.3.91)
|
||||
|
||||
Q_c_star_outg = Q_c_star_b + Q_c_star_ce + Q_c_star_d + Q_c_star_s '(3.2.8-15)
|
||||
Q_z_star_outg_l = Q_c_star_outg
|
||||
|
||||
|
||||
' 공조기기 가습에 필요한 생산기의 이용열 교부
|
||||
|
||||
|
||||
'Q_m_star_d = 0
|
||||
'Q_m_star_ce = 0
|
||||
'Q_m_star_b = Q_vm_b '(3.2.8-14)
|
||||
Q_m_star_outg = Q_m_star_b 'Q_m_star_outg = Q_m_star_b + Q_m_star_ce + Q_m_star_d '(3.2.8-24)
|
||||
|
||||
|
||||
Q_c_outg_total = Q_c_outg + Q_c_star_outg
|
||||
|
||||
Q_z_outg_l = Q_c_outg_total
|
||||
|
||||
|
||||
|
||||
'==================================================================================================================================
|
||||
'==================================================================================================================================
|
||||
'지열시스템
|
||||
|
||||
Dim CRenew As New CRenewableOD
|
||||
If dr냉방.연결된시스템.Trim <> "" AndAlso dr냉방.연결된시스템 <> "0" AndAlso dr냉방.연결된시스템 <> "(없음)" Then ' 시스템연결" Then
|
||||
Dim Dr신재생 As DS.tbl_newRow = CType(DSET1.tbl_new.Select("code='" & dr냉방.연결된시스템 & "' and code <> '0'")(0), DS.tbl_newRow)
|
||||
'//연결되었을시에는
|
||||
Select Case Dr신재생.기기종류.Trim
|
||||
Case "태양열" '//태양열
|
||||
Case "태양광" '//태양광
|
||||
Case "지열" '//지열
|
||||
Select Case Dr신재생.가동연료.Trim
|
||||
Case "전기" '전기"
|
||||
CRenew.Calc_HeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_c_outg_total, i_count_month, d_op_max_mth, t_h_max, theta_VA, theta_i, Q_hp_outg, Q_c_f_hp, Q_c_g_hp_aux)
|
||||
Q_c_outg_total = Q_c_outg_total - Q_hp_outg
|
||||
Q_c_f = Q_c_f + Q_c_f_hp + Q_c_g_hp_aux
|
||||
use_Elec = use_Elec + Q_c_f_hp + Q_c_g_hp_aux
|
||||
Case "천연가스" '천연가스"
|
||||
CRenew.Calc_HeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_c_outg_total, i_count_month, d_op_max_mth, t_h_max, theta_VA, theta_i, Q_hp_outg, Q_c_f_hp, Q_c_g_hp_aux)
|
||||
Q_c_outg_total = Q_c_outg_total - Q_hp_outg
|
||||
Q_c_f = Q_c_f + Q_c_f_hp + Q_c_g_hp_aux
|
||||
use_LNG = use_LNG + Q_c_f_hp
|
||||
use_Elec = use_Elec + Q_c_g_hp_aux
|
||||
Case "액화가스" '액화가스"
|
||||
CRenew.Calc_HeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_c_outg_total, i_count_month, d_op_max_mth, t_h_max, theta_VA, theta_i, Q_hp_outg, Q_c_f_hp, Q_c_g_hp_aux)
|
||||
Q_c_outg_total = Q_c_outg_total - Q_hp_outg
|
||||
Q_c_f = Q_c_f + Q_c_f_hp + Q_c_g_hp_aux
|
||||
use_LPG = use_LPG + Q_c_f_hp
|
||||
use_Elec = use_Elec + Q_c_g_hp_aux
|
||||
End Select
|
||||
Case "열병합" '//열병합
|
||||
|
||||
End Select
|
||||
End If
|
||||
|
||||
'==================================================================================================================================
|
||||
'==================================================================================================================================
|
||||
|
||||
EER = TOSG(T, dr냉방.열성능비) ' Dr냉방.열성능비
|
||||
Q_dot_c_outg = TOSG(T, dr냉방.냉동기용량) * TOSG(T, dr냉방.대수) ' dr냉방.냉동기용량
|
||||
|
||||
If (Q_dot_c_outg * t_h_max) = 0 Then
|
||||
k_n = 0 '//170515
|
||||
Else
|
||||
k_n = Q_c_outg_total / (Q_dot_c_outg * t_h_max)
|
||||
End If
|
||||
|
||||
|
||||
If k_n > 1 Then k_n = 1
|
||||
|
||||
k_n_index = 100 ' 조건에 없는 압축방식에서 에러 발생 유도함
|
||||
|
||||
Select Case dr냉방.냉동기방식 'Dr냉방.냉동기방식
|
||||
Case "압축식", "압축식(LNG)" '압축식"
|
||||
T_W_1_i = 32
|
||||
Select Case dr냉방.냉동기종류 ' Dr냉방.냉동기종류
|
||||
|
||||
Case "수냉식" '수냉식"
|
||||
k_n_index = 7
|
||||
f_2_av = 1
|
||||
|
||||
|
||||
Case "공냉식" '공냉식"
|
||||
k_n_index = 4
|
||||
f_2_av = 1
|
||||
|
||||
Case "히트펌프"
|
||||
k_n_index = 4
|
||||
f_2_av = 1
|
||||
|
||||
|
||||
End Select
|
||||
'//이부분정확히 살펴보아야할듯
|
||||
If k_n = 0 Then k_n = 0.001 ' 부분부하율이 0일 경우 부분부하를 0에서 0.1구간으로 설정
|
||||
'Dim Drow부분부하() As DS.tbl_buhaRow = DSET1.tbl_buha.Rows(k_n_index) '.Select("code='" & Format(9 - Int((1 - k_n) * 10), "00") & "'")
|
||||
|
||||
If k_n_index >= 100 Then
|
||||
Log.AppendLine("냉방기기(" & dr냉방.설명 & ")의 냉동기방식(" & dr냉방.냉동기방식.Trim & ")에따른 종류를 확인할 수 없습니다")
|
||||
Exit For 'Return
|
||||
Else
|
||||
f_1_av = TOSG(T, DSET1.tbl_buha.Rows(k_n_index)(CInt(9 - Int((1 - k_n) * 10) + 2))) ' Worksheets("부분부하율").Range("냉동기부분부하율1").Offset(k_n_index, 9 - Int((1 - k_n) * 10))
|
||||
End If
|
||||
|
||||
PLV_av = f_1_av * f_2_av
|
||||
If dr냉방.냉동기방식 = "압축식" Then
|
||||
Q_c_f_elektr = Q_c_outg_total / (EER * PLV_av)
|
||||
'======================================================================= 2010.10.5 추가
|
||||
ElseIf dr냉방.냉동기방식 = "압축식(LNG)" Then
|
||||
Q_c_outg_therm = Q_c_outg_total / (EER * PLV_av)
|
||||
use_LNG = use_LNG + Q_c_outg_therm
|
||||
'======================================================================= 2010.10.5 추가
|
||||
End If
|
||||
If (dr냉방.냉동기방식 = "압축식" Or dr냉방.냉동기방식 = "압축식(LNG)") And dr냉방.냉동기종류 = "수냉식" Then 'If Dr냉방.냉동기방식 = "압축식" And Dr냉방.냉동기종류 = "수냉식" Then
|
||||
Q_dot_R_outg = Q_dot_c_outg * (1 + 1 / EER)
|
||||
l_min_i = TOSG(T, 1.2103 - 0.0162 * (theta_e - 5)) '건구온도에서 -5도로 습구온도 설정 20180901
|
||||
'f_R_av = (Log(1 - 0.5 / 0.8) * l_min_i / (Log(1 - 0.5 / 0.8) * 0.87)) ^ 2 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정
|
||||
f_R_av = Q_c_outg_total * 4 / (Q_dot_c_outg * t_h_max) ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정
|
||||
If f_R_av > 1 Then f_R_av = 1 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산하고 최대가동시간 이하로 계산 추후 수정
|
||||
|
||||
|
||||
'//170627 2348
|
||||
Select Case dr냉방.증발식건식냉각기.Trim
|
||||
Case "증발식(개방형)"
|
||||
q_R_elektr = 0.018
|
||||
Case "증발식(폐쇄형)"
|
||||
q_R_elektr = 0.033
|
||||
Case "건식"
|
||||
q_R_elektr = 0.045
|
||||
End Select
|
||||
|
||||
|
||||
Q_c_f_R_elektr = Q_dot_R_outg * q_R_elektr * f_R_av * t_h_max
|
||||
Else
|
||||
Q_c_f_R_elektr = 0
|
||||
End If
|
||||
|
||||
|
||||
Case "흡수식" '흡수식"
|
||||
Q_dot_R_outg = Q_dot_c_outg * (1 + 1 / EER)
|
||||
T_W_1_i = 32
|
||||
l_min_i = TOSG(T, 1.2103 - 0.0162 * (theta_e - 5)) '건구온도에서 -5도로 습구온도 설정 20180901
|
||||
'f_R_av = (Log(1 - 0.5 / 0.8) * l_min_i / (Log(1 - 0.5 / 0.8) * 0.87)) ^ 2 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정
|
||||
|
||||
If (Q_dot_c_outg * t_h_max) = 0 Then
|
||||
f_R_av = 0 '//170515
|
||||
Else
|
||||
f_R_av = Q_c_outg_total * 4 / (Q_dot_c_outg * t_h_max) ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정
|
||||
End If
|
||||
|
||||
If f_R_av > 1 Then f_R_av = 1 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산하고 최대가동시간 이하로 계산 추후 수정
|
||||
|
||||
'//170627 2348
|
||||
Select Case dr냉방.증발식건식냉각기.Trim
|
||||
Case "증발식(개방형)"
|
||||
q_R_elektr = 0.018
|
||||
Case "증발식(폐쇄형)"
|
||||
q_R_elektr = 0.033
|
||||
Case "건식"
|
||||
q_R_elektr = 0.045
|
||||
End Select
|
||||
'q_R_elektr = 0.018
|
||||
|
||||
Q_c_f_R_elektr = Q_dot_R_outg * q_R_elektr * f_R_av * t_h_max
|
||||
|
||||
f_2_av = TOSG(T, 1.7174 - 0.0217 * T_W_1_i)
|
||||
|
||||
'//13번째줄
|
||||
If k_n = 0 Then k_n = 0.01 ' 부분부하율이 0일 경우 부분부하를 0에서 0.1구간으로 설정
|
||||
f_1_av = TOSG(T, DSET1.tbl_buha.Rows(13)(CInt(9 - Int((1 - k_n) * 10) + 2))) 'Worksheets("부분부하율").Range("냉동기부분부하율1").Offset(13, 9 - Int((1 - k_n) * 10))
|
||||
PLV_av = f_1_av * f_2_av
|
||||
|
||||
|
||||
|
||||
Q_c_outg_therm = Q_c_outg_total / (EER * PLV_av)
|
||||
|
||||
|
||||
Select Case dr냉방.사용연료.ToString
|
||||
Case "난방유"
|
||||
use_Oil = use_Oil + Q_c_outg_therm
|
||||
Case "천연가스"
|
||||
use_LNG = use_LNG + Q_c_outg_therm
|
||||
Case "액화가스"
|
||||
use_LPG = use_LPG + Q_c_outg_therm
|
||||
Case "지역난방" '지역난방"
|
||||
use_DH = use_DH + Q_c_outg_therm
|
||||
|
||||
Case Else
|
||||
MsgBox("냉동기기(" & dr냉방.설명 & ")가 직화식이나 사용연료가 없습니다.확인바랍니다.", vbOKOnly, "총량 에너지 평가 프로그램(ECO_Lite)")
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
Case "지역냉방" '지역냉방"
|
||||
'--------------------------------------------------------------------------------------------------2010.02.22 수정
|
||||
use_DC = use_DC + Q_c_outg_total
|
||||
'--------------------------------------------------------------------------------------------------2010.02.22 수정
|
||||
Q_c_outg_therm = Q_c_outg_total
|
||||
|
||||
End Select
|
||||
|
||||
Q_c_f = Q_c_f + Q_c_f_elektr + Q_c_f_R_elektr + Q_c_outg_therm + Q_c_g
|
||||
use_Elec = use_Elec + Q_c_f_elektr + Q_c_f_R_elektr
|
||||
|
||||
|
||||
|
||||
'// 냉수, 냉각수 분배
|
||||
Q_dot_z = Q_dot_c_outg * (1 + 1 / EER) '(3.2.8-30)
|
||||
P_d_hydr = 1
|
||||
|
||||
If dr냉방.냉동기종류 = "히트펌프" Then '//170627 2355
|
||||
P_Pump = (TOSG(T, dr냉방.냉수펌프동력)) * 1000 'Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1)
|
||||
Else
|
||||
P_Pump = (TOSG(T, dr냉방.냉수펌프동력) + TOSG(T, dr냉방.냉각수펌프동력)) * 1000 'Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
f_e = P_Pump / P_d_hydr '원래는 P_hydr '(3.2.8-37)
|
||||
c_p1 = 0.75
|
||||
c_p2 = 0.25
|
||||
If Q_z_outg_l <> 0 Then
|
||||
If (Q_dot_z * t_h_max) = 0 Then
|
||||
beta_d_l = 0 '//170515
|
||||
Else
|
||||
beta_d_l = Q_z_outg_l / (Q_dot_z * t_h_max) '(3.2.8-34) t_d_l 을 t_h_max으로 사용
|
||||
End If
|
||||
|
||||
If beta_d_l = 0 Then
|
||||
e_d_l = 0
|
||||
Else
|
||||
e_d_l = f_e * (c_p1 + c_p2 / beta_d_l) '(3.2.8-36)
|
||||
End If
|
||||
|
||||
|
||||
W_d_hydr_l = P_d_hydr / 1000 * t_h_max * beta_d_l * f_Abgl '(3.2.8-27) t_d_l 을 t_h_max으로 사용
|
||||
|
||||
Q_z_aux_d_l = W_d_hydr_l * e_d_l '(3.2.8-26)
|
||||
'Q_z_aux_d_a = sigma(Q_z_zux_d_l) '(3.2.8-25)
|
||||
|
||||
Q_c_aux = Q_c_aux + Q_z_aux_d_l
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End If '2
|
||||
|
||||
Next '1
|
||||
|
||||
|
||||
|
||||
'//계산결과 시트의 각 월에해당되는 곳에 데이터를 기록한다.
|
||||
|
||||
Result1o.E소요량(i_count_month).냉방 = Q_c_f
|
||||
Result1o.E소요량(i_count_month).냉방보조 = Q_c_aux
|
||||
|
||||
use_Elec = use_Elec + Q_c_aux
|
||||
|
||||
Result1o.일차E소요량(i_count_month).냉방등유 = use_Oil
|
||||
Result1o.일차E소요량(i_count_month).냉방LNG = use_LNG
|
||||
Result1o.일차E소요량(i_count_month).냉방LPG = use_LPG
|
||||
Result1o.일차E소요량(i_count_month).냉방지역난방열 = use_DH
|
||||
'--------------------------------------------------------------------------------------------------2010.02.22 수정
|
||||
Result1o.일차E소요량(i_count_month).냉방지역냉방열 = use_DC
|
||||
'--------------------------------------------------------------------------------------------------2010.02.22 수정
|
||||
Result1o.일차E소요량(i_count_month).냉방전력 = use_Elec
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
1983
ArinWarev1/Calculator-OD/Heating/CHeating.vb
Normal file
1983
ArinWarev1/Calculator-OD/Heating/CHeating.vb
Normal file
File diff suppressed because it is too large
Load Diff
717
ArinWarev1/Calculator-OD/Renewable/CRenewable.vb
Normal file
717
ArinWarev1/Calculator-OD/Renewable/CRenewable.vb
Normal file
@@ -0,0 +1,717 @@
|
||||
Public Class CRenewableOD
|
||||
|
||||
Dim T As String = "신재생"
|
||||
|
||||
Public Sub New()
|
||||
'ByVal dr존 As DS.tbl_zoneRow,
|
||||
End Sub
|
||||
' Public Overridable Sub Calc_ThermalSolarSystem_EN(ByVal i_system_ts As Integer, ByVal i_count_ts As Integer, ByVal i_ts_month As Integer, ByVal i_ts_d_mth As Integer, ByVal Q_H_sol_us_m as decimal, ByVal Q_W_sol_us_m as decimal, ByRef Q_W_sol_out_m as decimal, ByRef Q_H_sol_out_m as decimal, ByRef W_sol_aux_m as decimal)
|
||||
|
||||
Public Overridable Sub Calc_ThermalSolarSystem_EN(ByVal i_system_ts As Integer, ByVal DR_code As String, ByVal i_ts_month As Integer, ByVal i_ts_d_mth As Integer, ByVal Q_H_sol_us_m As Decimal, ByVal Q_W_sol_us_m As Decimal, ByRef Q_W_sol_out_m As Decimal, ByRef Q_H_sol_out_m As Decimal, ByRef W_sol_aux_m As Decimal)
|
||||
|
||||
Dim theta_ref As Decimal, theta_w As Decimal, theta_cw As Decimal, U_loop_p As Decimal, U_loop As Decimal, Delta_T As Decimal
|
||||
Dim A_ As Decimal, a As Decimal, b As Decimal, c As Decimal, d As Decimal, e As Decimal, f As Decimal, eta_loop As Decimal, IAM As Decimal, eta_0 As Decimal
|
||||
Dim a_1 As Decimal, a_2 As Decimal, P_H As Decimal, P_W As Decimal, V_ref As Decimal, V_sol As Decimal, t_m As Decimal, I_m As Decimal, P_aux_nom As Decimal
|
||||
'Dim i_ts_location As Integer, i_count_ts_location As Integer
|
||||
' Dim i_count_month As Integer
|
||||
Dim i_direction As Integer
|
||||
Dim t_aux_m As Decimal, l_tot As Decimal, f_st As Decimal, U_st As Decimal
|
||||
Dim theta_setpoint As Decimal, theta_a_avg As Decimal, theta_e_avg As Decimal
|
||||
Dim Q_sol_ls_rbl_m As Decimal, Q_sol_aux_rbl_m As Decimal, Q_sol_st_ls_rbl_m As Decimal, Q_bu_dis_ls_rbl_m As Decimal, Q_bu_dis_ls_m As Decimal, Q_sol_ls_m As Decimal
|
||||
Dim Q_W_bu_dis_ls_m As Decimal, Q_H_bu_dis_ls_m As Decimal, Q_W_sol_st_ls_m As Decimal, Q_H_sol_st_ls_m As Decimal
|
||||
Dim A_H As Decimal, A_W As Decimal, X As Decimal, Y As Decimal
|
||||
Dim Q_W_sol_out_net As Decimal, Q_H_sol_out_net As Decimal, H_W_ratio As Decimal
|
||||
|
||||
Q_W_sol_out_net = 0
|
||||
Q_H_sol_out_net = 0
|
||||
|
||||
'Dim Dr기상데이터 As DS.tbl_weatherRow
|
||||
'For i_count_ts_location = 1 To DSET1.tbl_weather.Rows.Count ' Range("건물위치").Columns.Count
|
||||
' Dr기상데이터 = DSET1.tbl_weather(i_count_ts_location - 1)
|
||||
' If dr존.지역 = Dr기상데이터.건물위치 Then '//이상하다 1버번쨰 존의 지역값만 계속쓴다 -_-;; 지역은 즉 존에할당된게아니고 1개만 존재하는듯하다
|
||||
' i_ts_location = i_count_ts_location '//기상데이터에서 현재지정된 존.지역의 기상데이터의 지역의 열번호(엑셀에서만)를 기억한다 (나중에 이번호로 데이터 참조하려고)
|
||||
' Exit For
|
||||
' End If
|
||||
' '//지역찾을떄그냥 DR지역을 사용하도록한다.
|
||||
' 'If Worksheets("입력존").Range("지역1").Offset(0, 0) = Worksheets("기상데이타").Range("건물위치1").Offset(0, i_count_ts_location - 1) Then
|
||||
' ' i_ts_location = i_count_ts_location
|
||||
' ' Exit For
|
||||
' 'End If
|
||||
'Next
|
||||
|
||||
l_tot = 0
|
||||
|
||||
Dim Dr신재생 As DS.tbl_newRow = CType(DSET1.tbl_new.Select("code='" & DR_code & "' and code <> '0'", "code")(0), DS.tbl_newRow) '//신재생의 태양열시스템
|
||||
|
||||
Select Case Dr신재생.집열판방위.Trim ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(3, i_count_ts - 1)
|
||||
Case "동" '동"
|
||||
i_direction = 12
|
||||
|
||||
Case "남동" '남동"
|
||||
i_direction = 10
|
||||
|
||||
Case "남" '남"
|
||||
i_direction = 9
|
||||
|
||||
Case "남서" '남서"
|
||||
i_direction = 11
|
||||
|
||||
Case "서" '서"
|
||||
i_direction = 13
|
||||
|
||||
Case "수평" '수평" '//월별평균일사 수평면을 사용 나머지것들은 45도짜리를 사용한다. 45도짜리 코드값을 해당코드+1000이다. 해당코드+1000으로 미리 셋팅햇다(변경불가)
|
||||
i_direction = 0
|
||||
Case Else
|
||||
MsgBox("신재생에너지-태양열의 집열판 방위값이 올바르지않습니다", MsgBoxStyle.Critical, "확인")
|
||||
End Select
|
||||
|
||||
'//집열판방위에따른 월별평균일사의 총합을 가져온다
|
||||
'//weather_ilsa 의 p코드에는 지역코드값이 들어가고 코드값은 집열판방위+1000 의값이 해당 각도의 방향에대한 데이터가된다.
|
||||
|
||||
|
||||
'///만약값이 서울 방향이 남 이엇을경우에는 해당 일사데이터를 찾는게 목적이에요. 여기서 서울의 코드값은 찾을수잇어요
|
||||
'//그담이 방향 남에 맞는 일사데이터를 찾아야하는데.. 일사데이터 코드로는 못찾으니깐. 이름으로 찾아요.
|
||||
'//
|
||||
Dim 일사이름 As String = "45도" + Dr신재생.집열판방위 '//이렇게되면 남(45) 라는 최종이름이 되겟죠?
|
||||
If 일사이름.IndexOf("수평면") - 1 Then
|
||||
If 일사이름.LastIndexOf("향") - 1 Then
|
||||
일사이름 += "향"
|
||||
End If
|
||||
End If
|
||||
Dim Drow평균일사() As DS.weather_ilsa_odRow = CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code &
|
||||
"' and 설명='" & 일사이름 & "'"), DS.weather_ilsa_odRow())
|
||||
'//그렇게해서 서울의 코드에 해당하는 pcode 와 이름이 남(45)로 되어잇는 일사데이터테이블에서 데이터를 검색하게되겟죠?
|
||||
'//즉 데이터가 나오면 해당 데이터가 맞는거에요 ..이건 데이터베이스 이름을 남(45) 식으로 모두 고쳐주세요
|
||||
|
||||
If Drow평균일사.GetUpperBound(0) = -1 Then
|
||||
MsgBox("지역코드=" + CalcO.Pub.기상데이터.code + vbCrLf + "집열판방위코드=" + Dr신재생.집열판방위 + _
|
||||
vbCrLf + "예상일사코드=" + 일사이름 + _
|
||||
vbCrLf + "에 해당하는 평균일사데이터가 없습니다. 1개의 행이 반환되어야 합니다", MsgBoxStyle.Critical, "계산실패")
|
||||
I_m = 0
|
||||
' Return
|
||||
Else
|
||||
l_tot += TOSG(T, Drow평균일사(0).m01) + TOSG(T, Drow평균일사(0).m02) + TOSG(T, Drow평균일사(0).m03) + TOSG(T, Drow평균일사(0).m04) + _
|
||||
TOSG(T, Drow평균일사(0).m05) + TOSG(T, Drow평균일사(0).m06) + TOSG(T, Drow평균일사(0).m07) + TOSG(T, Drow평균일사(0).m08) + _
|
||||
TOSG(T, Drow평균일사(0).m09) + TOSG(T, Drow평균일사(0).m10) + TOSG(T, Drow평균일사(0).m11) + TOSG(T, Drow평균일사(0).m12)
|
||||
I_m = TOSG(T, Drow평균일사(0)("m" & i_ts_month.ToString("00"))) '//이줄로 위의 케이스문을 대체햇다 오류나면 케이스문으로 일단 사용할예정
|
||||
|
||||
End If
|
||||
|
||||
|
||||
t_aux_m = I_m / l_tot * 2000
|
||||
|
||||
|
||||
'//월별외기평균온도(i_ts_month << 파라미터)
|
||||
theta_e_avg = TOSG(T, CalcO.Pub.기상데이터("m" & i_ts_month.ToString("00")))
|
||||
'theta_e_avg = Worksheets("기상데이타").Range("최소외기온도1").Offset(2 + i_ts_month, i_ts_location - 1) '//월별외기평균온도 tbl_weather에 존재
|
||||
|
||||
Select Case Dr신재생.축열탱크설치장소.Trim ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(2, i_count_ts - 1)
|
||||
Case "난방공간" '난방공간"
|
||||
theta_a_avg = 20
|
||||
Case "비난방공간" '비난방공간"
|
||||
theta_a_avg = theta_e_avg + (20 - theta_e_avg) / 2
|
||||
Case "외부공간" '외부공간"
|
||||
theta_a_avg = theta_e_avg
|
||||
End Select
|
||||
|
||||
theta_w = 40
|
||||
theta_cw = 15
|
||||
a_2 = 0
|
||||
eta_loop = 0.8
|
||||
eta_0 = 0.6
|
||||
t_m = i_ts_d_mth * 24
|
||||
a = 1.029
|
||||
b = -0.065
|
||||
c = -0.245
|
||||
d = 0.0018
|
||||
e = 0.0215
|
||||
f = 0
|
||||
|
||||
|
||||
Select Case Dr신재생.집열기유형.Trim 'Worksheets("신재생기기").Range("태양열시스템종류1").Offset(1, i_count_ts - 1)
|
||||
Case "평판형" '평판형"
|
||||
a_1 = 6
|
||||
IAM = 0.94
|
||||
Case "진공관형" '진공관형"
|
||||
a_1 = 3
|
||||
IAM = 1
|
||||
End Select
|
||||
|
||||
'If Dr신재생.태양열시스템의성능 = "성능치" Then ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(5, i_count_ts - 1) = "성능치" Then
|
||||
' eta_0 = TOSG(T,Dr신재생.무손실효율계수) 'Worksheets("신재생기기").Range("태양열시스템종류1").Offset(6, i_count_ts - 1)
|
||||
' a_1 = TOSG(T,Dr신재생.열손실계수1차) 'Worksheets("신재생기기").Range("태양열시스템종류1").Offset(7, i_count_ts - 1)
|
||||
' a_2 = TOSG(T,Dr신재생.열손실계수2차) 'Worksheets("신재생기기").Range("태양열시스템종류1").Offset(8, i_count_ts - 1)
|
||||
'End If
|
||||
|
||||
Select Case Dr신재생.태양열종류.Trim ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(0, i_count_ts - 1)
|
||||
Case "급탕" '급탕"
|
||||
A_ = TOSG(T, Dr신재생.집열판면적) ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(2, i_count_ts - 1)
|
||||
U_loop_p = TOSG(T, 5 + 0.5 * A_) '(B.3)
|
||||
U_loop = a_1 + a_2 * 40 + U_loop_p / A_ '(13)
|
||||
theta_ref = TOSG(T, 11.6 + 1.18 * theta_w + 3.86 * theta_cw - 1.32 * theta_e_avg) '(B.8) 급탕시스템인 경우 theta_w는 40도, theta_cw 시수온도는15도 가정
|
||||
Delta_T = theta_ref - theta_e_avg '(14)
|
||||
V_ref = A_ * 75
|
||||
V_sol = TOSG(T, Dr신재생.축열탱크체적급탕) ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(0, i_count_ts - 1)
|
||||
f_st = TOSG(T, (V_ref / V_sol) ^ 0.25) '(B.5)
|
||||
If Q_W_sol_us_m <> 0 Then
|
||||
X = A_ * U_loop * eta_loop * Delta_T * f_st * t_m / (Q_W_sol_us_m * 1000) '(12)
|
||||
Y = A_ * IAM * eta_0 * eta_loop * I_m * t_m / (Q_W_sol_us_m * 1000) '(15)
|
||||
Q_W_sol_out_m = (a * Y + b * X + c * Y * Y + d * X * X + e * Y * Y * Y + f * X * X * X) * Q_W_sol_us_m '(11)
|
||||
Else
|
||||
Q_W_sol_out_m = 0
|
||||
End If
|
||||
If Q_W_sol_out_m < 0 Then Q_W_sol_out_m = 0
|
||||
If Q_W_sol_out_m > Q_W_sol_us_m Then Q_W_sol_out_m = Q_W_sol_us_m
|
||||
|
||||
'태양열시스템 열손실
|
||||
U_st = TOSG(T, 0.16 * V_sol ^ 0.5) '(B.9)
|
||||
theta_setpoint = 60
|
||||
If Q_W_sol_us_m <> 0 Then
|
||||
Q_W_sol_st_ls_m = U_st * (theta_setpoint - theta_a_avg) * (Q_W_sol_out_m / Q_W_sol_us_m) * t_m / 1000 '(17)
|
||||
Q_bu_dis_ls_m = TOSG(T, 0.02 * Q_W_sol_us_m * (Q_W_sol_out_m / Q_W_sol_us_m))
|
||||
Else
|
||||
Q_W_sol_st_ls_m = 0
|
||||
Q_bu_dis_ls_m = 0
|
||||
End If
|
||||
|
||||
If i_system_ts = 1 Then '=====================================================2010.04.02 추가
|
||||
|
||||
'난방 부분
|
||||
theta_ref = TOSG(T, 11.6 + 1.18 * theta_w + 3.86 * theta_cw - 1.32 * theta_e_avg) '(B.8) 급탕시스템인 경우 theta_w는 40도, theta_cw 시수온도는15도 가정
|
||||
Delta_T = theta_ref - theta_e_avg '(14)
|
||||
V_ref = A_H * 75
|
||||
V_sol = TOSG(T, Dr신재생.축열탱크체적난방) ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(1, i_count_ts - 1)
|
||||
f_st = TOSG(T, (V_ref / V_sol) ^ 0.25) '(B.5)
|
||||
If Q_H_sol_us_m <> 0 Then
|
||||
X = A_H * U_loop * eta_loop * Delta_T * f_st * t_m / (Q_H_sol_us_m * 1000) '(12)
|
||||
Y = A_H * IAM * eta_0 * eta_loop * I_m * t_m / (Q_H_sol_us_m * 1000) '(15)
|
||||
Q_H_sol_out_m = (a * Y + b * X + c * Y * Y + d * X * X + e * Y * Y * Y + f * X * X * X) * Q_H_sol_us_m '(11)
|
||||
Else
|
||||
Q_H_sol_out_m = 0
|
||||
End If
|
||||
If Q_H_sol_out_m < 0 Then Q_H_sol_out_m = 0
|
||||
If Q_H_sol_out_m > Q_H_sol_us_m Then Q_H_sol_out_m = Q_H_sol_us_m
|
||||
|
||||
'태양열시스템 열손실
|
||||
U_st = TOSG(T, 0.16 * V_sol ^ 0.5) '(B.9)
|
||||
theta_setpoint = 40
|
||||
If Q_H_sol_us_m <> 0 Then
|
||||
Q_H_sol_st_ls_m = U_st * (theta_setpoint - theta_a_avg) * (Q_H_sol_out_m / Q_H_sol_us_m) * t_m / 1000 '(17)
|
||||
Q_H_bu_dis_ls_m = TOSG(T, 0.02 * Q_H_sol_us_m * (Q_H_sol_out_m / Q_H_sol_us_m))
|
||||
Else
|
||||
Q_H_sol_st_ls_m = 0
|
||||
Q_H_bu_dis_ls_m = 0
|
||||
End If
|
||||
Q_sol_ls_m = Q_H_sol_st_ls_m + Q_H_bu_dis_ls_m + Q_W_sol_st_ls_m + Q_W_bu_dis_ls_m
|
||||
|
||||
End If '=====================================================2010.04.02 추가
|
||||
|
||||
' Q_sol_ls_m = Q_W_sol_st_ls_m + Q_bu_dis_ls_m
|
||||
|
||||
' 보조에너지
|
||||
P_aux_nom = TOSG(T, Dr신재생.솔라펌프의정격출력) ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(4, i_count_ts - 1)
|
||||
W_sol_aux_m = P_aux_nom * t_aux_m / 1000
|
||||
|
||||
Q_sol_aux_rbl_m = TOSG(T, W_sol_aux_m * 0.5)
|
||||
|
||||
Select Case Dr신재생.축열탱크설치장소.Trim 'Worksheets("신재생기기").Range("태양열축열탱크1").Offset(2, i_count_ts - 1)
|
||||
Case "난방공간" '난방공간"
|
||||
Q_sol_st_ls_rbl_m = Q_W_sol_st_ls_m
|
||||
Q_bu_dis_ls_rbl_m = Q_bu_dis_ls_m
|
||||
Case "비난방공간" '비난방공간"
|
||||
Q_sol_st_ls_rbl_m = TOSG(T, Q_W_sol_st_ls_m * 0.5)
|
||||
Q_bu_dis_ls_rbl_m = TOSG(T, Q_bu_dis_ls_m * 0.5)
|
||||
Case "외부공간" '외부공간"
|
||||
Q_sol_st_ls_rbl_m = 0
|
||||
Q_bu_dis_ls_rbl_m = 0
|
||||
End Select
|
||||
|
||||
Q_sol_ls_rbl_m = Q_sol_aux_rbl_m + Q_sol_st_ls_rbl_m + Q_bu_dis_ls_rbl_m '(20)
|
||||
|
||||
|
||||
|
||||
Case "난방+급탕" '난방+급탕"
|
||||
P_H = Q_H_sol_us_m / (Q_H_sol_us_m + Q_W_sol_us_m) '(9)
|
||||
P_W = Q_W_sol_us_m / (Q_H_sol_us_m + Q_W_sol_us_m) '(10)
|
||||
A_ = TOSG(T, Dr신재생.집열판면적) ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(2, i_count_ts - 1)
|
||||
A_H = P_H * A_
|
||||
A_W = P_W * A_
|
||||
|
||||
'급탕 부분
|
||||
U_loop_p = 5 + 0.5 * A_W '(B.3) '===========================2010.04.24 추가
|
||||
If A_W <> 0 Then
|
||||
U_loop = a_1 + a_2 * 40 + U_loop_p / A_W '(13) '===============2010.04.24 추가
|
||||
theta_ref = TOSG(T, 11.6 + 1.18 * theta_w + 3.86 * theta_cw - 1.32 * theta_e_avg) '(B.8) 급탕시스템인 경우 theta_w는 40도, theta_cw 시수온도는15도 가정
|
||||
Delta_T = theta_ref - theta_e_avg '(14)
|
||||
V_ref = A_W * 75
|
||||
V_sol = TOSG(T, Dr신재생.축열탱크체적급탕) ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(0, i_count_ts - 1)
|
||||
f_st = TOSG(T, (V_ref / V_sol) ^ 0.25) '(B.5)
|
||||
End If
|
||||
If Q_W_sol_us_m <> 0 Then
|
||||
X = A_W * U_loop * eta_loop * Delta_T * f_st * t_m / (Q_W_sol_us_m * 1000) '(12)
|
||||
Y = A_W * IAM * eta_0 * eta_loop * I_m * t_m / (Q_W_sol_us_m * 1000) '(15)
|
||||
Q_W_sol_out_m = (a * Y + b * X + c * Y * Y + d * X * X + e * Y * Y * Y + f * X * X * X) * Q_W_sol_us_m '(11)
|
||||
Else
|
||||
Q_W_sol_out_m = 0
|
||||
End If
|
||||
If Q_W_sol_out_m < 0 Then Q_W_sol_out_m = 0
|
||||
If Q_W_sol_out_m > Q_W_sol_us_m Then Q_W_sol_out_m = Q_W_sol_us_m
|
||||
|
||||
'태양열시스템 열손실
|
||||
U_st = TOSG(T, 0.16 * V_sol ^ 0.5) '(B.9)
|
||||
theta_setpoint = 60
|
||||
If Q_W_sol_us_m <> 0 Then
|
||||
Q_W_sol_st_ls_m = U_st * (theta_setpoint - theta_a_avg) * (Q_W_sol_out_m / Q_W_sol_us_m) * t_m / 1000 '(17)
|
||||
Q_W_bu_dis_ls_m = TOSG(T, 0.02 * Q_W_sol_us_m * (Q_W_sol_out_m / Q_W_sol_us_m))
|
||||
Else
|
||||
Q_W_sol_st_ls_m = 0
|
||||
Q_W_bu_dis_ls_m = 0
|
||||
End If
|
||||
|
||||
|
||||
'난방 부분
|
||||
U_loop_p = 5 + 0.5 * A_H '(B.3) '===========================2010.04.24 추가
|
||||
U_loop = a_1 + a_2 * 40 + U_loop_p / A_H '(13) '===============2010.04.24 추가
|
||||
|
||||
theta_ref = TOSG(T, 11.6 + 1.18 * theta_w + 3.86 * theta_cw - 1.32 * theta_e_avg) '(B.8) 급탕시스템인 경우 theta_w는 40도, theta_cw 시수온도는15도 가정
|
||||
Delta_T = theta_ref - theta_e_avg '(14)
|
||||
V_ref = A_H * 75
|
||||
V_sol = TOSG(T, Dr신재생.축열탱크체적난방) ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(1, i_count_ts - 1)
|
||||
f_st = TOSG(T, (V_ref / V_sol) ^ 0.25) '(B.5)
|
||||
If Q_H_sol_us_m <> 0 Then
|
||||
X = A_H * U_loop * eta_loop * Delta_T * f_st * t_m / (Q_H_sol_us_m * 1000) '(12)
|
||||
Y = A_H * IAM * eta_0 * eta_loop * I_m * t_m / (Q_H_sol_us_m * 1000) '(15)
|
||||
Q_H_sol_out_m = (a * Y + b * X + c * Y * Y + d * X * X + e * Y * Y * Y + f * X * X * X) * Q_H_sol_us_m '(11)
|
||||
Else
|
||||
Q_H_sol_out_m = 0
|
||||
End If
|
||||
If Q_H_sol_out_m < 0 Then Q_H_sol_out_m = 0
|
||||
If Q_H_sol_out_m > Q_H_sol_us_m Then Q_H_sol_out_m = Q_H_sol_us_m
|
||||
|
||||
'태양열시스템 열손실
|
||||
U_st = TOSG(T, 0.16 * V_sol ^ 0.5) '(B.9)
|
||||
theta_setpoint = 40
|
||||
If Q_H_sol_us_m <> 0 Then
|
||||
Q_H_sol_st_ls_m = U_st * (theta_setpoint - theta_a_avg) * (Q_H_sol_out_m / Q_H_sol_us_m) * t_m / 1000 '(17)
|
||||
Q_H_bu_dis_ls_m = TOSG(T, 0.02 * Q_H_sol_us_m * (Q_H_sol_out_m / Q_H_sol_us_m))
|
||||
Else
|
||||
Q_H_sol_st_ls_m = 0
|
||||
Q_H_bu_dis_ls_m = 0
|
||||
End If
|
||||
Q_sol_ls_m = Q_H_sol_st_ls_m + Q_H_bu_dis_ls_m + Q_W_sol_st_ls_m + Q_W_bu_dis_ls_m
|
||||
|
||||
|
||||
|
||||
' 보조에너지
|
||||
P_aux_nom = TOSG(T, Dr신재생.솔라펌프의정격출력) ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(4, i_count_ts - 1)
|
||||
W_sol_aux_m = P_aux_nom * t_aux_m / 1000
|
||||
|
||||
Q_sol_aux_rbl_m = TOSG(T, W_sol_aux_m * 0.5)
|
||||
|
||||
Select Case Dr신재생.축열탱크설치장소.Trim ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(2, i_count_ts - 1)
|
||||
Case "난방공간" '난방공간"
|
||||
Q_sol_ls_rbl_m = Q_sol_aux_rbl_m + Q_sol_ls_m
|
||||
Case "비난방공간" '비난방공간"
|
||||
Q_sol_ls_rbl_m = TOSG(T, Q_sol_aux_rbl_m + Q_sol_ls_m * 0.5)
|
||||
Case "외부공간" '외부공간"
|
||||
Q_sol_ls_rbl_m = Q_sol_aux_rbl_m
|
||||
End Select
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
''보조에너지
|
||||
''f_sol_m = Q_sol_out_m / Q_sol_us_m '(21)
|
||||
''W_bu_aux_m = W_bu_nom_m * (1 - f_sol_m) '(22)
|
||||
|
||||
''P_aux_nom = 50 + 5 * A_ '(B.4)
|
||||
|
||||
'// 신재생에너지 자립률 추가(2017.01.20)
|
||||
|
||||
'//170827
|
||||
If Q_H_sol_out_m = 0 Then
|
||||
H_W_ratio = 0 'Q_H_sol_out_m / (Q_H_sol_out_m + Q_W_sol_out_m)
|
||||
Else
|
||||
H_W_ratio = Q_H_sol_out_m / (Q_H_sol_out_m + Q_W_sol_out_m)
|
||||
End If
|
||||
|
||||
Q_H_sol_out_net = Q_H_sol_out_m + H_W_ratio * W_sol_aux_m * 2.75
|
||||
Q_W_sol_out_net = Q_W_sol_out_m + (1 - H_W_ratio) * W_sol_aux_m * 2.75
|
||||
|
||||
|
||||
'//열에너지생산량-태양열
|
||||
Result1o.생산E(i_ts_month).태양열생산량 += Q_W_sol_out_m + Q_H_sol_out_m
|
||||
'DSETR.TReqUse.Rows(CEnum.ResultRow.생산_열생산량_태양열)(CStr("M" & Format(i_ts_month, "00"))) = CSng(DSETR.TReqUse.Rows(CEnum.ResultRow.생산_열생산량_태양열)(CStr("M" & Format(i_ts_month, "00")))) + Q_W_sol_out_m + Q_H_sol_out_m 'Sheets("계산결과").Cells(97, 7 + i_ts_month) = Q_W_sol_out_m + Q_H_sol_out_m
|
||||
'Dim TDR As DSR.TReqUseRow = CType(DSETR.TReqUse.Rows(CEnum.ResultRow.생산_단위면적당생산량_태양열), DSR.TReqUseRow)
|
||||
Select Case i_system_ts '//이것도 프로시져 파라미터이다.
|
||||
Case 1 '//난방?급탕 혼합형태?
|
||||
If Q_W_sol_out_m <> 0 Then
|
||||
Result1o.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_m / Result1o.사용면적.W)
|
||||
Else
|
||||
Result1o.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_m / Result1o.사용면적.H)
|
||||
End If
|
||||
Case 2 '//냉방?
|
||||
Result1o.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_m / Result1o.사용면적.C)
|
||||
Case 3 '//급탕
|
||||
Result1o.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_m / Result1o.사용면적.W)
|
||||
Case Else
|
||||
MsgBox("단위면적당생산량 누적시 i_syste_ts 가 알수없음", MsgBoxStyle.Critical, "확인")
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
Public Overridable Sub Calc_PhotovoltaicSystem_EN(ByVal i_count_pv_month As Integer, ByVal i_pv_d_mth As Integer)
|
||||
|
||||
Dim E_el_pv_out As Decimal, P_pk As Decimal, f_perf As Decimal, E_sol As Decimal, E_sol_hor As Decimal, f_tlt As Decimal
|
||||
Dim a As Decimal, K_pk As Decimal
|
||||
'Dim i_count_pv As Integer, i_count_pv_location As Integer, i_pv_location As Integer
|
||||
|
||||
E_el_pv_out = 0
|
||||
|
||||
'If DSET1.tbl_new.Rows.Count > 0 Then ' Worksheets("신재생기기").Range("신재생생산기기1").Offset(0, 0) <> "" Then '//신재생기기 처음칸에 뭐가 잇다? 즉 데이터가잇느냐
|
||||
For Each Dr신재생 As DS.tbl_newRow In DSET1.tbl_new.Select("code <> '0'", "code")
|
||||
If Dr신재생.기기종류 = "태양광" Then
|
||||
|
||||
a = TOSG(T, Dr신재생.태양광모듈면적) ' Worksheets("신재생기기").Range("태양광모듈1").Offset(0, i_count_pv - 1)
|
||||
|
||||
Select Case Dr신재생.태양광모듈적용타입.Trim ' Worksheets("신재생기기").Range("태양광모듈1").Offset(4, i_count_pv - 1)
|
||||
Case "밀착형" '밀착형"
|
||||
f_perf = 0.7
|
||||
Case "후면통풍형" '후면통풍형"
|
||||
f_perf = 0.75
|
||||
Case "기계환기형" '기계환기형"
|
||||
f_perf = 0.8
|
||||
End Select
|
||||
|
||||
|
||||
'If a <> 0 Then '//태양광모듈면적이있을경우에만 작동하도록한다.
|
||||
|
||||
|
||||
Dim Dr일사 As DS.weather_ilsa_odRow '//0037
|
||||
Dim 검색컬럼 As String = ""
|
||||
Dim 검색줄수() As DataRow
|
||||
|
||||
Select Case Dr신재생.태양광모듈기울기.Trim ' Worksheets("신재생기기").Range("태양광모듈1").Offset(1, i_count_pv - 1)
|
||||
Case "수평" '수평"
|
||||
검색컬럼 = "수평면"
|
||||
검색줄수 = DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and 설명='" + 검색컬럼 + "'")
|
||||
If 검색줄수.Length = 1 Then
|
||||
'//수평면에해당는 월별평균일사 값을 가져온다.수평면 0001은 고정값이된다.
|
||||
Dr일사 = 검색줄수(0) '// CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='0001'")(0), DS.weather_ilsa_odRow)
|
||||
E_sol = TOSG(T, Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000
|
||||
Else
|
||||
MsgBox("지역코드=" + CalcO.Pub.기상데이터.code + vbCrLf + "태양광모듈기울기=" + Dr신재생.태양광모듈기울기 + _
|
||||
vbCrLf + "예상코드설명=" + 검색컬럼 + _
|
||||
vbCrLf + "에 해당하는 평균일사데이터가 없습니다. 1개의 행이 반환되어야 합니다", MsgBoxStyle.Critical, "계산실패")
|
||||
End If
|
||||
|
||||
Case "45도" '45도"
|
||||
|
||||
검색컬럼 = "45도" + Dr신재생.태양광모듈방위 + "향"
|
||||
검색줄수 = DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and 설명='" + 검색컬럼 + "'")
|
||||
If 검색줄수.Length = 1 Then
|
||||
'//수평면에해당는 월별평균일사 값을 가져온다.수평면 0001은 고정값이된다.
|
||||
Dr일사 = 검색줄수(0) '/ CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(1 + 9, "0000") & "'")(0), DS.weather_ilsa_odRow)
|
||||
E_sol = TOSG(T, Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000
|
||||
Else
|
||||
MsgBox("지역코드=" + CalcO.Pub.기상데이터.code + vbCrLf + "태양광모듈기울기=" + Dr신재생.태양광모듈기울기 + _
|
||||
vbCrLf + "예상코드설명=" + 검색컬럼 + _
|
||||
vbCrLf + "에 해당하는 평균일사데이터가 없습니다. 1개의 행이 반환되어야 합니다", MsgBoxStyle.Critical, "계산실패")
|
||||
End If
|
||||
|
||||
'Select Case Dr신재생.태양광모듈방위.Trim ' Worksheets("신재생기기").Range("태양광모듈1").Offset(2, i_count_pv - 1)
|
||||
' Case "남" '"남"
|
||||
' '//45도 남에대한건 기본 수평면하고 +9를 하면 나온다 나머지도 순서이므로 +1을 게속해주면된다.
|
||||
' Dr일사 = CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(1 + 9, "0000") & "'")(0), DS.weather_ilsa_odRow)
|
||||
' E_sol = TOSG(T, Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000
|
||||
' Case "남동" '"남동"
|
||||
' Dr일사 = CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(1 + 10, "0000") & "'")(0), DS.weather_ilsa_odRow)
|
||||
' E_sol = TOSG(T, Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000
|
||||
' Case "남서" '"남서"
|
||||
' Dr일사 = CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(1 + 11, "0000") & "'")(0), DS.weather_ilsa_odRow)
|
||||
' E_sol = TOSG(T, Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000
|
||||
' Case "동" '"동"
|
||||
' Dr일사 = CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(1 + 12, "0000") & "'")(0), DS.weather_ilsa_odRow)
|
||||
' E_sol = TOSG(T, Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000
|
||||
' Case "서" '"서"
|
||||
' Dr일사 = CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(1 + 13, "0000") & "'")(0), DS.weather_ilsa_odRow)
|
||||
' E_sol = TOSG(T, Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000
|
||||
'End Select
|
||||
|
||||
Case "수직" '수직"
|
||||
|
||||
'//170827
|
||||
검색컬럼 = Dr신재생.태양광모듈방위 + "향"
|
||||
검색줄수 = DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and 설명='" + 검색컬럼 + "'")
|
||||
If 검색줄수.Length = 1 Then
|
||||
'//수평면에해당는 월별평균일사 값을 가져온다.수평면 0001은 고정값이된다.
|
||||
Dr일사 = 검색줄수(0) '/ CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(1 + 9, "0000") & "'")(0), DS.weather_ilsa_odRow)
|
||||
E_sol = TOSG(T, Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000
|
||||
Else
|
||||
MsgBox("지역코드=" + CalcO.Pub.기상데이터.code + vbCrLf + "태양광모듈기울기=" + Dr신재생.태양광모듈기울기 + _
|
||||
vbCrLf + "예상코드설명=" + 검색컬럼 + _
|
||||
vbCrLf + "에 해당하는 평균일사데이터가 없습니다. 1개의 행이 반환되어야 합니다", MsgBoxStyle.Critical, "계산실패")
|
||||
End If
|
||||
|
||||
'Select Case Dr신재생.태양광모듈방위.Trim 'Worksheets("신재생기기").Range("태양광모듈1").Offset(2, i_count_pv - 1)
|
||||
' Case "남" '"남"
|
||||
' Dr일사 = CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(1 + 1, "0000") & "'")(0), DS.weather_ilsa_odRow)
|
||||
' E_sol = TOSG(T, Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000
|
||||
' Case "남동" '"남동"
|
||||
' Dr일사 = CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(1 + 2, "0000") & "'")(0), DS.weather_ilsa_odRow)
|
||||
' E_sol = TOSG(T, Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000
|
||||
' Case "남서" '"남서"
|
||||
' Dr일사 = CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(1 + 3, "0000") & "'")(0), DS.weather_ilsa_odRow)
|
||||
' E_sol = TOSG(T, Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000
|
||||
' Case "동" '"동"
|
||||
' Dr일사 = CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(1 + 4, "0000") & "'")(0), DS.weather_ilsa_odRow)
|
||||
' E_sol = TOSG(T, Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000
|
||||
' Case "서" '"서"
|
||||
' Dr일사 = CType(DSET1.weather_ilsa_od.Select("pcode='" & CalcO.Pub.기상데이터.code & "' and code='" & Format(1 + 5, "0000") & "'")(0), DS.weather_ilsa_odRow)
|
||||
' E_sol = TOSG(T, Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000
|
||||
'End Select
|
||||
End Select
|
||||
|
||||
'E_sol = E_sol_hor * f_tlt 수평면일사에 계수를 곱하지 않고 직접 기상데이타 적용
|
||||
|
||||
Select Case Dr신재생.태양광모듈종류.Trim ' Worksheets("신재생기기").Range("태양광모듈1").Offset(3, i_count_pv - 1)
|
||||
Case "단결정" '단결정"
|
||||
K_pk = 0.12
|
||||
Case "다결정" '다결정"
|
||||
K_pk = 0.1
|
||||
Case "비정질박막형" '비정질박막형"
|
||||
K_pk = 0.04
|
||||
Case "기타박막형" '기타박막형"
|
||||
K_pk = 0.035
|
||||
Case "CIS박막형" 'CIS박막형"
|
||||
K_pk = 0.105
|
||||
Case "CdTe박막형" 'CdTe박막형"
|
||||
K_pk = 0.095
|
||||
Case "성능치입력"
|
||||
K_pk = TOSG(Dr신재생.태양광모듈효율) / 100.0
|
||||
Case Else
|
||||
MsgBox("알수없는 태양광모듈종류입니다.", MsgBoxStyle.Critical, "값=" & Dr신재생.태양광모듈종류)
|
||||
|
||||
End Select
|
||||
|
||||
P_pk = K_pk * a
|
||||
E_el_pv_out = E_el_pv_out + E_sol * P_pk * f_perf
|
||||
'End If
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
'If Sheets("계산결과").Cells(104, 7 + i_count_pv_month) = "" Then
|
||||
' Sheets("계산결과").Cells(104, 7 + i_count_pv_month) = E_el_pv_out
|
||||
'Else
|
||||
' Sheets("계산결과").Cells(104, 7 + i_count_pv_month) = Sheets("계산결과").Cells(104, 7 + i_count_pv_month) + E_el_pv_out
|
||||
'End If
|
||||
|
||||
Result1o.생산E(i_count_pv_month).태양광전력생산량 += E_el_pv_out
|
||||
|
||||
'DSETR.TReqUse.Rows(CEnum.ResultRow.생산_전기_태양광)("M" & Format(i_count_pv_month, "00")) = CSng(DSETR.TReqUse.Rows(CEnum.ResultRow.생산_전기_태양광)("M" & Format(i_count_pv_month, "00"))) + E_el_pv_out ' Sheets("계산결과").Cells(95, 7 + i_count_pv_month)
|
||||
End Sub
|
||||
|
||||
Public Overridable Sub Calc_HeatpumpSystem(ByVal i_system_hp As Integer, ByVal i_HeatCool As Integer, ByVal Dr신재생 As DS.tbl_newRow, ByVal Q_hp_outg As Decimal, ByVal i_hp_month As Integer, ByVal d_h_mth As Integer, ByVal t_hp As Integer, ByVal theta_VA As Decimal, ByVal theta_i As Decimal, ByRef Q_h_outg As Decimal, ByRef Q_h_f_hp As Decimal, ByRef Q_h_g_aux As Decimal)
|
||||
|
||||
Dim f_Verwindung As Decimal, V As Decimal, q_B_S As Decimal, Phi_g As Decimal
|
||||
Dim Q_h_g As Decimal, Q_h_g_s As Decimal, Q_h_g_WP As Decimal
|
||||
Dim P_rd_mot As Decimal
|
||||
'Dim Q_h_f_hp as decimal 'DIN 에서는 Q_h_f로 표기
|
||||
'Dim Delta_p_prim as decimal, Delta_p_sek as decimal
|
||||
Dim Phi_prim_aux As Decimal, Phi_sek_aux As Decimal, t_ON_aux As Decimal
|
||||
Dim theta_h_s As Decimal
|
||||
Dim COP As Decimal
|
||||
Dim Q_h_outg_net As Decimal
|
||||
|
||||
Q_h_g_s = 0
|
||||
Q_h_g_WP = 0 '전기히트펌프인 경우 0 가스히트펌프는 ?
|
||||
P_rd_mot = 0
|
||||
Q_h_f_hp = 0
|
||||
Q_h_outg_net = 0
|
||||
|
||||
'eta_aux = 0.3
|
||||
'Delta_p_prim = 40 'kPa 1차측
|
||||
'Delta_p_sek = 10 'kPa 2차측
|
||||
|
||||
'MsgBox(i_count_hp)
|
||||
|
||||
'i_count_hp = 0 '//신재생 줄번호는 무조건 0이된다. 20100127 '//연습용데이터 문제있음
|
||||
' Dim Dr신재생 As DS.tbl_newRow = CType(DSET1.tbl_new.Rows(0), DS.tbl_newRow)
|
||||
|
||||
Phi_g = TOSG(T, Dr신재생.지열히트펌프용량) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(0, i_count_hp - 1)
|
||||
|
||||
'If Dr신재생.가동연료 <> "전기" And i_HeatCool = 1 And Dr신재생.열교환기설치여부 = "예" Then ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(5, i_count_hp - 1) = "예" Then
|
||||
' P_rd_mot = 0.4
|
||||
'End If
|
||||
|
||||
If Q_hp_outg < (Phi_g * t_hp) * (1 + P_rd_mot) Then
|
||||
Q_h_outg = Q_hp_outg
|
||||
Else
|
||||
Q_h_outg = Phi_g * t_hp * (1 + P_rd_mot)
|
||||
End If
|
||||
|
||||
If i_HeatCool = 1 Then '난방 1 , 냉방 2
|
||||
'난방
|
||||
'If Dr신재생.팽창탱크설치여부 = "예" Then ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(6, i_count_hp - 1) = "예" Then
|
||||
' f_Verwindung = 1.2
|
||||
' V = TOSG(T,Dr신재생.팽창탱크체적) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(7, i_count_hp - 1)
|
||||
' q_B_S = TOSG(T,0.4 + 0.14 * V ^ 0.45) '(51)
|
||||
' theta_h_s = theta_VA '급수온도로 적용
|
||||
' Q_h_g_s = f_Verwindung * (theta_h_s - theta_i) / 45 * d_h_mth * q_B_S '(49) 외부완충(팽창탱크 유무)
|
||||
|
||||
'End If
|
||||
|
||||
Q_h_g = Q_h_g_s + Q_h_g_WP
|
||||
COP = TOSG(T, Dr신재생.열성능비난방) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(1, i_count_hp - 1)
|
||||
|
||||
Else
|
||||
'냉방
|
||||
|
||||
COP = TOSG(T, Dr신재생.열성능비냉방) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(2, i_count_hp - 1)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If Dr신재생.가동연료 = "전기" Then ' Worksheets("신재생기기").Range("신재생및열병합기기종류1").Offset(1, i_count_hp - 1) = "전기" Then
|
||||
Q_h_f_hp = (Q_h_outg + Q_h_g) / COP
|
||||
' Q_h_in = Q_h_outg + Q_h_g - Q_h_f_hp '월간 전기히트펌프(재생에너지유입량)
|
||||
Else
|
||||
Q_h_f_hp = Q_h_outg / COP
|
||||
' If i_HeatCool = 1 And Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(5, i_count_hp - 1) = "예" Then
|
||||
' P_rd_mot = 0.4
|
||||
' End If
|
||||
' Q_h_in = Q_h_outg + Q_h_g - Q_h_f_hp * (1 + P_rd_mot) '월간 가스히트펌프(재생에너지유입량)
|
||||
End If
|
||||
|
||||
'Q_h_f = Q_h_outg + Q_h_g - k_rd_g * Q_h_g_aux - Q_h_in '월간(A.1) 전기히트펌프(난방요구량 충당)
|
||||
'Q_h_f = (Q_h_outg + Q_h_g - k_rd_g * Q_h_g_aux - Q_h_in) / (1 + P_rd_mot) '월간(A.2) 가스히트펌프(난방요구량 충당)
|
||||
|
||||
|
||||
'보조에너지
|
||||
|
||||
|
||||
'Phi_prim_aux = Delta_p_prim * V_dot / (eta_aux * 3600) '(89) 사용자 입력항목이므로 확인 요망
|
||||
'Phi_sek_aux = Delta_p_sek * V_dot / (eta_aux * 3600) '(89) 사용자 입력항목이므로 확인 요망
|
||||
|
||||
t_ON_aux = Q_h_outg / (Phi_g) '(81)
|
||||
Phi_prim_aux = TOSG(T, Dr신재생.펌프용량1차) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(3, i_count_hp - 1)
|
||||
'Phi_sek_aux = TOSG(T,Dr신재생.펌프용량2차) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(4, i_count_hp - 1)
|
||||
|
||||
Q_h_g_aux = TOSG(T, (Phi_prim_aux) * 0.001 * t_ON_aux) '(88)
|
||||
|
||||
|
||||
'// 신재생에너지 자립률 추가(2017.01.20)
|
||||
|
||||
If Dr신재생.가동연료 = "전기" Then
|
||||
Q_h_outg_net = Q_h_outg - ((Q_h_f_hp + Q_h_g_aux) * 2.75) '전기 1차에너지계수 적용
|
||||
If Q_h_outg_net < 0 Then Q_h_outg_net = 0
|
||||
|
||||
Else
|
||||
Q_h_outg_net = Q_h_outg - (Q_h_f_hp * 1.1 + Q_h_g_aux * 2.75) '가스 1차에너지계수 적용
|
||||
If Q_h_outg_net < 0 Then Q_h_outg_net = 0
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'// 신재생에너지 자립률 추가
|
||||
|
||||
|
||||
'//열에너지생산량 (지열)
|
||||
Result1o.생산E(i_hp_month).지열생산량 += Q_h_f_hp
|
||||
'DSETR.TReqUse.Rows(79)("M" & Format(i_hp_month, "00")) = CSng(DSETR.TReqUse.Rows(79)("M" & Format(i_hp_month, "00"))) + Q_h_f_hp 'DrT생산.열생산량지열 += Q_h_f_hp
|
||||
|
||||
'100 : Total >> DrT생산.단위면적당생산량지열
|
||||
Select Case i_system_hp
|
||||
Case 1
|
||||
Result1o.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result1o.사용면적.H)
|
||||
'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(10)("M00")) ' DrT요구량.난방사용면적 ' Sheets("계산결과").Cells(15, 7)
|
||||
Case 2
|
||||
Result1o.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result1o.사용면적.C)
|
||||
'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(15)("M00")) 'DrT요구량.냉방사용면적 '("계산결과").Cells(20, 7)
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
Public Overridable Sub Calc_CogenerationSystemEN(ByVal Dr신재생 As DS.tbl_newRow, i_system_chp As Integer, ByVal i_chp_month As Integer, ByVal Q_h_outg As Decimal, ByVal t_chp As Integer, ByRef Q_chp_gen_out As Decimal, ByRef E_chp_gen_in As Decimal)
|
||||
'EN15316-4-4_2007 5.6.2에서 시작
|
||||
'Dim Wmsg As New System.Text.StringBuilder
|
||||
'Wmsg.AppendLine("Calc_CogenerationSystemEN 이 함수의경우")
|
||||
'Wmsg.AppendLine("i_count_chp 에따라서 열을 할당해야한다.... 지만..아직 이 파라미터값을 모르게삳")
|
||||
'Wmsg.AppendLine("사용하는곳의 참조확인을해서 저곳이 신재생기기 코드값이 바로오는건지 다른값인지 확인해봐야겠다")
|
||||
'MsgBox(Wmsg.ToString)
|
||||
|
||||
Dim Q_dot_T_chp As Decimal
|
||||
Dim eta_T_chp_an As Decimal, eta_el_chp_an As Decimal
|
||||
Dim E_el_chp_out As Decimal
|
||||
Dim Q_chp_gen_out_net As Decimal, E_el_chp_out_net As Decimal, Q_E_ratio As Decimal, net_ratio As Decimal
|
||||
|
||||
Q_chp_gen_out_net = 0
|
||||
E_el_chp_out_net = 0
|
||||
Q_E_ratio = 0
|
||||
net_ratio = 0
|
||||
|
||||
|
||||
' Dim Dr신재생 As DS.tbl_newRow = CType(DSET1.tbl_new.Rows(0), DS.tbl_newRow)
|
||||
|
||||
Q_dot_T_chp = TOSG(T, Dr신재생.열생산능력) ' Worksheets("신재생기기").Range("열병합열생산능력1").Offset(0, i_count_chp - 1)
|
||||
eta_T_chp_an = TOSG(T, Dr신재생.열생산효율) ' Worksheets("신재생기기").Range("열병합열생산능력1").Offset(1, i_count_chp - 1)
|
||||
eta_el_chp_an = TOSG(T, Dr신재생.발전효율) ' Worksheets("신재생기기").Range("열병합열생산능력1").Offset(2, i_count_chp - 1)
|
||||
|
||||
If Q_h_outg > (Q_dot_T_chp * t_chp) Then
|
||||
Q_chp_gen_out = Q_dot_T_chp * t_chp
|
||||
Else
|
||||
Q_chp_gen_out = Q_h_outg
|
||||
End If
|
||||
|
||||
E_chp_gen_in = Q_chp_gen_out / (eta_T_chp_an / 100)
|
||||
E_el_chp_out = E_chp_gen_in * eta_el_chp_an / 100
|
||||
|
||||
'//전기생산량 열병합
|
||||
Result1o.생산E(i_chp_month).열병합전력생산량 += E_el_chp_out
|
||||
|
||||
'//전기생산량 열병합
|
||||
If Dr신재생.열병합신재생여부 Then
|
||||
|
||||
|
||||
'// 신재생에너지 자립률 추가(2017.01.20)
|
||||
|
||||
net_ratio = (Q_chp_gen_out + E_el_chp_out * 2.75) / (E_chp_gen_in * 1.1)
|
||||
Q_E_ratio = Q_chp_gen_out / (Q_chp_gen_out + E_el_chp_out * 2.75)
|
||||
Q_chp_gen_out_net = Q_chp_gen_out * (net_ratio - 1) * Q_E_ratio
|
||||
E_el_chp_out_net = (E_el_chp_out * 2.75 * (net_ratio - 1) * (1 - Q_E_ratio)) / 2.75
|
||||
If Q_chp_gen_out_net < 0 Then Q_chp_gen_out_net = 0
|
||||
If E_el_chp_out_net < 0 Then E_el_chp_out_net = 0
|
||||
|
||||
|
||||
|
||||
'// 신재생에너지 자립률 추가
|
||||
|
||||
|
||||
'//전력
|
||||
Result1o.생산E(i_chp_month).신재생열병합전력생산량 += (E_el_chp_out_net) '//20170120 추가
|
||||
'Result.생산E(i_chp_month).신재생열병합전력생산량 += (E_el_chp_out)
|
||||
|
||||
'pLog.Add(String.Format("Calc_CogenerationSystemEN 결과2 신재생열병합전력생산량={0}", Result1o.생산E(i_chp_month).신재생열병합전력생산량))
|
||||
|
||||
'//면적당열병합 (신재생면적당열생산량)
|
||||
Select Case i_system_chp
|
||||
Case 1
|
||||
Result1o.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result1o.사용면적.H) '// 20170120 추가
|
||||
'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.H)
|
||||
Case 2
|
||||
Result1o.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result1o.사용면적.C) '// 20170120 추가
|
||||
'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.C)
|
||||
Case 3
|
||||
Result1o.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result1o.사용면적.W) '// 20170120 추가
|
||||
'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.W)
|
||||
|
||||
End Select
|
||||
|
||||
' pLog.Add(String.Format("Calc_CogenerationSystemEN 결과3 신재생면적당열생산량={0}", Result.생산E(i_chp_month).신재생면적당열생산량))
|
||||
|
||||
End If
|
||||
|
||||
'DSETR.TReqUse.Rows(77)("M" & Format(i_chp_month, "00")) = CSng(DSETR.TReqUse.Rows(77)("M" & Format(i_chp_month, "00"))) + E_el_chp_out ' Sheets("계산결과").Cells(96, 7 + i_chp_month) = E_el_chp_out
|
||||
End Sub
|
||||
End Class
|
||||
732
ArinWarev1/Calculator-OD/Result/C1차소요량.vb
Normal file
732
ArinWarev1/Calculator-OD/Result/C1차소요량.vb
Normal file
@@ -0,0 +1,732 @@
|
||||
Public Class C1차소요량OD
|
||||
|
||||
Dim T As String = "1차소요량"
|
||||
|
||||
Public Mon As String
|
||||
Private ErrMsg As String = "1차에너지소요량 계산되지 않았습니다"
|
||||
Private MIdx As Integer
|
||||
|
||||
'//M00 일떄의 합계식이 추가되지않았따
|
||||
'//해당부분은 주로 합계식에서 사용된다.
|
||||
|
||||
Public Sub Calc_Summary()
|
||||
|
||||
If MIdx <> 0 Then
|
||||
MsgBox("Calc 계산식은 0번만 가능합니다")
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim i1, i2, i3, i4, i5, i6 As Decimal
|
||||
|
||||
i1 = 0 : i2 = 0 : i3 = 0 : i4 = 0 : i5 = 0
|
||||
For i As Integer = 1 To 12
|
||||
i1 += Result1o.일차E소요량(i).난방등유
|
||||
i2 += Result1o.일차E소요량(i).난방LNG
|
||||
i3 += Result1o.일차E소요량(i).난방LPG
|
||||
i4 += Result1o.일차E소요량(i).난방지역
|
||||
i5 += Result1o.일차E소요량(i).난방전력
|
||||
Next
|
||||
Me.난방등유 = i1
|
||||
Me.난방LNG = i2
|
||||
Me.난방LPG = i3
|
||||
Me.난방지역 = i4
|
||||
Me.난방전력 = i5
|
||||
|
||||
i1 = 0 : i2 = 0 : i3 = 0 : i4 = 0 : i5 = 0 : i6 = 0
|
||||
For i As Integer = 1 To 12
|
||||
i1 += Result1o.일차E소요량(i).냉방등유
|
||||
i2 += Result1o.일차E소요량(i).냉방LNG
|
||||
i3 += Result1o.일차E소요량(i).냉방LPG
|
||||
i4 += Result1o.일차E소요량(i).냉방지역난방열
|
||||
i5 += Result1o.일차E소요량(i).냉방지역냉방열
|
||||
i6 += Result1o.일차E소요량(i).냉방전력
|
||||
Next
|
||||
Me.냉방등유 = i1
|
||||
Me.냉방LNG = i2
|
||||
Me.냉방LPG = i3
|
||||
Me.냉방지역난방열 = i4
|
||||
Me.냉방지역냉방열 = i5
|
||||
Me.냉방전력 = i6
|
||||
|
||||
i1 = 0 : i2 = 0 : i3 = 0 : i4 = 0 : i5 = 0
|
||||
For i As Integer = 1 To 12
|
||||
i1 += Result1o.일차E소요량(i).급탕등유
|
||||
i2 += Result1o.일차E소요량(i).급탕LNG
|
||||
i3 += Result1o.일차E소요량(i).급탕LPG
|
||||
i4 += Result1o.일차E소요량(i).급탕지역
|
||||
i5 += Result1o.일차E소요량(i).급탕전력
|
||||
Next
|
||||
Me.급탕등유 = i1
|
||||
Me.급탕LNG = i2
|
||||
Me.급탕LPG = i3
|
||||
Me.급탕지역 = i4
|
||||
Me.급탕전력 = i5
|
||||
|
||||
End Sub
|
||||
Public Sub New(Optional ByVal pmIdx As Integer = 0)
|
||||
MIdx = pmIdx
|
||||
Mon = "M" & Format(pmIdx, "00")
|
||||
End Sub
|
||||
ReadOnly Property 소요량() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.일차E소요량(i).소요량
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
Return Me.난방소요량 + Me.냉방소요량 + Me.급탕소요량 + Me.조명소요량 + Me.환기소요량 - (Result1o.생산E(MIdx).태양광전력생산량 * Result1o.E변환계수.전력) - (Result1o.생산E(MIdx).열병합전력생산량 * Result1o.E변환계수.전력)
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 단위면적() As Decimal
|
||||
Get
|
||||
If MIdx <> 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.난방면적 + Me.냉방면적 + Me.급탕면적 + Me.조명면적 + Me.환기면적
|
||||
End If
|
||||
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#Region "난방"
|
||||
ReadOnly Property 난방소요량() As Decimal
|
||||
Get
|
||||
|
||||
If MIdx = 0 Then
|
||||
Dim R As Decimal = Me.난방등유 * Result1o.E변환계수.등유 + Me.난방LNG * Result1o.E변환계수.LNG + _
|
||||
Me.난방LPG * Result1o.E변환계수.LPG + Me.난방지역 * Result1o.E변환계수.지역난방 + _
|
||||
Me.난방전력 * Result1o.E변환계수.전력
|
||||
|
||||
Return R - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / _
|
||||
(Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.난방전력 * Result1o.E변환계수.전력
|
||||
Else
|
||||
Return Me.난방등유 * Result1o.E변환계수.등유 + Me.난방LNG * Result1o.E변환계수.LNG + _
|
||||
Me.난방LPG * Result1o.E변환계수.LPG + Me.난방지역 * Result1o.E변환계수.지역난방 + _
|
||||
Me.난방전력 * Result1o.E변환계수.전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property 난방소요량2() As Decimal '//140112(?)
|
||||
Get
|
||||
|
||||
' Dim 건물용도 As Integer = CInt(DSET1.tbl_myoun.Select("존분류 <> '0'")(0)("존분류").ToString())
|
||||
If MIdx = 0 Then
|
||||
|
||||
If Pub.Program = EProgram.친환경평가 Then
|
||||
'//친환경
|
||||
Dim R As Decimal = Me.난방등유 * Result1o.E변환계수.지역난방 + Me.난방LNG * Result1o.E변환계수.지역난방 + _
|
||||
Me.난방LPG * Result1o.E변환계수.지역난방 + Me.난방지역 * Result1o.E변환계수.지역난방 + _
|
||||
Me.난방전력 * Result1o.E변환계수.전력
|
||||
Try
|
||||
Return R - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / _
|
||||
(Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.난방전력 * Result1o.E변환계수.전력
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Else
|
||||
Dim R As Decimal = Me.난방등유 * Result1o.E변환계수.등유 + Me.난방LNG * Result1o.E변환계수.LNG + _
|
||||
Me.난방LPG * Result1o.E변환계수.LPG + Me.난방지역 * Result1o.E변환계수.지역난방 + _
|
||||
Me.난방전력 * Result1o.E변환계수.전력
|
||||
Try
|
||||
Return R - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / _
|
||||
(Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.난방전력 * Result1o.E변환계수.전력
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
|
||||
|
||||
If Pub.Program = EProgram.친환경평가 Then
|
||||
Return Me.난방등유 * Result1o.E변환계수.지역난방 + Me.난방LNG * Result1o.E변환계수.지역난방 + _
|
||||
Me.난방LPG * Result1o.E변환계수.지역난방 + Me.난방지역 * Result1o.E변환계수.지역난방 + _
|
||||
Me.난방전력 * Result1o.E변환계수.전력
|
||||
Else
|
||||
Return Me.난방등유 * Result1o.E변환계수.등유 + Me.난방LNG * Result1o.E변환계수.LNG + _
|
||||
Me.난방LPG * Result1o.E변환계수.LPG + Me.난방지역 * Result1o.E변환계수.지역난방 + _
|
||||
Me.난방전력 * Result1o.E변환계수.전력
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Property 난방등유() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("난방등유"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("난방등유") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 난방LNG() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("난방LNG"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("난방LNG") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 난방LPG() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("난방LPG"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("난방LPG") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
'Property 난방펠렛() As Decimal
|
||||
' Get
|
||||
' Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
' If DR.GetUpperBound(0) = -1 Then
|
||||
' MsgBox(ErrMsg)
|
||||
' Return 0
|
||||
' Else
|
||||
' Return TOSG(T,DR(0)("난방펠렛"))
|
||||
' End If
|
||||
' End Get
|
||||
' Set(ByVal value As Decimal)
|
||||
' Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
' If DR.GetUpperBound(0) = -1 Then
|
||||
' MsgBox(ErrMsg)
|
||||
' Else
|
||||
' DR(0)("난방펠렛") = value
|
||||
' End If
|
||||
' End Set
|
||||
'End Property
|
||||
Property 난방지역() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("난방지역"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("난방지역") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 난방전력() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("난방전력"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("난방전력") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
ReadOnly Property 난방면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.H = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.난방소요량 / Result1o.사용면적.H
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property 난방면적2() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.H = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.난방소요량2 / Result1o.사용면적.H
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
#Region "냉방"
|
||||
ReadOnly Property 냉방소요량() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then
|
||||
Dim R As Decimal = Me.냉방등유 * Result1o.E변환계수.등유 + Me.냉방LNG * Result1o.E변환계수.LNG + _
|
||||
Me.냉방LPG * Result1o.E변환계수.LPG + Me.냉방지역난방열 * Result1o.E변환계수.지역난방 + _
|
||||
Me.냉방지역냉방열 * Result1o.E변환계수.지역냉방 + Me.냉방전력 * Result1o.E변환계수.전력
|
||||
|
||||
Return R - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / _
|
||||
(Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.냉방전력 * Result1o.E변환계수.전력
|
||||
Else
|
||||
Return Me.냉방등유 * Result1o.E변환계수.등유 + Me.냉방LNG * Result1o.E변환계수.LNG + _
|
||||
Me.냉방LPG * Result1o.E변환계수.LPG + Me.냉방지역난방열 * Result1o.E변환계수.지역난방 + _
|
||||
Me.냉방지역냉방열 * Result1o.E변환계수.지역냉방 + Me.냉방전력 * Result1o.E변환계수.전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Property 냉방등유() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("냉방등유"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("냉방등유") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 냉방LNG() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("냉방LNG"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("냉방LNG") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 냉방펠렛() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("냉방펠렛"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("냉방펠렛") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 냉방LPG() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("냉방LPG"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("냉방LPG") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 냉방지역난방열() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("냉방지역"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("냉방지역") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 냉방지역냉방열() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("냉방지역2"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("냉방지역2") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 냉방전력() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("냉방전력"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("냉방전력") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
ReadOnly Property 냉방면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.C = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.냉방소요량 / Result1o.사용면적.C
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
#Region "급탕"
|
||||
ReadOnly Property 급탕소요량() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then
|
||||
Dim R As Decimal = Me.급탕등유 * Result1o.E변환계수.등유 + Me.급탕LNG * Result1o.E변환계수.LNG + _
|
||||
Me.급탕LPG * Result1o.E변환계수.LPG + Me.급탕지역 * Result1o.E변환계수.지역난방 + _
|
||||
Me.급탕전력 * Result1o.E변환계수.전력
|
||||
|
||||
Return R - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / _
|
||||
(Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.급탕전력 * Result1o.E변환계수.전력
|
||||
Else
|
||||
Return Me.급탕등유 * Result1o.E변환계수.등유 + Me.급탕LNG * Result1o.E변환계수.LNG + _
|
||||
Me.급탕LPG * Result1o.E변환계수.LPG + Me.급탕지역 * Result1o.E변환계수.지역난방 + _
|
||||
Me.급탕전력 * Result1o.E변환계수.전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property 급탕소요량2() As Decimal
|
||||
Get
|
||||
' Dim 건물용도 As Integer = CInt(DSET1.tbl_myoun.Select("존분류 <> '0'")(0)("존분류").ToString())
|
||||
|
||||
|
||||
If MIdx = 0 Then
|
||||
If Pub.Program = EProgram.친환경평가 Then
|
||||
Dim R As Decimal = Me.급탕등유 * Result1o.E변환계수.지역난방 + Me.급탕LNG * Result1o.E변환계수.지역난방 + _
|
||||
Me.급탕LPG * Result1o.E변환계수.지역난방 + Me.급탕지역 * Result1o.E변환계수.지역난방 + _
|
||||
Me.급탕전력 * Result1o.E변환계수.전력
|
||||
Try
|
||||
Return R - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / _
|
||||
(Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.급탕전력 * Result1o.E변환계수.전력
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Else
|
||||
Dim R As Decimal = Me.급탕등유 * Result1o.E변환계수.등유 + Me.급탕LNG * Result1o.E변환계수.LNG + _
|
||||
Me.급탕LPG * Result1o.E변환계수.LPG + Me.급탕지역 * Result1o.E변환계수.지역난방 + _
|
||||
Me.급탕전력 * Result1o.E변환계수.전력
|
||||
Try
|
||||
Return R - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / _
|
||||
(Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.급탕전력 * Result1o.E변환계수.전력
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
If Pub.Program = EProgram.친환경평가 Then
|
||||
Return Me.급탕등유 * Result1o.E변환계수.지역난방 + Me.급탕LNG * Result1o.E변환계수.지역난방 + _
|
||||
Me.급탕LPG * Result1o.E변환계수.지역난방 + Me.급탕지역 * Result1o.E변환계수.지역난방 + _
|
||||
Me.급탕전력 * Result1o.E변환계수.전력
|
||||
Else
|
||||
Return Me.급탕등유 * Result1o.E변환계수.등유 + Me.급탕LNG * Result1o.E변환계수.LNG + _
|
||||
Me.급탕LPG * Result1o.E변환계수.LPG + Me.급탕지역 * Result1o.E변환계수.지역난방 + _
|
||||
Me.급탕전력 * Result1o.E변환계수.전력
|
||||
End If
|
||||
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Property 급탕등유() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("급탕등유"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("급탕등유") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 급탕LNG() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("급탕LNG"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("급탕LNG") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 급탕펠렛() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("급탕펠렛"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("급탕펠렛") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 급탕LPG() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("급탕LPG"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("급탕LPG") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 급탕지역() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("급탕지역"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("급탕지역") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 급탕전력() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("급탕전력"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량1Row = CType(DSETR1.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("급탕전력") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
ReadOnly Property 급탕면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.W = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.급탕소요량 / Result1o.사용면적.W
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 급탕면적2() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.W = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.급탕소요량2 / Result1o.사용면적.W
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
#Region "조명부분(읽기전용)"
|
||||
ReadOnly Property 조명소요량() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then
|
||||
Dim R As Decimal = 조명전력 * Result1o.E변환계수.전력
|
||||
|
||||
Return R - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / _
|
||||
(Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.조명전력 * Result1o.E변환계수.전력
|
||||
Else
|
||||
Return 조명전력 * Result1o.E변환계수.전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 조명전력() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then '//합계필드라면 12월의 합계를 반환한다.
|
||||
Dim i1 As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
i1 += Result1o.일차E소요량(i).조명전력
|
||||
Next
|
||||
Return i1
|
||||
Else
|
||||
Return Result1o.E소요량(Me.MIdx).조명S
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 조명면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.L = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.조명소요량 / Result1o.사용면적.L
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "환기부분(읽기전용)"
|
||||
ReadOnly Property 환기소요량() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then
|
||||
Dim R As Decimal = 환기전력 * Result1o.E변환계수.전력
|
||||
|
||||
Return R - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / _
|
||||
(Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.환기전력 * Result1o.E변환계수.전력
|
||||
Else
|
||||
Return 환기전력 * Result1o.E변환계수.전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 환기전력() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then '//합계필드라면 12월의 합계를 반환한다.
|
||||
Dim i1 As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
i1 += Result1o.일차E소요량(i).환기전력
|
||||
Next
|
||||
Return i1
|
||||
Else
|
||||
Return Result1o.E소요량(Me.MIdx).환기S
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 환기면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.V = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.환기소요량 / Result1o.사용면적.V
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
425
ArinWarev1/Calculator-OD/Result/CCo2발생량.vb
Normal file
425
ArinWarev1/Calculator-OD/Result/CCo2발생량.vb
Normal file
@@ -0,0 +1,425 @@
|
||||
Public Class CCo2발생량OD
|
||||
Public Mon As String
|
||||
Private ErrMsg As String = "에너지소요량 계산되지 않았습니다"
|
||||
Private MIdx As Integer
|
||||
Public Sub New(Optional ByVal pmIdx As Integer = 0)
|
||||
MIdx = pmIdx
|
||||
Mon = "M" & Format(MIdx, "00")
|
||||
End Sub
|
||||
ReadOnly Property 발생량() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then '//최종합계는 저람량을 제하지않는다?
|
||||
Return Me.난방발생량 + Me.냉방발생량 + Me.급탕발생량 + Me.조명발생량 + Me.환기발생량
|
||||
Else
|
||||
Return Me.난방발생량 + Me.냉방발생량 + Me.급탕발생량 + Me.조명발생량 + Me.환기발생량 - Me.저감량태양광 - Me.저감량열병합
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 단위면적() As Decimal
|
||||
Get '//월구분없음 실제로는 최종합 M00 에만 값이 있다.
|
||||
Return Me.난방면적 + Me.냉방면적 + Me.급탕면적 + Me.조명면적 + Me.환기면적
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#Region "난방"
|
||||
ReadOnly Property 난방발생량() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then
|
||||
Dim R As Decimal = Me.난방등유 + Me.난방LNG + Me.난방LPG + Me.난방지역 + Me.난방전력
|
||||
Return R - (Me.저감량열병합 + Me.저감량태양광) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.난방전력
|
||||
Else
|
||||
Return Me.난방등유 + Me.난방LNG + Me.난방LPG + Me.난방지역 + Me.난방전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 난방등유() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).난방등유
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).난방등유 * Result1o.Co2배출계수.등유
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 난방LNG() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).난방LNG
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).난방LNG * Result1o.Co2배출계수.LNG
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 난방LPG() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).난방LPG
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).난방LPG * Result1o.Co2배출계수.LPG
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 난방지역() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).난방지역
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).난방지역 * Result1o.Co2배출계수.지역난방
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 난방전력() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).난방전력
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).난방전력 * Result1o.Co2배출계수.전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
'ReadOnly Property 난방펠렛() As Decimal
|
||||
' Get
|
||||
' If Me.MIdx = 0 Then
|
||||
' Dim Res As Decimal = 0
|
||||
' For i As Short = 1 To 12
|
||||
' Res += Result1o.Co2발생량(i).난방펠렛
|
||||
' Next
|
||||
' Return Res
|
||||
' Else
|
||||
' Return Result1o.일차E소요량(MIdx).난방펠렛 * Result1o.Co2배출계수.펠렛
|
||||
' End If
|
||||
' End Get
|
||||
'End Property
|
||||
ReadOnly Property 난방면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.H = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.난방발생량 / Result1o.사용면적.H
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
ReadOnly Property 냉방발생량() As Decimal
|
||||
Get
|
||||
Dim R As Decimal = Me.냉방등유 + Me.냉방LNG + Me.냉방LPG + Me.냉방지역난방열 + Me.냉방지역냉방열 + Me.냉방전력
|
||||
If MIdx = 0 Then
|
||||
Return R - (Me.저감량열병합 + Me.저감량태양광) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.냉방전력
|
||||
Else
|
||||
Return R
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 냉방등유() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).냉방등유
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).냉방등유 * Result1o.Co2배출계수.등유
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 냉방LNG() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).냉방LNG
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).냉방LNG * Result1o.Co2배출계수.LNG
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
'ReadOnly Property 냉방펠렛() As Decimal
|
||||
' Get
|
||||
' If Me.MIdx = 0 Then
|
||||
' Dim Res As Decimal = 0
|
||||
' For i As Short = 1 To 12
|
||||
' Res += Result1o.Co2발생량(i).냉방펠렛
|
||||
' Next
|
||||
' Return Res
|
||||
' Else
|
||||
' Return Result1o.일차E소요량(MIdx).냉방펠렛 * Result1o.Co2배출계수.펠렛
|
||||
' End If
|
||||
' End Get
|
||||
'End Property
|
||||
ReadOnly Property 냉방LPG() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).냉방LPG
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).냉방LPG * Result1o.Co2배출계수.LPG
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 냉방지역난방열() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).냉방지역난방열
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).냉방지역난방열 * Result1o.Co2배출계수.지역난방
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 냉방지역냉방열() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).냉방지역냉방열
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).냉방지역냉방열 * Result1o.Co2배출계수.지역냉방
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 냉방전력() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).냉방전력
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).냉방전력 * Result1o.Co2배출계수.전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 냉방면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.C = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.냉방발생량 / Result1o.사용면적.C
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property 급탕발생량() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then
|
||||
Dim R As Decimal = Me.급탕등유 + Me.급탕LNG + Me.급탕LPG + Me.급탕지역 + Me.급탕전력
|
||||
Return R - (Me.저감량열병합 + Me.저감량태양광) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.급탕전력
|
||||
Else
|
||||
Return Me.급탕등유 + Me.급탕LNG + Me.급탕LPG + Me.급탕지역 + Me.급탕전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 급탕등유() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).급탕등유
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).급탕등유 * Result1o.Co2배출계수.등유
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
'ReadOnly Property 급탕펠렛() As Decimal
|
||||
' Get
|
||||
' If Me.MIdx = 0 Then
|
||||
' Dim Res As Decimal = 0
|
||||
' For i As Short = 1 To 12
|
||||
' Res += Result1o.Co2발생량(i).급탕펠렛
|
||||
' Next
|
||||
' Return Res
|
||||
' Else
|
||||
' Return Result1o.일차E소요량(MIdx).급탕펠렛 * Result1o.Co2배출계수.펠렛
|
||||
' End If
|
||||
' End Get
|
||||
'End Property
|
||||
ReadOnly Property 급탕LNG() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).급탕LNG
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).급탕LNG * Result1o.Co2배출계수.LNG
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 급탕LPG() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).급탕LPG
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).급탕LPG * Result1o.Co2배출계수.LPG
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 급탕지역() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).급탕지역
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).급탕지역 * Result1o.Co2배출계수.지역난방
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 급탕전력() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).급탕전력
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).급탕전력 * Result1o.Co2배출계수.전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 급탕면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.W = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.급탕발생량 / Result1o.사용면적.W
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property 조명발생량() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then
|
||||
Dim R As Decimal = Me.조명전력
|
||||
Return R - (Me.저감량열병합 + Me.저감량태양광) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.조명전력
|
||||
Else
|
||||
Return Me.조명전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 조명전력() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).조명전력
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).조명전력 * Result1o.Co2배출계수.전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 조명면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.L = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.조명발생량 / Result1o.사용면적.L
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property 환기발생량() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then
|
||||
Dim R As Decimal = Me.환기전력
|
||||
Return R - (Me.저감량열병합 + Me.저감량태양광) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.환기전력
|
||||
Else
|
||||
Return Me.환기전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 환기전력() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).환기전력
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.일차E소요량(MIdx).환기전력 * Result1o.Co2배출계수.전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 환기면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.V = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.환기발생량 / Result1o.사용면적.V
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property 저감량태양광() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).저감량태양광
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.생산E(MIdx).태양광전력생산량 * Result1o.Co2배출계수.전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 저감량열병합() As Decimal
|
||||
Get
|
||||
If Me.MIdx = 0 Then
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.Co2발생량(i).저감량열병합
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return Result1o.생산E(MIdx).열병합전력생산량 * Result1o.Co2배출계수.전력
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
43
ArinWarev1/Calculator-OD/Result/CResult.vb
Normal file
43
ArinWarev1/Calculator-OD/Result/CResult.vb
Normal file
@@ -0,0 +1,43 @@
|
||||
Public Class CResultOD
|
||||
|
||||
|
||||
' Public Zones As CZonesOD
|
||||
|
||||
Public E요구량(12) As C에너지요구량OD
|
||||
Public E소요량(12) As C에너지소요량OD
|
||||
Public 일차E소요량(12) As C1차소요량OD
|
||||
Public 생산E(12) As C생산에너지OD
|
||||
Public Co2발생량(12) As CCo2발생량OD
|
||||
Public E분석(12) As C에너지분석OD '//여기는 유일하게 0번 인덱스를 쓸수없다
|
||||
|
||||
Public Co2배출계수 As CCo2배출계수OD
|
||||
Public E변환계수 As C1차에너지변환계수OD
|
||||
|
||||
Public 사용면적 As C사용면적OD
|
||||
Public 최대부하 As C최대냉난방부하OD
|
||||
|
||||
Public Sub New()
|
||||
'//공용
|
||||
Co2배출계수 = New CCo2배출계수OD
|
||||
E변환계수 = New C1차에너지변환계수OD
|
||||
|
||||
'//단일
|
||||
사용면적 = New C사용면적OD
|
||||
최대부하 = New C최대냉난방부하OD
|
||||
|
||||
'//서브추가항목
|
||||
'Zones = New CZonesOD
|
||||
|
||||
'//월별로 들어가는 배열항목
|
||||
For i As Integer = 0 To 12
|
||||
Me.E요구량(i) = New C에너지요구량OD(i)
|
||||
Me.E소요량(i) = New C에너지소요량OD(i)
|
||||
Me.일차E소요량(i) = New C1차소요량OD(i)
|
||||
Me.생산E(i) = New C생산에너지OD(i)
|
||||
Me.Co2발생량(i) = New CCo2발생량OD(i)
|
||||
Me.E분석(i) = New C에너지분석OD(i)
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
59
ArinWarev1/Calculator-OD/Result/CZones.vb
Normal file
59
ArinWarev1/Calculator-OD/Result/CZones.vb
Normal file
@@ -0,0 +1,59 @@
|
||||
|
||||
' ''' <summary>
|
||||
' ''' 각존의 데이터를 참조한다
|
||||
' ''' </summary>
|
||||
'Public Class CZonesOD
|
||||
' Dim ErrMsg As String = "최대냉난방부하가 계산되지 않았습니다"
|
||||
' Public Items() As Citem
|
||||
|
||||
' Public Sub New() '//존은초기화값을 가지고 생성한다.
|
||||
' ReDim Items(Me.CountR) '//결과내의 존을 초기화한다.
|
||||
' Dim idx As Integer = 0
|
||||
' For Each It As DSR.최대냉난방부하Row In DSETR1.최대냉난방부하.Select("zone<>'00'")
|
||||
' Items(idx) = New Citem(idx, It.Zone)
|
||||
' idx += 1
|
||||
' Next
|
||||
' '//해당존의 코드값을 가지고 결과가 게산되어있따.
|
||||
' End Sub
|
||||
' Public Function Count() As Integer
|
||||
' Return DSET1.tbl_zone.Rows.Count '//현재 시스템의 존 카운터를 반환
|
||||
' End Function
|
||||
' Public Function CountR() As Integer
|
||||
' Return DSETR1.최대냉난방부하.Select("zone<>'00'").GetUpperBound(0) + 1 '//계산결과내의 존의 갯수를 반환
|
||||
' End Function
|
||||
|
||||
' Public Class Citem
|
||||
' Public Index As Integer
|
||||
' Public Code As String
|
||||
' Public 최대냉난방부하 As C최대냉난방부하OD.Citem
|
||||
' Public 월에너지분석(11) As C에너지분석OD '//이존의 12달의 내역을 참조한다.
|
||||
' Public Sub New(ByVal pidx As Integer, ByVal pcode As String)
|
||||
' Me.Index = pidx
|
||||
' Me.Code = pcode
|
||||
' 최대냉난방부하 = New C최대냉난방부하OD.Citem(pcode)
|
||||
|
||||
' Dim Idx As Integer = 0
|
||||
' For Each DR As C에너지분석OD In Me.월에너지분석
|
||||
' DR = New C에너지분석OD(Idx, pcode)
|
||||
' Idx += 1
|
||||
' Next
|
||||
' End Sub
|
||||
' Public Function Name() As String
|
||||
' Dim dR() As DataRow = DSET1.tbl_zone.Select("code='" & Me.Code & "'")
|
||||
' If dR.GetUpperBound(0) = -1 Then
|
||||
' Return "존재하지않는 Zone 입니다"
|
||||
' Else
|
||||
' Return dR(0)("설명").ToString
|
||||
' End If
|
||||
' End Function
|
||||
' Public Function Row() As DS.tbl_zoneRow
|
||||
' Dim dR() As DS.tbl_zoneRow = CType(DSET1.tbl_zone.Select("code='" & Me.Code & "'"), DS.tbl_zoneRow())
|
||||
' If dR.GetUpperBound(0) = -1 Then
|
||||
' Return Nothing
|
||||
' Else
|
||||
' Return dR(0)
|
||||
' End If
|
||||
' End Function
|
||||
' End Class
|
||||
'End Class
|
||||
|
||||
76
ArinWarev1/Calculator-OD/Result/C범용.vb
Normal file
76
ArinWarev1/Calculator-OD/Result/C범용.vb
Normal file
@@ -0,0 +1,76 @@
|
||||
Public Class CCo2배출계수OD
|
||||
Public Sub New()
|
||||
|
||||
End Sub
|
||||
ReadOnly Property 등유() As Decimal
|
||||
Get
|
||||
Return 0.259
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property LNG() As Decimal
|
||||
Get
|
||||
Return 0.202
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property LPG() As Decimal
|
||||
Get
|
||||
Return 0.227
|
||||
End Get
|
||||
End Property
|
||||
'ReadOnly Property 펠렛() As Decimal
|
||||
' Get
|
||||
' Return 0.0 '//나중에 지정하세요.
|
||||
' End Get
|
||||
'End Property
|
||||
ReadOnly Property 지역난방() As Decimal
|
||||
Get
|
||||
Return 0.164
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 지역냉방() As Decimal
|
||||
Get
|
||||
Return 0.14
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 전력() As Decimal
|
||||
Get
|
||||
Return 0.4691
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
Public Class C1차에너지변환계수OD
|
||||
Public Sub New()
|
||||
|
||||
End Sub
|
||||
ReadOnly Property 등유() As Decimal
|
||||
Get
|
||||
Return 1.1
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property LNG() As Decimal
|
||||
Get
|
||||
Return 1.1
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property LPG() As Decimal
|
||||
Get
|
||||
Return 1.1
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 지역난방() As Decimal
|
||||
Get
|
||||
Return 0.728
|
||||
'//Return 0.614 '//170518
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 지역냉방() As Decimal
|
||||
Get
|
||||
Return 0.937
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 전력() As Decimal
|
||||
Get
|
||||
Return 2.75
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
358
ArinWarev1/Calculator-OD/Result/C사용면적.vb
Normal file
358
ArinWarev1/Calculator-OD/Result/C사용면적.vb
Normal file
@@ -0,0 +1,358 @@
|
||||
''' <summary>
|
||||
''' 전체존의 사용면적을 계산및 확인(냉,난,조,급,환)
|
||||
''' </summary>
|
||||
''' <remarks>전체존의 사용면적을 계산및 확인(냉,난,조,급,환)</remarks>
|
||||
Public Class C사용면적OD
|
||||
|
||||
Dim T As String = "사용면적"
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' 난방
|
||||
''' </summary>
|
||||
''' <remarks>난방</remarks>
|
||||
Property H() As Decimal
|
||||
Get
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DSETR1.사용면적(0)("H"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Else
|
||||
DSETR1.사용면적(0)("H") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
''' <summary>
|
||||
''' 냉방
|
||||
''' </summary>
|
||||
''' <remarks>냉방</remarks>
|
||||
Property C() As Decimal
|
||||
Get
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DSETR1.사용면적(0)("C"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Else
|
||||
DSETR1.사용면적(0)("C") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
''' <summary>
|
||||
''' 조명
|
||||
''' </summary>
|
||||
''' <remarks>조명</remarks>
|
||||
Property L() As Decimal
|
||||
Get
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DSETR1.사용면적(0)("L"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Else
|
||||
DSETR1.사용면적(0)("L") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
''' <summary>
|
||||
''' 급탕
|
||||
''' </summary>
|
||||
''' <remarks>급탕</remarks>
|
||||
Property W() As Decimal
|
||||
Get
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DSETR1.사용면적(0)("W"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Else
|
||||
DSETR1.사용면적(0)("W") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
''' <summary>
|
||||
''' 환기
|
||||
''' </summary>
|
||||
''' <remarks>환기</remarks>
|
||||
Property V() As Decimal
|
||||
Get
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DSETR1.사용면적(0)("V"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Else
|
||||
DSETR1.사용면적(0)("V") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' 난방_WF
|
||||
''' </summary>
|
||||
''' <remarks>난방</remarks>
|
||||
Property H_WF() As Decimal
|
||||
Get
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DSETR1.사용면적(0)("H_WF"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Else
|
||||
DSETR1.사용면적(0)("H_WF") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
''' <summary>
|
||||
''' 냉방_WF
|
||||
''' </summary>
|
||||
''' <remarks>냉방</remarks>
|
||||
Property C_WF() As Decimal
|
||||
Get
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DSETR1.사용면적(0)("C_WF"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Else
|
||||
DSETR1.사용면적(0)("C_WF") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
''' <summary>
|
||||
''' 조명_WF
|
||||
''' </summary>
|
||||
''' <remarks>조명</remarks>
|
||||
Property L_WF() As Decimal
|
||||
Get
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DSETR1.사용면적(0)("L_WF"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Else
|
||||
DSETR1.사용면적(0)("L_WF") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
''' <summary>
|
||||
''' 급탕_WF
|
||||
''' </summary>
|
||||
''' <remarks>급탕</remarks>
|
||||
Property W_WF() As Decimal
|
||||
Get
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DSETR1.사용면적(0)("W_WF"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Else
|
||||
DSETR1.사용면적(0)("W_WF") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
''' <summary>
|
||||
''' 환기_WF
|
||||
''' </summary>
|
||||
''' <remarks>환기</remarks>
|
||||
Property V_WF() As Decimal
|
||||
Get
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DSETR1.사용면적(0)("V_WF"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then
|
||||
Log.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다")
|
||||
Else
|
||||
DSETR1.사용면적(0)("V_WF") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Overridable Sub Calc()
|
||||
Dim A_H As Decimal = 0
|
||||
Dim A_C As Decimal = 0
|
||||
Dim A_L As Decimal = 0
|
||||
Dim A_W As Decimal = 0
|
||||
Dim A_V As Decimal = 0
|
||||
'//용도별 면적가중치(wf) 추가 '2012.07.01
|
||||
Dim A_H_wf As Decimal = 0
|
||||
Dim A_C_wf As Decimal = 0
|
||||
Dim A_L_wf As Decimal = 0
|
||||
Dim A_W_wf As Decimal = 0
|
||||
Dim A_V_wf As Decimal = 0
|
||||
Dim day_year As Decimal
|
||||
'//'2012.07.01
|
||||
|
||||
If DSETR1.사용면적.Rows.Count = 0 Then '//데결과가 없으면 신규줄을 기록한다.
|
||||
Dim Dr As DSR.사용면적Row = DSETR1.사용면적.New사용면적Row
|
||||
Dr.H = 0 : Dr.C = 0 : Dr.L = 0 : Dr.W = 0 : Dr.V = 0
|
||||
DSETR1.사용면적.Add사용면적Row(Dr)
|
||||
DSETR1.AcceptChanges()
|
||||
End If
|
||||
|
||||
'//A_H,C,W,L,V 의 누적값을 계산(사용면적) '//모든존을 대상으로
|
||||
|
||||
For Each Dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code<>'0'", "code")
|
||||
Dim Dr프로필 As DS.tbl_profile_odRow = CType(DSET1.tbl_profile_od.Select("code='0'")(0), DS.tbl_profile_odRow)
|
||||
Dim 건물용도 As Integer = CInt(Dr존.code)
|
||||
|
||||
Dim offset As Integer = 1
|
||||
If Dr프로필.설명 = "판매시설" Then
|
||||
If Dr존.조명부하산출방법 = "입력치" Then
|
||||
If Dr존.조명에너지부하율입력치 > 10 Then
|
||||
offset = ((Dr존.조명에너지부하율입력치 - 10) * 0.4 + 10) / Dr존.조명에너지부하율입력치
|
||||
End If
|
||||
ElseIf Dr존.조명부하산출방법 = "계산치" Then
|
||||
If Dr존.조명에너지부하율계산치 > 10 Then
|
||||
offset = ((Dr존.조명에너지부하율계산치 - 10) * 0.4 + 10) / Dr존.조명에너지부하율계산치
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'//냉난방(HC) 이거나 난방(H)일경우 난방면적 누적
|
||||
If Dr존.냉난방방식.IndexOf("난") <> -1 OrElse Dr존.냉난방공조.IndexOf("난") <> -1 Then
|
||||
A_H += TOSG(T, Dr존.면적) * TOSG(T, Dr존.입력존의수)
|
||||
If 건물용도 < 10 Then '//주거일경우에
|
||||
|
||||
'//연
|
||||
|
||||
A_H_wf = A_H
|
||||
|
||||
Else
|
||||
day_year = TOSG(T, Dr프로필.day01) + TOSG(T, Dr프로필.day02) + TOSG(T, Dr프로필.day03) + TOSG(T, Dr프로필.day04) + TOSG(T, Dr프로필.day05) + TOSG(T, Dr프로필.day06) + TOSG(T, Dr프로필.day07) + TOSG(T, Dr프로필.day08) + TOSG(T, Dr프로필.day09) + TOSG(T, Dr프로필.day10) + TOSG(T, Dr프로필.day11) + TOSG(T, Dr프로필.day12)
|
||||
A_H_wf += TOSG(T, Dr존.면적) * TOSG(T, Dr존.입력존의수) * (TOSG(T, Dr프로필.일일운전시간) * Math.Round(day_year / (11 * 250), 3))
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
'//냉난방(hC) 이거나 냉방(C)일경우 냉방면적 누적
|
||||
If Dr존.냉난방방식.IndexOf("냉") <> -1 OrElse Dr존.냉난방공조.IndexOf("냉") <> -1 Then
|
||||
A_C += TOSG(T, Dr존.면적) * TOSG(T, Dr존.입력존의수)
|
||||
|
||||
If 건물용도 < 10 Then
|
||||
A_C_wf = A_C
|
||||
Else
|
||||
day_year = TOSG(T, Dr프로필.day01) + TOSG(T, Dr프로필.day02) + TOSG(T, Dr프로필.day03) + TOSG(T, Dr프로필.day04) + TOSG(T, Dr프로필.day05) + TOSG(T, Dr프로필.day06) + TOSG(T, Dr프로필.day07) + TOSG(T, Dr프로필.day08) + TOSG(T, Dr프로필.day09) + TOSG(T, Dr프로필.day10) + TOSG(T, Dr프로필.day11) + TOSG(T, Dr프로필.day12)
|
||||
A_C_wf += TOSG(T, Dr존.면적) * TOSG(T, Dr존.입력존의수) * (TOSG(T, Dr프로필.일일운전시간) * Math.Round(day_year / (11 * 250), 3))
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
'//급탕요구량이 있다면 급탕면적 누적
|
||||
If TOSG(T, Dr프로필.일일급탕요구량) > 0 Then
|
||||
|
||||
A_W += TOSG(T, Dr존.면적) * TOSG(T, Dr존.입력존의수)
|
||||
|
||||
|
||||
If 건물용도 < 10 Then
|
||||
A_W_wf = A_W
|
||||
Else
|
||||
day_year = TOSG(T, Dr프로필.day01) + TOSG(T, Dr프로필.day02) + TOSG(T, Dr프로필.day03) + TOSG(T, Dr프로필.day04) + TOSG(T, Dr프로필.day05) + TOSG(T, Dr프로필.day06) + TOSG(T, Dr프로필.day07) + TOSG(T, Dr프로필.day08) + TOSG(T, Dr프로필.day09) + TOSG(T, Dr프로필.day10) + TOSG(T, Dr프로필.day11) + TOSG(T, Dr프로필.day12)
|
||||
A_W_wf += TOSG(T, Dr존.면적) * TOSG(T, Dr존.입력존의수) * (TOSG(T, Dr프로필.일일급탕요구량) * Math.Round(day_year / (30 * 250), 3))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
'//조명의 에너지부하율값이 있으면 조명면적 누적
|
||||
If Dr존.조명에너지부하율계산치 <> "0" OrElse Dr존.조명에너지부하율입력치 <> "0" Then
|
||||
A_L += TOSG(T, Dr존.면적) * TOSG(T, Dr존.입력존의수)
|
||||
|
||||
If 건물용도 < 10 Then
|
||||
'//가스를쓰는 난방 급탕은 계가 발생
|
||||
A_L_wf = A_L
|
||||
Else
|
||||
day_year = TOSG(T, Dr프로필.day01) + TOSG(T, Dr프로필.day02) + TOSG(T, Dr프로필.day03) + TOSG(T, Dr프로필.day04) + TOSG(T, Dr프로필.day05) + TOSG(T, Dr프로필.day06) + TOSG(T, Dr프로필.day07) + TOSG(T, Dr프로필.day08) + TOSG(T, Dr프로필.day09) + TOSG(T, Dr프로필.day10) + TOSG(T, Dr프로필.day11) + TOSG(T, Dr프로필.day12)
|
||||
A_L_wf += TOSG(T, Dr존.면적) * TOSG(T, Dr존.입력존의수) * (TOSG(T, Dr프로필.일일사용시간) * Math.Round(day_year / (9 * 250), 3) * offset)
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
'//냉난방공조를 사용하고있다면 환기면적 누적(ZZ:기능없음)
|
||||
If (Dr존.냉난방공조 <> "기능없음") Then
|
||||
A_V += TOSG(T, Dr존.면적) * TOSG(T, Dr존.입력존의수)
|
||||
|
||||
If 건물용도 < 10 Then
|
||||
A_V_wf = A_V
|
||||
Else
|
||||
day_year = TOSG(T, Dr프로필.day01) + TOSG(T, Dr프로필.day02) + TOSG(T, Dr프로필.day03) + TOSG(T, Dr프로필.day04) + TOSG(T, Dr프로필.day05) + TOSG(T, Dr프로필.day06) + TOSG(T, Dr프로필.day07) + TOSG(T, Dr프로필.day08) + TOSG(T, Dr프로필.day09) + TOSG(T, Dr프로필.day10) + TOSG(T, Dr프로필.day11) + TOSG(T, Dr프로필.day12)
|
||||
A_V_wf += TOSG(T, Dr존.면적) * TOSG(T, Dr존.입력존의수) * (TOSG(T, Dr프로필.일일운전시간) * Math.Round(day_year / (11 * 250), 3))
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
'//저장소에 보관한다.
|
||||
Result1o.사용면적.H = A_H
|
||||
Result1o.사용면적.C = A_C
|
||||
Result1o.사용면적.L = A_L
|
||||
Result1o.사용면적.W = A_W
|
||||
Result1o.사용면적.V = A_V
|
||||
|
||||
'// 가중치 있는 사용면적 '2013.07.01
|
||||
Result1o.사용면적.H_WF = A_H_wf
|
||||
Result1o.사용면적.C_WF = A_C_wf
|
||||
Result1o.사용면적.L_WF = A_L_wf
|
||||
Result1o.사용면적.W_WF = A_W_wf
|
||||
Result1o.사용면적.V_WF = A_V_wf
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
272
ArinWarev1/Calculator-OD/Result/C생산에너지.vb
Normal file
272
ArinWarev1/Calculator-OD/Result/C생산에너지.vb
Normal file
@@ -0,0 +1,272 @@
|
||||
'// 0월합계에대한 처리는 하였음
|
||||
'// 완료일자 : 2010-03-08
|
||||
|
||||
Public Class C생산에너지OD
|
||||
|
||||
Dim T As String = "생산에너지"
|
||||
|
||||
Public Mon As String
|
||||
Private MIdx As Integer
|
||||
Private ErrMsg As String = "에너지소요량 계산되지 않았습니다"
|
||||
|
||||
'Public Sub Calc_Summary()
|
||||
' '//
|
||||
' If MIdx <> 0 Then
|
||||
' MsgBox("계산식은 0번 합계배열만 가능합니다")
|
||||
' Return
|
||||
' End If
|
||||
|
||||
' Dim I1 as decimal = 0
|
||||
' Dim I2 as decimal = 0
|
||||
' Dim I3 as decimal = 0
|
||||
' Dim I4 as decimal = 0
|
||||
' Dim I5 as decimal = 0
|
||||
' Dim I6 as decimal = 0
|
||||
' For i As Integer = 1 To 12
|
||||
' '//12월을 다더해서 0번열에 기록한다.
|
||||
' I1 += Result1o.생산E(i).태양광전력생산량
|
||||
' I2 += Result1o.생산E(i).열병합전력생산량
|
||||
' I3 += Result1o.생산E(i).태양열생산량
|
||||
' I4 += Result1o.생산E(i).지열생산량
|
||||
' I5 += Result1o.생산E(i).면적당생산량태양열
|
||||
' I6 += Result1o.생산E(i).면적당생산량지열
|
||||
' Next
|
||||
' Me.태양광전력생산량 = I1
|
||||
' Me.열병합전력생산량 = I2
|
||||
' Me.태양열생산량 = I3
|
||||
' Me.지열생산량 = I4
|
||||
' Me.면적당생산량태양열 = I5
|
||||
' Me.면적당생산량지열 = I6
|
||||
'End Sub
|
||||
|
||||
Public Sub New(Optional ByVal pmIdx As Integer = 0)
|
||||
MIdx = pmIdx
|
||||
Mon = "M" & Format(MIdx, "00")
|
||||
End Sub
|
||||
Property 태양광전력생산량() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.생산E(i).태양광전력생산량
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(T, DR(0)("전력태양광"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
' MsgBox("태양광기록(" & Mon & ")")
|
||||
DR(0)("전력태양광") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 열병합전력생산량() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.생산E(i).열병합전력생산량
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(T, DR(0)("전력열병합"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("전력열병합") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property 신재생열병합전력생산량() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.생산E(i).신재생열병합전력생산량
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("신재생열병합전력생산량"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("신재생열병합전력생산량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property 신재생면적당열생산량() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.생산E(i).신재생면적당열생산량
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("신재생면적당열생산량"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("신재생면적당열생산량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Property 태양열생산량() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.생산E(i).태양열생산량
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(T, DR(0)("생산량태양열"))
|
||||
End If
|
||||
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("생산량태양열") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 지열생산량() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.생산E(i).지열생산량
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(T, DR(0)("생산량지열"))
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("생산량지열") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 면적당생산량태양열() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.생산E(i).면적당생산량태양열
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(T, DR(0)("면적당생산량태양열"))
|
||||
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("면적당생산량태양열") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 면적당생산량지열() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result1o.생산E(i).면적당생산량지열
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(T, DR(0)("면적당생산량지열"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR1.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("면적당생산량지열") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
355
ArinWarev1/Calculator-OD/Result/C에너지분석.vb
Normal file
355
ArinWarev1/Calculator-OD/Result/C에너지분석.vb
Normal file
@@ -0,0 +1,355 @@
|
||||
Public Class C에너지분석OD
|
||||
|
||||
Dim T As String = "에너지분석"
|
||||
|
||||
|
||||
Public ZZone As String
|
||||
Public Mon As String
|
||||
Private ErrMsg As String = "월에너지분석이 계산되지 않았습니다"
|
||||
Public Sub New(ByVal mIdx As Integer, Optional ByVal pZone As String = "00")
|
||||
Me.ZZone = pZone
|
||||
Mon = "M" & Format(mIdx, "00")
|
||||
End Sub
|
||||
ReadOnly Property 에너지요구량(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "에너지요구량")
|
||||
Return 0
|
||||
Else
|
||||
Return 난방에너지요구량열(CStr(IIf(Zone <> "00", Zone, ZZone))) + _
|
||||
난방에너지요구량공조환기(CStr(IIf(Zone <> "00", Zone, ZZone))) + _
|
||||
냉방에너지요구량열(CStr(IIf(Zone <> "00", Zone, ZZone))) + _
|
||||
냉방에너지요구량공조환기(CStr(IIf(Zone <> "00", Zone, ZZone))) + _
|
||||
조명에너지요구량(CStr(IIf(Zone <> "00", Zone, ZZone))) + _
|
||||
급탕에너지요구량(CStr(IIf(Zone <> "00", Zone, ZZone)))
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 면적당에너지요구량(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Return Me.난방단위면적당요구량 + Me.냉방단위면적당요구량 + Me.조명단위면적당요구량 + Me.급탕단위면적당요구량
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 난방에너지요구량(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Return Me.난방에너지요구량열(IIf(Zone <> "00", Zone, ZZone).ToString) + Me.난방에너지요구량공조환기(IIf(Zone <> "00", Zone, ZZone).ToString)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property 난방단위면적당요구량(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.H = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.난방에너지요구량 / Result1o.사용면적.H
|
||||
End If
|
||||
' Return Me.난방에너지요구량열(Zone) + Me.난방에너지요구량공조환기(Zone)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Property 난방에너지요구량열(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "난방에너지요구량열")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("난방요구량열"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "난방에너지요구량열")
|
||||
Else
|
||||
DR(0)("난방요구량열") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 난방에너지요구량공조환기(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "난방에너지요구량공조환기")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("난방요구량공조"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "난방에너지요구량공조환기")
|
||||
Else
|
||||
DR(0)("난방요구량공조") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
ReadOnly Property 냉방에너지요구량(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Return Me.냉방에너지요구량열(CStr(IIf(Zone <> "00", Zone, ZZone))) + Me.냉방에너지요구량공조환기(CStr(IIf(Zone <> "00", Zone, ZZone)))
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property 냉방단위면적당요구량(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.H = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.냉방에너지요구량 / Result1o.사용면적.C
|
||||
End If
|
||||
' Return Me.난방에너지요구량열(Zone) + Me.난방에너지요구량공조환기(Zone)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Property 냉방에너지요구량열(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
|
||||
|
||||
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "냉방에너지요구량열")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("냉방요구량열"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "냉방에너지요구량열")
|
||||
Else
|
||||
DR(0)("냉방요구량열") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 냉방에너지요구량공조환기(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "냉방에너지요구량공조환기")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("냉방요구량공조"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "냉방에너지요구량공조환기")
|
||||
Else
|
||||
DR(0)("냉방요구량공조") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property 조명에너지요구량(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "조명에너지요구량")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("조명요구량"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "조명에너지요구량")
|
||||
Else
|
||||
DR(0)("조명요구량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
ReadOnly Property 조명단위면적당요구량(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.L = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.조명에너지요구량 / Result1o.사용면적.L
|
||||
End If
|
||||
' Return Me.난방에너지요구량열(Zone) + Me.난방에너지요구량공조환기(Zone)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Property 급탕에너지요구량(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "급탕요구량")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("급탕요구량"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "급탕요구량")
|
||||
Else
|
||||
DR(0)("급탕요구량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
ReadOnly Property 급탕단위면적당요구량(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.W = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.급탕에너지요구량 / Result1o.사용면적.W
|
||||
End If
|
||||
' Return Me.난방에너지요구량열(Zone) + Me.난방에너지요구량공조환기(Zone)
|
||||
End Get
|
||||
End Property
|
||||
Property 공조풍량(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "공조풍량")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("공조풍량"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "공조풍량")
|
||||
Else
|
||||
DR(0)("공조풍량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 공조에너지요구량난방(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "공조에너지요구량난방")
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("공조요구량난방"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg, MsgBoxStyle.Information, "공조에너지요구량난방")
|
||||
Else
|
||||
DR(0)("공조요구량난방") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 공조에너지요구량냉방(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("공조요구량냉방"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("공조요구량냉방") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 공조에너지요구량가습(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("공조요구량가습"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("공조요구량가습") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 환기에너지요구량(Optional ByVal Zone As String = "00") As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone = "00", ZZone, Zone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("환기요구량"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("환기요구량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Public Sub Calc()
|
||||
'//Zone 이 00일떄만 계산된다
|
||||
|
||||
'//여기데이터는 12개가 미리존재한다 그러므로 현재 속한 월말 계산하면된다
|
||||
'//현재 월 존에해당하는 데이터가없다면 생성해준다.
|
||||
Dim Drow As DSR.월별에너지분석Row
|
||||
If DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='00'").GetUpperBound(0) = -1 Then
|
||||
Drow = DSETR1.월별에너지분석.New월별에너지분석Row
|
||||
Drow.존 = "00"
|
||||
Drow.월 = Mon
|
||||
DSETR1.월별에너지분석.Add월별에너지분석Row(Drow) '//기본줄을 추가함
|
||||
DSETR1.AcceptChanges()
|
||||
End If
|
||||
|
||||
Dim a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12 As Decimal
|
||||
a2 = 0 : a3 = 0 : a4 = 0 : a5 = 0 : a6 = 0
|
||||
a7 = 0 : a8 = 0 : a9 = 0 : a10 = 0 : a11 = 0 : a12 = 0
|
||||
For Each Dr As DSR.월별에너지분석Row In DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존 <> '00'", "존")
|
||||
'//존별로 에너지요구량 최상단 합데이터를 갱신한다.
|
||||
'Dr.에너지요구량 = Dr.난방요구량열 + Dr.난방요구량공조 + Dr.냉방요구량열 + Dr.냉방요구량공조 + Dr.조명요구량 + Dr.급탕요구량
|
||||
'a1 = a1 + Dr.에너지요구량
|
||||
a2 = a2 + Dr.난방요구량열
|
||||
a3 = a3 + Dr.난방요구량공조
|
||||
a4 = a4 + Dr.냉방요구량열
|
||||
a5 = a5 + Dr.냉방요구량공조
|
||||
a6 = a6 + Dr.조명요구량
|
||||
a7 = a7 + Dr.급탕요구량
|
||||
a8 = a8 + Dr.공조풍량
|
||||
a9 = a9 + Dr.공조요구량난방
|
||||
a10 = a10 + Dr.공조요구량냉방
|
||||
a11 = a11 + Dr.공조요구량가습
|
||||
a12 = a12 + Dr.환기요구량
|
||||
Next
|
||||
|
||||
'Me.에너지요구량 = a2 + a3 + a4 + a5 + a6 + a7 ㅇ건 Readonlye 로 계산한다.
|
||||
|
||||
Me.난방에너지요구량열 = a2
|
||||
Me.난방에너지요구량공조환기 = a3
|
||||
Me.냉방에너지요구량열 = a4
|
||||
Me.냉방에너지요구량공조환기 = a5
|
||||
Me.조명에너지요구량 = a6
|
||||
Me.급탕에너지요구량 = a7
|
||||
Me.공조풍량 = a8
|
||||
Me.공조에너지요구량난방 = a9
|
||||
Me.공조에너지요구량냉방 = a10
|
||||
Me.공조에너지요구량가습 = a11
|
||||
Me.환기에너지요구량 = a12
|
||||
' Next
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
402
ArinWarev1/Calculator-OD/Result/C에너지소요량.vb
Normal file
402
ArinWarev1/Calculator-OD/Result/C에너지소요량.vb
Normal file
@@ -0,0 +1,402 @@
|
||||
Public Class C에너지소요량OD
|
||||
Dim T As String = "에너지소요량"
|
||||
|
||||
Dim Midx As Integer
|
||||
Public Mon As String
|
||||
Private ErrMsg As String = "에너지소요량 계산되지 않았습니다"
|
||||
Public Sub New(Optional ByVal pmIdx As Integer = 0)
|
||||
Mon = "M" & Format(pmIdx, "00")
|
||||
Me.Midx = pmIdx
|
||||
End Sub
|
||||
|
||||
Public Sub Calc_Summary()
|
||||
If Midx <> 0 Then
|
||||
MsgBox("계산식은 0번 합계필드만 가능합니다.", MsgBoxStyle.Critical, "확인")
|
||||
Return
|
||||
End If
|
||||
Dim I10 As Decimal = 0
|
||||
Dim I20 As Decimal = 0
|
||||
Dim I30 As Decimal = 0
|
||||
Dim I40 As Decimal = 0
|
||||
Dim I50 As Decimal = 0
|
||||
Dim I60 As Decimal = 0
|
||||
|
||||
Dim IH As Decimal = 0
|
||||
Dim IC As Decimal = 0
|
||||
Dim IL As Decimal = 0
|
||||
Dim IW As Decimal = 0
|
||||
Dim IV As Decimal = 0
|
||||
|
||||
Dim I4 As Decimal = 0 '//난방
|
||||
Dim I5 As Decimal = 0 '//냉방
|
||||
Dim I6 As Decimal = 0 '//조명
|
||||
Dim I7 As Decimal = 0 '//급탕
|
||||
Dim I8 As Decimal = 0 '//환기
|
||||
|
||||
For i As Integer = 1 To 12
|
||||
'//12월을 다더해서 0번열에 기록한다.
|
||||
I10 += Result1o.E소요량(i).난방
|
||||
I20 += Result1o.E소요량(i).난방보조
|
||||
I30 += Result1o.E소요량(i).냉방
|
||||
I40 += Result1o.E소요량(i).냉방보조
|
||||
I50 += Result1o.E소요량(i).급탕
|
||||
I60 += Result1o.E소요량(i).급탕보조
|
||||
|
||||
IH += Result1o.E소요량(i).난방S
|
||||
IC += Result1o.E소요량(i).냉방S
|
||||
IL += Result1o.E소요량(i).조명S
|
||||
IW += Result1o.E소요량(i).급탕S
|
||||
IV += Result1o.E소요량(i).환기S
|
||||
|
||||
I4 += Result1o.일차E소요량(i).난방전력
|
||||
I5 += Result1o.일차E소요량(i).냉방전력
|
||||
I6 += Result1o.일차E소요량(i).조명전력
|
||||
I7 += Result1o.일차E소요량(i).급탕전력
|
||||
I8 += Result1o.일차E소요량(i).환기전력
|
||||
Next
|
||||
|
||||
Me.난방 = I10
|
||||
Me.난방보조 = I20
|
||||
Me.냉방 = I30
|
||||
Me.냉방보조 = I40
|
||||
Me.급탕 = I50
|
||||
Me.급탕보조 = I60
|
||||
|
||||
|
||||
If (I4 + I5 + I6 + I7 + I8 <> 0) Then
|
||||
Me.난방S = IH - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I4
|
||||
Me.냉방S = IC - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I5
|
||||
Me.조명S = IL - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I6
|
||||
Me.급탕S = IW - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I7
|
||||
Me.환기S = IV - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I8
|
||||
Else
|
||||
Me.난방S = IH
|
||||
Me.냉방S = IC
|
||||
Me.조명S = IL
|
||||
Me.급탕S = IW
|
||||
Me.환기S = IV
|
||||
End If
|
||||
|
||||
'If I4 = 0 Then
|
||||
' Me.난방S = 0
|
||||
'Else
|
||||
' Me.난방S = IH - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I4
|
||||
'End If
|
||||
'If I5 = 0 Then
|
||||
' Me.냉방S = 0
|
||||
'Else
|
||||
' Me.냉방S = IC - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I5
|
||||
'End If
|
||||
'If I6 = 0 Then
|
||||
' Me.조명S = 0
|
||||
'Else
|
||||
' Me.조명S = IL - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I6
|
||||
'End If
|
||||
'If I7 = 0 Then
|
||||
' Me.급탕S = 0
|
||||
'Else
|
||||
' Me.급탕S = IW - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I7
|
||||
'End If
|
||||
'If I8 = 0 Then
|
||||
' Me.환기S = 0
|
||||
'Else
|
||||
' Me.환기S = IV - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I8
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
ReadOnly Property 소요량() As Decimal
|
||||
Get
|
||||
Return 난방S + 냉방S + 조명S + 환기S + 급탕S
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 면적소요량() As Decimal
|
||||
Get
|
||||
Return 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
|
||||
End Get
|
||||
|
||||
End Property
|
||||
Property 난방S() As Decimal
|
||||
Get
|
||||
If Midx = 0 Then
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("난방"))
|
||||
End If
|
||||
Else
|
||||
Return 난방 + 난방보조
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("난방") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property 난방() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("난방에너지소요량"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("난방에너지소요량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 난방보조() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("난방보조에너지소요량"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("난방보조에너지소요량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
ReadOnly Property 난방면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.H = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.난방S / Result1o.사용면적.H
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Property 냉방S() As Decimal
|
||||
Get
|
||||
If Midx = 0 Then
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("냉방"))
|
||||
End If
|
||||
Else
|
||||
Return 냉방 + 냉방보조
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("냉방") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 냉방() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("냉방에너지소요량"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("냉방에너지소요량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 냉방보조() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("냉방보조에너지소요량"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("냉방보조에너지소요량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
ReadOnly Property 냉방면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.C = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.냉방S / Result1o.사용면적.C
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Property 조명S() As Decimal
|
||||
Get
|
||||
If Midx = 0 Then
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("조명"))
|
||||
End If
|
||||
Else
|
||||
Return Result1o.E분석(Midx).조명에너지요구량
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("조명") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
ReadOnly Property 조명면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.L = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.조명S / Result1o.사용면적.L
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Property 급탕S() As Decimal
|
||||
Get
|
||||
If Midx = 0 Then
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("급탕"))
|
||||
End If
|
||||
Else
|
||||
Return 급탕 + 급탕보조
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("급탕") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 급탕() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("급탕에너지소요량"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("급탕에너지소요량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 급탕보조() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("급탕보조에너지소요량"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("급탕보조에너지소요량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
ReadOnly Property 급탕면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.W = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return 급탕S / Result1o.사용면적.W
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Property 환기S() As Decimal
|
||||
Get
|
||||
If Midx = 0 Then
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("환기"))
|
||||
End If
|
||||
Else
|
||||
Return Result1o.E분석(Midx).환기에너지요구량
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.에너지소요량Row = CType(DSETR1.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("환기") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
ReadOnly Property 환기면적() As Decimal
|
||||
Get
|
||||
If Result1o.사용면적.V = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return 환기S / Result1o.사용면적.V
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
222
ArinWarev1/Calculator-OD/Result/C에너지요구량.vb
Normal file
222
ArinWarev1/Calculator-OD/Result/C에너지요구량.vb
Normal file
@@ -0,0 +1,222 @@
|
||||
Public Class C에너지요구량OD
|
||||
|
||||
Dim Midx As Integer
|
||||
Public Mon As String
|
||||
Private ErrMsg As String = "에너지요구량 계산되지 않았습니다"
|
||||
Public Sub New(Optional ByVal pmIdx As Integer = 0)
|
||||
Mon = "M" & Format(pmIdx, "00")
|
||||
Me.Midx = pmIdx
|
||||
End Sub
|
||||
|
||||
ReadOnly Property 요구량() As Decimal
|
||||
Get
|
||||
If Midx = 0 Then '//누적데이터
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E요구량(i).요구량
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
Return 난방요구량 + 냉방요구량 + 조명요구량 + 급탕요구량
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 면적당요구량() As Decimal
|
||||
Get
|
||||
If Midx = 0 Then '//누적데이터
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E요구량(i).면적당요구량
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
Return 난방면적 + 냉방면적 + 조명면적 + 급탕면적
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#Region "난방요구량"
|
||||
ReadOnly Property 난방요구량() As Decimal
|
||||
Get
|
||||
If Midx = 0 Then '//누적데이터
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E요구량(i).난방요구량
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
Return Me.난방열 + Me.난방공조
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 난방열() As Decimal
|
||||
Get '//월별 에너지분석에서 난방요구량
|
||||
If Midx = 0 Then
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E분석(i).난방에너지요구량열
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
Return Result1o.E분석(Midx).난방에너지요구량열
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 난방공조() As Decimal
|
||||
Get '//월별 에너지분석에서 난방요구량
|
||||
If Midx = 0 Then
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E분석(i).난방에너지요구량공조환기
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
Return Result1o.E분석(Midx).난방에너지요구량공조환기
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 난방면적() As Decimal
|
||||
Get '//월별 에너지분석에서 난방요구량
|
||||
If Midx = 0 Then
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E요구량(i).난방면적
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
If Result1o.사용면적.H = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.난방요구량 / Result1o.사용면적.H
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
#Region "냉방요구량"
|
||||
ReadOnly Property 냉방요구량() As Decimal
|
||||
Get
|
||||
If Midx = 0 Then '//누적데이터
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E요구량(i).냉방요구량
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
Return Me.냉방열 + Me.냉방공조
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 냉방열() As Decimal
|
||||
Get '//월별 에너지분석에서 난방요구량
|
||||
If Midx = 0 Then
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E분석(i).냉방에너지요구량열
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
Return Result1o.E분석(Midx).냉방에너지요구량열
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 냉방공조() As Decimal
|
||||
Get '//월별 에너지분석에서 난방요구량
|
||||
If Midx = 0 Then
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E분석(i).냉방에너지요구량공조환기
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
Return Result1o.E분석(Midx).냉방에너지요구량공조환기
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 냉방면적() As Decimal
|
||||
Get '//월별 에너지분석에서 난방요구량
|
||||
If Midx = 0 Then
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E요구량(i).냉방면적
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
If Result1o.사용면적.C = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.냉방요구량 / Result1o.사용면적.C
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
#Region "조명요구량"
|
||||
ReadOnly Property 조명요구량() As Decimal
|
||||
Get
|
||||
If Midx = 0 Then '//누적데이터
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E요구량(i).조명요구량
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
Return Result1o.E분석(Midx).조명에너지요구량
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 조명면적() As Decimal
|
||||
Get '//월별 에너지분석에서 난방요구량
|
||||
If Midx = 0 Then
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E요구량(i).조명면적
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
If Result1o.사용면적.L = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.조명요구량 / Result1o.사용면적.L
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
#Region "급탕요구량"
|
||||
ReadOnly Property 급탕요구량() As Decimal
|
||||
Get
|
||||
If Midx = 0 Then '//누적데이터
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E요구량(i).급탕요구량
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
Return Result1o.E분석(Midx).급탕에너지요구량
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property 급탕면적() As Decimal
|
||||
Get '//월별 에너지분석에서 난방요구량
|
||||
If Midx = 0 Then
|
||||
Dim R As Decimal = 0
|
||||
For i As Integer = 1 To 12
|
||||
R += Result1o.E요구량(i).급탕면적
|
||||
Next
|
||||
Return R
|
||||
Else
|
||||
If Result1o.사용면적.W = 0 Then
|
||||
Return 0
|
||||
Else
|
||||
Return Me.급탕요구량 / Result1o.사용면적.W
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
268
ArinWarev1/Calculator-OD/Result/C최대냉난방부하.vb
Normal file
268
ArinWarev1/Calculator-OD/Result/C최대냉난방부하.vb
Normal file
@@ -0,0 +1,268 @@
|
||||
|
||||
Public Class C최대냉난방부하OD
|
||||
|
||||
Dim T As String = "최대냉난방부하"
|
||||
|
||||
Public Sub New() '//존은초기화값을 가지고 생성한다.
|
||||
|
||||
End Sub
|
||||
Public Function Item(Optional ByVal ZoneCode As String = "00") As Citem
|
||||
Return New Citem(ZoneCode)
|
||||
End Function
|
||||
|
||||
Public Sub Calc_Summary()
|
||||
'//Zone 이 00일떄만 계산된다
|
||||
|
||||
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10 As Decimal
|
||||
a1 = 0 : a2 = 0 : a3 = 0 : a4 = 0 : a5 = 0 : a6 = 0
|
||||
a7 = 0 : a8 = 0 : a9 = 0 : a10 = 0
|
||||
Dim Exist As Boolean = False
|
||||
|
||||
For Each Dr As DSR.최대냉난방부하Row In DSETR1.최대냉난방부하.Select("Zone <> '00'", "Zone")
|
||||
If Exist = False Then Exist = True
|
||||
' Dr.최대냉난방부하 = Dr.최대난방기기부하 + Dr.최대냉방기기부하
|
||||
a1 += Dr.최대난방기기부하
|
||||
a2 += Dr.최대난방실내부하
|
||||
'a3 += Dr.난방최대가동시간
|
||||
a4 += Dr.최대가열성능
|
||||
a5 += Dr.최대냉방기기부하
|
||||
a6 += Dr.최대냉방실내부하
|
||||
'a7 += Dr.냉방최대가동시간
|
||||
a8 += Dr.최대냉각성능
|
||||
a9 += Dr.최대가습성능
|
||||
a10 += Dr.공조풍량
|
||||
Next
|
||||
|
||||
If Exist = False Then
|
||||
MsgBox("각존별 계산이 되어있지않아서 값을 계산할 수 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
Return
|
||||
End If
|
||||
|
||||
Me.Item("00").최대난방기기부하 = a1
|
||||
Me.Item("00").최대난방실내부하 = a2
|
||||
Me.Item("00").일일난방최대가동시간 = a3
|
||||
Me.Item("00").최대가열성능 = a4
|
||||
Me.Item("00").최대냉방기기부하 = a5
|
||||
Me.Item("00").최대냉방실내부하 = a6
|
||||
Me.Item("00").일일냉방최대가동시간 = a7
|
||||
Me.Item("00").최대냉각성능 = a8
|
||||
Me.Item("00").최대가습성능 = a9
|
||||
Me.Item("00").공조풍량 = a10
|
||||
|
||||
End Sub
|
||||
|
||||
Public Class Citem
|
||||
|
||||
Dim T As String = "최대냉난방부하"
|
||||
|
||||
Private Zone As String
|
||||
Dim ErrMsg As String = "최대냉난방부하가 계산되지 않았습니다"
|
||||
|
||||
Public Sub New(Optional ByVal pZone As String = "00") '//존은초기화값을 가지고 생성한다.
|
||||
Zone = pZone
|
||||
End Sub
|
||||
ReadOnly Property 최대냉난방부하() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, Me.최대난방기기부하 + Me.최대냉방기기부하)
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Property 최대난방기기부하() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("최대난방기기부하"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("최대난방기기부하") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 최대난방실내부하() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("최대난방실내부하"))
|
||||
End If
|
||||
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("최대난방실내부하") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 일일난방최대가동시간() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("난방최대가동시간"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("난방최대가동시간") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 최대가열성능() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("최대가열성능"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("최대가열성능") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 최대냉방기기부하() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("최대냉방기기부하"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("최대냉방기기부하") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 최대냉방실내부하() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("최대냉방실내부하"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("최대냉방실내부하") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 일일냉방최대가동시간() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("냉방최대가동시간"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("냉방최대가동시간") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 최대냉각성능() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("최대냉각성능"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("최대냉각성능") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 최대가습성능() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("최대가습성능"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("최대가습성능") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 공조풍량() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
Return TOSG(T, DR(0)("공조풍량"))
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("공조풍량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
End Class
|
||||
901
ArinWarev1/Calculator-OD/Summary/CSummary.vb
Normal file
901
ArinWarev1/Calculator-OD/Summary/CSummary.vb
Normal file
@@ -0,0 +1,901 @@
|
||||
Public Class CSummaryOD
|
||||
|
||||
Dim T As String = "요약"
|
||||
|
||||
Public Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 모든 집계데이터를 갱신합니다.
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public Sub All()
|
||||
|
||||
''TMon()
|
||||
'///
|
||||
|
||||
Work_msg("최종데이터 집계중...")
|
||||
Frm_Work.ProgressBar1.Maximum = 12
|
||||
Frm_Work.ProgressBar1.Minimum = 0
|
||||
Frm_Work.ProgressBar1.Value = 0
|
||||
Frm_Work.ProgressBar1.Visible = False
|
||||
Frm_Work.TopMost = True
|
||||
Frm_Work.Show()
|
||||
|
||||
|
||||
For Each Dr As C에너지분석OD In Result1o.E분석 '//12달치의 각존들의 데이터를 가지고 합계내역을 추린다. '//LoadOfZone 에서 계산완료한다.
|
||||
Dr.Calc()
|
||||
Next
|
||||
Result1o.최대부하.Calc_Summary() '//최대냉난방부하(합계-zone='00') 계산
|
||||
'Result1o.생산E(0).Calc_Summary() '//합계필드(M00)에데이터를 누적합니다.
|
||||
Result1o.일차E소요량(0).Calc_Summary() '//1차소요량의 합계데이터를 계산
|
||||
Result1o.E소요량(0).Calc_Summary() '//1차소요량의 합계데이터를 계산
|
||||
|
||||
'TReqUse_M01M12() '//이것들은 현재 사용하지 않고있다.
|
||||
'TReqUse_M00() '//현재 사용하지않고있따.
|
||||
|
||||
Me.Make_ResultSheet() '//최종결과를 보여주는 시트를 작성한다.
|
||||
DSETR1.AcceptChanges() '//변경된모든내용을 적용함
|
||||
End Sub
|
||||
|
||||
#Region "미사용개체"
|
||||
|
||||
''' <summary>
|
||||
''' 1월부터 10월까지 집계데이터를 계산한다.
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public Sub TReqUse_M01M12()
|
||||
Dim MOn As String
|
||||
For i As Short = 1 To 12
|
||||
'MOn = "M" & Format(i, "00")
|
||||
'Dim DR() As DSR.TReqUseRow = CType(DSETR1.TReqUse.Select("", "code"), DSR.TReqUseRow())
|
||||
|
||||
|
||||
''////////////////////////////////////
|
||||
'' 연간 Co2 배출량
|
||||
''////////////////////////////////////
|
||||
|
||||
''조명/환기에너지소요량
|
||||
'DR(56 - 1)(MOn) = CType(DSETR1.월별에너지분석.Select("월='" & MOn & "' and 존='00'")(0), DSR.월별에너지분석Row).조명요구량
|
||||
'DR(57 - 1)(MOn) = CType(DSETR1.월별에너지분석.Select("월='" & MOn & "' and 존='00'")(0), DSR.월별에너지분석Row).환기요구량
|
||||
|
||||
''//SUMProduct 계산
|
||||
'Dim Acc1 as decimal = 0
|
||||
'Dim Acc2 as decimal = 0
|
||||
'For j As Short = 41 To 57
|
||||
' Acc1 += Ru(j, MOn) * Ru(j, "sign")
|
||||
'Next
|
||||
'For j As Short = 58 To 59
|
||||
' Acc2 += Ru(j, MOn) * Ru(j, "sign")
|
||||
'Next
|
||||
'Ru(ResultRow.CO2_연간배출량, MOn) = Acc1 - Acc2 '//최상단 합계(연가Co2배출량
|
||||
|
||||
''//Excel 67번줄데이터가 필요하므로 먼저계산한다..해당데이터는 마지막(64번줄에 할당함)
|
||||
''//(I95+I96)/(I76+I82+I88+I90+I92)*$C$76
|
||||
'Ru(64, MOn) = (Ru(58, MOn) + Ru(59, MOn)) / (Ru(45, MOn) + Ru(50, MOn) + Ru(55, MOn) + Ru(56, MOn) + Ru(57, MOn)) * Ru(45, "sign")
|
||||
|
||||
''//난방에너지소요량(계수(sign)* Sumproduct)
|
||||
'Dim ACc_Nan as decimal = 0
|
||||
'For j As Short = 41 To 45
|
||||
' ACc_Nan += CSng(DR(j - 1)(MOn)) * CSng(DR(j - 1)("sign"))
|
||||
'Next
|
||||
|
||||
'Dim ACc_Naeng as decimal = 0
|
||||
'For j As Short = 46 To 50
|
||||
' ACc_Naeng += CSng(DR(j - 1)(MOn)) * CSng(DR(j - 1)("sign"))
|
||||
'Next
|
||||
|
||||
'Dim ACc_KUb as decimal = 0
|
||||
'For j As Short = 51 To 55
|
||||
' ACc_KUb += CSng(DR(j - 1)(MOn)) * CSng(DR(j - 1)("sign"))
|
||||
'Next
|
||||
|
||||
|
||||
''//67>64
|
||||
''IF(csng(ru(7,"00"))=0,0,(ACc_Nan-ru(45,mon)*ru(64,mon))/$H$15)+IF($H$20=0,0,(SUMPRODUCT($C$78:$C$82,I78:I82)-I82*I67)/$H$20)+IF($H$26=0,0,(SUMPRODUCT($C$84:$C$88,I84:I88)-I88*I67)/$H$26)+IF($H$23=0,0,($C$90*I90-I90*I67)/$H$23)+IF($H$27=0,0,($C$92*I92-I92*I67)/$H$27)
|
||||
''IF(csng(ru(7))=0,0,(ACc_Nan-ru(45,mon)*ru(64,mon))/ru(7))+IF(ru(12)=0,0,(acc_naeng-ru(50,mon)*ru(64,mon))/ru(12))+IF(ru(18)=0,0,(acc_kub-ru(55,mon)*ru(64,mon))/ru(18))+IF(ru(15)=0,0,(ru(56,"sign")*ru(56,mon)-ru(56,mon)*ru(64,mon))/ru(15))+IF(ru(19)=0,0,(ru(57,"sign")*ru(57,mon)-ru(57,mon)*ru(64,mon))/ru(19))
|
||||
|
||||
''//단위면적당Co2배출량)
|
||||
'If Ru(ResultRow.요구량_난방_사용면적) = 0 Then
|
||||
' Ru(ResultRow.CO2_단위면적당배출량, MOn) = 0
|
||||
'Else
|
||||
' '(ACc_Nan-ru(45,mon)*ru(64,mon))/ru(7))+IF(ru(12)=0,0,(acc_naeng-ru(50,mon)*ru(64,mon))/ru(12))+IF(ru(18)=0,0,(acc_kub-ru(55,mon)*ru(64,mon))/ru(18))+IF(ru(15)=0,0,(ru(56,"sign")*ru(56,mon)-ru(56,mon)*ru(64,mon))/ru(15))+IF(ru(19)=0,0,(ru(57,"sign")*ru(57,mon)-ru(57,mon)*ru(64,mon))/ru(19)
|
||||
' Ru(ResultRow.CO2_단위면적당배출량, MOn) = (ACc_Nan - Ru(45, MOn) * Ru(64, MOn)) / Ru(7) + CSng(IIf(Ru(12) = 0, 0, (ACc_Naeng - Ru(50, MOn) * Ru(64, MOn)) / Ru(12))) + CSng(IIf(Ru(18) = 0, 0, (ACc_KUb - Ru(55, MOn) * Ru(64, MOn)) / Ru(18))) + CSng(IIf(Ru(15) = 0, 0, (Ru(56, "sign") * Ru(56, MOn) - Ru(56, MOn) * Ru(64, MOn)) / Ru(15))) + CSng(IIf(Ru(19) = 0, 0, (Ru(57, "sign") * Ru(57, MOn) - Ru(57, MOn) * Ru(64, MOn)) / Ru(19)))
|
||||
'End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 에너지요구량및소요량 테이블의 M00(합계)를 누적(M01~M12)로 채웁니다. 그렇지않은건 이후에 합계프로시져별도로 생성함
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public Sub TReqUse_M00()
|
||||
''//LT(LineType 이 SL Sum Line 인경우가져와서 m00 = m01~m12 한다
|
||||
'Dim DR() As DSR.TReqUseRow = CType(DSETR1.TReqUse.Select("", "code"), DSR.TReqUseRow())
|
||||
'For Each Drs As DSR.TReqUseRow In DSETR1.TReqUse.Select("lt='SL'")
|
||||
' Drs.M00 = Drs.M01 + Drs.M02 + Drs.M03 + Drs.M04 + Drs.M05 + Drs.M06 + Drs.M07 + Drs.M08 + Drs.M09 + Drs.M10 + Drs.M11 + Drs.M12
|
||||
'Next
|
||||
|
||||
''//커스텀 합계필드 계산
|
||||
|
||||
''자주사용되는 SUM(1~12)를 미리 계산해둔다
|
||||
'Dim L45, L50, L55, L56, L57, L22, L27, L31, L33, L37 as decimal : Dim Drow As DSR.TReqUseRow
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(45 - 1), DSR.TReqUseRow)
|
||||
'L45 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(50 - 1), DSR.TReqUseRow)
|
||||
'L50 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(55 - 1), DSR.TReqUseRow)
|
||||
'L55 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(56 - 1), DSR.TReqUseRow)
|
||||
'L56 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(57 - 1), DSR.TReqUseRow)
|
||||
'L57 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(22 - 1), DSR.TReqUseRow)
|
||||
'L22 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(27 - 1), DSR.TReqUseRow)
|
||||
'L27 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(31 - 1), DSR.TReqUseRow)
|
||||
'L31 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(33 - 1), DSR.TReqUseRow)
|
||||
'L33 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(37 - 1), DSR.TReqUseRow)
|
||||
'L37 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12
|
||||
|
||||
''//실제 데이터 집계
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(45 - 1), DSR.TReqUseRow)
|
||||
'Drow.M00 = L45 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L45
|
||||
''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L45 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L45
|
||||
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(50 - 1), DSR.TReqUseRow)
|
||||
'Drow.M00 = L50 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L50 '
|
||||
''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L50 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L50
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(55 - 1), DSR.TReqUseRow)
|
||||
'Drow.M00 = L55 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L55
|
||||
''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L55 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L55
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(56 - 1), DSR.TReqUseRow)
|
||||
'Drow.M00 = L56 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L56
|
||||
''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L56 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L56
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(57 - 1), DSR.TReqUseRow)
|
||||
'Drow.M00 = L57 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L57
|
||||
''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L57 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L57
|
||||
|
||||
''//
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(22 - 1), DSR.TReqUseRow)
|
||||
'' If (L45 + L50 + L55 + L56 + L57) <> 0 Then
|
||||
'Drow.M00 = L22 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L45
|
||||
'Drow.COLG = L22 - (DR(58 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L45
|
||||
'' End If
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(27 - 1), DSR.TReqUseRow)
|
||||
'' If (L45 + L50 + L55 + L56 + L57) <> 0 Then
|
||||
'Drow.M00 = L27 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L50
|
||||
'Drow.COLG = L27 - (DR(58 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L50
|
||||
'' End If
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(31 - 1), DSR.TReqUseRow)
|
||||
'' If (L45 + L50 + L55 + L56 + L57) <> 0 Then
|
||||
'Drow.M00 = L31 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L56
|
||||
'Drow.COLG = L31 - (DR(58 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L56
|
||||
'' End If
|
||||
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(33 - 1), DSR.TReqUseRow)
|
||||
''If (L45 + L50 + L55 + L56 + L57) <> 0 Then
|
||||
'Drow.M00 = L33 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L55
|
||||
'Drow.COLG = L33 - (DR(58 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L55
|
||||
'' End If
|
||||
|
||||
''//
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(20 - 1), DSR.TReqUseRow)
|
||||
'Drow.M00 = DR(22 - 1).M00 + DR(27 - 1).M00 + DR(31 - 1).M00 + DR(33 - 1).M00 + DR(37 - 1).M00
|
||||
|
||||
''//
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(26 - 1), DSR.TReqUseRow)
|
||||
'Drow.M00 = CSng(IIf(DR(7 - 1).M00 = 0, 0, DR(22 - 1).M00 / DR(7 - 1).M00))
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(30 - 1), DSR.TReqUseRow)
|
||||
'Drow.M00 = CSng(IIf(DR(12 - 1).M00 = 0, 0, DR(27 - 1).M00 / DR(12 - 1).M00))
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(32 - 1), DSR.TReqUseRow)
|
||||
'Drow.M00 = CSng(IIf(DR(15 - 1).M00 = 0, 0, DR(31 - 1).M00 / DR(15 - 1).M00))
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(36 - 1), DSR.TReqUseRow)
|
||||
'Drow.M00 = CSng(IIf(DR(18 - 1).M00 = 0, 0, DR(33 - 1).M00 / DR(18 - 1).M00))
|
||||
|
||||
|
||||
''=SUM(I58:T58)-(H95+H96)/(SUM(I76:T76)+SUM(I82:T82)+SUM(I88:T88)+SUM(I90:T90)+SUM(I92:T92))*SUM(I92:T92)
|
||||
''=L37-(ru(58)+ru(59))/(L45+L50+L55+L56+L57)*L57
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(37 - 1), DSR.TReqUseRow) '//환기에너지소요량(X)
|
||||
'' If (L45 + L50 + L55 + L56 + L57) <> 0 Then
|
||||
'Drow.M00 = L37 - (Ru(58) + Ru(59)) / (L45 + L50 + L55 + L56 + L57) * L57
|
||||
'Drow.COLG = L37 - (Ru(58)) / (L45 + L50 + L55 + L56 + L57) * L57
|
||||
'' End If
|
||||
|
||||
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(38 - 1), DSR.TReqUseRow) '//환기에너지 단위면적당 소요량
|
||||
'Drow.M00 = CSng(IIf(Ru(19) = 0, 0, Ru(37) / Ru(19)))
|
||||
|
||||
''//
|
||||
'Drow = CType(DSETR1.TReqUse.Rows(21 - 1), DSR.TReqUseRow)
|
||||
'Drow.M00 = DR(26 - 1).M00 + DR(30 - 1).M00 + DR(32 - 1).M00 + DR(36 - 1).M00 + DR(38 - 1).M00
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
Public Sub Make_ResultSheet()
|
||||
'//에너지요구량
|
||||
DSETR1.TReqUse.Clear()
|
||||
DSETR1.TReqUse.AcceptChanges()
|
||||
|
||||
Dim Array As New ArrayList
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).요구량)
|
||||
Next
|
||||
Set_ReqUseRow("100", "에너지요구량", "[kWh]", "Qb", "=", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).면적당요구량)
|
||||
Next
|
||||
Set_ReqUseRow("100", "단위면적당 에너지 요구량", "[kWh/m²]", "Σ(Qb / Ab)", "=", Array, "N1")
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).난방요구량)
|
||||
Next
|
||||
Set_ReqUseRow("110", "난방에너지 요구량", "[kWh]", "QH,b", "=", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).난방열)
|
||||
Next
|
||||
Set_ReqUseRow("110", "난방에너지 요구량(열)", "[kWh]", "Qh,b", "=", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).난방공조)
|
||||
Next
|
||||
Set_ReqUseRow("110", "난방에너지 요구량(공조,환기)", "[kWh]", "Qh*,b", "=", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).난방면적)
|
||||
Next
|
||||
Set_ReqUseRow("110", "단위면적당 요구량", "[kWh/m²]", "QH,b / AH", "=", Array, "N1")
|
||||
Set_ReqUseRow("110", "사용면적(난방)", "[m²]", "AH", "=", Result1o.사용면적.H, "N1")
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).냉방요구량)
|
||||
Next
|
||||
Set_ReqUseRow("110", "냉방에너지 요구량", "[kWh]", "QC,b", "=", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).냉방열)
|
||||
Next
|
||||
Set_ReqUseRow("110", "냉방에너지 요구량(열)", "[kWh]", "Qc,b", "=", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).냉방공조)
|
||||
Next
|
||||
Set_ReqUseRow("110", "냉방에너지 요구량(공조,환기)", "[kWh]", "Qc*,b", "=", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).냉방면적)
|
||||
Next
|
||||
Set_ReqUseRow("110", "단위면적당 요구량", "[kWh/m²]", "QC,b / AC", "=", Array, "N1")
|
||||
Set_ReqUseRow("110", "사용면적(냉방)", "[m²]", "AC", "=", Result1o.사용면적.C, "N1")
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).조명요구량)
|
||||
Next
|
||||
Set_ReqUseRow("110", "조명에너지 요구량", "[kWh]", "QL,b", "=", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).조명면적)
|
||||
Next
|
||||
Set_ReqUseRow("110", "단위면적당 요구량", "[kWh/m²]", "QL,b / AL", "=", Array, "N1")
|
||||
Set_ReqUseRow("110", "사용면적(조명)", "[m²]", "AL", "=", Result1o.사용면적.L, "N1")
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).급탕요구량)
|
||||
Next
|
||||
Set_ReqUseRow("110", "급탕에너지 요구량", "[kWh]", "QW,b", "=", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E요구량(i).급탕면적)
|
||||
Next
|
||||
Set_ReqUseRow("110", "단위면적당 요구량", "[kWh/m²]", "QW,b / AW", "=", Array, "N1")
|
||||
Set_ReqUseRow("110", "사용면적(급탕)", "[m²]", "AW", "=", Result1o.사용면적.W, "N1")
|
||||
Set_ReqUseRow("110", "사용면적(환기)", "[m²]", "AV", "=", Result1o.사용면적.V, "N1")
|
||||
|
||||
'//에너지소요량
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).소요량)
|
||||
Next
|
||||
Set_ReqUseRow("200", "에너지소요량", "[kWh]", "Qf", "", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).면적소요량)
|
||||
Next
|
||||
Set_ReqUseRow("200", "단위면적당 에너지 소요량", "[kWh/m²]", "Σ(Qf / Ab)", "", Array, "N1")
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).난방S)
|
||||
Next
|
||||
Set_ReqUseRow("210", "난방에너지 소요량", "[kWh]", "QH,f", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).난방)
|
||||
Next
|
||||
Set_ReqUseRow("210", "난방에너지 소요량", "[kWh]", "Qh,f", "=", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).난방보조)
|
||||
Next
|
||||
Set_ReqUseRow("210", "난방보조에너지 소요량", "[kWh]", "Qh,aux", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).난방면적)
|
||||
Next
|
||||
Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QH,f / AH", "=", Array, "N1")
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).냉방S)
|
||||
Next
|
||||
Set_ReqUseRow("210", "냉방에너지 소요량", "[kWh]", "QC,f", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).냉방)
|
||||
Next
|
||||
Set_ReqUseRow("210", "냉방에너지 소요량", "[kWh]", "Qc,f", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).냉방보조)
|
||||
Next
|
||||
Set_ReqUseRow("210", "냉방보조에너지 소요량", "[kWh]", "Qc,aux", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).냉방면적)
|
||||
Next
|
||||
Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QC,f / AC", "=", Array, "N1")
|
||||
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).조명S)
|
||||
Next
|
||||
Set_ReqUseRow("210", "조명에너지 소요량", "[kWh]", "QL,f", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).조명면적)
|
||||
Next
|
||||
Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QL,f / AL", "=", Array, "N1")
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).급탕S)
|
||||
Next
|
||||
Set_ReqUseRow("210", "급탕에너지 소요량", "[kWh]", "QW,f", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).급탕)
|
||||
Next
|
||||
Set_ReqUseRow("210", "급탕에너지 소요량", "[kWh]", "Qw,f", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).급탕보조)
|
||||
Next
|
||||
Set_ReqUseRow("210", "급탕보조에너지 소요량", "[kWh]", "Qw,aux", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).급탕면적)
|
||||
Next
|
||||
Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QW,f / AW", "=", Array, "N1")
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).환기S)
|
||||
Next
|
||||
Set_ReqUseRow("210", "환기에너지 소요량", "[kWh]", "QV,aux", "=", Array) '//36
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.E소요량(i).환기면적)
|
||||
Next
|
||||
Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QV.aux / AV", "=", Array, "N1")
|
||||
|
||||
'//1차에너지 소요량(10-02 추가)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).소요량)
|
||||
Next
|
||||
Set_ReqUseRow("300", "1차에너지 소요량", "[kWh]", "", "", Array) '//38
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).단위면적)
|
||||
Next
|
||||
Set_ReqUseRow("300", "단위면적당 1차에너지 소요량", "[kWh/m²]", "", "", Array, "N1") '//39
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).난방소요량)
|
||||
Next
|
||||
Set_ReqUseRow("310", "난방 1차에너지 소요량", "", "", "", Array) '//40
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).난방등유)
|
||||
Next
|
||||
Set_ReqUseRow("310", "난방유(등유) 소요량", "[kWh]", "1.1", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).난방LNG)
|
||||
Next
|
||||
Set_ReqUseRow("310", "천연가스(LNG) 소요량", "[kWh]", "1.1", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).난방LPG)
|
||||
Next
|
||||
Set_ReqUseRow("310", "액화가스(LPG) 소요량", "[kWh]", "1.1", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).난방지역)
|
||||
Next
|
||||
Set_ReqUseRow("310", "지역난방열 소요량", "[kWh]", "0.728", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).난방전력)
|
||||
Next
|
||||
Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//45
|
||||
|
||||
'Array.Clear() '//--펠렛 100727
|
||||
'For i As Integer = 0 To 12
|
||||
' Array.Add(Result1o.일차E소요량(i).난방펠렛)
|
||||
'Next
|
||||
'Set_ReqUseRow("310", "펠렛보일러 소요량", "[kWh]", "1.1", "=", Array)
|
||||
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).난방면적)
|
||||
Next
|
||||
Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//46
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).냉방소요량)
|
||||
Next
|
||||
Set_ReqUseRow("310", "냉방 1차에너지 소요량", "", "", "", Array) '//47
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).냉방등유)
|
||||
Next
|
||||
Set_ReqUseRow("310", "난방유(등유) 소요량", "[kWh]", "1.1", "=", Array) '//48
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).냉방LNG)
|
||||
Next
|
||||
Set_ReqUseRow("310", "천연가스(LNG) 소요량", "[kWh]", "1.1", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).냉방LPG)
|
||||
Next
|
||||
Set_ReqUseRow("310", "액화가스(LPG) 소요량", "[kWh]", "1.1", "=", Array) '//50
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).냉방지역난방열)
|
||||
Next
|
||||
Set_ReqUseRow("310", "지역난방열 소요량", "[kWh]", "0.728", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).냉방지역냉방열)
|
||||
Next
|
||||
Set_ReqUseRow("310", "지역냉방열 소요량", "[kWh]", Pub.Result1o.E변환계수.지역냉방.ToString("N3"), "=", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).냉방전력)
|
||||
Next
|
||||
Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//52
|
||||
|
||||
'Array.Clear() '//--펠렛 100727
|
||||
'For i As Integer = 0 To 12
|
||||
' Array.Add(Result1o.일차E소요량(i).냉방펠렛)
|
||||
'Next
|
||||
'Set_ReqUseRow("310", "펠렛보일러 소요량", "[kWh]", "1.1", "=", Array)
|
||||
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).냉방면적)
|
||||
Next
|
||||
Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//53
|
||||
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).급탕소요량)
|
||||
Next
|
||||
Set_ReqUseRow("310", "급탕 1차에너지 소요량", "", "", "", Array) '//54
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).급탕등유)
|
||||
Next
|
||||
Set_ReqUseRow("310", "난방유(등유) 소요량", "[kWh]", "1.1", "=", Array) '//55
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).급탕LNG)
|
||||
Next
|
||||
Set_ReqUseRow("310", "천연가스(LNG) 소요량", "[kWh]", "1.1", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).급탕LPG)
|
||||
Next
|
||||
Set_ReqUseRow("310", "액화가스(LPG) 소요량", "[kWh]", "1.1", "=", Array) '//57
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).급탕지역)
|
||||
Next
|
||||
Set_ReqUseRow("310", "지역난방열 소요량", "[kWh]", "0.728", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).급탕전력)
|
||||
Next
|
||||
Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//59
|
||||
|
||||
'Array.Clear() '//--펠렛 100727
|
||||
'For i As Integer = 0 To 12
|
||||
' Array.Add(Result1o.일차E소요량(i).급탕펠렛)
|
||||
'Next
|
||||
'Set_ReqUseRow("310", "펠렛보일러 소요량", "[kWh]", "1.1", "=", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).급탕면적)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//60
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).조명소요량)
|
||||
Next
|
||||
Set_ReqUseRow("310", "조명 1차에너지 소요량", "", "", "", Array) '//61
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).조명전력)
|
||||
Next
|
||||
Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//62
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).조명면적)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//63
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).환기소요량)
|
||||
Next
|
||||
Set_ReqUseRow("310", "환기 1차에너지 소요량", "", "", "", Array) '//64
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).환기전력)
|
||||
Next
|
||||
Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//65
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.일차E소요량(i).환기면적)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//66
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.생산E(i).태양광전력생산량)
|
||||
Next
|
||||
Set_ReqUseRow("310", "전기에너지 생산량(태양광)", "[kWh]", CStr(Result1o.E변환계수.전력), "=", Array) '//67
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.생산E(i).열병합전력생산량)
|
||||
Next
|
||||
Set_ReqUseRow("310", "전기에너지 생산량(열병합)", "[kWh]", CStr(Result1o.E변환계수.전력), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.생산E(i).태양열생산량)
|
||||
Next
|
||||
Set_ReqUseRow("310", "열에너지 생산량(태양열)", "[kWh]", "", "=", Array) '//69
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.생산E(i).지열생산량)
|
||||
Next
|
||||
Set_ReqUseRow("310", "열에너지 생산량(지열)", "[kWh]", "", "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.생산E(i).면적당생산량태양열)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("310", "단위면적당 생산량(태양열)", "[kWh]", "", "=", Array, "N1") '//71
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.생산E(i).면적당생산량지열)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("310", "단위면적당 생산량(지열)", "[kWh]", "", "=", Array, "N1") '//72
|
||||
|
||||
|
||||
'//CO2배출량
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).발생량)
|
||||
Next
|
||||
Set_ReqUseRow("400", "연간 CO2 배출량", "[kg CO2]", "", "", Array) '//73
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).단위면적)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("400", "단위면적당 CO2 배출량", "[kg CO2/m²]", "", "", Array, "N1") '//74
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).난방발생량)
|
||||
Next
|
||||
Set_ReqUseRow("410", "난방 CO2 발생량", "", "", "", Array) '//75
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).난방등유)
|
||||
Next
|
||||
Set_ReqUseRow("410", "난방유(등유) CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.등유), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).난방LNG)
|
||||
Next
|
||||
Set_ReqUseRow("410", "천연가스(LNG) CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.LNG), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).난방LPG)
|
||||
Next
|
||||
Set_ReqUseRow("410", "액화가스(LPG) CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.LPG), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).난방지역)
|
||||
Next
|
||||
Set_ReqUseRow("410", "지역난방열 CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.지역난방), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).난방전력)
|
||||
Next
|
||||
Set_ReqUseRow("410", "전력 CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.지역냉방), "=", Array)
|
||||
|
||||
'Array.Clear() '//펠렛
|
||||
'For i As Integer = 0 To 12
|
||||
' Array.Add(Result1o.Co2발생량(i).난방펠렛)
|
||||
'Next
|
||||
'Set_ReqUseRow("410", "펠렛 CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.펠렛), "=", Array)
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).난방면적)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1")
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).냉방발생량)
|
||||
Next
|
||||
Set_ReqUseRow("410", "냉방 CO2 발생량", "", "", "", Array) '//82
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).냉방등유)
|
||||
Next
|
||||
Set_ReqUseRow("410", "난방유(등유) CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.등유), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).냉방LNG)
|
||||
Next
|
||||
Set_ReqUseRow("410", "천연가스(LNG) CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.LNG), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).냉방LPG)
|
||||
Next
|
||||
Set_ReqUseRow("410", "액화가스(LPG) CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.LPG), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).냉방지역난방열)
|
||||
Next
|
||||
Set_ReqUseRow("410", "지역난방열 CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.지역난방), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).냉방지역냉방열)
|
||||
Next
|
||||
Set_ReqUseRow("410", "지역냉방열 CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.지역냉방), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).냉방전력)
|
||||
Next
|
||||
Set_ReqUseRow("410", "전력 CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.전력), "=", Array)
|
||||
'Array.Clear() '//낸ㅇ방펠렛
|
||||
'For i As Integer = 0 To 12
|
||||
' Array.Add(Result1o.Co2발생량(i).냉방펠렛)
|
||||
'Next
|
||||
'Set_ReqUseRow("410", "전력 CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.펠렛), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).냉방면적)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1")
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).급탕발생량)
|
||||
Next
|
||||
Set_ReqUseRow("410", "급탕 CO2 발생량", "", "", "", Array) '//89
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).급탕등유)
|
||||
Next
|
||||
Set_ReqUseRow("410", "난방유(등유) CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.등유), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).급탕LNG)
|
||||
Next
|
||||
Set_ReqUseRow("410", "천연가스(LNG) CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.LNG), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).급탕LPG)
|
||||
Next
|
||||
Set_ReqUseRow("410", "액화가스(LPG) CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.LPG), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).급탕지역)
|
||||
Next
|
||||
Set_ReqUseRow("410", "지역난방열 CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.지역난방), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).급탕전력)
|
||||
Next
|
||||
Set_ReqUseRow("410", "전력 CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.전력), "=", Array)
|
||||
'Array.Clear() '//급탕펠렛
|
||||
'For i As Integer = 0 To 12
|
||||
' Array.Add(Result1o.Co2발생량(i).급탕펠렛)
|
||||
'Next
|
||||
'Set_ReqUseRow("410", "전력 CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.펠렛), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).급탕면적)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1")
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).조명발생량)
|
||||
Next
|
||||
Set_ReqUseRow("410", "조명 CO2 발생량", "", "", "", Array) '//96
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).조명전력)
|
||||
Next
|
||||
Set_ReqUseRow("410", "전력 CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.전력), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).조명면적)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1")
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).환기발생량)
|
||||
Next
|
||||
Set_ReqUseRow("410", "환기 CO2 발생량", "", "", "", Array) '//99
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).환기전력)
|
||||
Next
|
||||
Set_ReqUseRow("410", "전력 CO2 발생량", "[kg CO2]", CStr(Result1o.Co2배출계수.전력), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).환기면적)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1")
|
||||
|
||||
'//CO2저감량
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).저감량태양광)
|
||||
Next
|
||||
Set_ReqUseRow("410", "전력 CO2 저감량(태양광)", "[kg CO2]", CStr(Result1o.Co2배출계수.전력), "=", Array) '//102
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result1o.Co2발생량(i).저감량열병합)
|
||||
Next
|
||||
Set_ReqUseRow("410", "전력 CO2 저감량(열병합)", "[kg CO2]", CStr(Result1o.Co2배출계수.전력), "=", Array) '//103
|
||||
DSETR1.AcceptChanges()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Set_ReqUseRow(ByVal GRP As String, ByVal desc As String, ByVal unit As String, ByVal sign As String, ByVal eq As String, ByVal Value As ArrayList, Optional ByVal F As String = "N0")
|
||||
Dim DR As DSR.TReqUseRow : DR = DSETR1.TReqUse.NewTReqUseRow
|
||||
|
||||
DR.Code = Format(DSETR1.TReqUse.Rows.Count + 1, "000")
|
||||
DR.GRP = GRP '//그룹 출력할떄 그룹으로 뽑는다.
|
||||
DR.Desc = desc '//설명
|
||||
DR.UNIT = unit '//단위
|
||||
DR.SIGN = sign '//기호
|
||||
DR.EQ = eq '//등호 =
|
||||
DR.M00 = TOSG(T, Value.Item(0))
|
||||
DR.M01 = TOSG(T, Value.Item(1))
|
||||
DR.M02 = TOSG(T, Value.Item(2))
|
||||
DR.M03 = TOSG(T, Value.Item(3))
|
||||
DR.M04 = TOSG(T, Value.Item(4))
|
||||
DR.M05 = TOSG(T, Value.Item(5))
|
||||
DR.M06 = TOSG(T, Value.Item(6))
|
||||
DR.M07 = TOSG(T, Value.Item(7))
|
||||
DR.M08 = TOSG(T, Value.Item(8))
|
||||
DR.M09 = TOSG(T, Value.Item(9))
|
||||
DR.M10 = TOSG(T, Value.Item(10))
|
||||
DR.M11 = TOSG(T, Value.Item(11))
|
||||
DR.M12 = TOSG(T, Value.Item(12))
|
||||
DR.F = F
|
||||
DSETR1.TReqUse.AddTReqUseRow(DR)
|
||||
End Sub
|
||||
Private Sub Set_ReqUseRow(ByVal GRP As String, ByVal desc As String, ByVal unit As String, ByVal sign As String, ByVal eq As String, ByVal Value As Decimal, Optional ByVal F As String = "N0")
|
||||
Dim DR As DSR.TReqUseRow : DR = DSETR1.TReqUse.NewTReqUseRow
|
||||
|
||||
DR.Code = Format(DSETR1.TReqUse.Rows.Count + 1, "000")
|
||||
DR.GRP = GRP '//그룹 출력할떄 그룹으로 뽑는다.
|
||||
DR.Desc = desc '//설명
|
||||
DR.UNIT = unit '//단위
|
||||
DR.SIGN = sign '//기호
|
||||
DR.EQ = eq '//등호 =
|
||||
DR.M00 = Value
|
||||
DR.F = F
|
||||
'DR.M01 = CSng(Value.Item(1))
|
||||
'DR.M02 = CSng(Value.Item(2))
|
||||
'DR.M03 = CSng(Value.Item(3))
|
||||
'DR.M04 = CSng(Value.Item(4))
|
||||
'DR.M05 = CSng(Value.Item(5))
|
||||
'DR.M06 = CSng(Value.Item(6))
|
||||
'DR.M07 = CSng(Value.Item(7))
|
||||
'DR.M08 = CSng(Value.Item(8))
|
||||
'DR.M09 = CSng(Value.Item(9))
|
||||
'DR.M10 = CSng(Value.Item(10))
|
||||
'DR.M11 = CSng(Value.Item(11))
|
||||
'DR.M12 = CSng(Value.Item(12))
|
||||
DSETR1.TReqUse.AddTReqUseRow(DR)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
884
ArinWarev1/Calculator-OD/Zone/CZone.vb
Normal file
884
ArinWarev1/Calculator-OD/Zone/CZone.vb
Normal file
@@ -0,0 +1,884 @@
|
||||
Public Class CZoneOD
|
||||
|
||||
Public Event PBarSet(ByVal min As Integer, ByVal max As Integer) '//프로그레시브바 초기화
|
||||
Public Event Message(ByVal Msg As String) '//메세지표시
|
||||
Public Event PBarVal(ByVal Value As Integer) '//프로그레시브 값설정
|
||||
|
||||
''' <summary>
|
||||
''' (main)에너지요구량 계산
|
||||
''' </summary>
|
||||
''' <param name="Calc_Use">에너지소요량을 추가로 계산하려면 True 를 입력</param>
|
||||
''' <param name="Log">로그가 입력될 스트링빌더</param>
|
||||
''' <remarks></remarks>
|
||||
Public Overridable Function Calc_LoadOfZones() As Boolean
|
||||
Dim Title As String = "에너지요구량을 계산합니다"
|
||||
RaiseEvent Message(Title & vbCrLf & "잠시만 기다려주세요")
|
||||
RaiseEvent PBarSet(0, 100)
|
||||
|
||||
RaiseEvent Message(Title & vbCrLf & "데이터저장소를 확보하는중.")
|
||||
'i_count_OpWe As Integer, d_we_month As Integer, Q_h_b_we as decimal, ==================================2010.2.21 삭제
|
||||
|
||||
Dim t_24 As Integer, f_wind As Integer, t_NA As Integer, t_h_op_d As Integer, i_count_Is As Integer
|
||||
Dim Delta_theta_er As Decimal, Delta_theta_i_NA As Decimal, Delta_theta_i_WE As Decimal, theta_i As Decimal, theta_i_h As Decimal, theta_i_c As Decimal, F_f As Decimal, F__F As Decimal, F_W As Decimal, F_S As Decimal, F_V As Decimal, h_r As Decimal, c_p_arhoa As Decimal, e_wind As Decimal, n_50 As Decimal, n_ue As Decimal, n_mech As Decimal, n_inf As Decimal, A_B As Decimal, A_u As Decimal, h_u As Decimal, V As Decimal, V_ue As Decimal
|
||||
Dim H_V_inf As Decimal, H_V_mech As Decimal, H_V_ue As Decimal, H_V_z As Decimal, theta_z As Decimal, theta_u As Decimal, H_T_D As Decimal, H_T_iu As Decimal, H_T_iz As Decimal, H_T_s As Decimal, Delta_U_WB As Decimal, H_V_mech_theta As Decimal, theta_i_h_soll As Decimal, theta_i_c_soll As Decimal, theta_V_mech As Decimal ', theta_e_min as decimal, theta_e_max as decimal
|
||||
Dim C_wirk As Decimal, tau As Decimal, a As Decimal, a_tb As Decimal, A_beheizt As Decimal, f_we As Decimal, f_NA As Decimal, f_tb As Decimal, Q_h_max As Decimal, theta_i_NA As Decimal, eta_V_mech As Decimal, theta_V_mech_RLT As Decimal
|
||||
Dim Q_V_inf_sink As Decimal, Q_V_mech_sink As Decimal, Q_V_z_sink As Decimal, Q_V_sink As Decimal, Q_T_e_sink As Decimal, Q_T_u_sink As Decimal, Q_T_z_sink As Decimal, Q_T_s_sink As Decimal, Q_T_sink As Decimal, Q_S_sink As Decimal, R_se As Decimal, Q_source As Decimal, Q_sink As Decimal, Q_I_source As Decimal
|
||||
Dim Q_V_inf_source As Decimal, Q_V_mech_source As Decimal, Q_V_z_source As Decimal, Q_V_source As Decimal, Q_T_e_source As Decimal, Q_T_u_source As Decimal, Q_T_z_source As Decimal, Q_T_s_source As Decimal, Q_T_source As Decimal, Q_S_source As Decimal
|
||||
Dim Q_I_source_p As Decimal, Q_I_source_fac As Decimal, Q_I_L As Decimal, Q_l_b As Decimal, Q_w_b As Decimal, gamma As Decimal, eta As Decimal, Q_h_b As Decimal, Q_h_b_op As Decimal, g_TI As Decimal
|
||||
Dim V_mech As Decimal
|
||||
'Dim d_op_month As Integer, theta_e_month as decimal
|
||||
'Dim A_H as decimal, A_C as decimal, A_L as decimal, A_W as decimal, A_V as decimal
|
||||
Dim Q_vh_b_op As Decimal
|
||||
Dim g_blinds As Decimal, tau_e_B As Decimal, rho_e_B As Decimal, U_blinds As Decimal, tau_e_B_corr As Decimal, rho_e_B_corr As Decimal 'EN 13363-1 적용
|
||||
Dim g As Decimal, alpa As Decimal
|
||||
'Dim i_sub_wall As Integer
|
||||
Dim V_mech_outdoor As Decimal
|
||||
Dim T As String
|
||||
T = "건축"
|
||||
'//2010.02.04추가
|
||||
Dim i_count_AHU As Integer
|
||||
Dim Phi As Decimal
|
||||
'//2010.02.21추가
|
||||
Dim d_op_mth As Integer
|
||||
|
||||
'//2017.06.19 추가
|
||||
Dim Q_V_win_sink As Decimal, Q_V_win_source As Decimal, H_V_win As Decimal, n_win As Decimal
|
||||
|
||||
Dim d_full_mth As Integer
|
||||
|
||||
RaiseEvent Message(Title & vbCrLf & "저장소 기본값을 설정하는중.")
|
||||
t_24 = 24
|
||||
F_f = 0.5 '구조체와 하늘과의 형태계수
|
||||
F__F = 0.7 '창 프레임 감소계수 __필요
|
||||
F_W = 0.9 '수직입사가 아닌경우에 대한 감소계수
|
||||
F_S = 1 '주변환경에 의한 그늘짐
|
||||
F_V = 1 '0.9 '우선 먼지팩터는 없는 것으로 가정
|
||||
h_r = 5 * 0.9 '= 5*e(모를경우 e=0.9)
|
||||
Delta_theta_er = 10
|
||||
Delta_theta_i_NA = 4 '(용도별조건)
|
||||
'theta_i = 21
|
||||
'theta_i_h = 21
|
||||
theta_i_h_soll = 20
|
||||
theta_i_c = 24
|
||||
theta_i_c_soll = 26
|
||||
theta_V_mech_RLT = 27
|
||||
'theta_e_min = -11.3
|
||||
'theta_e_max = 31.5
|
||||
c_p_arhoa = 0.34 '//먼지모름
|
||||
'n_50 = 1.5
|
||||
n_ue = 0.6
|
||||
e_wind = 0.07
|
||||
f_wind = 15
|
||||
R_se = 0.043 '외기에 직접 열전달저항 확인요망
|
||||
g_TI = 0.35 '(2-113)
|
||||
alpa = 0.4 '우선 0.4으로 설정 표면흡수율 도표 2-6 참조
|
||||
n_mech = 1 '임시
|
||||
A_u = 1
|
||||
h_u = 1 '임시
|
||||
|
||||
RaiseEvent Message(Title & vbCrLf & "결과저장소 초기화")
|
||||
|
||||
Work_msg("요구량계산중...")
|
||||
Frm_Work.ProgressBar1.Maximum = 26
|
||||
Frm_Work.ProgressBar1.Minimum = 0
|
||||
Frm_Work.ProgressBar1.Value = 0
|
||||
Frm_Work.TopMost = True
|
||||
Frm_Work.Show()
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'/////////////////////////////////////////////////////
|
||||
For i_count_HeatCool As Integer = 1 To 2 '(1) 루프회전 난방/냉방 구분해서 회전한다. 둘의 산식이 거의 비슷하므로 루프를 이용해서 계산
|
||||
|
||||
|
||||
|
||||
For i_count_month As Short = 0 To 12 '(2) --월전체의 루프?
|
||||
|
||||
If i_count_HeatCool = 1 AndAlso i_count_month = 1 Then
|
||||
Console.WriteLine("col")
|
||||
End If
|
||||
|
||||
Work_msg("요구량계산중..." & CStr(IIf(i_count_HeatCool = 1, "난방", "냉방")) & "(" & i_count_month & "/12)") : Work_plus()
|
||||
Dim Mon As String = "M" & Format(i_count_month, "00") '//저장소의 필드명이 M00 식으로되어있다.
|
||||
|
||||
If i_count_month = 0 Then '//난방이라면? '//최소외기온도 난방기(theta_e_min)
|
||||
CalcO.Pub.theta_e(i_count_month) = TOSG(T, IIf(i_count_HeatCool = 1, CalcO.Pub.theta_e_min, CalcO.Pub.theta_e_max))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'//존 루프
|
||||
For Each DR존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code = '0001'", "code") ' DSET1.tbl_zone.Rows.Count '(3)
|
||||
'//방식이나 공조는 ZZ는 사용안함이다 V=환기 외기부하처리여부의경우 0001 은 예이다.
|
||||
If (DR존.냉난방방식 <> "기능없음" Or (DR존.냉난방공조 <> "기능없음" And (DR존.냉난방공조 <> "환기" Or DR존.외기부하처리여부 = "예"))) And DR존.면적 <> "0" Then
|
||||
Q_vh_b_op = 0
|
||||
|
||||
'//i_count_OpWe 1은 평일 2는 주말이다ㅡㅡ/
|
||||
'======================================2010.2.21 삭제
|
||||
'For i_count_OpWe = 1 To 2
|
||||
'======================================2010.2.21 삭제
|
||||
Q_V_inf_sink = 0
|
||||
Q_V_inf_source = 0
|
||||
Q_V_mech_sink = 0
|
||||
Q_V_mech_source = 0
|
||||
Q_V_z_sink = 0
|
||||
Q_V_z_source = 0
|
||||
Q_V_win_sink = 0 '//2011.04.04 추가
|
||||
Q_V_win_source = 0 '//2011.04.04 추가
|
||||
|
||||
Q_T_e_sink = 0
|
||||
Q_T_e_source = 0
|
||||
Q_T_u_sink = 0
|
||||
Q_T_u_source = 0
|
||||
Q_T_z_sink = 0
|
||||
Q_T_z_source = 0
|
||||
Q_T_s_sink = 0
|
||||
Q_T_s_source = 0
|
||||
|
||||
A_B = TOSG(T, DR존.면적) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1)
|
||||
V = TOSG(T, DR존.순실체적) ' Worksheets("입력존").Range("체적1").Offset(0, i_count_zone - 1)
|
||||
V_ue = A_u * h_u
|
||||
|
||||
'Log.AppendLine(" >> V_ue = A_u * h_u = // au와 hu 는 선언부에서 1값으로 고정되어있음 v_ue는 항상 1")
|
||||
|
||||
'//사용한 입력면 (존분류)
|
||||
|
||||
'//사용한 입력면의 용도프로필 확인
|
||||
|
||||
'//존의 프로필설정에대한 실제 프로필의 데이터를 가져옴
|
||||
Dim DR프로필() As DS.tbl_profile_odRow = CType(DSET1.tbl_profile_od.Select("code='0'"), DS.tbl_profile_odRow())
|
||||
If DR프로필.GetUpperBound(0) = -1 Then
|
||||
MsgBox("존=" & DR존.code & " 의 프로필=" & DR존.프로필 & " 의 데이터가 존재하지않습니다", MsgBoxStyle.Critical, "확인")
|
||||
Else
|
||||
'Log.AppendLine(" >> 존의 프로필코드(" & DR존.프로필 & ") 에 해당하는 프로필정보를 가져옵니다")
|
||||
t_h_op_d = TOIT(DR프로필(0).운전시간난방) ' Worksheets("설정조건").Range("사용시작시간1").Offset(5, i_count_profile)
|
||||
'===================================================================================2010.2.21 추가
|
||||
If i_count_month = 0 Then
|
||||
d_op_mth = 0
|
||||
Else
|
||||
d_op_mth = CInt(TOSG(T, DR프로필(0)("day" & Format(i_count_month, "00"))))
|
||||
End If
|
||||
'===================================================================================2010.2.21 추가
|
||||
theta_i_h_soll = TOSG(T, DR프로필(0).난방설정온도) ' Worksheets("설정조건").Range("난방설정온도1").Offset(0, i_count_profile)
|
||||
theta_i_c_soll = TOSG(T, DR프로필(0).냉방설정온도) ' Worksheets("설정조건").Range("냉방설정온도1").Offset(0, i_count_profile)
|
||||
Delta_theta_i_NA = TOSG(T, DR프로필(0).야간최저허용온도) ' Worksheets("설정조건").Range("야간최저허용온도1").Offset(0, i_count_profile)
|
||||
Delta_theta_i_WE = TOSG(T, DR프로필(0).주말최저허용온도) ' Worksheets("설정조건").Range("주말최저허용온도1").Offset(0, i_count_profile)
|
||||
' If i_count_OpWe = 1 Then=============================================================2010.2.21 삭제
|
||||
'Log.AppendLine(" >> i_count_OpWe = 1 >> Q_I_source_p/Q_I_source_fac/V_mech 계산됨")
|
||||
Q_I_source_p = TOSG(T, DR프로필(0).사람) * A_B ' Worksheets("설정조건").Range("사람1").Offset(0, i_count_profile) * A_B '(2-118)
|
||||
Q_I_source_fac = TOSG(T, DR프로필(0).작업보조기기) * A_B ' Worksheets("설정조건").Range("작업보조기기1").Offset(0, i_count_profile) * A_B '(2-119)
|
||||
V_mech = TOSG(T, DR프로필(0).최소도입외기량) * A_B ' Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile) * A_B
|
||||
' Else '=============================================================2010.2.21 삭제
|
||||
' Log.AppendLine(" >> i_count_OpWe <> 1 >> Q_I_source_p/Q_I_source_fac 는 0입니다")
|
||||
' Q_I_source_p = 0 '주말 사람없음
|
||||
' Q_I_source_fac = 0 '주말 기기발열 없음
|
||||
'End If
|
||||
'Q_I_L = 0 'mu_L*Q_I_L_elektr (2-123)추후 추가
|
||||
End If
|
||||
|
||||
V_mech_outdoor = 1 '외기처리 관련 (ZZ=사용안함 Y=예)
|
||||
If DR존.냉난방방식 <> "기능없음" And DR존.냉난방공조 <> "기능없음" And DR존.외기부하처리여부 = "예" Then
|
||||
If i_count_HeatCool = 1 Then '//난방이라면
|
||||
If DR존.냉난방공조 <> "난방" AndAlso DR존.냉난방공조 <> "냉난방" Then '난방/냉난방 이 아니면!
|
||||
If theta_i_h_soll > CalcO.Pub.theta_e(i_count_month) Then '//난방설정온도 > 외기온도(난방기)
|
||||
Q_vh_b_op = V_mech * (theta_i_h_soll - CalcO.Pub.theta_e(i_count_month)) * t_h_op_d * c_p_arhoa * d_op_mth '===============d_op(i_count_month) 2010.2.21 수정
|
||||
V_mech_outdoor = 0 ' 외기처리된 상태인 경우
|
||||
'Log.AppendLine(" >> 외기처리됨")
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
If DR존.냉난방공조 <> "냉방" AndAlso DR존.냉난방공조 <> "냉난방" Then '냉방/냉난방이 아닐경우
|
||||
If theta_i_c_soll < CalcO.Pub.theta_e(i_count_month) Then
|
||||
Q_vh_b_op = V_mech * (CalcO.Pub.theta_e(i_count_month) - theta_i_c_soll) * t_h_op_d * c_p_arhoa * d_op_mth '===============d_op(i_count_month) 2010.2.21 수정
|
||||
V_mech_outdoor = 0 ' 외기처리된 상태인 경우
|
||||
'Log.AppendLine(" >> 외기처리됨")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
n_50 = TOSG(T, DR존.침기율) '//tosg 는 빈값일경우 0을 반환
|
||||
n_inf = n_50 * e_wind '(2-59) 환기기기 없는 경우
|
||||
'n_inf = n_50 * e_wind * (1 + f_V_mech * t_V_mech / 24) '(2-60) 급기 및 배기에 대한 환기회수 필요
|
||||
|
||||
|
||||
n_win = 0.1 ' 최소외기 도입량은 환기기기 유무와 상관없이 적용되는 것으로 평가하기 때문에 자연환기 기본값만 적용
|
||||
|
||||
H_T_D = 0
|
||||
H_T_iu = 0
|
||||
H_T_iz = 0
|
||||
|
||||
|
||||
Dim Drow프로필 As DS.tbl_profile_odRow = CType(DSET1.tbl_profile_od.Select("code='0'")(0), DS.tbl_profile_odRow)
|
||||
'If DR존.조명부하산출방법 = "계산치" Then
|
||||
'Q_I_L = TOSG(T,T,DR존.조명에너지부하율계산치) * TOSG(T,T,Drow프로필.일일사용시간) * A_B
|
||||
'Else
|
||||
'Q_I_L = TOSG(T,T,DR존.조명에너지부하율입력치) * TOSG(T,T,Drow프로필.일일사용시간) * A_B
|
||||
'End If
|
||||
|
||||
Q_I_L = TOSG(T, DR존.조명에너지부하율입력치) * TOSG(T, Drow프로필.일일사용시간) * A_B
|
||||
'Q_I_L = TOSG(T,T,IIf(DR존.조명부하산출방법 = "계산치", TOSG(T,T,DR존.조명에너지부하율계산치), TOSG(T,T,DR존.조명에너지부하율입력치))) * TOSG(T,T,Drow프로필.일일사용시간) * A_B
|
||||
Q_w_b = TOSG(T, Drow프로필.일일급탕요구량) * A_B * d_op_mth
|
||||
'===================================2010.2.21 삭제
|
||||
'If DR존.조명부하산출방법 = "CALC" Then '//OpWe의 2번은 주말인거 같다.
|
||||
' '//부하율계산치?입력치구분
|
||||
' Q_w_b = TOSG(T,T,DR존.급탕요구량) * A_B * Calco.Pub.d_op_mth(i_count_month)
|
||||
'Else
|
||||
' Q_I_L = 0 '주말 소등으로 설정
|
||||
' Q_w_b = 0 '주말은 급탕사용안함
|
||||
'End If
|
||||
'===================================2010.2.21 삭제
|
||||
|
||||
'Log.AppendLine(" >> 현재존을 사용하는 각 입력면(" & DSET1.tbl_myoun.Select("존분류='" & DR존.code & "'").GetUpperBound(0) & ")으로부터 데이터를 누적")
|
||||
For Each Dr입력면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("code <> '0'")
|
||||
|
||||
|
||||
Dim CodeYk As String = Dr입력면.열관류율2
|
||||
Dim DrYKRows() As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" + CodeYk + "'")
|
||||
If DrYKRows.Length = 1 Then
|
||||
|
||||
'//170601
|
||||
Dim DrYKRow As DS.tbl_ykRow = DrYKRows(0)
|
||||
If DrYKRow.열교방지구조 Then
|
||||
Delta_U_WB = 0.1
|
||||
Else
|
||||
Delta_U_WB = 0.15
|
||||
End If
|
||||
|
||||
'If DR존.열교가산치 = "내단열" Then
|
||||
' Delta_U_WB = 0.15 '내단열(=0001) Worksheets("입력존").Range("열교1").Offset(0, i_count_zone - 1) = "내단열" Then
|
||||
'Else
|
||||
' Delta_U_WB = 0.1 '내단열(=0001) Worksheets("입력존").Range("열교1").Offset(0, i_count_zone - 1) = "내단열" Then
|
||||
'End If
|
||||
Else
|
||||
Delta_U_WB = 0 '//입력면에 연결된 열관류율 데이터가 없는 경우
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'If DR존.열교가산치 = "내단열" Then
|
||||
' Delta_U_WB = 0.15 '내단열(=0001) Worksheets("입력존").Range("열교1").Offset(0, i_count_zone - 1) = "내단열" Then
|
||||
'Else
|
||||
' Delta_U_WB = 0.1 '내단열(=0001) Worksheets("입력존").Range("열교1").Offset(0, i_count_zone - 1) = "내단열" Then
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
Select Case Dr입력면.건축부위방식.Trim ' Case Worksheets("입력면").Range("입력부위" & i_sub_wall & "").Offset(0, i_count_wall)
|
||||
Case "외벽" '"외벽"
|
||||
'Dr입력면.열관류율 >> Calco.Get_열관류율(Dr입력면)
|
||||
H_T_D = H_T_D + CalcO.Get_열관류율(Dr입력면) * TOSG(T, Dr입력면.건축부위면적) + Delta_U_WB * TOSG(T, Dr입력면.건축부위면적) ' Worksheets("입력면").Range("부위면적" & i_sub_wall & "").Offset(0, i_count_wall) '(2-44) Delta_U_WB는 외단열 0.1, 내단열 0.15
|
||||
Case "외부창", "내부창" '=================2010.03.20 수정
|
||||
If Dr입력면.블라인드유무 = "유" Then ' '0001(=유) Range("에너지투과율" & i_sub_wall & "").Offset(3, i_count_wall) = "유" Then
|
||||
If CalcO.Get_열관류율(Dr입력면) = 0 Then
|
||||
MsgBox("블라인드 사용이지만 열관류율 수치가 입력되지 않았습니다", MsgBoxStyle.Critical, "확인")
|
||||
Else
|
||||
Select Case Dr입력면.블라인드위치.Trim ' Range("에너지투과율" & i_sub_wall & "").Offset(4, i_count_wall)
|
||||
Case "내부" '"내부"
|
||||
U_blinds = TOSG(T, 1 / (1 / CalcO.Get_열관류율(Dr입력면) + 1 / 30))
|
||||
Case "중간" '중간"
|
||||
U_blinds = TOSG(T, 1 / (1 / CalcO.Get_열관류율(Dr입력면) + 1 / 3))
|
||||
Case "외부" ' '외부"
|
||||
U_blinds = TOSG(T, 1 / (1 / CalcO.Get_열관류율(Dr입력면) + 1 / 5 + 1 / 10))
|
||||
End Select
|
||||
End If
|
||||
|
||||
Else
|
||||
U_blinds = CalcO.Get_열관류율(Dr입력면) 'Worksheets("입력면").Range("열관류율" & i_sub_wall & "").Offset(0, i_count_wall)
|
||||
End If
|
||||
|
||||
'=========================================================================================================2010.03.20 수정
|
||||
If Dr입력면.건축부위방식.Trim = "외부창" Then
|
||||
H_T_D = H_T_D + U_blinds * TOSG(T, Dr입력면.건축부위면적) + Delta_U_WB * TOSG(T, Dr입력면.건축부위면적) '(2-44) Delta_U_WB는 외단열 0.1, 내단열 0.15
|
||||
Else
|
||||
H_T_iu = H_T_iu + U_blinds * TOSG(T, Dr입력면.건축부위면적)
|
||||
End If
|
||||
'=========================================================================================================2010.03.20 수정
|
||||
Case "내벽" ' "내벽"
|
||||
H_T_iu = H_T_iu + CalcO.Get_열관류율(Dr입력면) * TOSG(T, Dr입력면.건축부위면적) '(2-48)
|
||||
Case "간벽" '"간벽"
|
||||
H_T_iz = H_T_iz + CalcO.Get_열관류율(Dr입력면) * TOSG(T, Dr입력면.건축부위면적) '(2-52)
|
||||
Case Else
|
||||
MsgBox("입력면 건축부위방식이 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
Return False
|
||||
End Select
|
||||
Next
|
||||
|
||||
|
||||
If H_T_D = 0 Then
|
||||
H_V_inf = 0
|
||||
Else
|
||||
H_V_inf = n_inf * V * c_p_arhoa '(2-58) c_p_arhoa는 0.34 V는 존의 체적
|
||||
End If
|
||||
H_V_win = n_win * V * c_p_arhoa '//2011.04.04 추가
|
||||
H_V_mech = V_mech * c_p_arhoa 'n_mech * V * c_p_arhoa '(2-83)
|
||||
H_V_ue = n_ue * V_ue * c_p_arhoa '(2-94)
|
||||
'H_V_z = n_z_d * c_p_arhoa '(2-99)
|
||||
|
||||
If DR존.열저장능력 = "" Then
|
||||
MsgBox(DR존.설명 & "의 열저장능력이 입력되어 있지않습니다", MsgBoxStyle.Critical, "확인")
|
||||
C_wirk = 0
|
||||
Else
|
||||
C_wirk = TOSG(T, DR존.열저장능력) * A_B ' .Worksheets("입력존").Range("열저장능력1").Offset(0, i_count_zone - 1) * A_B
|
||||
End If
|
||||
|
||||
If i_count_HeatCool = 1 Then
|
||||
H_V_mech_theta = 0 'H_V_mech * (theta_i_h_soll - theta_V_mech) / 6 '(2-130) 우선 고려안함
|
||||
Else
|
||||
H_V_mech_theta = 0 'H_V_mech * (theta_i_c_soll - theta_V_mech) / 6 '(2-130)
|
||||
End If
|
||||
tau = C_wirk / ((H_T_D + H_T_iu + H_T_iz) + (H_V_inf + H_V_mech + H_V_ue) + H_V_mech_theta) '(2-22, 129) 추후 H_V_z 추가
|
||||
If tau < 48 Then tau = 48
|
||||
|
||||
a = 1 + tau / 16 '(2-25)
|
||||
|
||||
a_tb = 1 ' =A_beheizt / A_B 'A_beheizt는 난방면적, A_B는 전용면적
|
||||
|
||||
t_NA = 24 - t_h_op_d
|
||||
f_tb = TOSG(T, 0.8 * (1 - Math.Exp(-Q_h_max / (A_B * 35))) * a_tb ^ 2) '(2-34)
|
||||
|
||||
'================================================2010.2.21 삭제
|
||||
'If i_count_OpWe = 1 Then
|
||||
'================================================2010.2.21 삭제
|
||||
Select Case DR존.야간운전방식.Trim '공통1002 Worksheets("입력존").Range("야간가동1").Offset(0, i_count_zone - 1)
|
||||
Case "정상가동" '정상가동"
|
||||
f_NA = 0
|
||||
Case "감소가동" '감소가동"
|
||||
f_NA = TOSG(T, 0.13 * t_NA * Math.Exp(-tau / 250) / 24) '(2-28) 감소가동
|
||||
Case "가동정지" '가동정지"
|
||||
f_NA = TOSG(T, 0.26 * t_NA * Math.Exp(-tau / 250) / 24) '(2-29) 가동정지
|
||||
End Select
|
||||
theta_i_h = theta_i_h_soll - f_NA * (theta_i_h_soll - CalcO.Pub.theta_e(i_count_month))
|
||||
If theta_i_h < theta_i_h_soll - Delta_theta_i_NA * t_NA / 24 Then theta_i_h = theta_i_h_soll - Delta_theta_i_NA * t_NA / 24 '(2-27) 야간감소
|
||||
'================================================2010.2.21 삭제
|
||||
'Else
|
||||
'================================================2010.2.21 삭제
|
||||
Select Case DR존.주말운전방식.Trim ' Worksheets("입력존").Range("주말가동1").Offset(0, i_count_zone - 1)
|
||||
Case "정상가동" '정상가동"
|
||||
f_we = 0
|
||||
Case "감소가동" '감소가동"
|
||||
f_we = TOSG(T, 0.2 * (1 - 0.4 * tau / 250)) '(2-31) 난방감소
|
||||
Case "가동정지" '가동정지"
|
||||
f_we = TOSG(T, 0.3 * (1 - 0.2 * tau / 250)) '(2-32) 난방정지식
|
||||
End Select
|
||||
theta_i_h = theta_i_h_soll - f_we * (theta_i_h_soll - CalcO.Pub.theta_e(i_count_month))
|
||||
If theta_i_h < theta_i_h_soll - Delta_theta_i_WE Then theta_i_h = theta_i_h_soll - Delta_theta_i_WE '(2-30) 주말감소식 변형
|
||||
'================================================2010.2.21 삭제
|
||||
'End If
|
||||
'================================================2010.2.21 삭제
|
||||
|
||||
If i_count_HeatCool = 1 Then
|
||||
theta_i = theta_i_h
|
||||
theta_z = theta_i_h
|
||||
theta_u = TOSG(T, theta_i_h_soll - 0.7 * (theta_i_h_soll - CalcO.Pub.theta_e(i_count_month)))
|
||||
Else
|
||||
theta_i = theta_i_c_soll '24'에너지 사용량 계산할때 24 사용
|
||||
theta_z = theta_i_c_soll
|
||||
theta_u = TOSG(T, theta_i_c_soll - 0.7 * (theta_i_c_soll - CalcO.Pub.theta_e(i_count_month)))
|
||||
End If
|
||||
|
||||
'theta_i_h = theta_i_h_soll - f_tb * (theta_i_h_soll - theta_e(i_count_month)) '(2-33) 공간적제한
|
||||
'theta_i_h = theta_i_NA - f_tb * (theta_i_NA - theta_e(i_count_month)) '(2-35) 공간적 시간적 제한
|
||||
|
||||
'theta_V_mech = theta_e(i_count_month) '(2-90) 공조처리 없는 경우
|
||||
'theta_V_mech = theta_e(i_count_month) + eta_V_mech * (theta_i - theta_e(i_count_month)) '(2-91) 비제어적 열교환 eta_V_mech은 사용자입력
|
||||
theta_V_mech_RLT = TOSG(T, IIf(i_count_HeatCool = 1, 27, 16))
|
||||
|
||||
theta_V_mech = CalcO.Pub.theta_e(i_count_month) 'theta_V_mech_RLT '(2-92) 공조처리된 급기온도(도표 3-3, 3-4, 7-5) 난방 27, 냉방 16으로 설정
|
||||
|
||||
'=======================================================================2010.02.04 추가부분 시작
|
||||
Dim 공조기기갯수 As Integer = DSET1.tbl_kongjo.Select("code <> '0'").Length
|
||||
If 공조기기갯수 > 0 Then '//공조기기가 있는 경우 처리 171225
|
||||
'If DR존.냉난방공조처리시스템 <> "0" Or DR존.냉난방공조 = "환기" Then '//냉난방공조처리시스템이 선택되어있고 공조가 환기라면
|
||||
'//공조처리스템과 일치하는 공조기기(tbl_kongjo) 를 찾아서 계산한다.
|
||||
|
||||
Dim 풍량합_총 As Double = 0
|
||||
Dim 가중풍량 As Double = 0
|
||||
Dim 가중효율 As Double = 0
|
||||
For Each drKJ As DS.tbl_kongjoRow In DSET1.tbl_kongjo.Select("code <> '0'")
|
||||
Dim 풍량합 As Double = (TOSG(drKJ.급기풍량) + TOSG(drKJ.배기풍량)) * TOSG(drKJ.대수) '==========2017.12.28 공조기 대수 추가
|
||||
풍량합_총 += 풍량합
|
||||
Dim 효율 As Double = 0
|
||||
If drKJ.열교환기유형 = "전열교환" Or drKJ.열교환기유형 = "현열교환" Then
|
||||
If theta_i > CalcO.Pub.theta_e(i_count_month) Then
|
||||
'//난방
|
||||
효율 = TOSG(drKJ.열회수율) / 100
|
||||
Else
|
||||
'//냉방
|
||||
효율 = TOSG(drKJ.열회수율_냉방) / 100
|
||||
End If
|
||||
Else
|
||||
효율 = 0
|
||||
End If
|
||||
가중풍량 += (풍량합 * 효율)
|
||||
Next
|
||||
가중효율 = 가중풍량 / 풍량합_총
|
||||
|
||||
|
||||
' Dim DR() As DS.tbl_kongjoRow = CType(DSET1.tbl_kongjo.Select("code='" & DR존.냉난방공조처리시스템 & "' and code <> '0'"), DS.tbl_kongjoRow())
|
||||
Phi = 가중효율 ' 0.8
|
||||
theta_V_mech = CalcO.Pub.theta_e(i_count_month) + Phi * (theta_i - CalcO.Pub.theta_e(i_count_month))
|
||||
'End If
|
||||
Else
|
||||
Phi = 0
|
||||
End If
|
||||
|
||||
'=======================================================================2010.02.04 추가부분 끝
|
||||
|
||||
If theta_i > CalcO.Pub.theta_e(i_count_month) Then
|
||||
Q_V_inf_sink = H_V_inf * (theta_i - CalcO.Pub.theta_e(i_count_month)) * t_24 '(2-56)
|
||||
Q_V_win_sink = H_V_win * (theta_i - CalcO.Pub.theta_e(i_count_month)) * t_24 '//2011.04.04 추가
|
||||
Else
|
||||
Q_V_inf_source = H_V_inf * (CalcO.Pub.theta_e(i_count_month) - theta_i) * t_24 '(2-
|
||||
Q_V_win_source = H_V_win * (CalcO.Pub.theta_e(i_count_month) - theta_i) * t_24 '//2011.04.04 추가
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'================================================2010.2.21 삭제
|
||||
'If i_count_OpWe = 1 Then
|
||||
'================================================2010.2.21 삭제
|
||||
If theta_i > theta_V_mech Then
|
||||
Q_V_mech_sink = H_V_mech * V_mech_outdoor * (theta_i - theta_V_mech) * t_h_op_d '(2-81)
|
||||
Else
|
||||
Q_V_mech_source = H_V_mech * V_mech_outdoor * (theta_V_mech - theta_i) * t_h_op_d '(2-
|
||||
End If
|
||||
'================================================2010.2.21 삭제
|
||||
'Else
|
||||
'If theta_i > theta_V_mech Then
|
||||
' Q_V_mech_sink = 0
|
||||
'Else
|
||||
' Q_V_mech_source = 0
|
||||
'End If
|
||||
'End If
|
||||
'================================================2010.2.21 삭제
|
||||
|
||||
If theta_i > theta_z Then
|
||||
Q_V_z_sink = H_V_z * (theta_i - theta_z) * t_24 '(2-97)
|
||||
Else
|
||||
Q_V_z_source = H_V_z * (theta_z - theta_i) * t_24 '(2-
|
||||
End If
|
||||
|
||||
Q_V_sink = Q_V_inf_sink + Q_V_mech_sink + Q_V_z_sink + Q_V_win_sink '(2-13)
|
||||
|
||||
'//Console.WriteLine(String.Format("mon={0},QV_sink={1},{2},{3},{4}", i_count_month, Q_V_sink, Q_V_inf_sink, Q_V_mech_sink, Q_V_z_sink))
|
||||
|
||||
Q_V_source = Q_V_inf_source + Q_V_mech_source + Q_V_z_source + Q_V_win_source '(2-
|
||||
|
||||
If theta_i > CalcO.Pub.theta_e(i_count_month) Then
|
||||
Q_T_e_sink = H_T_D * (theta_i - CalcO.Pub.theta_e(i_count_month)) * t_24 '(2-42)
|
||||
Else
|
||||
Q_T_e_source = H_T_D * (CalcO.Pub.theta_e(i_count_month) - theta_i) * t_24 '(2-
|
||||
End If
|
||||
|
||||
If theta_i > theta_u Then
|
||||
Q_T_u_sink = H_T_iu * (theta_i - theta_u) * t_24 '(2-46)
|
||||
Else
|
||||
Q_T_u_source = H_T_iu * (theta_u - theta_i) * t_24 '(2-
|
||||
End If
|
||||
|
||||
If theta_i > theta_z Then
|
||||
Q_T_z_sink = H_T_iz * (theta_i - theta_z) * t_24 '(2-50)
|
||||
Else
|
||||
Q_T_z_source = H_T_iz * (theta_z - theta_i) * t_24 '(2-
|
||||
End If
|
||||
|
||||
If theta_i > CalcO.Pub.theta_e(i_count_month) Then
|
||||
Q_T_s_sink = H_T_s * (theta_i - CalcO.Pub.theta_e(i_count_month)) * t_24 '(2-53) 추후수정
|
||||
Else
|
||||
Q_T_s_source = H_T_s * (CalcO.Pub.theta_e(i_count_month) - theta_i) * t_24 '(2-53) 추후수정
|
||||
End If
|
||||
|
||||
Q_T_sink = Q_T_e_sink + Q_T_u_sink + Q_T_z_sink + Q_T_s_sink '(2-12)
|
||||
Q_T_source = Q_T_e_source + Q_T_u_source + Q_T_z_source + Q_T_s_source '(2-12)
|
||||
|
||||
Q_S_sink = 0
|
||||
Q_S_source = 0
|
||||
|
||||
For Each DRF입력면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("code <> '0'") '//해당존을 사용하는 모든 입력면을 가져옴
|
||||
Select Case DRF입력면.방위.Trim ' Worksheets("입력면").Range("방위" & i_sub_wall & "").Offset(0, i_count_wall)
|
||||
Case "수평" '"수평"
|
||||
i_count_Is = 0
|
||||
Case "남" '"남"
|
||||
i_count_Is = 1
|
||||
Case "남동" '"남동"
|
||||
i_count_Is = 2
|
||||
Case "남서" '"남서"
|
||||
i_count_Is = 3
|
||||
Case "동" '"동"
|
||||
i_count_Is = 4
|
||||
Case "서" '"서"
|
||||
i_count_Is = 5
|
||||
Case "북동" '"북동"
|
||||
i_count_Is = 6
|
||||
Case "북서" '"북서"
|
||||
i_count_Is = 7
|
||||
Case "북" '"북"
|
||||
i_count_Is = 8
|
||||
'==========================================================2010.03.20 추가
|
||||
Case Else
|
||||
i_count_Is = -1
|
||||
'==========================================================2010.03.20 추가
|
||||
End Select
|
||||
|
||||
If i_count_Is <> -1 Then '=====================================2010.03.20 추가
|
||||
|
||||
|
||||
Select Case DRF입력면.건축부위방식.Trim ' Range("입력부위" & i_sub_wall & "").Offset(0, i_count_wall)
|
||||
Case "외벽" '외벽
|
||||
If alpa * CalcO.Pub.I_s(i_count_Is, i_count_month) < F_f * h_r * Delta_theta_er Then
|
||||
Q_S_sink = Q_S_sink + R_se * TOSG(T, DRF입력면.열관류율) * TOSG(T, DRF입력면.건축부위면적) * (F_f * h_r * Delta_theta_er - alpa * CalcO.Pub.I_s(i_count_Is, i_count_month)) * t_24 '(2-111)
|
||||
Else
|
||||
'Log.AppendLine("외벽 if else = " & Q_S_source)
|
||||
Q_S_source = Q_S_source + R_se * TOSG(T, DRF입력면.열관류율) * TOSG(T, DRF입력면.건축부위면적) * (alpa * CalcO.Pub.I_s(i_count_Is, i_count_month) - F_f * h_r * Delta_theta_er) * t_24 '(2-
|
||||
'Log.AppendLine(">>" & Q_S_source)
|
||||
End If
|
||||
|
||||
Case "외부창", "내부창" '=====================================2010.03.20 수정
|
||||
If TOSG(T, DRF입력면.수평차양각) < 67.5 Then 'Range("에너지투과율" & i_sub_wall & "").Offset(1, i_count_wall) < 67.5 Then
|
||||
|
||||
If DRF입력면.블라인드유무 = "유" Then ' Range("에너지투과율" & i_sub_wall & "").Offset(3, i_count_wall) = "유" Then
|
||||
Select Case DRF입력면.블라인드빛종류.Trim ' Range("에너지투과율" & i_sub_wall & "").Offset(6, i_count_wall)
|
||||
Case "불투과(t=0.0)" '불투과(t=0.0)"
|
||||
tau_e_B = 0
|
||||
Select Case DRF입력면.블라인드색상.Trim ' Range("에너지투과율" & i_sub_wall & "").Offset(7, i_count_wall)
|
||||
Case "흰색" '흰색"
|
||||
rho_e_B = 0.7
|
||||
Case "밝은색" '밝은색"
|
||||
rho_e_B = 0.5
|
||||
Case "어두운색" '어두운색"
|
||||
rho_e_B = 0.3
|
||||
Case "검은색" '검은색"
|
||||
rho_e_B = 0.1
|
||||
Case Else
|
||||
MsgBox("불투과 블라인드색상이 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
End Select
|
||||
Case "약투과(t=0.2)" '약투과(t=0.2)"
|
||||
tau_e_B = 0.2
|
||||
Select Case DRF입력면.블라인드색상.Trim 'Range("에너지투과율" & i_sub_wall & "").Offset(7, i_count_wall)
|
||||
Case "흰색"
|
||||
rho_e_B = 0.6
|
||||
Case "밝은색"
|
||||
rho_e_B = 0.4
|
||||
Case "어두운색"
|
||||
rho_e_B = 0.2
|
||||
Case "검은색"
|
||||
rho_e_B = 0.1
|
||||
Case Else
|
||||
MsgBox("약투과 블라인드색상이 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
End Select
|
||||
Case "반투과(t=0.4)" '반투과(t=0.4)"
|
||||
tau_e_B = 0.4
|
||||
Select Case DRF입력면.블라인드색상.Trim 'Range("에너지투과율" & i_sub_wall & "").Offset(7, i_count_wall)
|
||||
Case "흰색"
|
||||
rho_e_B = 0.4
|
||||
Case "밝은색"
|
||||
rho_e_B = 0.3
|
||||
Case "어두운색"
|
||||
rho_e_B = 0.2
|
||||
Case "검은색"
|
||||
rho_e_B = 0.1
|
||||
Case Else
|
||||
MsgBox("반투과 블라인드색상이 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
End Select
|
||||
End Select
|
||||
|
||||
If DRF입력면.블라인드각도 = "45도" Then ' Range("에너지투과율" & i_sub_wall & "").Offset(5, i_count_wall) = "45도" Then
|
||||
tau_e_B_corr = TOSG(T, 0.65 * tau_e_B + 0.15 * rho_e_B)
|
||||
rho_e_B_corr = TOSG(T, rho_e_B * (0.75 + 0.7 * tau_e_B))
|
||||
tau_e_B = tau_e_B_corr
|
||||
rho_e_B = rho_e_B_corr
|
||||
End If
|
||||
|
||||
g = TOSG(T, DRF입력면.투과율) ' Range("에너지투과율" & i_sub_wall & "").Offset(0, i_count_wall)
|
||||
If DRF입력면.블라인드위치.Trim <> "" AndAlso TOSG(T, DRF입력면.열관류율) = 0 Then
|
||||
MsgBox(DRF입력면.설명 & "의 열관류율이 0입니다", MsgBoxStyle.Critical, "확인")
|
||||
Else
|
||||
Select Case DRF입력면.블라인드위치.Trim 'Range("에너지투과율" & i_sub_wall & "").Offset(4, i_count_wall)
|
||||
Case "내부" '내부"
|
||||
U_blinds = TOSG(T, 1 / (1 / TOSG(T, DRF입력면.열관류율) + 1 / 30))
|
||||
g_blinds = g * (1 - g * rho_e_B - (1 - tau_e_B - rho_e_B) * U_blinds / 30)
|
||||
Case "중간" '중간"
|
||||
U_blinds = TOSG(T, 1 / (1 / TOSG(T, DRF입력면.열관류율) + 1 / 3))
|
||||
g_blinds = g * tau_e_B + g * ((1 - tau_e_B - rho_e_B) + (1 - g) * rho_e_B) * U_blinds / 3
|
||||
Case "외부" '외부"
|
||||
U_blinds = TOSG(T, 1 / (1 / TOSG(T, DRF입력면.열관류율) + 1 / 5 + 1 / 10))
|
||||
g_blinds = tau_e_B * g + (1 - tau_e_B - rho_e_B) * U_blinds / 10 + tau_e_B * (1 - g) * g / 5
|
||||
Case Else
|
||||
MsgBox("블라인드위치가 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
End Select
|
||||
End If
|
||||
'===========================================================================2010.02.27 추가
|
||||
If i_count_month = 0 Then
|
||||
If i_count_HeatCool = 1 Then
|
||||
g_blinds = (1 - CalcO.Pub.F_sh_gl(i_count_Is - 1, 1 - 1)) * g + CalcO.Pub.F_sh_gl(i_count_Is - 1, 1 - 1) * g_blinds
|
||||
Else
|
||||
g_blinds = (1 - CalcO.Pub.F_sh_gl(i_count_Is - 1, 7 - 1)) * g + CalcO.Pub.F_sh_gl(i_count_Is - 1, 7 - 1) * g_blinds
|
||||
End If
|
||||
Else
|
||||
g_blinds = (1 - CalcO.Pub.F_sh_gl(i_count_Is - 1, i_count_month - 1)) * g + CalcO.Pub.F_sh_gl(i_count_Is - 1, i_count_month - 1) * g_blinds
|
||||
End If
|
||||
'===========================================================================2010.02.27 추가
|
||||
|
||||
Else
|
||||
g_blinds = TOSG(T, DRF입력면.투과율) ' Range("에너지투과율" & i_sub_wall & "").Offset(0, i_count_wall)
|
||||
|
||||
End If
|
||||
Q_S_source = TOSG(T, Q_S_source + F__F * TOSG(T, DRF입력면.건축부위면적) * F_S * F_W * F_V * g_blinds * Math.Cos(1.33 * TOSG(T, DRF입력면.수평차양각) * 3.141592 / 180) * (1 - TOSG(T, DRF입력면.수직차양각) / 300) * CalcO.Pub.I_s(i_count_Is, i_count_month) * t_24) '(2-113)
|
||||
End If
|
||||
End Select
|
||||
End If '==========================================================2010.03.20 추가
|
||||
Next
|
||||
|
||||
Q_I_source = Q_I_source_p + Q_I_source_fac + Q_I_L '(2-20)
|
||||
Q_source = Q_S_source + Q_T_source + Q_V_source + Q_I_source '(2-16)
|
||||
If i_count_month = 0 AndAlso i_count_HeatCool = 1 Then Q_source = 0 ' 난방 최대부하 계산
|
||||
Q_sink = Q_T_sink + Q_V_sink + Q_S_sink '(2-11) Q_I_sink는 현재 고려안함
|
||||
|
||||
If Q_sink = 0 Then
|
||||
eta = 0
|
||||
Else
|
||||
gamma = Q_source / Q_sink '(2-21)
|
||||
'If gamma > 1.1 And a > 100 Then
|
||||
If gamma ^ a > 1000000 Then
|
||||
eta = 1 / gamma
|
||||
Else
|
||||
If gamma = 1 Then
|
||||
eta = a / (a + 1) '(2-24)
|
||||
Else
|
||||
eta = TOSG(T, (1 - gamma ^ a) / (1 - gamma ^ (a + 1))) '(2-23)
|
||||
End If
|
||||
End If
|
||||
|
||||
If 1 - (eta * gamma) < 0.01 Then eta = 1 / gamma '(2-137)
|
||||
If (1 - eta) * gamma < 0.01 Then eta = 1 '(2-138)
|
||||
'If V_mech >= Q_C_max / (c_p_arhoa * (theta_i - theta_mech)) Then eta = 1 '(2-139) 추후 고민
|
||||
End If
|
||||
|
||||
If i_count_HeatCool = 1 Then
|
||||
Q_h_b = Q_sink - eta * Q_source '(2-1)
|
||||
Else
|
||||
Q_h_b = (1 - eta) * Q_source '(2-7)
|
||||
End If
|
||||
|
||||
|
||||
If Q_h_b < 0.001 Then Q_h_b = 0 '1W 미만 제거
|
||||
|
||||
'========================================================2010.2.21 수정 And i_count_OpWe = 1 삭제
|
||||
If i_count_month = 0 Then
|
||||
If t_h_op_d <> 0 Then
|
||||
Q_h_b_op = Q_h_b / t_h_op_d
|
||||
Else
|
||||
Q_h_b_op = Q_h_b
|
||||
End If
|
||||
Else
|
||||
'=================================================2010.2.21 삭제
|
||||
'If i_count_OpWe = 1 Then
|
||||
'=================================================2010.2.21 삭제
|
||||
Q_h_b_op = Q_h_b * d_op_mth
|
||||
' MsgBox(i_count_month & " " & Q_h_b & " " & d_op(i_count_month) & " " & Q_h_b_op)
|
||||
'=================================================2010.2.21 삭제
|
||||
'Else
|
||||
'Q_h_b_we = Q_h_b * Calco.Pub.d_we(i_count_month)
|
||||
'=================================================2010.2.21 삭제
|
||||
Dim DRProf As DS.tbl_profile_odRow = CType(DSET1.tbl_profile_od.Select("code='0'")(0), DS.tbl_profile_odRow)
|
||||
'If DR존.조명부하산출방법 = "계산치" Then 'Worksheets("조명").Range("조명부하산출방법1").Offset(0, i_count_zone - 1) = "계산치" Then
|
||||
'Q_l_b = TOSG(T,T,DR존.조명에너지부하율계산치) * TOSG(T,T,DRProf.일일사용시간) * A_B * d_op_mth
|
||||
'Else
|
||||
'Q_l_b = TOSG(T,T,DR존.조명에너지부하율입력치) * TOSG(T,T,DRProf.일일사용시간) * A_B * d_op_mth
|
||||
'End If
|
||||
Q_l_b = TOSG(T, DR존.조명에너지부하율입력치) * TOSG(T, DRProf.일일사용시간) * A_B * d_op_mth
|
||||
Q_w_b = TOSG(T, DRProf.일일급탕요구량) * A_B * d_op_mth 'Worksheets("입력존").Range("일일급탕요구량1").Offset(0, i_count_zone - 1) * A_B * d_op(i_count_month)
|
||||
'=================================================2010.2.21 삭제
|
||||
'End If
|
||||
'=================================================2010.2.21 삭제
|
||||
End If
|
||||
'Q_h_b_mth = d_op(i_count_month) * (Q_sink_op - eta_op * Q_source_op) + d_we(i_count_month) * (Q_sink_we - eta_we * Q_source_we) '(2-6)
|
||||
'======================================2010.2.21 삭제
|
||||
'Next
|
||||
'======================================2010.2.21 삭제
|
||||
Else
|
||||
|
||||
A_B = TOSG(T, DR존.면적) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1)
|
||||
|
||||
Q_vh_b_op = 0
|
||||
Q_h_b_op = 0
|
||||
'Q_h_b_we = 0
|
||||
|
||||
'//조명부하산출방법이 계산치(0001)일경우 계산치로 그렇지않을경우 입력치로 계산함
|
||||
Dim DRProf As DS.tbl_profile_odRow = CType(DSET1.tbl_profile_od.Select("code='0'")(0), DS.tbl_profile_odRow)
|
||||
|
||||
'If DR존.조명부하산출방법 = "계산치" Then
|
||||
'Q_l_b = TOSG(T,T,DR존.조명에너지부하율계산치) * TOSG(T,T,DRProf.일일사용시간) * A_B * d_op_mth
|
||||
'Else
|
||||
'Q_l_b = TOSG(T,T,DR존.조명에너지부하율입력치) * TOSG(T,T,DRProf.일일사용시간) * A_B * d_op_mth
|
||||
'End If
|
||||
|
||||
Q_l_b = TOSG(T, DR존.조명에너지부하율입력치) * TOSG(T, DRProf.일일사용시간) * A_B * d_op_mth
|
||||
Q_w_b = TOSG(T, DRProf.일일급탕요구량) * A_B * d_op_mth '===============d_op(i_count_month) 2010.2.21 수정
|
||||
End If
|
||||
|
||||
Dim Dr최대부하 As New C최대냉난방부하OD.Citem(DR존.code) ' DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & DR존.code & "'")(0), DSR.최대냉난방부하Row)
|
||||
|
||||
If i_count_HeatCool = 1 Then
|
||||
If i_count_month = 0 Then '//0번시트는최대 냉난방부하 시트이다.
|
||||
Dr최대부하.최대난방기기부하 = TOSG(T, (Q_h_b_op) / 1000) ''=================== Q_h_b_we 2010.2.21 삭제
|
||||
'Worksheets("" & i_count_month & "").Range("최대난방부하1").Offset(0, i_count_zone - 1) = (Q_h_b_op + Q_h_b_we) / 1000
|
||||
If DR존.야간운전방식 = "가동정지" Then ' Worksheets("입력존").Range("야간가동1").Offset(0, i_count_zone - 1) = "가동정지" Then
|
||||
Dr최대부하.일일난방최대가동시간 = t_h_op_d
|
||||
'Dr최대냉난방부하.난방최대가동시간 = t_h_op_d ' Worksheets("" & i_count_month & "").Range("최대난방부하1").Offset(2, i_count_zone - 1) = t_h_op_d
|
||||
Else
|
||||
Dr최대부하.일일난방최대가동시간 = 24
|
||||
'Dr최대냉난방부하.난방최대가동시간 = 24 ' Worksheets("" & i_count_month & "").Range("최대난방부하1").Offset(2, i_count_zone - 1) = 24
|
||||
End If
|
||||
Else
|
||||
Dim Dr월에너지요구량 As New C에너지분석OD(i_count_month, DR존.code)
|
||||
|
||||
'Dim Dr월에너지요구량 As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row)
|
||||
'Dr월에너지요구량 = DSETR1.에너지분석및요구량.Rows(i_count_month - 1) '//각 월별 시트에 값을 셋트(에너지분석및요구량 테이블에 들어있다)
|
||||
If DR존.냉난방방식 = "냉난방" Or DR존.냉난방방식 = "난방" Then '//냉난방,난방
|
||||
Dr월에너지요구량.난방에너지요구량열 = TOSG(T, (Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제
|
||||
Dr월에너지요구량.난방에너지요구량공조환기 = TOSG(T, Q_vh_b_op / 1000)
|
||||
' If i_count_month = 1 Then MsgBox("1")
|
||||
'Log.AppendLine("공조값설정=" & CSng(Q_vh_b_op / 1000))
|
||||
ElseIf DR존.냉난방공조 = "냉난방" Or DR존.냉난방공조 = "난방" Then '//냉난방,난방
|
||||
Dr월에너지요구량.난방에너지요구량열 = 0
|
||||
Dr월에너지요구량.난방에너지요구량공조환기 = TOSG(T, (Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제
|
||||
|
||||
'//오류확인용 존1만 확인한다.
|
||||
'If DR존.code = "0001" Then MsgBox(DR존.냉난방방식 & vbCrLf & DR존.냉난방공조 & vbCrLf & CSng((Q_h_b_op + Q_h_b_we) / 1000), MsgBoxStyle.Information, DR존.code)
|
||||
|
||||
Else
|
||||
If (DR존.냉난방공조 = "냉방" Or DR존.냉난방공조 = "환기") And DR존.외기부하처리여부 = "예" Then '냉방/환기/"예" Then
|
||||
Dr월에너지요구량.난방에너지요구량열 = 0
|
||||
' If i_count_month = 1 Then MsgBox("3")
|
||||
Dr월에너지요구량.난방에너지요구량공조환기 = TOSG(T, Q_vh_b_op / 1000)
|
||||
Else
|
||||
' If i_count_month = 1 Then MsgBox("4")
|
||||
Dr월에너지요구량.난방에너지요구량열 = 0
|
||||
Dr월에너지요구량.난방에너지요구량공조환기 = 0
|
||||
End If
|
||||
End If
|
||||
|
||||
Dr월에너지요구량.조명에너지요구량 = Q_l_b / 1000
|
||||
|
||||
' Log.AppendLine("i_count_HeatCool=" & i_count_HeatCool & "i_count_month=" & i_count_month & ",급탕에너지요구량=" & CSng(Q_w_b / 1000))
|
||||
Dr월에너지요구량.급탕에너지요구량 = Q_w_b / 1000
|
||||
' MsgBox("난방요구량" & Dr월에너지요구량.난방요구량공조, MsgBoxStyle.Information, i_count_month & "CZONE")
|
||||
End If
|
||||
|
||||
Else
|
||||
If i_count_month = 0 Then
|
||||
Dr최대부하.최대냉방기기부하 = TOSG(T, (Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제
|
||||
'Worksheets("" & i_count_month & "").Range("최대냉방부하1").Offset(0, i_count_zone - 1) = (Q_h_b_op + Q_h_b_we) / 1000
|
||||
If DR존.야간운전방식 = "가동정지" Then '//가동정지
|
||||
Dr최대부하.일일냉방최대가동시간 = t_h_op_d ' Worksheets("" & i_count_month & "").Range("최대냉방부하1").Offset(2, i_count_zone - 1) = t_h_op_d
|
||||
Else
|
||||
Dr최대부하.일일냉방최대가동시간 = 24 'Worksheets("" & i_count_month & "").Range("최대냉방부하1").Offset(2, i_count_zone - 1) = 24
|
||||
End If
|
||||
|
||||
Else
|
||||
Dim Dr월에너지요구량 As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row)
|
||||
If DR존.냉난방방식 = "냉난방" Or DR존.냉난방방식 = "냉방" Then '//냉난방/냉방
|
||||
Dr월에너지요구량.냉방요구량열 = TOSG(T, (Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제
|
||||
Dr월에너지요구량.냉방요구량공조 = TOSG(T, Q_vh_b_op / 1000)
|
||||
Else
|
||||
If DR존.냉난방공조 = "냉난방" Or DR존.냉난방공조 = "냉방" Then '//냉난방/냉방
|
||||
Dr월에너지요구량.냉방요구량열 = 0
|
||||
Dr월에너지요구량.냉방요구량공조 = TOSG(T, (Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제
|
||||
Else
|
||||
If (DR존.냉난방공조 = "난방" Or DR존.냉난방공조 = "환기") And DR존.냉난방공조 = "예" Then '//난방/환기/예
|
||||
Dr월에너지요구량.냉방요구량열 = 0
|
||||
Dr월에너지요구량.냉방요구량공조 = TOSG(T, Q_vh_b_op / 1000)
|
||||
Else
|
||||
Dr월에너지요구량.냉방요구량열 = 0
|
||||
Dr월에너지요구량.냉방요구량공조 = 0
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
'MsgBox("냉방요구량" & Dr월에너지요구량.냉방요구량공조, MsgBoxStyle.Information, i_count_month & "CZONE")
|
||||
End If
|
||||
End If
|
||||
Next '(3)
|
||||
|
||||
Dim CAir As New CAirHandlingOD
|
||||
If i_count_month = 0 Then
|
||||
CAir.Calc_Max_Power(i_count_HeatCool) '//AIR HANDLING 모듈 에 존재함..역시 내용이 크다 ㅠ_ㅠ
|
||||
End If
|
||||
|
||||
Next '(2)
|
||||
Next '(1)
|
||||
|
||||
Work_msg("에너지분석데이터 집계중...")
|
||||
Frm_Work.ProgressBar1.Maximum = 13
|
||||
Frm_Work.ProgressBar1.Minimum = 0
|
||||
Frm_Work.ProgressBar1.Value = 0
|
||||
Frm_Work.TopMost = True
|
||||
Frm_Work.Show()
|
||||
'//요구량 계산이 완료되었으므로 Summary 계산한다. (이것이 없어서 소요량이 오류났음)
|
||||
For Each Dr As C에너지분석OD In Result1o.E분석 '//12달치의 각존들의 데이터를 가지고 합계내역을 추린다.
|
||||
Work_plus()
|
||||
Dr.Calc()
|
||||
Next
|
||||
DSETR1.AcceptChanges()
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' (main2)소요량 계산
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public Function Calc_Useage() As Boolean
|
||||
'Dim d_op_month As Integer
|
||||
Dim theta_e_month As Decimal
|
||||
Dim d_full_mth As Integer
|
||||
|
||||
Work_msg("소요량계산중...")
|
||||
Frm_Work.ProgressBar1.Maximum = 12
|
||||
Frm_Work.ProgressBar1.Minimum = 0
|
||||
Frm_Work.ProgressBar1.Value = 0
|
||||
Frm_Work.TopMost = True
|
||||
Frm_Work.Show()
|
||||
|
||||
For i_count_month As Short = 1 To 12 '//월별로 난/냉방 소요량을 계산
|
||||
Work_msg("소요량계산중..." & "(" & i_count_month & "/12)") : Work_plus()
|
||||
'===============================================2010.2.21 수정
|
||||
'd_op_month = d_op(i_count_month)
|
||||
d_full_mth = CInt(Calco.Pub.d_full(i_count_month))
|
||||
'===============================================2010.2.21 수정
|
||||
theta_e_month = Calco.Pub.theta_e(i_count_month)
|
||||
|
||||
'///난방
|
||||
Calco.Heating.Calc_WaterheatingSystem(i_count_month, d_full_mth, theta_e_month) '//급탕소요량 '========2010.2.21 수정
|
||||
Calco.AirHandling.Calc_AirHandling(i_count_month, d_full_mth) '//환기? '========2010.2.21 수정
|
||||
If Result1o.E분석(i_count_month).난방에너지요구량 <> 0 Then Calco.Heating.Calc_HeatingSystem(i_count_month, theta_e_month) '//난방소요량
|
||||
|
||||
'///냉방
|
||||
If Result1o.E분석(i_count_month).냉방에너지요구량 <> 0 Then Calco.Cooling.Calc_CoolingSystem(i_count_month, theta_e_month)
|
||||
Next
|
||||
DSETR1.AcceptChanges()
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
29
ArinWarev1/Control/YkCtl.Designer.vb
generated
Normal file
29
ArinWarev1/Control/YkCtl.Designer.vb
generated
Normal file
@@ -0,0 +1,29 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class YkCtl
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
160
ArinWarev1/Control/YkCtl.vb
Normal file
160
ArinWarev1/Control/YkCtl.vb
Normal file
@@ -0,0 +1,160 @@
|
||||
Public Class YkCtl
|
||||
Structure SM
|
||||
Private vStyle As Drawing2D.HatchStyle
|
||||
Private vwidth As Single, vHeight As Single
|
||||
Private vFColor As Color
|
||||
Private vBColor As Color
|
||||
|
||||
Property Style() As Drawing2D.HatchStyle
|
||||
Get
|
||||
Return Me.vStyle
|
||||
End Get
|
||||
Set(ByVal value As Drawing2D.HatchStyle)
|
||||
Me.vStyle = value
|
||||
End Set
|
||||
End Property
|
||||
Property Width() As Single
|
||||
Get
|
||||
Return Me.vwidth
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Me.vwidth = value
|
||||
End Set
|
||||
End Property
|
||||
Property Height() As Single
|
||||
Get
|
||||
Return Me.vHeight
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Me.vHeight = value
|
||||
End Set
|
||||
End Property
|
||||
Property FColor() As Color
|
||||
Get
|
||||
Return Me.vFColor
|
||||
End Get
|
||||
Set(ByVal value As Color)
|
||||
Me.vFColor = value
|
||||
End Set
|
||||
End Property
|
||||
Property BColor() As Color
|
||||
Get
|
||||
Return Me.vBColor
|
||||
End Get
|
||||
Set(ByVal value As Color)
|
||||
Me.vBColor = value
|
||||
End Set
|
||||
End Property
|
||||
End Structure
|
||||
|
||||
Dim vMFilltype(0) As SM
|
||||
Dim vVertical As Boolean = True
|
||||
Dim vMaxWidth As Single = Me.Width '//총너비
|
||||
|
||||
Property MaxSize() As Single
|
||||
Get
|
||||
Return (vMaxWidth)
|
||||
End Get
|
||||
Set(ByVal value As Single)
|
||||
Me.vMaxWidth = value
|
||||
Me.Refresh()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Vertical() As Boolean '//그림이 세로형태?
|
||||
Get
|
||||
Return (vVertical)
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
Me.vVertical = value
|
||||
Me.Refresh()
|
||||
' MsgBox(value)
|
||||
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property M1FillType() As SM()
|
||||
Get
|
||||
Return (Me.vMFilltype)
|
||||
End Get
|
||||
Set(ByVal value As SM())
|
||||
Me.vMFilltype = value
|
||||
Me.Refresh()
|
||||
' MsgBox("sdf")
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Sub UserControl1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
|
||||
If Me.vMFilltype Is Nothing OrElse Me.MaxSize <= 0 Then Return
|
||||
Dim G As Graphics = e.Graphics
|
||||
|
||||
Dim Rect As Rectangle
|
||||
Dim W As Single
|
||||
' If Me.MaxWidth <> 0 Then
|
||||
For i As Integer = 0 To Me.M1FillType.GetUpperBound(0) '//갯수만큼 돈다
|
||||
'//해당 사각형의 Rectangle 을 생성
|
||||
If i = 0 Then
|
||||
If Me.Vertical Then
|
||||
W = Me.Width / Me.MaxSize * Me.M1FillType(i).Width
|
||||
Rect = New Rectangle(0, 5, W, Me.Height - 10)
|
||||
Else
|
||||
W = Me.Height / Me.MaxSize * Me.M1FillType(i).Width
|
||||
Rect = New Rectangle(5, 0, Me.Width - 10, W)
|
||||
End If
|
||||
Else
|
||||
If Me.Vertical Then
|
||||
W = Me.Width / Me.MaxSize * Me.M1FillType(i).Width
|
||||
Rect = New Rectangle(GetWidth(i), 5, W, Me.Height - 10)
|
||||
Else
|
||||
W = Me.Height / Me.MaxSize * Me.M1FillType(i).Width
|
||||
Rect = New Rectangle(5, GetWidth(i), Me.Width - 10, W)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Try
|
||||
Dim B As New System.Drawing.Drawing2D.HatchBrush(Me.M1FillType(i).Style, Me.M1FillType(i).FColor, Me.M1FillType(i).BColor)
|
||||
G.FillRectangle(B, Rect)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Next
|
||||
|
||||
For i As Integer = 0 To Me.M1FillType.GetUpperBound(0) '//갯수만큼 돈다
|
||||
If Vertical Then
|
||||
If i = 0 Then
|
||||
W = Me.Width / Me.MaxSize * Me.M1FillType(i).Width
|
||||
Rect = New Rectangle(0, 5, W, Me.Height - 10)
|
||||
Else
|
||||
W = Me.Width / Me.MaxSize * Me.M1FillType(i).Width
|
||||
Rect = New Rectangle(GetWidth(i), 5, W, Me.Height - 10)
|
||||
End If
|
||||
If i <> 0 Then ' AndAlso i <> Me.M1FillType.GetUpperBound(0) Then
|
||||
G.DrawLine(New Pen(Color.Black), Rect.X, 5, Rect.X, Me.Height - 5)
|
||||
End If
|
||||
Else
|
||||
If i = 0 Then
|
||||
W = Me.Height / Me.MaxSize * Me.M1FillType(i).Width
|
||||
Rect = New Rectangle(5, 0, Me.Width - 10, W)
|
||||
Else
|
||||
W = Me.Height / Me.MaxSize * Me.M1FillType(i).Width
|
||||
Rect = New Rectangle(5, GetWidth(i), Me.Width - 10, W)
|
||||
End If
|
||||
If i <> 0 Then 'AndAlso i <> Me.M1FillType.GetUpperBound(0) Then
|
||||
G.DrawLine(New Pen(Color.Black), 5, Rect.Y, Me.Width - 5, Rect.Y)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
G.DrawRectangle(New Pen(Color.Black), New Rectangle(0, 0, Me.Width - 2, Me.Height - 2))
|
||||
G.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Function GetWidth(ByVal idx As Integer) As Single
|
||||
Dim Retval As Single = 0
|
||||
For i As Integer = 0 To idx - 1
|
||||
|
||||
Retval += IIf(Me.Vertical = True, Me.Width, Me.Height) / Me.MaxSize * Me.M1FillType(i).Width
|
||||
Next
|
||||
Return Retval
|
||||
End Function
|
||||
End Class
|
||||
55139
ArinWarev1/DataSet/DS.Designer.vb
generated
Normal file
55139
ArinWarev1/DataSet/DS.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
4
ArinWarev1/DataSet/DS.vb
Normal file
4
ArinWarev1/DataSet/DS.vb
Normal file
@@ -0,0 +1,4 @@
|
||||
|
||||
|
||||
Partial Public Class DS
|
||||
End Class
|
||||
9
ArinWarev1/DataSet/DS.xsc
Normal file
9
ArinWarev1/DataSet/DS.xsc
Normal file
@@ -0,0 +1,9 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--<autogenerated>
|
||||
This code was generated by a tool.
|
||||
Changes to this file may cause incorrect behavior and will be lost if
|
||||
the code is regenerated.
|
||||
</autogenerated>-->
|
||||
<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TableUISettings />
|
||||
</DataSetUISetting>
|
||||
4875
ArinWarev1/DataSet/DS.xsd
Normal file
4875
ArinWarev1/DataSet/DS.xsd
Normal file
File diff suppressed because one or more lines are too long
50
ArinWarev1/DataSet/DS.xss
Normal file
50
ArinWarev1/DataSet/DS.xss
Normal file
@@ -0,0 +1,50 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--<autogenerated>
|
||||
This code was generated by a tool to store the dataset designer's layout information.
|
||||
Changes to this file may cause incorrect behavior and will be lost if
|
||||
the code is regenerated.
|
||||
</autogenerated>-->
|
||||
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-12" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
|
||||
<Shapes>
|
||||
<Shape ID="DesignTable:tbl_profile_od" ZOrder="1" X="27" Y="-2" Height="305" Width="225" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
|
||||
<Shape ID="DesignTable:weather_group" ZOrder="31" X="168" Y="0" Height="305" Width="233" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
|
||||
<Shape ID="DesignTable:tbl_weather_od" ZOrder="20" X="163" Y="174" Height="305" Width="234" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
|
||||
<Shape ID="DesignTable:weather_cha_od" ZOrder="17" X="191" Y="387" Height="305" Width="238" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
|
||||
<Shape ID="DesignTable:weather_supdo_od" ZOrder="11" X="419" Y="157" Height="229" Width="254" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
|
||||
<Shape ID="DesignTable:tbl_common_od" ZOrder="23" X="78" Y="250" Height="172" Width="238" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
|
||||
<Shape ID="DesignTable:weather_ilsa_od" ZOrder="15" X="230" Y="182" Height="305" Width="237" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
|
||||
<Shape ID="DesignTable:weather_temp_od" ZOrder="14" X="334" Y="217" Height="305" Width="249" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
|
||||
<Shape ID="DesignTable:weather_ilsa" ZOrder="16" X="255" Y="174" Height="305" Width="244" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
|
||||
<Shape ID="DesignTable:tbl_nanbangkiki" ZOrder="9" X="1512" Y="0" Height="808" Width="159" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="804" />
|
||||
<Shape ID="DesignTable:tbl_nangbangkiki" ZOrder="8" X="1754" Y="167" Height="466" Width="166" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="462" />
|
||||
<Shape ID="DesignTable:tbl_bunbae" ZOrder="4" X="1931" Y="69" Height="257" Width="153" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_pic" ZOrder="3" X="2012" Y="-2" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
|
||||
<Shape ID="DesignTable:tbl_myoun" ZOrder="7" X="696" Y="165" Height="619" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="615" />
|
||||
<Shape ID="DesignTable:tbl_buha" ZOrder="39" X="910" Y="10" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_nbunbae" ZOrder="38" X="1078" Y="10" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_yk" ZOrder="26" X="140" Y="20" Height="257" Width="153" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_new" ZOrder="10" X="940" Y="291" Height="486" Width="153" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="482" />
|
||||
<Shape ID="DesignTable:tbl_kongjo" ZOrder="2" X="739" Y="16" Height="447" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="443" />
|
||||
<Shape ID="DesignTable:tbl_monuse" ZOrder="37" X="481" Y="127" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
|
||||
<Shape ID="DesignTable:tbl_mach" ZOrder="36" X="980" Y="20" Height="86" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="82" />
|
||||
<Shape ID="DesignTable:tbl_ykdetail" ZOrder="32" X="1148" Y="20" Height="429" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="425" />
|
||||
<Shape ID="DesignTable:tbl_zone" ZOrder="35" X="1316" Y="20" Height="257" Width="177" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_Desc" ZOrder="24" X="1484" Y="20" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_elect" ZOrder="5" X="1965" Y="280" Height="372" Width="177" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="368" />
|
||||
<Shape ID="DesignTable:tbl_new_energy" ZOrder="34" X="1630" Y="145" Height="314" Width="156" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="310" />
|
||||
<Shape ID="DesignTable:tbl_new_ground" ZOrder="30" X="1316" Y="477" Height="200" Width="159" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="196" />
|
||||
<Shape ID="DesignTable:tbl_new_light" ZOrder="28" X="2164" Y="15" Height="391" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="387" />
|
||||
<Shape ID="DesignTable:tbl_light" ZOrder="27" X="2324" Y="20" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="158" />
|
||||
<Shape ID="DesignTable:tbl_danmal" ZOrder="6" X="2492" Y="20" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
|
||||
<Shape ID="DesignTable:tbl_type" ZOrder="33" X="2660" Y="20" Height="162" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="158" />
|
||||
<Shape ID="DesignTable:tbl_new_열병합" ZOrder="29" X="1140" Y="469" Height="162" Width="153" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="158" />
|
||||
<Shape ID="DesignTable:tbl_ReqInfo" ZOrder="25" X="1330" Y="318" Height="257" Width="177" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_common" ZOrder="22" X="83" Y="451" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="120" />
|
||||
<Shape ID="DesignTable:tbl_profile" ZOrder="21" X="127" Y="481" Height="304" Width="189" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="300" />
|
||||
<Shape ID="DesignTable:tbl_weather" ZOrder="19" X="240" Y="508" Height="304" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="300" />
|
||||
<Shape ID="DesignTable:weather_cha" ZOrder="18" X="336" Y="518" Height="304" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="300" />
|
||||
<Shape ID="DesignTable:weather_temp" ZOrder="13" X="294" Y="276" Height="304" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="300" />
|
||||
<Shape ID="DesignTable:weather_supdo" ZOrder="12" X="438" Y="232" Height="304" Width="154" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="300" />
|
||||
</Shapes>
|
||||
<Connectors />
|
||||
</DiagramLayout>
|
||||
18423
ArinWarev1/DataSet/DSR.Designer.vb
generated
Normal file
18423
ArinWarev1/DataSet/DSR.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
15
ArinWarev1/DataSet/DSR.vb
Normal file
15
ArinWarev1/DataSet/DSR.vb
Normal file
@@ -0,0 +1,15 @@
|
||||
|
||||
|
||||
Partial Public Class DSR
|
||||
|
||||
Partial Class 사용면적DataTable
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Partial Class Pyonga_YKDataTable
|
||||
|
||||
End Class
|
||||
|
||||
End Class
|
||||
9
ArinWarev1/DataSet/DSR.xsc
Normal file
9
ArinWarev1/DataSet/DSR.xsc
Normal file
@@ -0,0 +1,9 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--<autogenerated>
|
||||
This code was generated by a tool.
|
||||
Changes to this file may cause incorrect behavior and will be lost if
|
||||
the code is regenerated.
|
||||
</autogenerated>-->
|
||||
<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TableUISettings />
|
||||
</DataSetUISetting>
|
||||
442
ArinWarev1/DataSet/DSR.xsd
Normal file
442
ArinWarev1/DataSet/DSR.xsd
Normal file
@@ -0,0 +1,442 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<xs:schema id="DSR" targetNamespace="http://tempuri.org/DSR.xsd" xmlns:mstns="http://tempuri.org/DSR.xsd" xmlns="http://tempuri.org/DSR.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:msprop="urn:schemas-microsoft-com:xml-msprop" attributeFormDefault="qualified" elementFormDefault="qualified">
|
||||
<xs:annotation>
|
||||
<xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<Connections />
|
||||
<Tables />
|
||||
<Sources />
|
||||
</DataSource>
|
||||
</xs:appinfo>
|
||||
</xs:annotation>
|
||||
<xs:element name="DSR" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:Generator_DataSetName="DSR" msprop:Generator_UserDSName="DSR">
|
||||
<xs:complexType>
|
||||
<xs:choice minOccurs="0" maxOccurs="unbounded">
|
||||
<xs:element name="최대냉난방부하" msprop:Generator_UserTableName="최대냉난방부하" msprop:Generator_RowEvArgName="최대냉난방부하RowChangeEvent" msprop:Generator_TableVarName="table최대냉난방부하" msprop:Generator_TablePropName="최대냉난방부하" msprop:Generator_RowDeletingName="최대냉난방부하RowDeleting" msprop:Generator_RowChangingName="최대냉난방부하RowChanging" msprop:Generator_RowDeletedName="최대냉난방부하RowDeleted" msprop:Generator_RowEvHandlerName="최대냉난방부하RowChangeEventHandler" msprop:Generator_TableClassName="최대냉난방부하DataTable" msprop:Generator_RowChangedName="최대냉난방부하RowChanged" msprop:Generator_RowClassName="최대냉난방부하Row">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Zone" msprop:Generator_ColumnVarNameInTable="columnZone" msprop:Generator_ColumnPropNameInRow="Zone" msprop:Generator_ColumnPropNameInTable="ZoneColumn" msprop:Generator_UserColumnName="Zone" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="최대난방기기부하" msprop:Generator_ColumnVarNameInTable="column최대난방기기부하" msprop:Generator_ColumnPropNameInRow="최대난방기기부하" msprop:Generator_ColumnPropNameInTable="최대난방기기부하Column" msprop:Generator_UserColumnName="최대난방기기부하" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="최대난방실내부하" msprop:Generator_ColumnVarNameInTable="column최대난방실내부하" msprop:Generator_ColumnPropNameInRow="최대난방실내부하" msprop:Generator_ColumnPropNameInTable="최대난방실내부하Column" msprop:Generator_UserColumnName="최대난방실내부하" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="난방최대가동시간" msprop:Generator_ColumnVarNameInTable="column난방최대가동시간" msprop:Generator_ColumnPropNameInRow="난방최대가동시간" msprop:Generator_ColumnPropNameInTable="난방최대가동시간Column" msprop:Generator_UserColumnName="난방최대가동시간" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="최대가열성능" msprop:Generator_ColumnVarNameInTable="column최대가열성능" msprop:Generator_ColumnPropNameInRow="최대가열성능" msprop:Generator_ColumnPropNameInTable="최대가열성능Column" msprop:Generator_UserColumnName="최대가열성능" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="최대냉방기기부하" msprop:Generator_ColumnVarNameInTable="column최대냉방기기부하" msprop:Generator_ColumnPropNameInRow="최대냉방기기부하" msprop:Generator_ColumnPropNameInTable="최대냉방기기부하Column" msprop:Generator_UserColumnName="최대냉방기기부하" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="최대냉방실내부하" msprop:Generator_ColumnVarNameInTable="column최대냉방실내부하" msprop:Generator_ColumnPropNameInRow="최대냉방실내부하" msprop:Generator_ColumnPropNameInTable="최대냉방실내부하Column" msprop:Generator_UserColumnName="최대냉방실내부하" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방최대가동시간" msprop:Generator_ColumnVarNameInTable="column냉방최대가동시간" msprop:Generator_ColumnPropNameInRow="냉방최대가동시간" msprop:Generator_ColumnPropNameInTable="냉방최대가동시간Column" msprop:Generator_UserColumnName="냉방최대가동시간" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="최대냉각성능" msprop:Generator_ColumnVarNameInTable="column최대냉각성능" msprop:Generator_ColumnPropNameInRow="최대냉각성능" msprop:Generator_ColumnPropNameInTable="최대냉각성능Column" msprop:Generator_UserColumnName="최대냉각성능" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="최대가습성능" msprop:Generator_ColumnVarNameInTable="column최대가습성능" msprop:Generator_ColumnPropNameInRow="최대가습성능" msprop:Generator_ColumnPropNameInTable="최대가습성능Column" msprop:Generator_UserColumnName="최대가습성능" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="공조풍량" msprop:Generator_ColumnVarNameInTable="column공조풍량" msprop:Generator_ColumnPropNameInRow="공조풍량" msprop:Generator_ColumnPropNameInTable="공조풍량Column" msprop:Generator_UserColumnName="공조풍량" type="xs:decimal" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="월별에너지분석" msprop:Generator_UserTableName="월별에너지분석" msprop:Generator_RowEvArgName="월별에너지분석RowChangeEvent" msprop:Generator_TableVarName="table월별에너지분석" msprop:Generator_TablePropName="월별에너지분석" msprop:Generator_RowDeletingName="월별에너지분석RowDeleting" msprop:Generator_RowChangingName="월별에너지분석RowChanging" msprop:Generator_RowDeletedName="월별에너지분석RowDeleted" msprop:Generator_RowEvHandlerName="월별에너지분석RowChangeEventHandler" msprop:Generator_TableClassName="월별에너지분석DataTable" msprop:Generator_RowChangedName="월별에너지분석RowChanged" msprop:Generator_RowClassName="월별에너지분석Row">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="월" msprop:nullValue="_empty" msprop:Generator_ColumnPropNameInRow="월" msprop:Generator_ColumnVarNameInTable="column월" msprop:Generator_ColumnPropNameInTable="월Column" msprop:Generator_UserColumnName="월" type="xs:string" default="" />
|
||||
<xs:element name="존" msprop:nullValue="_empty" msprop:Generator_ColumnPropNameInRow="존" msprop:Generator_ColumnVarNameInTable="column존" msprop:Generator_ColumnPropNameInTable="존Column" msprop:Generator_UserColumnName="존" type="xs:string" default="" />
|
||||
<xs:element name="난방요구량열" msprop:Generator_ColumnVarNameInTable="column난방요구량열" msprop:Generator_ColumnPropNameInRow="난방요구량열" msprop:Generator_ColumnPropNameInTable="난방요구량열Column" msprop:Generator_UserColumnName="난방요구량열" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="난방요구량공조" msprop:Generator_ColumnVarNameInTable="column난방요구량공조" msprop:Generator_ColumnPropNameInRow="난방요구량공조" msprop:Generator_ColumnPropNameInTable="난방요구량공조Column" msprop:Generator_UserColumnName="난방요구량공조" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방요구량열" msprop:Generator_ColumnVarNameInTable="column냉방요구량열" msprop:Generator_ColumnPropNameInRow="냉방요구량열" msprop:Generator_ColumnPropNameInTable="냉방요구량열Column" msprop:Generator_UserColumnName="냉방요구량열" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방요구량공조" msprop:Generator_ColumnVarNameInTable="column냉방요구량공조" msprop:Generator_ColumnPropNameInRow="냉방요구량공조" msprop:Generator_ColumnPropNameInTable="냉방요구량공조Column" msprop:Generator_UserColumnName="냉방요구량공조" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="조명요구량" msprop:Generator_ColumnVarNameInTable="column조명요구량" msprop:Generator_ColumnPropNameInRow="조명요구량" msprop:Generator_ColumnPropNameInTable="조명요구량Column" msprop:Generator_UserColumnName="조명요구량" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕요구량" msprop:Generator_ColumnVarNameInTable="column급탕요구량" msprop:Generator_ColumnPropNameInRow="급탕요구량" msprop:Generator_ColumnPropNameInTable="급탕요구량Column" msprop:Generator_UserColumnName="급탕요구량" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="공조풍량" msprop:Generator_ColumnVarNameInTable="column공조풍량" msprop:Generator_ColumnPropNameInRow="공조풍량" msprop:Generator_ColumnPropNameInTable="공조풍량Column" msprop:Generator_UserColumnName="공조풍량" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="공조요구량난방" msprop:Generator_ColumnVarNameInTable="column공조요구량난방" msprop:Generator_ColumnPropNameInRow="공조요구량난방" msprop:Generator_ColumnPropNameInTable="공조요구량난방Column" msprop:Generator_UserColumnName="공조요구량난방" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="공조요구량냉방" msprop:Generator_ColumnVarNameInTable="column공조요구량냉방" msprop:Generator_ColumnPropNameInRow="공조요구량냉방" msprop:Generator_ColumnPropNameInTable="공조요구량냉방Column" msprop:Generator_UserColumnName="공조요구량냉방" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="공조요구량가습" msprop:Generator_ColumnVarNameInTable="column공조요구량가습" msprop:Generator_ColumnPropNameInRow="공조요구량가습" msprop:Generator_ColumnPropNameInTable="공조요구량가습Column" msprop:Generator_UserColumnName="공조요구량가습" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="환기요구량" msprop:Generator_ColumnVarNameInTable="column환기요구량" msprop:Generator_ColumnPropNameInRow="환기요구량" msprop:Generator_ColumnPropNameInTable="환기요구량Column" msprop:Generator_UserColumnName="환기요구량" type="xs:decimal" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="TReqUse" msprop:Generator_UserTableName="TReqUse" msprop:Generator_RowEvArgName="TReqUseRowChangeEvent" msprop:Generator_TableVarName="tableTReqUse" msprop:Generator_TablePropName="TReqUse" msprop:Generator_RowDeletingName="TReqUseRowDeleting" msprop:Generator_RowChangingName="TReqUseRowChanging" msprop:Generator_RowDeletedName="TReqUseRowDeleted" msprop:Generator_RowEvHandlerName="TReqUseRowChangeEventHandler" msprop:Generator_TableClassName="TReqUseDataTable" msprop:Generator_RowChangedName="TReqUseRowChanged" msprop:Generator_RowClassName="TReqUseRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Code" msprop:Generator_ColumnVarNameInTable="columnCode" msprop:Generator_ColumnPropNameInRow="Code" msprop:Generator_ColumnPropNameInTable="CodeColumn" msprop:Generator_UserColumnName="Code" type="xs:string" />
|
||||
<xs:element name="Desc" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="Desc" msprop:Generator_ColumnVarNameInTable="columnDesc" msprop:Generator_ColumnPropNameInTable="DescColumn" msprop:Generator_UserColumnName="Desc" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="GRP" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="GRP" msprop:Generator_ColumnVarNameInTable="columnGRP" msprop:Generator_ColumnPropNameInTable="GRPColumn" msprop:Generator_UserColumnName="GRP" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="UNIT" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="UNIT" msprop:Generator_ColumnVarNameInTable="columnUNIT" msprop:Generator_ColumnPropNameInTable="UNITColumn" msprop:Generator_UserColumnName="UNIT" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="SIGN" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="SIGN" msprop:Generator_ColumnVarNameInTable="columnSIGN" msprop:Generator_ColumnPropNameInTable="SIGNColumn" msprop:Generator_UserColumnName="SIGN" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="EQ" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="EQ" msprop:Generator_ColumnVarNameInTable="columnEQ" msprop:Generator_ColumnPropNameInTable="EQColumn" msprop:Generator_UserColumnName="EQ" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="M00" msprop:Generator_ColumnVarNameInTable="columnM00" msprop:Generator_ColumnPropNameInRow="M00" msprop:Generator_ColumnPropNameInTable="M00Column" msprop:Generator_UserColumnName="M00" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="M01" msprop:Generator_ColumnVarNameInTable="columnM01" msprop:Generator_ColumnPropNameInRow="M01" msprop:Generator_ColumnPropNameInTable="M01Column" msprop:Generator_UserColumnName="M01" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="M02" msprop:Generator_ColumnVarNameInTable="columnM02" msprop:Generator_ColumnPropNameInRow="M02" msprop:Generator_ColumnPropNameInTable="M02Column" msprop:Generator_UserColumnName="M02" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="M03" msprop:Generator_ColumnVarNameInTable="columnM03" msprop:Generator_ColumnPropNameInRow="M03" msprop:Generator_ColumnPropNameInTable="M03Column" msprop:Generator_UserColumnName="M03" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="M04" msprop:Generator_ColumnVarNameInTable="columnM04" msprop:Generator_ColumnPropNameInRow="M04" msprop:Generator_ColumnPropNameInTable="M04Column" msprop:Generator_UserColumnName="M04" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="M05" msprop:Generator_ColumnVarNameInTable="columnM05" msprop:Generator_ColumnPropNameInRow="M05" msprop:Generator_ColumnPropNameInTable="M05Column" msprop:Generator_UserColumnName="M05" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="M06" msprop:Generator_ColumnVarNameInTable="columnM06" msprop:Generator_ColumnPropNameInRow="M06" msprop:Generator_ColumnPropNameInTable="M06Column" msprop:Generator_UserColumnName="M06" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="M07" msprop:Generator_ColumnVarNameInTable="columnM07" msprop:Generator_ColumnPropNameInRow="M07" msprop:Generator_ColumnPropNameInTable="M07Column" msprop:Generator_UserColumnName="M07" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="M08" msprop:Generator_ColumnVarNameInTable="columnM08" msprop:Generator_ColumnPropNameInRow="M08" msprop:Generator_ColumnPropNameInTable="M08Column" msprop:Generator_UserColumnName="M08" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="M09" msprop:Generator_ColumnVarNameInTable="columnM09" msprop:Generator_ColumnPropNameInRow="M09" msprop:Generator_ColumnPropNameInTable="M09Column" msprop:Generator_UserColumnName="M09" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="M10" msprop:Generator_ColumnVarNameInTable="columnM10" msprop:Generator_ColumnPropNameInRow="M10" msprop:Generator_ColumnPropNameInTable="M10Column" msprop:Generator_UserColumnName="M10" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="M11" msprop:Generator_ColumnVarNameInTable="columnM11" msprop:Generator_ColumnPropNameInRow="M11" msprop:Generator_ColumnPropNameInTable="M11Column" msprop:Generator_UserColumnName="M11" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="M12" msprop:Generator_ColumnVarNameInTable="columnM12" msprop:Generator_ColumnPropNameInRow="M12" msprop:Generator_ColumnPropNameInTable="M12Column" msprop:Generator_UserColumnName="M12" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="F" msprop:nullValue="N0" msprop:Generator_ColumnPropNameInRow="F" msprop:Generator_ColumnVarNameInTable="columnF" msprop:Generator_ColumnPropNameInTable="FColumn" msprop:Generator_UserColumnName="F" type="xs:string" default="" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Graph_Req" msprop:Generator_UserTableName="Graph_Req" msprop:Generator_RowEvArgName="Graph_ReqRowChangeEvent" msprop:Generator_TableVarName="tableGraph_Req" msprop:Generator_TablePropName="Graph_Req" msprop:Generator_RowDeletingName="Graph_ReqRowDeleting" msprop:Generator_RowChangingName="Graph_ReqRowChanging" msprop:Generator_RowDeletedName="Graph_ReqRowDeleted" msprop:Generator_RowEvHandlerName="Graph_ReqRowChangeEventHandler" msprop:Generator_TableClassName="Graph_ReqDataTable" msprop:Generator_RowChangedName="Graph_ReqRowChanged" msprop:Generator_RowClassName="Graph_ReqRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Gubun" msprop:Generator_ColumnVarNameInTable="columnGubun" msprop:Generator_ColumnPropNameInRow="Gubun" msprop:Generator_ColumnPropNameInTable="GubunColumn" msprop:Generator_UserColumnName="Gubun" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="Mon" msprop:Generator_ColumnVarNameInTable="columnMon" msprop:Generator_ColumnPropNameInRow="Mon" msprop:Generator_ColumnPropNameInTable="MonColumn" msprop:Generator_UserColumnName="Mon" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="Req" msprop:Generator_ColumnVarNameInTable="columnReq" msprop:Generator_ColumnPropNameInRow="Req" msprop:Generator_ColumnPropNameInTable="ReqColumn" msprop:Generator_UserColumnName="Req" type="xs:decimal" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Graph_ReqUse" msprop:Generator_UserTableName="Graph_ReqUse" msprop:Generator_RowEvArgName="Graph_ReqUseRowChangeEvent" msprop:Generator_TableVarName="tableGraph_ReqUse" msprop:Generator_TablePropName="Graph_ReqUse" msprop:Generator_RowDeletingName="Graph_ReqUseRowDeleting" msprop:Generator_RowChangingName="Graph_ReqUseRowChanging" msprop:Generator_RowDeletedName="Graph_ReqUseRowDeleted" msprop:Generator_RowEvHandlerName="Graph_ReqUseRowChangeEventHandler" msprop:Generator_TableClassName="Graph_ReqUseDataTable" msprop:Generator_RowChangedName="Graph_ReqUseRowChanged" msprop:Generator_RowClassName="Graph_ReqUseRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Gubun" msprop:Generator_ColumnVarNameInTable="columnGubun" msprop:Generator_ColumnPropNameInRow="Gubun" msprop:Generator_ColumnPropNameInTable="GubunColumn" msprop:Generator_UserColumnName="Gubun" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="type" msdata:Caption="Mon" msprop:Generator_ColumnVarNameInTable="columntype" msprop:Generator_ColumnPropNameInRow="type" msprop:Generator_ColumnPropNameInTable="typeColumn" msprop:Generator_UserColumnName="type" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="Req" msprop:Generator_ColumnVarNameInTable="columnReq" msprop:Generator_ColumnPropNameInRow="Req" msprop:Generator_ColumnPropNameInTable="ReqColumn" msprop:Generator_UserColumnName="Req" type="xs:decimal" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Graph_Info" msprop:Generator_UserTableName="Graph_Info" msprop:Generator_RowEvArgName="Graph_InfoRowChangeEvent" msprop:Generator_TableVarName="tableGraph_Info" msprop:Generator_TablePropName="Graph_Info" msprop:Generator_RowDeletingName="Graph_InfoRowDeleting" msprop:Generator_RowChangingName="Graph_InfoRowChanging" msprop:Generator_RowDeletedName="Graph_InfoRowDeleted" msprop:Generator_RowEvHandlerName="Graph_InfoRowChangeEventHandler" msprop:Generator_TableClassName="Graph_InfoDataTable" msprop:Generator_RowChangedName="Graph_InfoRowChanged" msprop:Generator_RowClassName="Graph_InfoRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="name" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="name" msprop:Generator_ColumnVarNameInTable="columnname" msprop:Generator_ColumnPropNameInTable="nameColumn" msprop:Generator_UserColumnName="name" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="year" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="year" msprop:Generator_ColumnVarNameInTable="columnyear" msprop:Generator_ColumnPropNameInTable="yearColumn" msprop:Generator_UserColumnName="year" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="juso" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="juso" msprop:Generator_ColumnVarNameInTable="columnjuso" msprop:Generator_ColumnPropNameInTable="jusoColumn" msprop:Generator_UserColumnName="juso" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="chung" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="chung" msprop:Generator_ColumnVarNameInTable="columnchung" msprop:Generator_ColumnPropNameInTable="chungColumn" msprop:Generator_UserColumnName="chung" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="myoun" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="myoun" msprop:Generator_ColumnVarNameInTable="columnmyoun" msprop:Generator_ColumnPropNameInTable="myounColumn" msprop:Generator_UserColumnName="myoun" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="ydo" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="ydo" msprop:Generator_ColumnVarNameInTable="columnydo" msprop:Generator_ColumnPropNameInTable="ydoColumn" msprop:Generator_UserColumnName="ydo" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="i1" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="i1" msprop:Generator_ColumnVarNameInTable="columni1" msprop:Generator_ColumnPropNameInTable="i1Column" msprop:Generator_UserColumnName="i1" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="i2" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="i2" msprop:Generator_ColumnVarNameInTable="columni2" msprop:Generator_ColumnPropNameInTable="i2Column" msprop:Generator_UserColumnName="i2" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="i3" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="i3" msprop:Generator_ColumnVarNameInTable="columni3" msprop:Generator_ColumnPropNameInTable="i3Column" msprop:Generator_UserColumnName="i3" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="grade" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="grade" msprop:Generator_ColumnVarNameInTable="columngrade" msprop:Generator_ColumnPropNameInTable="gradeColumn" msprop:Generator_UserColumnName="grade" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="co2" msprop:Generator_ColumnVarNameInTable="columnco2" msprop:Generator_ColumnPropNameInRow="co2" msprop:Generator_ColumnPropNameInTable="co2Column" msprop:Generator_UserColumnName="co2" type="xs:short" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="사용면적" msprop:Generator_UserTableName="사용면적" msprop:Generator_RowEvArgName="사용면적RowChangeEvent" msprop:Generator_TableVarName="table사용면적" msprop:Generator_TablePropName="사용면적" msprop:Generator_RowDeletingName="사용면적RowDeleting" msprop:Generator_RowChangingName="사용면적RowChanging" msprop:Generator_RowDeletedName="사용면적RowDeleted" msprop:Generator_RowEvHandlerName="사용면적RowChangeEventHandler" msprop:Generator_TableClassName="사용면적DataTable" msprop:Generator_RowChangedName="사용면적RowChanged" msprop:Generator_RowClassName="사용면적Row">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="H" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="H" msprop:Generator_ColumnVarNameInTable="columnH" msprop:Generator_ColumnPropNameInTable="HColumn" msprop:Generator_UserColumnName="H" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="C" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="C" msprop:Generator_ColumnVarNameInTable="columnC" msprop:Generator_ColumnPropNameInTable="CColumn" msprop:Generator_UserColumnName="C" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="L" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="L" msprop:Generator_ColumnVarNameInTable="columnL" msprop:Generator_ColumnPropNameInTable="LColumn" msprop:Generator_UserColumnName="L" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="W" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="W" msprop:Generator_ColumnVarNameInTable="columnW" msprop:Generator_ColumnPropNameInTable="WColumn" msprop:Generator_UserColumnName="W" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="V" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="V" msprop:Generator_ColumnVarNameInTable="columnV" msprop:Generator_ColumnPropNameInTable="VColumn" msprop:Generator_UserColumnName="V" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="H_WF" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="H_WF" msprop:Generator_ColumnVarNameInTable="columnH_WF" msprop:Generator_ColumnPropNameInTable="H_WFColumn" msprop:Generator_UserColumnName="H_WF" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="C_WF" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="C_WF" msprop:Generator_ColumnVarNameInTable="columnC_WF" msprop:Generator_ColumnPropNameInTable="C_WFColumn" msprop:Generator_UserColumnName="C_WF" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="L_WF" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="L_WF" msprop:Generator_ColumnVarNameInTable="columnL_WF" msprop:Generator_ColumnPropNameInTable="L_WFColumn" msprop:Generator_UserColumnName="L_WF" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="W_WF" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="W_WF" msprop:Generator_ColumnVarNameInTable="columnW_WF" msprop:Generator_ColumnPropNameInTable="W_WFColumn" msprop:Generator_UserColumnName="W_WF" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="V_WF" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="V_WF" msprop:Generator_ColumnVarNameInTable="columnV_WF" msprop:Generator_ColumnPropNameInTable="V_WFColumn" msprop:Generator_UserColumnName="V_WF" type="xs:decimal" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="에너지소요량" msprop:Generator_UserTableName="에너지소요량" msprop:Generator_RowEvArgName="에너지소요량RowChangeEvent" msprop:Generator_TableVarName="table에너지소요량" msprop:Generator_TablePropName="에너지소요량" msprop:Generator_RowDeletingName="에너지소요량RowDeleting" msprop:Generator_RowChangingName="에너지소요량RowChanging" msprop:Generator_RowDeletedName="에너지소요량RowDeleted" msprop:Generator_RowEvHandlerName="에너지소요량RowChangeEventHandler" msprop:Generator_TableClassName="에너지소요량DataTable" msprop:Generator_RowChangedName="에너지소요량RowChanged" msprop:Generator_RowClassName="에너지소요량Row">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="mon" msprop:Generator_ColumnVarNameInTable="columnmon" msprop:Generator_ColumnPropNameInRow="mon" msprop:Generator_ColumnPropNameInTable="monColumn" msprop:Generator_UserColumnName="mon" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="난방에너지소요량" msdata:Caption="난방에너지요구량열" msprop:Generator_ColumnVarNameInTable="column난방에너지소요량" msprop:Generator_ColumnPropNameInRow="난방에너지소요량" msprop:Generator_ColumnPropNameInTable="난방에너지소요량Column" msprop:Generator_UserColumnName="난방에너지소요량" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="난방보조에너지소요량" msdata:Caption="난방에너지요구량공조" msprop:Generator_ColumnVarNameInTable="column난방보조에너지소요량" msprop:Generator_ColumnPropNameInRow="난방보조에너지소요량" msprop:Generator_ColumnPropNameInTable="난방보조에너지소요량Column" msprop:Generator_UserColumnName="난방보조에너지소요량" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방에너지소요량" msdata:Caption="냉방에너지요구량" msprop:Generator_ColumnVarNameInTable="column냉방에너지소요량" msprop:Generator_ColumnPropNameInRow="냉방에너지소요량" msprop:Generator_ColumnPropNameInTable="냉방에너지소요량Column" msprop:Generator_UserColumnName="냉방에너지소요량" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방보조에너지소요량" msdata:Caption="냉방에너지요구량공조" msprop:Generator_ColumnVarNameInTable="column냉방보조에너지소요량" msprop:Generator_ColumnPropNameInRow="냉방보조에너지소요량" msprop:Generator_ColumnPropNameInTable="냉방보조에너지소요량Column" msprop:Generator_UserColumnName="냉방보조에너지소요량" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕에너지소요량" msdata:Caption="급탕단위면적당요구량" msprop:Generator_ColumnVarNameInTable="column급탕에너지소요량" msprop:Generator_ColumnPropNameInRow="급탕에너지소요량" msprop:Generator_ColumnPropNameInTable="급탕에너지소요량Column" msprop:Generator_UserColumnName="급탕에너지소요량" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕보조에너지소요량" msprop:Generator_ColumnVarNameInTable="column급탕보조에너지소요량" msprop:Generator_ColumnPropNameInRow="급탕보조에너지소요량" msprop:Generator_ColumnPropNameInTable="급탕보조에너지소요량Column" msprop:Generator_UserColumnName="급탕보조에너지소요량" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="난방" msprop:Generator_ColumnVarNameInTable="column난방" msprop:Generator_ColumnPropNameInRow="난방" msprop:Generator_ColumnPropNameInTable="난방Column" msprop:Generator_UserColumnName="난방" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방" msprop:Generator_ColumnVarNameInTable="column냉방" msprop:Generator_ColumnPropNameInRow="냉방" msprop:Generator_ColumnPropNameInTable="냉방Column" msprop:Generator_UserColumnName="냉방" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="조명" msprop:Generator_ColumnVarNameInTable="column조명" msprop:Generator_ColumnPropNameInRow="조명" msprop:Generator_ColumnPropNameInTable="조명Column" msprop:Generator_UserColumnName="조명" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕" msprop:Generator_ColumnVarNameInTable="column급탕" msprop:Generator_ColumnPropNameInRow="급탕" msprop:Generator_ColumnPropNameInTable="급탕Column" msprop:Generator_UserColumnName="급탕" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="환기" msprop:Generator_ColumnVarNameInTable="column환기" msprop:Generator_ColumnPropNameInRow="환기" msprop:Generator_ColumnPropNameInTable="환기Column" msprop:Generator_UserColumnName="환기" type="xs:decimal" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="에너지소요량1" msprop:Generator_UserTableName="에너지소요량1" msprop:Generator_RowEvArgName="에너지소요량1RowChangeEvent" msprop:Generator_TableVarName="table에너지소요량1" msprop:Generator_TablePropName="에너지소요량1" msprop:Generator_RowDeletingName="에너지소요량1RowDeleting" msprop:Generator_RowChangingName="에너지소요량1RowChanging" msprop:Generator_RowDeletedName="에너지소요량1RowDeleted" msprop:Generator_RowEvHandlerName="에너지소요량1RowChangeEventHandler" msprop:Generator_TableClassName="에너지소요량1DataTable" msprop:Generator_RowChangedName="에너지소요량1RowChanged" msprop:Generator_RowClassName="에너지소요량1Row">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="mon" msprop:Generator_ColumnVarNameInTable="columnmon" msprop:Generator_ColumnPropNameInRow="mon" msprop:Generator_ColumnPropNameInTable="monColumn" msprop:Generator_UserColumnName="mon" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="난방등유" msdata:Caption="난방에너지요구량공조" msprop:Generator_ColumnVarNameInTable="column난방등유" msprop:Generator_ColumnPropNameInRow="난방등유" msprop:Generator_ColumnPropNameInTable="난방등유Column" msprop:Generator_UserColumnName="난방등유" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="난방LNG" msdata:Caption="난방단위면적당요구량" msprop:Generator_ColumnVarNameInTable="column난방LNG" msprop:Generator_ColumnPropNameInRow="난방LNG" msprop:Generator_ColumnPropNameInTable="난방LNGColumn" msprop:Generator_UserColumnName="난방LNG" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="난방LPG" msdata:Caption="냉방에너지요구량" msprop:Generator_ColumnVarNameInTable="column난방LPG" msprop:Generator_ColumnPropNameInRow="난방LPG" msprop:Generator_ColumnPropNameInTable="난방LPGColumn" msprop:Generator_UserColumnName="난방LPG" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="난방지역" msdata:Caption="냉방에너지요구량열" msprop:Generator_ColumnVarNameInTable="column난방지역" msprop:Generator_ColumnPropNameInRow="난방지역" msprop:Generator_ColumnPropNameInTable="난방지역Column" msprop:Generator_UserColumnName="난방지역" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="난방전력" msdata:Caption="냉방에너지요구량공조" msprop:Generator_ColumnVarNameInTable="column난방전력" msprop:Generator_ColumnPropNameInRow="난방전력" msprop:Generator_ColumnPropNameInTable="난방전력Column" msprop:Generator_UserColumnName="난방전력" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="난방펠렛" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="난방펠렛" msprop:Generator_ColumnVarNameInTable="column난방펠렛" msprop:Generator_ColumnPropNameInTable="난방펠렛Column" msprop:Generator_UserColumnName="난방펠렛" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방등유" msdata:Caption="조명단위면적당요구량" msprop:Generator_ColumnVarNameInTable="column냉방등유" msprop:Generator_ColumnPropNameInRow="냉방등유" msprop:Generator_ColumnPropNameInTable="냉방등유Column" msprop:Generator_UserColumnName="냉방등유" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방LNG" msdata:Caption="급탕에너지요구량" msprop:Generator_ColumnVarNameInTable="column냉방LNG" msprop:Generator_ColumnPropNameInRow="냉방LNG" msprop:Generator_ColumnPropNameInTable="냉방LNGColumn" msprop:Generator_UserColumnName="냉방LNG" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방LPG" msdata:Caption="급탕단위면적당요구량" msprop:Generator_ColumnVarNameInTable="column냉방LPG" msprop:Generator_ColumnPropNameInRow="냉방LPG" msprop:Generator_ColumnPropNameInTable="냉방LPGColumn" msprop:Generator_UserColumnName="냉방LPG" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방지역" msdata:Caption="급탕보조에너지소요량" msprop:Generator_ColumnVarNameInTable="column냉방지역" msprop:Generator_ColumnPropNameInRow="냉방지역" msprop:Generator_ColumnPropNameInTable="냉방지역Column" msprop:Generator_UserColumnName="냉방지역" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방지역2" msprop:Generator_ColumnVarNameInTable="column냉방지역2" msprop:Generator_ColumnPropNameInRow="냉방지역2" msprop:Generator_ColumnPropNameInTable="냉방지역2Column" msprop:Generator_UserColumnName="냉방지역2" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방전력" msdata:Caption="급탕단위면적당소요량" msprop:Generator_ColumnVarNameInTable="column냉방전력" msprop:Generator_ColumnPropNameInRow="냉방전력" msprop:Generator_ColumnPropNameInTable="냉방전력Column" msprop:Generator_UserColumnName="냉방전력" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방펠렛" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="냉방펠렛" msprop:Generator_ColumnVarNameInTable="column냉방펠렛" msprop:Generator_ColumnPropNameInTable="냉방펠렛Column" msprop:Generator_UserColumnName="냉방펠렛" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕등유" msprop:Generator_ColumnVarNameInTable="column급탕등유" msprop:Generator_ColumnPropNameInRow="급탕등유" msprop:Generator_ColumnPropNameInTable="급탕등유Column" msprop:Generator_UserColumnName="급탕등유" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕LNG" msprop:Generator_ColumnVarNameInTable="column급탕LNG" msprop:Generator_ColumnPropNameInRow="급탕LNG" msprop:Generator_ColumnPropNameInTable="급탕LNGColumn" msprop:Generator_UserColumnName="급탕LNG" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕LPG" msprop:Generator_ColumnVarNameInTable="column급탕LPG" msprop:Generator_ColumnPropNameInRow="급탕LPG" msprop:Generator_ColumnPropNameInTable="급탕LPGColumn" msprop:Generator_UserColumnName="급탕LPG" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕지역" msprop:Generator_ColumnVarNameInTable="column급탕지역" msprop:Generator_ColumnPropNameInRow="급탕지역" msprop:Generator_ColumnPropNameInTable="급탕지역Column" msprop:Generator_UserColumnName="급탕지역" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕전력" msprop:Generator_ColumnVarNameInTable="column급탕전력" msprop:Generator_ColumnPropNameInRow="급탕전력" msprop:Generator_ColumnPropNameInTable="급탕전력Column" msprop:Generator_UserColumnName="급탕전력" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕펠렛" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="급탕펠렛" msprop:Generator_ColumnVarNameInTable="column급탕펠렛" msprop:Generator_ColumnPropNameInTable="급탕펠렛Column" msprop:Generator_UserColumnName="급탕펠렛" type="xs:string" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="생산에너지" msprop:Generator_UserTableName="생산에너지" msprop:Generator_RowEvArgName="생산에너지RowChangeEvent" msprop:Generator_TableVarName="table생산에너지" msprop:Generator_TablePropName="생산에너지" msprop:Generator_RowDeletingName="생산에너지RowDeleting" msprop:Generator_RowChangingName="생산에너지RowChanging" msprop:Generator_RowDeletedName="생산에너지RowDeleted" msprop:Generator_RowEvHandlerName="생산에너지RowChangeEventHandler" msprop:Generator_TableClassName="생산에너지DataTable" msprop:Generator_RowChangedName="생산에너지RowChanged" msprop:Generator_RowClassName="생산에너지Row">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="mon" msprop:Generator_ColumnVarNameInTable="columnmon" msprop:Generator_ColumnPropNameInRow="mon" msprop:Generator_ColumnPropNameInTable="monColumn" msprop:Generator_UserColumnName="mon" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="전력태양광" msdata:Caption="에너지요구량" msprop:Generator_ColumnVarNameInTable="column전력태양광" msprop:Generator_ColumnPropNameInRow="전력태양광" msprop:Generator_ColumnPropNameInTable="전력태양광Column" msprop:Generator_UserColumnName="전력태양광" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="전력열병합" msdata:Caption="단위면적당요구량" msprop:Generator_ColumnVarNameInTable="column전력열병합" msprop:Generator_ColumnPropNameInRow="전력열병합" msprop:Generator_ColumnPropNameInTable="전력열병합Column" msprop:Generator_UserColumnName="전력열병합" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="생산량태양열" msdata:Caption="난방에너지요구량열" msprop:Generator_ColumnVarNameInTable="column생산량태양열" msprop:Generator_ColumnPropNameInRow="생산량태양열" msprop:Generator_ColumnPropNameInTable="생산량태양열Column" msprop:Generator_UserColumnName="생산량태양열" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="생산량지열" msdata:Caption="난방에너지요구량공조" msprop:Generator_ColumnVarNameInTable="column생산량지열" msprop:Generator_ColumnPropNameInRow="생산량지열" msprop:Generator_ColumnPropNameInTable="생산량지열Column" msprop:Generator_UserColumnName="생산량지열" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="면적당생산량태양열" msprop:Generator_ColumnVarNameInTable="column면적당생산량태양열" msprop:Generator_ColumnPropNameInRow="면적당생산량태양열" msprop:Generator_ColumnPropNameInTable="면적당생산량태양열Column" msprop:Generator_UserColumnName="면적당생산량태양열" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="면적당생산량지열" msprop:Generator_ColumnVarNameInTable="column면적당생산량지열" msprop:Generator_ColumnPropNameInRow="면적당생산량지열" msprop:Generator_ColumnPropNameInTable="면적당생산량지열Column" msprop:Generator_UserColumnName="면적당생산량지열" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="신재생열병합전력생산량" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="신재생열병합전력생산량" msprop:Generator_ColumnVarNameInTable="column신재생열병합전력생산량" msprop:Generator_ColumnPropNameInTable="신재생열병합전력생산량Column" msprop:Generator_UserColumnName="신재생열병합전력생산량" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="신재생면적당열생산량" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="신재생면적당열생산량" msprop:Generator_ColumnVarNameInTable="column신재생면적당열생산량" msprop:Generator_ColumnPropNameInTable="신재생면적당열생산량Column" msprop:Generator_UserColumnName="신재생면적당열생산량" type="xs:string" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Graph_Info_data" msprop:Generator_UserTableName="Graph_Info_data" msprop:Generator_RowEvArgName="Graph_Info_dataRowChangeEvent" msprop:Generator_TableVarName="tableGraph_Info_data" msprop:Generator_TablePropName="Graph_Info_data" msprop:Generator_RowDeletingName="Graph_Info_dataRowDeleting" msprop:Generator_RowChangingName="Graph_Info_dataRowChanging" msprop:Generator_RowDeletedName="Graph_Info_dataRowDeleted" msprop:Generator_RowEvHandlerName="Graph_Info_dataRowChangeEventHandler" msprop:Generator_TableClassName="Graph_Info_dataDataTable" msprop:Generator_RowChangedName="Graph_Info_dataRowChanged" msprop:Generator_RowClassName="Graph_Info_dataRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="난방소요" msprop:Generator_ColumnVarNameInTable="column난방소요" msprop:Generator_ColumnPropNameInRow="난방소요" msprop:Generator_ColumnPropNameInTable="난방소요Column" msprop:Generator_UserColumnName="난방소요" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕소요" msprop:Generator_ColumnVarNameInTable="column급탕소요" msprop:Generator_ColumnPropNameInRow="급탕소요" msprop:Generator_ColumnPropNameInTable="급탕소요Column" msprop:Generator_UserColumnName="급탕소요" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방소요" msprop:Generator_ColumnVarNameInTable="column냉방소요" msprop:Generator_ColumnPropNameInRow="냉방소요" msprop:Generator_ColumnPropNameInTable="냉방소요Column" msprop:Generator_UserColumnName="냉방소요" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="조명소요" msprop:Generator_ColumnVarNameInTable="column조명소요" msprop:Generator_ColumnPropNameInRow="조명소요" msprop:Generator_ColumnPropNameInTable="조명소요Column" msprop:Generator_UserColumnName="조명소요" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="환기소요" msprop:Generator_ColumnVarNameInTable="column환기소요" msprop:Generator_ColumnPropNameInRow="환기소요" msprop:Generator_ColumnPropNameInTable="환기소요Column" msprop:Generator_UserColumnName="환기소요" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="난방소요1" msprop:Generator_ColumnVarNameInTable="column난방소요1" msprop:Generator_ColumnPropNameInRow="난방소요1" msprop:Generator_ColumnPropNameInTable="난방소요1Column" msprop:Generator_UserColumnName="난방소요1" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕소요1" msprop:Generator_ColumnVarNameInTable="column급탕소요1" msprop:Generator_ColumnPropNameInRow="급탕소요1" msprop:Generator_ColumnPropNameInTable="급탕소요1Column" msprop:Generator_UserColumnName="급탕소요1" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방소요1" msprop:Generator_ColumnVarNameInTable="column냉방소요1" msprop:Generator_ColumnPropNameInRow="냉방소요1" msprop:Generator_ColumnPropNameInTable="냉방소요1Column" msprop:Generator_UserColumnName="냉방소요1" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="조명소요1" msprop:Generator_ColumnVarNameInTable="column조명소요1" msprop:Generator_ColumnPropNameInRow="조명소요1" msprop:Generator_ColumnPropNameInTable="조명소요1Column" msprop:Generator_UserColumnName="조명소요1" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="환기소요1" msprop:Generator_ColumnVarNameInTable="column환기소요1" msprop:Generator_ColumnPropNameInRow="환기소요1" msprop:Generator_ColumnPropNameInTable="환기소요1Column" msprop:Generator_UserColumnName="환기소요1" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="난방co2" msprop:Generator_ColumnVarNameInTable="column난방co2" msprop:Generator_ColumnPropNameInRow="난방co2" msprop:Generator_ColumnPropNameInTable="난방co2Column" msprop:Generator_UserColumnName="난방co2" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕co2" msprop:Generator_ColumnVarNameInTable="column급탕co2" msprop:Generator_ColumnPropNameInRow="급탕co2" msprop:Generator_ColumnPropNameInTable="급탕co2Column" msprop:Generator_UserColumnName="급탕co2" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방co2" msprop:Generator_ColumnVarNameInTable="column냉방co2" msprop:Generator_ColumnPropNameInRow="냉방co2" msprop:Generator_ColumnPropNameInTable="냉방co2Column" msprop:Generator_UserColumnName="냉방co2" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="조명co2" msprop:Generator_ColumnVarNameInTable="column조명co2" msprop:Generator_ColumnPropNameInRow="조명co2" msprop:Generator_ColumnPropNameInTable="조명co2Column" msprop:Generator_UserColumnName="조명co2" type="xs:decimal" default="0" minOccurs="0" />
|
||||
<xs:element name="환기co2" msprop:Generator_ColumnVarNameInTable="column환기co2" msprop:Generator_ColumnPropNameInRow="환기co2" msprop:Generator_ColumnPropNameInTable="환기co2Column" msprop:Generator_UserColumnName="환기co2" type="xs:decimal" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Pyonga_REQ" msprop:Generator_TableClassName="Pyonga_REQDataTable" msprop:Generator_TableVarName="tablePyonga_REQ" msprop:Generator_TablePropName="Pyonga_REQ" msprop:Generator_RowDeletingName="Pyonga_REQRowDeleting" msprop:Generator_RowChangingName="Pyonga_REQRowChanging" msprop:Generator_RowEvHandlerName="Pyonga_REQRowChangeEventHandler" msprop:Generator_RowDeletedName="Pyonga_REQRowDeleted" msprop:Generator_UserTableName="Pyonga_REQ" msprop:Generator_RowChangedName="Pyonga_REQRowChanged" msprop:Generator_RowEvArgName="Pyonga_REQRowChangeEvent" msprop:Generator_RowClassName="Pyonga_REQRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="종류" msdata:Caption="Mon" msprop:Generator_ColumnVarNameInTable="column종류" msprop:Generator_ColumnPropNameInRow="종류" msprop:Generator_ColumnPropNameInTable="종류Column" msprop:Generator_UserColumnName="종류" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="값" msprop:Generator_ColumnVarNameInTable="column값" msprop:Generator_ColumnPropNameInRow="값" msprop:Generator_ColumnPropNameInTable="값Column" msprop:Generator_UserColumnName="값" type="xs:decimal" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Pyonga_USE" msprop:Generator_TableClassName="Pyonga_USEDataTable" msprop:Generator_TableVarName="tablePyonga_USE" msprop:Generator_TablePropName="Pyonga_USE" msprop:Generator_RowDeletingName="Pyonga_USERowDeleting" msprop:Generator_RowChangingName="Pyonga_USERowChanging" msprop:Generator_RowEvHandlerName="Pyonga_USERowChangeEventHandler" msprop:Generator_RowDeletedName="Pyonga_USERowDeleted" msprop:Generator_UserTableName="Pyonga_USE" msprop:Generator_RowChangedName="Pyonga_USERowChanged" msprop:Generator_RowEvArgName="Pyonga_USERowChangeEvent" msprop:Generator_RowClassName="Pyonga_USERow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="종류" msdata:Caption="Mon" msprop:Generator_ColumnVarNameInTable="column종류" msprop:Generator_ColumnPropNameInRow="종류" msprop:Generator_ColumnPropNameInTable="종류Column" msprop:Generator_UserColumnName="종류" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="값" msprop:Generator_ColumnVarNameInTable="column값" msprop:Generator_ColumnPropNameInRow="값" msprop:Generator_ColumnPropNameInTable="값Column" msprop:Generator_UserColumnName="값" type="xs:decimal" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Pyonga_1USE" msprop:Generator_TableClassName="Pyonga_1USEDataTable" msprop:Generator_TableVarName="tablePyonga_1USE" msprop:Generator_TablePropName="Pyonga_1USE" msprop:Generator_RowDeletingName="Pyonga_1USERowDeleting" msprop:Generator_RowChangingName="Pyonga_1USERowChanging" msprop:Generator_RowEvHandlerName="Pyonga_1USERowChangeEventHandler" msprop:Generator_RowDeletedName="Pyonga_1USERowDeleted" msprop:Generator_UserTableName="Pyonga_1USE" msprop:Generator_RowChangedName="Pyonga_1USERowChanged" msprop:Generator_RowEvArgName="Pyonga_1USERowChangeEvent" msprop:Generator_RowClassName="Pyonga_1USERow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="종류" msdata:Caption="Mon" msprop:Generator_ColumnVarNameInTable="column종류" msprop:Generator_ColumnPropNameInRow="종류" msprop:Generator_ColumnPropNameInTable="종류Column" msprop:Generator_UserColumnName="종류" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="값" msprop:Generator_ColumnVarNameInTable="column값" msprop:Generator_ColumnPropNameInRow="값" msprop:Generator_ColumnPropNameInTable="값Column" msprop:Generator_UserColumnName="값" type="xs:decimal" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Pyonga_YK" msprop:Generator_TableClassName="Pyonga_YKDataTable" msprop:Generator_TableVarName="tablePyonga_YK" msprop:Generator_TablePropName="Pyonga_YK" msprop:Generator_RowDeletingName="Pyonga_YKRowDeleting" msprop:Generator_RowChangingName="Pyonga_YKRowChanging" msprop:Generator_RowEvHandlerName="Pyonga_YKRowChangeEventHandler" msprop:Generator_RowDeletedName="Pyonga_YKRowDeleted" msprop:Generator_UserTableName="Pyonga_YK" msprop:Generator_RowChangedName="Pyonga_YKRowChanged" msprop:Generator_RowEvArgName="Pyonga_YKRowChangeEvent" msprop:Generator_RowClassName="Pyonga_YKRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="벽체종류" msdata:Caption="Mon" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="벽체종류" msprop:Generator_ColumnVarNameInTable="column벽체종류" msprop:Generator_ColumnPropNameInTable="벽체종류Column" msprop:Generator_UserColumnName="벽체종류" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="지붕종류" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="지붕종류" msprop:Generator_ColumnVarNameInTable="column지붕종류" msprop:Generator_ColumnPropNameInTable="지붕종류Column" msprop:Generator_UserColumnName="지붕종류" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="바닥종류" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="바닥종류" msprop:Generator_ColumnVarNameInTable="column바닥종류" msprop:Generator_ColumnPropNameInTable="바닥종류Column" msprop:Generator_UserColumnName="바닥종류" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="벽체값" msprop:Generator_ColumnVarNameInTable="column벽체값" msprop:Generator_ColumnPropNameInRow="벽체값" msprop:Generator_ColumnPropNameInTable="벽체값Column" msprop:Generator_UserColumnName="벽체값" type="xs:decimal" minOccurs="0" />
|
||||
<xs:element name="지붕값" msprop:Generator_ColumnVarNameInTable="column지붕값" msprop:Generator_ColumnPropNameInRow="지붕값" msprop:Generator_ColumnPropNameInTable="지붕값Column" msprop:Generator_UserColumnName="지붕값" type="xs:decimal" minOccurs="0" />
|
||||
<xs:element name="바닥값" msprop:Generator_ColumnVarNameInTable="column바닥값" msprop:Generator_ColumnPropNameInRow="바닥값" msprop:Generator_ColumnPropNameInTable="바닥값Column" msprop:Generator_UserColumnName="바닥값" type="xs:decimal" minOccurs="0" />
|
||||
<xs:element name="창호종류" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="창호종류" msprop:Generator_ColumnVarNameInTable="column창호종류" msprop:Generator_ColumnPropNameInTable="창호종류Column" msprop:Generator_UserColumnName="창호종류" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="창호값" msprop:Generator_ColumnVarNameInTable="column창호값" msprop:Generator_ColumnPropNameInRow="창호값" msprop:Generator_ColumnPropNameInTable="창호값Column" msprop:Generator_UserColumnName="창호값" type="xs:decimal" minOccurs="0" />
|
||||
<xs:element name="주거실조명전력" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="주거실조명전력" msprop:Generator_ColumnVarNameInTable="column주거실조명전력" msprop:Generator_ColumnPropNameInTable="주거실조명전력Column" msprop:Generator_UserColumnName="주거실조명전력" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="주조명광원" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="주조명광원" msprop:Generator_ColumnVarNameInTable="column주조명광원" msprop:Generator_ColumnPropNameInTable="주조명광원Column" msprop:Generator_UserColumnName="주조명광원" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="지열히트펌프용량" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="지열히트펌프용량" msprop:Generator_ColumnVarNameInTable="column지열히트펌프용량" msprop:Generator_ColumnPropNameInTable="지열히트펌프용량Column" msprop:Generator_UserColumnName="지열히트펌프용량" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="지열난방COP" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="지열난방COP" msprop:Generator_ColumnVarNameInTable="column지열난방COP" msprop:Generator_ColumnPropNameInTable="지열난방COPColumn" msprop:Generator_UserColumnName="지열난방COP" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="지열냉방COP" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="지열냉방COP" msprop:Generator_ColumnVarNameInTable="column지열냉방COP" msprop:Generator_ColumnPropNameInTable="지열냉방COPColumn" msprop:Generator_UserColumnName="지열냉방COP" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="지열비고" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="지열비고" msprop:Generator_ColumnVarNameInTable="column지열비고" msprop:Generator_ColumnPropNameInTable="지열비고Column" msprop:Generator_UserColumnName="지열비고" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="온열원설비방식" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="온열원설비방식" msprop:Generator_ColumnVarNameInTable="column온열원설비방식" msprop:Generator_ColumnPropNameInTable="온열원설비방식Column" msprop:Generator_UserColumnName="온열원설비방식" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="급탕설비방식" msdata:Caption="온열원설비방식" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="급탕설비방식" msprop:Generator_ColumnVarNameInTable="column급탕설비방식" msprop:Generator_ColumnPropNameInTable="급탕설비방식Column" msprop:Generator_UserColumnName="급탕설비방식" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="급탕설비연료" msdata:Caption="온열원설비연료" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="급탕설비연료" msprop:Generator_ColumnVarNameInTable="column급탕설비연료" msprop:Generator_ColumnPropNameInTable="급탕설비연료Column" msprop:Generator_UserColumnName="급탕설비연료" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="냉열원설비방식" msdata:Caption="온열원설비방식" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="냉열원설비방식" msprop:Generator_ColumnVarNameInTable="column냉열원설비방식" msprop:Generator_ColumnPropNameInTable="냉열원설비방식Column" msprop:Generator_UserColumnName="냉열원설비방식" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="냉열원설비연료" msdata:Caption="온열원설비연료" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="냉열원설비연료" msprop:Generator_ColumnVarNameInTable="column냉열원설비연료" msprop:Generator_ColumnPropNameInTable="냉열원설비연료Column" msprop:Generator_UserColumnName="냉열원설비연료" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="온열원설비연료" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="온열원설비연료" msprop:Generator_ColumnVarNameInTable="column온열원설비연료" msprop:Generator_ColumnPropNameInTable="온열원설비연료Column" msprop:Generator_UserColumnName="온열원설비연료" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="온열원용량" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="온열원용량" msprop:Generator_ColumnVarNameInTable="column온열원용량" msprop:Generator_ColumnPropNameInTable="온열원용량Column" msprop:Generator_UserColumnName="온열원용량" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="온열원효율" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="온열원효율" msprop:Generator_ColumnVarNameInTable="column온열원효율" msprop:Generator_ColumnPropNameInTable="온열원효율Column" msprop:Generator_UserColumnName="온열원효율" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="냉열원용량" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="냉열원용량" msprop:Generator_ColumnVarNameInTable="column냉열원용량" msprop:Generator_ColumnPropNameInTable="냉열원용량Column" msprop:Generator_UserColumnName="냉열원용량" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="냉열원효율" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="냉열원효율" msprop:Generator_ColumnVarNameInTable="column냉열원효율" msprop:Generator_ColumnPropNameInTable="냉열원효율Column" msprop:Generator_UserColumnName="냉열원효율" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="급탕효율" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="급탕효율" msprop:Generator_ColumnVarNameInTable="column급탕효율" msprop:Generator_ColumnPropNameInTable="급탕효율Column" msprop:Generator_UserColumnName="급탕효율" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="급탕용량" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="급탕용량" msprop:Generator_ColumnVarNameInTable="column급탕용량" msprop:Generator_ColumnPropNameInTable="급탕용량Column" msprop:Generator_UserColumnName="급탕용량" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="태양열집열판면적" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="태양열집열판면적" msprop:Generator_ColumnVarNameInTable="column태양열집열판면적" msprop:Generator_ColumnPropNameInTable="태양열집열판면적Column" msprop:Generator_UserColumnName="태양열집열판면적" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="태양열집열기유형" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="태양열집열기유형" msprop:Generator_ColumnVarNameInTable="column태양열집열기유형" msprop:Generator_ColumnPropNameInTable="태양열집열기유형Column" msprop:Generator_UserColumnName="태양열집열기유형" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="태양열집열판방위" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="태양열집열판방위" msprop:Generator_ColumnVarNameInTable="column태양열집열판방위" msprop:Generator_ColumnPropNameInTable="태양열집열판방위Column" msprop:Generator_UserColumnName="태양열집열판방위" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="태양광모듈면적" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="태양광모듈면적" msprop:Generator_ColumnVarNameInTable="column태양광모듈면적" msprop:Generator_ColumnPropNameInTable="태양광모듈면적Column" msprop:Generator_UserColumnName="태양광모듈면적" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="태양광모듈종류" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="태양광모듈종류" msprop:Generator_ColumnVarNameInTable="column태양광모듈종류" msprop:Generator_ColumnPropNameInTable="태양광모듈종류Column" msprop:Generator_UserColumnName="태양광모듈종류" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="태양광모듈방위" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="태양광모듈방위" msprop:Generator_ColumnVarNameInTable="column태양광모듈방위" msprop:Generator_ColumnPropNameInTable="태양광모듈방위Column" msprop:Generator_UserColumnName="태양광모듈방위" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="태양광모듈기울기" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="태양광모듈기울기" msprop:Generator_ColumnVarNameInTable="column태양광모듈기울기" msprop:Generator_ColumnPropNameInTable="태양광모듈기울기Column" msprop:Generator_UserColumnName="태양광모듈기울기" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="태양광모듈적용타입" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="태양광모듈적용타입" msprop:Generator_ColumnVarNameInTable="column태양광모듈적용타입" msprop:Generator_ColumnPropNameInTable="태양광모듈적용타입Column" msprop:Generator_UserColumnName="태양광모듈적용타입" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="열병합열생산능력" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="열병합열생산능력" msprop:Generator_ColumnVarNameInTable="column열병합열생산능력" msprop:Generator_ColumnPropNameInTable="열병합열생산능력Column" msprop:Generator_UserColumnName="열병합열생산능력" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="열병합열생산효율" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="열병합열생산효율" msprop:Generator_ColumnVarNameInTable="column열병합열생산효율" msprop:Generator_ColumnPropNameInTable="열병합열생산효율Column" msprop:Generator_UserColumnName="열병합열생산효율" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="열병합발전효율" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="열병합발전효율" msprop:Generator_ColumnVarNameInTable="column열병합발전효율" msprop:Generator_ColumnPropNameInTable="열병합발전효율Column" msprop:Generator_UserColumnName="열병합발전효율" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="지열히트펌프용량냉방" msprop:Generator_ColumnVarNameInTable="column지열히트펌프용량냉방" msprop:Generator_ColumnPropNameInRow="지열히트펌프용량냉방" msprop:Generator_ColumnPropNameInTable="지열히트펌프용량냉방Column" msprop:Generator_UserColumnName="지열히트펌프용량냉방" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="열병합가동연료" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="열병합가동연료" msprop:Generator_ColumnVarNameInTable="column열병합가동연료" msprop:Generator_ColumnPropNameInTable="열병합가동연료Column" msprop:Generator_UserColumnName="열병합가동연료" type="xs:string" default="" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="월별1차에너지사용량" msprop:Generator_TableClassName="월별1차에너지사용량DataTable" msprop:Generator_TableVarName="table월별1차에너지사용량" msprop:Generator_TablePropName="월별1차에너지사용량" msprop:Generator_RowDeletingName="월별1차에너지사용량RowDeleting" msprop:Generator_RowChangingName="월별1차에너지사용량RowChanging" msprop:Generator_RowEvHandlerName="월별1차에너지사용량RowChangeEventHandler" msprop:Generator_RowDeletedName="월별1차에너지사용량RowDeleted" msprop:Generator_UserTableName="월별1차에너지사용량" msprop:Generator_RowChangedName="월별1차에너지사용량RowChanged" msprop:Generator_RowEvArgName="월별1차에너지사용량RowChangeEvent" msprop:Generator_RowClassName="월별1차에너지사용량Row">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="년" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="년" msprop:Generator_ColumnVarNameInTable="column년" msprop:Generator_ColumnPropNameInTable="년Column" msprop:Generator_UserColumnName="년" type="xs:string" default="" />
|
||||
<xs:element name="월" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="월" msprop:Generator_ColumnVarNameInTable="column월" msprop:Generator_ColumnPropNameInTable="월Column" msprop:Generator_UserColumnName="월" type="xs:string" default="" />
|
||||
<xs:element name="도시가스" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="도시가스" msprop:Generator_ColumnVarNameInTable="column도시가스" msprop:Generator_ColumnPropNameInTable="도시가스Column" msprop:Generator_UserColumnName="도시가스" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="전력" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="전력" msprop:Generator_ColumnVarNameInTable="column전력" msprop:Generator_ColumnPropNameInTable="전력Column" msprop:Generator_UserColumnName="전력" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="지역난방" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="지역난방" msprop:Generator_ColumnVarNameInTable="column지역난방" msprop:Generator_ColumnPropNameInTable="지역난방Column" msprop:Generator_UserColumnName="지역난방" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="code" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="code" msprop:Generator_ColumnVarNameInTable="columncode" msprop:Generator_ColumnPropNameInTable="codeColumn" msprop:Generator_UserColumnName="code" type="xs:string" default="" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="설계계산결과" msprop:Generator_TableClassName="설계계산결과DataTable" msprop:Generator_TableVarName="table설계계산결과" msprop:Generator_TablePropName="설계계산결과" msprop:Generator_RowDeletingName="설계계산결과RowDeleting" msprop:Generator_RowChangingName="설계계산결과RowChanging" msprop:Generator_RowEvHandlerName="설계계산결과RowChangeEventHandler" msprop:Generator_RowDeletedName="설계계산결과RowDeleted" msprop:Generator_UserTableName="설계계산결과" msprop:Generator_RowChangedName="설계계산결과RowChanged" msprop:Generator_RowEvArgName="설계계산결과RowChangeEvent" msprop:Generator_RowClassName="설계계산결과Row">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="월" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="월" msprop:Generator_ColumnVarNameInTable="column월" msprop:Generator_ColumnPropNameInTable="월Column" msprop:Generator_UserColumnName="월" type="xs:string" default="" />
|
||||
<xs:element name="급탕" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="급탕" msprop:Generator_ColumnVarNameInTable="column급탕" msprop:Generator_ColumnPropNameInTable="급탕Column" msprop:Generator_UserColumnName="급탕" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="냉방" msprop:Generator_ColumnVarNameInTable="column냉방" msprop:Generator_ColumnPropNameInTable="냉방Column" msprop:Generator_UserColumnName="냉방" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="난방" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="난방" msprop:Generator_ColumnVarNameInTable="column난방" msprop:Generator_ColumnPropNameInTable="난방Column" msprop:Generator_UserColumnName="난방" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="조명" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="조명" msprop:Generator_ColumnVarNameInTable="column조명" msprop:Generator_ColumnPropNameInTable="조명Column" msprop:Generator_UserColumnName="조명" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="환기" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="환기" msprop:Generator_ColumnVarNameInTable="column환기" msprop:Generator_ColumnPropNameInTable="환기Column" msprop:Generator_UserColumnName="환기" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="급탕전" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="급탕전" msprop:Generator_ColumnVarNameInTable="column급탕전" msprop:Generator_ColumnPropNameInTable="급탕전Column" msprop:Generator_UserColumnName="급탕전" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방전" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="냉방전" msprop:Generator_ColumnVarNameInTable="column냉방전" msprop:Generator_ColumnPropNameInTable="냉방전Column" msprop:Generator_UserColumnName="냉방전" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="난방전" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="난방전" msprop:Generator_ColumnVarNameInTable="column난방전" msprop:Generator_ColumnPropNameInTable="난방전Column" msprop:Generator_UserColumnName="난방전" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="조명전" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="조명전" msprop:Generator_ColumnVarNameInTable="column조명전" msprop:Generator_ColumnPropNameInTable="조명전Column" msprop:Generator_UserColumnName="조명전" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="환기전" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="환기전" msprop:Generator_ColumnVarNameInTable="column환기전" msprop:Generator_ColumnPropNameInTable="환기전Column" msprop:Generator_UserColumnName="환기전" type="xs:string" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="설계계산파라미터" msprop:Generator_TableClassName="설계계산파라미터DataTable" msprop:Generator_TableVarName="table설계계산파라미터" msprop:Generator_TablePropName="설계계산파라미터" msprop:Generator_RowDeletingName="설계계산파라미터RowDeleting" msprop:Generator_RowChangingName="설계계산파라미터RowChanging" msprop:Generator_RowEvHandlerName="설계계산파라미터RowChangeEventHandler" msprop:Generator_RowDeletedName="설계계산파라미터RowDeleted" msprop:Generator_UserTableName="설계계산파라미터" msprop:Generator_RowChangedName="설계계산파라미터RowChanged" msprop:Generator_RowEvArgName="설계계산파라미터RowChangeEvent" msprop:Generator_RowClassName="설계계산파라미터Row">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="난방" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="난방" msprop:Generator_ColumnVarNameInTable="column난방" msprop:Generator_ColumnPropNameInTable="난방Column" msprop:Generator_UserColumnName="난방" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="냉방" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="냉방" msprop:Generator_ColumnVarNameInTable="column냉방" msprop:Generator_ColumnPropNameInTable="냉방Column" msprop:Generator_UserColumnName="냉방" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="기저비율" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="기저비율" msprop:Generator_ColumnVarNameInTable="column기저비율" msprop:Generator_ColumnPropNameInTable="기저비율Column" msprop:Generator_UserColumnName="기저비율" type="xs:string" default="0" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="ExtReport" msprop:Generator_TableClassName="ExtReportDataTable" msprop:Generator_TableVarName="tableExtReport" msprop:Generator_TablePropName="ExtReport" msprop:Generator_RowDeletingName="ExtReportRowDeleting" msprop:Generator_RowChangingName="ExtReportRowChanging" msprop:Generator_RowEvHandlerName="ExtReportRowChangeEventHandler" msprop:Generator_RowDeletedName="ExtReportRowDeleted" msprop:Generator_UserTableName="ExtReport" msprop:Generator_RowChangedName="ExtReportRowChanged" msprop:Generator_RowEvArgName="ExtReportRowChangeEvent" msprop:Generator_RowClassName="ExtReportRow">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="c001" msprop:Generator_ColumnVarNameInTable="columnc001" msprop:Generator_ColumnPropNameInRow="c001" msprop:Generator_ColumnPropNameInTable="c001Column" msprop:Generator_UserColumnName="c001" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c002" msprop:Generator_ColumnVarNameInTable="columnc002" msprop:Generator_ColumnPropNameInRow="c002" msprop:Generator_ColumnPropNameInTable="c002Column" msprop:Generator_UserColumnName="c002" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c003" msprop:Generator_ColumnVarNameInTable="columnc003" msprop:Generator_ColumnPropNameInRow="c003" msprop:Generator_ColumnPropNameInTable="c003Column" msprop:Generator_UserColumnName="c003" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c004" msprop:Generator_ColumnVarNameInTable="columnc004" msprop:Generator_ColumnPropNameInRow="c004" msprop:Generator_ColumnPropNameInTable="c004Column" msprop:Generator_UserColumnName="c004" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c005" msprop:Generator_ColumnVarNameInTable="columnc005" msprop:Generator_ColumnPropNameInRow="c005" msprop:Generator_ColumnPropNameInTable="c005Column" msprop:Generator_UserColumnName="c005" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c006" msprop:Generator_ColumnVarNameInTable="columnc006" msprop:Generator_ColumnPropNameInRow="c006" msprop:Generator_ColumnPropNameInTable="c006Column" msprop:Generator_UserColumnName="c006" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c007" msprop:Generator_ColumnVarNameInTable="columnc007" msprop:Generator_ColumnPropNameInRow="c007" msprop:Generator_ColumnPropNameInTable="c007Column" msprop:Generator_UserColumnName="c007" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c008" msprop:Generator_ColumnVarNameInTable="columnc008" msprop:Generator_ColumnPropNameInRow="c008" msprop:Generator_ColumnPropNameInTable="c008Column" msprop:Generator_UserColumnName="c008" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c009" msprop:Generator_ColumnVarNameInTable="columnc009" msprop:Generator_ColumnPropNameInRow="c009" msprop:Generator_ColumnPropNameInTable="c009Column" msprop:Generator_UserColumnName="c009" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c010" msprop:Generator_ColumnVarNameInTable="columnc010" msprop:Generator_ColumnPropNameInRow="c010" msprop:Generator_ColumnPropNameInTable="c010Column" msprop:Generator_UserColumnName="c010" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c011" msprop:Generator_ColumnVarNameInTable="columnc011" msprop:Generator_ColumnPropNameInRow="c011" msprop:Generator_ColumnPropNameInTable="c011Column" msprop:Generator_UserColumnName="c011" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c012" msprop:Generator_ColumnVarNameInTable="columnc012" msprop:Generator_ColumnPropNameInRow="c012" msprop:Generator_ColumnPropNameInTable="c012Column" msprop:Generator_UserColumnName="c012" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c013" msprop:Generator_ColumnVarNameInTable="columnc013" msprop:Generator_ColumnPropNameInRow="c013" msprop:Generator_ColumnPropNameInTable="c013Column" msprop:Generator_UserColumnName="c013" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c014" msprop:Generator_ColumnVarNameInTable="columnc014" msprop:Generator_ColumnPropNameInRow="c014" msprop:Generator_ColumnPropNameInTable="c014Column" msprop:Generator_UserColumnName="c014" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c015" msprop:Generator_ColumnVarNameInTable="columnc015" msprop:Generator_ColumnPropNameInRow="c015" msprop:Generator_ColumnPropNameInTable="c015Column" msprop:Generator_UserColumnName="c015" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c016" msprop:Generator_ColumnVarNameInTable="columnc016" msprop:Generator_ColumnPropNameInRow="c016" msprop:Generator_ColumnPropNameInTable="c016Column" msprop:Generator_UserColumnName="c016" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c017" msprop:Generator_ColumnVarNameInTable="columnc017" msprop:Generator_ColumnPropNameInRow="c017" msprop:Generator_ColumnPropNameInTable="c017Column" msprop:Generator_UserColumnName="c017" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c018" msprop:Generator_ColumnVarNameInTable="columnc018" msprop:Generator_ColumnPropNameInRow="c018" msprop:Generator_ColumnPropNameInTable="c018Column" msprop:Generator_UserColumnName="c018" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c019" msprop:Generator_ColumnVarNameInTable="columnc019" msprop:Generator_ColumnPropNameInRow="c019" msprop:Generator_ColumnPropNameInTable="c019Column" msprop:Generator_UserColumnName="c019" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c020" msprop:Generator_ColumnVarNameInTable="columnc020" msprop:Generator_ColumnPropNameInRow="c020" msprop:Generator_ColumnPropNameInTable="c020Column" msprop:Generator_UserColumnName="c020" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c021" msprop:Generator_ColumnVarNameInTable="columnc021" msprop:Generator_ColumnPropNameInRow="c021" msprop:Generator_ColumnPropNameInTable="c021Column" msprop:Generator_UserColumnName="c021" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c022" msprop:Generator_ColumnVarNameInTable="columnc022" msprop:Generator_ColumnPropNameInRow="c022" msprop:Generator_ColumnPropNameInTable="c022Column" msprop:Generator_UserColumnName="c022" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c023" msprop:Generator_ColumnVarNameInTable="columnc023" msprop:Generator_ColumnPropNameInRow="c023" msprop:Generator_ColumnPropNameInTable="c023Column" msprop:Generator_UserColumnName="c023" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c024" msprop:Generator_ColumnVarNameInTable="columnc024" msprop:Generator_ColumnPropNameInRow="c024" msprop:Generator_ColumnPropNameInTable="c024Column" msprop:Generator_UserColumnName="c024" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c025" msprop:Generator_ColumnVarNameInTable="columnc025" msprop:Generator_ColumnPropNameInRow="c025" msprop:Generator_ColumnPropNameInTable="c025Column" msprop:Generator_UserColumnName="c025" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c026" msprop:Generator_ColumnVarNameInTable="columnc026" msprop:Generator_ColumnPropNameInRow="c026" msprop:Generator_ColumnPropNameInTable="c026Column" msprop:Generator_UserColumnName="c026" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c027" msprop:Generator_ColumnVarNameInTable="columnc027" msprop:Generator_ColumnPropNameInRow="c027" msprop:Generator_ColumnPropNameInTable="c027Column" msprop:Generator_UserColumnName="c027" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c028" msprop:Generator_ColumnVarNameInTable="columnc028" msprop:Generator_ColumnPropNameInRow="c028" msprop:Generator_ColumnPropNameInTable="c028Column" msprop:Generator_UserColumnName="c028" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c029" msprop:Generator_ColumnVarNameInTable="columnc029" msprop:Generator_ColumnPropNameInRow="c029" msprop:Generator_ColumnPropNameInTable="c029Column" msprop:Generator_UserColumnName="c029" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c030" msprop:Generator_ColumnVarNameInTable="columnc030" msprop:Generator_ColumnPropNameInRow="c030" msprop:Generator_ColumnPropNameInTable="c030Column" msprop:Generator_UserColumnName="c030" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c031" msprop:Generator_ColumnVarNameInTable="columnc031" msprop:Generator_ColumnPropNameInRow="c031" msprop:Generator_ColumnPropNameInTable="c031Column" msprop:Generator_UserColumnName="c031" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c032" msprop:Generator_ColumnVarNameInTable="columnc032" msprop:Generator_ColumnPropNameInRow="c032" msprop:Generator_ColumnPropNameInTable="c032Column" msprop:Generator_UserColumnName="c032" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c033" msprop:Generator_ColumnVarNameInTable="columnc033" msprop:Generator_ColumnPropNameInRow="c033" msprop:Generator_ColumnPropNameInTable="c033Column" msprop:Generator_UserColumnName="c033" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c034" msprop:Generator_ColumnVarNameInTable="columnc034" msprop:Generator_ColumnPropNameInRow="c034" msprop:Generator_ColumnPropNameInTable="c034Column" msprop:Generator_UserColumnName="c034" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c035" msprop:Generator_ColumnVarNameInTable="columnc035" msprop:Generator_ColumnPropNameInRow="c035" msprop:Generator_ColumnPropNameInTable="c035Column" msprop:Generator_UserColumnName="c035" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c036" msprop:Generator_ColumnVarNameInTable="columnc036" msprop:Generator_ColumnPropNameInRow="c036" msprop:Generator_ColumnPropNameInTable="c036Column" msprop:Generator_UserColumnName="c036" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c037" msprop:Generator_ColumnVarNameInTable="columnc037" msprop:Generator_ColumnPropNameInRow="c037" msprop:Generator_ColumnPropNameInTable="c037Column" msprop:Generator_UserColumnName="c037" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c038" msprop:Generator_ColumnVarNameInTable="columnc038" msprop:Generator_ColumnPropNameInRow="c038" msprop:Generator_ColumnPropNameInTable="c038Column" msprop:Generator_UserColumnName="c038" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c039" msprop:Generator_ColumnVarNameInTable="columnc039" msprop:Generator_ColumnPropNameInRow="c039" msprop:Generator_ColumnPropNameInTable="c039Column" msprop:Generator_UserColumnName="c039" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c040" msprop:Generator_ColumnVarNameInTable="columnc040" msprop:Generator_ColumnPropNameInRow="c040" msprop:Generator_ColumnPropNameInTable="c040Column" msprop:Generator_UserColumnName="c040" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c041" msprop:Generator_ColumnVarNameInTable="columnc041" msprop:Generator_ColumnPropNameInRow="c041" msprop:Generator_ColumnPropNameInTable="c041Column" msprop:Generator_UserColumnName="c041" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c042" msprop:Generator_ColumnVarNameInTable="columnc042" msprop:Generator_ColumnPropNameInRow="c042" msprop:Generator_ColumnPropNameInTable="c042Column" msprop:Generator_UserColumnName="c042" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c043" msprop:Generator_ColumnVarNameInTable="columnc043" msprop:Generator_ColumnPropNameInRow="c043" msprop:Generator_ColumnPropNameInTable="c043Column" msprop:Generator_UserColumnName="c043" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c044" msprop:Generator_ColumnVarNameInTable="columnc044" msprop:Generator_ColumnPropNameInRow="c044" msprop:Generator_ColumnPropNameInTable="c044Column" msprop:Generator_UserColumnName="c044" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c045" msprop:Generator_ColumnVarNameInTable="columnc045" msprop:Generator_ColumnPropNameInRow="c045" msprop:Generator_ColumnPropNameInTable="c045Column" msprop:Generator_UserColumnName="c045" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c046" msprop:Generator_ColumnVarNameInTable="columnc046" msprop:Generator_ColumnPropNameInRow="c046" msprop:Generator_ColumnPropNameInTable="c046Column" msprop:Generator_UserColumnName="c046" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c047" msprop:Generator_ColumnVarNameInTable="columnc047" msprop:Generator_ColumnPropNameInRow="c047" msprop:Generator_ColumnPropNameInTable="c047Column" msprop:Generator_UserColumnName="c047" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c048" msprop:Generator_ColumnVarNameInTable="columnc048" msprop:Generator_ColumnPropNameInRow="c048" msprop:Generator_ColumnPropNameInTable="c048Column" msprop:Generator_UserColumnName="c048" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c049" msprop:Generator_ColumnVarNameInTable="columnc049" msprop:Generator_ColumnPropNameInRow="c049" msprop:Generator_ColumnPropNameInTable="c049Column" msprop:Generator_UserColumnName="c049" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c050" msprop:Generator_ColumnVarNameInTable="columnc050" msprop:Generator_ColumnPropNameInRow="c050" msprop:Generator_ColumnPropNameInTable="c050Column" msprop:Generator_UserColumnName="c050" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c051" msprop:Generator_ColumnVarNameInTable="columnc051" msprop:Generator_ColumnPropNameInRow="c051" msprop:Generator_ColumnPropNameInTable="c051Column" msprop:Generator_UserColumnName="c051" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c052" msprop:Generator_ColumnVarNameInTable="columnc052" msprop:Generator_ColumnPropNameInRow="c052" msprop:Generator_ColumnPropNameInTable="c052Column" msprop:Generator_UserColumnName="c052" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c053" msprop:Generator_ColumnVarNameInTable="columnc053" msprop:Generator_ColumnPropNameInRow="c053" msprop:Generator_ColumnPropNameInTable="c053Column" msprop:Generator_UserColumnName="c053" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c054" msprop:Generator_ColumnVarNameInTable="columnc054" msprop:Generator_ColumnPropNameInRow="c054" msprop:Generator_ColumnPropNameInTable="c054Column" msprop:Generator_UserColumnName="c054" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c055" msprop:Generator_ColumnVarNameInTable="columnc055" msprop:Generator_ColumnPropNameInRow="c055" msprop:Generator_ColumnPropNameInTable="c055Column" msprop:Generator_UserColumnName="c055" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c056" msprop:Generator_ColumnVarNameInTable="columnc056" msprop:Generator_ColumnPropNameInRow="c056" msprop:Generator_ColumnPropNameInTable="c056Column" msprop:Generator_UserColumnName="c056" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c057" msprop:Generator_ColumnVarNameInTable="columnc057" msprop:Generator_ColumnPropNameInRow="c057" msprop:Generator_ColumnPropNameInTable="c057Column" msprop:Generator_UserColumnName="c057" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c058" msprop:Generator_ColumnVarNameInTable="columnc058" msprop:Generator_ColumnPropNameInRow="c058" msprop:Generator_ColumnPropNameInTable="c058Column" msprop:Generator_UserColumnName="c058" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c059" msprop:Generator_ColumnVarNameInTable="columnc059" msprop:Generator_ColumnPropNameInRow="c059" msprop:Generator_ColumnPropNameInTable="c059Column" msprop:Generator_UserColumnName="c059" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c060" msprop:Generator_ColumnVarNameInTable="columnc060" msprop:Generator_ColumnPropNameInRow="c060" msprop:Generator_ColumnPropNameInTable="c060Column" msprop:Generator_UserColumnName="c060" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c061" msprop:Generator_ColumnVarNameInTable="columnc061" msprop:Generator_ColumnPropNameInRow="c061" msprop:Generator_ColumnPropNameInTable="c061Column" msprop:Generator_UserColumnName="c061" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c062" msprop:Generator_ColumnVarNameInTable="columnc062" msprop:Generator_ColumnPropNameInRow="c062" msprop:Generator_ColumnPropNameInTable="c062Column" msprop:Generator_UserColumnName="c062" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c063" msprop:Generator_ColumnVarNameInTable="columnc063" msprop:Generator_ColumnPropNameInRow="c063" msprop:Generator_ColumnPropNameInTable="c063Column" msprop:Generator_UserColumnName="c063" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c064" msprop:Generator_ColumnVarNameInTable="columnc064" msprop:Generator_ColumnPropNameInRow="c064" msprop:Generator_ColumnPropNameInTable="c064Column" msprop:Generator_UserColumnName="c064" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c065" msprop:Generator_ColumnVarNameInTable="columnc065" msprop:Generator_ColumnPropNameInRow="c065" msprop:Generator_ColumnPropNameInTable="c065Column" msprop:Generator_UserColumnName="c065" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c066" msprop:Generator_ColumnVarNameInTable="columnc066" msprop:Generator_ColumnPropNameInRow="c066" msprop:Generator_ColumnPropNameInTable="c066Column" msprop:Generator_UserColumnName="c066" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c067" msprop:Generator_ColumnVarNameInTable="columnc067" msprop:Generator_ColumnPropNameInRow="c067" msprop:Generator_ColumnPropNameInTable="c067Column" msprop:Generator_UserColumnName="c067" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c068" msprop:Generator_ColumnVarNameInTable="columnc068" msprop:Generator_ColumnPropNameInRow="c068" msprop:Generator_ColumnPropNameInTable="c068Column" msprop:Generator_UserColumnName="c068" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c069" msprop:Generator_ColumnVarNameInTable="columnc069" msprop:Generator_ColumnPropNameInRow="c069" msprop:Generator_ColumnPropNameInTable="c069Column" msprop:Generator_UserColumnName="c069" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c070" msprop:Generator_ColumnVarNameInTable="columnc070" msprop:Generator_ColumnPropNameInRow="c070" msprop:Generator_ColumnPropNameInTable="c070Column" msprop:Generator_UserColumnName="c070" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c071" msprop:Generator_ColumnVarNameInTable="columnc071" msprop:Generator_ColumnPropNameInRow="c071" msprop:Generator_ColumnPropNameInTable="c071Column" msprop:Generator_UserColumnName="c071" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c072" msprop:Generator_ColumnVarNameInTable="columnc072" msprop:Generator_ColumnPropNameInRow="c072" msprop:Generator_ColumnPropNameInTable="c072Column" msprop:Generator_UserColumnName="c072" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c073" msprop:Generator_ColumnVarNameInTable="columnc073" msprop:Generator_ColumnPropNameInRow="c073" msprop:Generator_ColumnPropNameInTable="c073Column" msprop:Generator_UserColumnName="c073" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c074" msprop:Generator_ColumnVarNameInTable="columnc074" msprop:Generator_ColumnPropNameInRow="c074" msprop:Generator_ColumnPropNameInTable="c074Column" msprop:Generator_UserColumnName="c074" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c075" msprop:Generator_ColumnVarNameInTable="columnc075" msprop:Generator_ColumnPropNameInRow="c075" msprop:Generator_ColumnPropNameInTable="c075Column" msprop:Generator_UserColumnName="c075" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c076" msprop:Generator_ColumnVarNameInTable="columnc076" msprop:Generator_ColumnPropNameInRow="c076" msprop:Generator_ColumnPropNameInTable="c076Column" msprop:Generator_UserColumnName="c076" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c077" msprop:Generator_ColumnVarNameInTable="columnc077" msprop:Generator_ColumnPropNameInRow="c077" msprop:Generator_ColumnPropNameInTable="c077Column" msprop:Generator_UserColumnName="c077" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c078" msprop:Generator_ColumnVarNameInTable="columnc078" msprop:Generator_ColumnPropNameInRow="c078" msprop:Generator_ColumnPropNameInTable="c078Column" msprop:Generator_UserColumnName="c078" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c079" msprop:Generator_ColumnVarNameInTable="columnc079" msprop:Generator_ColumnPropNameInRow="c079" msprop:Generator_ColumnPropNameInTable="c079Column" msprop:Generator_UserColumnName="c079" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c080" msprop:Generator_ColumnVarNameInTable="columnc080" msprop:Generator_ColumnPropNameInRow="c080" msprop:Generator_ColumnPropNameInTable="c080Column" msprop:Generator_UserColumnName="c080" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c081" msprop:Generator_ColumnVarNameInTable="columnc081" msprop:Generator_ColumnPropNameInRow="c081" msprop:Generator_ColumnPropNameInTable="c081Column" msprop:Generator_UserColumnName="c081" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c082" msprop:Generator_ColumnVarNameInTable="columnc082" msprop:Generator_ColumnPropNameInRow="c082" msprop:Generator_ColumnPropNameInTable="c082Column" msprop:Generator_UserColumnName="c082" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c083" msprop:Generator_ColumnVarNameInTable="columnc083" msprop:Generator_ColumnPropNameInRow="c083" msprop:Generator_ColumnPropNameInTable="c083Column" msprop:Generator_UserColumnName="c083" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c084" msprop:Generator_ColumnVarNameInTable="columnc084" msprop:Generator_ColumnPropNameInRow="c084" msprop:Generator_ColumnPropNameInTable="c084Column" msprop:Generator_UserColumnName="c084" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c085" msprop:Generator_ColumnVarNameInTable="columnc085" msprop:Generator_ColumnPropNameInRow="c085" msprop:Generator_ColumnPropNameInTable="c085Column" msprop:Generator_UserColumnName="c085" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c086" msprop:Generator_ColumnVarNameInTable="columnc086" msprop:Generator_ColumnPropNameInRow="c086" msprop:Generator_ColumnPropNameInTable="c086Column" msprop:Generator_UserColumnName="c086" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c087" msprop:Generator_ColumnVarNameInTable="columnc087" msprop:Generator_ColumnPropNameInRow="c087" msprop:Generator_ColumnPropNameInTable="c087Column" msprop:Generator_UserColumnName="c087" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c088" msprop:Generator_ColumnVarNameInTable="columnc088" msprop:Generator_ColumnPropNameInRow="c088" msprop:Generator_ColumnPropNameInTable="c088Column" msprop:Generator_UserColumnName="c088" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c089" msprop:Generator_ColumnVarNameInTable="columnc089" msprop:Generator_ColumnPropNameInRow="c089" msprop:Generator_ColumnPropNameInTable="c089Column" msprop:Generator_UserColumnName="c089" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c090" msprop:Generator_ColumnVarNameInTable="columnc090" msprop:Generator_ColumnPropNameInRow="c090" msprop:Generator_ColumnPropNameInTable="c090Column" msprop:Generator_UserColumnName="c090" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c091" msprop:Generator_ColumnVarNameInTable="columnc091" msprop:Generator_ColumnPropNameInRow="c091" msprop:Generator_ColumnPropNameInTable="c091Column" msprop:Generator_UserColumnName="c091" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c092" msprop:Generator_ColumnVarNameInTable="columnc092" msprop:Generator_ColumnPropNameInRow="c092" msprop:Generator_ColumnPropNameInTable="c092Column" msprop:Generator_UserColumnName="c092" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c093" msprop:Generator_ColumnVarNameInTable="columnc093" msprop:Generator_ColumnPropNameInRow="c093" msprop:Generator_ColumnPropNameInTable="c093Column" msprop:Generator_UserColumnName="c093" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c094" msprop:Generator_ColumnVarNameInTable="columnc094" msprop:Generator_ColumnPropNameInRow="c094" msprop:Generator_ColumnPropNameInTable="c094Column" msprop:Generator_UserColumnName="c094" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c095" msprop:Generator_ColumnVarNameInTable="columnc095" msprop:Generator_ColumnPropNameInRow="c095" msprop:Generator_ColumnPropNameInTable="c095Column" msprop:Generator_UserColumnName="c095" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c096" msprop:Generator_ColumnVarNameInTable="columnc096" msprop:Generator_ColumnPropNameInRow="c096" msprop:Generator_ColumnPropNameInTable="c096Column" msprop:Generator_UserColumnName="c096" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c097" msprop:Generator_ColumnVarNameInTable="columnc097" msprop:Generator_ColumnPropNameInRow="c097" msprop:Generator_ColumnPropNameInTable="c097Column" msprop:Generator_UserColumnName="c097" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c098" msprop:Generator_ColumnVarNameInTable="columnc098" msprop:Generator_ColumnPropNameInRow="c098" msprop:Generator_ColumnPropNameInTable="c098Column" msprop:Generator_UserColumnName="c098" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c099" msprop:Generator_ColumnVarNameInTable="columnc099" msprop:Generator_ColumnPropNameInRow="c099" msprop:Generator_ColumnPropNameInTable="c099Column" msprop:Generator_UserColumnName="c099" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="c100" msprop:Generator_ColumnVarNameInTable="columnc100" msprop:Generator_ColumnPropNameInRow="c100" msprop:Generator_ColumnPropNameInTable="c100Column" msprop:Generator_UserColumnName="c100" type="xs:string" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:choice>
|
||||
</xs:complexType>
|
||||
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
|
||||
<xs:selector xpath=".//mstns:월별에너지분석" />
|
||||
<xs:field xpath="mstns:월" />
|
||||
<xs:field xpath="mstns:존" />
|
||||
</xs:unique>
|
||||
<xs:unique name="TReqUse_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
|
||||
<xs:selector xpath=".//mstns:TReqUse" />
|
||||
<xs:field xpath="mstns:Code" />
|
||||
</xs:unique>
|
||||
<xs:unique name="월별1차에너지사용량_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
|
||||
<xs:selector xpath=".//mstns:월별1차에너지사용량" />
|
||||
<xs:field xpath="mstns:code" />
|
||||
<xs:field xpath="mstns:월" />
|
||||
</xs:unique>
|
||||
<xs:unique name="설계계산결과_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
|
||||
<xs:selector xpath=".//mstns:설계계산결과" />
|
||||
<xs:field xpath="mstns:월" />
|
||||
</xs:unique>
|
||||
</xs:element>
|
||||
</xs:schema>
|
||||
30
ArinWarev1/DataSet/DSR.xss
Normal file
30
ArinWarev1/DataSet/DSR.xss
Normal file
@@ -0,0 +1,30 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--<autogenerated>
|
||||
This code was generated by a tool to store the dataset designer's layout information.
|
||||
Changes to this file may cause incorrect behavior and will be lost if
|
||||
the code is regenerated.
|
||||
</autogenerated>-->
|
||||
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-10" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
|
||||
<Shapes>
|
||||
<Shape ID="DesignTable:최대냉난방부하" ZOrder="16" X="1088" Y="435" Height="257" Width="152" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:월별에너지분석" ZOrder="2" X="939" Y="522" Height="562" Width="156" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="558" />
|
||||
<Shape ID="DesignTable:TReqUse" ZOrder="11" X="725" Y="64" Height="428" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="424" />
|
||||
<Shape ID="DesignTable:Graph_Req" ZOrder="19" X="1079" Y="347" Height="86" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="82" />
|
||||
<Shape ID="DesignTable:Graph_ReqUse" ZOrder="18" X="1078" Y="19" Height="86" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="82" />
|
||||
<Shape ID="DesignTable:Graph_Info" ZOrder="17" X="1079" Y="108" Height="238" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="234" />
|
||||
<Shape ID="DesignTable:사용면적" ZOrder="3" X="872" Y="174" Height="334" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="330" />
|
||||
<Shape ID="DesignTable:에너지소요량" ZOrder="13" X="187" Y="58" Height="410" Width="187" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="406" />
|
||||
<Shape ID="DesignTable:에너지소요량1" ZOrder="15" X="376" Y="56" Height="695" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="691" />
|
||||
<Shape ID="DesignTable:생산에너지" ZOrder="14" X="536" Y="58" Height="162" Width="153" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="158" />
|
||||
<Shape ID="DesignTable:Graph_Info_data" ZOrder="12" X="20" Y="52" Height="410" Width="161" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="406" />
|
||||
<Shape ID="DesignTable:Pyonga_REQ" ZOrder="10" X="551" Y="230" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
|
||||
<Shape ID="DesignTable:Pyonga_USE" ZOrder="8" X="547" Y="419" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
|
||||
<Shape ID="DesignTable:Pyonga_1USE" ZOrder="9" X="547" Y="330" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
|
||||
<Shape ID="DesignTable:Pyonga_YK" ZOrder="7" X="69" Y="476" Height="543" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="539" />
|
||||
<Shape ID="DesignTable:월별1차에너지사용량" ZOrder="6" X="877" Y="14" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
|
||||
<Shape ID="DesignTable:설계계산결과" ZOrder="4" X="613" Y="530" Height="238" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="234" />
|
||||
<Shape ID="DesignTable:설계계산파라미터" ZOrder="5" X="561" Y="696" Height="86" Width="164" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="82" />
|
||||
<Shape ID="DesignTable:ExtReport" ZOrder="1" X="0" Y="0" Height="809" Width="149" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="805" />
|
||||
</Shapes>
|
||||
<Connectors />
|
||||
</DiagramLayout>
|
||||
BIN
ArinWarev1/DataSet/DataSet.zip
Normal file
BIN
ArinWarev1/DataSet/DataSet.zip
Normal file
Binary file not shown.
BIN
ArinWarev1/ECO2.png
Normal file
BIN
ArinWarev1/ECO2.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 64 KiB |
695
ArinWarev1/ECO2OD.vbproj
Normal file
695
ArinWarev1/ECO2OD.vbproj
Normal file
@@ -0,0 +1,695 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>9.0.30729</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{D5C51BDE-68E5-42BC-B648-DB9CCF044703}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>Eco2OD.My.MyApplication</StartupObject>
|
||||
<RootNamespace>Eco2OD</RootNamespace>
|
||||
<AssemblyName>Eco2OD</AssemblyName>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetZone>LocalIntranet</TargetZone>
|
||||
<GenerateManifests>false</GenerateManifests>
|
||||
<SignManifests>false</SignManifests>
|
||||
<SignAssembly>false</SignAssembly>
|
||||
<AssemblyOriginatorKeyFile>
|
||||
</AssemblyOriginatorKeyFile>
|
||||
<ManifestCertificateThumbprint>283B51AD9210178E1628176E6D96B5102FED9775</ManifestCertificateThumbprint>
|
||||
<ManifestKeyFile>ArinWareT4_1_TemporaryKey.pfx</ManifestKeyFile>
|
||||
<DelaySign>false</DelaySign>
|
||||
<IsWebBootstrapper>true</IsWebBootstrapper>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<OldToolsVersion>3.5</OldToolsVersion>
|
||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||
<ApplicationIcon>icon.ico</ApplicationIcon>
|
||||
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
<PublishUrl>ftp://tindevil.com/www/mynetapp/t4/</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Web</InstallFrom>
|
||||
<UpdateEnabled>true</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<InstallUrl>http://tindevil.com/mynetapp/t4/</InstallUrl>
|
||||
<SupportUrl>http://tindevil.com</SupportUrl>
|
||||
<ProductName>Energy%28Test Version%29</ProductName>
|
||||
<PublisherName>Arinware</PublisherName>
|
||||
<CreateWebPageOnPublish>true</CreateWebPageOnPublish>
|
||||
<WebPage>index.htm</WebPage>
|
||||
<ApplicationRevision>33</ApplicationRevision>
|
||||
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>Full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>..\..\..\..\..\..\ECO2\debug_od\</OutputPath>
|
||||
<DocumentationFile>Eco2OD.xml</DocumentationFile>
|
||||
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355</NoWarn>
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
<WarningsAsErrors>
|
||||
</WarningsAsErrors>
|
||||
<Optimize>false</Optimize>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>Full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>..\..\..\..\..\..\ECO2\debug_od\</OutputPath>
|
||||
<DocumentationFile>Eco2OD.xml</DocumentationFile>
|
||||
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355</NoWarn>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<WarningsAsErrors>
|
||||
</WarningsAsErrors>
|
||||
<DefineConstants>MDI=true</DefineConstants>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="ArLog.Net4">
|
||||
<HintPath>..\ArLog.Net4.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="ArSetting.Net4">
|
||||
<HintPath>..\ArSetting.Net4.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="C1.Win.4, Version=4.0.20171.248, Culture=neutral, PublicKeyToken=944ae1ea0e47ca04" />
|
||||
<Reference Include="C1.Win.C1Command.4, Version=4.0.20171.248, Culture=neutral, PublicKeyToken=e808566f358766d8" />
|
||||
<Reference Include="C1.Win.C1FlexGrid.4, Version=4.0.20171.248, Culture=neutral, PublicKeyToken=79882d576c6336da, processorArchitecture=MSIL" />
|
||||
<Reference Include="C1.Win.C1Input.4, Version=4.0.20171.248, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a, processorArchitecture=MSIL" />
|
||||
<Reference Include="C1.Win.C1Ribbon.4, Version=4.0.20171.248, Culture=neutral, PublicKeyToken=79882d576c6336da, processorArchitecture=MSIL" />
|
||||
<Reference Include="Interop.Excel, Version=1.5.0.0, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\Interop.Excel.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Interop.VBIDE, Version=5.3.0.0, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\Interop.VBIDE.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.ReportViewer.Common, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<Reference Include="Microsoft.ReportViewer.WinForms, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Configuration" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Data.DataSetExtensions" />
|
||||
<Reference Include="System.Design" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Web.Services" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="ArinNet" />
|
||||
<Import Include="CEnergy" />
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Drawing" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="ApplicationEvents.vb" />
|
||||
<Compile Include="Calculator-OD\AirHandling\CAirHandling.vb" />
|
||||
<Compile Include="Calculator-OD\Calculator.vb" />
|
||||
<Compile Include="Calculator-OD\Cooling\CCooling.vb" />
|
||||
<Compile Include="Calculator-OD\CShared.vb" />
|
||||
<Compile Include="Calculator-OD\Heating\CHeating.vb" />
|
||||
<Compile Include="Calculator-OD\Renewable\CRenewable.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C1차소요량.vb" />
|
||||
<Compile Include="Calculator-OD\Result\CCo2발생량.vb" />
|
||||
<Compile Include="Calculator-OD\Result\CResult.vb" />
|
||||
<Compile Include="Calculator-OD\Result\CZones.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C범용.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C사용면적.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C생산에너지.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C에너지분석.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C에너지소요량.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C에너지요구량.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C최대냉난방부하.vb" />
|
||||
<Compile Include="Calculator-OD\Summary\CSummary.vb" />
|
||||
<Compile Include="Calculator-OD\Zone\CZone.vb" />
|
||||
<Compile Include="DataSet\DS.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>DS.xsd</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="DataSet\DS.vb">
|
||||
<DependentUpon>DS.xsd</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_ExtReport.Designer.vb">
|
||||
<DependentUpon>Frm_ExtReport.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_ExtReport.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Filter.Designer.vb">
|
||||
<DependentUpon>Frm_Filter.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Filter.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_import2.Designer.vb">
|
||||
<DependentUpon>Frm_import2.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_import2.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_profile.Designer.vb">
|
||||
<DependentUpon>Frm_profile.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_profile.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_v20091231_buha.Designer.vb">
|
||||
<DependentUpon>Frm_v20091231_buha.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_v20091231_buha.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Weather.Designer.vb">
|
||||
<DependentUpon>Frm_Weather.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Weather.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Yk.Designer.vb">
|
||||
<DependentUpon>Frm_Yk.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Yk.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Zone.Designer.vb">
|
||||
<DependentUpon>Frm_Zone.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Zone.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\fSelectArea.Designer.vb">
|
||||
<DependentUpon>fSelectArea.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\fSelectArea.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\LoginForm1.Designer.vb">
|
||||
<DependentUpon>LoginForm1.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\LoginForm1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_6_Req.Designer.vb">
|
||||
<DependentUpon>Frm_6_Req.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_6_Req.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Frm_Debug.Designer.vb">
|
||||
<DependentUpon>Frm_Debug.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Frm_Debug.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_1_Basic.Designer.vb">
|
||||
<DependentUpon>Frm_1_Basic.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_1_Basic.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_2_Build.Designer.vb">
|
||||
<DependentUpon>Frm_2_Build.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_2_Build.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_3_Mach.Designer.vb">
|
||||
<DependentUpon>Frm_3_Mach.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_3_Mach.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_5_New.Designer.vb">
|
||||
<DependentUpon>Frm_5_New.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_5_New.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Module\CMenu.vb" />
|
||||
<Compile Include="Module\OD.vb" />
|
||||
<Compile Include="REPORT-OD\Frm_v20091231_Report.Designer.vb">
|
||||
<DependentUpon>Frm_v20091231_Report.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Frm_v20091231_Report.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_v20091231_YK.Designer.vb">
|
||||
<DependentUpon>Frm_v20091231_YK.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_v20091231_YK.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Report_검토서.Designer.vb">
|
||||
<DependentUpon>Report_검토서.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Report_검토서.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Report_검토서2.Designer.vb">
|
||||
<DependentUpon>Report_검토서2.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Report_검토서2.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Report_친환경.Designer.vb">
|
||||
<DependentUpon>Report_친환경.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Report_친환경.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\YkCtl.Designer.vb">
|
||||
<DependentUpon>YkCtl.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\YkCtl.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_DisplayGubun.Designer.vb">
|
||||
<DependentUpon>Frm_DisplayGubun.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_DisplayGubun.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Work.Designer.vb">
|
||||
<DependentUpon>Frm_Work.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Work.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_RepResult_Admin.Designer.vb">
|
||||
<DependentUpon>Frm_RepResult_Admin.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_RepResult_Admin.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Warning.Designer.vb">
|
||||
<DependentUpon>Frm_Warning.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Warning.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Module\CLang.vb" />
|
||||
<Compile Include="DataSet\DSR.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>DSR.xsd</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="DataSet\DSR.vb">
|
||||
<DependentUpon>DSR.xsd</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Module\Enum.vb" />
|
||||
<Compile Include="FORM-BASIC\Frm_Intro.Designer.vb">
|
||||
<DependentUpon>Frm_Intro.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Intro.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Module\CForm.Designer.vb">
|
||||
<DependentUpon>CForm.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Module\CForm.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Module\Pub.vb" />
|
||||
<Compile Include="MdiMain.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="MdiMain.Designer.vb">
|
||||
<DependentUpon>MdiMain.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Common.Designer.vb">
|
||||
<DependentUpon>Frm_Common.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Common.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_About.Designer.vb">
|
||||
<DependentUpon>Frm_About.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_About.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\ArinDv.Designer.vb">
|
||||
<DependentUpon>ArinDv.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\ArinDv.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\MyCmb.Designer.vb">
|
||||
<DependentUpon>MyCmb.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\MyCmb.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\MyTb.Designer.vb">
|
||||
<DependentUpon>MyTb.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\MyTb.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_FileInfo.Designer.vb">
|
||||
<DependentUpon>Frm_FileInfo.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_FileInfo.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_DisplayGubun.resx">
|
||||
<DependentUpon>Frm_DisplayGubun.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_ExtReport.resx">
|
||||
<DependentUpon>Frm_ExtReport.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Filter.resx">
|
||||
<DependentUpon>Frm_Filter.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_import2.resx">
|
||||
<DependentUpon>Frm_import2.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_profile.resx">
|
||||
<DependentUpon>Frm_profile.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_v20091231_buha.resx">
|
||||
<DependentUpon>Frm_v20091231_buha.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Weather.resx">
|
||||
<DependentUpon>Frm_Weather.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Work.resx">
|
||||
<DependentUpon>Frm_Work.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Yk.resx">
|
||||
<DependentUpon>Frm_Yk.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Zone.resx">
|
||||
<DependentUpon>Frm_Zone.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\fSelectArea.resx">
|
||||
<DependentUpon>fSelectArea.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\LoginForm1.resx">
|
||||
<DependentUpon>LoginForm1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-OD\Frm_6_Req.resx">
|
||||
<DependentUpon>Frm_6_Req.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Frm_Debug.resx">
|
||||
<DependentUpon>Frm_Debug.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_RepResult_Admin.resx">
|
||||
<DependentUpon>Frm_RepResult_Admin.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Intro.resx">
|
||||
<SubType>Designer</SubType>
|
||||
<DependentUpon>Frm_Intro.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Warning.resx">
|
||||
<DependentUpon>Frm_Warning.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-OD\Frm_1_Basic.resx">
|
||||
<DependentUpon>Frm_1_Basic.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-OD\Frm_2_Build.resx">
|
||||
<DependentUpon>Frm_2_Build.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-OD\Frm_3_Mach.resx">
|
||||
<DependentUpon>Frm_3_Mach.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-OD\Frm_5_New.resx">
|
||||
<DependentUpon>Frm_5_New.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Module\CForm.resx">
|
||||
<DependentUpon>CForm.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="MdiMain.resx">
|
||||
<SubType>Designer</SubType>
|
||||
<DependentUpon>MdiMain.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Common.resx">
|
||||
<DependentUpon>Frm_Common.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_About.resx">
|
||||
<SubType>Designer</SubType>
|
||||
<DependentUpon>Frm_About.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_FileInfo.resx">
|
||||
<DependentUpon>Frm_FileInfo.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="REPORT-OD\Frm_v20091231_Report.resx">
|
||||
<DependentUpon>Frm_v20091231_Report.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_v20091231_YK.resx">
|
||||
<DependentUpon>Frm_v20091231_YK.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="REPORT-OD\Report_result.rdlc" />
|
||||
<EmbeddedResource Include="REPORT-OD\Result_검토서.rdlc" />
|
||||
<EmbeddedResource Include="REPORT-OD\Report_검토서.resx">
|
||||
<DependentUpon>Report_검토서.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="REPORT-OD\Report_검토서2.resx">
|
||||
<DependentUpon>Report_검토서2.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="REPORT-OD\Result_검토서2.rdlc">
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="REPORT-OD\Report_친환경.resx">
|
||||
<DependentUpon>Report_친환경.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="REPORT-OD\Result_친환경.rdlc" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="app.config" />
|
||||
<None Include="DataSet\DS.xsc">
|
||||
<DependentUpon>DS.xsd</DependentUpon>
|
||||
</None>
|
||||
<None Include="DataSet\DS.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
<Generator>MSDataSetGenerator</Generator>
|
||||
<LastGenOutput>DS.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="DataSet\DS.xss">
|
||||
<DependentUpon>DS.xsd</DependentUpon>
|
||||
</None>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\user_24.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\ref_24.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\user_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\group_24.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\adfav_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\addbk_24.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\addbk_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\wiz_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\paste_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\del_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\edit_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="002.ico" />
|
||||
<None Include="Resources\Calculator_32.png" />
|
||||
<None Include="Resources\Versions_32.png" />
|
||||
<BaseApplicationManifest Include="My Project\app.manifest" />
|
||||
<None Include="DataSet\DSR.xsc">
|
||||
<DependentUpon>DSR.xsd</DependentUpon>
|
||||
</None>
|
||||
<None Include="DataSet\DSR.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
<Generator>MSDataSetGenerator</Generator>
|
||||
<LastGenOutput>DSR.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="DataSet\DSR.xss">
|
||||
<DependentUpon>DSR.xsd</DependentUpon>
|
||||
</None>
|
||||
<None Include="Resources\save_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 2.0%28x86%29</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.0%28x86%29</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="9-8.ico" />
|
||||
<None Include="Resources\폼배경.jpg" />
|
||||
<None Include="Resources\건물개요.jpg" />
|
||||
<None Include="ECO2.png" />
|
||||
<Content Include="icon.ico" />
|
||||
<Content Include="icon5.ico" />
|
||||
<None Include="Resources\select_by_difference.png" />
|
||||
<None Include="Resources\page_copy.png" />
|
||||
<Content Include="단축키.txt">
|
||||
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="ReadMe.txt" />
|
||||
<None Include="Resources\default.png" />
|
||||
<None Include="Resources\apps_32.png" />
|
||||
<None Include="Resources\new_32.png" />
|
||||
<None Include="Resources\remov_32.png" />
|
||||
<None Include="Resources\cancl_32.png" />
|
||||
<None Include="방위2.png" />
|
||||
<None Include="방위.png" />
|
||||
<None Include="방위.jpg" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<PublishFile Include="ADODB">
|
||||
<Visible>False</Visible>
|
||||
<Group>
|
||||
</Group>
|
||||
<TargetPath>
|
||||
</TargetPath>
|
||||
<PublishState>Include</PublishState>
|
||||
<IncludeHash>True</IncludeHash>
|
||||
<FileType>Assembly</FileType>
|
||||
</PublishFile>
|
||||
<PublishFile Include="Microsoft.ReportViewer.ProcessingObjectModel">
|
||||
<Visible>False</Visible>
|
||||
<Group>
|
||||
</Group>
|
||||
<TargetPath>
|
||||
</TargetPath>
|
||||
<PublishState>Include</PublishState>
|
||||
<IncludeHash>True</IncludeHash>
|
||||
<FileType>Assembly</FileType>
|
||||
</PublishFile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<ProjectReference Include="..\ArinLogin\ArinLogin.vbproj">
|
||||
<Project>{8B6E4D7F-B484-471A-A419-2FE3451D26A3}</Project>
|
||||
<Name>ArinLogin</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\ArinNet\ArinNet.vbproj">
|
||||
<Project>{F0FB4304-F995-446A-99B7-0896A5E07A72}</Project>
|
||||
<Name>ArinNet</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\CEnergy\ArinClassV2\CEnergy.vbproj">
|
||||
<Project>{2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}</Project>
|
||||
<Name>CEnergy</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\mn\mn\mn.vbproj">
|
||||
<Project>{C47BFE30-BD8C-468B-87E4-E07214A882B6}</Project>
|
||||
<Name>mn</Name>
|
||||
</ProjectReference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Folder Include="Calculator-OD\Heating\NewCalc\" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
697
ArinWarev1/ECO2OD.vbproj.bak
Normal file
697
ArinWarev1/ECO2OD.vbproj.bak
Normal file
@@ -0,0 +1,697 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>9.0.30729</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{D5C51BDE-68E5-42BC-B648-DB9CCF044703}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>Eco2OD.My.MyApplication</StartupObject>
|
||||
<RootNamespace>Eco2OD</RootNamespace>
|
||||
<AssemblyName>Eco2OD</AssemblyName>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetZone>LocalIntranet</TargetZone>
|
||||
<GenerateManifests>false</GenerateManifests>
|
||||
<SignManifests>false</SignManifests>
|
||||
<SignAssembly>false</SignAssembly>
|
||||
<AssemblyOriginatorKeyFile>
|
||||
</AssemblyOriginatorKeyFile>
|
||||
<ManifestCertificateThumbprint>283B51AD9210178E1628176E6D96B5102FED9775</ManifestCertificateThumbprint>
|
||||
<ManifestKeyFile>ArinWareT4_1_TemporaryKey.pfx</ManifestKeyFile>
|
||||
<DelaySign>false</DelaySign>
|
||||
<IsWebBootstrapper>true</IsWebBootstrapper>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<OldToolsVersion>3.5</OldToolsVersion>
|
||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||
<ApplicationIcon>icon.ico</ApplicationIcon>
|
||||
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
<PublishUrl>ftp://tindevil.com/www/mynetapp/t4/</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Web</InstallFrom>
|
||||
<UpdateEnabled>true</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<InstallUrl>http://tindevil.com/mynetapp/t4/</InstallUrl>
|
||||
<SupportUrl>http://tindevil.com</SupportUrl>
|
||||
<ProductName>Energy%28Test Version%29</ProductName>
|
||||
<PublisherName>Arinware</PublisherName>
|
||||
<CreateWebPageOnPublish>true</CreateWebPageOnPublish>
|
||||
<WebPage>index.htm</WebPage>
|
||||
<ApplicationRevision>33</ApplicationRevision>
|
||||
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>Full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>..\..\..\..\..\..\ECO2\debug_od\</OutputPath>
|
||||
<DocumentationFile>Eco2OD.xml</DocumentationFile>
|
||||
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355</NoWarn>
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
<WarningsAsErrors>
|
||||
</WarningsAsErrors>
|
||||
<Optimize>false</Optimize>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>Full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>..\..\..\..\..\..\ECO2\debug_od\</OutputPath>
|
||||
<DocumentationFile>Eco2OD.xml</DocumentationFile>
|
||||
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355</NoWarn>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<WarningsAsErrors>
|
||||
</WarningsAsErrors>
|
||||
<DefineConstants>MDI=true</DefineConstants>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="ArLog.Net4">
|
||||
<HintPath>..\ArLog.Net4.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="ArSetting.Net4">
|
||||
<HintPath>..\ArSetting.Net4.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="C1.Win.4, Version=4.0.20171.248, Culture=neutral, PublicKeyToken=944ae1ea0e47ca04">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="C1.Win.C1Command.4, Version=4.0.20171.248, Culture=neutral, PublicKeyToken=e808566f358766d8">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="C1.Win.C1FlexGrid.4, Version=4.0.20171.248, Culture=neutral, PublicKeyToken=79882d576c6336da, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="C1.Win.C1Input.4, Version=4.0.20171.248, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a, processorArchitecture=MSIL" />
|
||||
<Reference Include="C1.Win.C1Ribbon.4, Version=4.0.20171.248, Culture=neutral, PublicKeyToken=79882d576c6336da, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
</Reference>
|
||||
<Reference Include="Interop.Excel, Version=1.5.0.0, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\Interop.Excel.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Interop.VBIDE, Version=5.3.0.0, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\Interop.VBIDE.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.ReportViewer.Common, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<Reference Include="Microsoft.ReportViewer.WinForms, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Configuration" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Data.DataSetExtensions" />
|
||||
<Reference Include="System.Design" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Web.Services" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="ArinNet" />
|
||||
<Import Include="CEnergy" />
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Drawing" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="ApplicationEvents.vb" />
|
||||
<Compile Include="Calculator-OD\AirHandling\CAirHandling.vb" />
|
||||
<Compile Include="Calculator-OD\Calculator.vb" />
|
||||
<Compile Include="Calculator-OD\Cooling\CCooling.vb" />
|
||||
<Compile Include="Calculator-OD\CShared.vb" />
|
||||
<Compile Include="Calculator-OD\Heating\CHeating.vb" />
|
||||
<Compile Include="Calculator-OD\Renewable\CRenewable.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C1차소요량.vb" />
|
||||
<Compile Include="Calculator-OD\Result\CCo2발생량.vb" />
|
||||
<Compile Include="Calculator-OD\Result\CResult.vb" />
|
||||
<Compile Include="Calculator-OD\Result\CZones.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C범용.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C사용면적.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C생산에너지.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C에너지분석.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C에너지소요량.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C에너지요구량.vb" />
|
||||
<Compile Include="Calculator-OD\Result\C최대냉난방부하.vb" />
|
||||
<Compile Include="Calculator-OD\Summary\CSummary.vb" />
|
||||
<Compile Include="Calculator-OD\Zone\CZone.vb" />
|
||||
<Compile Include="DataSet\DS.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>DS.xsd</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_ExtReport.Designer.vb">
|
||||
<DependentUpon>Frm_ExtReport.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_ExtReport.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Filter.Designer.vb">
|
||||
<DependentUpon>Frm_Filter.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Filter.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_import2.Designer.vb">
|
||||
<DependentUpon>Frm_import2.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_import2.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_profile.Designer.vb">
|
||||
<DependentUpon>Frm_profile.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_profile.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_v20091231_buha.Designer.vb">
|
||||
<DependentUpon>Frm_v20091231_buha.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_v20091231_buha.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Weather.Designer.vb">
|
||||
<DependentUpon>Frm_Weather.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Weather.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Yk.Designer.vb">
|
||||
<DependentUpon>Frm_Yk.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Yk.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Zone.Designer.vb">
|
||||
<DependentUpon>Frm_Zone.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Zone.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\fSelectArea.Designer.vb">
|
||||
<DependentUpon>fSelectArea.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\fSelectArea.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\LoginForm1.Designer.vb">
|
||||
<DependentUpon>LoginForm1.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\LoginForm1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_6_Req.Designer.vb">
|
||||
<DependentUpon>Frm_6_Req.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_6_Req.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Frm_Debug.Designer.vb">
|
||||
<DependentUpon>Frm_Debug.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Frm_Debug.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_1_Basic.Designer.vb">
|
||||
<DependentUpon>Frm_1_Basic.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_1_Basic.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_2_Build.Designer.vb">
|
||||
<DependentUpon>Frm_2_Build.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_2_Build.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_3_Mach.Designer.vb">
|
||||
<DependentUpon>Frm_3_Mach.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_3_Mach.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_5_New.Designer.vb">
|
||||
<DependentUpon>Frm_5_New.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-OD\Frm_5_New.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Module\CMenu.vb" />
|
||||
<Compile Include="Module\OD.vb" />
|
||||
<Compile Include="REPORT-OD\Frm_v20091231_Report.Designer.vb">
|
||||
<DependentUpon>Frm_v20091231_Report.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Frm_v20091231_Report.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_v20091231_YK.Designer.vb">
|
||||
<DependentUpon>Frm_v20091231_YK.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_v20091231_YK.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Report_검토서.Designer.vb">
|
||||
<DependentUpon>Report_검토서.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Report_검토서.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Report_검토서2.Designer.vb">
|
||||
<DependentUpon>Report_검토서2.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Report_검토서2.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Report_친환경.Designer.vb">
|
||||
<DependentUpon>Report_친환경.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="REPORT-OD\Report_친환경.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\YkCtl.Designer.vb">
|
||||
<DependentUpon>YkCtl.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\YkCtl.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_DisplayGubun.Designer.vb">
|
||||
<DependentUpon>Frm_DisplayGubun.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_DisplayGubun.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Work.Designer.vb">
|
||||
<DependentUpon>Frm_Work.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Work.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_RepResult_Admin.Designer.vb">
|
||||
<DependentUpon>Frm_RepResult_Admin.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_RepResult_Admin.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Warning.Designer.vb">
|
||||
<DependentUpon>Frm_Warning.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Warning.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Module\CLang.vb" />
|
||||
<Compile Include="DataSet\DSR.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>DSR.xsd</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="DataSet\DSR.vb">
|
||||
<DependentUpon>DSR.xsd</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Module\Enum.vb" />
|
||||
<Compile Include="FORM-BASIC\Frm_Intro.Designer.vb">
|
||||
<DependentUpon>Frm_Intro.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Intro.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Module\CForm.Designer.vb">
|
||||
<DependentUpon>CForm.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Module\CForm.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Module\Pub.vb" />
|
||||
<Compile Include="MdiMain.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="MdiMain.Designer.vb">
|
||||
<DependentUpon>MdiMain.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Common.Designer.vb">
|
||||
<DependentUpon>Frm_Common.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_Common.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_About.Designer.vb">
|
||||
<DependentUpon>Frm_About.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_About.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\ArinDv.Designer.vb">
|
||||
<DependentUpon>ArinDv.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\ArinDv.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\MyCmb.Designer.vb">
|
||||
<DependentUpon>MyCmb.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\MyCmb.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\MyTb.Designer.vb">
|
||||
<DependentUpon>MyTb.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="UserControls\MyTb.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_FileInfo.Designer.vb">
|
||||
<DependentUpon>Frm_FileInfo.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FORM-BASIC\Frm_FileInfo.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_DisplayGubun.resx">
|
||||
<DependentUpon>Frm_DisplayGubun.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_ExtReport.resx">
|
||||
<DependentUpon>Frm_ExtReport.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Filter.resx">
|
||||
<DependentUpon>Frm_Filter.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_import2.resx">
|
||||
<DependentUpon>Frm_import2.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_profile.resx">
|
||||
<DependentUpon>Frm_profile.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_v20091231_buha.resx">
|
||||
<DependentUpon>Frm_v20091231_buha.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Weather.resx">
|
||||
<DependentUpon>Frm_Weather.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Work.resx">
|
||||
<DependentUpon>Frm_Work.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Yk.resx">
|
||||
<DependentUpon>Frm_Yk.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Zone.resx">
|
||||
<DependentUpon>Frm_Zone.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\fSelectArea.resx">
|
||||
<DependentUpon>fSelectArea.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\LoginForm1.resx">
|
||||
<DependentUpon>LoginForm1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-OD\Frm_6_Req.resx">
|
||||
<DependentUpon>Frm_6_Req.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Frm_Debug.resx">
|
||||
<DependentUpon>Frm_Debug.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_RepResult_Admin.resx">
|
||||
<DependentUpon>Frm_RepResult_Admin.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Intro.resx">
|
||||
<SubType>Designer</SubType>
|
||||
<DependentUpon>Frm_Intro.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Warning.resx">
|
||||
<DependentUpon>Frm_Warning.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-OD\Frm_1_Basic.resx">
|
||||
<DependentUpon>Frm_1_Basic.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-OD\Frm_2_Build.resx">
|
||||
<DependentUpon>Frm_2_Build.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-OD\Frm_3_Mach.resx">
|
||||
<DependentUpon>Frm_3_Mach.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-OD\Frm_5_New.resx">
|
||||
<DependentUpon>Frm_5_New.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Module\CForm.resx">
|
||||
<DependentUpon>CForm.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="MdiMain.resx">
|
||||
<SubType>Designer</SubType>
|
||||
<DependentUpon>MdiMain.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_Common.resx">
|
||||
<DependentUpon>Frm_Common.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_About.resx">
|
||||
<SubType>Designer</SubType>
|
||||
<DependentUpon>Frm_About.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_FileInfo.resx">
|
||||
<DependentUpon>Frm_FileInfo.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="REPORT-OD\Frm_v20091231_Report.resx">
|
||||
<DependentUpon>Frm_v20091231_Report.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FORM-BASIC\Frm_v20091231_YK.resx">
|
||||
<DependentUpon>Frm_v20091231_YK.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="REPORT-OD\Report_result.rdlc" />
|
||||
<EmbeddedResource Include="REPORT-OD\Result_검토서.rdlc" />
|
||||
<EmbeddedResource Include="REPORT-OD\Report_검토서.resx">
|
||||
<DependentUpon>Report_검토서.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="REPORT-OD\Report_검토서2.resx">
|
||||
<DependentUpon>Report_검토서2.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="REPORT-OD\Result_검토서2.rdlc" />
|
||||
<EmbeddedResource Include="REPORT-OD\Report_친환경.resx">
|
||||
<DependentUpon>Report_친환경.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="REPORT-OD\Result_친환경.rdlc" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="app.config" />
|
||||
<None Include="DataSet\DS.xsc">
|
||||
<DependentUpon>DS.xsd</DependentUpon>
|
||||
</None>
|
||||
<None Include="DataSet\DS.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
<Generator>MSDataSetGenerator</Generator>
|
||||
<LastGenOutput>DS.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="DataSet\DS.xss">
|
||||
<DependentUpon>DS.xsd</DependentUpon>
|
||||
</None>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\user_24.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\ref_24.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\user_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\group_24.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\adfav_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\addbk_24.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\addbk_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\wiz_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\paste_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\del_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\edit_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="002.ico" />
|
||||
<None Include="Resources\Calculator_32.png" />
|
||||
<None Include="Resources\Versions_32.png" />
|
||||
<BaseApplicationManifest Include="My Project\app.manifest" />
|
||||
<None Include="DataSet\DSR.xsc">
|
||||
<DependentUpon>DSR.xsd</DependentUpon>
|
||||
</None>
|
||||
<None Include="DataSet\DSR.xsd">
|
||||
<SubType>Designer</SubType>
|
||||
<Generator>MSDataSetGenerator</Generator>
|
||||
<LastGenOutput>DSR.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="DataSet\DSR.xss">
|
||||
<DependentUpon>DSR.xsd</DependentUpon>
|
||||
</None>
|
||||
<None Include="Resources\save_16.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 2.0%28x86%29</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.0%28x86%29</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="9-8.ico" />
|
||||
<None Include="Resources\폼배경.jpg" />
|
||||
<None Include="Resources\건물개요.jpg" />
|
||||
<None Include="ECO2.png" />
|
||||
<Content Include="icon.ico" />
|
||||
<Content Include="icon5.ico" />
|
||||
<None Include="Resources\select_by_difference.png" />
|
||||
<None Include="Resources\page_copy.png" />
|
||||
<Content Include="단축키.txt">
|
||||
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
|
||||
</Content>
|
||||
<Content Include="ReadMe.txt" />
|
||||
<None Include="Resources\default.png" />
|
||||
<None Include="Resources\apps_32.png" />
|
||||
<None Include="Resources\new_32.png" />
|
||||
<None Include="Resources\remov_32.png" />
|
||||
<None Include="Resources\cancl_32.png" />
|
||||
<Content Include="UpdateList.txt" />
|
||||
<None Include="방위2.png" />
|
||||
<None Include="방위.png" />
|
||||
<None Include="방위.jpg" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<PublishFile Include="ADODB">
|
||||
<Visible>False</Visible>
|
||||
<Group>
|
||||
</Group>
|
||||
<TargetPath>
|
||||
</TargetPath>
|
||||
<PublishState>Include</PublishState>
|
||||
<IncludeHash>True</IncludeHash>
|
||||
<FileType>Assembly</FileType>
|
||||
</PublishFile>
|
||||
<PublishFile Include="Microsoft.ReportViewer.ProcessingObjectModel">
|
||||
<Visible>False</Visible>
|
||||
<Group>
|
||||
</Group>
|
||||
<TargetPath>
|
||||
</TargetPath>
|
||||
<PublishState>Include</PublishState>
|
||||
<IncludeHash>True</IncludeHash>
|
||||
<FileType>Assembly</FileType>
|
||||
</PublishFile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<ProjectReference Include="..\ArinLogin\ArinLogin.vbproj">
|
||||
<Project>{8B6E4D7F-B484-471A-A419-2FE3451D26A3}</Project>
|
||||
<Name>ArinLogin</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\ArinNet\ArinNet.vbproj">
|
||||
<Project>{F0FB4304-F995-446A-99B7-0896A5E07A72}</Project>
|
||||
<Name>ArinNet</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\CEnergy\ArinClassV2\CEnergy.vbproj">
|
||||
<Project>{2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}</Project>
|
||||
<Name>CEnergy</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\mn\mn\mn.vbproj">
|
||||
<Project>{C47BFE30-BD8C-468B-87E4-E07214A882B6}</Project>
|
||||
<Name>mn</Name>
|
||||
</ProjectReference>
|
||||
</ItemGroup>
|
||||
<ItemGroup />
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
25
ArinWarev1/ECO2OD.vbproj.user
Normal file
25
ArinWarev1/ECO2OD.vbproj.user
Normal file
@@ -0,0 +1,25 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory>ftp://tindevil.com/www/mynetapp/t4/|ftp://tindevil.com/public_html/mynetapp/t4/|ftp://tindevil.com/public_html/mynetapp/|publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory>http://tindevil.com/mynetapp/t4/|http://tindevil.com/mynetapp/</InstallUrlHistory>
|
||||
<SupportUrlHistory>http://tindevil.com</SupportUrlHistory>
|
||||
<UpdateUrlHistory>
|
||||
</UpdateUrlHistory>
|
||||
<BootstrapperUrlHistory>
|
||||
</BootstrapperUrlHistory>
|
||||
<FallbackCulture>ko-KR</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
<ErrorReportUrlHistory>
|
||||
</ErrorReportUrlHistory>
|
||||
<ProjectView>ProjectFiles</ProjectView>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
178
ArinWarev1/FORM-BASIC/FORM-BASIC/Frm_import2.Designer.vb
generated
Normal file
178
ArinWarev1/FORM-BASIC/FORM-BASIC/Frm_import2.Designer.vb
generated
Normal file
@@ -0,0 +1,178 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_import2
|
||||
Inherits CForm
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_import2))
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.chk_deldata = New System.Windows.Forms.CheckBox()
|
||||
Me.ListView1 = New System.Windows.Forms.ListView()
|
||||
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Me.tb_file = New System.Windows.Forms.TextBox()
|
||||
Me.rado = New System.Windows.Forms.RadioButton()
|
||||
Me.radi = New System.Windows.Forms.RadioButton()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.Transparent
|
||||
resources.ApplyResources(Me.Panel1, "Panel1")
|
||||
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Panel1.Controls.Add(Me.chk_deldata)
|
||||
Me.Panel1.Controls.Add(Me.ListView1)
|
||||
Me.Panel1.Controls.Add(Me.tb_file)
|
||||
Me.Panel1.Controls.Add(Me.rado)
|
||||
Me.Panel1.Controls.Add(Me.radi)
|
||||
Me.Panel1.Controls.Add(Me.Button2)
|
||||
Me.Panel1.Controls.Add(Me.Button1)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Controls.Add(Me.PictureBox1)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
'
|
||||
'chk_deldata
|
||||
'
|
||||
resources.ApplyResources(Me.chk_deldata, "chk_deldata")
|
||||
Me.chk_deldata.Checked = True
|
||||
Me.chk_deldata.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.chk_deldata.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||
Me.chk_deldata.Name = "chk_deldata"
|
||||
Me.chk_deldata.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ListView1
|
||||
'
|
||||
Me.ListView1.Activation = System.Windows.Forms.ItemActivation.OneClick
|
||||
Me.ListView1.CheckBoxes = True
|
||||
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3})
|
||||
Me.ListView1.FullRowSelect = True
|
||||
Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
|
||||
Me.ListView1.HotTracking = True
|
||||
Me.ListView1.HoverSelection = True
|
||||
resources.ApplyResources(Me.ListView1, "ListView1")
|
||||
Me.ListView1.Name = "ListView1"
|
||||
Me.ListView1.UseCompatibleStateImageBehavior = False
|
||||
Me.ListView1.View = System.Windows.Forms.View.Details
|
||||
'
|
||||
'ColumnHeader1
|
||||
'
|
||||
resources.ApplyResources(Me.ColumnHeader1, "ColumnHeader1")
|
||||
'
|
||||
'ColumnHeader2
|
||||
'
|
||||
resources.ApplyResources(Me.ColumnHeader2, "ColumnHeader2")
|
||||
'
|
||||
'ColumnHeader3
|
||||
'
|
||||
resources.ApplyResources(Me.ColumnHeader3, "ColumnHeader3")
|
||||
'
|
||||
'tb_file
|
||||
'
|
||||
Me.tb_file.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
resources.ApplyResources(Me.tb_file, "tb_file")
|
||||
Me.tb_file.Name = "tb_file"
|
||||
'
|
||||
'rado
|
||||
'
|
||||
resources.ApplyResources(Me.rado, "rado")
|
||||
Me.rado.BackColor = System.Drawing.Color.Transparent
|
||||
Me.rado.Checked = True
|
||||
Me.rado.Name = "rado"
|
||||
Me.rado.TabStop = True
|
||||
Me.rado.UseVisualStyleBackColor = False
|
||||
'
|
||||
'radi
|
||||
'
|
||||
resources.ApplyResources(Me.radi, "radi")
|
||||
Me.radi.BackColor = System.Drawing.Color.Transparent
|
||||
Me.radi.Name = "radi"
|
||||
Me.radi.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
resources.ApplyResources(Me.Button2, "Button2")
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
resources.ApplyResources(Me.Button1, "Button1")
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
resources.ApplyResources(Me.Label2, "Label2")
|
||||
Me.Label2.Name = "Label2"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
resources.ApplyResources(Me.Label1, "Label1")
|
||||
Me.Label1.Name = "Label1"
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
resources.ApplyResources(Me.PictureBox1, "PictureBox1")
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'Frm_Import
|
||||
'
|
||||
resources.ApplyResources(Me, "$this")
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.SystemColors.AppWorkspace
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.KeyPreview = True
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "Frm_Import"
|
||||
Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents rado As System.Windows.Forms.RadioButton
|
||||
Friend WithEvents radi As System.Windows.Forms.RadioButton
|
||||
Friend WithEvents tb_file As System.Windows.Forms.TextBox
|
||||
Friend WithEvents ListView1 As System.Windows.Forms.ListView
|
||||
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents chk_deldata As System.Windows.Forms.CheckBox
|
||||
End Class
|
||||
513
ArinWarev1/FORM-BASIC/FORM-BASIC/Frm_import2.resx
Normal file
513
ArinWarev1/FORM-BASIC/FORM-BASIC/Frm_import2.resx
Normal file
@@ -0,0 +1,513 @@
|
||||
<?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>
|
||||
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="Panel1.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
|
||||
<value>Center</value>
|
||||
</data>
|
||||
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="chk_deldata.AutoSize" type="System.Boolean, mscorlib">
|
||||
<value>True</value>
|
||||
</data>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="chk_deldata.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>189, 56</value>
|
||||
</data>
|
||||
<data name="chk_deldata.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>218, 17</value>
|
||||
</data>
|
||||
<data name="chk_deldata.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>11</value>
|
||||
</data>
|
||||
<data name="chk_deldata.Text" xml:space="preserve">
|
||||
<value>가져오는영역의 데이터 초기화</value>
|
||||
</data>
|
||||
<data name="chk_deldata.Visible" type="System.Boolean, mscorlib">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name=">>chk_deldata.Name" xml:space="preserve">
|
||||
<value>chk_deldata</value>
|
||||
</data>
|
||||
<data name=">>chk_deldata.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>chk_deldata.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>chk_deldata.ZOrder" xml:space="preserve">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="ColumnHeader1.Width" type="System.Int32, mscorlib">
|
||||
<value>255</value>
|
||||
</data>
|
||||
<data name="ColumnHeader2.Width" type="System.Int32, mscorlib">
|
||||
<value>66</value>
|
||||
</data>
|
||||
<data name="ColumnHeader3.Width" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="ListView1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>14, 121</value>
|
||||
</data>
|
||||
<data name="ListView1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>380, 245</value>
|
||||
</data>
|
||||
<data name="ListView1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>10</value>
|
||||
</data>
|
||||
<data name=">>ListView1.Name" xml:space="preserve">
|
||||
<value>ListView1</value>
|
||||
</data>
|
||||
<data name=">>ListView1.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>ListView1.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>ListView1.ZOrder" xml:space="preserve">
|
||||
<value>1</value>
|
||||
</data>
|
||||
<data name="tb_file.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>14, 97</value>
|
||||
</data>
|
||||
<data name="tb_file.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>379, 22</value>
|
||||
</data>
|
||||
<data name="tb_file.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>8</value>
|
||||
</data>
|
||||
<data name=">>tb_file.Name" xml:space="preserve">
|
||||
<value>tb_file</value>
|
||||
</data>
|
||||
<data name=">>tb_file.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>tb_file.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>tb_file.ZOrder" xml:space="preserve">
|
||||
<value>2</value>
|
||||
</data>
|
||||
<data name="rado.AutoSize" type="System.Boolean, mscorlib">
|
||||
<value>True</value>
|
||||
</data>
|
||||
<data name="rado.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
|
||||
<value>NoControl</value>
|
||||
</data>
|
||||
<data name="rado.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>100, 55</value>
|
||||
</data>
|
||||
<data name="rado.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>81, 17</value>
|
||||
</data>
|
||||
<data name="rado.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>7</value>
|
||||
</data>
|
||||
<data name="rado.Text" xml:space="preserve">
|
||||
<value>내보내기</value>
|
||||
</data>
|
||||
<data name=">>rado.Name" xml:space="preserve">
|
||||
<value>rado</value>
|
||||
</data>
|
||||
<data name=">>rado.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>rado.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>rado.ZOrder" xml:space="preserve">
|
||||
<value>3</value>
|
||||
</data>
|
||||
<data name="radi.AutoSize" type="System.Boolean, mscorlib">
|
||||
<value>True</value>
|
||||
</data>
|
||||
<data name="radi.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>11, 55</value>
|
||||
</data>
|
||||
<data name="radi.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>81, 17</value>
|
||||
</data>
|
||||
<data name="radi.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>6</value>
|
||||
</data>
|
||||
<data name="radi.Text" xml:space="preserve">
|
||||
<value>가져오기</value>
|
||||
</data>
|
||||
<data name=">>radi.Name" xml:space="preserve">
|
||||
<value>radi</value>
|
||||
</data>
|
||||
<data name=">>radi.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>radi.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>radi.ZOrder" xml:space="preserve">
|
||||
<value>4</value>
|
||||
</data>
|
||||
<data name="Button2.Enabled" type="System.Boolean, mscorlib">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>10, 371</value>
|
||||
</data>
|
||||
<data name="Button2.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>384, 27</value>
|
||||
</data>
|
||||
<data name="Button2.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>3</value>
|
||||
</data>
|
||||
<data name="Button2.Text" xml:space="preserve">
|
||||
<value>실행</value>
|
||||
</data>
|
||||
<data name=">>Button2.Name" xml:space="preserve">
|
||||
<value>Button2</value>
|
||||
</data>
|
||||
<data name=">>Button2.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>Button2.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>Button2.ZOrder" xml:space="preserve">
|
||||
<value>5</value>
|
||||
</data>
|
||||
<data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>11, 75</value>
|
||||
</data>
|
||||
<data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>382, 20</value>
|
||||
</data>
|
||||
<data name="Button1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>3</value>
|
||||
</data>
|
||||
<data name="Button1.Text" xml:space="preserve">
|
||||
<value>파일선택</value>
|
||||
</data>
|
||||
<data name=">>Button1.Name" xml:space="preserve">
|
||||
<value>Button1</value>
|
||||
</data>
|
||||
<data name=">>Button1.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>Button1.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>Button1.ZOrder" xml:space="preserve">
|
||||
<value>6</value>
|
||||
</data>
|
||||
<data name="Label2.AutoSize" type="System.Boolean, mscorlib">
|
||||
<value>True</value>
|
||||
</data>
|
||||
<data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>75, 31</value>
|
||||
</data>
|
||||
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>157, 13</value>
|
||||
</data>
|
||||
<data name="Label2.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>1</value>
|
||||
</data>
|
||||
<data name="Label2.Text" xml:space="preserve">
|
||||
<value>해당 파일을 선택하세요</value>
|
||||
</data>
|
||||
<data name=">>Label2.Name" xml:space="preserve">
|
||||
<value>Label2</value>
|
||||
</data>
|
||||
<data name=">>Label2.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>Label2.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>Label2.ZOrder" xml:space="preserve">
|
||||
<value>7</value>
|
||||
</data>
|
||||
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
|
||||
<value>True</value>
|
||||
</data>
|
||||
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>75, 11</value>
|
||||
</data>
|
||||
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>173, 13</value>
|
||||
</data>
|
||||
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>1</value>
|
||||
</data>
|
||||
<data name="Label1.Text" xml:space="preserve">
|
||||
<value>데이터 내보내기/가져오기</value>
|
||||
</data>
|
||||
<data name="Label1.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
|
||||
<value>MiddleCenter</value>
|
||||
</data>
|
||||
<data name=">>Label1.Name" xml:space="preserve">
|
||||
<value>Label1</value>
|
||||
</data>
|
||||
<data name=">>Label1.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>Label1.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>Label1.ZOrder" xml:space="preserve">
|
||||
<value>8</value>
|
||||
</data>
|
||||
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr/AAAK/wE0YpqCAAAI90lE
|
||||
QVRoQ9XYCUxUdx4H8DeA14iCFypyiYhFIiynojZrbOw2XrFm12q9jdtQrdq1caubaDet7tqtSvGoVahS
|
||||
QERuFVBBLQoedNfuJjTZ0qQcYodjhhmGN/cAv/393zDDvJnfALZ2U0g+ecPv/Y/v/13zgAOAIY0sDiVk
|
||||
8QUa34va90KQRab9LPdzeXRkhRg7smaY2WeHfQOiMlHIIkMN+jzURQuT+PJ1wHQWxaVTbfpDZaKQRYYa
|
||||
9DmMU6X7duM4wg9+7mE1hzb9wm6DQhYZatDBUhcmVOq+PgTdirvQrXwAun8egs7CuBqqrStUJgpZZKhB
|
||||
B0OZ6hmuygzo6WorA+O9cEF3+2NQZQaCMsU9gupDoTJRyCJDDToY6pw5MuN3F8D4cKFtAabq34GxNg3U
|
||||
OeFKqg+FykQhiww16EA6ssPeUOfH93Q1ngVjxWwwVITZdMmyQV0wF9TZwdupvo6oTBSyyFCDDmCYKsNf
|
||||
b3p6DQOHi8IbvnoJDPciwdRUCqoMPxNr69DXCZWJQhYZatD+qPOikjTla8FUs9MSmGCuPYSP1bWgzg27
|
||||
SI1hj8pEIYsMNWg/JqrSfLrMz/Ix6Cyxu2Lm5jJQpU3qZn0cxhChMlHIIkMN6greuBW66vd7jI9fxZCh
|
||||
oCsPBXnODGjOCEbToS07GLRlM4V9pn+tAV31fryhw76hxrKiMlHIIkMNSlGmjI7E67rbXPcZGO5gSKTI
|
||||
DYH7x2bA4cQw+DBxNhQfmQktWaGgv23Zb36aiffCtB7lefdopzE/s2ypTBSyyDgN7Kh3oo6s4CZDzSd4
|
||||
s0ZguBDQlYVA/eczYf6iWJgdHy+ISIiD2tMhoL01Q2hjvD8PDN8mQcelILloPDtUJgpZZGwD9wO/nNar
|
||||
86K7zd/uBcNtDNerKW0WxL7yCixYtkwQv2QJ1J7Do2/Xxlx7GPDG7+nImJLoGP6XXQCbwLIdjjejxvhd
|
||||
MujLg0Vk6aHw21WrYNHrr9s0peElZN/uziwwfX+O3dAGNpYw7hkLBaIyUcgiYwvqqPcIdVyemcTfXNFt
|
||||
rF6BgaaLNGeGwssrV4qwmmM745ONwN9YDqpLAReswRWnLahMFLLIWIPa2IVHPsqL40ym/34E+rIgJy2X
|
||||
ZsKC5ctFWE3cLlBg+j4JlF94dylOcT7W8L/MAhA7QmzbkRl4W3t/S4+hItoWxF7b5RCnBbCa/hbud2Co
|
||||
fBm097biK7ff14qTOAdz6gUswBpWtGXOSaOVaZNNpn8nYoAAkhyf+wmvvSbCak5tb/oLTDX7QJnq091+
|
||||
xj1e/inHMVQmCllkhOvRyu7UKi9OqtM9eguPNAbqDeBIcWU6zMUnjz1Wo9oKymeB7tEOfN2e2CJPwgUg
|
||||
KhOFLDLWUylg4XGrTJmwoSMr1GR8uBQn9nNJmRsEcYsXiyhz8Lq/gfudTBMYq/8AyvQQfMUYk9j2yYtY
|
||||
QDKGtl6Tls8j2896qg2PNtsmpeiQMi8QYhYtElHmBeA+X9fY4h9vB8VJT13bx9xIKhOFLDIKPI1tJyyn
|
||||
U4HXpOLzicfUeTFm/Z1IOkBpH1W+P0QtXCiiyvfDfVP7pa9IgI7L0T2KU+NSqUwUssiw8G3HbXzlyVK9
|
||||
vnIpObEjdaEfRCYkiKgL8OyUTBmQoWo1tP5jlKn5I86XyuWILDKtH3M28uSxpZ2F8V26G4HkpI46C31h
|
||||
Dr4D2essxMWVTB7YrRB8U50LbcfGPKRyOSKLTOsRjmu2iG1N8tTp78bSE1oV9+GLpkJ4TIwIX4SLK/YZ
|
||||
FP1X86HlyGiz7APJfCqbPbLI4Cnkmj/kJK1HR9byhXPIiVzRXJ0MYVFRIpqrbN8ksesu4EHozIsE2Qcj
|
||||
njX9mZNQ+azIIiM7yHGyv3psaD0+Vqu7GdT/hPZKsW1ZLETHRcCsCIuwyAisxeCZwvvg+sTBuYF/DP1t
|
||||
bNePB4fvpPJZkUXmxwOcVHbQvZ1nTw9qAgfaaxMsivFpUrkCSk4vgT1b58GuLfMg8++LQX9/KWhxgbZ2
|
||||
/Rov6Mz1g6f73PmG3ZyUysiQRebZAcnRthMj9fQEjiwTWulu4pvng9/jc30Lwu+NqlWgLQ10aie42r+W
|
||||
oyN6mvZ7pFAZGbLYsJfzb9wn4TX5437CpNgH1aRMhLdW+8OmFQFQ+Ske+d76cynyBj7XCxr2uBnrEjl/
|
||||
KqtTgWnaK7muOC3tEgYp9AZNgTcO5jC4KzgpszAuAPyDggSzXwqEluy+fQNic+Z7gbZgLP7uBfLkUdD4
|
||||
J7cqKqtToX4HN//pe248G0Rb4AWanLGgwaNATkTyAkWON/gF+MM0/z5PzuDZwX39KuwjzJszBrR5uAjM
|
||||
0fium6l+p2SRY17RLxhe0rhLUqtKHS0MqLkyBvjsMXg0LEeCZDepoBi/7G79Bta8GgRTfX0FC6L9QV2C
|
||||
ryAlM7ANjjUImjyc+7InaBA7E8rzUqjf6fasbrv4sSpewNuSrU0HPHh2KbDV85mjgc/CAYgJXLo6QXji
|
||||
KO+shLN/mQcn3osD2Y1lwpNJe20KtsGjaq/ANf4Szp8hxUWwA+oNTe97mOt3ue22z2wXnvOs3yFp78TQ
|
||||
umuTgE+XQueX2PkKWwAOOMhJGd11/GPl0XowPHkXDN+g6m34/RBq14Yd1T4aF/gslmGUgM+RgjrLG+oT
|
||||
JfwP2zhP5wW8IznefGSYTo9vk3wmdryAHa0ujrTDfkdphN7JBGnY9tJ4vAzwW/VL/MykY91RhguZCOdT
|
||||
f2HB+utKp4DssEdPwx7JBdECGt7hghp2S3j+ihT/IAmwdEwZ8YIM//nODxcWoMGzoC32g/pdEsMPf+SC
|
||||
bAto3CvJl58c3m24HYI3LZ6uDFxx6ohfDf4iSscF5I4S/ikmTxoGdW9zaX1nYK/kP5o8qei/yL92Tfvd
|
||||
MDouAH98ctZwW6q2uSkebnWXVW12lz3YhNuNCLeVG9ybqze5N1Sux89vonV22+dh16dinbu8Yi2y3/YS
|
||||
2qHHljmbq9i8GyweYCaWrXKzmyJnNbeFZWcLiEIxaGOvTWgzYg22oe3Iuu//jc3NMrAsLBPLZt3HMkcJ
|
||||
l9BQRhaHErI4dAD3P/ArbcVv17aEAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>12, 9</value>
|
||||
</data>
|
||||
<data name="PictureBox1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>48, 48</value>
|
||||
</data>
|
||||
<data name="PictureBox1.SizeMode" type="System.Windows.Forms.PictureBoxSizeMode, System.Windows.Forms">
|
||||
<value>AutoSize</value>
|
||||
</data>
|
||||
<data name="PictureBox1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name=">>PictureBox1.Name" xml:space="preserve">
|
||||
<value>PictureBox1</value>
|
||||
</data>
|
||||
<data name=">>PictureBox1.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>PictureBox1.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>PictureBox1.ZOrder" xml:space="preserve">
|
||||
<value>9</value>
|
||||
</data>
|
||||
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
|
||||
<value>Fill</value>
|
||||
</data>
|
||||
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="Panel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
|
||||
<value>4, 3, 4, 3</value>
|
||||
</data>
|
||||
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>408, 411</value>
|
||||
</data>
|
||||
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name=">>Panel1.Name" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>Panel1.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>Panel1.Parent" xml:space="preserve">
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>Panel1.ZOrder" xml:space="preserve">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
|
||||
<value>8, 13</value>
|
||||
</data>
|
||||
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
|
||||
<value>408, 411</value>
|
||||
</data>
|
||||
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>돋움, 9.75pt, style=Bold</value>
|
||||
</data>
|
||||
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
|
||||
<value>4, 3, 4, 3</value>
|
||||
</data>
|
||||
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
|
||||
<value>CenterScreen</value>
|
||||
</data>
|
||||
<data name="$this.Text" xml:space="preserve">
|
||||
<value>데이터관리</value>
|
||||
</data>
|
||||
<data name=">>ColumnHeader1.Name" xml:space="preserve">
|
||||
<value>ColumnHeader1</value>
|
||||
</data>
|
||||
<data name=">>ColumnHeader1.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>ColumnHeader2.Name" xml:space="preserve">
|
||||
<value>ColumnHeader2</value>
|
||||
</data>
|
||||
<data name=">>ColumnHeader2.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>ColumnHeader3.Name" xml:space="preserve">
|
||||
<value>ColumnHeader3</value>
|
||||
</data>
|
||||
<data name=">>ColumnHeader3.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>$this.Name" xml:space="preserve">
|
||||
<value>Frm_Import</value>
|
||||
</data>
|
||||
<data name=">>$this.Type" xml:space="preserve">
|
||||
<value>Eco2Ar.CForm, Eco2Ar, Version=1.2013.1208.2322, Culture=neutral, PublicKeyToken=null</value>
|
||||
</data>
|
||||
</root>
|
||||
722
ArinWarev1/FORM-BASIC/FORM-BASIC/Frm_import2.vb
Normal file
722
ArinWarev1/FORM-BASIC/FORM-BASIC/Frm_import2.vb
Normal file
@@ -0,0 +1,722 @@
|
||||
Public Class Frm_import2
|
||||
Public Overrides Function AcceptChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function RejectChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function HasChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Dim RecordCount As Long
|
||||
Dim TableList As DataTable
|
||||
Dim IsExcel As Boolean = False
|
||||
|
||||
Private Sub Frm_Import_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||
'//테이블목록 추가
|
||||
Add_Tablelist()
|
||||
Me.Button2.Enabled = False '//실행버튼 사용불가
|
||||
Me.IsExcel = False
|
||||
End Sub
|
||||
|
||||
Private Sub Add_Tablelist()
|
||||
Dim TabName As String
|
||||
Dim TabDesc As String = ""
|
||||
Dim Sort As String = ""
|
||||
|
||||
Me.TableList = New DataTable
|
||||
Me.TableList.Columns.Add("Desc")
|
||||
Me.TableList.Columns.Add("Name")
|
||||
Me.TableList.Columns.Add("Sort")
|
||||
Me.TableList.Columns.Add("Cnt")
|
||||
|
||||
For Each Dt As DataTable In DSET1.Tables
|
||||
TabName = Dt.TableName
|
||||
TabDesc = ""
|
||||
Select Case TabName.ToUpper
|
||||
'Case "TBL_BUHA"
|
||||
'TabDesc = "부하"
|
||||
'Sort = "00"
|
||||
Case "TBL_BUNBAE"
|
||||
TabDesc = "냉방분배"
|
||||
Sort = "00"
|
||||
'Case "TBL_COMMON"
|
||||
'TabDesc = "공용코드"
|
||||
'Sort = "00"
|
||||
Case "TBL_DESC"
|
||||
TabDesc = "건물개요"
|
||||
Sort = "00"
|
||||
Case "TBL_KONGJO"
|
||||
TabDesc = "공조"
|
||||
Sort = "00"
|
||||
Case "TBL_KONGKUB"
|
||||
TabDesc = "난방공급"
|
||||
Sort = "00"
|
||||
Case "TBL_MYOUN"
|
||||
TabDesc = "입력면"
|
||||
Sort = "00"
|
||||
Case "TBL_NANBANGKIKI"
|
||||
TabDesc = "난방기기"
|
||||
Sort = "00"
|
||||
Case "TBL_NANGBANGKIKI"
|
||||
TabDesc = "냉방기기"
|
||||
Sort = "00"
|
||||
Case "TBL_NBUNBAE"
|
||||
TabDesc = "난방분배"
|
||||
Sort = "00"
|
||||
Case "TBL_NEW"
|
||||
TabDesc = "신재생및열병합"
|
||||
Sort = "00"
|
||||
'Case "TBL_PROFILE"
|
||||
' TabDesc = "프로필"
|
||||
' Sort = "00"
|
||||
Case "TBL_ZONE"
|
||||
TabDesc = "입력존"
|
||||
Sort = "00"
|
||||
Case "TBL_YK"
|
||||
TabDesc = "열관류율(목록)"
|
||||
Sort = "00"
|
||||
Case "TBL_YKDETAIL"
|
||||
TabDesc = "*열관류율(내역)"
|
||||
Sort = "00"
|
||||
'Case "TBL_WEATHER"
|
||||
' TabDesc = "기상데이터(목록)"
|
||||
' Sort = "00"
|
||||
'Case "WEATHER_CHA"
|
||||
'TabDesc = "*기상데이터(차양)"
|
||||
'Sort = "00"
|
||||
'Case "WEATHER_ILSA"
|
||||
' TabDesc = "*기상데이터(일사)"
|
||||
' Sort = "00"
|
||||
'Case "WEATHER_SUPDO"
|
||||
'TabDesc = "*기상데이터(습도)"
|
||||
'Sort = "00"
|
||||
'Case "WEATHER_ILSA"
|
||||
'TabDesc = "*기상데이터(일사)"
|
||||
'Sort = "00"
|
||||
End Select
|
||||
If TabDesc <> "" Then Me.TableList.Rows.Add(New String() {TabDesc, TabName, Sort})
|
||||
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Frm_Import_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
If e.KeyCode = Keys.Escape Then
|
||||
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
If radi.Checked Then
|
||||
File_Open()
|
||||
Me.Button2.Enabled = True
|
||||
Else
|
||||
'//내보내기 기능
|
||||
File_Save()
|
||||
Me.Button2.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub File_Open()
|
||||
Dim Od As New OpenFileDialog
|
||||
Od.FileName = "c:\out.txt"
|
||||
Od.Filter = "탭으로 분리된 텍스트파일(*.txt)|*.txt|Ms Excel(*.xls)|*.xls"
|
||||
Od.FilterIndex = 0
|
||||
If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
|
||||
Me.tb_file.Text = Od.FileName
|
||||
Me.IsExcel = IIf(Od.FilterIndex = 1, False, True)
|
||||
|
||||
|
||||
'//테이블리스트의 데이터갯수 초기화
|
||||
For Each Dr As DataRow In Me.TableList.Rows
|
||||
Dr("cnt") = 0
|
||||
Next
|
||||
Me.TableList.AcceptChanges()
|
||||
|
||||
'//혹시 연속으로 열경우를 대비해서 초기화한다.
|
||||
Select Case Od.FilterIndex
|
||||
Case 1 '//텍스트파일
|
||||
Dim Table As String
|
||||
Dim BUf As String = My.Computer.FileSystem.ReadAllText(Me.tb_file.Text, System.Text.Encoding.Default)
|
||||
For Each B As String In BUf.Split(CChar(vbCrLf))
|
||||
If B.Trim <> "" AndAlso B.Trim.Substring(0, 1) <> "#" Then
|
||||
Table = B.Split(CChar(vbTab))(0)
|
||||
|
||||
'//해당 테이블 이름을 테이블 리스트에 찾아서 카운터를 누적시킨다.
|
||||
Dim DR() As DataRow = Me.TableList.Select("name='" & Table.Trim & "'")
|
||||
If DR.GetUpperBound(0) = 0 Then
|
||||
Try
|
||||
DR(0)("cnt") = Val(DR(0)("cnt")) + 1
|
||||
Catch ex As Exception
|
||||
DR(0)("cnt") = 1
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Case 2
|
||||
'//엑셀데이터에서 정보를 얻어와야한다.
|
||||
Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application")
|
||||
Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open(Me.tb_file.Text)
|
||||
Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets(1) '//첫번째 시트로고정
|
||||
|
||||
Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다
|
||||
|
||||
'//줄과 열의 갯수를 가져옵니다.
|
||||
Dim rowCount As String = Rng.Offset(0, 4).Value '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단)
|
||||
Dim ColCount As String = Rng.Offset(0, 5).Value
|
||||
|
||||
If rowCount.Trim = "" OrElse rowCount = "0" Then
|
||||
Dim V As String = InputBox("전체줄의 갯수를 입력하세요", "데이터갯수입력", 1000)
|
||||
If V = "" Then
|
||||
MsgBox("불러올 줄수를 확인할 수 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
Return
|
||||
End If
|
||||
If IsNumeric(V) = False Then
|
||||
MsgBox("숫자만 입력가능합니다", MsgBoxStyle.Critical, "확인")
|
||||
Return
|
||||
End If
|
||||
rowCount = V
|
||||
End If
|
||||
If rowCount.Trim = "" OrElse rowCount = "0" Then
|
||||
ColCount = 60 '//60개를 넘지는 않으므로(아마두?)
|
||||
End If
|
||||
|
||||
'//범위가 지정되었으므로 데이터를 확인한다.
|
||||
'//데이터의 시작줄은 항상 5번이다.
|
||||
Dim Tabname As String = ""
|
||||
Dim 열 As New ArrayList
|
||||
Dim z_cnt As Integer = 0
|
||||
For r As Integer = 5 To rowCount
|
||||
Try
|
||||
Tabname = Rng.Offset(r, 0).Value.ToString.Trim '//0번째열은 항상 테이블 이름이 오도록한다
|
||||
Catch ex As Exception
|
||||
Tabname = ""
|
||||
End Try
|
||||
|
||||
If Tabname = "" OrElse Tabname.Trim.ToUpper = "TABLE" Then '//이건 테이블을 제목줄이다
|
||||
|
||||
Else '//테이블이름으로 판단하고 해당 리스트를 찾아서 값을 누적시킴
|
||||
'//해당 테이블 이름을 테이블 리스트에 찾아서 카운터를 누적시킨다.
|
||||
Dim DR() As DataRow = Me.TableList.Select("name='" & Tabname & "'")
|
||||
If DR.GetUpperBound(0) = 0 Then
|
||||
Try
|
||||
DR(0)("cnt") = Val(DR(0)("cnt")) + 1
|
||||
Catch ex As Exception
|
||||
DR(0)("cnt") = 1
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
'//Dispos Excel Object
|
||||
xlBook.Close()
|
||||
xlApp.Application.Quit()
|
||||
xlApp.Quit()
|
||||
xlApp = Nothing
|
||||
xlBook = Nothing
|
||||
xlSheet1 = Nothing
|
||||
End Select
|
||||
|
||||
|
||||
Me.ListView1.Items.Clear() '//리스트뷰클리어
|
||||
Dim lv As ListViewItem
|
||||
For Each dr As DataRow In Me.TableList.Select("", "sort") '//정렬시켜서 가져옴
|
||||
If DSET1.Tables(dr("name").ToString).Rows.Count > 0 Then
|
||||
lv = Me.ListView1.Items.Add(dr("desc").ToString) '//테이블설명
|
||||
lv.SubItems.Add(dr("cnt").ToString) '//레코드숫자
|
||||
lv.SubItems.Add(dr("name").ToString) '//테이블이름
|
||||
End If
|
||||
Next
|
||||
|
||||
End Sub
|
||||
Private Sub File_Save()
|
||||
DSET1.AcceptChanges()
|
||||
DSETR1.AcceptChanges()
|
||||
|
||||
Dim sd As New SaveFileDialog
|
||||
sd.FileName = "c:\out.txt"
|
||||
sd.Filter = "탭으로 분리된 텍스트파일(*.txt)|*.txt|Ms Excel(*.xls)|*.xls"
|
||||
sd.FilterIndex = 0
|
||||
If sd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
|
||||
Me.tb_file.Text = sd.FileName
|
||||
|
||||
Me.IsExcel = IIf(sd.FilterIndex = 1, False, True)
|
||||
|
||||
Me.ListView1.Items.Clear() '//기존의 목록제거
|
||||
Dim Lv As ListViewItem
|
||||
For Each dr As DataRow In Me.TableList.Select("", "sort") '//정렬시켜서 가져옴
|
||||
If DSET1.Tables(dr("name")).Rows.Count > 0 Then
|
||||
Lv = Me.ListView1.Items.Add(dr("desc")) '//테이블설명
|
||||
Lv.SubItems.Add(DSET1.Tables(dr("name")).Rows.Count) '//레코드숫자
|
||||
Lv.SubItems.Add(dr("name")) '//테이블이름
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
If MsgBox("실행하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then Return
|
||||
|
||||
If Me.radi.Checked Then
|
||||
If My.Computer.FileSystem.FileExists(Me.tb_file.Text) = False Then
|
||||
MsgBox("해당파일이 존재하지않아서 가져올 수 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
Me.Button2.Enabled = False
|
||||
Return
|
||||
End If
|
||||
If Me.IsExcel Then
|
||||
InPutXls()
|
||||
Else
|
||||
INput()
|
||||
End If
|
||||
Else
|
||||
If Me.IsExcel Then
|
||||
OutputXLS()
|
||||
Else
|
||||
OutPut()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function Get_Listview(ByVal Tabname As String) As ListViewItem
|
||||
Dim Tname As String
|
||||
Dim R As ListViewItem = Nothing
|
||||
For Each Lv As ListViewItem In Me.ListView1.Items
|
||||
Tname = Lv.SubItems(2).Text
|
||||
If Tname.ToUpper.Trim = Tabname.ToUpper.Trim Then
|
||||
R = Lv
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Return R
|
||||
End Function
|
||||
Private Sub InPutXls()
|
||||
|
||||
'//가져오는 영역의 데이터 클리어
|
||||
Work_msg("저장영역 데이터확인중...")
|
||||
For Each Lview As ListViewItem In Me.ListView1.Items
|
||||
If Lview.Checked And Me.chk_deldata.Checked Then ' '//삭제명령이 잇엇다면 삭제를 한다.
|
||||
Work_msg("데이터 삭제중(" & Lview.SubItems(2).Text & ")")
|
||||
If DSET1.Tables(Lview.SubItems(2).Text).Columns.IndexOf("code") <> -1 Then '//코드가잇는 개체라면 코드빼고 삭제
|
||||
For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Select("Code<>'0'")
|
||||
Dr.Delete()
|
||||
Next
|
||||
Else
|
||||
For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Rows
|
||||
Dr.Delete()
|
||||
Next
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
DSET1.AcceptChanges()
|
||||
|
||||
|
||||
Dim NullCnt As Int16 = 0
|
||||
Dim mytext1 As String = vbNullString
|
||||
|
||||
Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application")
|
||||
Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open(Me.tb_file.Text)
|
||||
Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets(1) '//첫번째 시트로고정
|
||||
|
||||
Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다
|
||||
|
||||
'//줄과 열의 갯수를 가져옵니다.
|
||||
Dim rowCount As String = Rng.Offset(0, 4).Value '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단)
|
||||
Dim ColCount As String = Rng.Offset(0, 5).Value
|
||||
|
||||
If rowCount.Trim = "" OrElse rowCount = "0" Then
|
||||
Dim V As String = InputBox("전체줄의 갯수를 입력하세요", "데이터갯수입력", 1000)
|
||||
If V = "" Then
|
||||
MsgBox("불러올 줄수를 확인할 수 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
Return
|
||||
End If
|
||||
If IsNumeric(V) = False Then
|
||||
MsgBox("숫자만 입력가능합니다", MsgBoxStyle.Critical, "확인")
|
||||
Return
|
||||
End If
|
||||
rowCount = V
|
||||
End If
|
||||
If rowCount.Trim = "" OrElse rowCount = "0" Then
|
||||
ColCount = 60 '//60개를 넘지는 않으므로
|
||||
End If
|
||||
|
||||
'//범위가 지정되었으므로 데이터를 확인한다.
|
||||
'//데이터의 시작줄은 항상 5번이다.
|
||||
Dim Tabname As String = ""
|
||||
Dim lv As ListViewItem
|
||||
Dim 열 As New ArrayList
|
||||
Dim z_cnt As Integer = 0
|
||||
For r As Integer = 5 To rowCount
|
||||
Try
|
||||
Tabname = Rng.Offset(r, 0).Value.ToString '//0번째열은 항상 테이블 이름이 오도록한다
|
||||
Catch ex As Exception
|
||||
Tabname = ""
|
||||
End Try
|
||||
|
||||
If Tabname.Trim.ToUpper = "TABLE" Then '//이건 테이블을 제목줄이다
|
||||
열 = New ArrayList '//열제목을 이곳에 모두 넣는다.
|
||||
For c As Integer = 1 To ColCount
|
||||
Try
|
||||
If Rng.Offset(r, c).Value.ToString.Trim <> "" AndAlso Rng.Offset(r, c).Value.ToString.Trim <> "0" Then '//열제목이있다
|
||||
열.Add(Rng.Offset(r, c).Value.ToString.Trim)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Next
|
||||
Else
|
||||
If 열.Count > 0 AndAlso Tabname.Trim <> "" Then '//열제목이 설정되어잇어야 돌아가도록
|
||||
lv = Get_Listview(Tabname)
|
||||
If lv.Checked Then '//가져오기설정과 테이블이름이 잇어야함
|
||||
Work_msg("가져오는중(" & Tabname & ")")
|
||||
Dim Dr As DataRow = DSET1.Tables(Tabname).NewRow
|
||||
Dr("code") = Format(DSET1.Tables(Tabname).Rows.Count, "0000")
|
||||
For c As Integer = 1 To 열.Count
|
||||
Try
|
||||
Dr(열.Item(c - 1).ToString) = Rng.Offset(r, c).Value
|
||||
Catch ex As Exception
|
||||
Dr(열.Item(c - 1).ToString) = DBNull.Value
|
||||
End Try
|
||||
|
||||
Next
|
||||
Try
|
||||
DSET1.Tables(Tabname).Rows.Add(Dr)
|
||||
DSET1.Tables(Tabname).AcceptChanges()
|
||||
z_cnt += 1
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Work_msg("")
|
||||
|
||||
'//Dispos Excel Object
|
||||
xlBook.Close()
|
||||
xlApp.Application.Quit()
|
||||
xlApp = Nothing
|
||||
xlBook = Nothing
|
||||
xlSheet1 = Nothing
|
||||
|
||||
MsgBox("가져오기완료", MsgBoxStyle.Information, "확인")
|
||||
Me.Close()
|
||||
|
||||
' Process.Start(Me.tb_file.Text)
|
||||
'Shell(Me.tb_file.Text, AppWinStyle.NormalFocus)
|
||||
End Sub
|
||||
Private Sub INput() '//텍스트파일 가져오기
|
||||
Dim BUf As String = My.Computer.FileSystem.ReadAllText(Me.tb_file.Text, System.Text.Encoding.Default)
|
||||
Dim Table As String
|
||||
|
||||
|
||||
Dim 열 As String = ""
|
||||
|
||||
For Each Lview As ListViewItem In Me.ListView1.Items
|
||||
If Lview.Checked And Me.chk_deldata.Checked Then ' '//삭제명령이 잇엇다면 삭제를 한다.
|
||||
|
||||
|
||||
Dim TAblename As String = Lview.SubItems(2).Text
|
||||
If DSET1.Tables(TAblename).Columns.IndexOf("code") <> -1 Then '//코드가잇는 개체라면 코드빼고 삭제
|
||||
For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Select("Code<>'0'")
|
||||
Dr.Delete()
|
||||
Next
|
||||
Else
|
||||
For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Rows
|
||||
Dr.Delete()
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
DSET1.AcceptChanges()
|
||||
|
||||
Dim Lv As ListViewItem
|
||||
Dim z_cnt As Integer = 0
|
||||
Dim e_cnt As Integer = 0
|
||||
For Each B As String In BUf.Split(CChar(vbCrLf)) '//데이터를 실제로 가져온다
|
||||
If B.Trim <> "" AndAlso B.Trim.Substring(0, 1) <> "#" Then '//주석데이터도제거
|
||||
Table = B.Split(CChar(vbTab))(0).Trim
|
||||
Select Case Table.ToUpper
|
||||
Case "TABLE"
|
||||
열 = B.Trim
|
||||
Case Else
|
||||
'//해당테이블명이 리뷰에 있는지확인하고 그것의 사용체크가되어있는지확인
|
||||
Lv = Get_Listview(Table)
|
||||
If Not Lv Is Nothing Then
|
||||
If Lv.Checked Then '//사용여부확인
|
||||
Dim Dr As DataRow = DSET1.Tables(Table).NewRow
|
||||
Dr("code") = Format(DSET1.Tables(Table).Rows.Count, "0000")
|
||||
For i As Integer = 1 To B.Split(CChar(vbTab)).GetUpperBound(0)
|
||||
Try
|
||||
Dr(열.Split(CChar(vbTab))(i)) = B.Split(CChar(vbTab))(i)
|
||||
Catch ex As Exception
|
||||
Dr(열.Split(CChar(vbTab))(i)) = DBNull.Value
|
||||
End Try
|
||||
Next
|
||||
Try
|
||||
DSET1.Tables(Table).Rows.Add(Dr)
|
||||
DSET1.Tables(Table).AcceptChanges()
|
||||
z_cnt += 1
|
||||
'Catch sqlex As SqlClient.SqlException
|
||||
' MsgBox(sqlex.ErrorCode)
|
||||
Catch ex As Exception
|
||||
' MsgBox(ex.Message.ToString)
|
||||
|
||||
If ex.Message.ToString.IndexOf("고유 값") <> -1 Then
|
||||
z_cnt += 1
|
||||
Else
|
||||
e_cnt += 1
|
||||
End If
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
|
||||
End Select
|
||||
End If
|
||||
Next
|
||||
|
||||
DSET1.AcceptChanges()
|
||||
' MsgBox(DSET1.tbl_zone.Rows.Count)
|
||||
|
||||
Dim M As New System.Text.StringBuilder
|
||||
M.AppendLine(z_cnt & "개의 데이터가 추가됨")
|
||||
M.AppendLine(e_cnt & "개의 오류발생")
|
||||
MsgBox(M.ToString, MsgBoxStyle.Information, "OK")
|
||||
End Sub
|
||||
|
||||
|
||||
'//텍스트파일 내보내기
|
||||
Private Sub OutPut()
|
||||
|
||||
Work_msg("기본정보생성중...")
|
||||
|
||||
Dim Wb As New System.Text.StringBuilder
|
||||
Wb.AppendLine("#### ECO2 Data ####")
|
||||
Wb.AppendLine("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####")
|
||||
Wb.AppendLine("#### Export by Eco2 ####")
|
||||
|
||||
|
||||
Dim Tabname As String = ""
|
||||
For Each lv As ListViewItem In Me.ListView1.Items
|
||||
If lv.Checked Then '//체크된것만 내보낸다
|
||||
Tabname = lv.SubItems(2).Text
|
||||
Work_msg("내보내는중(" & Tabname & ")")
|
||||
|
||||
Wb.Append("table") '///////////////////////
|
||||
For Each C As System.Data.DataColumn In DSET1.Tables(Tabname).Columns
|
||||
Wb.Append(vbTab & C.ColumnName)
|
||||
Next
|
||||
Wb.Append(vbCrLf)
|
||||
For Each C As DataRow In DSET1.Tables(Tabname).Rows
|
||||
Wb.Append(Tabname)
|
||||
For i As Integer = 0 To DSET1.Tables(Tabname).Columns.Count - 1
|
||||
|
||||
'If (Tabname.ToUpper = "TBL_MYOUN") Then
|
||||
' If DSET1.Tables(Tabname).Columns(i).ColumnName.ToUpper.Trim = "열관류율" Then
|
||||
' If CSng(C(i)) = 0 Then '//링크값사용
|
||||
' Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & C("열관류율2") & "'")(0)
|
||||
' Wb.Append(vbTab & Dr("열관류율").ToString)
|
||||
' Else '//입력값사용
|
||||
' Wb.Append(vbTab & C(i).ToString)
|
||||
' End If
|
||||
' Else
|
||||
' Wb.Append(vbTab & C(i).ToString)
|
||||
' End If
|
||||
'Else
|
||||
' Wb.Append(vbTab & C(i).ToString)
|
||||
'End If
|
||||
Wb.Append(vbTab & C(i).ToString)
|
||||
|
||||
Next
|
||||
Wb.Append(vbCrLf)
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
Work_msg("")
|
||||
My.Computer.FileSystem.WriteAllText(Me.tb_file.Text, Wb.ToString, False, System.Text.Encoding.Default)
|
||||
If MsgBox("내보내기 완료" & vbCrLf & "파일을 확인하시겠습니까?", _
|
||||
vbInformation Or vbOK, "확인") = MsgBoxResult.Ok Then
|
||||
Process.Start(Me.tb_file.Text)
|
||||
End If
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub OutputXLS()
|
||||
|
||||
Dim NullCnt As Int16 = 0
|
||||
Dim mytext1 As String = vbNullString
|
||||
|
||||
Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application")
|
||||
xlApp.DisplayAlerts = False
|
||||
xlApp.Visible = False
|
||||
xlApp.ReferenceStyle = Excel.XlReferenceStyle.xlA1
|
||||
Dim xlBook As Excel.Workbook = xlApp.Workbooks.Add
|
||||
Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets.Add
|
||||
|
||||
|
||||
Work_msg("데이터수 확인중...")
|
||||
'//전체데이터갯수를 가지고 배열을 정의한다.
|
||||
Dim Rcnt As Integer = 0
|
||||
Dim Ccnt As Integer = 0
|
||||
Dim TabName As String = ""
|
||||
For Each Lv As ListViewItem In Me.ListView1.Items
|
||||
If Lv.Checked Then
|
||||
TabName = Lv.SubItems(2).Text
|
||||
Rcnt += DSET1.Tables(TabName).Rows.Count
|
||||
If DSET1.Tables(TabName).Columns.Count > Ccnt Then Ccnt = DSET1.Tables(TabName).Columns.Count
|
||||
End If
|
||||
Next
|
||||
|
||||
'//제목줄 5줄을포함
|
||||
'If Ccnt < 5 Then Ccnt = 5
|
||||
Work_msg("저장영역할당....")
|
||||
Dim saRet(Rcnt + 50, 52) As String '//여유잇게 할당
|
||||
For i As Integer = 0 To Rcnt + 10 - 1
|
||||
For j As Integer = 0 To Ccnt + 5 - 1
|
||||
saRet(i, j) = ""
|
||||
Next
|
||||
Next
|
||||
|
||||
Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다
|
||||
|
||||
|
||||
Work_msg("기본정보를 내보냅니다....")
|
||||
'//export title (제목내보내기)
|
||||
'Rng.Offset(0, 0).Value = "#### ECO2 Data ####"
|
||||
'Rng.Offset(1, 0).Value = ("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####")
|
||||
'Rng.Offset(2, 0).Value = ("#### Export by Eco2 ####")
|
||||
|
||||
saRet(0, 0) = "#### ECO2 Data ####"
|
||||
saRet(1, 0) = ("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####")
|
||||
saRet(2, 0) = ("#### Export by Eco2 ####")
|
||||
|
||||
|
||||
'//Export SUbTitle(부가적인정보내보내기)
|
||||
'Rng.Offset(0, 4).Value = Rcnt + 4 '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단)
|
||||
'Rng.Offset(0, 5).Value = Ccnt - 1 '//열수를 입력
|
||||
|
||||
saRet(0, 4) = Rcnt + 4 '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단)
|
||||
saRet(0, 5) = Ccnt - 1 '//열수를 입력
|
||||
|
||||
Dim RowIndex As Integer = 5
|
||||
Dim ColIndex As Integer = 0
|
||||
|
||||
For Each Lv As ListViewItem In Me.ListView1.Items
|
||||
If Lv.Checked Then
|
||||
TabName = Lv.SubItems(2).Text
|
||||
Work_msg("내보내는중(" & TabName & ")")
|
||||
'Set_ArrayData(Rng, RowIndex, DSET1.Tables(TabName))
|
||||
Set_ArrayData(saRet, RowIndex, DSET1.Tables(TabName))
|
||||
End If
|
||||
Next
|
||||
|
||||
Try
|
||||
My.Computer.FileSystem.DeleteFile(Me.tb_file.Text) '//대상파일이 존재하면 삭제해버림
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
xlSheet1.Range("A1:AZ" & CStr(Rcnt + 10).ToString).Value = saRet
|
||||
'xlApp.Visible = True
|
||||
|
||||
xlBook.Saved = True
|
||||
'xlSheet1.SaveAs(Me.tb_file.Text)
|
||||
xlSheet1.SaveAs(Me.tb_file.Text, _
|
||||
Excel.XlFileFormat.xlExcel7, _
|
||||
Nothing, Nothing, Nothing, Nothing, _
|
||||
Nothing, Nothing, Nothing, Nothing)
|
||||
xlBook.Close()
|
||||
xlApp.Application.Quit()
|
||||
xlApp = Nothing
|
||||
xlBook = Nothing
|
||||
xlSheet1 = Nothing
|
||||
|
||||
Work_msg("")
|
||||
If MsgBox("내보내기 완료" & vbCrLf & "파일을 확인하시겠습니까?", _
|
||||
vbInformation Or vbOK, "확인") = MsgBoxResult.Ok Then
|
||||
Process.Start(Me.tb_file.Text)
|
||||
End If
|
||||
Me.Close()
|
||||
|
||||
' Process.Start(Me.tb_file.Text)
|
||||
'Shell(Me.tb_file.Text, AppWinStyle.NormalFocus)
|
||||
End Sub
|
||||
|
||||
Private Sub Set_ArrayData(ByRef Rng As Excel.Range, ByRef RowIndex As Integer, ByVal Dt As DataTable)
|
||||
RowIndex += 1
|
||||
Rng.Offset(RowIndex, 0).Value = "table" '//테이블컬럼명을 내보낸다
|
||||
'//Export ColumnData
|
||||
For i As Integer = 0 To Dt.Columns.Count - 1
|
||||
Rng.Offset(RowIndex, i + 1).Value2 = Dt.Columns(i).ColumnName.ToString
|
||||
Next
|
||||
'//Export RowData
|
||||
For Each C As DataRow In Dt.Rows
|
||||
RowIndex += 1 ': ReDim Preserve saRet(RowIndex, 255)
|
||||
Rng.Offset(RowIndex, 0).Value = Dt.TableName
|
||||
For i As Integer = 0 To Dt.Columns.Count - 1
|
||||
Rng.Offset(RowIndex, i + 1).Value2 = C(i).ToString
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
Private Sub Set_ArrayData(ByRef Rng(,) As String, ByRef RowIndex As Integer, ByVal Dt As DataTable)
|
||||
RowIndex += 1
|
||||
Rng(RowIndex, 0) = "table" '//테이블컬럼명을 내보낸다
|
||||
'//Export ColumnData
|
||||
For i As Integer = 0 To Dt.Columns.Count - 1
|
||||
Rng(RowIndex, i + 1) = Dt.Columns(i).ColumnName.ToString
|
||||
Next
|
||||
'//Export RowData
|
||||
For Each C As DataRow In Dt.Rows
|
||||
RowIndex += 1 ': ReDim Preserve saRet(RowIndex, 255)
|
||||
Rng(RowIndex, 0) = Dt.TableName
|
||||
For i As Integer = 0 To Dt.Columns.Count - 1
|
||||
Rng(RowIndex, i + 1) = C(i).ToString
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
'//d요부분만 추가됫어요
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
|
||||
Dim a As Graphics = e.Graphics
|
||||
Dim b As New Drawing2D.LinearGradientBrush(New Rectangle(0, 0, Me.Width, 500), Color.WhiteSmoke, _
|
||||
Color.DarkGray, Drawing2D.LinearGradientMode.Vertical)
|
||||
a.FillRectangle(b, 0, 0, Me.Width, Me.Height)
|
||||
'a.FillRectangle(b, Me.Width, 0, Me.Width, 30)
|
||||
b.Dispose()
|
||||
a.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
|
||||
Dim xlApp As Excel.Application
|
||||
Dim xlBook As Excel.Workbook
|
||||
Dim xlSheet1 As Excel.Worksheet
|
||||
|
||||
|
||||
xlApp = New Excel.Application ' CreateObject("Excel.Application")
|
||||
xlBook = xlApp.Workbooks.Open("c:\out.xls")
|
||||
xlSheet1 = xlBook.Worksheets(1) '//첫번째 시트로고정
|
||||
|
||||
Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다
|
||||
xlApp.Visible = True
|
||||
MsgBox("가져오기완료", MsgBoxStyle.Information, "확인")
|
||||
|
||||
'//Dispos Excel Object
|
||||
'xlBook.displayalerts = False
|
||||
xlBook.Saved = True
|
||||
xlBook.Close()
|
||||
xlApp.Application.Quit()
|
||||
xlApp = Nothing
|
||||
xlBook = Nothing
|
||||
xlSheet1 = Nothing
|
||||
|
||||
|
||||
Me.Close()
|
||||
|
||||
' Process.Start(M
|
||||
End Sub
|
||||
End Class
|
||||
106
ArinWarev1/FORM-BASIC/Frm_About.Designer.vb
generated
Normal file
106
ArinWarev1/FORM-BASIC/Frm_About.Designer.vb
generated
Normal file
@@ -0,0 +1,106 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_About
|
||||
Inherits CForm
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_About))
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Font = New System.Drawing.Font("돋움", 10.0!, System.Drawing.FontStyle.Bold)
|
||||
Me.Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Me.Label6.Location = New System.Drawing.Point(15, 16)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(74, 14)
|
||||
Me.Label6.TabIndex = 3
|
||||
Me.Label6.Text = "[만든 이]"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label1.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(16, 46)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(129, 12)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Main Coder(Y.K.H)"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label2.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.Label2.Location = New System.Drawing.Point(16, 66)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(112, 12)
|
||||
Me.Label2.TabIndex = 1
|
||||
Me.Label2.Text = "Sub Coder(Arin)"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label3.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.Label3.Location = New System.Drawing.Point(16, 86)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(119, 12)
|
||||
Me.Label3.TabIndex = 1
|
||||
Me.Label3.Text = "UI Design(Yoojm)"
|
||||
'
|
||||
'Frm_About
|
||||
'
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
||||
Me.ClientSize = New System.Drawing.Size(296, 119)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.KeyPreview = True
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "Frm_About"
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "프로그램정보"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
|
||||
Private Sub Frm_About_Activated(sender As Object, e As System.EventArgs) Handles Me.Activated
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
6293
ArinWarev1/FORM-BASIC/Frm_About.resx
Normal file
6293
ArinWarev1/FORM-BASIC/Frm_About.resx
Normal file
File diff suppressed because it is too large
Load Diff
27
ArinWarev1/FORM-BASIC/Frm_About.vb
Normal file
27
ArinWarev1/FORM-BASIC/Frm_About.vb
Normal file
@@ -0,0 +1,27 @@
|
||||
Public NotInheritable Class Frm_About
|
||||
|
||||
#Region "Default Infomation 편집마지마세요"
|
||||
Public Overrides Function AcceptChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function RejectChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function HasChanged() As Boolean
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub Frm_About_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
If e.KeyCode = Keys.F1 Then MsgBox("Support by skykkumi : '01~12'", MsgBoxStyle.Information, "Message") '//
|
||||
e.Handled = True
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
|
||||
Process.Start("http://hangeul.naver.com/share.nhn")
|
||||
End Sub
|
||||
|
||||
Private Sub Frm_About_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
305
ArinWarev1/FORM-BASIC/Frm_Common.Designer.vb
generated
Normal file
305
ArinWarev1/FORM-BASIC/Frm_Common.Designer.vb
generated
Normal file
@@ -0,0 +1,305 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_Common
|
||||
Inherits CForm
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Common))
|
||||
Me.DS = New Eco2OD.DS()
|
||||
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
|
||||
Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
|
||||
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
|
||||
Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
|
||||
Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
|
||||
Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
|
||||
Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
|
||||
Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
|
||||
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.Tbl_commonBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.Tbl_commonDataGridView = New System.Windows.Forms.DataGridView()
|
||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.ta = New Eco2OD.DSTableAdapters.tbl_common_odTableAdapter()
|
||||
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.tbFilter = New System.Windows.Forms.ToolStripTextBox()
|
||||
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.bn.SuspendLayout()
|
||||
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Tbl_commonDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DS
|
||||
'
|
||||
Me.DS.DataSetName = "DS"
|
||||
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
|
||||
'
|
||||
'bn
|
||||
'
|
||||
Me.bn.AddNewItem = Me.BindingNavigatorAddNewItem
|
||||
Me.bn.BindingSource = Me.bs
|
||||
Me.bn.CountItem = Me.BindingNavigatorCountItem
|
||||
Me.bn.DeleteItem = Me.BindingNavigatorDeleteItem
|
||||
Me.bn.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.Tbl_commonBindingNavigatorSaveItem, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.ToolStripLabel1, Me.tbFilter})
|
||||
Me.bn.Location = New System.Drawing.Point(0, 0)
|
||||
Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
|
||||
Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem
|
||||
Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem
|
||||
Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
|
||||
Me.bn.Name = "bn"
|
||||
Me.bn.PositionItem = Me.BindingNavigatorPositionItem
|
||||
Me.bn.Size = New System.Drawing.Size(791, 25)
|
||||
Me.bn.TabIndex = 3
|
||||
Me.bn.Text = "BindingNavigator1"
|
||||
'
|
||||
'BindingNavigatorAddNewItem
|
||||
'
|
||||
Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image)
|
||||
Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
|
||||
Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True
|
||||
Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22)
|
||||
Me.BindingNavigatorAddNewItem.Text = "새로 추가"
|
||||
'
|
||||
'bs
|
||||
'
|
||||
Me.bs.DataMember = "tbl_common_od"
|
||||
Me.bs.DataSource = Me.DS
|
||||
'
|
||||
'BindingNavigatorCountItem
|
||||
'
|
||||
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
|
||||
Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(29, 22)
|
||||
Me.BindingNavigatorCountItem.Text = "/{0}"
|
||||
Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수"
|
||||
'
|
||||
'BindingNavigatorDeleteItem
|
||||
'
|
||||
Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image)
|
||||
Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
|
||||
Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True
|
||||
Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22)
|
||||
Me.BindingNavigatorDeleteItem.Text = "삭제"
|
||||
'
|
||||
'BindingNavigatorMoveFirstItem
|
||||
'
|
||||
Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image)
|
||||
Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
|
||||
Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True
|
||||
Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22)
|
||||
Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동"
|
||||
'
|
||||
'BindingNavigatorMovePreviousItem
|
||||
'
|
||||
Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image)
|
||||
Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
|
||||
Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True
|
||||
Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22)
|
||||
Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동"
|
||||
'
|
||||
'BindingNavigatorSeparator
|
||||
'
|
||||
Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
|
||||
Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'BindingNavigatorPositionItem
|
||||
'
|
||||
Me.BindingNavigatorPositionItem.AccessibleName = "위치"
|
||||
Me.BindingNavigatorPositionItem.AutoSize = False
|
||||
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
|
||||
Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
|
||||
Me.BindingNavigatorPositionItem.Text = "0"
|
||||
Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치"
|
||||
'
|
||||
'BindingNavigatorSeparator1
|
||||
'
|
||||
Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
|
||||
Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'BindingNavigatorMoveNextItem
|
||||
'
|
||||
Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image)
|
||||
Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
|
||||
Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True
|
||||
Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22)
|
||||
Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동"
|
||||
'
|
||||
'BindingNavigatorMoveLastItem
|
||||
'
|
||||
Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image)
|
||||
Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
|
||||
Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True
|
||||
Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22)
|
||||
Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동"
|
||||
'
|
||||
'BindingNavigatorSeparator2
|
||||
'
|
||||
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
|
||||
Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'Tbl_commonBindingNavigatorSaveItem
|
||||
'
|
||||
Me.Tbl_commonBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.Tbl_commonBindingNavigatorSaveItem.Image = CType(resources.GetObject("Tbl_commonBindingNavigatorSaveItem.Image"), System.Drawing.Image)
|
||||
Me.Tbl_commonBindingNavigatorSaveItem.Name = "Tbl_commonBindingNavigatorSaveItem"
|
||||
Me.Tbl_commonBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22)
|
||||
Me.Tbl_commonBindingNavigatorSaveItem.Text = "데이터 저장"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(125, 22)
|
||||
Me.ToolStripButton1.Text = "서버에서 가져오기"
|
||||
'
|
||||
'Tbl_commonDataGridView
|
||||
'
|
||||
Me.Tbl_commonDataGridView.AutoGenerateColumns = False
|
||||
Me.Tbl_commonDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.Tbl_commonDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5})
|
||||
Me.Tbl_commonDataGridView.DataSource = Me.bs
|
||||
Me.Tbl_commonDataGridView.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Tbl_commonDataGridView.Location = New System.Drawing.Point(0, 25)
|
||||
Me.Tbl_commonDataGridView.Name = "Tbl_commonDataGridView"
|
||||
Me.Tbl_commonDataGridView.RowTemplate.Height = 23
|
||||
Me.Tbl_commonDataGridView.Size = New System.Drawing.Size(791, 455)
|
||||
Me.Tbl_commonDataGridView.TabIndex = 3
|
||||
'
|
||||
'DataGridViewTextBoxColumn1
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn1.DataPropertyName = "gubun"
|
||||
Me.DataGridViewTextBoxColumn1.HeaderText = "gubun"
|
||||
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
|
||||
'
|
||||
'DataGridViewTextBoxColumn2
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn2.DataPropertyName = "code"
|
||||
Me.DataGridViewTextBoxColumn2.HeaderText = "code"
|
||||
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
|
||||
'
|
||||
'DataGridViewTextBoxColumn3
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn3.DataPropertyName = "name"
|
||||
Me.DataGridViewTextBoxColumn3.HeaderText = "name"
|
||||
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
|
||||
'
|
||||
'DataGridViewTextBoxColumn4
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn4.DataPropertyName = "valn1"
|
||||
Me.DataGridViewTextBoxColumn4.HeaderText = "valn1"
|
||||
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
|
||||
'
|
||||
'DataGridViewTextBoxColumn5
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn5.DataPropertyName = "codename"
|
||||
Me.DataGridViewTextBoxColumn5.HeaderText = "codename"
|
||||
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
|
||||
Me.DataGridViewTextBoxColumn5.ReadOnly = True
|
||||
'
|
||||
'ta
|
||||
'
|
||||
Me.ta.ClearBeforeFill = True
|
||||
'
|
||||
'ToolStripSeparator1
|
||||
'
|
||||
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'ToolStripLabel1
|
||||
'
|
||||
Me.ToolStripLabel1.Name = "ToolStripLabel1"
|
||||
Me.ToolStripLabel1.Size = New System.Drawing.Size(32, 22)
|
||||
Me.ToolStripLabel1.Text = "Filter"
|
||||
'
|
||||
'tbFilter
|
||||
'
|
||||
Me.tbFilter.Name = "tbFilter"
|
||||
Me.tbFilter.Size = New System.Drawing.Size(200, 25)
|
||||
'
|
||||
'Frm_Common
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(791, 480)
|
||||
Me.Controls.Add(Me.Tbl_commonDataGridView)
|
||||
Me.Controls.Add(Me.bn)
|
||||
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
|
||||
Me.KeyPreview = True
|
||||
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
|
||||
Me.Name = "Frm_Common"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "공용코드관리"
|
||||
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.bn.ResumeLayout(False)
|
||||
Me.bn.PerformLayout()
|
||||
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Tbl_commonDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents CidDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DS As Eco2OD.DS
|
||||
Friend WithEvents bs As System.Windows.Forms.BindingSource
|
||||
Friend WithEvents ta As Eco2OD.DSTableAdapters.tbl_common_odTableAdapter
|
||||
Friend WithEvents bn As System.Windows.Forms.BindingNavigator
|
||||
Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
|
||||
Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox
|
||||
Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents Tbl_commonBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents Tbl_commonDataGridView As System.Windows.Forms.DataGridView
|
||||
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents ToolStripButton1 As ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
|
||||
Friend WithEvents tbFilter As System.Windows.Forms.ToolStripTextBox
|
||||
End Class
|
||||
227
ArinWarev1/FORM-BASIC/Frm_Common.resx
Normal file
227
ArinWarev1/FORM-BASIC/Frm_Common.resx
Normal file
@@ -0,0 +1,227 @@
|
||||
<?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="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>210, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
||||
wgAADsIBFShKgAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
|
||||
pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
|
||||
Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
|
||||
/5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
|
||||
zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
|
||||
IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
|
||||
rkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>84, 17</value>
|
||||
</metadata>
|
||||
<data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
||||
wgAADsIBFShKgAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
|
||||
DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
|
||||
rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
|
||||
i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
|
||||
86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
|
||||
QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
|
||||
bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
||||
wgAADsIBFShKgAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
|
||||
wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
|
||||
v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
|
||||
UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
|
||||
Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
|
||||
lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
||||
wgAADsIBFShKgAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
|
||||
5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
|
||||
Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
|
||||
08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
||||
wgAADsIBFShKgAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
|
||||
n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
|
||||
N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
|
||||
oAc0QjgAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
||||
wgAADsIBFShKgAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
|
||||
h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
|
||||
twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
|
||||
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
|
||||
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
|
||||
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="Tbl_commonBindingNavigatorSaveItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
||||
wgAADsIBFShKgAAAAi9JREFUOE+tkt1L01EYx3//QvfdBF10W1NjOBerwa9cQ1k2DCvCXn6RZmm6TBMV
|
||||
K9Oo+QbZCpdOWq0m4aQiX8AUKRFlKlmauaIlDjXFJoLB1/Oc/fK4ii6iB56bw/l8znlepP8Sz5+FQelr
|
||||
XUKLdxEP3fNoagzhrmMadbVfYL8VwPXySZSWjKOw4C3yckdw/pwfKi5JBHZ1ArU1K/hbLK+swpTahUOp
|
||||
T3mquCR5nyxwQWXFN/Xq70FwaH4ZuywvoNEosB70CIH7wRwXlJZ8Va9Hx0/4Y3ABMWYfCi5N4YClWQic
|
||||
DTNccNH2QUVEbISHJ0LYJnuRkz2G5CSnENTfDnJB1tkRFYvEr3CfP4jNBjcUZQBms0MIaqo/c4FyakBF
|
||||
/wx39n/CpvhGHD7yComJdUJwo3IKHe1gowSOHX8D69Fe3m1qGNVM36aXI3A3UqwvIct2IbhSNoE2H9gO
|
||||
AM2uH2zu31F+bZY3lRpGNWdm+Nfh/cmtMBorhOBy4Rg8j4D7zlW2OGGY0rKj0pJuQ9qZogicxOB9HhgM
|
||||
ZUJgyxtlMFBdFeYvE0TnMToZg+9nMDo5CyX3KvaYWjis2+2CXl8kBLSWjjtY/zYJCD6dfxPvAnMITC/i
|
||||
QrEdsQYXg5sQm3APuvh8IcjMGGJ1L3F4q9GDLTtkPG7rga+9Dx3d/eh9PYi9Zis0+gbEMXi7th5abU60
|
||||
4OSJHr6etGG0JDRnGhV1mxpGNdOrlATvjMsSgn8PSVoDbGg6a0b5NXsAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
|
||||
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
|
||||
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
|
||||
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
|
||||
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
|
||||
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
|
||||
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
|
||||
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
|
||||
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
|
||||
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ta.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>148, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
39
ArinWarev1/FORM-BASIC/Frm_Common.vb
Normal file
39
ArinWarev1/FORM-BASIC/Frm_Common.vb
Normal file
@@ -0,0 +1,39 @@
|
||||
Public Class Frm_Common
|
||||
Dim viewTag As String = "common"
|
||||
Dim ViewFile As String = "\View_Config\Common_"
|
||||
Dim ViewOutFile As String = "\ExcelOut\공용코드.xls"
|
||||
Public Overrides Function AcceptChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function RejectChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function HasChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Private Sub Tbl_commonBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tbl_commonBindingNavigatorSaveItem.Click
|
||||
Me.Validate()
|
||||
Me.bs.EndEdit()
|
||||
Me.ta.Update(Me.DS.tbl_common_od)
|
||||
End Sub
|
||||
|
||||
Private Sub Frm_Common_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
'TODO: 이 코드는 데이터를 'DS.tbl_common' 테이블에 로드합니다. 필요한 경우 이 코드를 이동하거나 제거할 수 있습니다.
|
||||
bs.DataSource = Pub.DSET1.tbl_common_od
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||||
Me.ta.Fill(DSET1.tbl_common_od)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripTextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles tbFilter.TextChanged
|
||||
Try
|
||||
bs.Filter = tbFilter.Text
|
||||
tbFilter.BackColor = Color.White
|
||||
Catch ex As Exception
|
||||
bs.Filter = ""
|
||||
tbFilter.BackColor = Color.HotPink
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
38
ArinWarev1/FORM-BASIC/Frm_DisplayGubun.Designer.vb
generated
Normal file
38
ArinWarev1/FORM-BASIC/Frm_DisplayGubun.Designer.vb
generated
Normal file
@@ -0,0 +1,38 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_DisplayGubun
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Frm_DisplayGubun
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(604, 427)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
|
||||
Me.Name = "Frm_DisplayGubun"
|
||||
Me.Text = "구분표시"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
120
ArinWarev1/FORM-BASIC/Frm_DisplayGubun.resx
Normal file
120
ArinWarev1/FORM-BASIC/Frm_DisplayGubun.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
60
ArinWarev1/FORM-BASIC/Frm_DisplayGubun.vb
Normal file
60
ArinWarev1/FORM-BASIC/Frm_DisplayGubun.vb
Normal file
@@ -0,0 +1,60 @@
|
||||
Public Class Frm_DisplayGubun
|
||||
|
||||
Dim Fc As Color = Color.Black
|
||||
Dim Bc As Color = Color.White
|
||||
|
||||
Public Sub New()
|
||||
|
||||
' 이 호출은 Windows Form 디자이너에 필요합니다.
|
||||
InitializeComponent()
|
||||
|
||||
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
|
||||
|
||||
End Sub
|
||||
Public Sub New(ByVal vfc As String, ByVal vfb As String)
|
||||
InitializeComponent()
|
||||
Try
|
||||
Me.Fc = Color.FromArgb(vfc)
|
||||
Catch ex As Exception
|
||||
Me.Fc = Color.Black
|
||||
End Try
|
||||
Try
|
||||
Me.Bc = Color.FromArgb(vfb)
|
||||
Catch ex As Exception
|
||||
Me.Bc = Color.White
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub Frm_DisplayGubun_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
Me.Width = 555
|
||||
Me.Height = 362
|
||||
End Sub
|
||||
|
||||
Private Sub Frm_DisplayGubun_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
|
||||
Dim x, y As Decimal
|
||||
x = 0
|
||||
y = 0
|
||||
Dim G As Graphics = e.Graphics
|
||||
For i As Integer = 0 To 100
|
||||
If i <> 0 AndAlso i Mod 10 = 0 Then
|
||||
x = 0
|
||||
y += 55
|
||||
ElseIf i <> 0 Then
|
||||
x += 55
|
||||
End If
|
||||
|
||||
Try
|
||||
Dim B As New System.Drawing.Drawing2D.HatchBrush(i, Me.Fc, Me.Bc)
|
||||
G.FillRectangle(B, New Rectangle(x, y, 50, 50))
|
||||
G.DrawString(i.ToString, Me.Font, New SolidBrush(Color.White), x, y)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
Next
|
||||
G.Dispose()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
875
ArinWarev1/FORM-BASIC/Frm_ExtReport.Designer.vb
generated
Normal file
875
ArinWarev1/FORM-BASIC/Frm_ExtReport.Designer.vb
generated
Normal file
@@ -0,0 +1,875 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_ExtReport
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기에서는 수정하지 마세요.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
|
||||
Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.DSR = New Eco2OD.DSR()
|
||||
Me.C001DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C002DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C003DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C004DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C005DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C006DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C007DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C008DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C009DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C010DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C011DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C012DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C013DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C014DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C015DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C016DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C017DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C018DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C019DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C020DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C021DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C022DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C023DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C024DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C025DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C026DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C027DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C028DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C029DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C030DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C031DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C032DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C033DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C034DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C035DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C036DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C037DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C038DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C039DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C040DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C041DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C042DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C043DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C044DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C045DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C046DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C047DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C048DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C049DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C050DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C051DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C052DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C053DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C054DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C055DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C056DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C057DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C058DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C059DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C060DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C061DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C062DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C063DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C064DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C065DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C066DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C067DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C068DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C069DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C070DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C071DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C072DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C073DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C074DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C075DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C076DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C077DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C078DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C079DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C080DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C081DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C082DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C083DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C084DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C085DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C086DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C087DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C088DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C089DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C090DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C091DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C092DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C093DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C094DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C095DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C096DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C097DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C098DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C099DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.C100DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DataGridView1
|
||||
'
|
||||
Me.DataGridView1.AutoGenerateColumns = False
|
||||
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.C001DataGridViewTextBoxColumn, Me.C002DataGridViewTextBoxColumn, Me.C003DataGridViewTextBoxColumn, Me.C004DataGridViewTextBoxColumn, Me.C005DataGridViewTextBoxColumn, Me.C006DataGridViewTextBoxColumn, Me.C007DataGridViewTextBoxColumn, Me.C008DataGridViewTextBoxColumn, Me.C009DataGridViewTextBoxColumn, Me.C010DataGridViewTextBoxColumn, Me.C011DataGridViewTextBoxColumn, Me.C012DataGridViewTextBoxColumn, Me.C013DataGridViewTextBoxColumn, Me.C014DataGridViewTextBoxColumn, Me.C015DataGridViewTextBoxColumn, Me.C016DataGridViewTextBoxColumn, Me.C017DataGridViewTextBoxColumn, Me.C018DataGridViewTextBoxColumn, Me.C019DataGridViewTextBoxColumn, Me.C020DataGridViewTextBoxColumn, Me.C021DataGridViewTextBoxColumn, Me.C022DataGridViewTextBoxColumn, Me.C023DataGridViewTextBoxColumn, Me.C024DataGridViewTextBoxColumn, Me.C025DataGridViewTextBoxColumn, Me.C026DataGridViewTextBoxColumn, Me.C027DataGridViewTextBoxColumn, Me.C028DataGridViewTextBoxColumn, Me.C029DataGridViewTextBoxColumn, Me.C030DataGridViewTextBoxColumn, Me.C031DataGridViewTextBoxColumn, Me.C032DataGridViewTextBoxColumn, Me.C033DataGridViewTextBoxColumn, Me.C034DataGridViewTextBoxColumn, Me.C035DataGridViewTextBoxColumn, Me.C036DataGridViewTextBoxColumn, Me.C037DataGridViewTextBoxColumn, Me.C038DataGridViewTextBoxColumn, Me.C039DataGridViewTextBoxColumn, Me.C040DataGridViewTextBoxColumn, Me.C041DataGridViewTextBoxColumn, Me.C042DataGridViewTextBoxColumn, Me.C043DataGridViewTextBoxColumn, Me.C044DataGridViewTextBoxColumn, Me.C045DataGridViewTextBoxColumn, Me.C046DataGridViewTextBoxColumn, Me.C047DataGridViewTextBoxColumn, Me.C048DataGridViewTextBoxColumn, Me.C049DataGridViewTextBoxColumn, Me.C050DataGridViewTextBoxColumn, Me.C051DataGridViewTextBoxColumn, Me.C052DataGridViewTextBoxColumn, Me.C053DataGridViewTextBoxColumn, Me.C054DataGridViewTextBoxColumn, Me.C055DataGridViewTextBoxColumn, Me.C056DataGridViewTextBoxColumn, Me.C057DataGridViewTextBoxColumn, Me.C058DataGridViewTextBoxColumn, Me.C059DataGridViewTextBoxColumn, Me.C060DataGridViewTextBoxColumn, Me.C061DataGridViewTextBoxColumn, Me.C062DataGridViewTextBoxColumn, Me.C063DataGridViewTextBoxColumn, Me.C064DataGridViewTextBoxColumn, Me.C065DataGridViewTextBoxColumn, Me.C066DataGridViewTextBoxColumn, Me.C067DataGridViewTextBoxColumn, Me.C068DataGridViewTextBoxColumn, Me.C069DataGridViewTextBoxColumn, Me.C070DataGridViewTextBoxColumn, Me.C071DataGridViewTextBoxColumn, Me.C072DataGridViewTextBoxColumn, Me.C073DataGridViewTextBoxColumn, Me.C074DataGridViewTextBoxColumn, Me.C075DataGridViewTextBoxColumn, Me.C076DataGridViewTextBoxColumn, Me.C077DataGridViewTextBoxColumn, Me.C078DataGridViewTextBoxColumn, Me.C079DataGridViewTextBoxColumn, Me.C080DataGridViewTextBoxColumn, Me.C081DataGridViewTextBoxColumn, Me.C082DataGridViewTextBoxColumn, Me.C083DataGridViewTextBoxColumn, Me.C084DataGridViewTextBoxColumn, Me.C085DataGridViewTextBoxColumn, Me.C086DataGridViewTextBoxColumn, Me.C087DataGridViewTextBoxColumn, Me.C088DataGridViewTextBoxColumn, Me.C089DataGridViewTextBoxColumn, Me.C090DataGridViewTextBoxColumn, Me.C091DataGridViewTextBoxColumn, Me.C092DataGridViewTextBoxColumn, Me.C093DataGridViewTextBoxColumn, Me.C094DataGridViewTextBoxColumn, Me.C095DataGridViewTextBoxColumn, Me.C096DataGridViewTextBoxColumn, Me.C097DataGridViewTextBoxColumn, Me.C098DataGridViewTextBoxColumn, Me.C099DataGridViewTextBoxColumn, Me.C100DataGridViewTextBoxColumn})
|
||||
Me.DataGridView1.DataSource = Me.BindingSource1
|
||||
Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DataGridView1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DataGridView1.Name = "DataGridView1"
|
||||
Me.DataGridView1.RowTemplate.Height = 23
|
||||
Me.DataGridView1.Size = New System.Drawing.Size(830, 568)
|
||||
Me.DataGridView1.TabIndex = 0
|
||||
'
|
||||
'BindingSource1
|
||||
'
|
||||
Me.BindingSource1.DataMember = "ExtReport"
|
||||
Me.BindingSource1.DataSource = Me.DSR
|
||||
'
|
||||
'DSR
|
||||
'
|
||||
Me.DSR.DataSetName = "DSR"
|
||||
Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
|
||||
'
|
||||
'C001DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C001DataGridViewTextBoxColumn.DataPropertyName = "c001"
|
||||
Me.C001DataGridViewTextBoxColumn.HeaderText = "c001"
|
||||
Me.C001DataGridViewTextBoxColumn.Name = "C001DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C002DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C002DataGridViewTextBoxColumn.DataPropertyName = "c002"
|
||||
Me.C002DataGridViewTextBoxColumn.HeaderText = "c002"
|
||||
Me.C002DataGridViewTextBoxColumn.Name = "C002DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C003DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C003DataGridViewTextBoxColumn.DataPropertyName = "c003"
|
||||
Me.C003DataGridViewTextBoxColumn.HeaderText = "c003"
|
||||
Me.C003DataGridViewTextBoxColumn.Name = "C003DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C004DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C004DataGridViewTextBoxColumn.DataPropertyName = "c004"
|
||||
Me.C004DataGridViewTextBoxColumn.HeaderText = "c004"
|
||||
Me.C004DataGridViewTextBoxColumn.Name = "C004DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C005DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C005DataGridViewTextBoxColumn.DataPropertyName = "c005"
|
||||
Me.C005DataGridViewTextBoxColumn.HeaderText = "c005"
|
||||
Me.C005DataGridViewTextBoxColumn.Name = "C005DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C006DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C006DataGridViewTextBoxColumn.DataPropertyName = "c006"
|
||||
Me.C006DataGridViewTextBoxColumn.HeaderText = "c006"
|
||||
Me.C006DataGridViewTextBoxColumn.Name = "C006DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C007DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C007DataGridViewTextBoxColumn.DataPropertyName = "c007"
|
||||
Me.C007DataGridViewTextBoxColumn.HeaderText = "c007"
|
||||
Me.C007DataGridViewTextBoxColumn.Name = "C007DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C008DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C008DataGridViewTextBoxColumn.DataPropertyName = "c008"
|
||||
Me.C008DataGridViewTextBoxColumn.HeaderText = "c008"
|
||||
Me.C008DataGridViewTextBoxColumn.Name = "C008DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C009DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C009DataGridViewTextBoxColumn.DataPropertyName = "c009"
|
||||
Me.C009DataGridViewTextBoxColumn.HeaderText = "c009"
|
||||
Me.C009DataGridViewTextBoxColumn.Name = "C009DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C010DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C010DataGridViewTextBoxColumn.DataPropertyName = "c010"
|
||||
Me.C010DataGridViewTextBoxColumn.HeaderText = "c010"
|
||||
Me.C010DataGridViewTextBoxColumn.Name = "C010DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C011DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C011DataGridViewTextBoxColumn.DataPropertyName = "c011"
|
||||
Me.C011DataGridViewTextBoxColumn.HeaderText = "c011"
|
||||
Me.C011DataGridViewTextBoxColumn.Name = "C011DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C012DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C012DataGridViewTextBoxColumn.DataPropertyName = "c012"
|
||||
Me.C012DataGridViewTextBoxColumn.HeaderText = "c012"
|
||||
Me.C012DataGridViewTextBoxColumn.Name = "C012DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C013DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C013DataGridViewTextBoxColumn.DataPropertyName = "c013"
|
||||
Me.C013DataGridViewTextBoxColumn.HeaderText = "c013"
|
||||
Me.C013DataGridViewTextBoxColumn.Name = "C013DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C014DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C014DataGridViewTextBoxColumn.DataPropertyName = "c014"
|
||||
Me.C014DataGridViewTextBoxColumn.HeaderText = "c014"
|
||||
Me.C014DataGridViewTextBoxColumn.Name = "C014DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C015DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C015DataGridViewTextBoxColumn.DataPropertyName = "c015"
|
||||
Me.C015DataGridViewTextBoxColumn.HeaderText = "c015"
|
||||
Me.C015DataGridViewTextBoxColumn.Name = "C015DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C016DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C016DataGridViewTextBoxColumn.DataPropertyName = "c016"
|
||||
Me.C016DataGridViewTextBoxColumn.HeaderText = "c016"
|
||||
Me.C016DataGridViewTextBoxColumn.Name = "C016DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C017DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C017DataGridViewTextBoxColumn.DataPropertyName = "c017"
|
||||
Me.C017DataGridViewTextBoxColumn.HeaderText = "c017"
|
||||
Me.C017DataGridViewTextBoxColumn.Name = "C017DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C018DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C018DataGridViewTextBoxColumn.DataPropertyName = "c018"
|
||||
Me.C018DataGridViewTextBoxColumn.HeaderText = "c018"
|
||||
Me.C018DataGridViewTextBoxColumn.Name = "C018DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C019DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C019DataGridViewTextBoxColumn.DataPropertyName = "c019"
|
||||
Me.C019DataGridViewTextBoxColumn.HeaderText = "c019"
|
||||
Me.C019DataGridViewTextBoxColumn.Name = "C019DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C020DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C020DataGridViewTextBoxColumn.DataPropertyName = "c020"
|
||||
Me.C020DataGridViewTextBoxColumn.HeaderText = "c020"
|
||||
Me.C020DataGridViewTextBoxColumn.Name = "C020DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C021DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C021DataGridViewTextBoxColumn.DataPropertyName = "c021"
|
||||
Me.C021DataGridViewTextBoxColumn.HeaderText = "c021"
|
||||
Me.C021DataGridViewTextBoxColumn.Name = "C021DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C022DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C022DataGridViewTextBoxColumn.DataPropertyName = "c022"
|
||||
Me.C022DataGridViewTextBoxColumn.HeaderText = "c022"
|
||||
Me.C022DataGridViewTextBoxColumn.Name = "C022DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C023DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C023DataGridViewTextBoxColumn.DataPropertyName = "c023"
|
||||
Me.C023DataGridViewTextBoxColumn.HeaderText = "c023"
|
||||
Me.C023DataGridViewTextBoxColumn.Name = "C023DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C024DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C024DataGridViewTextBoxColumn.DataPropertyName = "c024"
|
||||
Me.C024DataGridViewTextBoxColumn.HeaderText = "c024"
|
||||
Me.C024DataGridViewTextBoxColumn.Name = "C024DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C025DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C025DataGridViewTextBoxColumn.DataPropertyName = "c025"
|
||||
Me.C025DataGridViewTextBoxColumn.HeaderText = "c025"
|
||||
Me.C025DataGridViewTextBoxColumn.Name = "C025DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C026DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C026DataGridViewTextBoxColumn.DataPropertyName = "c026"
|
||||
Me.C026DataGridViewTextBoxColumn.HeaderText = "c026"
|
||||
Me.C026DataGridViewTextBoxColumn.Name = "C026DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C027DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C027DataGridViewTextBoxColumn.DataPropertyName = "c027"
|
||||
Me.C027DataGridViewTextBoxColumn.HeaderText = "c027"
|
||||
Me.C027DataGridViewTextBoxColumn.Name = "C027DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C028DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C028DataGridViewTextBoxColumn.DataPropertyName = "c028"
|
||||
Me.C028DataGridViewTextBoxColumn.HeaderText = "c028"
|
||||
Me.C028DataGridViewTextBoxColumn.Name = "C028DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C029DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C029DataGridViewTextBoxColumn.DataPropertyName = "c029"
|
||||
Me.C029DataGridViewTextBoxColumn.HeaderText = "c029"
|
||||
Me.C029DataGridViewTextBoxColumn.Name = "C029DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C030DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C030DataGridViewTextBoxColumn.DataPropertyName = "c030"
|
||||
Me.C030DataGridViewTextBoxColumn.HeaderText = "c030"
|
||||
Me.C030DataGridViewTextBoxColumn.Name = "C030DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C031DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C031DataGridViewTextBoxColumn.DataPropertyName = "c031"
|
||||
Me.C031DataGridViewTextBoxColumn.HeaderText = "c031"
|
||||
Me.C031DataGridViewTextBoxColumn.Name = "C031DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C032DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C032DataGridViewTextBoxColumn.DataPropertyName = "c032"
|
||||
Me.C032DataGridViewTextBoxColumn.HeaderText = "c032"
|
||||
Me.C032DataGridViewTextBoxColumn.Name = "C032DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C033DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C033DataGridViewTextBoxColumn.DataPropertyName = "c033"
|
||||
Me.C033DataGridViewTextBoxColumn.HeaderText = "c033"
|
||||
Me.C033DataGridViewTextBoxColumn.Name = "C033DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C034DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C034DataGridViewTextBoxColumn.DataPropertyName = "c034"
|
||||
Me.C034DataGridViewTextBoxColumn.HeaderText = "c034"
|
||||
Me.C034DataGridViewTextBoxColumn.Name = "C034DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C035DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C035DataGridViewTextBoxColumn.DataPropertyName = "c035"
|
||||
Me.C035DataGridViewTextBoxColumn.HeaderText = "c035"
|
||||
Me.C035DataGridViewTextBoxColumn.Name = "C035DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C036DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C036DataGridViewTextBoxColumn.DataPropertyName = "c036"
|
||||
Me.C036DataGridViewTextBoxColumn.HeaderText = "c036"
|
||||
Me.C036DataGridViewTextBoxColumn.Name = "C036DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C037DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C037DataGridViewTextBoxColumn.DataPropertyName = "c037"
|
||||
Me.C037DataGridViewTextBoxColumn.HeaderText = "c037"
|
||||
Me.C037DataGridViewTextBoxColumn.Name = "C037DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C038DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C038DataGridViewTextBoxColumn.DataPropertyName = "c038"
|
||||
Me.C038DataGridViewTextBoxColumn.HeaderText = "c038"
|
||||
Me.C038DataGridViewTextBoxColumn.Name = "C038DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C039DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C039DataGridViewTextBoxColumn.DataPropertyName = "c039"
|
||||
Me.C039DataGridViewTextBoxColumn.HeaderText = "c039"
|
||||
Me.C039DataGridViewTextBoxColumn.Name = "C039DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C040DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C040DataGridViewTextBoxColumn.DataPropertyName = "c040"
|
||||
Me.C040DataGridViewTextBoxColumn.HeaderText = "c040"
|
||||
Me.C040DataGridViewTextBoxColumn.Name = "C040DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C041DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C041DataGridViewTextBoxColumn.DataPropertyName = "c041"
|
||||
Me.C041DataGridViewTextBoxColumn.HeaderText = "c041"
|
||||
Me.C041DataGridViewTextBoxColumn.Name = "C041DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C042DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C042DataGridViewTextBoxColumn.DataPropertyName = "c042"
|
||||
Me.C042DataGridViewTextBoxColumn.HeaderText = "c042"
|
||||
Me.C042DataGridViewTextBoxColumn.Name = "C042DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C043DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C043DataGridViewTextBoxColumn.DataPropertyName = "c043"
|
||||
Me.C043DataGridViewTextBoxColumn.HeaderText = "c043"
|
||||
Me.C043DataGridViewTextBoxColumn.Name = "C043DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C044DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C044DataGridViewTextBoxColumn.DataPropertyName = "c044"
|
||||
Me.C044DataGridViewTextBoxColumn.HeaderText = "c044"
|
||||
Me.C044DataGridViewTextBoxColumn.Name = "C044DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C045DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C045DataGridViewTextBoxColumn.DataPropertyName = "c045"
|
||||
Me.C045DataGridViewTextBoxColumn.HeaderText = "c045"
|
||||
Me.C045DataGridViewTextBoxColumn.Name = "C045DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C046DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C046DataGridViewTextBoxColumn.DataPropertyName = "c046"
|
||||
Me.C046DataGridViewTextBoxColumn.HeaderText = "c046"
|
||||
Me.C046DataGridViewTextBoxColumn.Name = "C046DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C047DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C047DataGridViewTextBoxColumn.DataPropertyName = "c047"
|
||||
Me.C047DataGridViewTextBoxColumn.HeaderText = "c047"
|
||||
Me.C047DataGridViewTextBoxColumn.Name = "C047DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C048DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C048DataGridViewTextBoxColumn.DataPropertyName = "c048"
|
||||
Me.C048DataGridViewTextBoxColumn.HeaderText = "c048"
|
||||
Me.C048DataGridViewTextBoxColumn.Name = "C048DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C049DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C049DataGridViewTextBoxColumn.DataPropertyName = "c049"
|
||||
Me.C049DataGridViewTextBoxColumn.HeaderText = "c049"
|
||||
Me.C049DataGridViewTextBoxColumn.Name = "C049DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C050DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C050DataGridViewTextBoxColumn.DataPropertyName = "c050"
|
||||
Me.C050DataGridViewTextBoxColumn.HeaderText = "c050"
|
||||
Me.C050DataGridViewTextBoxColumn.Name = "C050DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C051DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C051DataGridViewTextBoxColumn.DataPropertyName = "c051"
|
||||
Me.C051DataGridViewTextBoxColumn.HeaderText = "c051"
|
||||
Me.C051DataGridViewTextBoxColumn.Name = "C051DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C052DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C052DataGridViewTextBoxColumn.DataPropertyName = "c052"
|
||||
Me.C052DataGridViewTextBoxColumn.HeaderText = "c052"
|
||||
Me.C052DataGridViewTextBoxColumn.Name = "C052DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C053DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C053DataGridViewTextBoxColumn.DataPropertyName = "c053"
|
||||
Me.C053DataGridViewTextBoxColumn.HeaderText = "c053"
|
||||
Me.C053DataGridViewTextBoxColumn.Name = "C053DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C054DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C054DataGridViewTextBoxColumn.DataPropertyName = "c054"
|
||||
Me.C054DataGridViewTextBoxColumn.HeaderText = "c054"
|
||||
Me.C054DataGridViewTextBoxColumn.Name = "C054DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C055DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C055DataGridViewTextBoxColumn.DataPropertyName = "c055"
|
||||
Me.C055DataGridViewTextBoxColumn.HeaderText = "c055"
|
||||
Me.C055DataGridViewTextBoxColumn.Name = "C055DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C056DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C056DataGridViewTextBoxColumn.DataPropertyName = "c056"
|
||||
Me.C056DataGridViewTextBoxColumn.HeaderText = "c056"
|
||||
Me.C056DataGridViewTextBoxColumn.Name = "C056DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C057DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C057DataGridViewTextBoxColumn.DataPropertyName = "c057"
|
||||
Me.C057DataGridViewTextBoxColumn.HeaderText = "c057"
|
||||
Me.C057DataGridViewTextBoxColumn.Name = "C057DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C058DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C058DataGridViewTextBoxColumn.DataPropertyName = "c058"
|
||||
Me.C058DataGridViewTextBoxColumn.HeaderText = "c058"
|
||||
Me.C058DataGridViewTextBoxColumn.Name = "C058DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C059DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C059DataGridViewTextBoxColumn.DataPropertyName = "c059"
|
||||
Me.C059DataGridViewTextBoxColumn.HeaderText = "c059"
|
||||
Me.C059DataGridViewTextBoxColumn.Name = "C059DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C060DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C060DataGridViewTextBoxColumn.DataPropertyName = "c060"
|
||||
Me.C060DataGridViewTextBoxColumn.HeaderText = "c060"
|
||||
Me.C060DataGridViewTextBoxColumn.Name = "C060DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C061DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C061DataGridViewTextBoxColumn.DataPropertyName = "c061"
|
||||
Me.C061DataGridViewTextBoxColumn.HeaderText = "c061"
|
||||
Me.C061DataGridViewTextBoxColumn.Name = "C061DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C062DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C062DataGridViewTextBoxColumn.DataPropertyName = "c062"
|
||||
Me.C062DataGridViewTextBoxColumn.HeaderText = "c062"
|
||||
Me.C062DataGridViewTextBoxColumn.Name = "C062DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C063DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C063DataGridViewTextBoxColumn.DataPropertyName = "c063"
|
||||
Me.C063DataGridViewTextBoxColumn.HeaderText = "c063"
|
||||
Me.C063DataGridViewTextBoxColumn.Name = "C063DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C064DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C064DataGridViewTextBoxColumn.DataPropertyName = "c064"
|
||||
Me.C064DataGridViewTextBoxColumn.HeaderText = "c064"
|
||||
Me.C064DataGridViewTextBoxColumn.Name = "C064DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C065DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C065DataGridViewTextBoxColumn.DataPropertyName = "c065"
|
||||
Me.C065DataGridViewTextBoxColumn.HeaderText = "c065"
|
||||
Me.C065DataGridViewTextBoxColumn.Name = "C065DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C066DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C066DataGridViewTextBoxColumn.DataPropertyName = "c066"
|
||||
Me.C066DataGridViewTextBoxColumn.HeaderText = "c066"
|
||||
Me.C066DataGridViewTextBoxColumn.Name = "C066DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C067DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C067DataGridViewTextBoxColumn.DataPropertyName = "c067"
|
||||
Me.C067DataGridViewTextBoxColumn.HeaderText = "c067"
|
||||
Me.C067DataGridViewTextBoxColumn.Name = "C067DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C068DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C068DataGridViewTextBoxColumn.DataPropertyName = "c068"
|
||||
Me.C068DataGridViewTextBoxColumn.HeaderText = "c068"
|
||||
Me.C068DataGridViewTextBoxColumn.Name = "C068DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C069DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C069DataGridViewTextBoxColumn.DataPropertyName = "c069"
|
||||
Me.C069DataGridViewTextBoxColumn.HeaderText = "c069"
|
||||
Me.C069DataGridViewTextBoxColumn.Name = "C069DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C070DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C070DataGridViewTextBoxColumn.DataPropertyName = "c070"
|
||||
Me.C070DataGridViewTextBoxColumn.HeaderText = "c070"
|
||||
Me.C070DataGridViewTextBoxColumn.Name = "C070DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C071DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C071DataGridViewTextBoxColumn.DataPropertyName = "c071"
|
||||
Me.C071DataGridViewTextBoxColumn.HeaderText = "c071"
|
||||
Me.C071DataGridViewTextBoxColumn.Name = "C071DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C072DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C072DataGridViewTextBoxColumn.DataPropertyName = "c072"
|
||||
Me.C072DataGridViewTextBoxColumn.HeaderText = "c072"
|
||||
Me.C072DataGridViewTextBoxColumn.Name = "C072DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C073DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C073DataGridViewTextBoxColumn.DataPropertyName = "c073"
|
||||
Me.C073DataGridViewTextBoxColumn.HeaderText = "c073"
|
||||
Me.C073DataGridViewTextBoxColumn.Name = "C073DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C074DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C074DataGridViewTextBoxColumn.DataPropertyName = "c074"
|
||||
Me.C074DataGridViewTextBoxColumn.HeaderText = "c074"
|
||||
Me.C074DataGridViewTextBoxColumn.Name = "C074DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C075DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C075DataGridViewTextBoxColumn.DataPropertyName = "c075"
|
||||
Me.C075DataGridViewTextBoxColumn.HeaderText = "c075"
|
||||
Me.C075DataGridViewTextBoxColumn.Name = "C075DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C076DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C076DataGridViewTextBoxColumn.DataPropertyName = "c076"
|
||||
Me.C076DataGridViewTextBoxColumn.HeaderText = "c076"
|
||||
Me.C076DataGridViewTextBoxColumn.Name = "C076DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C077DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C077DataGridViewTextBoxColumn.DataPropertyName = "c077"
|
||||
Me.C077DataGridViewTextBoxColumn.HeaderText = "c077"
|
||||
Me.C077DataGridViewTextBoxColumn.Name = "C077DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C078DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C078DataGridViewTextBoxColumn.DataPropertyName = "c078"
|
||||
Me.C078DataGridViewTextBoxColumn.HeaderText = "c078"
|
||||
Me.C078DataGridViewTextBoxColumn.Name = "C078DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C079DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C079DataGridViewTextBoxColumn.DataPropertyName = "c079"
|
||||
Me.C079DataGridViewTextBoxColumn.HeaderText = "c079"
|
||||
Me.C079DataGridViewTextBoxColumn.Name = "C079DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C080DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C080DataGridViewTextBoxColumn.DataPropertyName = "c080"
|
||||
Me.C080DataGridViewTextBoxColumn.HeaderText = "c080"
|
||||
Me.C080DataGridViewTextBoxColumn.Name = "C080DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C081DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C081DataGridViewTextBoxColumn.DataPropertyName = "c081"
|
||||
Me.C081DataGridViewTextBoxColumn.HeaderText = "c081"
|
||||
Me.C081DataGridViewTextBoxColumn.Name = "C081DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C082DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C082DataGridViewTextBoxColumn.DataPropertyName = "c082"
|
||||
Me.C082DataGridViewTextBoxColumn.HeaderText = "c082"
|
||||
Me.C082DataGridViewTextBoxColumn.Name = "C082DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C083DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C083DataGridViewTextBoxColumn.DataPropertyName = "c083"
|
||||
Me.C083DataGridViewTextBoxColumn.HeaderText = "c083"
|
||||
Me.C083DataGridViewTextBoxColumn.Name = "C083DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C084DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C084DataGridViewTextBoxColumn.DataPropertyName = "c084"
|
||||
Me.C084DataGridViewTextBoxColumn.HeaderText = "c084"
|
||||
Me.C084DataGridViewTextBoxColumn.Name = "C084DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C085DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C085DataGridViewTextBoxColumn.DataPropertyName = "c085"
|
||||
Me.C085DataGridViewTextBoxColumn.HeaderText = "c085"
|
||||
Me.C085DataGridViewTextBoxColumn.Name = "C085DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C086DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C086DataGridViewTextBoxColumn.DataPropertyName = "c086"
|
||||
Me.C086DataGridViewTextBoxColumn.HeaderText = "c086"
|
||||
Me.C086DataGridViewTextBoxColumn.Name = "C086DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C087DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C087DataGridViewTextBoxColumn.DataPropertyName = "c087"
|
||||
Me.C087DataGridViewTextBoxColumn.HeaderText = "c087"
|
||||
Me.C087DataGridViewTextBoxColumn.Name = "C087DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C088DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C088DataGridViewTextBoxColumn.DataPropertyName = "c088"
|
||||
Me.C088DataGridViewTextBoxColumn.HeaderText = "c088"
|
||||
Me.C088DataGridViewTextBoxColumn.Name = "C088DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C089DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C089DataGridViewTextBoxColumn.DataPropertyName = "c089"
|
||||
Me.C089DataGridViewTextBoxColumn.HeaderText = "c089"
|
||||
Me.C089DataGridViewTextBoxColumn.Name = "C089DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C090DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C090DataGridViewTextBoxColumn.DataPropertyName = "c090"
|
||||
Me.C090DataGridViewTextBoxColumn.HeaderText = "c090"
|
||||
Me.C090DataGridViewTextBoxColumn.Name = "C090DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C091DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C091DataGridViewTextBoxColumn.DataPropertyName = "c091"
|
||||
Me.C091DataGridViewTextBoxColumn.HeaderText = "c091"
|
||||
Me.C091DataGridViewTextBoxColumn.Name = "C091DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C092DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C092DataGridViewTextBoxColumn.DataPropertyName = "c092"
|
||||
Me.C092DataGridViewTextBoxColumn.HeaderText = "c092"
|
||||
Me.C092DataGridViewTextBoxColumn.Name = "C092DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C093DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C093DataGridViewTextBoxColumn.DataPropertyName = "c093"
|
||||
Me.C093DataGridViewTextBoxColumn.HeaderText = "c093"
|
||||
Me.C093DataGridViewTextBoxColumn.Name = "C093DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C094DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C094DataGridViewTextBoxColumn.DataPropertyName = "c094"
|
||||
Me.C094DataGridViewTextBoxColumn.HeaderText = "c094"
|
||||
Me.C094DataGridViewTextBoxColumn.Name = "C094DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C095DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C095DataGridViewTextBoxColumn.DataPropertyName = "c095"
|
||||
Me.C095DataGridViewTextBoxColumn.HeaderText = "c095"
|
||||
Me.C095DataGridViewTextBoxColumn.Name = "C095DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C096DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C096DataGridViewTextBoxColumn.DataPropertyName = "c096"
|
||||
Me.C096DataGridViewTextBoxColumn.HeaderText = "c096"
|
||||
Me.C096DataGridViewTextBoxColumn.Name = "C096DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C097DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C097DataGridViewTextBoxColumn.DataPropertyName = "c097"
|
||||
Me.C097DataGridViewTextBoxColumn.HeaderText = "c097"
|
||||
Me.C097DataGridViewTextBoxColumn.Name = "C097DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C098DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C098DataGridViewTextBoxColumn.DataPropertyName = "c098"
|
||||
Me.C098DataGridViewTextBoxColumn.HeaderText = "c098"
|
||||
Me.C098DataGridViewTextBoxColumn.Name = "C098DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C099DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C099DataGridViewTextBoxColumn.DataPropertyName = "c099"
|
||||
Me.C099DataGridViewTextBoxColumn.HeaderText = "c099"
|
||||
Me.C099DataGridViewTextBoxColumn.Name = "C099DataGridViewTextBoxColumn"
|
||||
'
|
||||
'C100DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.C100DataGridViewTextBoxColumn.DataPropertyName = "c100"
|
||||
Me.C100DataGridViewTextBoxColumn.HeaderText = "c100"
|
||||
Me.C100DataGridViewTextBoxColumn.Name = "C100DataGridViewTextBoxColumn"
|
||||
'
|
||||
'Frm_ExtReport
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(830, 568)
|
||||
Me.Controls.Add(Me.DataGridView1)
|
||||
Me.Name = "Frm_ExtReport"
|
||||
Me.Text = "Frm_ExtReport"
|
||||
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents DataGridView1 As DataGridView
|
||||
Friend WithEvents C001DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C002DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C003DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C004DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C005DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C006DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C007DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C008DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C009DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C010DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C011DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C012DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C013DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C014DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C015DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C016DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C017DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C018DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C019DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C020DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C021DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C022DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C023DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C024DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C025DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C026DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C027DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C028DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C029DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C030DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C031DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C032DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C033DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C034DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C035DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C036DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C037DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C038DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C039DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C040DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C041DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C042DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C043DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C044DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C045DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C046DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C047DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C048DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C049DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C050DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C051DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C052DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C053DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C054DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C055DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C056DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C057DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C058DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C059DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C060DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C061DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C062DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C063DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C064DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C065DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C066DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C067DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C068DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C069DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C070DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C071DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C072DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C073DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C074DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C075DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C076DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C077DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C078DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C079DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C080DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C081DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C082DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C083DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C084DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C085DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C086DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C087DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C088DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C089DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C090DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C091DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C092DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C093DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C094DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C095DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C096DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C097DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C098DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C099DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents C100DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
|
||||
Friend WithEvents BindingSource1 As BindingSource
|
||||
Friend WithEvents DSR As DSR
|
||||
End Class
|
||||
132
ArinWarev1/FORM-BASIC/Frm_ExtReport.resx
Normal file
132
ArinWarev1/FORM-BASIC/Frm_ExtReport.resx
Normal file
@@ -0,0 +1,132 @@
|
||||
<?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="BindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="BindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="DSR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>156, 17</value>
|
||||
</metadata>
|
||||
<metadata name="DSR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>156, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
5
ArinWarev1/FORM-BASIC/Frm_ExtReport.vb
Normal file
5
ArinWarev1/FORM-BASIC/Frm_ExtReport.vb
Normal file
@@ -0,0 +1,5 @@
|
||||
Public Class Frm_ExtReport
|
||||
Private Sub Frm_ExtReport_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
BindingSource1.DataSource = DSETR1
|
||||
End Sub
|
||||
End Class
|
||||
280
ArinWarev1/FORM-BASIC/Frm_FileInfo.Designer.vb
generated
Normal file
280
ArinWarev1/FORM-BASIC/Frm_FileInfo.Designer.vb
generated
Normal file
@@ -0,0 +1,280 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_FileInfo
|
||||
Inherits CForm
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_FileInfo))
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.tb_password = New System.Windows.Forms.TextBox()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.tb_Edittime = New System.Windows.Forms.TextBox()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.cmb_ft = New System.Windows.Forms.ComboBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.tb_ui = New System.Windows.Forms.TextBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.tb_lg = New System.Windows.Forms.TextBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.tb_maketime = New System.Windows.Forms.TextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.tb_desc = New System.Windows.Forms.TextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.tb_name = New System.Windows.Forms.TextBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.White
|
||||
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Panel1.Controls.Add(Me.Button1)
|
||||
Me.Panel1.Controls.Add(Me.Label10)
|
||||
Me.Panel1.Controls.Add(Me.Label9)
|
||||
Me.Panel1.Controls.Add(Me.tb_password)
|
||||
Me.Panel1.Controls.Add(Me.Label8)
|
||||
Me.Panel1.Controls.Add(Me.tb_Edittime)
|
||||
Me.Panel1.Controls.Add(Me.Label7)
|
||||
Me.Panel1.Controls.Add(Me.cmb_ft)
|
||||
Me.Panel1.Controls.Add(Me.Label6)
|
||||
Me.Panel1.Controls.Add(Me.tb_ui)
|
||||
Me.Panel1.Controls.Add(Me.Label5)
|
||||
Me.Panel1.Controls.Add(Me.tb_lg)
|
||||
Me.Panel1.Controls.Add(Me.Label4)
|
||||
Me.Panel1.Controls.Add(Me.tb_maketime)
|
||||
Me.Panel1.Controls.Add(Me.Label3)
|
||||
Me.Panel1.Controls.Add(Me.tb_desc)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.tb_name)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(398, 320)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(106, 229)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(278, 36)
|
||||
Me.Button1.TabIndex = 17
|
||||
Me.Button1.Text = "변경완료"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Location = New System.Drawing.Point(21, 278)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(298, 12)
|
||||
Me.Label10.TabIndex = 16
|
||||
Me.Label10.Text = "* 암호는 저장파일형태가 01 이상이 되어야합니다"
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Location = New System.Drawing.Point(21, 295)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(232, 12)
|
||||
Me.Label9.TabIndex = 16
|
||||
Me.Label9.Text = "* 버젼 변경은 현재 허용되지 않습니다"
|
||||
'
|
||||
'tb_password
|
||||
'
|
||||
Me.tb_password.Location = New System.Drawing.Point(106, 173)
|
||||
Me.tb_password.Name = "tb_password"
|
||||
Me.tb_password.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
|
||||
Me.tb_password.Size = New System.Drawing.Size(279, 21)
|
||||
Me.tb_password.TabIndex = 15
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.ForeColor = System.Drawing.Color.Blue
|
||||
Me.Label8.Location = New System.Drawing.Point(69, 176)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(31, 12)
|
||||
Me.Label8.TabIndex = 14
|
||||
Me.Label8.Text = "암호"
|
||||
'
|
||||
'tb_Edittime
|
||||
'
|
||||
Me.tb_Edittime.Location = New System.Drawing.Point(106, 92)
|
||||
Me.tb_Edittime.Name = "tb_Edittime"
|
||||
Me.tb_Edittime.ReadOnly = True
|
||||
Me.tb_Edittime.Size = New System.Drawing.Size(279, 21)
|
||||
Me.tb_Edittime.TabIndex = 13
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(17, 95)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(83, 12)
|
||||
Me.Label7.TabIndex = 12
|
||||
Me.Label7.Text = "최종수정시간"
|
||||
'
|
||||
'cmb_ft
|
||||
'
|
||||
Me.cmb_ft.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cmb_ft.FormattingEnabled = True
|
||||
Me.cmb_ft.Items.AddRange(New Object() {"00 [기본파일형태]", "01 [암호설정가능]"})
|
||||
Me.cmb_ft.Location = New System.Drawing.Point(106, 201)
|
||||
Me.cmb_ft.Name = "cmb_ft"
|
||||
Me.cmb_ft.Size = New System.Drawing.Size(279, 20)
|
||||
Me.cmb_ft.TabIndex = 11
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(17, 204)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(83, 12)
|
||||
Me.Label6.TabIndex = 10
|
||||
Me.Label6.Text = "저장파일형태"
|
||||
'
|
||||
'tb_ui
|
||||
'
|
||||
Me.tb_ui.Location = New System.Drawing.Point(106, 146)
|
||||
Me.tb_ui.Name = "tb_ui"
|
||||
Me.tb_ui.ReadOnly = True
|
||||
Me.tb_ui.Size = New System.Drawing.Size(279, 21)
|
||||
Me.tb_ui.TabIndex = 9
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(82, 152)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(18, 12)
|
||||
Me.Label5.TabIndex = 8
|
||||
Me.Label5.Text = "UI"
|
||||
'
|
||||
'tb_lg
|
||||
'
|
||||
Me.tb_lg.Location = New System.Drawing.Point(106, 119)
|
||||
Me.tb_lg.Name = "tb_lg"
|
||||
Me.tb_lg.ReadOnly = True
|
||||
Me.tb_lg.Size = New System.Drawing.Size(279, 21)
|
||||
Me.tb_lg.TabIndex = 7
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(77, 124)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(23, 12)
|
||||
Me.Label4.TabIndex = 6
|
||||
Me.Label4.Text = "LG"
|
||||
'
|
||||
'tb_maketime
|
||||
'
|
||||
Me.tb_maketime.Location = New System.Drawing.Point(106, 65)
|
||||
Me.tb_maketime.Name = "tb_maketime"
|
||||
Me.tb_maketime.ReadOnly = True
|
||||
Me.tb_maketime.Size = New System.Drawing.Size(279, 21)
|
||||
Me.tb_maketime.TabIndex = 5
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(43, 70)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(57, 12)
|
||||
Me.Label3.TabIndex = 4
|
||||
Me.Label3.Text = "생성시간"
|
||||
'
|
||||
'tb_desc
|
||||
'
|
||||
Me.tb_desc.Location = New System.Drawing.Point(106, 38)
|
||||
Me.tb_desc.Name = "tb_desc"
|
||||
Me.tb_desc.Size = New System.Drawing.Size(279, 21)
|
||||
Me.tb_desc.TabIndex = 3
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(25, 44)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(75, 12)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = "템플릿 설명"
|
||||
'
|
||||
'tb_name
|
||||
'
|
||||
Me.tb_name.Location = New System.Drawing.Point(106, 11)
|
||||
Me.tb_name.Name = "tb_name"
|
||||
Me.tb_name.Size = New System.Drawing.Size(279, 21)
|
||||
Me.tb_name.TabIndex = 1
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(25, 15)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(75, 12)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "템플릿 이름"
|
||||
'
|
||||
'Frm_FileInfo
|
||||
'
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
||||
Me.ClientSize = New System.Drawing.Size(398, 320)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "Frm_FileInfo"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "템플릿 정보"
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents tb_name As System.Windows.Forms.TextBox
|
||||
Friend WithEvents tb_desc As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents tb_ui As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents tb_lg As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents tb_maketime As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents cmb_ft As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents tb_Edittime As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents tb_password As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
End Class
|
||||
6293
ArinWarev1/FORM-BASIC/Frm_FileInfo.resx
Normal file
6293
ArinWarev1/FORM-BASIC/Frm_FileInfo.resx
Normal file
File diff suppressed because it is too large
Load Diff
45
ArinWarev1/FORM-BASIC/Frm_FileInfo.vb
Normal file
45
ArinWarev1/FORM-BASIC/Frm_FileInfo.vb
Normal file
@@ -0,0 +1,45 @@
|
||||
Public Class Frm_FileInfo
|
||||
|
||||
Private Sub Frm_FileInfo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||
|
||||
Me.tb_name.Text = Prj.Name
|
||||
Me.tb_desc.Text = Prj.Desc
|
||||
Me.tb_maketime.Text = Prj.MakeTime
|
||||
Me.tb_Edittime.Text = Prj.EditTime
|
||||
Me.tb_lg.Text = Prj.LGVersino
|
||||
Me.tb_ui.Text = Prj.UIVersion
|
||||
Me.cmb_ft.SelectedIndex = CInt(Prj.SFType)
|
||||
Select Case Me.cmb_ft.SelectedIndex
|
||||
Case 1
|
||||
Me.tb_password.Text = Prj.Password
|
||||
Case Else
|
||||
Me.tb_password.Text = ""
|
||||
End Select
|
||||
If Me.cmb_ft.SelectedIndex = -1 Then Me.cmb_ft.SelectedIndex = 1
|
||||
End Sub
|
||||
|
||||
Private Sub Cmb_ft_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_ft.SelectedIndexChanged
|
||||
Select Case Me.cmb_ft.SelectedIndex
|
||||
Case 0
|
||||
Me.tb_password.Text = ""
|
||||
Me.tb_password.Enabled = False
|
||||
Case 1
|
||||
Me.cmb_ft.Enabled = True
|
||||
Case Else
|
||||
Me.tb_password.Text = ""
|
||||
Me.tb_password.Enabled = False
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
|
||||
Prj.Name = Me.tb_name.Text
|
||||
Prj.Desc = Me.tb_desc.Text
|
||||
Prj.MakeTime = Me.tb_maketime.Text
|
||||
Prj.EditTime = Me.tb_Edittime.Text
|
||||
Prj.LGVersino = Me.tb_lg.Text
|
||||
Prj.UIVersion = Me.tb_ui.Text
|
||||
Prj.SFType = Format(Me.cmb_ft.SelectedIndex, "00")
|
||||
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||
End Sub
|
||||
End Class
|
||||
386
ArinWarev1/FORM-BASIC/Frm_Filter.Designer.vb
generated
Normal file
386
ArinWarev1/FORM-BASIC/Frm_Filter.Designer.vb
generated
Normal file
@@ -0,0 +1,386 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_Filter
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
|
||||
Me.OK_Button = New System.Windows.Forms.Button()
|
||||
Me.Cancel_Button = New System.Windows.Forms.Button()
|
||||
Me.tb_filter = New System.Windows.Forms.TextBox()
|
||||
Me.cmb_field1 = New System.Windows.Forms.ComboBox()
|
||||
Me.cmb_field2 = New System.Windows.Forms.ComboBox()
|
||||
Me.cmb_field3 = New System.Windows.Forms.ComboBox()
|
||||
Me.cmb_field4 = New System.Windows.Forms.ComboBox()
|
||||
Me.cmb_j1 = New System.Windows.Forms.ComboBox()
|
||||
Me.cmb_j2 = New System.Windows.Forms.ComboBox()
|
||||
Me.cmb_j3 = New System.Windows.Forms.ComboBox()
|
||||
Me.cmb_cond1 = New System.Windows.Forms.ComboBox()
|
||||
Me.cmb_cond2 = New System.Windows.Forms.ComboBox()
|
||||
Me.cmb_cond3 = New System.Windows.Forms.ComboBox()
|
||||
Me.cmb_cond4 = New System.Windows.Forms.ComboBox()
|
||||
Me.tb_s1 = New System.Windows.Forms.TextBox()
|
||||
Me.tb_s2 = New System.Windows.Forms.TextBox()
|
||||
Me.tb_s3 = New System.Windows.Forms.TextBox()
|
||||
Me.tb_s4 = New System.Windows.Forms.TextBox()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.tb_valuec = New System.Windows.Forms.TextBox()
|
||||
Me.cmb_fieldc = New System.Windows.Forms.ComboBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.TableLayoutPanel1.SuspendLayout()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'TableLayoutPanel1
|
||||
'
|
||||
Me.TableLayoutPanel1.ColumnCount = 2
|
||||
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
|
||||
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
|
||||
Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
|
||||
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
|
||||
Me.TableLayoutPanel1.Location = New System.Drawing.Point(229, 252)
|
||||
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
|
||||
Me.TableLayoutPanel1.RowCount = 1
|
||||
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
|
||||
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 27.0!))
|
||||
Me.TableLayoutPanel1.Size = New System.Drawing.Size(170, 27)
|
||||
Me.TableLayoutPanel1.TabIndex = 0
|
||||
'
|
||||
'OK_Button
|
||||
'
|
||||
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
|
||||
Me.OK_Button.Location = New System.Drawing.Point(3, 3)
|
||||
Me.OK_Button.Name = "OK_Button"
|
||||
Me.OK_Button.Size = New System.Drawing.Size(78, 21)
|
||||
Me.OK_Button.TabIndex = 0
|
||||
Me.OK_Button.Text = "확인"
|
||||
'
|
||||
'Cancel_Button
|
||||
'
|
||||
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
|
||||
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
||||
Me.Cancel_Button.Location = New System.Drawing.Point(88, 3)
|
||||
Me.Cancel_Button.Name = "Cancel_Button"
|
||||
Me.Cancel_Button.Size = New System.Drawing.Size(78, 21)
|
||||
Me.Cancel_Button.TabIndex = 1
|
||||
Me.Cancel_Button.Text = "취소"
|
||||
'
|
||||
'tb_filter
|
||||
'
|
||||
Me.tb_filter.Location = New System.Drawing.Point(22, 20)
|
||||
Me.tb_filter.Multiline = True
|
||||
Me.tb_filter.Name = "tb_filter"
|
||||
Me.tb_filter.Size = New System.Drawing.Size(361, 60)
|
||||
Me.tb_filter.TabIndex = 1
|
||||
'
|
||||
'cmb_field1
|
||||
'
|
||||
Me.cmb_field1.FormattingEnabled = True
|
||||
Me.cmb_field1.Location = New System.Drawing.Point(73, 23)
|
||||
Me.cmb_field1.Name = "cmb_field1"
|
||||
Me.cmb_field1.Size = New System.Drawing.Size(138, 20)
|
||||
Me.cmb_field1.TabIndex = 3
|
||||
'
|
||||
'cmb_field2
|
||||
'
|
||||
Me.cmb_field2.FormattingEnabled = True
|
||||
Me.cmb_field2.Location = New System.Drawing.Point(73, 49)
|
||||
Me.cmb_field2.Name = "cmb_field2"
|
||||
Me.cmb_field2.Size = New System.Drawing.Size(138, 20)
|
||||
Me.cmb_field2.TabIndex = 4
|
||||
'
|
||||
'cmb_field3
|
||||
'
|
||||
Me.cmb_field3.FormattingEnabled = True
|
||||
Me.cmb_field3.Location = New System.Drawing.Point(73, 75)
|
||||
Me.cmb_field3.Name = "cmb_field3"
|
||||
Me.cmb_field3.Size = New System.Drawing.Size(138, 20)
|
||||
Me.cmb_field3.TabIndex = 5
|
||||
'
|
||||
'cmb_field4
|
||||
'
|
||||
Me.cmb_field4.FormattingEnabled = True
|
||||
Me.cmb_field4.Location = New System.Drawing.Point(73, 101)
|
||||
Me.cmb_field4.Name = "cmb_field4"
|
||||
Me.cmb_field4.Size = New System.Drawing.Size(138, 20)
|
||||
Me.cmb_field4.TabIndex = 6
|
||||
'
|
||||
'cmb_j1
|
||||
'
|
||||
Me.cmb_j1.FormattingEnabled = True
|
||||
Me.cmb_j1.Items.AddRange(New Object() {"AND", "OR"})
|
||||
Me.cmb_j1.Location = New System.Drawing.Point(6, 49)
|
||||
Me.cmb_j1.Name = "cmb_j1"
|
||||
Me.cmb_j1.Size = New System.Drawing.Size(61, 20)
|
||||
Me.cmb_j1.TabIndex = 7
|
||||
'
|
||||
'cmb_j2
|
||||
'
|
||||
Me.cmb_j2.FormattingEnabled = True
|
||||
Me.cmb_j2.Items.AddRange(New Object() {"AND", "OR"})
|
||||
Me.cmb_j2.Location = New System.Drawing.Point(6, 75)
|
||||
Me.cmb_j2.Name = "cmb_j2"
|
||||
Me.cmb_j2.Size = New System.Drawing.Size(61, 20)
|
||||
Me.cmb_j2.TabIndex = 8
|
||||
'
|
||||
'cmb_j3
|
||||
'
|
||||
Me.cmb_j3.FormattingEnabled = True
|
||||
Me.cmb_j3.Items.AddRange(New Object() {"AND", "OR"})
|
||||
Me.cmb_j3.Location = New System.Drawing.Point(6, 101)
|
||||
Me.cmb_j3.Name = "cmb_j3"
|
||||
Me.cmb_j3.Size = New System.Drawing.Size(61, 20)
|
||||
Me.cmb_j3.TabIndex = 9
|
||||
'
|
||||
'cmb_cond1
|
||||
'
|
||||
Me.cmb_cond1.FormattingEnabled = True
|
||||
Me.cmb_cond1.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="})
|
||||
Me.cmb_cond1.Location = New System.Drawing.Point(217, 23)
|
||||
Me.cmb_cond1.Name = "cmb_cond1"
|
||||
Me.cmb_cond1.Size = New System.Drawing.Size(51, 20)
|
||||
Me.cmb_cond1.TabIndex = 11
|
||||
'
|
||||
'cmb_cond2
|
||||
'
|
||||
Me.cmb_cond2.FormattingEnabled = True
|
||||
Me.cmb_cond2.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="})
|
||||
Me.cmb_cond2.Location = New System.Drawing.Point(217, 49)
|
||||
Me.cmb_cond2.Name = "cmb_cond2"
|
||||
Me.cmb_cond2.Size = New System.Drawing.Size(51, 20)
|
||||
Me.cmb_cond2.TabIndex = 12
|
||||
'
|
||||
'cmb_cond3
|
||||
'
|
||||
Me.cmb_cond3.FormattingEnabled = True
|
||||
Me.cmb_cond3.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="})
|
||||
Me.cmb_cond3.Location = New System.Drawing.Point(217, 75)
|
||||
Me.cmb_cond3.Name = "cmb_cond3"
|
||||
Me.cmb_cond3.Size = New System.Drawing.Size(51, 20)
|
||||
Me.cmb_cond3.TabIndex = 13
|
||||
'
|
||||
'cmb_cond4
|
||||
'
|
||||
Me.cmb_cond4.FormattingEnabled = True
|
||||
Me.cmb_cond4.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="})
|
||||
Me.cmb_cond4.Location = New System.Drawing.Point(217, 101)
|
||||
Me.cmb_cond4.Name = "cmb_cond4"
|
||||
Me.cmb_cond4.Size = New System.Drawing.Size(51, 20)
|
||||
Me.cmb_cond4.TabIndex = 14
|
||||
'
|
||||
'tb_s1
|
||||
'
|
||||
Me.tb_s1.Location = New System.Drawing.Point(274, 22)
|
||||
Me.tb_s1.Name = "tb_s1"
|
||||
Me.tb_s1.Size = New System.Drawing.Size(109, 21)
|
||||
Me.tb_s1.TabIndex = 15
|
||||
'
|
||||
'tb_s2
|
||||
'
|
||||
Me.tb_s2.Location = New System.Drawing.Point(274, 49)
|
||||
Me.tb_s2.Name = "tb_s2"
|
||||
Me.tb_s2.Size = New System.Drawing.Size(109, 21)
|
||||
Me.tb_s2.TabIndex = 16
|
||||
'
|
||||
'tb_s3
|
||||
'
|
||||
Me.tb_s3.Location = New System.Drawing.Point(274, 76)
|
||||
Me.tb_s3.Name = "tb_s3"
|
||||
Me.tb_s3.Size = New System.Drawing.Size(109, 21)
|
||||
Me.tb_s3.TabIndex = 17
|
||||
'
|
||||
'tb_s4
|
||||
'
|
||||
Me.tb_s4.Location = New System.Drawing.Point(274, 103)
|
||||
Me.tb_s4.Name = "tb_s4"
|
||||
Me.tb_s4.Size = New System.Drawing.Size(109, 21)
|
||||
Me.tb_s4.TabIndex = 18
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.cmb_field1)
|
||||
Me.GroupBox1.Controls.Add(Me.cmb_field2)
|
||||
Me.GroupBox1.Controls.Add(Me.tb_s4)
|
||||
Me.GroupBox1.Controls.Add(Me.cmb_field3)
|
||||
Me.GroupBox1.Controls.Add(Me.tb_s3)
|
||||
Me.GroupBox1.Controls.Add(Me.cmb_field4)
|
||||
Me.GroupBox1.Controls.Add(Me.tb_s2)
|
||||
Me.GroupBox1.Controls.Add(Me.cmb_j1)
|
||||
Me.GroupBox1.Controls.Add(Me.tb_s1)
|
||||
Me.GroupBox1.Controls.Add(Me.cmb_j2)
|
||||
Me.GroupBox1.Controls.Add(Me.cmb_cond4)
|
||||
Me.GroupBox1.Controls.Add(Me.cmb_j3)
|
||||
Me.GroupBox1.Controls.Add(Me.cmb_cond3)
|
||||
Me.GroupBox1.Controls.Add(Me.cmb_cond1)
|
||||
Me.GroupBox1.Controls.Add(Me.cmb_cond2)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(10, 12)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(389, 135)
|
||||
Me.GroupBox1.TabIndex = 0
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "조건"
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.tb_filter)
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(10, 153)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(389, 93)
|
||||
Me.GroupBox2.TabIndex = 1
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Filter"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.BackColor = System.Drawing.Color.LightGreen
|
||||
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
Me.Label1.Location = New System.Drawing.Point(12, 261)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(31, 14)
|
||||
Me.Label1.TabIndex = 22
|
||||
Me.Label1.Text = "0001"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(49, 261)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(101, 12)
|
||||
Me.Label2.TabIndex = 23
|
||||
Me.Label2.Text = ": 코드로 입력요망"
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.Controls.Add(Me.Label4)
|
||||
Me.GroupBox3.Controls.Add(Me.tb_valuec)
|
||||
Me.GroupBox3.Controls.Add(Me.cmb_fieldc)
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(10, 285)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(389, 51)
|
||||
Me.GroupBox3.TabIndex = 2
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "바꾸기"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(198, 22)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(41, 12)
|
||||
Me.Label4.TabIndex = 1
|
||||
Me.Label4.Text = "변경값"
|
||||
'
|
||||
'tb_valuec
|
||||
'
|
||||
Me.tb_valuec.Location = New System.Drawing.Point(245, 19)
|
||||
Me.tb_valuec.Name = "tb_valuec"
|
||||
Me.tb_valuec.Size = New System.Drawing.Size(138, 21)
|
||||
Me.tb_valuec.TabIndex = 2
|
||||
Me.tb_valuec.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'cmb_fieldc
|
||||
'
|
||||
Me.cmb_fieldc.FormattingEnabled = True
|
||||
Me.cmb_fieldc.Location = New System.Drawing.Point(22, 19)
|
||||
Me.cmb_fieldc.Name = "cmb_fieldc"
|
||||
Me.cmb_fieldc.Size = New System.Drawing.Size(156, 20)
|
||||
Me.cmb_fieldc.TabIndex = 0
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(12, 339)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(353, 12)
|
||||
Me.Label3.TabIndex = 24
|
||||
Me.Label3.Text = "바꾸기 값이 설정되어있으면 확인시에 해당 필드값이 변경됩니다"
|
||||
'
|
||||
'Frm_Filter
|
||||
'
|
||||
Me.AcceptButton = Me.OK_Button
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.CancelButton = Me.Cancel_Button
|
||||
Me.ClientSize = New System.Drawing.Size(411, 360)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.GroupBox3)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.GroupBox2)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.TableLayoutPanel1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "Frm_Filter"
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
|
||||
Me.Text = "검색조건"
|
||||
Me.TableLayoutPanel1.ResumeLayout(False)
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.GroupBox1.PerformLayout()
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.GroupBox2.PerformLayout()
|
||||
Me.GroupBox3.ResumeLayout(False)
|
||||
Me.GroupBox3.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
|
||||
Friend WithEvents OK_Button As System.Windows.Forms.Button
|
||||
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
|
||||
Friend WithEvents tb_filter As System.Windows.Forms.TextBox
|
||||
Friend WithEvents cmb_field1 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cmb_field2 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cmb_field3 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cmb_field4 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cmb_j1 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cmb_j2 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cmb_j3 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cmb_cond1 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cmb_cond2 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cmb_cond3 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents cmb_cond4 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents tb_s1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents tb_s2 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents tb_s3 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents tb_s4 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents cmb_fieldc As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents tb_valuec As System.Windows.Forms.TextBox
|
||||
|
||||
End Class
|
||||
120
ArinWarev1/FORM-BASIC/Frm_Filter.resx
Normal file
120
ArinWarev1/FORM-BASIC/Frm_Filter.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
253
ArinWarev1/FORM-BASIC/Frm_Filter.vb
Normal file
253
ArinWarev1/FORM-BASIC/Frm_Filter.vb
Normal file
@@ -0,0 +1,253 @@
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class Frm_Filter
|
||||
Public ColumList() As String '//필드네임
|
||||
Public ColumTitle() As String '//필드제목줄
|
||||
Public Colorlist As String
|
||||
Public Numfield As String '//숫자필드일경우
|
||||
Public Default_Filter As String '//기본값 code <> '0'
|
||||
|
||||
Private Sub Frm_Filter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Init_combo()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Init_combo() '//콤보박스목록을 생성
|
||||
Dim CmbJ As String() = {"AND", "OR"}
|
||||
Dim CmbCond As String() = {"LIKE", "=", "<>", "<=", ">="}
|
||||
|
||||
|
||||
'//clear
|
||||
Me.cmb_j1.Items.Clear()
|
||||
Me.cmb_j2.Items.Clear()
|
||||
Me.cmb_j3.Items.Clear()
|
||||
'Me.cmb_j4.Items.Clear()
|
||||
|
||||
Me.cmb_cond1.Items.Clear()
|
||||
Me.cmb_cond2.Items.Clear()
|
||||
Me.cmb_cond3.Items.Clear()
|
||||
Me.cmb_cond4.Items.Clear()
|
||||
|
||||
Me.cmb_field1.Items.Clear()
|
||||
Me.cmb_field2.Items.Clear()
|
||||
Me.cmb_field3.Items.Clear()
|
||||
Me.cmb_field4.Items.Clear()
|
||||
Me.cmb_fieldc.Items.Clear()
|
||||
|
||||
'/set
|
||||
Me.cmb_j1.Items.AddRange(CmbJ)
|
||||
Me.cmb_j2.Items.AddRange(CmbJ)
|
||||
Me.cmb_j3.Items.AddRange(CmbJ)
|
||||
|
||||
|
||||
Me.cmb_cond1.Items.AddRange(CmbCond)
|
||||
Me.cmb_cond2.Items.AddRange(CmbCond)
|
||||
Me.cmb_cond3.Items.AddRange(CmbCond)
|
||||
Me.cmb_cond4.Items.AddRange(CmbCond)
|
||||
|
||||
|
||||
Try '//필드선택 콤보박승 필드명 넣기
|
||||
Me.cmb_field1.Items.AddRange(ColumTitle)
|
||||
Me.cmb_field2.Items.AddRange(ColumTitle)
|
||||
Me.cmb_field3.Items.AddRange(ColumTitle)
|
||||
Me.cmb_field4.Items.AddRange(ColumTitle)
|
||||
Me.cmb_fieldc.Items.AddRange(ColumTitle)
|
||||
Catch ex As Exception
|
||||
MsgBox("필드목록이 없거나 매개변수값이 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
End Try
|
||||
|
||||
'Me.cmb_j1.SelectedIndex = 0
|
||||
'Me.cmb_j2.SelectedIndex = 0
|
||||
'Me.cmb_j3.SelectedIndex = 0
|
||||
|
||||
|
||||
'Me.cmb_cond1.SelectedIndex = 0
|
||||
'Me.cmb_cond2.SelectedIndex = 0
|
||||
'Me.cmb_cond3.SelectedIndex = 0
|
||||
'Me.cmb_cond4.SelectedIndex = 0
|
||||
|
||||
AddHandler Me.cmb_j1.SelectedIndexChanged, AddressOf event_comboselectindex
|
||||
AddHandler Me.cmb_j2.SelectedIndexChanged, AddressOf event_comboselectindex
|
||||
AddHandler Me.cmb_j3.SelectedIndexChanged, AddressOf event_comboselectindex
|
||||
|
||||
AddHandler Me.cmb_cond1.SelectedIndexChanged, AddressOf event_comboselectindex
|
||||
AddHandler Me.cmb_cond2.SelectedIndexChanged, AddressOf event_comboselectindex
|
||||
AddHandler Me.cmb_cond3.SelectedIndexChanged, AddressOf event_comboselectindex
|
||||
AddHandler Me.cmb_cond4.SelectedIndexChanged, AddressOf event_comboselectindex
|
||||
|
||||
AddHandler Me.cmb_field1.SelectedIndexChanged, AddressOf event_comboselectindex
|
||||
AddHandler Me.cmb_field2.SelectedIndexChanged, AddressOf event_comboselectindex
|
||||
AddHandler Me.cmb_field3.SelectedIndexChanged, AddressOf event_comboselectindex
|
||||
AddHandler Me.cmb_field4.SelectedIndexChanged, AddressOf event_comboselectindex
|
||||
|
||||
AddHandler Me.tb_s1.TextChanged, AddressOf event_textboxchange
|
||||
AddHandler Me.tb_s2.TextChanged, AddressOf event_textboxchange
|
||||
AddHandler Me.tb_s3.TextChanged, AddressOf event_textboxchange
|
||||
AddHandler Me.tb_s4.TextChanged, AddressOf event_textboxchange
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function IsnumField(ByVal v_Fname As String) As Boolean
|
||||
'//숫자필드목록에서 해당 필드가 잇는지 확인한다.
|
||||
If Me.Numfield.IndexOf(v_Fname) = -1 Then '//해당필드가 숫자목록에 잇으면 True
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
Private Sub MakeWhreState()
|
||||
'//콤보박스값을 가지고 Textbox1 을 생성
|
||||
Dim NewStat As New System.Text.StringBuilder()
|
||||
If Me.cmb_field1.SelectedIndex <> -1 And Me.tb_s1.Text <> "" Then
|
||||
If cmb_cond1.Text.ToUpper = "LIKE" Then
|
||||
NewStat.Append(Space(1) + Me.ColumList(Me.cmb_field1.SelectedIndex).ToString + Space(1) + cmb_cond1.Text + Space(1) + "'%" + tb_s1.Text + "%'")
|
||||
Else
|
||||
'//숫자필드이면
|
||||
If IsnumField(Me.cmb_field1.Text) Then
|
||||
NewStat.Append(Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field1.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond1.Text + Space(1) + tb_s1.Text)
|
||||
Else
|
||||
NewStat.Append(Space(1) + Me.ColumList(Me.cmb_field1.SelectedIndex).ToString + Space(1) + cmb_cond1.Text + Space(1) + "'" + tb_s1.Text + "'")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
If Me.cmb_field2.SelectedIndex <> -1 And Me.tb_s2.Text <> "" Then
|
||||
If cmb_cond2.Text.ToUpper = "LIKE" Then
|
||||
NewStat.Append(Space(1) + Me.cmb_j1.Text + Space(1) + Me.ColumList(Me.cmb_field2.SelectedIndex).ToString + Space(1) + cmb_cond2.Text + Space(1) + "'%" + tb_s2.Text + "%'")
|
||||
Else
|
||||
If IsnumField(Me.cmb_field1.Text) Then
|
||||
NewStat.Append(Space(1) + Me.cmb_j1.Text + Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field2.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond2.Text + Space(1) + tb_s2.Text)
|
||||
Else
|
||||
NewStat.Append(Space(1) + Me.cmb_j1.Text + Space(1) + Me.ColumList(Me.cmb_field2.SelectedIndex).ToString + Space(1) + cmb_cond2.Text + Space(1) + "'" + tb_s2.Text + "'")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
If Me.cmb_field3.SelectedIndex <> -1 And Me.tb_s3.Text <> "" Then
|
||||
If cmb_cond3.Text.ToUpper = "LIKE" Then
|
||||
NewStat.Append(Space(1) + Me.cmb_j2.Text + Space(1) + Me.ColumList(Me.cmb_field3.SelectedIndex).ToString + Space(1) + cmb_cond3.Text + Space(1) + "'%" + tb_s3.Text + "%'")
|
||||
Else
|
||||
If IsnumField(Me.cmb_field1.Text) Then
|
||||
NewStat.Append(Space(1) + Me.cmb_j2.Text + Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field3.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond3.Text + Space(1) + tb_s3.Text)
|
||||
Else
|
||||
NewStat.Append(Space(1) + Me.cmb_j2.Text + Space(1) + Me.ColumList(Me.cmb_field3.SelectedIndex).ToString + Space(1) + cmb_cond3.Text + Space(1) + "'" + tb_s3.Text + "'")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
If Me.cmb_field4.SelectedIndex <> -1 And Me.tb_s4.Text <> "" Then
|
||||
If cmb_cond3.Text.ToUpper = "LIKE" Then
|
||||
NewStat.Append(Space(1) + Me.cmb_j3.Text + Space(1) + Me.ColumList(Me.cmb_field4.SelectedIndex).ToString + Space(1) + cmb_cond4.Text + Space(1) + "'%" + tb_s4.Text + "%'")
|
||||
Else
|
||||
If IsnumField(Me.cmb_field1.Text) Then
|
||||
NewStat.Append(Space(1) + Me.cmb_j3.Text + Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field4.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond4.Text + Space(1) + tb_s4.Text)
|
||||
Else
|
||||
NewStat.Append(Space(1) + Me.cmb_j3.Text + Space(1) + Me.ColumList(Me.cmb_field4.SelectedIndex).ToString + Space(1) + cmb_cond4.Text + Space(1) + "'" + tb_s4.Text + "'")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
If NewStat.ToString.Trim = "" Then
|
||||
Me.tb_filter.Text = Default_Filter
|
||||
Else
|
||||
Me.tb_filter.Text = Default_Filter & " and " + NewStat.ToString
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
|
||||
If Me.tb_filter.Text = "" Then Me.tb_filter.Text = Default_Filter
|
||||
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
|
||||
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub event_textboxchange(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
Me.MakeWhreState()
|
||||
End Sub
|
||||
|
||||
Private Sub event_comboselectindex(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
Me.MakeWhreState()
|
||||
End Sub
|
||||
|
||||
Private Sub cmb_field1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field1.SelectedIndexChanged
|
||||
|
||||
Dim Find As Boolean = False
|
||||
For Each C As String In Me.Colorlist.Split(",")
|
||||
If C.ToUpper = Me.ColumList(Me.cmb_field1.SelectedIndex).ToUpper Then ' Me.cmb_field1.Text.ToUpper Then
|
||||
Find = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If Find Then
|
||||
|
||||
Me.tb_s1.BackColor = Color.LightGreen
|
||||
Else
|
||||
Me.tb_s1.BackColor = Color.White
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cmb_field2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field2.SelectedIndexChanged
|
||||
|
||||
Dim Find As Boolean = False
|
||||
For Each C As String In Me.Colorlist.Split(",")
|
||||
If C.ToUpper = Me.ColumList(Me.cmb_field2.SelectedIndex).ToUpper Then
|
||||
Find = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If Find Then
|
||||
Me.tb_s2.BackColor = Color.LightGreen
|
||||
Else
|
||||
Me.tb_s2.BackColor = Color.White
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cmb_field3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field3.SelectedIndexChanged
|
||||
Dim Find As Boolean = False
|
||||
For Each C As String In Me.Colorlist.Split(",")
|
||||
If C.ToUpper = Me.ColumList(Me.cmb_field3.SelectedIndex).ToUpper Then
|
||||
Find = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If Find Then
|
||||
Me.tb_s3.BackColor = Color.LightGreen
|
||||
Else
|
||||
Me.tb_s3.BackColor = Color.White
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cmb_field4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field4.SelectedIndexChanged
|
||||
Dim Find As Boolean = False
|
||||
For Each C As String In Me.Colorlist.Split(",")
|
||||
If C.ToUpper = Me.ColumList(Me.cmb_field4.SelectedIndex).ToUpper Then
|
||||
Find = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If Find Then
|
||||
Me.tb_s4.BackColor = Color.LightGreen
|
||||
Else
|
||||
Me.tb_s4.BackColor = Color.White
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cmb_cond1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_cond1.SelectedIndexChanged
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
114
ArinWarev1/FORM-BASIC/Frm_Intro.Designer.vb
generated
Normal file
114
ArinWarev1/FORM-BASIC/Frm_Intro.Designer.vb
generated
Normal file
@@ -0,0 +1,114 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_Intro
|
||||
Inherits CForm
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Intro))
|
||||
Me.BtOK = New C1.Win.C1Input.C1Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.RadioButton2 = New System.Windows.Forms.RadioButton()
|
||||
Me.RadioButton1 = New System.Windows.Forms.RadioButton()
|
||||
CType(Me.BtOK, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'BtOK
|
||||
'
|
||||
Me.BtOK.Location = New System.Drawing.Point(22, 100)
|
||||
Me.BtOK.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
|
||||
Me.BtOK.Name = "BtOK"
|
||||
Me.BtOK.Size = New System.Drawing.Size(288, 41)
|
||||
Me.BtOK.TabIndex = 24
|
||||
Me.BtOK.Text = "확인(&O)"
|
||||
Me.BtOK.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label1.Location = New System.Drawing.Point(22, 155)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(272, 20)
|
||||
Me.Label1.TabIndex = 25
|
||||
Me.Label1.Text = "이 버전은 검토를 위한 베타버전입니다."
|
||||
'
|
||||
'RadioButton2
|
||||
'
|
||||
Me.RadioButton2.AutoSize = True
|
||||
Me.RadioButton2.Font = New System.Drawing.Font("맑은 고딕", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.RadioButton2.ForeColor = System.Drawing.Color.RoyalBlue
|
||||
Me.RadioButton2.Location = New System.Drawing.Point(22, 19)
|
||||
Me.RadioButton2.Margin = New System.Windows.Forms.Padding(3, 6, 3, 6)
|
||||
Me.RadioButton2.Name = "RadioButton2"
|
||||
Me.RadioButton2.Size = New System.Drawing.Size(216, 25)
|
||||
Me.RadioButton2.TabIndex = 18
|
||||
Me.RadioButton2.Text = "에너지 절약형 친환경주택"
|
||||
Me.RadioButton2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'RadioButton1
|
||||
'
|
||||
Me.RadioButton1.AutoSize = True
|
||||
Me.RadioButton1.Checked = True
|
||||
Me.RadioButton1.Font = New System.Drawing.Font("맑은 고딕", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.RadioButton1.ForeColor = System.Drawing.Color.RoyalBlue
|
||||
Me.RadioButton1.Location = New System.Drawing.Point(22, 56)
|
||||
Me.RadioButton1.Margin = New System.Windows.Forms.Padding(3, 6, 3, 6)
|
||||
Me.RadioButton1.Name = "RadioButton1"
|
||||
Me.RadioButton1.Size = New System.Drawing.Size(222, 25)
|
||||
Me.RadioButton1.TabIndex = 17
|
||||
Me.RadioButton1.TabStop = True
|
||||
Me.RadioButton1.Text = "건축물 에너지 소비 총량제"
|
||||
Me.RadioButton1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Frm_Intro
|
||||
'
|
||||
Me.AcceptButton = Me.BtOK
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackgroundColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(328, 150)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.BtOK)
|
||||
Me.Controls.Add(Me.RadioButton2)
|
||||
Me.Controls.Add(Me.RadioButton1)
|
||||
Me.Font = New System.Drawing.Font("맑은 고딕", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.KeyPreview = True
|
||||
Me.Margin = New System.Windows.Forms.Padding(3, 6, 3, 6)
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "Frm_Intro"
|
||||
Me.ShowIcon = False
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "프로그램 선택"
|
||||
Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace
|
||||
CType(Me.BtOK, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
|
||||
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
|
||||
Friend WithEvents BtOK As C1.Win.C1Input.C1Button
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
End Class
|
||||
6293
ArinWarev1/FORM-BASIC/Frm_Intro.resx
Normal file
6293
ArinWarev1/FORM-BASIC/Frm_Intro.resx
Normal file
File diff suppressed because it is too large
Load Diff
58
ArinWarev1/FORM-BASIC/Frm_Intro.vb
Normal file
58
ArinWarev1/FORM-BASIC/Frm_Intro.vb
Normal file
@@ -0,0 +1,58 @@
|
||||
Public Class Frm_Intro
|
||||
Public Overrides Function AcceptChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function RejectChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function HasChanged() As Boolean
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub Save_SEtting()
|
||||
If Me.RadioButton1.Checked Then
|
||||
Setting.Data("user", "program") = "eco2"
|
||||
ElseIf Me.RadioButton2.Checked Then
|
||||
Setting.Data("user", "program") = "od"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Frm_Login_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
Select Case e.KeyCode
|
||||
Case Keys.Escape
|
||||
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
||||
Me.Close()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub Frm_Login_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||
'//마지막으로사용한 정보를 찾아서 자동 선택한다
|
||||
Dim program As String = Setting.Read("user", "program", "od")
|
||||
If program = "od" Then
|
||||
Me.RadioButton2.Checked = True
|
||||
ElseIf program = "eco2" Then
|
||||
Me.RadioButton1.Checked = True
|
||||
End If
|
||||
|
||||
'//170518 default
|
||||
' Me.RadioButton1.Checked = True
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub C1Button1_Click(sender As Object, e As EventArgs) Handles BtOK.Click
|
||||
|
||||
'If Me.RadioButton2.Checked Then
|
||||
' MsgBox("현재 개발 진행중입니다.", MsgBoxStyle.Information, "확인")
|
||||
' RadioButton1.Checked = True
|
||||
' Return
|
||||
'End If
|
||||
If RadioButton1.Checked = False AndAlso Me.RadioButton2.Checked = False Then
|
||||
MsgBox("프로그램을 선택하세요", MsgBoxStyle.Information, "확인")
|
||||
Return
|
||||
Else
|
||||
Save_SEtting()
|
||||
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
1657
ArinWarev1/FORM-BASIC/Frm_RepResult_Admin.Designer.vb
generated
Normal file
1657
ArinWarev1/FORM-BASIC/Frm_RepResult_Admin.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
271
ArinWarev1/FORM-BASIC/Frm_RepResult_Admin.resx
Normal file
271
ArinWarev1/FORM-BASIC/Frm_RepResult_Admin.resx
Normal file
@@ -0,0 +1,271 @@
|
||||
<?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="DSR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>647, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="ToolStripButton49.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAABb0lE
|
||||
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
|
||||
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
|
||||
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
|
||||
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
|
||||
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
|
||||
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
|
||||
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton44.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAABKklE
|
||||
QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w
|
||||
Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v
|
||||
/PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z
|
||||
+79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2
|
||||
9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr
|
||||
peWacAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton48.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAABSklE
|
||||
QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS
|
||||
IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/
|
||||
q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA
|
||||
jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n
|
||||
5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw
|
||||
fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton50.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAACL0lE
|
||||
QVQ4T62S3UvTURjHf/9C990EXXRbU2M4F6vBr1xDWTYMK8JefpFmabpMExUr06j5BtkKl05arSbhpCJf
|
||||
wBQpEWUqWZq5oiUONcUmgsHX85z98riKLqIHnpvD+XzOeV6k/xLPn4VB6WtdQot3EQ/d82hqDOGuYxp1
|
||||
tV9gvxXA9fJJlJaMo7DgLfJyR3D+nB8qLkkEdnUCtTUr+Fssr6zClNqFQ6lPeaq4JHmfLHBBZcU39erv
|
||||
QXBofhm7LC+g0SiwHvQIgfvBHBeUlnxVr0fHT/hjcAExZh8KLk3hgKVZCJwNM1xw0fZBRURshIcnQtgm
|
||||
e5GTPYbkJKcQ1N8OckHW2REVi8SvcJ8/iM0GNxRlAGazQwhqqj9zgXJqQEX/DHf2f8Km+EYcPvIKiYl1
|
||||
QnCjcgod7WCjBI4dfwPr0V7ebWoY1UzfppcjcDdSrC8hy3YhuFI2gTYf2A4Aza4fbO7fUX5tljeVGkY1
|
||||
Z2b41+H9ya0wGiuE4HLhGDyPgPvOVbY4YZjSsqPSkm5D2pmiCJzE4H0eGAxlQmDLG2UwUF0V5i8TROcx
|
||||
OhmD72cwOjkLJfcq9phaOKzb7YJeXyQEtJaOO1j/NgkIPp1/E+8CcwhML+JCsR2xBheDmxCbcA+6+Hwh
|
||||
yMwYYnUvcXir0YMtO2Q8buuBr70PHd396H09iL1mKzT6BsQxeLu2HlptTrTg5Ikevp60YbQkNGcaFXWb
|
||||
GkY106uUBO+MyxKCfw9JWgNsaDprRvk1ewAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton45.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAAAtklE
|
||||
QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN
|
||||
reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP
|
||||
ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA
|
||||
0BRgmAS6UFUAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton47.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAABLElE
|
||||
QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h
|
||||
6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T
|
||||
pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f
|
||||
MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf
|
||||
w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R
|
||||
v7O5DE6cAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton46.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAAAo0lE
|
||||
QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI
|
||||
rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz
|
||||
gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg
|
||||
gg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="bn_all.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>445, 17</value>
|
||||
</metadata>
|
||||
<data name="ToolStripButton51.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJ2SURBVDhPjVNdSJNhFH5bXdmFRFFeREQXRfQDJRlWZLra
|
||||
mrOIDCEqQmrlTKkoIaHZoEKK1sAVS1dYiJCaCZUkKCRL20WmrXJ61U0UXhSMuen+n97n3adkdtGBw3u+
|
||||
c57nOed83/uJv+2BEIZGIRzy9MkzSNdi5gwabL65hVgt/Y4ETn51XEfkvRfpnz+UM2aONWKI1WgZY0IW
|
||||
WwKXK5D8/A742A/0tQKvmjLOeOSNqhFD7BwRqgYuWgC/F8nuZnwqP4y2lSvgWajDQPFuTD26AXS6gF4p
|
||||
5H8LYslRZG3nyaSvB4nO+/CZC9jB6RFi/TUhFsnY/qGsGOl2Z0ak5wkSvtdqHfVOZOAYr6lAqr0B/qMm
|
||||
RZaeRXF51vlK9iDW/wLpLjeij+uBZw1IyUbjlyzEOjiBb6L2FFLuWrTlLAU7z5AH9+1ArLcDqZcPMWY5
|
||||
QkJwrPwgkhI7cdUCcgkMTtVbkbh7Hh6dDtrYdQOF2xDtbpWTuRA4YcY9IX7JvfOer8pBUmIjt6qUoBKI
|
||||
2E4icdMCb/4GJu2DBVsw3dWMZMttjJbpFVlOlktxNolLLDlKgGN8LzcibjuGUPUBDOlzMd3RiITHjtFD
|
||||
u2bJXIvrtS3LltjjIGdmBcdw4SbELpQgWmVC3G1D3HUFo+a8OWSJy5LuHCnajFhNKcghd/Yzhq1GRCsN
|
||||
iFabELLuV+NxZzW27EzywNY1iMgm4Uoj65nPSOOlGMpfi+g5TUSCvug3onN5Npp0C/B0yWIM71yHyNm9
|
||||
qk7s7EWiyQd1lVkIn8mA/uVhi16RiSVHo2eMCapyNHb7VrododNFyhkzxxox88h/mvZO/vN3FuI3yXDJ
|
||||
RlfZIFMAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>529, 17</value>
|
||||
</metadata>
|
||||
<metadata name="bsmain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>722, 17</value>
|
||||
</metadata>
|
||||
<metadata name="F.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="M00.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bs_max.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="bs_면적.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="난방.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="냉방.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="조명.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="급탕.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="환기.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bs_소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>111, 17</value>
|
||||
</metadata>
|
||||
<metadata name="bs_1차소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>218, 17</value>
|
||||
</metadata>
|
||||
<metadata name="bs_생산E.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>344, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
58
ArinWarev1/FORM-BASIC/Frm_RepResult_Admin.vb
Normal file
58
ArinWarev1/FORM-BASIC/Frm_RepResult_Admin.vb
Normal file
@@ -0,0 +1,58 @@
|
||||
Public Class Frm_RepResult_Admin
|
||||
Public Overrides Function AcceptChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function RejectChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function HasChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
|
||||
Select Case Me.DataGridView1.Rows(e.RowIndex).Cells(2).Value.ToString
|
||||
Case "MT"
|
||||
Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Green
|
||||
Case "TT"
|
||||
Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Blue
|
||||
Case "ST"
|
||||
Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Tomato
|
||||
Case "SL"
|
||||
Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.DarkMagenta
|
||||
Case Else
|
||||
Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Black
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Frm_RepResult_Admin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||
Me.bsmain.DataSource = DSETR1
|
||||
Me.bs_1차소요량.DataSource = DSETR1
|
||||
Me.bs_max.DataSource = DSETR1
|
||||
Me.bs_면적.DataSource = DSETR1
|
||||
Me.bs_생산E.DataSource = DSETR1
|
||||
Me.bs_소요량.DataSource = DSETR1
|
||||
|
||||
Dim dv() As DataGridView = New DataGridView() {Me.DataGridView7, _
|
||||
Me.DataGridView9, _
|
||||
Me.DataGridView10, _
|
||||
Me.DataGridView11, _
|
||||
Me.DataGridView12, _
|
||||
Me.DataGridView13, _
|
||||
Me.DataGridView14, _
|
||||
Me.DataGridView15, _
|
||||
Me.DataGridView16, _
|
||||
Me.DataGridView17, _
|
||||
Me.DataGridView18, _
|
||||
Me.DataGridView19}
|
||||
For i As Integer = 1 To 12
|
||||
Dim Bs As New BindingSource
|
||||
Bs.DataSource = DSETR1
|
||||
Bs.DataMember = "월별에너지분석"
|
||||
Bs.Filter = "월='M" & Format(i, "00") & "'"
|
||||
dv(i - 1).DataSource = Bs
|
||||
Next
|
||||
' Me.bs.DataSource = DSETR
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
85
ArinWarev1/FORM-BASIC/Frm_Warning.Designer.vb
generated
Normal file
85
ArinWarev1/FORM-BASIC/Frm_Warning.Designer.vb
generated
Normal file
@@ -0,0 +1,85 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_Warning
|
||||
Inherits CForm
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Warning))
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.White
|
||||
Me.Panel1.BackgroundImage = CType(resources.GetObject("Panel1.BackgroundImage"), System.Drawing.Image)
|
||||
Me.Panel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(273, 146)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label1.Font = New System.Drawing.Font("돋움", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(2, 108)
|
||||
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(270, 28)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "잠시만 기다려주세요"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Me.Timer1.Interval = 20
|
||||
'
|
||||
'Frm_Warning
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 15.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackgroundColor = System.Drawing.SystemColors.AppWorkspace
|
||||
Me.ClientSize = New System.Drawing.Size(273, 146)
|
||||
Me.ControlBox = False
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Font = New System.Drawing.Font("돋움", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.Name = "Frm_Warning"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
|
||||
Me.Text = "알림메세지"
|
||||
Me.TopMost = True
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Timer1 As System.Windows.Forms.Timer
|
||||
End Class
|
||||
6348
ArinWarev1/FORM-BASIC/Frm_Warning.resx
Normal file
6348
ArinWarev1/FORM-BASIC/Frm_Warning.resx
Normal file
File diff suppressed because it is too large
Load Diff
25
ArinWarev1/FORM-BASIC/Frm_Warning.vb
Normal file
25
ArinWarev1/FORM-BASIC/Frm_Warning.vb
Normal file
@@ -0,0 +1,25 @@
|
||||
Public Class Frm_Warning
|
||||
Public Term As Decimal = 0
|
||||
Public Second As Decimal = 0
|
||||
Dim Perc As Decimal
|
||||
Public Overrides Function AcceptChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function RejectChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function HasChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
|
||||
Dim T As String = "타이머"
|
||||
Second -= TOSG(T, Me.Timer1.Interval / 100) '//타이머를 증가
|
||||
If Second < 0 Then
|
||||
Me.Timer1.Enabled = False
|
||||
Me.Dispose()
|
||||
Else
|
||||
Perc = TOSG(T, 1 * Second / Term)
|
||||
Me.Opacity = Perc
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
4123
ArinWarev1/FORM-BASIC/Frm_Weather.Designer.vb
generated
Normal file
4123
ArinWarev1/FORM-BASIC/Frm_Weather.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
745
ArinWarev1/FORM-BASIC/Frm_Weather.resx
Normal file
745
ArinWarev1/FORM-BASIC/Frm_Weather.resx
Normal file
@@ -0,0 +1,745 @@
|
||||
<?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="Label64.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label77.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label78.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label79.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label80.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label81.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label82.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label83.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label84.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label85.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label86.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label87.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label90.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label91.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label39.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label251.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label253.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label255.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label256.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label257.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label258.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label254.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label252.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label250.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label249.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label248.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label247.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label25.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label26.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="Label29.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="Label31.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label32.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label33.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="Label36.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="Label38.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label92.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label93.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label94.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label95.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label96.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label97.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label98.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label99.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label100.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label101.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label40.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label41.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label42.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<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="Label45.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label46.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<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="Label49.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label50.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label51.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label52.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label53.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label54.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="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="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="Label60.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label61.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label62.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label63.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="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="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="Label7.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="Label9.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label10.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label11.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label12.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>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>485, 56</value>
|
||||
</metadata>
|
||||
<metadata name="code.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bsw_ilsa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>81, 17</value>
|
||||
</metadata>
|
||||
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="ToolStripButton9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE
|
||||
QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w
|
||||
Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v
|
||||
/PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z
|
||||
+79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2
|
||||
9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr
|
||||
peWacAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton10.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE
|
||||
QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN
|
||||
reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP
|
||||
ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA
|
||||
0BRgmAS6UFUAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton11.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE
|
||||
QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI
|
||||
rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz
|
||||
gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg
|
||||
gg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton12.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE
|
||||
QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h
|
||||
6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T
|
||||
pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f
|
||||
MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf
|
||||
w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R
|
||||
v7O5DE6cAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton14.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE
|
||||
QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS
|
||||
IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/
|
||||
q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA
|
||||
jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n
|
||||
5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw
|
||||
fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton15.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE
|
||||
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
|
||||
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
|
||||
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
|
||||
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
|
||||
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
|
||||
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
|
||||
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="DataGridViewTextBoxColumn9.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bsw_temp.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>178, 17</value>
|
||||
</metadata>
|
||||
<metadata name="BindingNavigator4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>173, 56</value>
|
||||
</metadata>
|
||||
<data name="ToolStripButton25.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE
|
||||
QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w
|
||||
Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v
|
||||
/PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z
|
||||
+79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2
|
||||
9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr
|
||||
peWacAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton26.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE
|
||||
QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN
|
||||
reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP
|
||||
ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA
|
||||
0BRgmAS6UFUAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton27.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE
|
||||
QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI
|
||||
rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz
|
||||
gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg
|
||||
gg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton28.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE
|
||||
QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h
|
||||
6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T
|
||||
pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f
|
||||
MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf
|
||||
w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R
|
||||
v7O5DE6cAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton29.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE
|
||||
QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS
|
||||
IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/
|
||||
q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA
|
||||
jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n
|
||||
5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw
|
||||
fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton30.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE
|
||||
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
|
||||
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
|
||||
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
|
||||
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
|
||||
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
|
||||
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
|
||||
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="DataGridViewTextBoxColumn10.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bsw_supdo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>286, 17</value>
|
||||
</metadata>
|
||||
<metadata name="BindingNavigator5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>329, 56</value>
|
||||
</metadata>
|
||||
<data name="ToolStripButton33.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE
|
||||
QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w
|
||||
Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v
|
||||
/PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z
|
||||
+79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2
|
||||
9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr
|
||||
peWacAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton34.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE
|
||||
QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN
|
||||
reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP
|
||||
ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA
|
||||
0BRgmAS6UFUAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton35.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE
|
||||
QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI
|
||||
rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz
|
||||
gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg
|
||||
gg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton36.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE
|
||||
QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h
|
||||
6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T
|
||||
pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f
|
||||
MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf
|
||||
w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R
|
||||
v7O5DE6cAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton37.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE
|
||||
QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS
|
||||
IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/
|
||||
q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA
|
||||
jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n
|
||||
5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw
|
||||
fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton38.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE
|
||||
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
|
||||
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
|
||||
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
|
||||
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
|
||||
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
|
||||
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
|
||||
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="DataGridViewTextBoxColumn11.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bsw_cha.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>399, 17</value>
|
||||
</metadata>
|
||||
<metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE
|
||||
QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w
|
||||
Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v
|
||||
/PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z
|
||||
+79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2
|
||||
9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr
|
||||
peWacAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE
|
||||
QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN
|
||||
reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP
|
||||
ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA
|
||||
0BRgmAS6UFUAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE
|
||||
QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI
|
||||
rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz
|
||||
gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg
|
||||
gg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE
|
||||
QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h
|
||||
6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T
|
||||
pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f
|
||||
MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf
|
||||
w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R
|
||||
v7O5DE6cAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE
|
||||
QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS
|
||||
IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/
|
||||
q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA
|
||||
jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n
|
||||
5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw
|
||||
fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE
|
||||
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
|
||||
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
|
||||
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
|
||||
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
|
||||
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
|
||||
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
|
||||
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="bsWGDep3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>464, 95</value>
|
||||
</metadata>
|
||||
<metadata name="area2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="dvc_area2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="area3.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bsWGDep2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>312, 95</value>
|
||||
</metadata>
|
||||
<metadata name="bsWGDep1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>173, 95</value>
|
||||
</metadata>
|
||||
<metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bn_all.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>497, 17</value>
|
||||
</metadata>
|
||||
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
|
||||
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
|
||||
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
|
||||
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
|
||||
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
|
||||
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
|
||||
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
|
||||
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
|
||||
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
|
||||
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>552, 56</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>177</value>
|
||||
</metadata>
|
||||
</root>
|
||||
1130
ArinWarev1/FORM-BASIC/Frm_Weather.vb
Normal file
1130
ArinWarev1/FORM-BASIC/Frm_Weather.vb
Normal file
File diff suppressed because it is too large
Load Diff
96
ArinWarev1/FORM-BASIC/Frm_Work.Designer.vb
generated
Normal file
96
ArinWarev1/FORM-BASIC/Frm_Work.Designer.vb
generated
Normal file
@@ -0,0 +1,96 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_Work
|
||||
Inherits CForm
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Work))
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
|
||||
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.White
|
||||
Me.Panel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Controls.Add(Me.ProgressBar1)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(373, 127)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Label1.Font = New System.Drawing.Font("맑은 고딕", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(373, 112)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "잠시만 기다려주세요"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'ProgressBar1
|
||||
'
|
||||
Me.ProgressBar1.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.ProgressBar1.Location = New System.Drawing.Point(0, 112)
|
||||
Me.ProgressBar1.Name = "ProgressBar1"
|
||||
Me.ProgressBar1.Size = New System.Drawing.Size(373, 15)
|
||||
Me.ProgressBar1.TabIndex = 1
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Me.Timer1.Interval = 1000
|
||||
'
|
||||
'Frm_Work
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 15.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackgroundColor = System.Drawing.SystemColors.AppWorkspace
|
||||
Me.ClientSize = New System.Drawing.Size(373, 127)
|
||||
Me.ControlBox = False
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Font = New System.Drawing.Font("돋움", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.Name = "Frm_Work"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "알림메세지"
|
||||
Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
|
||||
Friend WithEvents Timer1 As System.Windows.Forms.Timer
|
||||
End Class
|
||||
6296
ArinWarev1/FORM-BASIC/Frm_Work.resx
Normal file
6296
ArinWarev1/FORM-BASIC/Frm_Work.resx
Normal file
File diff suppressed because it is too large
Load Diff
32
ArinWarev1/FORM-BASIC/Frm_Work.vb
Normal file
32
ArinWarev1/FORM-BASIC/Frm_Work.vb
Normal file
@@ -0,0 +1,32 @@
|
||||
Public Class Frm_Work
|
||||
|
||||
Public Sub New()
|
||||
|
||||
' 이 호출은 디자이너에 필요합니다.
|
||||
InitializeComponent()
|
||||
|
||||
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub New(title As String)
|
||||
|
||||
' 이 호출은 디자이너에 필요합니다.
|
||||
InitializeComponent()
|
||||
Me.Text = title
|
||||
|
||||
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
|
||||
|
||||
End Sub
|
||||
|
||||
Public Overrides Function AcceptChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function RejectChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function HasChanged() As Boolean
|
||||
|
||||
End Function
|
||||
End Class
|
||||
210
ArinWarev1/FORM-BASIC/Frm_Yk.Designer.vb
generated
Normal file
210
ArinWarev1/FORM-BASIC/Frm_Yk.Designer.vb
generated
Normal file
@@ -0,0 +1,210 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_Yk
|
||||
Inherits CForm
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기에서는 수정하지 마세요.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Yk))
|
||||
Me.C1FlexGrid1 = New C1.Win.C1FlexGrid.C1FlexGrid()
|
||||
Me.DS = New Eco2OD.DS()
|
||||
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
|
||||
Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
|
||||
Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
|
||||
Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
|
||||
Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
|
||||
Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
|
||||
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
|
||||
Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
|
||||
CType(Me.C1FlexGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.bn.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'C1FlexGrid1
|
||||
'
|
||||
Me.C1FlexGrid1.ColumnInfo = resources.GetString("C1FlexGrid1.ColumnInfo")
|
||||
Me.C1FlexGrid1.DataSource = Me.bs
|
||||
Me.C1FlexGrid1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.C1FlexGrid1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.C1FlexGrid1.Name = "C1FlexGrid1"
|
||||
Me.C1FlexGrid1.Rows.Count = 1
|
||||
Me.C1FlexGrid1.Rows.DefaultSize = 20
|
||||
Me.C1FlexGrid1.Size = New System.Drawing.Size(752, 530)
|
||||
Me.C1FlexGrid1.TabIndex = 0
|
||||
'
|
||||
'DS
|
||||
'
|
||||
Me.DS.DataSetName = "DS"
|
||||
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
|
||||
'
|
||||
'bs
|
||||
'
|
||||
Me.bs.DataMember = "tbl_yk"
|
||||
Me.bs.DataSource = Me.DS
|
||||
'
|
||||
'bn
|
||||
'
|
||||
Me.bn.AddNewItem = Me.BindingNavigatorAddNewItem
|
||||
Me.bn.BindingSource = Me.bs
|
||||
Me.bn.CountItem = Me.BindingNavigatorCountItem
|
||||
Me.bn.DeleteItem = Me.BindingNavigatorDeleteItem
|
||||
Me.bn.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem})
|
||||
Me.bn.Location = New System.Drawing.Point(0, 530)
|
||||
Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
|
||||
Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem
|
||||
Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem
|
||||
Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
|
||||
Me.bn.Name = "bn"
|
||||
Me.bn.PositionItem = Me.BindingNavigatorPositionItem
|
||||
Me.bn.Size = New System.Drawing.Size(752, 25)
|
||||
Me.bn.TabIndex = 1
|
||||
Me.bn.Text = "BindingNavigator1"
|
||||
'
|
||||
'BindingNavigatorMoveFirstItem
|
||||
'
|
||||
Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image)
|
||||
Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
|
||||
Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True
|
||||
Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22)
|
||||
Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동"
|
||||
'
|
||||
'BindingNavigatorMovePreviousItem
|
||||
'
|
||||
Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image)
|
||||
Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
|
||||
Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True
|
||||
Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22)
|
||||
Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동"
|
||||
'
|
||||
'BindingNavigatorSeparator
|
||||
'
|
||||
Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
|
||||
Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'BindingNavigatorPositionItem
|
||||
'
|
||||
Me.BindingNavigatorPositionItem.AccessibleName = "위치"
|
||||
Me.BindingNavigatorPositionItem.AutoSize = False
|
||||
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
|
||||
Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
|
||||
Me.BindingNavigatorPositionItem.Text = "0"
|
||||
Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치"
|
||||
'
|
||||
'BindingNavigatorCountItem
|
||||
'
|
||||
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
|
||||
Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(27, 22)
|
||||
Me.BindingNavigatorCountItem.Text = "/{0}"
|
||||
Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수"
|
||||
'
|
||||
'BindingNavigatorSeparator1
|
||||
'
|
||||
Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator"
|
||||
Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'BindingNavigatorMoveNextItem
|
||||
'
|
||||
Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image)
|
||||
Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
|
||||
Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True
|
||||
Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22)
|
||||
Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동"
|
||||
'
|
||||
'BindingNavigatorMoveLastItem
|
||||
'
|
||||
Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image)
|
||||
Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
|
||||
Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True
|
||||
Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22)
|
||||
Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동"
|
||||
'
|
||||
'BindingNavigatorSeparator2
|
||||
'
|
||||
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator"
|
||||
Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'BindingNavigatorAddNewItem
|
||||
'
|
||||
Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image)
|
||||
Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
|
||||
Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True
|
||||
Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22)
|
||||
Me.BindingNavigatorAddNewItem.Text = "새로 추가"
|
||||
'
|
||||
'BindingNavigatorDeleteItem
|
||||
'
|
||||
Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image)
|
||||
Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
|
||||
Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True
|
||||
Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22)
|
||||
Me.BindingNavigatorDeleteItem.Text = "삭제"
|
||||
'
|
||||
'Frm_Yk
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(752, 555)
|
||||
Me.Controls.Add(Me.C1FlexGrid1)
|
||||
Me.Controls.Add(Me.bn)
|
||||
Me.Name = "Frm_Yk"
|
||||
Me.Text = "Frm_Yk"
|
||||
CType(Me.C1FlexGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.bn.ResumeLayout(False)
|
||||
Me.bn.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents C1FlexGrid1 As C1.Win.C1FlexGrid.C1FlexGrid
|
||||
Friend WithEvents bs As BindingSource
|
||||
Friend WithEvents DS As DS
|
||||
Friend WithEvents bn As BindingNavigator
|
||||
Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton
|
||||
Friend WithEvents BindingNavigatorCountItem As ToolStripLabel
|
||||
Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton
|
||||
Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton
|
||||
Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton
|
||||
Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
|
||||
Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox
|
||||
Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
|
||||
Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton
|
||||
Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton
|
||||
Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
|
||||
End Class
|
||||
200
ArinWarev1/FORM-BASIC/Frm_Yk.resx
Normal file
200
ArinWarev1/FORM-BASIC/Frm_Yk.resx
Normal file
@@ -0,0 +1,200 @@
|
||||
<?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>
|
||||
<data name="C1FlexGrid1.ColumnInfo" xml:space="preserve">
|
||||
<value>12,1,0,0,0,100,Columns:1{Name:"code";Caption:"code";Style:"DataType:System.String;TextAlign:LeftCenter;";} 2{Name:"설명";Caption:"설명";Style:"DataType:System.String;TextAlign:LeftCenter;";} 3{Name:"열관류율";Caption:"열관류율";Style:"DataType:System.String;TextAlign:LeftCenter;";} 4{Name:"면형태";Caption:"면형태";Style:"DataType:System.String;TextAlign:LeftCenter;";} 5{Name:"창호열관류율";Caption:"창호열관류율";Style:"DataType:System.String;TextAlign:LeftCenter;";} 6{Name:"일사에너지투과율";Caption:"일사에너지투과율";Style:"DataType:System.String;TextAlign:LeftCenter;";} 7{Name:"창호세부설명";Caption:"창호세부설명";Style:"DataType:System.String;TextAlign:LeftCenter;";} 8{Name:"발코니창호여부";Caption:"발코니창호여부";Style:"DataType:System.Boolean;TextAlign:LeftCenter;ImageAlign:CenterCenter;";} 9{Name:"발코니창호열관류율";Caption:"발코니창호열관류율";Style:"DataType:System.String;TextAlign:LeftCenter;";} 10{Name:"발코니투과율";Caption:"발코니투과율";Style:"DataType:System.String;TextAlign:LeftCenter;";} 11{Name:"투과율";Caption:"투과율";Style:"DataType:System.String;TextAlign:LeftCenter;";} </value>
|
||||
</data>
|
||||
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>84, 17</value>
|
||||
</metadata>
|
||||
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>148, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFKSURBVDhPYxi84O4C9v+35nH+vzqH6//FGbz/ocLEg+tA
|
||||
jX8eNf7/87Dh/8nJAqQbcH46L9yAgz0ipBtwfJIgUHPd/z8Pqv7vaBcnbMClmTz/z07l+38SqPFIv9D/
|
||||
fd0iQM3l///eK/q/vkHm/6oauf9LKxX/zy9V/j+rSBXTwFNAf/55WA/UVAvElf//3CsB4rz/f+9m/v97
|
||||
J/n/39tx///djADikP+TcjQxDTjUKwx27t/7pUCNBUCN2UCNqUCNCf//3YoGagz7/+9G0P9/1/3+d6Xp
|
||||
Yhqws13i/5Zmqf/rwM6V/7+kQvH/31sxQI3h/6fmafyfkKX1vztD9397qv7/5kRDwmEyG+hPkHP/3Qj4
|
||||
35OhQ1gDOgD5898NfyD2+9+arE+6Ad3pumD/gnB9nBHpBrQkGfxviDf8XxNr/L8y2oR0A+gEGBgAJCPY
|
||||
nnX8iGkAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFvSURBVDhPtZBNKMNhHMd3Vd5K7eKCWjkgk7yEZDKksciE
|
||||
yMwkBw6LhHZxcCDlQg64SA4kJeVE4jRv89qaWn8tUtoF/7g8H2Ootb+x4nt56nm+38/v+/xUfyJcJ9Bt
|
||||
BMcOH1eRiZV5RGcVwqyHrfWwELweWJoJ9rC2AL0mRLse0VEBcxOKkLeGwlwGIz2h75w6ApC6bERjAdia
|
||||
gkxiyIow5cKkPWxDFYvTiMrUdxDDVnCfwVh/AOo/P2zhhccFzcWBLxmzEPV50Nfyu/Cn2N/1V85DGNKh
|
||||
Rhth+EaCxkLISUDWxvOgjYXa7F/Wv7kGUz4UJeKzGODi6H25d2l+yPLsDwu8v4NWHY8lSbhL0/HtbX8F
|
||||
GLXh1MQgnxwoQ3h5hkEL6JI5TlPj21gNMd6WZyC1VSN7r0Mh7G4i56pxpkQhdTWA/KQ4aUcTh+x0KACm
|
||||
RpBSo3HrM0G6Uq7pl2zvhvNDBcClE8YH4HDv2/A/SKV6BYojAxyEJtLJAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEqSURBVDhPYxg8oHDW8/9NC57/z5z4+D9UCAOEtz/AKceQ
|
||||
O/PZ/1VH3v/HpSi++8H/4IZruA3ImPL0/8J9H7Aqiu95+H/p/v///asv4DYgoefJ/2lb3mMoimi/D9ac
|
||||
Oev/f6/SE7gNiOx69L939QcURaGt98CaW9cBbe/8+98l/wBuAwKbH/6vm/8Orii45e7/RXv//+8Aas6Y
|
||||
8/O/Xd3P//YZ23Eb4FF1/3/+tDcoiuyKb/9Pn/P7v3/Xt/86he/+WySsx22Afend/9mTX2Mo0k85/9+k
|
||||
6MV/laxP/40jl+E2wCLvzv/U/tdYFRkknfgvm/b1v27wPNwGGGbd/h/W8hKnIv3Uy/81fKfhNkAn7cZ/
|
||||
v+qHeBWpeEzAbYBT7pX/IAV4FQ1CwMAAAPB2wKul5ZpwAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC2SURBVDhPYxg6ILz9wX8ok3QQ3/3gf3DDNfIMiO95+H/p
|
||||
/v///asvkG5ARPt9sObMWf//e5WeIM2A0NZ7YM2t64C2d/7975J/gHgDglvu/l+09///DqDmjDk//9vV
|
||||
/fxvn7GdNBfYFd/+nz7n93//rm//dQrf/bdIWE96GOinnP9vUvTiv0rWp//GkctINwAEDJJO/JdN+/pf
|
||||
N3geeQaAgH7q5f8avtPINwAEVDwmUGbAYAUMDADQFGCYBLpQVQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACjSURBVDhPYxh8oHDW8/9QJnkgd+az/wnd98g3JGPK0//z
|
||||
9v/+n9B1hzxDEnqe/J+979f/zq1//7uVXibdkMiuR/+nbPv1v2Tp3/8J0//+t8k9S5ohgc0P/7eufQ/W
|
||||
bFzy5b909LX/xpHLiDfEo+r+/5K57+CaFV16SHOBfend/4Etz8jTDAIWeXf+2xRcIU8zCBhm3SZfMwjo
|
||||
pN0gX/NQBAwMAKB+X6AHNEI4AAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEsSURBVDhPYxhcoHDW8/9QJgYAyTUteP4/c+JjnGoYcmc+
|
||||
+5/QfQ+rApDcqiPv/4e3P8BtQMaUp//n7f/9P6HrDoYikNzCfR/+Bzdcw21AQs+T/7P3/frfufXvf7fS
|
||||
yygKQXLTtrz/7199AbcBkV2P/k/Z9ut/ydK//xOm//1vk3sWrhgk17v6w3+v0hO4DQhsfvi/de17sGbj
|
||||
ki//paOv/TeOXAbWAJKrm//uv0v+AdwGeFTd/18y9x1cs6JLD1wxSC5/2pv/9hnbcRtgX3r3f2DLMwzN
|
||||
IACSy578+r9FwnrcBljk3flvU3AFQzMIgORS+1/DvYQVGGbdxqoZBEByYS0v/+sGz8NtgE7aDZySIDm/
|
||||
6of/NXyn4TYAH3DKvfJfxWMCGEOFBgVgYAAAvtG/s7kMTpwAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
5
ArinWarev1/FORM-BASIC/Frm_Yk.vb
Normal file
5
ArinWarev1/FORM-BASIC/Frm_Yk.vb
Normal file
@@ -0,0 +1,5 @@
|
||||
Public Class Frm_Yk
|
||||
Private Sub Frm_Yk_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Me.bs.DataSource = DSET1.tbl_yk
|
||||
End Sub
|
||||
End Class
|
||||
1830
ArinWarev1/FORM-BASIC/Frm_Zone.Designer.vb
generated
Normal file
1830
ArinWarev1/FORM-BASIC/Frm_Zone.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
6616
ArinWarev1/FORM-BASIC/Frm_Zone.resx
Normal file
6616
ArinWarev1/FORM-BASIC/Frm_Zone.resx
Normal file
File diff suppressed because it is too large
Load Diff
1326
ArinWarev1/FORM-BASIC/Frm_Zone.vb
Normal file
1326
ArinWarev1/FORM-BASIC/Frm_Zone.vb
Normal file
File diff suppressed because it is too large
Load Diff
189
ArinWarev1/FORM-BASIC/Frm_import2.Designer.vb
generated
Normal file
189
ArinWarev1/FORM-BASIC/Frm_import2.Designer.vb
generated
Normal file
@@ -0,0 +1,189 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_import2
|
||||
Inherits CForm
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.chk_deldata = New System.Windows.Forms.CheckBox()
|
||||
Me.ListView1 = New System.Windows.Forms.ListView()
|
||||
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Me.tb_file = New System.Windows.Forms.TextBox()
|
||||
Me.rado = New System.Windows.Forms.RadioButton()
|
||||
Me.radi = New System.Windows.Forms.RadioButton()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Panel1.Controls.Add(Me.chk_deldata)
|
||||
Me.Panel1.Controls.Add(Me.ListView1)
|
||||
Me.Panel1.Controls.Add(Me.tb_file)
|
||||
Me.Panel1.Controls.Add(Me.rado)
|
||||
Me.Panel1.Controls.Add(Me.radi)
|
||||
Me.Panel1.Controls.Add(Me.Button2)
|
||||
Me.Panel1.Controls.Add(Me.Button1)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Controls.Add(Me.PictureBox1)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(637, 361)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'chk_deldata
|
||||
'
|
||||
Me.chk_deldata.Checked = True
|
||||
Me.chk_deldata.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.chk_deldata.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||
Me.chk_deldata.Location = New System.Drawing.Point(404, 92)
|
||||
Me.chk_deldata.Name = "chk_deldata"
|
||||
Me.chk_deldata.Size = New System.Drawing.Size(104, 24)
|
||||
Me.chk_deldata.TabIndex = 0
|
||||
Me.chk_deldata.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ListView1
|
||||
'
|
||||
Me.ListView1.Activation = System.Windows.Forms.ItemActivation.OneClick
|
||||
Me.ListView1.CheckBoxes = True
|
||||
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3})
|
||||
Me.ListView1.FullRowSelect = True
|
||||
Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
|
||||
Me.ListView1.HotTracking = True
|
||||
Me.ListView1.HoverSelection = True
|
||||
Me.ListView1.Location = New System.Drawing.Point(296, 174)
|
||||
Me.ListView1.Name = "ListView1"
|
||||
Me.ListView1.Size = New System.Drawing.Size(121, 97)
|
||||
Me.ListView1.TabIndex = 1
|
||||
Me.ListView1.UseCompatibleStateImageBehavior = False
|
||||
Me.ListView1.View = System.Windows.Forms.View.Details
|
||||
'
|
||||
'tb_file
|
||||
'
|
||||
Me.tb_file.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.tb_file.Location = New System.Drawing.Point(230, 120)
|
||||
Me.tb_file.Name = "tb_file"
|
||||
Me.tb_file.Size = New System.Drawing.Size(100, 21)
|
||||
Me.tb_file.TabIndex = 2
|
||||
'
|
||||
'rado
|
||||
'
|
||||
Me.rado.BackColor = System.Drawing.Color.Transparent
|
||||
Me.rado.Checked = True
|
||||
Me.rado.Location = New System.Drawing.Point(156, 46)
|
||||
Me.rado.Name = "rado"
|
||||
Me.rado.Size = New System.Drawing.Size(104, 24)
|
||||
Me.rado.TabIndex = 3
|
||||
Me.rado.TabStop = True
|
||||
Me.rado.UseVisualStyleBackColor = False
|
||||
'
|
||||
'radi
|
||||
'
|
||||
Me.radi.BackColor = System.Drawing.Color.Transparent
|
||||
Me.radi.Location = New System.Drawing.Point(60, 104)
|
||||
Me.radi.Name = "radi"
|
||||
Me.radi.Size = New System.Drawing.Size(104, 24)
|
||||
Me.radi.TabIndex = 4
|
||||
Me.radi.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Location = New System.Drawing.Point(296, 46)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button2.TabIndex = 5
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(43, 47)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button1.TabIndex = 6
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(100, 23)
|
||||
Me.Label2.TabIndex = 7
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(100, 23)
|
||||
Me.Label1.TabIndex = 8
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(74, 162)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(100, 50)
|
||||
Me.PictureBox1.TabIndex = 9
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'Frm_import2
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.SystemColors.AppWorkspace
|
||||
Me.ClientSize = New System.Drawing.Size(637, 361)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.KeyPreview = True
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "Frm_import2"
|
||||
Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents rado As System.Windows.Forms.RadioButton
|
||||
Friend WithEvents radi As System.Windows.Forms.RadioButton
|
||||
Friend WithEvents tb_file As System.Windows.Forms.TextBox
|
||||
Friend WithEvents ListView1 As System.Windows.Forms.ListView
|
||||
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents chk_deldata As System.Windows.Forms.CheckBox
|
||||
End Class
|
||||
120
ArinWarev1/FORM-BASIC/Frm_import2.resx
Normal file
120
ArinWarev1/FORM-BASIC/Frm_import2.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?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>
|
||||
</root>
|
||||
726
ArinWarev1/FORM-BASIC/Frm_import2.vb
Normal file
726
ArinWarev1/FORM-BASIC/Frm_import2.vb
Normal file
@@ -0,0 +1,726 @@
|
||||
Public Class Frm_import2
|
||||
Public Overrides Function AcceptChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function RejectChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Public Overrides Function HasChanged() As Boolean
|
||||
|
||||
End Function
|
||||
Dim RecordCount As Long
|
||||
Dim TableList As DataTable
|
||||
Dim IsExcel As Boolean = False
|
||||
|
||||
Private Sub Frm_Import_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||
'//테이블목록 추가
|
||||
Add_Tablelist()
|
||||
Me.Button2.Enabled = False '//실행버튼 사용불가
|
||||
Me.IsExcel = False
|
||||
End Sub
|
||||
|
||||
Private Sub Add_Tablelist()
|
||||
Dim TabName As String
|
||||
Dim TabDesc As String = ""
|
||||
Dim Sort As String = ""
|
||||
|
||||
Me.TableList = New DataTable
|
||||
Me.TableList.Columns.Add("Desc")
|
||||
Me.TableList.Columns.Add("Name")
|
||||
Me.TableList.Columns.Add("Sort")
|
||||
Me.TableList.Columns.Add("Cnt")
|
||||
|
||||
For Each Dt As DataTable In DSET1.Tables
|
||||
TabName = Dt.TableName
|
||||
TabDesc = ""
|
||||
Select Case TabName.ToUpper
|
||||
'Case "TBL_BUHA"
|
||||
'TabDesc = "부하"
|
||||
'Sort = "00"
|
||||
Case "TBL_BUNBAE"
|
||||
TabDesc = "냉방분배"
|
||||
Sort = "00"
|
||||
'Case "TBL_COMMON"
|
||||
'TabDesc = "공용코드"
|
||||
'Sort = "00"
|
||||
Case "TBL_DESC"
|
||||
TabDesc = "건물개요"
|
||||
Sort = "00"
|
||||
Case "TBL_KONGJO"
|
||||
TabDesc = "공조"
|
||||
Sort = "00"
|
||||
Case "TBL_KONGKUB"
|
||||
TabDesc = "난방공급"
|
||||
Sort = "00"
|
||||
Case "TBL_MYOUN"
|
||||
TabDesc = "입력면"
|
||||
Sort = "00"
|
||||
Case "TBL_NANBANGKIKI"
|
||||
TabDesc = "난방기기"
|
||||
Sort = "00"
|
||||
Case "TBL_NANGBANGKIKI"
|
||||
TabDesc = "냉방기기"
|
||||
Sort = "00"
|
||||
Case "TBL_NBUNBAE"
|
||||
TabDesc = "난방분배"
|
||||
Sort = "00"
|
||||
Case "TBL_NEW"
|
||||
TabDesc = "신재생및열병합"
|
||||
Sort = "00"
|
||||
'Case "TBL_PROFILE"
|
||||
' TabDesc = "프로필"
|
||||
' Sort = "00"
|
||||
Case "TBL_ZONE"
|
||||
TabDesc = "입력존"
|
||||
Sort = "00"
|
||||
Case "TBL_YK"
|
||||
TabDesc = "열관류율(목록)"
|
||||
Sort = "00"
|
||||
Case "TBL_YKDETAIL"
|
||||
TabDesc = "*열관류율(내역)"
|
||||
Sort = "00"
|
||||
'Case "TBL_WEATHER"
|
||||
' TabDesc = "기상데이터(목록)"
|
||||
' Sort = "00"
|
||||
'Case "WEATHER_CHA"
|
||||
'TabDesc = "*기상데이터(차양)"
|
||||
'Sort = "00"
|
||||
'Case "WEATHER_ILSA"
|
||||
' TabDesc = "*기상데이터(일사)"
|
||||
' Sort = "00"
|
||||
'Case "WEATHER_SUPDO"
|
||||
'TabDesc = "*기상데이터(습도)"
|
||||
'Sort = "00"
|
||||
'Case "WEATHER_ILSA"
|
||||
'TabDesc = "*기상데이터(일사)"
|
||||
'Sort = "00"
|
||||
End Select
|
||||
If TabDesc <> "" Then Me.TableList.Rows.Add(New String() {TabDesc, TabName, Sort})
|
||||
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Frm_Import_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
If e.KeyCode = Keys.Escape Then
|
||||
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
If radi.Checked Then
|
||||
File_Open()
|
||||
Me.Button2.Enabled = True
|
||||
Else
|
||||
'//내보내기 기능
|
||||
File_Save()
|
||||
Me.Button2.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub File_Open()
|
||||
Dim Od As New OpenFileDialog With {
|
||||
.FileName = "c:\out.txt",
|
||||
.Filter = "탭으로 분리된 텍스트파일(*.txt)|*.txt|Ms Excel(*.xls)|*.xls",
|
||||
.FilterIndex = 0
|
||||
}
|
||||
If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
|
||||
Me.tb_file.Text = Od.FileName
|
||||
Me.IsExcel = IIf(Od.FilterIndex = 1, False, True)
|
||||
|
||||
|
||||
'//테이블리스트의 데이터갯수 초기화
|
||||
For Each Dr As DataRow In Me.TableList.Rows
|
||||
Dr("cnt") = 0
|
||||
Next
|
||||
Me.TableList.AcceptChanges()
|
||||
|
||||
'//혹시 연속으로 열경우를 대비해서 초기화한다.
|
||||
Select Case Od.FilterIndex
|
||||
Case 1 '//텍스트파일
|
||||
Dim Table As String
|
||||
Dim BUf As String = My.Computer.FileSystem.ReadAllText(Me.tb_file.Text, System.Text.Encoding.Default)
|
||||
For Each B As String In BUf.Split(CChar(vbCrLf))
|
||||
If B.Trim <> "" AndAlso B.Trim.Substring(0, 1) <> "#" Then
|
||||
Table = B.Split(CChar(vbTab))(0)
|
||||
|
||||
'//해당 테이블 이름을 테이블 리스트에 찾아서 카운터를 누적시킨다.
|
||||
Dim DR() As DataRow = Me.TableList.Select("name='" & Table.Trim & "'")
|
||||
If DR.GetUpperBound(0) = 0 Then
|
||||
Try
|
||||
DR(0)("cnt") = Val(DR(0)("cnt")) + 1
|
||||
Catch ex As Exception
|
||||
DR(0)("cnt") = 1
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Case 2
|
||||
'//엑셀데이터에서 정보를 얻어와야한다.
|
||||
Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application")
|
||||
Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open(Me.tb_file.Text)
|
||||
Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets(1) '//첫번째 시트로고정
|
||||
|
||||
Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다
|
||||
|
||||
'//줄과 열의 갯수를 가져옵니다.
|
||||
Dim rowCount As String = Rng.Offset(0, 4).Value '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단)
|
||||
Dim ColCount As String = Rng.Offset(0, 5).Value
|
||||
|
||||
If rowCount.Trim = "" OrElse rowCount = "0" Then
|
||||
Dim V As String = InputBox("전체줄의 갯수를 입력하세요", "데이터갯수입력", 1000)
|
||||
If V = "" Then
|
||||
MsgBox("불러올 줄수를 확인할 수 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
Return
|
||||
End If
|
||||
If IsNumeric(V) = False Then
|
||||
MsgBox("숫자만 입력가능합니다", MsgBoxStyle.Critical, "확인")
|
||||
Return
|
||||
End If
|
||||
rowCount = V
|
||||
End If
|
||||
If rowCount.Trim = "" OrElse rowCount = "0" Then
|
||||
ColCount = 60 '//60개를 넘지는 않으므로(아마두?)
|
||||
End If
|
||||
|
||||
'//범위가 지정되었으므로 데이터를 확인한다.
|
||||
'//데이터의 시작줄은 항상 5번이다.
|
||||
Dim Tabname As String = ""
|
||||
Dim 열 As New ArrayList
|
||||
Dim z_cnt As Integer = 0
|
||||
For r As Integer = 5 To rowCount
|
||||
Try
|
||||
Tabname = Rng.Offset(r, 0).Value.ToString.Trim '//0번째열은 항상 테이블 이름이 오도록한다
|
||||
Catch ex As Exception
|
||||
Tabname = ""
|
||||
End Try
|
||||
|
||||
If Tabname = "" OrElse Tabname.Trim.ToUpper = "TABLE" Then '//이건 테이블을 제목줄이다
|
||||
|
||||
Else '//테이블이름으로 판단하고 해당 리스트를 찾아서 값을 누적시킴
|
||||
'//해당 테이블 이름을 테이블 리스트에 찾아서 카운터를 누적시킨다.
|
||||
Dim DR() As DataRow = Me.TableList.Select("name='" & Tabname & "'")
|
||||
If DR.GetUpperBound(0) = 0 Then
|
||||
Try
|
||||
DR(0)("cnt") = Val(DR(0)("cnt")) + 1
|
||||
Catch ex As Exception
|
||||
DR(0)("cnt") = 1
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
'//Dispos Excel Object
|
||||
xlBook.Close()
|
||||
xlApp.Application.Quit()
|
||||
xlApp.Quit()
|
||||
xlApp = Nothing
|
||||
xlBook = Nothing
|
||||
xlSheet1 = Nothing
|
||||
End Select
|
||||
|
||||
|
||||
Me.ListView1.Items.Clear() '//리스트뷰클리어
|
||||
Dim lv As ListViewItem
|
||||
For Each dr As DataRow In Me.TableList.Select("", "sort") '//정렬시켜서 가져옴
|
||||
If DSET1.Tables(dr("name").ToString).Rows.Count > 0 Then
|
||||
lv = Me.ListView1.Items.Add(dr("desc").ToString) '//테이블설명
|
||||
lv.SubItems.Add(dr("cnt").ToString) '//레코드숫자
|
||||
lv.SubItems.Add(dr("name").ToString) '//테이블이름
|
||||
End If
|
||||
Next
|
||||
|
||||
End Sub
|
||||
Private Sub File_Save()
|
||||
DSET1.AcceptChanges()
|
||||
DSETR1.AcceptChanges()
|
||||
|
||||
Dim sd As New SaveFileDialog With {
|
||||
.FileName = "c:\out.txt",
|
||||
.Filter = "탭으로 분리된 텍스트파일(*.txt)|*.txt|Ms Excel(*.xls)|*.xls",
|
||||
.FilterIndex = 0
|
||||
}
|
||||
|
||||
If sd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
|
||||
Me.tb_file.Text = sd.FileName
|
||||
|
||||
Me.IsExcel = IIf(sd.FilterIndex = 1, False, True)
|
||||
|
||||
Me.ListView1.Items.Clear() '//기존의 목록제거
|
||||
Dim Lv As ListViewItem
|
||||
For Each dr As DataRow In Me.TableList.Select("", "sort") '//정렬시켜서 가져옴
|
||||
If DSET1.Tables(dr("name")).Rows.Count > 0 Then
|
||||
Lv = Me.ListView1.Items.Add(dr("desc")) '//테이블설명
|
||||
Lv.SubItems.Add(DSET1.Tables(dr("name")).Rows.Count) '//레코드숫자
|
||||
Lv.SubItems.Add(dr("name")) '//테이블이름
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
If MsgBox("실행하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then Return
|
||||
|
||||
If Me.radi.Checked Then
|
||||
If My.Computer.FileSystem.FileExists(Me.tb_file.Text) = False Then
|
||||
MsgBox("해당파일이 존재하지않아서 가져올 수 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
Me.Button2.Enabled = False
|
||||
Return
|
||||
End If
|
||||
If Me.IsExcel Then
|
||||
InPutXls()
|
||||
Else
|
||||
INput()
|
||||
End If
|
||||
Else
|
||||
If Me.IsExcel Then
|
||||
OutputXLS()
|
||||
Else
|
||||
OutPut()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function Get_Listview(ByVal Tabname As String) As ListViewItem
|
||||
Dim Tname As String
|
||||
Dim R As ListViewItem = Nothing
|
||||
For Each Lv As ListViewItem In Me.ListView1.Items
|
||||
Tname = Lv.SubItems(2).Text
|
||||
If Tname.ToUpper.Trim = Tabname.ToUpper.Trim Then
|
||||
R = Lv
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Return R
|
||||
End Function
|
||||
Private Sub InPutXls()
|
||||
|
||||
'//가져오는 영역의 데이터 클리어
|
||||
Work_msg("저장영역 데이터확인중...")
|
||||
For Each Lview As ListViewItem In Me.ListView1.Items
|
||||
If Lview.Checked And Me.chk_deldata.Checked Then ' '//삭제명령이 잇엇다면 삭제를 한다.
|
||||
Work_msg("데이터 삭제중(" & Lview.SubItems(2).Text & ")")
|
||||
If DSET1.Tables(Lview.SubItems(2).Text).Columns.IndexOf("code") <> -1 Then '//코드가잇는 개체라면 코드빼고 삭제
|
||||
For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Select("Code<>'0'")
|
||||
Dr.Delete()
|
||||
Next
|
||||
Else
|
||||
For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Rows
|
||||
Dr.Delete()
|
||||
Next
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
DSET1.AcceptChanges()
|
||||
|
||||
|
||||
Dim NullCnt As Int16 = 0
|
||||
Dim mytext1 As String = vbNullString
|
||||
|
||||
Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application")
|
||||
Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open(Me.tb_file.Text)
|
||||
Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets(1) '//첫번째 시트로고정
|
||||
|
||||
Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다
|
||||
|
||||
'//줄과 열의 갯수를 가져옵니다.
|
||||
Dim rowCount As String = Rng.Offset(0, 4).Value '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단)
|
||||
Dim ColCount As String = Rng.Offset(0, 5).Value
|
||||
|
||||
If rowCount.Trim = "" OrElse rowCount = "0" Then
|
||||
Dim V As String = InputBox("전체줄의 갯수를 입력하세요", "데이터갯수입력", 1000)
|
||||
If V = "" Then
|
||||
MsgBox("불러올 줄수를 확인할 수 없습니다", MsgBoxStyle.Critical, "확인")
|
||||
Return
|
||||
End If
|
||||
If IsNumeric(V) = False Then
|
||||
MsgBox("숫자만 입력가능합니다", MsgBoxStyle.Critical, "확인")
|
||||
Return
|
||||
End If
|
||||
rowCount = V
|
||||
End If
|
||||
If rowCount.Trim = "" OrElse rowCount = "0" Then
|
||||
ColCount = 60 '//60개를 넘지는 않으므로
|
||||
End If
|
||||
|
||||
'//범위가 지정되었으므로 데이터를 확인한다.
|
||||
'//데이터의 시작줄은 항상 5번이다.
|
||||
Dim Tabname As String = ""
|
||||
Dim lv As ListViewItem
|
||||
Dim 열 As New ArrayList
|
||||
Dim z_cnt As Integer = 0
|
||||
For r As Integer = 5 To rowCount
|
||||
Try
|
||||
Tabname = Rng.Offset(r, 0).Value.ToString '//0번째열은 항상 테이블 이름이 오도록한다
|
||||
Catch ex As Exception
|
||||
Tabname = ""
|
||||
End Try
|
||||
|
||||
If Tabname.Trim.ToUpper = "TABLE" Then '//이건 테이블을 제목줄이다
|
||||
열 = New ArrayList '//열제목을 이곳에 모두 넣는다.
|
||||
For c As Integer = 1 To ColCount
|
||||
Try
|
||||
If Rng.Offset(r, c).Value.ToString.Trim <> "" AndAlso Rng.Offset(r, c).Value.ToString.Trim <> "0" Then '//열제목이있다
|
||||
열.Add(Rng.Offset(r, c).Value.ToString.Trim)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Next
|
||||
Else
|
||||
If 열.Count > 0 AndAlso Tabname.Trim <> "" Then '//열제목이 설정되어잇어야 돌아가도록
|
||||
lv = Get_Listview(Tabname)
|
||||
If lv.Checked Then '//가져오기설정과 테이블이름이 잇어야함
|
||||
Work_msg("가져오는중(" & Tabname & ")")
|
||||
Dim Dr As DataRow = DSET1.Tables(Tabname).NewRow
|
||||
Dr("code") = Format(DSET1.Tables(Tabname).Rows.Count, "0000")
|
||||
For c As Integer = 1 To 열.Count
|
||||
Try
|
||||
Dr(열.Item(c - 1).ToString) = Rng.Offset(r, c).Value
|
||||
Catch ex As Exception
|
||||
Dr(열.Item(c - 1).ToString) = DBNull.Value
|
||||
End Try
|
||||
|
||||
Next
|
||||
Try
|
||||
DSET1.Tables(Tabname).Rows.Add(Dr)
|
||||
DSET1.Tables(Tabname).AcceptChanges()
|
||||
z_cnt += 1
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Work_msg("")
|
||||
|
||||
'//Dispos Excel Object
|
||||
xlBook.Close()
|
||||
xlApp.Application.Quit()
|
||||
xlApp = Nothing
|
||||
xlBook = Nothing
|
||||
xlSheet1 = Nothing
|
||||
|
||||
MsgBox("가져오기완료", MsgBoxStyle.Information, "확인")
|
||||
Me.Close()
|
||||
|
||||
' Process.Start(Me.tb_file.Text)
|
||||
'Shell(Me.tb_file.Text, AppWinStyle.NormalFocus)
|
||||
End Sub
|
||||
Private Sub INput() '//텍스트파일 가져오기
|
||||
Dim BUf As String = My.Computer.FileSystem.ReadAllText(Me.tb_file.Text, System.Text.Encoding.Default)
|
||||
Dim Table As String
|
||||
|
||||
|
||||
Dim 열 As String = ""
|
||||
|
||||
For Each Lview As ListViewItem In Me.ListView1.Items
|
||||
If Lview.Checked And Me.chk_deldata.Checked Then ' '//삭제명령이 잇엇다면 삭제를 한다.
|
||||
|
||||
|
||||
Dim TAblename As String = Lview.SubItems(2).Text
|
||||
If DSET1.Tables(TAblename).Columns.IndexOf("code") <> -1 Then '//코드가잇는 개체라면 코드빼고 삭제
|
||||
For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Select("Code<>'0'")
|
||||
Dr.Delete()
|
||||
Next
|
||||
Else
|
||||
For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Rows
|
||||
Dr.Delete()
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
DSET1.AcceptChanges()
|
||||
|
||||
Dim Lv As ListViewItem
|
||||
Dim z_cnt As Integer = 0
|
||||
Dim e_cnt As Integer = 0
|
||||
For Each B As String In BUf.Split(CChar(vbCrLf)) '//데이터를 실제로 가져온다
|
||||
If B.Trim <> "" AndAlso B.Trim.Substring(0, 1) <> "#" Then '//주석데이터도제거
|
||||
Table = B.Split(CChar(vbTab))(0).Trim
|
||||
Select Case Table.ToUpper
|
||||
Case "TABLE"
|
||||
열 = B.Trim
|
||||
Case Else
|
||||
'//해당테이블명이 리뷰에 있는지확인하고 그것의 사용체크가되어있는지확인
|
||||
Lv = Get_Listview(Table)
|
||||
If Not Lv Is Nothing Then
|
||||
If Lv.Checked Then '//사용여부확인
|
||||
Dim Dr As DataRow = DSET1.Tables(Table).NewRow
|
||||
Dr("code") = Format(DSET1.Tables(Table).Rows.Count, "0000")
|
||||
For i As Integer = 1 To B.Split(CChar(vbTab)).GetUpperBound(0)
|
||||
Try
|
||||
Dr(열.Split(CChar(vbTab))(i)) = B.Split(CChar(vbTab))(i)
|
||||
Catch ex As Exception
|
||||
Dr(열.Split(CChar(vbTab))(i)) = DBNull.Value
|
||||
End Try
|
||||
Next
|
||||
Try
|
||||
DSET1.Tables(Table).Rows.Add(Dr)
|
||||
DSET1.Tables(Table).AcceptChanges()
|
||||
z_cnt += 1
|
||||
'Catch sqlex As SqlClient.SqlException
|
||||
' MsgBox(sqlex.ErrorCode)
|
||||
Catch ex As Exception
|
||||
' MsgBox(ex.Message.ToString)
|
||||
|
||||
If ex.Message.ToString.IndexOf("고유 값") <> -1 Then
|
||||
z_cnt += 1
|
||||
Else
|
||||
e_cnt += 1
|
||||
End If
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
|
||||
End Select
|
||||
End If
|
||||
Next
|
||||
|
||||
DSET1.AcceptChanges()
|
||||
' MsgBox(DSET1.tbl_zone.Rows.Count)
|
||||
|
||||
Dim M As New System.Text.StringBuilder
|
||||
M.AppendLine(z_cnt & "개의 데이터가 추가됨")
|
||||
M.AppendLine(e_cnt & "개의 오류발생")
|
||||
MsgBox(M.ToString, MsgBoxStyle.Information, "OK")
|
||||
End Sub
|
||||
|
||||
|
||||
'//텍스트파일 내보내기
|
||||
Private Sub OutPut()
|
||||
|
||||
Work_msg("기본정보생성중...")
|
||||
|
||||
Dim Wb As New System.Text.StringBuilder
|
||||
Wb.AppendLine("#### ECO2 Data ####")
|
||||
Wb.AppendLine("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####")
|
||||
Wb.AppendLine("#### Export by Eco2 ####")
|
||||
|
||||
|
||||
Dim Tabname As String = ""
|
||||
For Each lv As ListViewItem In Me.ListView1.Items
|
||||
If lv.Checked Then '//체크된것만 내보낸다
|
||||
Tabname = lv.SubItems(2).Text
|
||||
Work_msg("내보내는중(" & Tabname & ")")
|
||||
|
||||
Wb.Append("table") '///////////////////////
|
||||
For Each C As System.Data.DataColumn In DSET1.Tables(Tabname).Columns
|
||||
Wb.Append(vbTab & C.ColumnName)
|
||||
Next
|
||||
Wb.Append(vbCrLf)
|
||||
For Each C As DataRow In DSET1.Tables(Tabname).Rows
|
||||
Wb.Append(Tabname)
|
||||
For i As Integer = 0 To DSET1.Tables(Tabname).Columns.Count - 1
|
||||
|
||||
'If (Tabname.ToUpper = "TBL_MYOUN") Then
|
||||
' If DSET1.Tables(Tabname).Columns(i).ColumnName.ToUpper.Trim = "열관류율" Then
|
||||
' If CSng(C(i)) = 0 Then '//링크값사용
|
||||
' Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & C("열관류율2") & "'")(0)
|
||||
' Wb.Append(vbTab & Dr("열관류율").ToString)
|
||||
' Else '//입력값사용
|
||||
' Wb.Append(vbTab & C(i).ToString)
|
||||
' End If
|
||||
' Else
|
||||
' Wb.Append(vbTab & C(i).ToString)
|
||||
' End If
|
||||
'Else
|
||||
' Wb.Append(vbTab & C(i).ToString)
|
||||
'End If
|
||||
Wb.Append(vbTab & C(i).ToString)
|
||||
|
||||
Next
|
||||
Wb.Append(vbCrLf)
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
Work_msg("")
|
||||
My.Computer.FileSystem.WriteAllText(Me.tb_file.Text, Wb.ToString, False, System.Text.Encoding.Default)
|
||||
If MsgBox("내보내기 완료" & vbCrLf & "파일을 확인하시겠습니까?", _
|
||||
vbInformation Or vbOK, "확인") = MsgBoxResult.Ok Then
|
||||
Process.Start(Me.tb_file.Text)
|
||||
End If
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub OutputXLS()
|
||||
|
||||
Dim NullCnt As Int16 = 0
|
||||
Dim mytext1 As String = vbNullString
|
||||
|
||||
Dim xlApp As Excel.Application = New Excel.Application With {
|
||||
.DisplayAlerts = False,
|
||||
.Visible = False,
|
||||
.ReferenceStyle = Excel.XlReferenceStyle.xlA1
|
||||
}
|
||||
Dim xlBook As Excel.Workbook = xlApp.Workbooks.Add
|
||||
Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets.Add
|
||||
|
||||
|
||||
Work_msg("데이터수 확인중...")
|
||||
'//전체데이터갯수를 가지고 배열을 정의한다.
|
||||
Dim Rcnt As Integer = 0
|
||||
Dim Ccnt As Integer = 0
|
||||
Dim TabName As String = ""
|
||||
For Each Lv As ListViewItem In Me.ListView1.Items
|
||||
If Lv.Checked Then
|
||||
TabName = Lv.SubItems(2).Text
|
||||
Rcnt += DSET1.Tables(TabName).Rows.Count
|
||||
If DSET1.Tables(TabName).Columns.Count > Ccnt Then Ccnt = DSET1.Tables(TabName).Columns.Count
|
||||
End If
|
||||
Next
|
||||
|
||||
'//제목줄 5줄을포함
|
||||
'If Ccnt < 5 Then Ccnt = 5
|
||||
Work_msg("저장영역할당....")
|
||||
Dim saRet(Rcnt + 50, 52) As String '//여유잇게 할당
|
||||
For i As Integer = 0 To Rcnt + 10 - 1
|
||||
For j As Integer = 0 To Ccnt + 5 - 1
|
||||
saRet(i, j) = ""
|
||||
Next
|
||||
Next
|
||||
|
||||
Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다
|
||||
|
||||
|
||||
Work_msg("기본정보를 내보냅니다....")
|
||||
'//export title (제목내보내기)
|
||||
'Rng.Offset(0, 0).Value = "#### ECO2 Data ####"
|
||||
'Rng.Offset(1, 0).Value = ("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####")
|
||||
'Rng.Offset(2, 0).Value = ("#### Export by Eco2 ####")
|
||||
|
||||
saRet(0, 0) = "#### ECO2 Data ####"
|
||||
saRet(1, 0) = ("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####")
|
||||
saRet(2, 0) = ("#### Export by Eco2 ####")
|
||||
|
||||
|
||||
'//Export SUbTitle(부가적인정보내보내기)
|
||||
'Rng.Offset(0, 4).Value = Rcnt + 4 '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단)
|
||||
'Rng.Offset(0, 5).Value = Ccnt - 1 '//열수를 입력
|
||||
|
||||
saRet(0, 4) = Rcnt + 4 '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단)
|
||||
saRet(0, 5) = Ccnt - 1 '//열수를 입력
|
||||
|
||||
Dim RowIndex As Integer = 5
|
||||
Dim ColIndex As Integer = 0
|
||||
|
||||
For Each Lv As ListViewItem In Me.ListView1.Items
|
||||
If Lv.Checked Then
|
||||
TabName = Lv.SubItems(2).Text
|
||||
Work_msg("내보내는중(" & TabName & ")")
|
||||
'Set_ArrayData(Rng, RowIndex, DSET1.Tables(TabName))
|
||||
Set_ArrayData(saRet, RowIndex, DSET1.Tables(TabName))
|
||||
End If
|
||||
Next
|
||||
|
||||
Try
|
||||
My.Computer.FileSystem.DeleteFile(Me.tb_file.Text) '//대상파일이 존재하면 삭제해버림
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
xlSheet1.Range("A1:AZ" & CStr(Rcnt + 10).ToString).Value = saRet
|
||||
'xlApp.Visible = True
|
||||
|
||||
xlBook.Saved = True
|
||||
'xlSheet1.SaveAs(Me.tb_file.Text)
|
||||
xlSheet1.SaveAs(Me.tb_file.Text, _
|
||||
Excel.XlFileFormat.xlExcel7, _
|
||||
Nothing, Nothing, Nothing, Nothing, _
|
||||
Nothing, Nothing, Nothing, Nothing)
|
||||
xlBook.Close()
|
||||
xlApp.Application.Quit()
|
||||
xlApp = Nothing
|
||||
xlBook = Nothing
|
||||
xlSheet1 = Nothing
|
||||
|
||||
Work_msg("")
|
||||
If MsgBox("내보내기 완료" & vbCrLf & "파일을 확인하시겠습니까?", _
|
||||
vbInformation Or vbOK, "확인") = MsgBoxResult.Ok Then
|
||||
Process.Start(Me.tb_file.Text)
|
||||
End If
|
||||
Me.Close()
|
||||
|
||||
' Process.Start(Me.tb_file.Text)
|
||||
'Shell(Me.tb_file.Text, AppWinStyle.NormalFocus)
|
||||
End Sub
|
||||
|
||||
Private Sub Set_ArrayData(ByRef Rng As Excel.Range, ByRef RowIndex As Integer, ByVal Dt As DataTable)
|
||||
RowIndex += 1
|
||||
Rng.Offset(RowIndex, 0).Value = "table" '//테이블컬럼명을 내보낸다
|
||||
'//Export ColumnData
|
||||
For i As Integer = 0 To Dt.Columns.Count - 1
|
||||
Rng.Offset(RowIndex, i + 1).Value2 = Dt.Columns(i).ColumnName.ToString
|
||||
Next
|
||||
'//Export RowData
|
||||
For Each C As DataRow In Dt.Rows
|
||||
RowIndex += 1 ': ReDim Preserve saRet(RowIndex, 255)
|
||||
Rng.Offset(RowIndex, 0).Value = Dt.TableName
|
||||
For i As Integer = 0 To Dt.Columns.Count - 1
|
||||
Rng.Offset(RowIndex, i + 1).Value2 = C(i).ToString
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
Private Sub Set_ArrayData(ByRef Rng(,) As String, ByRef RowIndex As Integer, ByVal Dt As DataTable)
|
||||
RowIndex += 1
|
||||
Rng(RowIndex, 0) = "table" '//테이블컬럼명을 내보낸다
|
||||
'//Export ColumnData
|
||||
For i As Integer = 0 To Dt.Columns.Count - 1
|
||||
Rng(RowIndex, i + 1) = Dt.Columns(i).ColumnName.ToString
|
||||
Next
|
||||
'//Export RowData
|
||||
For Each C As DataRow In Dt.Rows
|
||||
RowIndex += 1 ': ReDim Preserve saRet(RowIndex, 255)
|
||||
Rng(RowIndex, 0) = Dt.TableName
|
||||
For i As Integer = 0 To Dt.Columns.Count - 1
|
||||
Rng(RowIndex, i + 1) = C(i).ToString
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
'//d요부분만 추가됫어요
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
|
||||
Dim a As Graphics = e.Graphics
|
||||
Dim b As New Drawing2D.LinearGradientBrush(New Rectangle(0, 0, Me.Width, 500), Color.WhiteSmoke, _
|
||||
Color.DarkGray, Drawing2D.LinearGradientMode.Vertical)
|
||||
a.FillRectangle(b, 0, 0, Me.Width, Me.Height)
|
||||
'a.FillRectangle(b, Me.Width, 0, Me.Width, 30)
|
||||
b.Dispose()
|
||||
a.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
|
||||
Dim xlApp As Excel.Application
|
||||
Dim xlBook As Excel.Workbook
|
||||
Dim xlSheet1 As Excel.Worksheet
|
||||
|
||||
|
||||
xlApp = New Excel.Application ' CreateObject("Excel.Application")
|
||||
xlBook = xlApp.Workbooks.Open("c:\out.xls")
|
||||
xlSheet1 = xlBook.Worksheets(1) '//첫번째 시트로고정
|
||||
|
||||
Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다
|
||||
xlApp.Visible = True
|
||||
MsgBox("가져오기완료", MsgBoxStyle.Information, "확인")
|
||||
|
||||
'//Dispos Excel Object
|
||||
'xlBook.displayalerts = False
|
||||
xlBook.Saved = True
|
||||
xlBook.Close()
|
||||
xlApp.Application.Quit()
|
||||
xlApp = Nothing
|
||||
xlBook = Nothing
|
||||
xlSheet1 = Nothing
|
||||
|
||||
|
||||
Me.Close()
|
||||
|
||||
' Process.Start(M
|
||||
End Sub
|
||||
End Class
|
||||
1333
ArinWarev1/FORM-BASIC/Frm_profile.Designer.vb
generated
Normal file
1333
ArinWarev1/FORM-BASIC/Frm_profile.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
213
ArinWarev1/FORM-BASIC/Frm_profile.resx
Normal file
213
ArinWarev1/FORM-BASIC/Frm_profile.resx
Normal file
@@ -0,0 +1,213 @@
|
||||
<?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="Label60.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="Label108.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label112.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label111.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label110.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="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</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="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>
|
||||
385
ArinWarev1/FORM-BASIC/Frm_profile.vb
Normal file
385
ArinWarev1/FORM-BASIC/Frm_profile.vb
Normal file
@@ -0,0 +1,385 @@
|
||||
Public Class Frm_profile
|
||||
Dim Init As Boolean = False
|
||||
Dim SrcDrv As DataRowView
|
||||
|
||||
#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 MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.설정프로필)
|
||||
'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me)
|
||||
'//공유데이터셋에 연결한다.
|
||||
Me.bs.DataSource = DSET1
|
||||
|
||||
AddHandler DSET1.tbl_profile_od.TableNewRow, AddressOf AddNewDataRow_Profile
|
||||
|
||||
'//모든컨트롤의 cTrl_enter 를 추가합니다
|
||||
BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection))
|
||||
Me.Init = True
|
||||
|
||||
Try
|
||||
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
|
||||
Me.bs.Filter = ""
|
||||
Catch ex As Exception
|
||||
Me.bs.MoveFirst()
|
||||
End Try
|
||||
|
||||
''170514
|
||||
Me.SplitContainer1.Panel2.Enabled = True
|
||||
Me.bn_all.Visible = True
|
||||
|
||||
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_od)
|
||||
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)
|
||||
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)
|
||||
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_od, Nothing)
|
||||
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_od.Select(Me.bs.Filter, "")
|
||||
For i As Integer = dR.GetUpperBound(0) To 0 Step -1
|
||||
dR(i).Delete()
|
||||
Next
|
||||
DSET1.tbl_profile_od.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
|
||||
|
||||
|
||||
End Class
|
||||
506
ArinWarev1/FORM-BASIC/Frm_v20091231_YK.Designer.vb
generated
Normal file
506
ArinWarev1/FORM-BASIC/Frm_v20091231_YK.Designer.vb
generated
Normal file
@@ -0,0 +1,506 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class Frm_V20091231_YK
|
||||
Inherits CForm
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_YK))
|
||||
Me.NTb_창호세부설명 = New System.Windows.Forms.TextBox()
|
||||
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.DS = New Eco2OD.DS()
|
||||
Me.NTb_일사에너지투과율 = New System.Windows.Forms.TextBox()
|
||||
Me.NTb_창호열관류율 = New System.Windows.Forms.TextBox()
|
||||
Me.lbl_창호세부설명 = New System.Windows.Forms.Label()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.UserControl11 = New mn.UserControl1()
|
||||
Me.lbl_일사에너지투과율 = New System.Windows.Forms.Label()
|
||||
Me.lbl_창호열관류율 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.열관류율NTb = New Eco2OD.MyTb()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.fxData = New C1.Win.C1FlexGrid.C1FlexGrid()
|
||||
Me.cmGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.열너비저장ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.열너비자동조정ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.열너비초기화ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.bs_detail = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.C1StatusBar1 = New C1.Win.C1Ribbon.C1StatusBar()
|
||||
Me.RibbonButton1 = New C1.Win.C1Ribbon.RibbonButton()
|
||||
Me.RibbonButton2 = New C1.Win.C1Ribbon.RibbonButton()
|
||||
Me.cmb_형태 = New Eco2OD.MyCmb()
|
||||
Me.fxList = New C1.Win.C1FlexGrid.C1FlexGrid()
|
||||
Me.C1StatusBar2 = New C1.Win.C1Ribbon.C1StatusBar()
|
||||
Me.RibbonLabel1 = New C1.Win.C1Ribbon.RibbonLabel()
|
||||
Me.btAdd1 = New C1.Win.C1Ribbon.RibbonButton()
|
||||
Me.btDel1 = New C1.Win.C1Ribbon.RibbonButton()
|
||||
Me.RibbonSeparator1 = New C1.Win.C1Ribbon.RibbonSeparator()
|
||||
Me.RibbonButton6 = New C1.Win.C1Ribbon.RibbonButton()
|
||||
Me.btOK = New C1.Win.C1Ribbon.RibbonButton()
|
||||
Me.tb법적기준 = New Eco2OD.MyTb()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.bs_gubun = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.bS_재료 = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.bsmain = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.체크바닥난방여부 = New System.Windows.Forms.CheckBox()
|
||||
Me.체크열교방지구조 = New System.Windows.Forms.CheckBox()
|
||||
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.fxData, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.cmGrid.SuspendLayout()
|
||||
CType(Me.bs_detail, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.C1StatusBar1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.fxList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.C1StatusBar2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.bs_gubun, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.bS_재료, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.bsmain, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'NTb_창호세부설명
|
||||
'
|
||||
Me.NTb_창호세부설명.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.NTb_창호세부설명.BackColor = System.Drawing.Color.White
|
||||
Me.NTb_창호세부설명.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호세부설명", True))
|
||||
Me.NTb_창호세부설명.Location = New System.Drawing.Point(282, 519)
|
||||
Me.NTb_창호세부설명.Name = "NTb_창호세부설명"
|
||||
Me.NTb_창호세부설명.Size = New System.Drawing.Size(226, 25)
|
||||
Me.NTb_창호세부설명.TabIndex = 2
|
||||
'
|
||||
'bs
|
||||
'
|
||||
Me.bs.DataMember = "tbl_yk"
|
||||
Me.bs.DataSource = Me.DS
|
||||
Me.bs.Filter = "code <> '0'"
|
||||
'
|
||||
'DS
|
||||
'
|
||||
Me.DS.DataSetName = "DS"
|
||||
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
|
||||
'
|
||||
'NTb_일사에너지투과율
|
||||
'
|
||||
Me.NTb_일사에너지투과율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.NTb_일사에너지투과율.BackColor = System.Drawing.Color.White
|
||||
Me.NTb_일사에너지투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일사에너지투과율", True))
|
||||
Me.NTb_일사에너지투과율.Location = New System.Drawing.Point(306, 483)
|
||||
Me.NTb_일사에너지투과율.Name = "NTb_일사에너지투과율"
|
||||
Me.NTb_일사에너지투과율.Size = New System.Drawing.Size(50, 25)
|
||||
Me.NTb_일사에너지투과율.TabIndex = 1
|
||||
'
|
||||
'NTb_창호열관류율
|
||||
'
|
||||
Me.NTb_창호열관류율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.NTb_창호열관류율.BackColor = System.Drawing.Color.White
|
||||
Me.NTb_창호열관류율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호열관류율", True))
|
||||
Me.NTb_창호열관류율.Location = New System.Drawing.Point(282, 453)
|
||||
Me.NTb_창호열관류율.Name = "NTb_창호열관류율"
|
||||
Me.NTb_창호열관류율.Size = New System.Drawing.Size(74, 25)
|
||||
Me.NTb_창호열관류율.TabIndex = 0
|
||||
'
|
||||
'lbl_창호세부설명
|
||||
'
|
||||
Me.lbl_창호세부설명.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.lbl_창호세부설명.AutoSize = True
|
||||
Me.lbl_창호세부설명.ForeColor = System.Drawing.Color.Black
|
||||
Me.lbl_창호세부설명.Location = New System.Drawing.Point(183, 522)
|
||||
Me.lbl_창호세부설명.Name = "lbl_창호세부설명"
|
||||
Me.lbl_창호세부설명.Size = New System.Drawing.Size(94, 17)
|
||||
Me.lbl_창호세부설명.TabIndex = 153
|
||||
Me.lbl_창호세부설명.Text = "창호세부설명 :"
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.Controls.Add(Me.UserControl11)
|
||||
Me.Panel2.Location = New System.Drawing.Point(186, 12)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(170, 152)
|
||||
Me.Panel2.TabIndex = 161
|
||||
'
|
||||
'UserControl11
|
||||
'
|
||||
Me.UserControl11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.UserControl11.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UserControl11.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UserControl11.Margin = New System.Windows.Forms.Padding(3, 799, 3, 799)
|
||||
Me.UserControl11.MaxSize = 150.0!
|
||||
Me.UserControl11.Name = "UserControl11"
|
||||
Me.UserControl11.Size = New System.Drawing.Size(170, 152)
|
||||
Me.UserControl11.TabIndex = 132
|
||||
Me.UserControl11.Vertical = False
|
||||
'
|
||||
'lbl_일사에너지투과율
|
||||
'
|
||||
Me.lbl_일사에너지투과율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.lbl_일사에너지투과율.AutoSize = True
|
||||
Me.lbl_일사에너지투과율.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbl_일사에너지투과율.ForeColor = System.Drawing.Color.Black
|
||||
Me.lbl_일사에너지투과율.Location = New System.Drawing.Point(183, 488)
|
||||
Me.lbl_일사에너지투과율.Name = "lbl_일사에너지투과율"
|
||||
Me.lbl_일사에너지투과율.Size = New System.Drawing.Size(120, 15)
|
||||
Me.lbl_일사에너지투과율.TabIndex = 153
|
||||
Me.lbl_일사에너지투과율.Text = "일사에너지투과율[-]:"
|
||||
'
|
||||
'lbl_창호열관류율
|
||||
'
|
||||
Me.lbl_창호열관류율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.lbl_창호열관류율.AutoSize = True
|
||||
Me.lbl_창호열관류율.ForeColor = System.Drawing.Color.Black
|
||||
Me.lbl_창호열관류율.Location = New System.Drawing.Point(183, 456)
|
||||
Me.lbl_창호열관류율.Name = "lbl_창호열관류율"
|
||||
Me.lbl_창호열관류율.Size = New System.Drawing.Size(94, 17)
|
||||
Me.lbl_창호열관류율.TabIndex = 153
|
||||
Me.lbl_창호열관류율.Text = "창호열관류율 :"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(781, 522)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(106, 17)
|
||||
Me.Label1.TabIndex = 153
|
||||
Me.Label1.Text = "열관류율(W/㎡K)"
|
||||
'
|
||||
'열관류율NTb
|
||||
'
|
||||
Me.열관류율NTb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.열관류율NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.열관류율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열관류율", True))
|
||||
Me.열관류율NTb.Location = New System.Drawing.Point(893, 518)
|
||||
Me.열관류율NTb.Name = "열관류율NTb"
|
||||
Me.열관류율NTb.NectControl = Nothing
|
||||
Me.열관류율NTb.Size = New System.Drawing.Size(83, 25)
|
||||
Me.열관류율NTb.TabIndex = 3
|
||||
Me.열관류율NTb.TabStop = False
|
||||
Me.열관류율NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
Me.열관류율NTb.TextFormat = Eco2OD.MyTb.ETFormat.Normal
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Panel1.Controls.Add(Me.fxData)
|
||||
Me.Panel1.Controls.Add(Me.C1StatusBar1)
|
||||
Me.Panel1.Location = New System.Drawing.Point(362, 12)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(619, 461)
|
||||
Me.Panel1.TabIndex = 154
|
||||
'
|
||||
'fxData
|
||||
'
|
||||
Me.fxData.ColumnInfo = resources.GetString("fxData.ColumnInfo")
|
||||
Me.fxData.ContextMenuStrip = Me.cmGrid
|
||||
Me.fxData.DataSource = Me.bs_detail
|
||||
Me.fxData.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.fxData.Location = New System.Drawing.Point(0, 0)
|
||||
Me.fxData.Name = "fxData"
|
||||
Me.fxData.Rows.Count = 1
|
||||
Me.fxData.Rows.DefaultSize = 24
|
||||
Me.fxData.Size = New System.Drawing.Size(617, 436)
|
||||
Me.fxData.StyleInfo = resources.GetString("fxData.StyleInfo")
|
||||
Me.fxData.TabIndex = 158
|
||||
'
|
||||
'cmGrid
|
||||
'
|
||||
Me.cmGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.열너비저장ToolStripMenuItem, Me.ToolStripMenuItem1, Me.열너비자동조정ToolStripMenuItem, Me.열너비초기화ToolStripMenuItem})
|
||||
Me.cmGrid.Name = "ContextMenuStrip1"
|
||||
Me.cmGrid.Size = New System.Drawing.Size(167, 76)
|
||||
'
|
||||
'열너비저장ToolStripMenuItem
|
||||
'
|
||||
Me.열너비저장ToolStripMenuItem.Name = "열너비저장ToolStripMenuItem"
|
||||
Me.열너비저장ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
|
||||
Me.열너비저장ToolStripMenuItem.Text = "열 너비 저장"
|
||||
'
|
||||
'ToolStripMenuItem1
|
||||
'
|
||||
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
|
||||
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(163, 6)
|
||||
'
|
||||
'열너비자동조정ToolStripMenuItem
|
||||
'
|
||||
Me.열너비자동조정ToolStripMenuItem.Name = "열너비자동조정ToolStripMenuItem"
|
||||
Me.열너비자동조정ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
|
||||
Me.열너비자동조정ToolStripMenuItem.Text = "열 너비 자동조정"
|
||||
'
|
||||
'열너비초기화ToolStripMenuItem
|
||||
'
|
||||
Me.열너비초기화ToolStripMenuItem.Name = "열너비초기화ToolStripMenuItem"
|
||||
Me.열너비초기화ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
|
||||
Me.열너비초기화ToolStripMenuItem.Text = "열 너비 초기화"
|
||||
'
|
||||
'bs_detail
|
||||
'
|
||||
Me.bs_detail.DataMember = "tbl_ykdetail"
|
||||
Me.bs_detail.DataSource = Me.DS
|
||||
Me.bs_detail.Filter = "code <> '0'"
|
||||
'
|
||||
'C1StatusBar1
|
||||
'
|
||||
Me.C1StatusBar1.AutoSizeElement = C1.Framework.AutoSizeElement.Width
|
||||
Me.C1StatusBar1.LeftPaneItems.Add(Me.RibbonButton1)
|
||||
Me.C1StatusBar1.LeftPaneItems.Add(Me.RibbonButton2)
|
||||
Me.C1StatusBar1.Location = New System.Drawing.Point(0, 436)
|
||||
Me.C1StatusBar1.Name = "C1StatusBar1"
|
||||
Me.C1StatusBar1.Size = New System.Drawing.Size(617, 23)
|
||||
Me.C1StatusBar1.VisualStyle = C1.Win.C1Ribbon.VisualStyle.Office2010Silver
|
||||
'
|
||||
'RibbonButton1
|
||||
'
|
||||
Me.RibbonButton1.Name = "RibbonButton1"
|
||||
Me.RibbonButton1.SmallImage = CType(resources.GetObject("RibbonButton1.SmallImage"), System.Drawing.Image)
|
||||
Me.RibbonButton1.Text = "추가"
|
||||
'
|
||||
'RibbonButton2
|
||||
'
|
||||
Me.RibbonButton2.Name = "RibbonButton2"
|
||||
Me.RibbonButton2.SmallImage = CType(resources.GetObject("RibbonButton2.SmallImage"), System.Drawing.Image)
|
||||
Me.RibbonButton2.Text = "삭제"
|
||||
'
|
||||
'cmb_형태
|
||||
'
|
||||
Me.cmb_형태.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.cmb_형태.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
|
||||
Me.cmb_형태.FormattingEnabled = True
|
||||
Me.cmb_형태.Location = New System.Drawing.Point(186, 172)
|
||||
Me.cmb_형태.Name = "cmb_형태"
|
||||
Me.cmb_형태.NectControl = Nothing
|
||||
Me.cmb_형태.Size = New System.Drawing.Size(170, 276)
|
||||
Me.cmb_형태.TabIndex = 131
|
||||
'
|
||||
'fxList
|
||||
'
|
||||
Me.fxList.ColumnInfo = resources.GetString("fxList.ColumnInfo")
|
||||
Me.fxList.DataSource = Me.bs
|
||||
Me.fxList.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.fxList.Location = New System.Drawing.Point(0, 0)
|
||||
Me.fxList.Name = "fxList"
|
||||
Me.fxList.Rows.Count = 1
|
||||
Me.fxList.Rows.DefaultSize = 24
|
||||
Me.fxList.Size = New System.Drawing.Size(177, 552)
|
||||
Me.fxList.StyleInfo = resources.GetString("fxList.StyleInfo")
|
||||
Me.fxList.TabIndex = 153
|
||||
'
|
||||
'C1StatusBar2
|
||||
'
|
||||
Me.C1StatusBar2.AutoSizeElement = C1.Framework.AutoSizeElement.Width
|
||||
Me.C1StatusBar2.LeftPaneItems.Add(Me.RibbonLabel1)
|
||||
Me.C1StatusBar2.LeftPaneItems.Add(Me.btAdd1)
|
||||
Me.C1StatusBar2.LeftPaneItems.Add(Me.btDel1)
|
||||
Me.C1StatusBar2.LeftPaneItems.Add(Me.RibbonSeparator1)
|
||||
Me.C1StatusBar2.LeftPaneItems.Add(Me.RibbonButton6)
|
||||
Me.C1StatusBar2.Location = New System.Drawing.Point(0, 552)
|
||||
Me.C1StatusBar2.Name = "C1StatusBar2"
|
||||
Me.C1StatusBar2.RightPaneItems.Add(Me.btOK)
|
||||
Me.C1StatusBar2.Size = New System.Drawing.Size(992, 23)
|
||||
'
|
||||
'RibbonLabel1
|
||||
'
|
||||
Me.RibbonLabel1.Name = "RibbonLabel1"
|
||||
Me.RibbonLabel1.Text = "열관류율"
|
||||
'
|
||||
'btAdd1
|
||||
'
|
||||
Me.btAdd1.LargeImage = CType(resources.GetObject("btAdd1.LargeImage"), System.Drawing.Image)
|
||||
Me.btAdd1.Name = "btAdd1"
|
||||
Me.btAdd1.SmallImage = CType(resources.GetObject("btAdd1.SmallImage"), System.Drawing.Image)
|
||||
Me.btAdd1.Text = "추가(&A)"
|
||||
'
|
||||
'btDel1
|
||||
'
|
||||
Me.btDel1.Name = "btDel1"
|
||||
Me.btDel1.SmallImage = CType(resources.GetObject("btDel1.SmallImage"), System.Drawing.Image)
|
||||
Me.btDel1.Text = "삭제(&D)"
|
||||
'
|
||||
'RibbonSeparator1
|
||||
'
|
||||
Me.RibbonSeparator1.Name = "RibbonSeparator1"
|
||||
'
|
||||
'RibbonButton6
|
||||
'
|
||||
Me.RibbonButton6.Name = "RibbonButton6"
|
||||
Me.RibbonButton6.SmallImage = CType(resources.GetObject("RibbonButton6.SmallImage"), System.Drawing.Image)
|
||||
Me.RibbonButton6.Text = "구분그림보기"
|
||||
Me.RibbonButton6.Visible = False
|
||||
'
|
||||
'btOK
|
||||
'
|
||||
Me.btOK.LargeImage = CType(resources.GetObject("btOK.LargeImage"), System.Drawing.Image)
|
||||
Me.btOK.Name = "btOK"
|
||||
Me.btOK.SmallImage = CType(resources.GetObject("btOK.SmallImage"), System.Drawing.Image)
|
||||
Me.btOK.Text = "적용(&S)"
|
||||
'
|
||||
'tb법적기준
|
||||
'
|
||||
Me.tb법적기준.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.tb법적기준.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.tb법적기준.Location = New System.Drawing.Point(691, 518)
|
||||
Me.tb법적기준.Name = "tb법적기준"
|
||||
Me.tb법적기준.NectControl = Nothing
|
||||
Me.tb법적기준.Size = New System.Drawing.Size(83, 25)
|
||||
Me.tb법적기준.TabIndex = 162
|
||||
Me.tb법적기준.TabStop = False
|
||||
Me.tb법적기준.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
Me.tb법적기준.TextFormat = Eco2OD.MyTb.ETFormat.Normal
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label2.Location = New System.Drawing.Point(530, 518)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(155, 22)
|
||||
Me.Label2.TabIndex = 153
|
||||
Me.Label2.Text = "법적기준"
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'bs_gubun
|
||||
'
|
||||
Me.bs_gubun.DataMember = "tbl_common_od"
|
||||
Me.bs_gubun.DataSource = Me.DS
|
||||
'
|
||||
'bS_재료
|
||||
'
|
||||
Me.bS_재료.DataMember = "tbl_common_od"
|
||||
Me.bS_재료.DataSource = Me.DS
|
||||
'
|
||||
'bsmain
|
||||
'
|
||||
Me.bsmain.DataSource = Me.DS
|
||||
Me.bsmain.Filter = ""
|
||||
Me.bsmain.Position = 0
|
||||
'
|
||||
'체크바닥난방여부
|
||||
'
|
||||
Me.체크바닥난방여부.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.체크바닥난방여부.AutoSize = True
|
||||
Me.체크바닥난방여부.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "바닥난방여부", True))
|
||||
Me.체크바닥난방여부.Location = New System.Drawing.Point(748, 485)
|
||||
Me.체크바닥난방여부.Name = "체크바닥난방여부"
|
||||
Me.체크바닥난방여부.Size = New System.Drawing.Size(105, 21)
|
||||
Me.체크바닥난방여부.TabIndex = 164
|
||||
Me.체크바닥난방여부.Text = "바닥난방여부"
|
||||
Me.체크바닥난방여부.UseVisualStyleBackColor = True
|
||||
'
|
||||
'체크열교방지구조
|
||||
'
|
||||
Me.체크열교방지구조.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.체크열교방지구조.AutoSize = True
|
||||
Me.체크열교방지구조.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "열교방지구조", True))
|
||||
Me.체크열교방지구조.Location = New System.Drawing.Point(867, 485)
|
||||
Me.체크열교방지구조.Name = "체크열교방지구조"
|
||||
Me.체크열교방지구조.Size = New System.Drawing.Size(105, 21)
|
||||
Me.체크열교방지구조.TabIndex = 165
|
||||
Me.체크열교방지구조.Text = "열교방지구조"
|
||||
Me.체크열교방지구조.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Frm_V20091231_YK
|
||||
'
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
||||
Me.ClientSize = New System.Drawing.Size(992, 575)
|
||||
Me.Controls.Add(Me.체크열교방지구조)
|
||||
Me.Controls.Add(Me.체크바닥난방여부)
|
||||
Me.Controls.Add(Me.tb법적기준)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Controls.Add(Me.fxList)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.NTb_창호세부설명)
|
||||
Me.Controls.Add(Me.NTb_일사에너지투과율)
|
||||
Me.Controls.Add(Me.열관류율NTb)
|
||||
Me.Controls.Add(Me.C1StatusBar2)
|
||||
Me.Controls.Add(Me.NTb_창호열관류율)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Controls.Add(Me.lbl_창호세부설명)
|
||||
Me.Controls.Add(Me.cmb_형태)
|
||||
Me.Controls.Add(Me.lbl_창호열관류율)
|
||||
Me.Controls.Add(Me.lbl_일사에너지투과율)
|
||||
Me.Font = New System.Drawing.Font("맑은 고딕", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.KeyPreview = True
|
||||
Me.Name = "Frm_V20091231_YK"
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "형별성능관계내역"
|
||||
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
CType(Me.fxData, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.cmGrid.ResumeLayout(False)
|
||||
CType(Me.bs_detail, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.C1StatusBar1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.fxList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.C1StatusBar2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.bs_gubun, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.bS_재료, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.bsmain, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Public WithEvents DS As Eco2OD.DS
|
||||
Friend WithEvents bs As System.Windows.Forms.BindingSource
|
||||
Friend WithEvents bS_재료 As System.Windows.Forms.BindingSource
|
||||
Friend WithEvents bs_detail As System.Windows.Forms.BindingSource
|
||||
Friend WithEvents bs_gubun As System.Windows.Forms.BindingSource
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents 열관류율NTb As Eco2OD.MyTb
|
||||
Friend WithEvents UserControl11 As mn.UserControl1
|
||||
Friend WithEvents cmb_형태 As Eco2OD.MyCmb
|
||||
Friend WithEvents NTb_창호열관류율 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lbl_창호열관류율 As System.Windows.Forms.Label
|
||||
Friend WithEvents NTb_창호세부설명 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents NTb_일사에너지투과율 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lbl_창호세부설명 As System.Windows.Forms.Label
|
||||
Friend WithEvents lbl_일사에너지투과율 As System.Windows.Forms.Label
|
||||
Friend WithEvents bsmain As System.Windows.Forms.BindingSource
|
||||
Friend WithEvents fxList As C1.Win.C1FlexGrid.C1FlexGrid
|
||||
Friend WithEvents C1StatusBar2 As C1.Win.C1Ribbon.C1StatusBar
|
||||
Friend WithEvents btOK As C1.Win.C1Ribbon.RibbonButton
|
||||
Friend WithEvents btAdd1 As C1.Win.C1Ribbon.RibbonButton
|
||||
Friend WithEvents btDel1 As C1.Win.C1Ribbon.RibbonButton
|
||||
Friend WithEvents RibbonLabel1 As C1.Win.C1Ribbon.RibbonLabel
|
||||
Friend WithEvents RibbonSeparator1 As C1.Win.C1Ribbon.RibbonSeparator
|
||||
Friend WithEvents Panel2 As Panel
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents fxData As C1.Win.C1FlexGrid.C1FlexGrid
|
||||
Friend WithEvents RibbonButton6 As C1.Win.C1Ribbon.RibbonButton
|
||||
Friend WithEvents C1StatusBar1 As C1.Win.C1Ribbon.C1StatusBar
|
||||
Friend WithEvents RibbonButton1 As C1.Win.C1Ribbon.RibbonButton
|
||||
Friend WithEvents RibbonButton2 As C1.Win.C1Ribbon.RibbonButton
|
||||
Friend WithEvents cmGrid As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents 열너비저장ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents 열너비자동조정ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 열너비초기화ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents tb법적기준 As Eco2OD.MyTb
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents 체크바닥난방여부 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents 체크열교방지구조 As System.Windows.Forms.CheckBox
|
||||
End Class
|
||||
6463
ArinWarev1/FORM-BASIC/Frm_v20091231_YK.resx
Normal file
6463
ArinWarev1/FORM-BASIC/Frm_v20091231_YK.resx
Normal file
File diff suppressed because it is too large
Load Diff
1557
ArinWarev1/FORM-BASIC/Frm_v20091231_YK.vb
Normal file
1557
ArinWarev1/FORM-BASIC/Frm_v20091231_YK.vb
Normal file
File diff suppressed because it is too large
Load Diff
353
ArinWarev1/FORM-BASIC/Frm_v20091231_buha.Designer.vb
generated
Normal file
353
ArinWarev1/FORM-BASIC/Frm_v20091231_buha.Designer.vb
generated
Normal file
@@ -0,0 +1,353 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_V20091231_buha
|
||||
Inherits CForm
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_buha))
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components)
|
||||
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.DS = New Eco2OD.DS()
|
||||
Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.ToolStripButton44 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton45 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator25 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ToolStripTextBox6 = New System.Windows.Forms.ToolStripTextBox()
|
||||
Me.ToolStripSeparator26 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ToolStripButton46 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton47 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator27 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ToolStripButton48 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton49 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator28 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ToolStripButton51 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.Arindv9 = New CEnergy.arindv()
|
||||
Me.CodeDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.설명 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.n01 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.n02 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.n03 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.n04 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.n05 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.n06 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.n07 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.n08 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.n09 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.n10 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.bn_all.SuspendLayout()
|
||||
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'bn_all
|
||||
'
|
||||
Me.bn_all.AddNewItem = Nothing
|
||||
Me.bn_all.BindingSource = Me.bs
|
||||
Me.bn_all.CountItem = Me.ToolStripLabel6
|
||||
Me.bn_all.DeleteItem = Nothing
|
||||
Me.bn_all.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.bn_all.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.bn_all.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton44, Me.ToolStripButton45, Me.ToolStripSeparator25, Me.ToolStripTextBox6, Me.ToolStripLabel6, Me.ToolStripSeparator26, Me.ToolStripButton46, Me.ToolStripButton47, Me.ToolStripSeparator27, Me.ToolStripButton48, Me.ToolStripButton49, Me.ToolStripSeparator28, Me.ToolStripButton51})
|
||||
Me.bn_all.Location = New System.Drawing.Point(0, 384)
|
||||
Me.bn_all.MoveFirstItem = Me.ToolStripButton44
|
||||
Me.bn_all.MoveLastItem = Me.ToolStripButton47
|
||||
Me.bn_all.MoveNextItem = Me.ToolStripButton46
|
||||
Me.bn_all.MovePreviousItem = Me.ToolStripButton45
|
||||
Me.bn_all.Name = "bn_all"
|
||||
Me.bn_all.PositionItem = Me.ToolStripTextBox6
|
||||
Me.bn_all.Size = New System.Drawing.Size(654, 25)
|
||||
Me.bn_all.TabIndex = 7
|
||||
Me.bn_all.Text = "BindingNavigator1"
|
||||
'
|
||||
'bs
|
||||
'
|
||||
Me.bs.DataMember = "tbl_buha"
|
||||
Me.bs.DataSource = Me.DS
|
||||
Me.bs.Filter = "code <> '0'"
|
||||
'
|
||||
'DS
|
||||
'
|
||||
Me.DS.DataSetName = "DS"
|
||||
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
|
||||
'
|
||||
'ToolStripLabel6
|
||||
'
|
||||
Me.ToolStripLabel6.Name = "ToolStripLabel6"
|
||||
Me.ToolStripLabel6.Size = New System.Drawing.Size(29, 22)
|
||||
Me.ToolStripLabel6.Text = "/{0}"
|
||||
Me.ToolStripLabel6.ToolTipText = "전체 항목 수"
|
||||
'
|
||||
'ToolStripButton44
|
||||
'
|
||||
Me.ToolStripButton44.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton44.Image = CType(resources.GetObject("ToolStripButton44.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton44.Name = "ToolStripButton44"
|
||||
Me.ToolStripButton44.RightToLeftAutoMirrorImage = True
|
||||
Me.ToolStripButton44.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton44.Text = "처음으로 이동"
|
||||
'
|
||||
'ToolStripButton45
|
||||
'
|
||||
Me.ToolStripButton45.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton45.Image = CType(resources.GetObject("ToolStripButton45.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton45.Name = "ToolStripButton45"
|
||||
Me.ToolStripButton45.RightToLeftAutoMirrorImage = True
|
||||
Me.ToolStripButton45.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton45.Text = "이전으로 이동"
|
||||
'
|
||||
'ToolStripSeparator25
|
||||
'
|
||||
Me.ToolStripSeparator25.Name = "ToolStripSeparator25"
|
||||
Me.ToolStripSeparator25.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'ToolStripTextBox6
|
||||
'
|
||||
Me.ToolStripTextBox6.AccessibleName = "위치"
|
||||
Me.ToolStripTextBox6.AutoSize = False
|
||||
Me.ToolStripTextBox6.Name = "ToolStripTextBox6"
|
||||
Me.ToolStripTextBox6.Size = New System.Drawing.Size(50, 21)
|
||||
Me.ToolStripTextBox6.Text = "0"
|
||||
Me.ToolStripTextBox6.ToolTipText = "현재 위치"
|
||||
'
|
||||
'ToolStripSeparator26
|
||||
'
|
||||
Me.ToolStripSeparator26.Name = "ToolStripSeparator26"
|
||||
Me.ToolStripSeparator26.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'ToolStripButton46
|
||||
'
|
||||
Me.ToolStripButton46.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton46.Image = CType(resources.GetObject("ToolStripButton46.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton46.Name = "ToolStripButton46"
|
||||
Me.ToolStripButton46.RightToLeftAutoMirrorImage = True
|
||||
Me.ToolStripButton46.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton46.Text = "다음으로 이동"
|
||||
'
|
||||
'ToolStripButton47
|
||||
'
|
||||
Me.ToolStripButton47.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton47.Image = CType(resources.GetObject("ToolStripButton47.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton47.Name = "ToolStripButton47"
|
||||
Me.ToolStripButton47.RightToLeftAutoMirrorImage = True
|
||||
Me.ToolStripButton47.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton47.Text = "마지막으로 이동"
|
||||
'
|
||||
'ToolStripSeparator27
|
||||
'
|
||||
Me.ToolStripSeparator27.Name = "ToolStripSeparator27"
|
||||
Me.ToolStripSeparator27.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'ToolStripButton48
|
||||
'
|
||||
Me.ToolStripButton48.Image = CType(resources.GetObject("ToolStripButton48.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton48.Name = "ToolStripButton48"
|
||||
Me.ToolStripButton48.RightToLeftAutoMirrorImage = True
|
||||
Me.ToolStripButton48.Size = New System.Drawing.Size(67, 22)
|
||||
Me.ToolStripButton48.Text = "추가(&A)"
|
||||
'
|
||||
'ToolStripButton49
|
||||
'
|
||||
Me.ToolStripButton49.Image = CType(resources.GetObject("ToolStripButton49.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton49.Name = "ToolStripButton49"
|
||||
Me.ToolStripButton49.RightToLeftAutoMirrorImage = True
|
||||
Me.ToolStripButton49.Size = New System.Drawing.Size(67, 22)
|
||||
Me.ToolStripButton49.Text = "삭제(&D)"
|
||||
'
|
||||
'ToolStripSeparator28
|
||||
'
|
||||
Me.ToolStripSeparator28.Name = "ToolStripSeparator28"
|
||||
Me.ToolStripSeparator28.Size = New System.Drawing.Size(6, 25)
|
||||
'
|
||||
'ToolStripButton51
|
||||
'
|
||||
Me.ToolStripButton51.Image = CType(resources.GetObject("ToolStripButton51.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton51.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton51.Name = "ToolStripButton51"
|
||||
Me.ToolStripButton51.Size = New System.Drawing.Size(68, 22)
|
||||
Me.ToolStripButton51.Text = "취소(&C)"
|
||||
'
|
||||
'Arindv9
|
||||
'
|
||||
Me.Arindv9.A_DelCurrentCell = True
|
||||
Me.Arindv9.A_EnterToTab = True
|
||||
Me.Arindv9.AllowUserToAddRows = False
|
||||
Me.Arindv9.AllowUserToResizeRows = False
|
||||
Me.Arindv9.AutoGenerateColumns = False
|
||||
Me.Arindv9.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
|
||||
Me.Arindv9.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.Arindv9.ColumnHeadersHeight = 30
|
||||
Me.Arindv9.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||
Me.Arindv9.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.CodeDataGridViewTextBoxColumn, Me.설명, Me.n01, Me.n02, Me.n03, Me.n04, Me.n05, Me.n06, Me.n07, Me.n08, Me.n09, Me.n10})
|
||||
Me.Arindv9.DataSource = Me.bs
|
||||
Me.Arindv9.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Arindv9.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Arindv9.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Arindv9.MultiSelect = False
|
||||
Me.Arindv9.Name = "Arindv9"
|
||||
Me.Arindv9.RowHeadersVisible = False
|
||||
Me.Arindv9.RowTemplate.Height = 23
|
||||
Me.Arindv9.Size = New System.Drawing.Size(654, 384)
|
||||
Me.Arindv9.TabIndex = 0
|
||||
'
|
||||
'CodeDataGridViewTextBoxColumn
|
||||
'
|
||||
Me.CodeDataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
|
||||
Me.CodeDataGridViewTextBoxColumn.DataPropertyName = "code"
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.CodeDataGridViewTextBoxColumn.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.CodeDataGridViewTextBoxColumn.HeaderText = "구분"
|
||||
Me.CodeDataGridViewTextBoxColumn.Name = "CodeDataGridViewTextBoxColumn"
|
||||
Me.CodeDataGridViewTextBoxColumn.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.CodeDataGridViewTextBoxColumn.Width = 52
|
||||
'
|
||||
'설명
|
||||
'
|
||||
Me.설명.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.설명.DataPropertyName = "설명"
|
||||
Me.설명.HeaderText = "설명"
|
||||
Me.설명.Name = "설명"
|
||||
'
|
||||
'n01
|
||||
'
|
||||
Me.n01.DataPropertyName = "n01"
|
||||
Me.n01.HeaderText = "0.1"
|
||||
Me.n01.Name = "n01"
|
||||
Me.n01.Width = 49
|
||||
'
|
||||
'n02
|
||||
'
|
||||
Me.n02.DataPropertyName = "n02"
|
||||
Me.n02.HeaderText = "0.2"
|
||||
Me.n02.Name = "n02"
|
||||
Me.n02.Width = 49
|
||||
'
|
||||
'n03
|
||||
'
|
||||
Me.n03.DataPropertyName = "n03"
|
||||
Me.n03.HeaderText = "0.3"
|
||||
Me.n03.Name = "n03"
|
||||
Me.n03.Width = 49
|
||||
'
|
||||
'n04
|
||||
'
|
||||
Me.n04.DataPropertyName = "n04"
|
||||
Me.n04.HeaderText = "0.4"
|
||||
Me.n04.Name = "n04"
|
||||
Me.n04.Width = 49
|
||||
'
|
||||
'n05
|
||||
'
|
||||
Me.n05.DataPropertyName = "n05"
|
||||
Me.n05.HeaderText = "0.5"
|
||||
Me.n05.Name = "n05"
|
||||
Me.n05.Width = 49
|
||||
'
|
||||
'n06
|
||||
'
|
||||
Me.n06.DataPropertyName = "n06"
|
||||
Me.n06.HeaderText = "0.6"
|
||||
Me.n06.Name = "n06"
|
||||
Me.n06.Width = 49
|
||||
'
|
||||
'n07
|
||||
'
|
||||
Me.n07.DataPropertyName = "n07"
|
||||
Me.n07.HeaderText = "0.7"
|
||||
Me.n07.Name = "n07"
|
||||
Me.n07.Width = 49
|
||||
'
|
||||
'n08
|
||||
'
|
||||
Me.n08.DataPropertyName = "n08"
|
||||
Me.n08.HeaderText = "0.8"
|
||||
Me.n08.Name = "n08"
|
||||
Me.n08.Width = 49
|
||||
'
|
||||
'n09
|
||||
'
|
||||
Me.n09.DataPropertyName = "n09"
|
||||
Me.n09.HeaderText = "0.9"
|
||||
Me.n09.Name = "n09"
|
||||
Me.n09.Width = 49
|
||||
'
|
||||
'n10
|
||||
'
|
||||
Me.n10.DataPropertyName = "n10"
|
||||
Me.n10.HeaderText = "1.0"
|
||||
Me.n10.Name = "n10"
|
||||
Me.n10.Width = 49
|
||||
'
|
||||
'Frm_V20091231_buha
|
||||
'
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
||||
Me.ClientSize = New System.Drawing.Size(654, 409)
|
||||
Me.ControlBox = False
|
||||
Me.Controls.Add(Me.Arindv9)
|
||||
Me.Controls.Add(Me.bn_all)
|
||||
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.Name = "Frm_V20091231_buha"
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "부분부하율"
|
||||
CType(Me.bn_all, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.bn_all.ResumeLayout(False)
|
||||
Me.bn_all.PerformLayout()
|
||||
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents bn_all As System.Windows.Forms.BindingNavigator
|
||||
Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel
|
||||
Friend WithEvents ToolStripButton44 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton45 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator25 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents ToolStripTextBox6 As System.Windows.Forms.ToolStripTextBox
|
||||
Friend WithEvents ToolStripSeparator26 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents ToolStripButton46 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton47 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator27 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents ToolStripButton48 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton49 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator28 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents ToolStripButton51 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents Arindv9 As CEnergy.arindv
|
||||
Public WithEvents DS As Eco2OD.DS
|
||||
Friend WithEvents bs As System.Windows.Forms.BindingSource
|
||||
Friend WithEvents CodeDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents 설명 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents n01 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents n02 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents n03 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents n04 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents n05 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents n06 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents n07 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents n08 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents n09 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents n10 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
End Class
|
||||
252
ArinWarev1/FORM-BASIC/Frm_v20091231_buha.resx
Normal file
252
ArinWarev1/FORM-BASIC/Frm_v20091231_buha.resx
Normal file
@@ -0,0 +1,252 @@
|
||||
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="bn_all.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>286, 17</value>
|
||||
</metadata>
|
||||
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>222, 17</value>
|
||||
</metadata>
|
||||
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>370, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="ToolStripButton44.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABKklE
|
||||
QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w
|
||||
Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v
|
||||
/PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z
|
||||
+79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2
|
||||
9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr
|
||||
peWacAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton45.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAtklE
|
||||
QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN
|
||||
reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP
|
||||
ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA
|
||||
0BRgmAS6UFUAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton46.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAo0lE
|
||||
QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI
|
||||
rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz
|
||||
gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg
|
||||
gg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton47.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABLElE
|
||||
QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h
|
||||
6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T
|
||||
pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f
|
||||
MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf
|
||||
w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R
|
||||
v7O5DE6cAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton48.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABSklE
|
||||
QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS
|
||||
IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/
|
||||
q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA
|
||||
jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n
|
||||
5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw
|
||||
fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton49.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABb0lE
|
||||
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
|
||||
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
|
||||
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
|
||||
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
|
||||
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
|
||||
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
|
||||
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton51.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJ2SURBVDhPjVNdSJNhFH5bXdmFRFFeREQXRfQDJRlWZLra
|
||||
mrOIDCEqQmrlTKkoIaHZoEKK1sAVS1dYiJCaCZUkKCRL20WmrXJ61U0UXhSMuen+n97n3adkdtGBw3u+
|
||||
c57nOed83/uJv+2BEIZGIRzy9MkzSNdi5gwabL65hVgt/Y4ETn51XEfkvRfpnz+UM2aONWKI1WgZY0IW
|
||||
WwKXK5D8/A742A/0tQKvmjLOeOSNqhFD7BwRqgYuWgC/F8nuZnwqP4y2lSvgWajDQPFuTD26AXS6gF4p
|
||||
5H8LYslRZG3nyaSvB4nO+/CZC9jB6RFi/TUhFsnY/qGsGOl2Z0ak5wkSvtdqHfVOZOAYr6lAqr0B/qMm
|
||||
RZaeRXF51vlK9iDW/wLpLjeij+uBZw1IyUbjlyzEOjiBb6L2FFLuWrTlLAU7z5AH9+1ArLcDqZcPMWY5
|
||||
QkJwrPwgkhI7cdUCcgkMTtVbkbh7Hh6dDtrYdQOF2xDtbpWTuRA4YcY9IX7JvfOer8pBUmIjt6qUoBKI
|
||||
2E4icdMCb/4GJu2DBVsw3dWMZMttjJbpFVlOlktxNolLLDlKgGN8LzcibjuGUPUBDOlzMd3RiITHjtFD
|
||||
u2bJXIvrtS3LltjjIGdmBcdw4SbELpQgWmVC3G1D3HUFo+a8OWSJy5LuHCnajFhNKcghd/Yzhq1GRCsN
|
||||
iFabELLuV+NxZzW27EzywNY1iMgm4Uoj65nPSOOlGMpfi+g5TUSCvug3onN5Npp0C/B0yWIM71yHyNm9
|
||||
qk7s7EWiyQd1lVkIn8mA/uVhi16RiSVHo2eMCapyNHb7VrododNFyhkzxxox88h/mvZO/vN3FuI3yXDJ
|
||||
RlfZIFMAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="설명.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="n01.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="n02.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="n03.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="n04.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="n05.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="n06.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="n07.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="n08.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="n09.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="n10.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>38</value>
|
||||
</metadata>
|
||||
</root>
|
||||
130
ArinWarev1/FORM-BASIC/Frm_v20091231_buha.vb
Normal file
130
ArinWarev1/FORM-BASIC/Frm_v20091231_buha.vb
Normal file
@@ -0,0 +1,130 @@
|
||||
Public Class Frm_V20091231_buha
|
||||
|
||||
#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 MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
Select Case e.KeyCode
|
||||
Case Keys.F12
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.부분부하율)
|
||||
'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me)
|
||||
'//프로필 관련
|
||||
|
||||
'//공유데이터셋에 연결한다.
|
||||
Me.bs.DataSource = DSET1
|
||||
|
||||
'//냉방기기
|
||||
AddHandler DSET1.tbl_buha.TableNewRow, AddressOf AddNewDataRow_nangbangkiki
|
||||
|
||||
'//콤보컨트롤 바인딩
|
||||
Binding_Zone()
|
||||
|
||||
Try
|
||||
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
|
||||
Catch ex As Exception
|
||||
Me.bs.MoveFirst()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
#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 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
|
||||
|
||||
Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
|
||||
If e.KeyCode = Keys.Delete Then
|
||||
CType(sender, ComboBox).SelectedValue = ""
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Binding_Zone()
|
||||
'//냉동기기
|
||||
'Dim bs_냉동기방식ComboBox As New BindingSource(DSET, "tbl_common")
|
||||
'bs_냉동기방식ComboBox.Filter = "gubun='1046'"
|
||||
'Me.냉동기방식ComboBox.DataSource = bs_냉동기방식ComboBox
|
||||
'냉동기방식ComboBox.DisplayMember = "name"
|
||||
'냉동기방식ComboBox.ValueMember = "code"
|
||||
'Me.냉동기방식ComboBox.DataBindings.Add("text", Me.bs, "냉동기방식")
|
||||
'AddHandler 냉동기방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal
|
||||
|
||||
End Sub
|
||||
Private Sub AddNewDataRow_nangbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.tbl_buha)
|
||||
End Sub
|
||||
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton48.Click
|
||||
|
||||
If Not EndEdit(Me.bs) Then Return
|
||||
Me.bs.AddNew()
|
||||
|
||||
End Sub
|
||||
Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton49.Click
|
||||
|
||||
DbBase.DelCrow(Me.bs, True)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton51.Click
|
||||
|
||||
If Not EndEdit(Me.bs) Then Return
|
||||
Data_Cancel(DSET1.tbl_buha, Nothing)
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
|
||||
Me.bs.EndEdit()
|
||||
End Sub
|
||||
|
||||
Private Sub Arindv9_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Arindv9.CellContentClick
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
93
ArinWarev1/FORM-BASIC/LoginForm1.Designer.vb
generated
Normal file
93
ArinWarev1/FORM-BASIC/LoginForm1.Designer.vb
generated
Normal file
@@ -0,0 +1,93 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
<Global.System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Naming", "CA1726")> _
|
||||
Partial Class LoginForm1
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
Friend WithEvents PasswordLabel As System.Windows.Forms.Label
|
||||
Friend WithEvents tbPass As System.Windows.Forms.TextBox
|
||||
Friend WithEvents OK As System.Windows.Forms.Button
|
||||
Friend WithEvents Cancel As System.Windows.Forms.Button
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기를 사용하여 수정하지 마십시오.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.PasswordLabel = New System.Windows.Forms.Label()
|
||||
Me.tbPass = New System.Windows.Forms.TextBox()
|
||||
Me.OK = New System.Windows.Forms.Button()
|
||||
Me.Cancel = New System.Windows.Forms.Button()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'PasswordLabel
|
||||
'
|
||||
Me.PasswordLabel.Location = New System.Drawing.Point(10, 11)
|
||||
Me.PasswordLabel.Name = "PasswordLabel"
|
||||
Me.PasswordLabel.Size = New System.Drawing.Size(220, 23)
|
||||
Me.PasswordLabel.TabIndex = 2
|
||||
Me.PasswordLabel.Text = "암호(&P)"
|
||||
Me.PasswordLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'tbPass
|
||||
'
|
||||
Me.tbPass.Location = New System.Drawing.Point(12, 31)
|
||||
Me.tbPass.Name = "tbPass"
|
||||
Me.tbPass.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
|
||||
Me.tbPass.Size = New System.Drawing.Size(220, 21)
|
||||
Me.tbPass.TabIndex = 3
|
||||
'
|
||||
'OK
|
||||
'
|
||||
Me.OK.Location = New System.Drawing.Point(12, 61)
|
||||
Me.OK.Name = "OK"
|
||||
Me.OK.Size = New System.Drawing.Size(94, 23)
|
||||
Me.OK.TabIndex = 4
|
||||
Me.OK.Text = "확인(&O)"
|
||||
'
|
||||
'Cancel
|
||||
'
|
||||
Me.Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
||||
Me.Cancel.Location = New System.Drawing.Point(138, 61)
|
||||
Me.Cancel.Name = "Cancel"
|
||||
Me.Cancel.Size = New System.Drawing.Size(94, 23)
|
||||
Me.Cancel.TabIndex = 5
|
||||
Me.Cancel.Text = "취소(&C)"
|
||||
'
|
||||
'LoginForm1
|
||||
'
|
||||
Me.AcceptButton = Me.OK
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.CancelButton = Me.Cancel
|
||||
Me.ClientSize = New System.Drawing.Size(239, 100)
|
||||
Me.Controls.Add(Me.Cancel)
|
||||
Me.Controls.Add(Me.OK)
|
||||
Me.Controls.Add(Me.tbPass)
|
||||
Me.Controls.Add(Me.PasswordLabel)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "LoginForm1"
|
||||
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
|
||||
Me.Text = "Login"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
120
ArinWarev1/FORM-BASIC/LoginForm1.resx
Normal file
120
ArinWarev1/FORM-BASIC/LoginForm1.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?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>
|
||||
</root>
|
||||
26
ArinWarev1/FORM-BASIC/LoginForm1.vb
Normal file
26
ArinWarev1/FORM-BASIC/LoginForm1.vb
Normal file
@@ -0,0 +1,26 @@
|
||||
Public Class LoginForm1
|
||||
|
||||
' TODO: 제공된 사용자 이름과 암호를 사용하여 사용자 지정 인증을 수행하는 코드를 삽입합니다
|
||||
' (자세한 내용은 http://go.microsoft.com/fwlink/?LinkId=35339 참조).
|
||||
' 그러면 사용자 지정 보안 주체가 현재 스레드의 보안 주체에 다음과 같이 첨부될 수 있습니다.
|
||||
' My.User.CurrentPrincipal = CustomPrincipal
|
||||
' 여기서 CustomPrincipal은 인증을 수행하는 데 사용되는 IPrincipal이 구현된 것입니다.
|
||||
' 나중에 My.User는 CustomPrincipal 개체에 캡슐화된 사용자 이름, 표시 이름 등의
|
||||
' ID 정보를 반환합니다.
|
||||
|
||||
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
|
||||
|
||||
Dim pass As String = Now.ToString("MMdd")
|
||||
pass = pass.Substring(3, 1) + pass.Substring(2, 1) + pass.Substring(1, 1) + pass.Substring(0, 1)
|
||||
If tbPass.Text = pass Then
|
||||
DialogResult = Windows.Forms.DialogResult.OK
|
||||
Else
|
||||
tbPass.SelectAll()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
85
ArinWarev1/FORM-BASIC/fSelectArea.Designer.vb
generated
Normal file
85
ArinWarev1/FORM-BASIC/fSelectArea.Designer.vb
generated
Normal file
@@ -0,0 +1,85 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class fSelectArea
|
||||
Inherits CForm
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows Form 디자이너에 필요합니다.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
|
||||
'수정하려면 Windows Form 디자이너를 사용하십시오.
|
||||
'코드 편집기에서는 수정하지 마세요.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(fSelectArea))
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("맑은 고딕", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(21, 16)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(284, 60)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "기상데이터 지역목록 입니다." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "적용할 지역을 선택 하세요"
|
||||
'
|
||||
'ComboBox1
|
||||
'
|
||||
Me.ComboBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.ComboBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.ComboBox1.Font = New System.Drawing.Font("맑은 고딕", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.ComboBox1.FormattingEnabled = True
|
||||
Me.ComboBox1.Location = New System.Drawing.Point(26, 96)
|
||||
Me.ComboBox1.Name = "ComboBox1"
|
||||
Me.ComboBox1.Size = New System.Drawing.Size(291, 40)
|
||||
Me.ComboBox1.TabIndex = 1
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Font = New System.Drawing.Font("맑은 고딕", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.Button1.Location = New System.Drawing.Point(26, 151)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(291, 40)
|
||||
Me.Button1.TabIndex = 2
|
||||
Me.Button1.Text = "확 인"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'fSelectArea
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(341, 209)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.ComboBox1)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Font = New System.Drawing.Font("맑은 고딕", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "fSelectArea"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "적용 지역 선택"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents ComboBox1 As ComboBox
|
||||
Friend WithEvents Button1 As Button
|
||||
End Class
|
||||
6293
ArinWarev1/FORM-BASIC/fSelectArea.resx
Normal file
6293
ArinWarev1/FORM-BASIC/fSelectArea.resx
Normal file
File diff suppressed because it is too large
Load Diff
18
ArinWarev1/FORM-BASIC/fSelectArea.vb
Normal file
18
ArinWarev1/FORM-BASIC/fSelectArea.vb
Normal file
@@ -0,0 +1,18 @@
|
||||
Public Class fSelectArea
|
||||
Private Sub fSelectArea_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
ComboBox1.Items.Clear()
|
||||
ComboBox1.DataSource = DSET1.tbl_weather_od
|
||||
ComboBox1.DisplayMember = "건물위치"
|
||||
ComboBox1.ValueMember = "code"
|
||||
If ComboBox1.Items.Count > 0 Then ComboBox1.SelectedIndex = 0
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
If ComboBox1.SelectedIndex < 0 Then
|
||||
MsgBox("선택하지 않았습니다", MsgBoxStyle.Critical, "확인")
|
||||
Return
|
||||
End If
|
||||
|
||||
DialogResult = DialogResult.OK
|
||||
End Sub
|
||||
End Class
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user