user id DB로그인 안되게 수정
디버깅이안되는 현상 있음
This commit is contained in:
chi
@@ -76,6 +76,12 @@ Public Class Frm_V20091231_Weather
|
||||
AddHandler DSET1.weather_supdo.TableNewRow, AddressOf AddNewDataRow_Weathersupdo
|
||||
AddHandler DSET1.weather_cha.TableNewRow, AddressOf AddNewDataRow_WeatherCha
|
||||
|
||||
AddHandler DSET1.weather_wind.TableNewRow, AddressOf AddNewDataRow_WeatherWind
|
||||
AddHandler DSET1.weather_river.TableNewRow, AddressOf AddNewDataRow_WeatherRiver
|
||||
AddHandler DSET1.weather_water.TableNewRow, AddressOf AddNewDataRow_WeatherWater
|
||||
|
||||
|
||||
|
||||
AddHandler DSET1.weather_group.TableNewRow, AddressOf AddNewDataRow_WeatherGrp
|
||||
|
||||
AddHandler dvArea1.CellContentClick, AddressOf dv_cellcontclick
|
||||
@@ -88,11 +94,22 @@ Public Class Frm_V20091231_Weather
|
||||
Me.bsw_supdo.DataSource = DSET1
|
||||
Me.bsw_temp.DataSource = DSET1
|
||||
Me.bsw_cha.DataSource = DSET1
|
||||
Me.bsw_river.DataSource = DSET1
|
||||
Me.bsw_water.DataSource = DSET1
|
||||
Me.bsw_wind.DataSource = DSET1
|
||||
|
||||
Me.bsWGDep1.DataSource = DSET1
|
||||
Me.bsWGDep2.DataSource = DSET1
|
||||
Me.bsWGDep3.DataSource = DSET1
|
||||
|
||||
If bsw_water.Count = 0 Then
|
||||
Dim newdr As DS.weather_waterRow = DSET1.weather_water.Newweather_waterRow()
|
||||
newdr.pcode = "0"
|
||||
newdr.code = "0000"
|
||||
DSET1.weather_water.Addweather_waterRow(newdr)
|
||||
DSET1.weather_water.AcceptChanges()
|
||||
End If
|
||||
|
||||
'//콤보컨트롤 바인딩
|
||||
Me.bn_all.BindingSource = Me.bs
|
||||
Me.bs = Me.bs
|
||||
@@ -124,6 +141,7 @@ Public Class Frm_V20091231_Weather
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.tbl_weather)
|
||||
End Sub
|
||||
Private Sub AddNewDataRow_Weatherilsa(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
||||
If bs.Current Is Nothing Then Return
|
||||
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
|
||||
|
||||
'//일사데이터는 0001로부터하게한다
|
||||
@@ -138,17 +156,39 @@ Public Class Frm_V20091231_Weather
|
||||
e.Row.Item("code") = Newcode
|
||||
End Sub
|
||||
Private Sub AddNewDataRow_Weathertemp(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
||||
If bs.Current Is Nothing Then Return
|
||||
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.weather_temp)
|
||||
End Sub
|
||||
Private Sub AddNewDataRow_Weathersupdo(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
||||
If bs.Current Is Nothing Then Return
|
||||
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.weather_supdo)
|
||||
End Sub
|
||||
Private Sub AddNewDataRow_WeatherCha(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
||||
If bs.Current Is Nothing Then Return
|
||||
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.weather_cha)
|
||||
End Sub
|
||||
|
||||
Private Sub AddNewDataRow_WeatherWind(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
||||
If bs.Current Is Nothing Then Return
|
||||
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.weather_wind)
|
||||
End Sub
|
||||
|
||||
Private Sub AddNewDataRow_WeatherRiver(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
||||
If bs.Current Is Nothing Then Return
|
||||
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.weather_river)
|
||||
End Sub
|
||||
|
||||
Private Sub AddNewDataRow_WeatherWater(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
||||
e.Row.Item("pcode") = "0" ' CType(bs.Current, DataRowView)("code")
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.weather_water)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function GetMaxCode(ByVal dt As DataTable) As String
|
||||
Try
|
||||
Dim Dr As DataRow = dt.Select("", "code desc")(0)
|
||||
@@ -168,17 +208,28 @@ Public Class Frm_V20091231_Weather
|
||||
End Sub
|
||||
|
||||
Private Sub bt_save_weather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
|
||||
If Not EndEdit(Me.bs) Then Return
|
||||
If Not EndEdit(Me.bsw_supdo) Then Return
|
||||
If Not EndEdit(Me.bsw_ilsa) Then Return
|
||||
If Not EndEdit(Me.bsw_temp) Then Return
|
||||
If Not EndEdit(Me.bsw_cha) Then Return
|
||||
|
||||
If Not EndEdit(Me.bsw_wind) Then Return
|
||||
If Not EndEdit(Me.bsw_river) Then Return
|
||||
If Not EndEdit(Me.bsw_water) Then Return
|
||||
|
||||
|
||||
Check_Modify(Me.DS1.tbl_weather)
|
||||
Check_Modify(Me.DS1.weather_ilsa, False)
|
||||
Check_Modify(Me.DS1.weather_supdo, False)
|
||||
Check_Modify(Me.DS1.weather_temp, False)
|
||||
Check_Modify(Me.DS1.weather_cha, False)
|
||||
|
||||
Check_Modify(Me.DS1.weather_wind, False)
|
||||
Check_Modify(Me.DS1.weather_river, False)
|
||||
Check_Modify(Me.DS1.weather_water, False)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
|
||||
@@ -190,6 +241,9 @@ Public Class Frm_V20091231_Weather
|
||||
Me.bsw_temp.Filter = "pcode='" & pcode & "'"
|
||||
Me.bsw_supdo.Filter = "pcode='" & pcode & "'"
|
||||
Me.bsw_cha.Filter = "pcode='" & pcode & "'"
|
||||
Me.bsw_wind.Filter = "pcode='" & pcode & "'"
|
||||
Me.bsw_river.Filter = "pcode='" & pcode & "'"
|
||||
Me.bsw_water.Filter = ""
|
||||
|
||||
If DSET1.weather_temp.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then
|
||||
For i As Integer = 1 To 12
|
||||
@@ -212,8 +266,30 @@ Public Class Frm_V20091231_Weather
|
||||
Else
|
||||
'MsgBox(Me.bsw_supdo.Count)
|
||||
End If
|
||||
|
||||
If DSET1.weather_wind.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then
|
||||
Dim Dr As DS.weather_windRow = DSET1.weather_wind.Newweather_windRow()
|
||||
Dr.code = "0"
|
||||
Dr.설명 = ""
|
||||
DSET1.weather_wind.Addweather_windRow(Dr)
|
||||
Else
|
||||
'MsgBox(Me.bsw_supdo.Count)
|
||||
End If
|
||||
|
||||
If DSET1.weather_river.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then
|
||||
Dim Dr As DS.weather_riverRow = DSET1.weather_river.Newweather_riverRow()
|
||||
Dr.code = "0"
|
||||
Dr.설명 = ""
|
||||
DSET1.weather_river.Addweather_riverRow(Dr)
|
||||
Else
|
||||
'MsgBox(Me.bsw_supdo.Count)
|
||||
End If
|
||||
|
||||
Me.DS1.weather_temp.AcceptChanges()
|
||||
Me.DS1.weather_supdo.AcceptChanges()
|
||||
Me.DS1.weather_river.AcceptChanges()
|
||||
Me.DS1.weather_wind.AcceptChanges()
|
||||
Me.DS1.weather_water.AcceptChanges()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -288,6 +364,11 @@ Public Class Frm_V20091231_Weather
|
||||
DSET1.weather_supdo.RejectChanges()
|
||||
DSET1.weather_temp.RejectChanges()
|
||||
|
||||
DSET1.weather_wind.RejectChanges()
|
||||
DSET1.weather_river.RejectChanges()
|
||||
DSET1.weather_water.RejectChanges()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub tb_t1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_t1.KeyDown
|
||||
@@ -566,7 +647,7 @@ Public Class Frm_V20091231_Weather
|
||||
e.SuppressKeyPress = False
|
||||
'//클립보드붙여넣기
|
||||
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
|
||||
If CB.GetUpperBound(0) < 11 Then
|
||||
If CB.GetUpperBound(0) < 12 Then
|
||||
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
|
||||
Return
|
||||
End If
|
||||
@@ -578,10 +659,10 @@ Public Class Frm_V20091231_Weather
|
||||
'MsgBox(CB.GetUpperBound(0))
|
||||
|
||||
Dim Cnt As Short = 0
|
||||
For i As Integer = 0 To CB.GetUpperBound(0)
|
||||
For i As Integer = 1 To CB.GetUpperBound(0)
|
||||
Select Case i
|
||||
Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
'//Me.tb_c01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Me.tb_c01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_c02.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
@@ -602,7 +683,7 @@ Public Class Frm_V20091231_Weather
|
||||
Me.tb_c10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_c11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_c12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
|
||||
End Select
|
||||
@@ -654,35 +735,33 @@ Public Class Frm_V20091231_Weather
|
||||
Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_wnaen.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
'Me.tb_c03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_w01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_w02.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_w03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_w04.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_w05.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_w06.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_w07.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_w08.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_w09.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_w10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 13 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_w11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 14 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Case 13 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tb_w12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
|
||||
End Select
|
||||
Next
|
||||
If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동
|
||||
'If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동
|
||||
Next
|
||||
Me.bsw_cha.EndEdit()
|
||||
End If
|
||||
@@ -753,6 +832,10 @@ Public Class Frm_V20091231_Weather
|
||||
DSET1.weather_temp.Clear()
|
||||
DSET1.weather_supdo.Clear()
|
||||
|
||||
DSET1.weather_wind.Clear()
|
||||
DSET1.weather_river.Clear()
|
||||
DSET1.weather_water.Clear()
|
||||
|
||||
Dim Rng As Excel.Range = xlSheet1.Range("B3") '//Offset으로사용할것이므로 0,0셀을 선택한다
|
||||
|
||||
Dim newdr0 As DS.tbl_weatherRow = DSET1.tbl_weather.NewRow
|
||||
@@ -1173,6 +1256,11 @@ Public Class Frm_V20091231_Weather
|
||||
'DSET1.weather_ilsa.Merge(DSET1.weather_ilsa)
|
||||
'DSET1.weather_supdo.Merge(DSET1.weather_supdo)
|
||||
'DSET1.weather_temp.Merge(DSET1.weather_temp)
|
||||
Me.Validate()
|
||||
Me.bsw_river.EndEdit()
|
||||
Me.bsw_water.EndEdit()
|
||||
Me.bsw_wind.EndEdit()
|
||||
|
||||
|
||||
'모든파일을 저장한다.
|
||||
Dim SelectedPath As String = AppDomain.CurrentDomain.BaseDirectory + "Data"
|
||||
@@ -1182,6 +1270,9 @@ Public Class Frm_V20091231_Weather
|
||||
Dim file4 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_temp.TableName + ".xml")
|
||||
Dim file5 As String = System.IO.Path.Combine(SelectedPath, DSET1.tbl_weather.TableName + ".xml")
|
||||
Dim file6 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_group.TableName + ".xml")
|
||||
Dim file7 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_wind.TableName + ".xml")
|
||||
Dim file8 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_river.TableName + ".xml")
|
||||
Dim file9 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_water.TableName + ".xml")
|
||||
|
||||
DSET1.weather_cha.WriteXml(file1)
|
||||
DSET1.weather_ilsa.WriteXml(file2)
|
||||
@@ -1189,7 +1280,9 @@ Public Class Frm_V20091231_Weather
|
||||
DSET1.weather_temp.WriteXml(file4)
|
||||
DSET1.tbl_weather.WriteXml(file5)
|
||||
DSET1.weather_group.WriteXml(file6)
|
||||
|
||||
DSET1.weather_wind.WriteXml(file7)
|
||||
DSET1.weather_river.WriteXml(file8)
|
||||
DSET1.weather_water.WriteXml(file9)
|
||||
|
||||
file1 = System.IO.Path.Combine(SelectedPath, DSET1.weather_cha.TableName + ".dat")
|
||||
file2 = System.IO.Path.Combine(SelectedPath, DSET1.weather_ilsa.TableName + ".dat")
|
||||
@@ -1197,6 +1290,9 @@ Public Class Frm_V20091231_Weather
|
||||
file4 = System.IO.Path.Combine(SelectedPath, DSET1.weather_temp.TableName + ".dat")
|
||||
file5 = System.IO.Path.Combine(SelectedPath, DSET1.tbl_weather.TableName + ".dat")
|
||||
file6 = System.IO.Path.Combine(SelectedPath, DSET1.weather_group.TableName + ".dat")
|
||||
file7 = System.IO.Path.Combine(SelectedPath, DSET1.weather_wind.TableName + ".dat")
|
||||
file8 = System.IO.Path.Combine(SelectedPath, DSET1.weather_river.TableName + ".dat")
|
||||
file9 = System.IO.Path.Combine(SelectedPath, DSET1.weather_water.TableName + ".dat")
|
||||
|
||||
|
||||
'//암호화
|
||||
@@ -1205,11 +1301,15 @@ Public Class Frm_V20091231_Weather
|
||||
Serialize(file3, DSET1.weather_supdo)
|
||||
Serialize(file4, DSET1.weather_temp)
|
||||
Serialize(file5, DSET1.tbl_weather)
|
||||
Serialize(file6, DSET1.weather_group)
|
||||
Serialize(file7, DSET1.weather_wind)
|
||||
Serialize(file8, DSET1.weather_river)
|
||||
Serialize(file9, DSET1.weather_water)
|
||||
|
||||
Using stm As System.IO.Stream = System.IO.File.Open(file6, System.IO.FileMode.Create, System.IO.FileAccess.Write)
|
||||
Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
|
||||
bf.Serialize(stm, DSET1.weather_group)
|
||||
End Using
|
||||
'Using stm As System.IO.Stream = System.IO.File.Open(file6, System.IO.FileMode.Create, System.IO.FileAccess.Write)
|
||||
' Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
|
||||
' bf.Serialize(stm, DSET1.weather_group)
|
||||
'End Using
|
||||
|
||||
|
||||
'Serialize(file6, DSET1.weather_group)
|
||||
@@ -1219,16 +1319,34 @@ Public Class Frm_V20091231_Weather
|
||||
|
||||
Sub Serialize(filename As String, data As Object)
|
||||
|
||||
Using stm As System.IO.Stream = System.IO.File.Open(filename, System.IO.FileMode.Create, System.IO.FileAccess.Write)
|
||||
Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
|
||||
bf.Serialize(stm, data)
|
||||
End Using
|
||||
Dim ms As New System.IO.MemoryStream()
|
||||
' Using stm As System.IO.Stream = System.IO.File.Open(filename, System.IO.FileMode.Create, System.IO.FileAccess.Write)
|
||||
Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
|
||||
bf.Serialize(ms, data)
|
||||
' End Using
|
||||
Dim len As UInt32 = ms.Length
|
||||
Dim bodybuf(len - 1) As Byte
|
||||
Array.Copy(ms.GetBuffer(), bodybuf, len)
|
||||
Dim compbuf() As Byte
|
||||
Utility.MiniLZO.Compress(bodybuf, compbuf)
|
||||
|
||||
'Dim decombuf(bodybuf.Length - 1) As Byte
|
||||
'Utility.MiniLZO.Decompress(compbuf, decombuf)
|
||||
'67682 -> 304964
|
||||
|
||||
Dim complen As UInt32 = compbuf.Length
|
||||
|
||||
Dim fs As New System.IO.FileStream(filename, IO.FileMode.Create)
|
||||
Dim lenbuf() As Byte = BitConverter.GetBytes(bodybuf.Length) '//read body data
|
||||
fs.Write(lenbuf, 0, lenbuf.Length) 'write file length
|
||||
|
||||
'Dim body() As Byte = ms.GetBuffer()
|
||||
fs.Write(compbuf, 0, complen) 'write body
|
||||
fs.Flush()
|
||||
fs.Dispose()
|
||||
ms.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ToolStripButton13_Click(sender As Object, e As EventArgs) Handles ToolStripButton13.Click
|
||||
Dim sd As New FolderBrowserDialog()
|
||||
If sd.ShowDialog() = DialogResult.OK Then
|
||||
@@ -1238,6 +1356,9 @@ Public Class Frm_V20091231_Weather
|
||||
DSET1.weather_supdo.Clear()
|
||||
DSET1.weather_temp.Clear()
|
||||
DSET1.weather_group.Clear()
|
||||
DSET1.weather_wind.Clear()
|
||||
DSET1.weather_river.Clear()
|
||||
DSET1.weather_water.Clear()
|
||||
DSET1.tbl_weather.Clear()
|
||||
|
||||
DSET1.weather_cha.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_cha.TableName + ".xml"))
|
||||
@@ -1248,6 +1369,10 @@ Public Class Frm_V20091231_Weather
|
||||
|
||||
DSET1.weather_group.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_group.TableName + ".xml"))
|
||||
|
||||
DSET1.weather_wind.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_wind.TableName + ".xml"))
|
||||
DSET1.weather_river.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_river.TableName + ".xml"))
|
||||
DSET1.weather_water.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_water.TableName + ".xml"))
|
||||
|
||||
|
||||
'//od는 od 데이터에 다시 옴겨야한다
|
||||
DSET1.weather_cha.AcceptChanges()
|
||||
@@ -1258,8 +1383,177 @@ Public Class Frm_V20091231_Weather
|
||||
|
||||
DSET1.weather_group.AcceptChanges()
|
||||
|
||||
DSET1.weather_wind.AcceptChanges()
|
||||
DSET1.weather_river.AcceptChanges()
|
||||
DSET1.weather_water.AcceptChanges()
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MyTb33_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles tbw01.KeyDown
|
||||
If e.KeyCode = Keys.V And e.Control Then
|
||||
|
||||
e.Handled = True
|
||||
e.SuppressKeyPress = False
|
||||
'//클립보드붙여넣기
|
||||
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
|
||||
If CB.GetUpperBound(0) < 12 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() '//한줄추가
|
||||
|
||||
'MsgBox(CB.GetUpperBound(0))
|
||||
|
||||
Dim Cnt As Short = 0
|
||||
For i As Integer = 1 To CB.GetUpperBound(0)
|
||||
Select Case i
|
||||
Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbw01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbw02.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbw03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbw04.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbw05.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbw06.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbw07.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbw08.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbw09.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbw10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbw11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbw12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
|
||||
End Select
|
||||
Next
|
||||
'//If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동
|
||||
Next
|
||||
Me.bsw_water.EndEdit()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MyTb21_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles tbr01.KeyDown
|
||||
''river
|
||||
If e.KeyCode = Keys.V And e.Control Then
|
||||
|
||||
e.Handled = True
|
||||
e.SuppressKeyPress = False
|
||||
'//클립보드붙여넣기
|
||||
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
|
||||
If CB.GetUpperBound(0) < 12 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() '//한줄추가
|
||||
|
||||
'MsgBox(CB.GetUpperBound(0))
|
||||
|
||||
Dim Cnt As Short = 0
|
||||
For i As Integer = 1 To CB.GetUpperBound(0)
|
||||
Select Case i
|
||||
Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbr01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbr02.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbr03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbr04.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbr05.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbr06.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbr07.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbr08.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbr09.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbr10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbr11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbr12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
|
||||
End Select
|
||||
Next
|
||||
'//If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동
|
||||
Next
|
||||
Me.bsw_river.EndEdit()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MyTb9_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles tbwi01.KeyDown
|
||||
''wind\
|
||||
If e.KeyCode = Keys.V And e.Control Then
|
||||
|
||||
e.Handled = True
|
||||
e.SuppressKeyPress = False
|
||||
'//클립보드붙여넣기
|
||||
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
|
||||
If CB.GetUpperBound(0) < 12 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() '//한줄추가
|
||||
|
||||
'MsgBox(CB.GetUpperBound(0))
|
||||
|
||||
Dim Cnt As Short = 0
|
||||
For i As Integer = 1 To CB.GetUpperBound(0)
|
||||
Select Case i
|
||||
Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbwi01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbwi02.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbwi03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbwi04.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbwi05.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbwi06.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbwi07.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbwi08.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbwi09.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbwi10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbwi11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
|
||||
Me.tbwi12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
|
||||
End Select
|
||||
Next
|
||||
'//If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동
|
||||
Next
|
||||
Me.bsw_wind.EndEdit()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user