HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/05、業務管理/適應症選擇.vb

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 適應症選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        適應症_dgv.SendToBack() : Set_適應症設定()
        For I As Integer = 0 To 適應症_dgv.Rows.Count - 1
            Dim CheckBoxs As System.Windows.Forms.CheckBox = CType(Me.Controls.Find("CheckBox" & (I + 1).ToString(), True)(0), System.Windows.Forms.CheckBox)
            If 適應症_dgv(1, I).Value.ToString = "" Then
                CheckBoxs.Visible = False
            Else
                CheckBoxs.Visible = True : CheckBoxs.Text = 適應症_dgv(1, I).Value.ToString
            End If
        Next
    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 確認_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 I As Integer = 0 To 適應症_dgv.Rows.Count - 1
                    Dim CheckBoxs As System.Windows.Forms.CheckBox = CType(Me.Controls.Find("CheckBox" & (I + 1).ToString(), True)(0), System.Windows.Forms.CheckBox)
                    If CheckBoxs.Checked = True Then
                        PA1 = 適應症_dgv(0, I).Value.ToString : SQL_銷售明細新增()
                    End If
                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 I As Integer = 0 To 適應症_dgv.Rows.Count - 1
                    Dim CheckBoxs As System.Windows.Forms.CheckBox = CType(Me.Controls.Find("CheckBox" & (I + 1).ToString(), True)(0), System.Windows.Forms.CheckBox)
                    If CheckBoxs.Checked = True Then
                        PA1 = 適應症_dgv(0, I).Value.ToString : SQL_銷售明細新增()
                    End If
                Next
            End If

            MsgBox("資料傳遞 至 業務系統 完成!!")
            病歷號_tb.Text = ""
            For I As Integer = 0 To 適應症_dgv.Rows.Count - 1
                Dim CheckBoxs As System.Windows.Forms.CheckBox = CType(Me.Controls.Find("CheckBox" & (I + 1).ToString(), True)(0), System.Windows.Forms.CheckBox)
                CheckBoxs.Checked = False
            Next
        End If
    End Sub
End Class