123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104 |
- Public Class 適應症選擇
- Private Sub Set_適應症設定()
- Dim ds2 As New DataSet
- 適應症_dgv.DataSource = Nothing : ds2.Clear()
- 適應症_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 適應症_dgv.ColumnHeadersHeight = 25 : 適應症_dgv.AllowUserToAddRows = False
- SQL_適應症設定()
- da.Fill(ds2) : 適應症_dgv.DataSource = ds2.Tables(0) : conn.Close()
- 適應症_dgv.Columns(0).FillWeight = 30
- 適應症選擇()
- End Sub
- Private Sub SQL_下拉清單載入1()
- SQL_適應症主清單1() : 病症_cb.Items.Clear() : While (dr.Read()) : 病症_cb.Items.Add(dr("適應症")) : End While : conn.Close()
- End Sub
- Private Sub SQL_下拉清單載入2()
- SQL_適應症主清單2() : 療程_cb.Items.Clear() : While (dr.Read()) : 療程_cb.Items.Add(dr("治療建議")) : End While : conn.Close()
- End Sub
- Private Sub 適應症選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- 適應症_dgv.SendToBack() : Set_適應症設定() : SQL_下拉清單載入1()
- End Sub
- Private Sub 適應症選擇_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
- 醫生_tb.Text = PA
- End Sub
- Private Sub 適應症選擇_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
- LoginForm1.Close()
- End Sub
- Private Sub 適應症選擇()
- TreeView1.Nodes.Clear() : Dim 主項數量 As Integer = -1 : Dim 症狀 As String = ""
- For I As Integer = 0 To 適應症_dgv.Rows.Count - 1
- If 症狀 <> 適應症_dgv("適應症", I).Value.ToString Then
- TreeView1.Nodes.Add(適應症_dgv("適應症", I).Value.ToString) : 症狀 = 適應症_dgv("適應症", I).Value.ToString : 主項數量 += 1
- End If
- If 症狀 = 適應症_dgv("適應症", I).Value.ToString Then
- TreeView1.Nodes(主項數量).Nodes.Add(適應症_dgv("治療建議", I).Value.ToString)
- End If
- Next
- End Sub
- Private Sub TreeView1_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick ' 判斷是否點擊在 CheckBox 的範圍內
- If e.Node.Bounds.Contains(e.Location) Then ' 判斷是否為第二層節點
- If e.Node.Parent IsNot Nothing Then : e.Node.Checked = Not e.Node.Checked : End If ' 切換 CheckBox 的勾選狀態
- Else ' 如果是第一層節點,判斷是否已經展開
- If e.Node.IsExpanded Then : e.Node.Expand() ' 如果已經展開,則收合
- Else : e.Node.Collapse() : End If ' 如果未展開,則展開
- End If
- End Sub
- Private Sub CheckChildNodes(parentNode As TreeNode)
- For Each childNode As TreeNode In parentNode.Nodes
- If childNode.Checked Then : PA1 = childNode.Text : SQL_銷售明細新增() : End If
- If childNode.Nodes.Count > 0 Then : CheckChildNodes(childNode) : End If ' 如果有子節點,遞迴檢查
- Next
- End Sub
- Private Sub 確認_bt_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
- If 病歷號_tb.Text = "" Then
- MsgBox("病歷號 沒有填寫!!")
- Else
- Dim 流水號 As String = "" : Dim 流水 As Integer : SQL_查詢銷售()
- If dr.Read Then
- PA = dr("流水號").ToString : SQL_銷售明細刪除()
- For Each parentNode As TreeNode In TreeView1.Nodes : CheckChildNodes(parentNode) : Next
- Else
- SQL_銷售流水號()
- If dr.Read() Then : 流水 = Double.Parse(Strings.Right(dr("流水號").ToString, 8)) : Else : 流水 = 0 : End If : conn.Close() : 流水 += 1
- If 流水 < 10 Then : 流水號 = "PO" & "0000000" & 流水
- ElseIf 流水 > 9 And 流水 < 100 Then : 流水號 = "PO" & "000000" & 流水
- ElseIf 流水 > 99 And 流水 < 1000 Then : 流水號 = "PO" & "00000" & 流水
- ElseIf 流水 > 999 And 流水 < 10000 Then : 流水號 = "PO" & "0000" & 流水
- ElseIf 流水 > 9999 And 流水 < 100000 Then : 流水號 = "PO" & "000" & 流水
- ElseIf 流水 > 99999 And 流水 < 1000000 Then : 流水號 = "PO" & "00" & 流水
- ElseIf 流水 > 999999 And 流水 < 10000000 Then : 流水號 = "PO" & "0" & 流水
- ElseIf 流水 > 9999999 Then : 流水號 = "PO" & 流水 : End If : PA = 流水號
- SQL_銷售控制新增() : SQL_銷售明細刪除()
- For Each parentNode As TreeNode In TreeView1.Nodes : CheckChildNodes(parentNode) : Next
- End If
- MsgBox("資料傳遞 至 業務系統 完成!!")
- 病歷號_tb.Text = "" : 適應症選擇()
- End If
- End Sub
- Private Sub 病症_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 病症_cb.SelectedIndexChanged
- 療程_cb.Text = "" : SQL_下拉清單載入2()
- End Sub
- Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
- If 病症_cb.Text = "" Or 病症_cb.Text = "" Then : MsgBox("資料空白無法執行!!") : Else
- SQL_適應症流水()
- If dr.Read Then : MsgBox("資料已存在不需要重複新增!!") : Else
- Dim 流水號 As String = "" : Dim 流水 As Integer
- SQL_適應症流水1()
- If dr.Read() Then : 流水 = Double.Parse(Strings.Right(dr("流水號").ToString, 8)) : Else : 流水 = 0 : End If : conn.Close() : 流水 += 1
- If 流水 < 10 Then : 流水號 = "IN" & "0000000" & 流水
- ElseIf 流水 > 9 And 流水 < 100 Then : 流水號 = "IN" & "000000" & 流水
- ElseIf 流水 > 99 And 流水 < 1000 Then : 流水號 = "IN" & "00000" & 流水
- ElseIf 流水 > 999 And 流水 < 10000 Then : 流水號 = "IN" & "0000" & 流水
- ElseIf 流水 > 9999 And 流水 < 100000 Then : 流水號 = "IN" & "000" & 流水
- ElseIf 流水 > 99999 And 流水 < 1000000 Then : 流水號 = "IN" & "00" & 流水
- ElseIf 流水 > 999999 And 流水 < 10000000 Then : 流水號 = "IN" & "0" & 流水
- ElseIf 流水 > 9999999 Then : 流水號 = "IN" & 流水 : End If : PA = 流水號
- SQL_適應症新增1() : Set_適應症設定()
- End If
- End If
- End Sub
- Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
- Dim cc As MsgBoxResult = MsgBox("確定要刪除這筆適應症資料嗎??", MsgBoxStyle.OkCancel)
- If cc = MsgBoxResult.Ok Then : SQL_適應症刪除1() : Set_適應症設定() : End If
- End Sub
- End Class
|