GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/決策系統管理/卜卦.vb

Option Strict Off
Public Class 卜卦
    ReadOnly ds As New DataSet
    Dim NUM1 As Integer
    Dim NUM2(6) As Integer

    Private Sub Set_grid()
        DataGridView1.Columns(0).Width = 53 : DataGridView1.Columns(1).Width = 87 : DataGridView1.Columns(2).Width = 53 : DataGridView1.Columns(3).Width = 53
        DataGridView1.Columns(4).Width = 53 : DataGridView1.Columns(5).Width = 42 : DataGridView1.Columns(6).Width = 42 : DataGridView1.Columns(7).Width = 60
        DataGridView1.Columns(8).Width = 195 : DataGridView1.Columns(9).Visible = False : DataGridView1.Columns(10).Visible = False : DataGridView1.Columns(11).Visible = False
    End Sub
    Private Sub Set_格式設定()
        TextBox25.Visible = False : TextBox26.Visible = False : TextBox27.Visible = False : TextBox28.Visible = False : TextBox29.Visible = False : TextBox30.Visible = False
        TextBox31.Visible = False : TextBox32.Visible = False : TextBox33.Visible = False : TextBox34.Visible = False : TextBox35.Visible = False : TextBox36.Visible = False
        TextBox37.Visible = False : TextBox38.Visible = False : TextBox39.Visible = False : TextBox40.Visible = False : TextBox41.Visible = False : TextBox42.Visible = False
        TextBox43.Visible = False : TextBox44.Visible = False : TextBox45.Visible = False : TextBox46.Visible = False : TextBox47.Visible = False : TextBox48.Visible = False
        TextBox49.Visible = False : TextBox50.Visible = False : TextBox51.Visible = False : TextBox52.Visible = False : TextBox53.Visible = False : TextBox54.Visible = False
        Label34.Visible = False : Label35.Visible = False : Label36.Visible = False : Label37.Visible = False : Label38.Visible = False : Label39.Visible = False
        TextBox55.Visible = False : TextBox56.Visible = False : TextBox57.Visible = False : TextBox58.Visible = False : TextBox59.Visible = False : TextBox60.Visible = False
        TextBox61.Visible = False : TextBox62.Visible = False : TextBox63.Visible = False : TextBox64.Visible = False : TextBox65.Visible = False : TextBox66.Visible = False
        TextBox67.Visible = False : TextBox68.Visible = False : TextBox69.Visible = False : TextBox70.Visible = False : TextBox71.Visible = False : TextBox72.Visible = False
        TextBox73.Visible = False : TextBox74.Visible = False : TextBox75.Visible = False : TextBox76.Visible = False : TextBox77.Visible = False : TextBox78.Visible = False
        TextBox79.Visible = False : TextBox80.Visible = False : TextBox81.Visible = False : TextBox82.Visible = False : TextBox83.Visible = False : TextBox84.Visible = False
        TextBox85.Visible = False : TextBox86.Visible = False : TextBox87.Visible = False : TextBox88.Visible = False : TextBox89.Visible = False : TextBox90.Visible = False
        TextBox91.Visible = False : TextBox92.Visible = False : TextBox93.Visible = False : TextBox94.Visible = False : TextBox95.Visible = False : TextBox96.Visible = False
        TextBox102.Visible = False : TextBox103.Visible = False : TextBox104.Visible = False : TextBox105.Visible = False : TextBox106.Visible = False : TextBox107.Visible = False
        TextBox108.Visible = False : TextBox109.Visible = False : TextBox110.Visible = False : TextBox111.Visible = False : TextBox112.Visible = False : TextBox113.Visible = False
        TextBox114.Visible = False : TextBox115.Visible = False : TextBox116.Visible = False : TextBox117.Visible = False : TextBox118.Visible = False : TextBox119.Visible = False
        TextBox120.Visible = False : TextBox121.Visible = False : TextBox122.Visible = False : TextBox123.Visible = False : TextBox124.Visible = False : TextBox125.Visible = False
        TextBox126.Visible = False : TextBox127.Visible = False : TextBox128.Visible = False : TextBox129.Visible = False : TextBox130.Visible = False : TextBox131.Visible = False
        Label40.Visible = False : Label41.Visible = False : Label42.Visible = False : Label43.Visible = False : Label44.Visible = False : Label45.Visible = False
        TextBox133.Visible = False : TextBox134.Visible = False : TextBox135.Visible = False : TextBox136.Visible = False : TextBox137.Visible = False : TextBox138.Visible = False
        TextBox226.Visible = False : TextBox227.Visible = False : TextBox193.Visible = False : TextBox194.Visible = False : TextBox195.Visible = False : TextBox196.Visible = False
        TextBox197.Visible = False : TextBox198.Visible = False
    End Sub
    Private Sub Set_萬年曆()
        ConnOpen()
        SQL1 = "SELECT 年, 月, 旬, 日, 旬空1, 旬空2 FROM 萬年曆 WHERE (西元 = '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "')"
        CmdSet_For_dr()
        If dr.Read() Then
            TextBox1.Text = dr("年").ToString : TextBox2.Text = dr("月").ToString : TextBox3.Text = dr("旬").ToString : TextBox4.Text = dr("日").ToString
            TextBox97.Text = dr("旬空1").ToString : TextBox98.Text = dr("旬空2").ToString
        End If
        conn.Close() : dr.Close()
    End Sub
    Private Sub Set_萬年曆五行()
        For NUM1 = 1 To 4
            Dim 條件1 As String = "(地支 = RIGHT('" & TextBox1.Text & "', 1))" : Dim 條件2 As String = "(地支 = RIGHT('" & TextBox2.Text & "', 1))"
            Dim 條件3 As String = "(地支 = RIGHT('" & TextBox3.Text & "', 1))" : Dim 條件4 As String = "(地支 = RIGHT('" & TextBox4.Text & "', 1))"
            ConnOpen()
            If NUM1 = 1 Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件1 : End If : If NUM1 = 2 Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件2 : End If
            If NUM1 = 3 Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件3 : End If : If NUM1 = 4 Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件4 : End If
            CmdSet_For_dr()
            If dr.Read() Then
                If NUM1 = 1 Then : TextBox5.Text = dr("五行").ToString : End If : If NUM1 = 2 Then : TextBox6.Text = dr("五行").ToString : End If
                If NUM1 = 3 Then : TextBox7.Text = dr("五行").ToString : End If : If NUM1 = 4 Then : TextBox8.Text = dr("五行").ToString : End If
            End If
            conn.Close() : dr.Close()
        Next
        TextBox9.Text = TextBox6.Text
    End Sub
    Private Sub Set_相氣休囚()
        ConnOpen()
        SQL1 = "SELECT 相, 氣, 休, 囚 FROM 地支五行 WHERE     (地支 = RIGHT('" & TextBox2.Text & "', 1))"
        CmdSet_For_dr()
        If dr.Read() Then
            TextBox10.Text = dr("相").ToString : TextBox11.Text = dr("氣").ToString
            TextBox187.Text = dr("休").ToString : TextBox188.Text = dr("囚").ToString
        End If
        conn.Close() : dr.Close()
    End Sub
    Private Sub Set_六獸()
        If Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "甲" Or Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "乙" Then
            Label9.Text = "青龍" : Label10.Text = "朱雀" : Label11.Text = "勾陳" : Label12.Text = "騰蛇" : Label13.Text = "白虎" : Label14.Text = "玄武" : Else
            If Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "丙" Or Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "丁" Then
                Label9.Text = "朱雀" : Label10.Text = "勾陳" : Label11.Text = "騰蛇" : Label12.Text = "白虎" : Label13.Text = "玄武" : Label14.Text = "青龍" : Else
                If Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "戊" Then
                    Label9.Text = "勾陳" : Label10.Text = "騰蛇" : Label11.Text = "白虎" : Label12.Text = "玄武" : Label13.Text = "青龍" : Label14.Text = "朱雀" : Else
                    If Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "己" Then
                        Label9.Text = "騰蛇" : Label10.Text = "白虎" : Label11.Text = "玄武" : Label12.Text = "青龍" : Label13.Text = "朱雀" : Label14.Text = "勾陳" : Else
                        If Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "庚" Or Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "辛" Then
                            Label9.Text = "白虎" : Label10.Text = "玄武" : Label11.Text = "青龍" : Label12.Text = "朱雀" : Label13.Text = "勾陳" : Label14.Text = "騰蛇" : Else
                            If Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "壬" Or Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "癸" Then
                                Label9.Text = "玄武" : Label10.Text = "青龍" : Label11.Text = "朱雀" : Label12.Text = "勾陳" : Label13.Text = "騰蛇" : Label14.Text = "白虎"
                            End If : End If : End If : End If : End If : End If
    End Sub
    Private Sub Set_日長生()
        If TextBox8.Text = "火" Then
            TextBox145.Text = "寅" : TextBox146.Text = "卯" : TextBox147.Text = "辰" : TextBox148.Text = "巳" : TextBox149.Text = "午" : TextBox150.Text = "未"
            TextBox151.Text = "申" : TextBox152.Text = "酉" : TextBox153.Text = "戌" : TextBox154.Text = "亥" : TextBox155.Text = "子" : TextBox156.Text = "丑"
        Else
            If TextBox8.Text = "金" Then
                TextBox145.Text = "巳" : TextBox146.Text = "午" : TextBox147.Text = "未" : TextBox148.Text = "申" : TextBox149.Text = "酉" : TextBox150.Text = "戌"
                TextBox151.Text = "亥" : TextBox152.Text = "子" : TextBox153.Text = "丑" : TextBox154.Text = "寅" : TextBox155.Text = "卯" : TextBox156.Text = "辰"
            Else
                If TextBox8.Text = "水" Then
                    TextBox145.Text = "申" : TextBox146.Text = "酉" : TextBox147.Text = "戌" : TextBox148.Text = "亥" : TextBox149.Text = "子" : TextBox150.Text = "丑"
                    TextBox151.Text = "寅" : TextBox152.Text = "卯" : TextBox153.Text = "辰" : TextBox154.Text = "巳" : TextBox155.Text = "午" : TextBox156.Text = "未"
                Else
                    If TextBox8.Text = "木" Then
                        TextBox145.Text = "亥" : TextBox146.Text = "子" : TextBox147.Text = "丑" : TextBox148.Text = "寅" : TextBox149.Text = "卯" : TextBox150.Text = "辰"
                        TextBox151.Text = "巳" : TextBox152.Text = "午" : TextBox153.Text = "未" : TextBox154.Text = "申" : TextBox155.Text = "酉" : TextBox156.Text = "戌"
                    Else
                        If TextBox8.Text = "土" Then
                            TextBox145.Text = "申" : TextBox146.Text = "酉" : TextBox147.Text = "戌" : TextBox148.Text = "亥" : TextBox149.Text = "子" : TextBox150.Text = "丑"
                            TextBox151.Text = "寅" : TextBox152.Text = "卯" : TextBox153.Text = "辰" : TextBox154.Text = "巳" : TextBox155.Text = "午" : TextBox156.Text = "未"
                        End If : End If : End If : End If : End If
    End Sub
    Private Sub Set_排掛()
        If ComboBox1.Text = "1" Then
            Label15.Text = "一" : Label16.Text = "一" : Label17.Text = "一" : Label21.Text = "甲" : Label22.Text = "甲" : Label23.Text = "甲"
            Label27.Text = "子" : Label28.Text = "寅" : Label29.Text = "辰" : Else
            If ComboBox1.Text = "2" Then
                Label15.Text = "一" : Label16.Text = "一" : Label17.Text = "- -" : Label21.Text = "丁" : Label22.Text = "丁" : Label23.Text = "丁"
                Label27.Text = "巳" : Label28.Text = "卯" : Label29.Text = "丑" : Else
                If ComboBox1.Text = "3" Then
                    Label15.Text = "一" : Label16.Text = "- -" : Label17.Text = "一" : Label21.Text = "己" : Label22.Text = "己" : Label23.Text = "己"
                    Label27.Text = "卯" : Label28.Text = "丑" : Label29.Text = "亥" : Else
                    If ComboBox1.Text = "4" Then
                        Label15.Text = "一" : Label16.Text = "- -" : Label17.Text = "- -" : Label21.Text = "庚" : Label22.Text = "庚" : Label23.Text = "庚"
                        Label27.Text = "子" : Label28.Text = "寅" : Label29.Text = "辰" : Else
                        If ComboBox1.Text = "5" Then
                            Label15.Text = "- -" : Label16.Text = "一" : Label17.Text = "一" : Label21.Text = "辛" : Label22.Text = "辛" : Label23.Text = "辛"
                            Label27.Text = "丑" : Label28.Text = "亥" : Label29.Text = "酉" : Else
                            If ComboBox1.Text = "6" Then
                                Label15.Text = "- -" : Label16.Text = "一" : Label17.Text = "- -" : Label21.Text = "戊" : Label22.Text = "戊" : Label23.Text = "戊"
                                Label27.Text = "寅" : Label28.Text = "辰" : Label29.Text = "午" : Else
                                If ComboBox1.Text = "7" Then
                                    Label15.Text = "- -" : Label16.Text = "- -" : Label17.Text = "一" : Label21.Text = "丙" : Label22.Text = "丙" : Label23.Text = "丙"
                                    Label27.Text = "辰" : Label28.Text = "午" : Label29.Text = "申" : Else
                                    If ComboBox1.Text = "8" Then
                                        Label15.Text = "- -" : Label16.Text = "- -" : Label17.Text = "- -" : Label21.Text = "乙" : Label22.Text = "乙" : Label23.Text = "乙"
                                        Label27.Text = "未" : Label28.Text = "巳" : Label29.Text = "卯"
                                    End If : End If : End If : End If : End If : End If : End If : End If
        If ComboBox2.Text = "1" Then
            Label18.Text = "一" : Label19.Text = "一" : Label20.Text = "一" : Label24.Text = "壬" : Label25.Text = "壬" : Label26.Text = "壬"
            Label30.Text = "午" : Label31.Text = "申" : Label32.Text = "戌" : Else
            If ComboBox2.Text = "2" Then
                Label18.Text = "一" : Label19.Text = "一" : Label20.Text = "- -" : Label24.Text = "丁" : Label25.Text = "丁" : Label26.Text = "丁"
                Label30.Text = "亥" : Label31.Text = "酉" : Label32.Text = "未" : Else
                If ComboBox2.Text = "3" Then
                    Label18.Text = "一" : Label19.Text = "- -" : Label20.Text = "一" : Label24.Text = "己" : Label25.Text = "己" : Label26.Text = "己"
                    Label30.Text = "酉" : Label31.Text = "未" : Label32.Text = "巳" : Else
                    If ComboBox2.Text = "4" Then
                        Label18.Text = "一" : Label19.Text = "- -" : Label20.Text = "- -" : Label24.Text = "庚" : Label25.Text = "庚" : Label26.Text = "庚"
                        Label30.Text = "午" : Label31.Text = "申" : Label32.Text = "戌" : Else
                        If ComboBox2.Text = "5" Then
                            Label18.Text = "- -" : Label19.Text = "一" : Label20.Text = "一" : Label24.Text = "辛" : Label25.Text = "辛" : Label26.Text = "辛"
                            Label30.Text = "未" : Label31.Text = "巳" : Label32.Text = "卯" : Else
                            If ComboBox2.Text = "6" Then
                                Label18.Text = "- -" : Label19.Text = "一" : Label20.Text = "- -" : Label24.Text = "戊" : Label25.Text = "戊" : Label26.Text = "戊"
                                Label30.Text = "申" : Label31.Text = "戌" : Label32.Text = "子" : Else
                                If ComboBox2.Text = "7" Then
                                    Label18.Text = "- -" : Label19.Text = "- -" : Label20.Text = "一" : Label24.Text = "丙" : Label25.Text = "丙" : Label26.Text = "丙"
                                    Label30.Text = "戌" : Label31.Text = "子" : Label32.Text = "寅" : Else
                                    If ComboBox2.Text = "8" Then
                                        Label18.Text = "- -" : Label19.Text = "- -" : Label20.Text = "- -" : Label24.Text = "癸" : Label25.Text = "癸" : Label26.Text = "癸"
                                        Label30.Text = "丑" : Label31.Text = "亥" : Label32.Text = "酉"
                                    End If : End If : End If : End If : End If : End If : End If : End If
    End Sub
    Private Sub Set_化掛()
        If Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 1 Or
                Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 7 Or
                Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 13 Or
                Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 19 Then
            If Label15.Text = "一" Then : Label15.Text = "O" : Else : Label15.Text = "X" : End If : Else
            If Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 2 Or
                   Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 8 Or
                   Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 14 Or
                   Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 20 Then
                If Label16.Text = "一" Then : Label16.Text = "O" : Else : Label16.Text = "X" : End If : Else
                If Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 3 Or
                       Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 9 Or
                       Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 15 Or
                       Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 21 Then
                    If Label17.Text = "一" Then : Label17.Text = "O" : Else : Label17.Text = "X" : End If : Else
                    If Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 4 Or
                           Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 10 Or
                           Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 16 Or
                           Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 22 Then
                        If Label18.Text = "一" Then : Label18.Text = "O" : Else : Label18.Text = "X" : End If : Else
                        If Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 5 Or
                               Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 11 Or
                               Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 17 Or
                               Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 23 Then
                            If Label19.Text = "一" Then : Label19.Text = "O" : Else : Label19.Text = "X" : End If : Else
                            If Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 6 Or
                                   Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 12 Or
                                   Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 18 Or
                                   Double.Parse(ComboBox1.Text) + Double.Parse(ComboBox2.Text) + Double.Parse(ComboBox3.Text) = 24 Then
                                If Label20.Text = "一" Then : Label20.Text = "O" : Else : Label20.Text = "X" : End If
                            End If : End If : End If : End If : End If : End If
    End Sub
    Private Sub Set_裝掛()
        ConnOpen()
        SQL1 = "SELECT 初爻, 二爻, 三爻, 四爻, 五爻, 上爻 FROM 八卦六親 WHERE (卦數 = '" & ComboBox2.Text + ComboBox1.Text & "')"
        CmdSet_For_dr()
        If dr.Read() Then
            TextBox12.Text = dr("初爻").ToString : TextBox13.Text = dr("二爻").ToString : TextBox14.Text = dr("三爻").ToString
            TextBox15.Text = dr("四爻").ToString : TextBox16.Text = dr("五爻").ToString : TextBox17.Text = dr("上爻").ToString
        End If
        conn.Close() : dr.Close()
    End Sub
    Private Sub Set_掛名()
        For NUM1 = 1 To 4
            Dim 條件1 As String = "SELECT 卦名 FROM 八卦六親 WHERE (卦數 = '" & ComboBox2.Text + ComboBox1.Text & "')"
            Dim 條件2 As String = "SELECT 五行 FROM 八卦六親 WHERE (卦數 = '" & ComboBox2.Text + ComboBox1.Text & "')"
            Dim 條件3 As String = "SELECT 化卦名 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
            Dim 條件4 As String = "SELECT 五行 FROM 八卦六親 WHERE (卦名 = '" & TextBox100.Text & "')"
            ConnOpen()
            If NUM1 = 1 Then : SQL1 = 條件1 : End If : If NUM1 = 2 Then : SQL1 = 條件2 : End If
            If NUM1 = 3 Then : SQL1 = 條件3 : End If : If NUM1 = 4 Then : SQL1 = 條件4 : End If
            CmdSet_For_dr()
            If dr.Read() Then
                If NUM1 = 1 Then : TextBox24.Text = dr("卦名").ToString : End If : If NUM1 = 2 Then : TextBox99.Text = dr("五行").ToString : End If
                If NUM1 = 3 Then : TextBox100.Text = dr("化卦名").ToString : End If : If NUM1 = 4 Then : TextBox101.Text = dr("五行").ToString : End If
            End If
            conn.Close() : dr.Close()
        Next
    End Sub
    Private Sub Set_掛地支五行()
        For NUM1 = 1 To 6
            Dim 條件5 As String = "(地支 = '" & Label27.Text & "')" : Dim 條件6 As String = "(地支 = '" & Label28.Text & "')"
            Dim 條件7 As String = "(地支 = '" & Label29.Text & "')" : Dim 條件8 As String = "(地支 = '" & Label30.Text & "')"
            Dim 條件9 As String = "(地支 = '" & Label31.Text & "')" : Dim 條件10 As String = "(地支 = '" & Label32.Text & "')"
            ConnOpen()
            If NUM1 = 1 Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件5 : End If : If NUM1 = 2 Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件6 : End If
            If NUM1 = 3 Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件7 : End If : If NUM1 = 4 Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件8 : End If
            If NUM1 = 5 Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件9 : End If : If NUM1 = 6 Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件10 : End If
            CmdSet_For_dr()
            If dr.Read() Then
                If NUM1 = 1 Then : TextBox18.Text = dr("五行").ToString : End If : If NUM1 = 2 Then : TextBox19.Text = dr("五行").ToString : End If
                If NUM1 = 3 Then : TextBox20.Text = dr("五行").ToString : End If : If NUM1 = 4 Then : TextBox21.Text = dr("五行").ToString : End If
                If NUM1 = 5 Then : TextBox22.Text = dr("五行").ToString : End If : If NUM1 = 6 Then : TextBox23.Text = dr("五行").ToString : End If
            End If
            conn.Close() : dr.Close()
        Next
    End Sub
    Private Sub Set_世應伏身()
        ConnOpen()
        SQL1 = "SELECT 世應初爻, 世應二爻, 世應三爻, 世應四爻,世應五爻,世應上爻, 初爻卦身, 二爻卦身, 三爻卦身, 四爻卦身, 五爻卦身, 上爻卦身, 初爻伏一, " &
               "二爻伏一, 三爻伏一, 四爻伏一, 五爻伏一, 上爻伏一, 初爻伏二, 二爻伏二, 三爻伏二, 四爻伏二, 五爻伏二, 上爻伏二, 初爻伏三, 二爻伏三, " &
               "三爻伏三, 四爻伏三, 五爻伏三, 上爻伏三 FROM 八卦六親 " &
               "WHERE (卦數 = '" & ComboBox2.Text + ComboBox1.Text & "')"
        CmdSet_For_dr()
        If dr.Read() Then
            TextBox25.Text = dr("世應初爻").ToString : TextBox26.Text = dr("世應二爻").ToString : TextBox27.Text = dr("世應三爻").ToString
            TextBox28.Text = dr("世應四爻").ToString : TextBox29.Text = dr("世應五爻").ToString : TextBox30.Text = dr("世應上爻").ToString
            TextBox31.Text = dr("初爻卦身").ToString : TextBox32.Text = dr("二爻卦身").ToString : TextBox33.Text = dr("三爻卦身").ToString
            TextBox34.Text = dr("四爻卦身").ToString : TextBox35.Text = dr("五爻卦身").ToString : TextBox36.Text = dr("上爻卦身").ToString
            TextBox37.Text = dr("初爻伏一").ToString : TextBox38.Text = dr("二爻伏一").ToString : TextBox39.Text = dr("三爻伏一").ToString
            TextBox40.Text = dr("四爻伏一").ToString : TextBox41.Text = dr("五爻伏一").ToString : TextBox42.Text = dr("上爻伏一").ToString
            TextBox43.Text = dr("初爻伏二").ToString : TextBox44.Text = dr("二爻伏二").ToString : TextBox45.Text = dr("三爻伏二").ToString
            TextBox46.Text = dr("四爻伏二").ToString : TextBox47.Text = dr("五爻伏二").ToString : TextBox48.Text = dr("上爻伏二").ToString
            TextBox49.Text = dr("初爻伏三").ToString : TextBox50.Text = dr("二爻伏三").ToString : TextBox51.Text = dr("三爻伏三").ToString
            TextBox52.Text = dr("四爻伏三").ToString : TextBox53.Text = dr("五爻伏三").ToString : TextBox54.Text = dr("上爻伏三").ToString
        End If
        conn.Close() : dr.Close()
        If TextBox25.Text <> "0" Then : TextBox25.Visible = True : End If : If TextBox26.Text <> "0" Then : TextBox26.Visible = True : End If
        If TextBox27.Text <> "0" Then : TextBox27.Visible = True : End If : If TextBox28.Text <> "0" Then : TextBox28.Visible = True : End If
        If TextBox29.Text <> "0" Then : TextBox29.Visible = True : End If : If TextBox30.Text <> "0" Then : TextBox30.Visible = True : End If
        If TextBox31.Text <> "0" Then : TextBox31.Visible = True : End If : If TextBox32.Text <> "0" Then : TextBox32.Visible = True : End If
        If TextBox33.Text <> "0" Then : TextBox33.Visible = True : End If : If TextBox34.Text <> "0" Then : TextBox34.Visible = True : End If
        If TextBox35.Text <> "0" Then : TextBox35.Visible = True : End If : If TextBox36.Text <> "0" Then : TextBox36.Visible = True : End If
        If TextBox37.Text <> "0" Then : TextBox37.Visible = True : End If : If TextBox38.Text <> "0" Then : TextBox38.Visible = True : End If
        If TextBox39.Text <> "0" Then : TextBox39.Visible = True : End If : If TextBox40.Text <> "0" Then : TextBox40.Visible = True : End If
        If TextBox41.Text <> "0" Then : TextBox41.Visible = True : End If : If TextBox42.Text <> "0" Then : TextBox42.Visible = True : End If
        If TextBox43.Text <> "0" Then : TextBox43.Visible = True : Label34.Visible = True : End If
        If TextBox44.Text <> "0" Then : TextBox44.Visible = True : Label35.Visible = True : End If
        If TextBox45.Text <> "0" Then : TextBox45.Visible = True : Label36.Visible = True : End If
        If TextBox46.Text <> "0" Then : TextBox46.Visible = True : Label37.Visible = True : End If
        If TextBox47.Text <> "0" Then : TextBox47.Visible = True : Label38.Visible = True : End If
        If TextBox48.Text <> "0" Then : TextBox48.Visible = True : Label39.Visible = True : End If
        If TextBox49.Text <> "0" Then : TextBox49.Visible = True : End If : If TextBox50.Text <> "0" Then : TextBox50.Visible = True : End If
        If TextBox51.Text <> "0" Then : TextBox51.Visible = True : End If : If TextBox52.Text <> "0" Then : TextBox52.Visible = True : End If
        If TextBox53.Text <> "0" Then : TextBox53.Visible = True : End If : If TextBox54.Text <> "0" Then : TextBox54.Visible = True : End If
    End Sub
    Private Sub Set_伏掛五行()
        NUM2(1) = 0 : NUM2(2) = 0 : NUM2(3) = 0 : NUM2(4) = 0 : NUM2(5) = 0 : NUM2(6) = 0
        For NUM1 = 1 To 6
            Dim 條件11 As String = "(地支 = RIGHT('" & TextBox43.Text & "', 1))" : Dim 條件12 As String = "(地支 = RIGHT('" & TextBox44.Text & "', 1))"
            Dim 條件13 As String = "(地支 = RIGHT('" & TextBox45.Text & "', 1))" : Dim 條件14 As String = "(地支 = RIGHT('" & TextBox46.Text & "', 1))"
            Dim 條件15 As String = "(地支 = RIGHT('" & TextBox47.Text & "', 1))" : Dim 條件16 As String = "(地支 = RIGHT('" & TextBox48.Text & "', 1))"
            ConnOpen()
            If NUM1 = 1 And TextBox43.Text <> "0" Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件11 : NUM2(1) = 1 : End If
            If NUM1 = 2 And TextBox44.Text <> "0" Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件12 : NUM2(2) = 1 : End If
            If NUM1 = 3 And TextBox45.Text <> "0" Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件13 : NUM2(3) = 1 : End If
            If NUM1 = 4 And TextBox46.Text <> "0" Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件14 : NUM2(4) = 1 : End If
            If NUM1 = 5 And TextBox47.Text <> "0" Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件15 : NUM2(5) = 1 : End If
            If NUM1 = 6 And TextBox48.Text <> "0" Then : SQL1 = "SELECT 五行 FROM 地支五行 WHERE " & 條件16 : NUM2(6) = 1 : End If
            CmdSet_For_dr()
            If dr.Read() Then
                If NUM1 = 1 And NUM2(1) = 1 Then : TextBox55.Text = dr("五行").ToString : End If : If NUM1 = 2 And NUM2(2) = 1 Then : TextBox56.Text = dr("五行").ToString : End If
                If NUM1 = 3 And NUM2(3) = 1 Then : TextBox57.Text = dr("五行").ToString : End If : If NUM1 = 4 And NUM2(4) = 1 Then : TextBox58.Text = dr("五行").ToString : End If
                If NUM1 = 5 And NUM2(5) = 1 Then : TextBox59.Text = dr("五行").ToString : End If : If NUM1 = 6 And NUM2(6) = 1 Then : TextBox60.Text = dr("五行").ToString : End If
            End If
            conn.Close() : dr.Close()
        Next
    End Sub
    Private Sub Set_月建月破()
        If Label27.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox61.Text = "月建" : TextBox61.Visible = True : End If
        If Label28.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox67.Text = "月建" : TextBox67.Visible = True : End If
        If Label29.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox73.Text = "月建" : TextBox73.Visible = True : End If
        If Label30.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox79.Text = "月建" : TextBox79.Visible = True : End If
        If Label31.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox85.Text = "月建" : TextBox85.Visible = True : End If
        If Label32.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox91.Text = "月建" : TextBox91.Visible = True : End If
        For NUM1 = 1 To 6
            Dim 條件17 As String = "(地支對衝 = '" & Label27.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
            Dim 條件18 As String = "(地支對衝 = '" & Label28.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
            Dim 條件19 As String = "(地支對衝 = '" & Label29.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
            Dim 條件20 As String = "(地支對衝 = '" & Label30.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
            Dim 條件21 As String = "(地支對衝 = '" & Label31.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
            Dim 條件22 As String = "(地支對衝 = '" & Label32.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
            ConnOpen()
            If NUM1 = 1 And Label27.Text <> Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then
                SQL1 = "SELECT 月破 FROM 日月衝破 WHERE " & 條件17 : CmdSet_For_dr()
                If dr.Read() Then
                    If NUM1 = 1 Then : TextBox61.Text = dr("月破").ToString : TextBox61.Visible = True : End If
                End If
            End If
            If NUM1 = 2 And Label28.Text <> Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then
                SQL1 = "SELECT 月破 FROM 日月衝破 WHERE " & 條件18 : CmdSet_For_dr()
                If dr.Read() Then
                    If NUM1 = 2 Then : TextBox67.Text = dr("月破").ToString : TextBox67.Visible = True : End If
                End If
            End If
            If NUM1 = 3 And Label29.Text <> Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then
                SQL1 = "SELECT 月破 FROM 日月衝破 WHERE " & 條件19 : CmdSet_For_dr()
                If dr.Read() Then
                    If NUM1 = 3 Then : TextBox73.Text = dr("月破").ToString : TextBox73.Visible = True : End If
                End If
            End If
            If NUM1 = 4 And Label30.Text <> Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then
                SQL1 = "SELECT 月破 FROM 日月衝破 WHERE " & 條件20 : CmdSet_For_dr()
                If dr.Read() Then
                    If NUM1 = 4 Then : TextBox79.Text = dr("月破").ToString : TextBox79.Visible = True : End If
                End If
            End If
            If NUM1 = 5 And Label31.Text <> Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then
                SQL1 = "SELECT 月破 FROM 日月衝破 WHERE " & 條件21 : CmdSet_For_dr()
                If dr.Read() Then
                    If NUM1 = 5 Then : TextBox85.Text = dr("月破").ToString : TextBox85.Visible = True : End If
                End If
            End If
            If NUM1 = 6 And Label32.Text <> Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then
                SQL1 = "SELECT 月破 FROM 日月衝破 WHERE " & 條件22 : CmdSet_For_dr()
                If dr.Read() Then
                    If NUM1 = 6 Then : TextBox91.Text = dr("月破").ToString : TextBox91.Visible = True : End If
                End If
            End If
            conn.Close() : dr.Close()
        Next
    End Sub
    Private Sub Set_旬空()
        If Label27.Text = TextBox97.Text Then : TextBox62.Text = "旬空" : TextBox62.Visible = True : Else
            If Label27.Text = TextBox98.Text Then : TextBox62.Text = "旬空" : TextBox62.Visible = True : End If : End If
        If Label28.Text = TextBox97.Text Then : TextBox68.Text = "旬空" : TextBox68.Visible = True : Else
            If Label28.Text = TextBox98.Text Then : TextBox68.Text = "旬空" : TextBox68.Visible = True : End If : End If
        If Label29.Text = TextBox97.Text Then : TextBox74.Text = "旬空" : TextBox74.Visible = True : Else
            If Label29.Text = TextBox98.Text Then : TextBox74.Text = "旬空" : TextBox74.Visible = True : End If : End If
        If Label30.Text = TextBox97.Text Then : TextBox80.Text = "旬空" : TextBox80.Visible = True : Else
            If Label30.Text = TextBox98.Text Then : TextBox80.Text = "旬空" : TextBox80.Visible = True : End If : End If
        If Label31.Text = TextBox97.Text Then : TextBox86.Text = "旬空" : TextBox86.Visible = True : Else
            If Label31.Text = TextBox98.Text Then : TextBox86.Text = "旬空" : TextBox86.Visible = True : End If : End If
        If Label32.Text = TextBox97.Text Then : TextBox92.Text = "旬空" : TextBox92.Visible = True : Else
            If Label32.Text = TextBox98.Text Then : TextBox92.Text = "旬空" : TextBox92.Visible = True : End If : End If
    End Sub
    Private Sub Set_日建日沖()
        If Label27.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox63.Text = "日建" : TextBox63.Visible = True : End If
        If Label28.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox69.Text = "日建" : TextBox69.Visible = True : End If
        If Label29.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox75.Text = "日建" : TextBox75.Visible = True : End If
        If Label30.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox81.Text = "日建" : TextBox81.Visible = True : End If
        If Label31.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox87.Text = "日建" : TextBox87.Visible = True : End If
        If Label32.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox93.Text = "日建" : TextBox93.Visible = True : End If
        For NUM1 = 1 To 6
            Dim 條件23 As String = "(地支對衝 = '" & Label27.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
            Dim 條件24 As String = "(地支對衝 = '" & Label28.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
            Dim 條件25 As String = "(地支對衝 = '" & Label29.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
            Dim 條件26 As String = "(地支對衝 = '" & Label30.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
            Dim 條件27 As String = "(地支對衝 = '" & Label31.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
            Dim 條件28 As String = "(地支對衝 = '" & Label32.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
            ConnOpen()
            If NUM1 = 1 And Label27.Text <> Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE " & 條件23 : End If
            If NUM1 = 2 And Label28.Text <> Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE " & 條件24 : End If
            If NUM1 = 3 And Label29.Text <> Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE " & 條件25 : End If
            If NUM1 = 4 And Label30.Text <> Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE " & 條件26 : End If
            If NUM1 = 5 And Label31.Text <> Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE " & 條件27 : End If
            If NUM1 = 6 And Label32.Text <> Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE " & 條件28 : End If
            CmdSet_For_dr()
            If dr.Read() Then
                If NUM1 = 1 Then : If TextBox63.Text = "日建" Then : Else : TextBox63.Text = dr("日衝").ToString : TextBox63.Visible = True : End If : End If
                If NUM1 = 2 Then : If TextBox69.Text = "日建" Then : Else : TextBox69.Text = dr("日衝").ToString : TextBox69.Visible = True : End If : End If
                If NUM1 = 3 Then : If TextBox75.Text = "日建" Then : Else : TextBox75.Text = dr("日衝").ToString : TextBox75.Visible = True : End If : End If
                If NUM1 = 4 Then : If TextBox81.Text = "日建" Then : Else : TextBox81.Text = dr("日衝").ToString : TextBox81.Visible = True : End If : End If
                If NUM1 = 5 Then : If TextBox87.Text = "日建" Then : Else : TextBox87.Text = dr("日衝").ToString : TextBox87.Visible = True : End If : End If
                If NUM1 = 6 Then : If TextBox93.Text = "日建" Then : Else : TextBox93.Text = dr("日衝").ToString : TextBox93.Visible = True : End If : End If
            End If
            conn.Close() : dr.Close()
        Next
    End Sub
    Private Sub Set_伏卦月建月破()
        If TextBox43.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox64.Text = "月建" : TextBox64.Visible = True : End If
        If TextBox44.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox70.Text = "月建" : TextBox70.Visible = True : End If
        If TextBox45.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox76.Text = "月建" : TextBox76.Visible = True : End If
        If TextBox46.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox82.Text = "月建" : TextBox82.Visible = True : End If
        If TextBox47.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox88.Text = "月建" : TextBox88.Visible = True : End If
        If TextBox48.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox94.Text = "月建" : TextBox94.Visible = True : End If
        For NUM1 = 1 To 6
            Dim 條件29 As String = "(地支對衝 = '" & TextBox43.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
            Dim 條件30 As String = "(地支對衝 = '" & TextBox44.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
            Dim 條件31 As String = "(地支對衝 = '" & TextBox45.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
            Dim 條件32 As String = "(地支對衝 = '" & TextBox46.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
            Dim 條件33 As String = "(地支對衝 = '" & TextBox47.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
            Dim 條件34 As String = "(地支對衝 = '" & TextBox48.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
            ConnOpen()
            If NUM1 = 1 And TextBox43.Text <> Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : SQL1 = "SELECT 月破 FROM 日月衝破 WHERE " & 條件29 : End If
            If NUM1 = 2 And TextBox44.Text <> Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : SQL1 = "SELECT 月破 FROM 日月衝破 WHERE " & 條件30 : End If
            If NUM1 = 3 And TextBox45.Text <> Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : SQL1 = "SELECT 月破 FROM 日月衝破 WHERE " & 條件31 : End If
            If NUM1 = 4 And TextBox46.Text <> Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : SQL1 = "SELECT 月破 FROM 日月衝破 WHERE " & 條件32 : End If
            If NUM1 = 5 And TextBox47.Text <> Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : SQL1 = "SELECT 月破 FROM 日月衝破 WHERE " & 條件33 : End If
            If NUM1 = 6 And TextBox48.Text <> Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : SQL1 = "SELECT 月破 FROM 日月衝破 WHERE " & 條件34 : End If
            CmdSet_For_dr()
            If dr.Read() Then
                If NUM1 = 1 Then : TextBox64.Text = dr("月破").ToString : TextBox64.Visible = True : End If
                If NUM1 = 2 Then : TextBox70.Text = dr("月破").ToString : TextBox70.Visible = True : End If
                If NUM1 = 3 Then : TextBox76.Text = dr("月破").ToString : TextBox76.Visible = True : End If
                If NUM1 = 4 Then : TextBox82.Text = dr("月破").ToString : TextBox82.Visible = True : End If
                If NUM1 = 5 Then : TextBox88.Text = dr("月破").ToString : TextBox88.Visible = True : End If
                If NUM1 = 6 Then : TextBox94.Text = dr("月破").ToString : TextBox94.Visible = True : End If
            End If
            conn.Close() : dr.Close()
        Next
    End Sub
    Private Sub Set_伏卦旬空()
        If TextBox43.Text = TextBox97.Text Then : TextBox65.Text = "旬空" : TextBox65.Visible = True : Else
            If TextBox43.Text = TextBox98.Text Then : TextBox65.Text = "旬空" : TextBox65.Visible = True : End If : End If
        If TextBox44.Text = TextBox97.Text Then : TextBox71.Text = "旬空" : TextBox71.Visible = True : Else
            If TextBox44.Text = TextBox98.Text Then : TextBox71.Text = "旬空" : TextBox71.Visible = True : End If : End If
        If TextBox45.Text = TextBox97.Text Then : TextBox77.Text = "旬空" : TextBox77.Visible = True : Else
            If TextBox45.Text = TextBox98.Text Then : TextBox77.Text = "旬空" : TextBox77.Visible = True : End If : End If
        If TextBox46.Text = TextBox97.Text Then : TextBox83.Text = "旬空" : TextBox83.Visible = True : Else
            If TextBox46.Text = TextBox98.Text Then : TextBox83.Text = "旬空" : TextBox83.Visible = True : End If : End If
        If TextBox47.Text = TextBox97.Text Then : TextBox89.Text = "旬空" : TextBox89.Visible = True : Else
            If TextBox47.Text = TextBox98.Text Then : TextBox89.Text = "旬空" : TextBox89.Visible = True : End If : End If
        If TextBox48.Text = TextBox97.Text Then : TextBox95.Text = "旬空" : TextBox95.Visible = True : Else
            If TextBox48.Text = TextBox98.Text Then : TextBox95.Text = "旬空" : TextBox95.Visible = True : End If : End If
    End Sub
    Private Sub Set_伏卦日建日沖()
        If TextBox43.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox66.Text = "日建" : TextBox66.Visible = True : End If
        If TextBox44.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox72.Text = "日建" : TextBox72.Visible = True : End If
        If TextBox45.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox78.Text = "日建" : TextBox78.Visible = True : End If
        If TextBox46.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox84.Text = "日建" : TextBox84.Visible = True : End If
        If TextBox47.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox90.Text = "日建" : TextBox90.Visible = True : End If
        If TextBox48.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox96.Text = "日建" : TextBox96.Visible = True : End If
        For NUM1 = 1 To 6
            Dim 條件35 As String = "(地支對衝 = '" & TextBox43.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
            Dim 條件36 As String = "(地支對衝 = '" & TextBox44.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
            Dim 條件37 As String = "(地支對衝 = '" & TextBox45.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
            Dim 條件38 As String = "(地支對衝 = '" & TextBox46.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
            Dim 條件39 As String = "(地支對衝 = '" & TextBox47.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
            Dim 條件40 As String = "(地支對衝 = '" & TextBox48.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
            ConnOpen()
            If NUM1 = 1 And TextBox43.Text <> Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE " & 條件35 : End If
            If NUM1 = 2 And TextBox44.Text <> Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE " & 條件36 : End If
            If NUM1 = 3 And TextBox45.Text <> Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE " & 條件37 : End If
            If NUM1 = 4 And TextBox46.Text <> Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE " & 條件38 : End If
            If NUM1 = 5 And TextBox47.Text <> Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE " & 條件39 : End If
            If NUM1 = 6 And TextBox48.Text <> Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE " & 條件40 : End If
            CmdSet_For_dr()
            If dr.Read() Then
                If NUM1 = 1 Then : TextBox66.Text = dr("日衝").ToString : TextBox66.Visible = True : End If
                If NUM1 = 2 Then : TextBox72.Text = dr("日衝").ToString : TextBox72.Visible = True : End If
                If NUM1 = 3 Then : TextBox78.Text = dr("日衝").ToString : TextBox78.Visible = True : End If
                If NUM1 = 4 Then : TextBox84.Text = dr("日衝").ToString : TextBox84.Visible = True : End If
                If NUM1 = 5 Then : TextBox90.Text = dr("日衝").ToString : TextBox90.Visible = True : End If
                If NUM1 = 6 Then : TextBox96.Text = dr("日衝").ToString : TextBox96.Visible = True : End If
            End If
            conn.Close() : dr.Close()
        Next
    End Sub
    Private Sub Set_化卦內容()
        ConnOpen()
        SQL1 = "SELECT 爻數 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
        CmdSet_For_dr() : If dr.Read() Then : TextBox132.Text = dr("爻數").ToString : End If : conn.Close() : dr.Close()
        If TextBox132.Text = "1" Then : Label40.Visible = True
            ConnOpen()
            SQL1 = "SELECT 化六親 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
            CmdSet_For_dr()
            If dr.Read() Then : TextBox108.Text = dr("化六親").ToString : End If : conn.Close() : dr.Close() : TextBox108.Visible = True
            ConnOpen()
            SQL1 = "SELECT 化地支 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
            CmdSet_For_dr()
            If dr.Read() Then : TextBox102.Text = dr("化地支").ToString : End If : conn.Close() : dr.Close() : TextBox102.Visible = True
            If TextBox102.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox114.Text = "月建" : TextBox114.Visible = True : Else
                ConnOpen()
                SQL1 = "SELECT 月破 FROM 日月衝破 WHERE (地支對衝 = '" & TextBox102.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
                CmdSet_For_dr()
                If dr.Read() Then : TextBox114.Text = dr("月破").ToString : TextBox114.Visible = True : End If : conn.Close() : dr.Close() : End If
            If TextBox102.Text = TextBox97.Text Then : TextBox120.Text = "旬空" : TextBox120.Visible = True : Else
                If TextBox102.Text = TextBox98.Text Then : TextBox120.Text = "旬空" : TextBox120.Visible = True : End If : End If
            If TextBox102.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox126.Text = "日建" : TextBox126.Visible = True : Else
                ConnOpen()
                SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE (地支對衝 = '" & TextBox102.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
                CmdSet_For_dr()
                If dr.Read() Then : TextBox126.Text = dr("日衝").ToString : TextBox126.Visible = True : End If : conn.Close() : dr.Close() : End If
            ConnOpen()
            SQL1 = "SELECT 五行 FROM 地支五行 WHERE     (地支 = RIGHT('" & TextBox102.Text & "', 1))"
            CmdSet_For_dr() : If dr.Read() Then : TextBox133.Text = dr("五行").ToString
                TextBox133.Visible = True : End If : conn.Close() : dr.Close()
        Else
            If TextBox132.Text = "2" Then : Label41.Visible = True
                ConnOpen()
                SQL1 = "SELECT 化六親 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
                CmdSet_For_dr()
                If dr.Read() Then : TextBox109.Text = dr("化六親").ToString : End If : conn.Close() : dr.Close() : TextBox109.Visible = True
                ConnOpen()
                SQL1 = "SELECT 化地支 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
                CmdSet_For_dr()
                If dr.Read() Then : TextBox103.Text = dr("化地支").ToString : End If : conn.Close() : dr.Close() : TextBox103.Visible = True
                If TextBox103.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox115.Text = "月建" : TextBox115.Visible = True : Else
                    ConnOpen()
                    SQL1 = "SELECT 月破 FROM 日月衝破 WHERE (地支對衝 = '" & TextBox103.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
                    CmdSet_For_dr()
                    If dr.Read() Then : TextBox115.Text = dr("月破").ToString : TextBox115.Visible = True : End If : conn.Close() : dr.Close() : End If
                If TextBox103.Text = TextBox97.Text Then : TextBox121.Text = "旬空" : TextBox121.Visible = True : Else
                    If TextBox103.Text = TextBox98.Text Then : TextBox121.Text = "旬空" : TextBox121.Visible = True : End If : End If
                If TextBox103.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox127.Text = "日建" : TextBox127.Visible = True : Else
                    ConnOpen()
                    SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE (地支對衝 = '" & TextBox103.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
                    CmdSet_For_dr()
                    If dr.Read() Then : TextBox127.Text = dr("日衝").ToString : TextBox127.Visible = True : End If : conn.Close() : dr.Close() : End If
                ConnOpen()
                SQL1 = "SELECT 五行 FROM 地支五行 WHERE     (地支 = RIGHT('" & TextBox103.Text & "', 1))"
                CmdSet_For_dr() : If dr.Read() Then : TextBox134.Text = dr("五行").ToString
                    TextBox134.Visible = True : End If : conn.Close() : dr.Close()
            Else
                If TextBox132.Text = "3" Then : Label42.Visible = True
                    ConnOpen()
                    SQL1 = "SELECT 化六親 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
                    CmdSet_For_dr()
                    If dr.Read() Then : TextBox110.Text = dr("化六親").ToString : End If : conn.Close() : dr.Close() : TextBox110.Visible = True
                    ConnOpen()
                    SQL1 = "SELECT 化地支 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
                    CmdSet_For_dr()
                    If dr.Read() Then : TextBox104.Text = dr("化地支").ToString : End If : conn.Close() : dr.Close() : TextBox104.Visible = True
                    If TextBox104.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox116.Text = "月建" : TextBox116.Visible = True : Else
                        ConnOpen()
                        SQL1 = "SELECT 月破 FROM 日月衝破 WHERE (地支對衝 = '" & TextBox104.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
                        CmdSet_For_dr()
                        If dr.Read() Then : TextBox116.Text = dr("月破").ToString : TextBox116.Visible = True : End If : conn.Close() : dr.Close() : End If
                    If TextBox104.Text = TextBox97.Text Then : TextBox122.Text = "旬空" : TextBox122.Visible = True : Else
                        If TextBox104.Text = TextBox98.Text Then : TextBox122.Text = "旬空" : TextBox122.Visible = True : End If : End If
                    If TextBox104.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox128.Text = "日建" : TextBox128.Visible = True : Else
                        ConnOpen()
                        SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE (地支對衝 = '" & TextBox104.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
                        CmdSet_For_dr()
                        If dr.Read() Then : TextBox128.Text = dr("日衝").ToString : TextBox128.Visible = True : End If : conn.Close() : dr.Close() : End If
                    ConnOpen()
                    SQL1 = "SELECT 五行 FROM 地支五行 WHERE     (地支 = RIGHT('" & TextBox104.Text & "', 1))"
                    CmdSet_For_dr() : If dr.Read() Then : TextBox135.Text = dr("五行").ToString
                        TextBox135.Visible = True : End If : conn.Close() : dr.Close()
                Else
                    If TextBox132.Text = "4" Then : Label43.Visible = True
                        ConnOpen()
                        SQL1 = "SELECT 化六親 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
                        CmdSet_For_dr()
                        If dr.Read() Then : TextBox111.Text = dr("化六親").ToString : End If : conn.Close() : dr.Close() : TextBox111.Visible = True
                        ConnOpen()
                        SQL1 = "SELECT 化地支 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
                        CmdSet_For_dr()
                        If dr.Read() Then : TextBox105.Text = dr("化地支").ToString : End If : conn.Close() : dr.Close() : TextBox105.Visible = True
                        If TextBox105.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox117.Text = "月建" : TextBox117.Visible = True : Else
                            ConnOpen()
                            SQL1 = "SELECT 月破 FROM 日月衝破 WHERE (地支對衝 = '" & TextBox105.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
                            CmdSet_For_dr()
                            If dr.Read() Then : TextBox117.Text = dr("月破").ToString : TextBox117.Visible = True : End If : conn.Close() : dr.Close() : End If
                        If TextBox105.Text = TextBox97.Text Then : TextBox123.Text = "旬空" : TextBox123.Visible = True : Else
                            If TextBox105.Text = TextBox98.Text Then : TextBox123.Text = "旬空" : TextBox123.Visible = True : End If : End If
                        If TextBox105.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox129.Text = "日建" : TextBox129.Visible = True : Else
                            ConnOpen()
                            SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE (地支對衝 = '" & TextBox105.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
                            CmdSet_For_dr()
                            If dr.Read() Then : TextBox129.Text = dr("日衝").ToString : TextBox129.Visible = True : End If : conn.Close() : dr.Close() : End If
                        ConnOpen()
                        SQL1 = "SELECT 五行 FROM 地支五行 WHERE     (地支 = RIGHT('" & TextBox105.Text & "', 1))"
                        CmdSet_For_dr() : If dr.Read() Then : TextBox136.Text = dr("五行").ToString
                            TextBox136.Visible = True : End If : conn.Close() : dr.Close()
                    Else
                        If TextBox132.Text = "5" Then : Label44.Visible = True
                            ConnOpen()
                            SQL1 = "SELECT 化六親 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
                            CmdSet_For_dr()
                            If dr.Read() Then : TextBox112.Text = dr("化六親").ToString : End If : conn.Close() : dr.Close() : TextBox112.Visible = True
                            ConnOpen()
                            SQL1 = "SELECT 化地支 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
                            CmdSet_For_dr()
                            If dr.Read() Then : TextBox106.Text = dr("化地支").ToString : End If : conn.Close() : dr.Close() : TextBox106.Visible = True
                            If TextBox106.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox118.Text = "月建" : TextBox118.Visible = True : Else
                                ConnOpen()
                                SQL1 = "SELECT 月破 FROM 日月衝破 WHERE (地支對衝 = '" & TextBox106.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
                                CmdSet_For_dr()
                                If dr.Read() Then : TextBox118.Text = dr("月破").ToString : TextBox118.Visible = True : End If : conn.Close() : dr.Close() : End If
                            If TextBox106.Text = TextBox97.Text Then : TextBox124.Text = "旬空" : TextBox124.Visible = True : Else
                                If TextBox106.Text = TextBox98.Text Then : TextBox124.Text = "旬空" : TextBox124.Visible = True : End If : End If
                            If TextBox106.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox130.Text = "日建" : TextBox130.Visible = True : Else
                                ConnOpen()
                                SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE (地支對衝 = '" & TextBox106.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
                                CmdSet_For_dr()
                                If dr.Read() Then : TextBox130.Text = dr("日衝").ToString : TextBox130.Visible = True : End If : conn.Close() : dr.Close() : End If
                            ConnOpen()
                            SQL1 = "SELECT 五行 FROM 地支五行 WHERE     (地支 = RIGHT('" & TextBox106.Text & "', 1))"
                            CmdSet_For_dr() : If dr.Read() Then : TextBox137.Text = dr("五行").ToString
                                TextBox137.Visible = True : End If : conn.Close() : dr.Close()
                        Else
                            If TextBox132.Text = "6" Then : Label45.Visible = True
                                ConnOpen()
                                SQL1 = "SELECT 化六親 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
                                CmdSet_For_dr()
                                If dr.Read() Then : TextBox113.Text = dr("化六親").ToString : End If : conn.Close() : dr.Close() : TextBox113.Visible = True
                                ConnOpen()
                                SQL1 = "SELECT 化地支 FROM 卜筮化卦 WHERE (卦數 = '" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
                                CmdSet_For_dr()
                                If dr.Read() Then : TextBox107.Text = dr("化地支").ToString : End If : conn.Close() : dr.Close() : TextBox107.Visible = True
                                If TextBox107.Text = Microsoft.VisualBasic.Right(TextBox2.Text, 1) Then : TextBox119.Text = "月建" : TextBox119.Visible = True : Else
                                    ConnOpen()
                                    SQL1 = "SELECT 月破 FROM 日月衝破 WHERE (地支對衝 = '" & TextBox107.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')"
                                    CmdSet_For_dr()
                                    If dr.Read() Then : TextBox119.Text = dr("月破").ToString : TextBox119.Visible = True : End If : conn.Close() : dr.Close() : End If
                                If TextBox107.Text = TextBox97.Text Then : TextBox125.Text = "旬空" : TextBox125.Visible = True : Else
                                    If TextBox107.Text = TextBox98.Text Then : TextBox125.Text = "旬空" : TextBox125.Visible = True : End If : End If
                                If TextBox107.Text = Microsoft.VisualBasic.Right(TextBox4.Text, 1) Then : TextBox131.Text = "日建" : TextBox131.Visible = True : Else
                                    ConnOpen()
                                    SQL1 = "SELECT 日衝 FROM 日月衝破 WHERE (地支對衝 = '" & TextBox107.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')"
                                    CmdSet_For_dr()
                                    If dr.Read() Then : TextBox131.Text = dr("日衝").ToString : TextBox131.Visible = True : End If : conn.Close() : dr.Close() : End If
                                ConnOpen()
                                SQL1 = "SELECT 五行 FROM 地支五行 WHERE     (地支 = RIGHT('" & TextBox107.Text & "', 1))"
                                CmdSet_For_dr() : If dr.Read() Then : TextBox138.Text = dr("五行").ToString
                                    TextBox138.Visible = True : End If : conn.Close() : dr.Close()
                            End If : End If : End If : End If : End If : End If
    End Sub
    Private Sub Set_周易經文()
        ConnOpen()
        SQL1 = "SELECT 經文, 篆曰, 象曰 FROM 周易本文 WHERE (卦名 = N'" & TextBox24.Text & "')"
        CmdSet_For_dr()
        If dr.Read() Then
            卦辭_tb.Text = dr("經文").ToString : 篆曰_tb.Text = dr("篆曰").ToString : 象曰_tb.Text = dr("象曰").ToString
        End If
        conn.Close() : dr.Close()
        ConnOpen()
        SQL1 = "SELECT 本卦爻辭, 本卦爻象, 化卦爻辭, 化卦爻象 FROM 卜筮化卦 WHERE (卦數 = N'" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
        CmdSet_For_dr()
        If dr.Read() Then
            經文1_tb.Text = dr("本卦爻辭").ToString : 經文2_tb.Text = dr("本卦爻象").ToString : 經文3_tb.Text = dr("化卦爻辭").ToString
            經文4_tb.Text = dr("化卦爻象").ToString
        End If
        conn.Close() : dr.Close()
        ConnOpen()
        SQL1 = "SELECT 易林 FROM 焦氏易林注 WHERE 主卦 LIKE N'" & TextBox24.Text & "' AND 化卦 LIKE N'" & TextBox100.Text & "' "
        CmdSet_For_dr()
        If dr.Read() Then
            易林_tb.Text = dr("易林").ToString
        End If
        conn.Close() : dr.Close()
    End Sub
    Private Sub Set_經文存檔()
        ConnOpen()
        SQL1 = "UPDATE 周易本文 SET 經文 = N'" & 卦辭_tb.Text & "', 篆曰 = N'" & 篆曰_tb.Text & "', 象曰 = N'" & 象曰_tb.Text & "' WHERE (卦名 = N'" & TextBox24.Text & "')"
        CmdSet_For_dr() : conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "UPDATE 卜筮化卦 SET 本卦爻辭 = N'" & 經文1_tb.Text & "', 本卦爻象 = N'" & 經文2_tb.Text & "', 化卦爻辭 = N'" & 經文3_tb.Text & "', 化卦爻象 = N'" & 經文4_tb.Text & "' 
                WHERE (卦數 = N'" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')"
        CmdSet_For_dr() : conn.Close() : dr.Close()

        ConnOpen()
        SQL1 = "UPDATE 焦氏易林注 SET 易林 = N'" & 易林_tb.Text & "' WHERE 主卦 LIKE N'" & TextBox24.Text & "' AND 化卦 LIKE N'" & TextBox100.Text & "' "
        CmdSet_For_dr() : conn.Close() : dr.Close()
    End Sub
    Private Sub Set_六沖六和()
        For NUM1 = 1 To 2
            Dim 條件41 As String = "(卦名 = '" & TextBox24.Text & "')" : Dim 條件42 As String = "(卦名 = '" & TextBox100.Text & "')"
            ConnOpen()
            If NUM1 = 1 Then : SQL1 = "SELECT 和衝 FROM 八卦六親 WHERE " & 條件41 : End If : If NUM1 = 2 Then : SQL1 = "SELECT 和衝 FROM 八卦六親 WHERE " & 條件42 : End If
            CmdSet_For_dr()
            If dr.Read() Then
                If NUM1 = 1 Then : TextBox226.Text = dr("和衝").ToString : End If : If NUM1 = 2 Then : TextBox227.Text = dr("和衝").ToString : End If
            End If
            conn.Close() : dr.Close()
        Next
        If TextBox226.Text <> "0" Then : TextBox226.Visible = True : End If
        If TextBox227.Text <> "0" Then : TextBox227.Visible = True : End If
    End Sub
    Private Sub Set_用原忌仇()
        ConnOpen()
        SQL1 = "SELECT 原神, 仇神, 忌神, 原神五行, 仇神五行, 忌神五行 FROM 用原仇忌 WHERE     (用神 = '" & ComboBox5.Text + ComboBox4.Text & "')"
        CmdSet_For_dr()
        If dr.Read() Then
            TextBox139.Text = dr("原神").ToString : TextBox140.Text = dr("仇神").ToString : TextBox141.Text = dr("忌神").ToString
            TextBox142.Text = dr("原神五行").ToString : TextBox143.Text = dr("仇神五行").ToString : TextBox144.Text = dr("忌神五行").ToString
        End If
        conn.Close() : dr.Close()
    End Sub
    Private Sub Set_用神五行()
        If ComboBox5.Text = "火" Then
            TextBox157.Text = "寅" : TextBox158.Text = "卯" : TextBox159.Text = "辰" : TextBox160.Text = "巳" : TextBox161.Text = "午" : TextBox162.Text = "未"
            TextBox163.Text = "申" : TextBox164.Text = "酉" : TextBox165.Text = "戌" : TextBox166.Text = "亥" : TextBox167.Text = "子" : TextBox168.Text = "丑"
        Else
            If ComboBox5.Text = "金" Then
                TextBox157.Text = "巳" : TextBox158.Text = "午" : TextBox159.Text = "未" : TextBox160.Text = "申" : TextBox161.Text = "酉" : TextBox162.Text = "戌"
                TextBox163.Text = "亥" : TextBox164.Text = "子" : TextBox165.Text = "丑" : TextBox166.Text = "寅" : TextBox167.Text = "卯" : TextBox168.Text = "辰"
            Else
                If ComboBox5.Text = "水" Then
                    TextBox157.Text = "申" : TextBox158.Text = "酉" : TextBox159.Text = "戌" : TextBox160.Text = "亥" : TextBox161.Text = "子" : TextBox162.Text = "丑"
                    TextBox163.Text = "寅" : TextBox164.Text = "卯" : TextBox165.Text = "辰" : TextBox166.Text = "巳" : TextBox167.Text = "午" : TextBox168.Text = "未"
                Else
                    If ComboBox5.Text = "木" Then
                        TextBox157.Text = "亥" : TextBox158.Text = "子" : TextBox159.Text = "丑" : TextBox160.Text = "寅" : TextBox161.Text = "卯" : TextBox162.Text = "辰"
                        TextBox163.Text = "巳" : TextBox164.Text = "午" : TextBox165.Text = "未" : TextBox166.Text = "申" : TextBox167.Text = "酉" : TextBox168.Text = "戌"
                    Else
                        If ComboBox5.Text = "土" Then
                            TextBox157.Text = "申" : TextBox158.Text = "酉" : TextBox159.Text = "戌" : TextBox160.Text = "亥" : TextBox161.Text = "子" : TextBox162.Text = "丑"
                            TextBox163.Text = "寅" : TextBox164.Text = "卯" : TextBox165.Text = "辰" : TextBox166.Text = "巳" : TextBox167.Text = "午" : TextBox168.Text = "未"
                        End If : End If : End If : End If : End If
    End Sub
    Private Sub Set_格式設定2()
        If Label27.Text = TextBox145.Text Then : TextBox184.Text = Label50.Text : Else
            If Label27.Text = TextBox146.Text Then : TextBox184.Text = Label51.Text : Else
                If Label27.Text = TextBox147.Text Then : TextBox184.Text = Label52.Text : Else
                    If Label27.Text = TextBox148.Text Then : TextBox184.Text = Label61.Text : Else
                        If Label27.Text = TextBox149.Text Then : TextBox184.Text = Label53.Text : Else
                            If Label27.Text = TextBox150.Text Then : TextBox184.Text = Label56.Text : Else
                                If Label27.Text = TextBox151.Text Then : TextBox184.Text = Label57.Text : Else
                                    If Label27.Text = TextBox152.Text Then : TextBox184.Text = Label58.Text : Else
                                        If Label27.Text = TextBox153.Text Then : TextBox184.Text = Label59.Text : Else
                                            If Label27.Text = TextBox154.Text Then : TextBox184.Text = Label60.Text : Else
                                                If Label27.Text = TextBox155.Text Then : TextBox184.Text = Label62.Text : Else
                                                    If Label27.Text = TextBox156.Text Then : TextBox184.Text = Label63.Text
                                                    End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If
        If Label28.Text = TextBox145.Text Then : TextBox185.Text = Label50.Text : Else
            If Label28.Text = TextBox146.Text Then : TextBox185.Text = Label51.Text : Else
                If Label28.Text = TextBox147.Text Then : TextBox185.Text = Label52.Text : Else
                    If Label28.Text = TextBox148.Text Then : TextBox185.Text = Label61.Text : Else
                        If Label28.Text = TextBox149.Text Then : TextBox185.Text = Label53.Text : Else
                            If Label28.Text = TextBox150.Text Then : TextBox185.Text = Label56.Text : Else
                                If Label28.Text = TextBox151.Text Then : TextBox185.Text = Label57.Text : Else
                                    If Label28.Text = TextBox152.Text Then : TextBox185.Text = Label58.Text : Else
                                        If Label28.Text = TextBox153.Text Then : TextBox185.Text = Label59.Text : Else
                                            If Label28.Text = TextBox154.Text Then : TextBox185.Text = Label60.Text : Else
                                                If Label28.Text = TextBox155.Text Then : TextBox185.Text = Label62.Text : Else
                                                    If Label28.Text = TextBox156.Text Then : TextBox185.Text = Label63.Text
                                                    End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If
        If Label29.Text = TextBox145.Text Then : TextBox186.Text = Label50.Text : Else
            If Label29.Text = TextBox146.Text Then : TextBox186.Text = Label51.Text : Else
                If Label29.Text = TextBox147.Text Then : TextBox186.Text = Label52.Text : Else
                    If Label29.Text = TextBox148.Text Then : TextBox186.Text = Label61.Text : Else
                        If Label29.Text = TextBox149.Text Then : TextBox186.Text = Label53.Text : Else
                            If Label29.Text = TextBox150.Text Then : TextBox186.Text = Label56.Text : Else
                                If Label29.Text = TextBox151.Text Then : TextBox186.Text = Label57.Text : Else
                                    If Label29.Text = TextBox152.Text Then : TextBox186.Text = Label58.Text : Else
                                        If Label29.Text = TextBox153.Text Then : TextBox186.Text = Label59.Text : Else
                                            If Label29.Text = TextBox154.Text Then : TextBox186.Text = Label60.Text : Else
                                                If Label29.Text = TextBox155.Text Then : TextBox186.Text = Label62.Text : Else
                                                    If Label29.Text = TextBox156.Text Then : TextBox186.Text = Label63.Text
                                                    End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If
        If Label30.Text = TextBox145.Text Then : TextBox189.Text = Label50.Text : Else
            If Label30.Text = TextBox146.Text Then : TextBox189.Text = Label51.Text : Else
                If Label30.Text = TextBox147.Text Then : TextBox189.Text = Label52.Text : Else
                    If Label30.Text = TextBox148.Text Then : TextBox189.Text = Label61.Text : Else
                        If Label30.Text = TextBox149.Text Then : TextBox189.Text = Label53.Text : Else
                            If Label30.Text = TextBox150.Text Then : TextBox189.Text = Label56.Text : Else
                                If Label30.Text = TextBox151.Text Then : TextBox189.Text = Label57.Text : Else
                                    If Label30.Text = TextBox152.Text Then : TextBox189.Text = Label58.Text : Else
                                        If Label30.Text = TextBox153.Text Then : TextBox189.Text = Label59.Text : Else
                                            If Label30.Text = TextBox154.Text Then : TextBox189.Text = Label60.Text : Else
                                                If Label30.Text = TextBox155.Text Then : TextBox189.Text = Label62.Text : Else
                                                    If Label30.Text = TextBox156.Text Then : TextBox189.Text = Label63.Text
                                                    End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If
        If Label31.Text = TextBox145.Text Then : TextBox191.Text = Label50.Text : Else
            If Label31.Text = TextBox146.Text Then : TextBox191.Text = Label51.Text : Else
                If Label31.Text = TextBox147.Text Then : TextBox191.Text = Label52.Text : Else
                    If Label31.Text = TextBox148.Text Then : TextBox191.Text = Label61.Text : Else
                        If Label31.Text = TextBox149.Text Then : TextBox191.Text = Label53.Text : Else
                            If Label31.Text = TextBox150.Text Then : TextBox191.Text = Label56.Text : Else
                                If Label31.Text = TextBox151.Text Then : TextBox191.Text = Label57.Text : Else
                                    If Label31.Text = TextBox152.Text Then : TextBox191.Text = Label58.Text : Else
                                        If Label31.Text = TextBox153.Text Then : TextBox191.Text = Label59.Text : Else
                                            If Label31.Text = TextBox154.Text Then : TextBox191.Text = Label60.Text : Else
                                                If Label31.Text = TextBox155.Text Then : TextBox191.Text = Label62.Text : Else
                                                    If Label31.Text = TextBox156.Text Then : TextBox191.Text = Label63.Text
                                                    End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If
        If Label32.Text = TextBox145.Text Then : TextBox192.Text = Label50.Text : Else
            If Label32.Text = TextBox146.Text Then : TextBox192.Text = Label51.Text : Else
                If Label32.Text = TextBox147.Text Then : TextBox192.Text = Label52.Text : Else
                    If Label32.Text = TextBox148.Text Then : TextBox192.Text = Label61.Text : Else
                        If Label32.Text = TextBox149.Text Then : TextBox192.Text = Label53.Text : Else
                            If Label32.Text = TextBox150.Text Then : TextBox192.Text = Label56.Text : Else
                                If Label32.Text = TextBox151.Text Then : TextBox192.Text = Label57.Text : Else
                                    If Label32.Text = TextBox152.Text Then : TextBox192.Text = Label58.Text : Else
                                        If Label32.Text = TextBox153.Text Then : TextBox192.Text = Label59.Text : Else
                                            If Label32.Text = TextBox154.Text Then : TextBox192.Text = Label60.Text : Else
                                                If Label32.Text = TextBox155.Text Then : TextBox192.Text = Label62.Text : Else
                                                    If Label32.Text = TextBox156.Text Then : TextBox192.Text = Label63.Text
                                                    End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If : End If
        If TextBox102.Visible = True And TextBox102.Text = TextBox145.Text Then : TextBox193.Text = Label50.Text : TextBox193.Visible = True : Else
            If TextBox102.Visible = True And TextBox102.Text = TextBox153.Text Then : TextBox193.Text = Label59.Text : TextBox193.Visible = True : Else
                If TextBox102.Visible = True And TextBox102.Text = TextBox154.Text Then : TextBox193.Text = Label60.Text : TextBox193.Visible = True
                End If : End If : End If
        If TextBox103.Visible = True And TextBox103.Text = TextBox145.Text Then : TextBox194.Text = Label50.Text : TextBox194.Visible = True : Else
            If TextBox103.Visible = True And TextBox103.Text = TextBox153.Text Then : TextBox194.Text = Label59.Text : TextBox194.Visible = True : Else
                If TextBox103.Visible = True And TextBox103.Text = TextBox154.Text Then : TextBox194.Text = Label60.Text : TextBox194.Visible = True
                End If : End If : End If
        If TextBox104.Visible = True And TextBox104.Text = TextBox145.Text Then : TextBox195.Text = Label50.Text : TextBox195.Visible = True : Else
            If TextBox104.Visible = True And TextBox104.Text = TextBox153.Text Then : TextBox195.Text = Label59.Text : TextBox195.Visible = True : Else
                If TextBox104.Visible = True And TextBox104.Text = TextBox154.Text Then : TextBox195.Text = Label60.Text : TextBox195.Visible = True : Else
                End If : End If : End If
        If TextBox105.Visible = True And TextBox105.Text = TextBox145.Text Then : TextBox196.Text = Label50.Text : TextBox196.Visible = True : Else
            If TextBox105.Visible = True And TextBox105.Text = TextBox153.Text Then : TextBox196.Text = Label59.Text : TextBox196.Visible = True : Else
                If TextBox105.Visible = True And TextBox105.Text = TextBox154.Text Then : TextBox196.Text = Label60.Text : TextBox196.Visible = True : Else
                End If : End If : End If
        If TextBox106.Visible = True And TextBox106.Text = TextBox145.Text Then : TextBox197.Text = Label50.Text : TextBox197.Visible = True : Else
            If TextBox106.Visible = True And TextBox106.Text = TextBox153.Text Then : TextBox197.Text = Label59.Text : TextBox197.Visible = True : Else
                If TextBox106.Visible = True And TextBox106.Text = TextBox154.Text Then : TextBox197.Text = Label60.Text : TextBox197.Visible = True : Else
                End If : End If : End If
        If TextBox107.Visible = True And TextBox107.Text = TextBox145.Text Then : TextBox198.Text = Label50.Text : TextBox198.Visible = True : Else
            If TextBox107.Visible = True And TextBox107.Text = TextBox153.Text Then : TextBox198.Text = Label59.Text : TextBox198.Visible = True : Else
                If TextBox107.Visible = True And TextBox107.Text = TextBox154.Text Then : TextBox198.Text = Label60.Text : TextBox198.Visible = True : Else
                End If : End If : End If
    End Sub
    Private Sub Set_貴人爻()
        If Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "甲" Or Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "戊" Then : TextBox199.Text = "   丑未爻--即是日貴人" : End If
        If Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "乙" Or Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "己" Then : TextBox199.Text = "   子申爻--即是日貴人" : End If
        If Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "丙" Or Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "丁" Then : TextBox199.Text = "   酉亥爻--即是日貴人" : End If
        If Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "壬" Or Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "癸" Then : TextBox199.Text = "   卯巳爻--即是日貴人" : End If
        If Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "庚" Or Microsoft.VisualBasic.Left(TextBox4.Text, 1) = "辛" Then : TextBox199.Text = "   午寅爻--即是日貴人" : End If
    End Sub
    Private Sub Set_紀錄清單()
        DataGridView1.DataSource = Nothing : ds.Clear()
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25
        DataGridView1.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT 流水號, 日期, 卦數一, 卦數二, 卦數三, 用神, 五行, 占事者, 占事, 貴人, 三合, 三刑 FROM 卜卦紀錄 ORDER BY 流水號 DESC"
        CmdSet_For_DGV() : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub 卜卦_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = 2
        TextBox199.Text = "" : TextBox200.Text = "" : TextBox201.Text = ""
        DateTimePicker1.Value = Today
        Set_紀錄清單() : Set_萬年曆() : Set_萬年曆五行() : Set_相氣休囚() : Set_六獸() : Set_日長生() : Set_格式設定() : Set_grid()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.RowIndex = -1 Then : Else
            Set_格式設定()
            TextBox182.Text = DataGridView1(0, e.RowIndex).Value.ToString : DateTimePicker1.Text = DataGridView1(1, e.RowIndex).Value.ToString
            ComboBox1.Text = DataGridView1(2, e.RowIndex).Value.ToString : ComboBox2.Text = DataGridView1(3, e.RowIndex).Value.ToString
            ComboBox3.Text = DataGridView1(4, e.RowIndex).Value.ToString : ComboBox4.Text = DataGridView1(5, e.RowIndex).Value.ToString
            ComboBox5.Text = DataGridView1(6, e.RowIndex).Value.ToString : TextBox183.Text = DataGridView1(7, e.RowIndex).Value.ToString
            TextBox179.Text = DataGridView1(8, e.RowIndex).Value.ToString : TextBox199.Text = DataGridView1(9, e.RowIndex).Value.ToString
            TextBox200.Text = DataGridView1(10, e.RowIndex).Value.ToString : TextBox201.Text = DataGridView1(11, e.RowIndex).Value.ToString
            Set_萬年曆() : Set_萬年曆五行() : Set_相氣休囚() : Set_六獸() : Set_日長生()
            Set_排掛() : Set_化掛() : Set_裝掛() : Set_掛名() : Set_掛地支五行() : Set_世應伏身() : Set_伏掛五行() : Set_月建月破() : Set_旬空() : Set_日建日沖() : Set_伏卦月建月破()
            Set_伏卦旬空() : Set_伏卦日建日沖() : Set_化卦內容() : Set_周易經文() : Set_六沖六和()
            Set_用原忌仇() : Set_用神五行() : Set_格式設定2() : Set_貴人爻()
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Set_格式設定()
        If ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Then
            MsgBox("請輸入卜筮卦數 。")
        Else
            Set_排掛() : Set_化掛() : Set_裝掛() : Set_掛名() : Set_掛地支五行() : Set_世應伏身() : Set_伏掛五行() : Set_月建月破() : Set_旬空() : Set_日建日沖() : Set_伏卦月建月破()
            Set_伏卦旬空() : Set_伏卦日建日沖() : Set_化卦內容() : Set_周易經文() : Set_六沖六和()
            Set_用原忌仇() : Set_用神五行() : Set_格式設定2() : Set_貴人爻()
        End If
    End Sub
    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
        If ComboBox4.Text = "" Then : MsgBox("請選擇用神、五行。") : Else : Set_用原忌仇() : End If
    End Sub
    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
        If ComboBox5.Text = "" Then : MsgBox("請選擇用神、五行。") : Else : Set_用原忌仇() : Set_用神五行() : End If
    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If DateTimePicker1.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or ComboBox4.Text = "" Or ComboBox5.Text = "" Or TextBox179.Text = "" Then
            MsgBox("請確認資料已輸入完整。")
        Else
            ConnOpen()
            SQL1 = "SELECT TOP (1) 流水號 FROM 卜卦紀錄 ORDER BY 流水號 DESC"
            CmdSet_For_dr()
            If dr.Read() Then : TextBox181.Text = dr("流水號").ToString : End If : conn.Close() : dr.Close()
            If TextBox181.Text = "" Then : TextBox181.Text = "0" : End If
            TextBox182.Text = CStr(Double.Parse(TextBox181.Text) + 1)
            ConnOpen()
            SQL1 = "INSERT INTO 卜卦紀錄 (流水號, 日期, 卦數一, 卦數二, 卦數三, 用神, 五行, 占事者, 占事, 貴人, 三合, 三刑) VALUES  ('" & TextBox182.Text &
            "', '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & ComboBox4.Text &
            "','" & ComboBox5.Text & "','" & TextBox183.Text & "','" & TextBox179.Text & "','" & TextBox199.Text & "','" & TextBox201.Text & "','" & TextBox201.Text & "')"
            CmdSet_For_dr()
            MsgBox("存檔完成")
            conn.Close()
            Set_紀錄清單() : Set_grid()
        End If
    End Sub
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If DateTimePicker1.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or ComboBox4.Text = "" Or ComboBox5.Text = "" Or TextBox179.Text = "" Then
            MsgBox("請確已選擇歷史資料。")
        Else
            ConnOpen()
            SQL1 = "UPDATE 卜卦紀錄 SET 日期 = '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "', 卦數一 = '" & ComboBox1.Text & "', 卦數二 = '" & ComboBox2.Text &
              "', 卦數三 = '" & ComboBox3.Text & "', 用神 = '" & ComboBox4.Text & "' , 五行 = '" & ComboBox5.Text & "' , 占事者 = '" & TextBox183.Text & "' , 占事 = '" & TextBox179.Text & "' " &
              ", 貴人 = '" & TextBox199.Text & "'  , 三合 = '" & TextBox200.Text & "'  , 三刑 = '" & TextBox201.Text & "'  WHERE (流水號 = '" & TextBox182.Text & "')"
            CmdSet_For_dr()
            MsgBox("修改完成")
            conn.Close()
            Set_紀錄清單() : Set_grid()
        End If
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If DateTimePicker1.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or ComboBox4.Text = "" Or ComboBox5.Text = "" Or TextBox179.Text = "" Then
            MsgBox("請確已選擇歷史資料。")
        Else
            Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
            If aa = MsgBoxResult.Ok Then
                ConnOpen() : SQL1 = "DELETE FROM 卜卦紀錄 WHERE (流水號 = '" & TextBox182.Text & "')" : CmdSet_For_dr() : MsgBox("刪除完成")
            End If
            conn.Close() : Set_紀錄清單() : Set_grid()
        End If
    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If DateTimePicker1.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or ComboBox4.Text = "" Or ComboBox5.Text = "" Or TextBox179.Text = "" Then
            MsgBox("請確已選擇歷史資料。")
        Else
            set_格式設定() : set_萬年曆() : set_萬年曆五行() : set_相氣休囚() : set_六獸() : set_日長生()
            If ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Then
                MsgBox("請輸入卜筮卦數 。")
            Else
                set_排掛() : set_化掛() : set_裝掛() : set_掛名() : set_掛地支五行() : set_世應伏身() : set_伏掛五行() : set_月建月破() : set_旬空() : set_日建日沖() : set_伏卦月建月破()
                set_伏卦旬空() : set_伏卦日建日沖() : set_化卦內容() : set_周易經文() : set_六沖六和()
            End If
            If ComboBox4.Text = "" Or ComboBox5.Text = "" Then : MsgBox("請選擇用神、五行。") : Else : set_用原忌仇() : set_用神五行() : End If
            set_格式設定2()
        End If
    End Sub
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        set_格式設定()
        DateTimePicker1.Value = Today : ComboBox1.Text = "" : ComboBox2.Text = "" : ComboBox3.Text = ""
        TextBox24.Text = "" : TextBox99.Text = "" : TextBox100.Text = "" : TextBox101.Text = "" : TextBox139.Text = "" : TextBox140.Text = "" : TextBox141.Text = "" : TextBox142.Text = ""
        TextBox143.Text = "" : TextBox144.Text = "" : TextBox157.Text = "" : TextBox158.Text = "" : TextBox159.Text = "" : TextBox160.Text = "" : TextBox161.Text = "" : TextBox162.Text = ""
        TextBox163.Text = "" : TextBox164.Text = "" : TextBox165.Text = "" : TextBox166.Text = "" : TextBox167.Text = "" : TextBox168.Text = "" : 卦辭_tb.Text = "" : 篆曰_tb.Text = ""
        象曰_tb.Text = "" : 經文1_tb.Text = "" : 經文2_tb.Text = "" : 經文3_tb.Text = "" : 經文4_tb.Text = "" : TextBox18.Text = "" : TextBox19.Text = ""
        TextBox20.Text = "" : TextBox21.Text = "" : TextBox22.Text = "" : TextBox23.Text = "" : TextBox12.Text = "" : TextBox13.Text = "" : TextBox14.Text = "" : TextBox15.Text = ""
        TextBox16.Text = "" : TextBox17.Text = "" : Label21.Text = "    " : Label22.Text = "    " : Label23.Text = "    " : Label24.Text = "    " : Label25.Text = "    " : Label26.Text = "    "
        Label27.Text = "    " : Label28.Text = "    " : Label29.Text = "    " : Label30.Text = "    " : Label31.Text = "    " : Label32.Text = "    " : Label15.Text = "一" : Label16.Text = "一"
        Label17.Text = "一" : Label18.Text = "一" : Label19.Text = "一" : Label20.Text = "一" : TextBox184.Text = "" : TextBox185.Text = "" : TextBox186.Text = "" : TextBox189.Text = ""
        TextBox191.Text = "" : TextBox192.Text = "" : TextBox199.Text = "" : TextBox200.Text = "" : TextBox201.Text = "" : TextBox199.Text = "" : 易林_tb.Text = "" : TextBox179.Text = ""
        set_萬年曆() : set_萬年曆五行() : set_相氣休囚() : set_六獸() : set_日長生()
    End Sub
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        set_紀錄清單() : set_grid()
    End Sub
    Private Sub RadioButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.Click
        RadioButton1.Checked = True : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False
    End Sub
    Private Sub RadioButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.Click
        RadioButton1.Checked = False : RadioButton2.Checked = True : RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = False
    End Sub
    Private Sub RadioButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.Click
        RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = True : RadioButton4.Checked = False : RadioButton5.Checked = False
    End Sub
    Private Sub RadioButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.Click
        RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = True : RadioButton5.Checked = False
    End Sub
    Private Sub RadioButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.Click
        RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton5.Checked = True
    End Sub
    Private Sub RadioButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton10.Click
        RadioButton10.Checked = True : RadioButton9.Checked = False : RadioButton8.Checked = False : RadioButton7.Checked = False : RadioButton6.Checked = False
    End Sub
    Private Sub RadioButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton9.Click
        RadioButton10.Checked = False : RadioButton9.Checked = True : RadioButton8.Checked = False : RadioButton7.Checked = False : RadioButton6.Checked = False
    End Sub
    Private Sub RadioButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.Click
        RadioButton10.Checked = False : RadioButton9.Checked = False : RadioButton8.Checked = True : RadioButton7.Checked = False : RadioButton6.Checked = False
    End Sub
    Private Sub RadioButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.Click
        RadioButton10.Checked = False : RadioButton9.Checked = False : RadioButton8.Checked = False : RadioButton7.Checked = True : RadioButton6.Checked = False
    End Sub
    Private Sub RadioButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.Click
        RadioButton10.Checked = False : RadioButton9.Checked = False : RadioButton8.Checked = False : RadioButton7.Checked = False : RadioButton6.Checked = True
    End Sub
    Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click
        If Label9.Text = "青龍" Then : 青龍() : Else : If Label9.Text = "朱雀" Then : 朱雀() : Else : If Label9.Text = "勾陳" Then : 勾陳() : Else : If Label9.Text = "騰蛇" Then : 騰蛇()
                    Else : If Label9.Text = "白虎" Then : 白虎() : Else : If Label9.Text = "玄武" Then : 玄武() : End If : End If : End If : End If : End If : End If
    End Sub
    Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click
        If Label10.Text = "青龍" Then : 青龍() : Else : If Label10.Text = "朱雀" Then : 朱雀() : Else : If Label10.Text = "勾陳" Then : 勾陳() : Else : If Label10.Text = "騰蛇" Then : 騰蛇()
                    Else : If Label10.Text = "白虎" Then : 白虎() : Else : If Label10.Text = "玄武" Then : 玄武() : End If : End If : End If : End If : End If : End If
    End Sub
    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
        If Label11.Text = "青龍" Then : 青龍() : Else : If Label11.Text = "朱雀" Then : 朱雀() : Else : If Label11.Text = "勾陳" Then : 勾陳() : Else : If Label11.Text = "騰蛇" Then : 騰蛇()
                    Else : If Label11.Text = "白虎" Then : 白虎() : Else : If Label11.Text = "玄武" Then : 玄武() : End If : End If : End If : End If : End If : End If
    End Sub
    Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click
        If Label12.Text = "青龍" Then : 青龍() : Else : If Label12.Text = "朱雀" Then : 朱雀() : Else : If Label12.Text = "勾陳" Then : 勾陳() : Else : If Label12.Text = "騰蛇" Then : 騰蛇()
                    Else : If Label12.Text = "白虎" Then : 白虎() : Else : If Label12.Text = "玄武" Then : 玄武() : End If : End If : End If : End If : End If : End If
    End Sub
    Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click
        If Label13.Text = "青龍" Then : 青龍() : Else : If Label13.Text = "朱雀" Then : 朱雀() : Else : If Label13.Text = "勾陳" Then : 勾陳() : Else : If Label13.Text = "騰蛇" Then : 騰蛇()
                    Else : If Label13.Text = "白虎" Then : 白虎() : Else : If Label13.Text = "玄武" Then : 玄武() : End If : End If : End If : End If : End If : End If
    End Sub
    Private Sub Label14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label14.Click
        If Label14.Text = "青龍" Then : 青龍() : Else : If Label14.Text = "朱雀" Then : 朱雀() : Else : If Label14.Text = "勾陳" Then : 勾陳() : Else : If Label14.Text = "騰蛇" Then : 騰蛇()
                    Else : If Label14.Text = "白虎" Then : 白虎() : Else : If Label14.Text = "玄武" Then : 玄武() : End If : End If : End If : End If : End If : End If
    End Sub
    Private Sub 青龍()
        MsgBox("發動青龍附用通,進財進祿福無窮,臨仇遇忌都無益,酒色成災在此中。")
    End Sub
    Private Sub 朱雀()
        MsgBox("朱雀交重文印旺,煞神相併漫勞功,是非口舌皆因此,動出生身卻利公。")
    End Sub
    Private Sub 勾陳()
        MsgBox("勾陳發動優田土,累歲迍邅為忌逢,生用有情方是吉,若然安靜不迷蒙。")
    End Sub
    Private Sub 騰蛇()
        MsgBox("騰蛇鬼剋憂縈粹,怪夢陰魔暗裡攻,持木落空休道吉,逢沖之日莫逃凶。")
    End Sub
    Private Sub 白虎()
        MsgBox("白虎交重喪惡事,官司病患必成凶,持金動剋妨人口,遇火生身便不同。")
    End Sub
    Private Sub 玄武()
        MsgBox("玄武動搖多暗昧,若臨官鬼賊交攻,有情生世邪無犯,仇忌臨之姦盜凶。")
    End Sub
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        MsgBox("凡卦中旺相之爻,倘被日辰及動爻克制,目下貪榮得令,過時仍受其毒,此旺相者暫時之用也。凡卦中休囚之爻,如得日辰及動爻生扶,目下雖不能逞志,遇時仍然得意,此休囚者待時之用也。")
    End Sub
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        MsgBox("《黃金策》事阻隔兮間發,謂此兩爻,居世應之中,動阻兩家之事,使彼此不能相通也,世應中間兩間爻發動,則所求多阻隔。《增刪卜易》世為己,應為人,彼此欲相親者,若遇間 _爻發動,不" &
               "可概以阻隔斷之,若得動而生合世應,反得此輩之力。近世爻者,幫我之人也。近應爻者,扶彼之人也。生我者,我當親之；剋我者,我宜遠之。獨忌剋乎世應,事必難成。剋我者,壞我之事,我" &
               "被其愚；剋應者,壞彼之事,他為所誘。")
    End Sub
    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        MsgBox("凡卦中月破之爻,乃關因之所現也。動者亦能生剋他爻,變者亦能生剋本爻。目下雖破,出月不破! 今日雖破,值日不破矣! 月破最喜逢合填實,遠應年月,近應日時。如破而安靜,再值旬空衰" &
               "弱,遇動爻、月建、日辰剋害,此等月破,謂之真破,到比破矣!")
    End Sub
    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        MsgBox("凡卦中遇旬空,乃神蹟發現於此也。如旺相旬空、或休囚發動、日辰生扶、爻動生扶、爻動變空、伏而旺相,此等旬空到底有用,不過待其出旬之日。有合空、沖起、充實、填補之法,後捲占驗" &
               "注明。如休囚安靜、或日辰剋、動爻剋、伏而被剋、靜逢月破,值此等旬空者,謂之真空,到底空矣!")
    End Sub
    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        MsgBox("原用二神局則吉,忌仇二構局則凶。成局者結黨也,卦中動爻雖敢制之,如三爻齊發合成用神局,必有一爻用神；合成原神局,必有一爻原神；合成仇忌局,必有一爻仇忌,宗其一爻有病關因者" &
               "斷之。或遇日沖者,曰暗動(此言靜而日沖),曰實(此言動而逢空,日辰沖也),曰破(此言月建沖也),但其沖破也,必待相合之期至,而應事之吉凶。如一爻靜二爻發者,待一爻靜者值日應事。" &
               "如一爻靜而逢空、或動而逢空者、或化而逢空者,待其出空之期應事之吉凶。如空而逢合、靜而逢合、動而逢合者,必待沖期至而應事之吉凶；如自化合或與日合,如自化墓或墓于日者,必待其" &
               "沖(此言三爻齊發,二爻無病,至自化者言也),如自化絕或絕于日者,必待其生(亦指一爻有病者而言也)。")
    End Sub
    Private Sub Label48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label48.Click
        MsgBox("如卦中仇神發動,則原神被傷,用神無根,忌神倍力,其禍可勝道耶。")
    End Sub
    Private Sub Label49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label49.Click
        MsgBox("看卦先須看忌神,忌神宜靜不宜興,忌神急要逢傷剋,若遇生扶用受刑。---如忌神動來剋用,而用爻出現不空,則受剋也。倘卦中又動出一爻原神生用,則忌神反生原神,是名貪生忘剋,則用" &
               "神根蒂深固,其吉更倍矣。如忌神獨發而用爻旬空,謂之避空,如伏藏不現,謂之避凶。如月建日辰生用謂之得救,如是等仍為吉兆,夫亦何嫌何疑哉。如忌神變回頭之剋,或日辰月建沖剋之," &
               "謂之賊欲害我是賊先受害也,我又何傷。如日辰月建生扶忌神,或忌神疊疊剋用,即使用神蔽空伏藏者,至出空出透時便受其毒,難免其災也。")
    End Sub
    Private Sub Label47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label47.Click
        MsgBox("原神發動志揚揚,用扶藏兮也不妨,需要生扶兼旺相,最嫌化剋及逢傷。---如用神旬空、月破、衰弱或伏藏不現,得原神動來生之,或日辰月建作原神生之,必待用神出旬出破得令值日,所求必" &
               "遂矣。如用神旺相,原神休囚不動,或動而變墓、變絕、變剋、變破、變退,或被日辰月建剋制,皆不能生用,是用神根蒂被傷矣,不唯無益,而反有損也。")
    End Sub
    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        MsgBox("問卦先須看日辰,日辰剋用不甚親,日辰與用相生合,作事何愁不趁心。")
    End Sub
    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        MsgBox("易爻不妄成,神爻豈亂發。體象或既成,無者型憂色。使須論用神,次必看原神。三合會用吉,祿馬最為良。爻動始為定,次者論空亡。六沖主沖併,刑剋具主傷。世應俱發動,必然有改張。" &
               "龍動家有喜,虎動主有喪。勾陳朱雀動,田土與文章。財動憂尊長,父動損兒郎。子動男人滯,兄動女人殃。出行宜世動,歸魂不出疆。用動值三合,行人立回莊。占宅財龍旺,豪富冠一鄉。" &
               "父母爻興旺,為官至侯王。福神若持世,官頌定無妨。勾陳剋玄武,補賊不須忙。父病嫌財殺,財興母不長。無鬼病難療,鬼旺主發狂。請看考鬼歷,禱謝得安康。占婚兼剋用,占產看陰陽。" &
               "若要問風水,三四世吉昌。長生墓絕決,卦卦要審祥。萬千言不盡,略舉其大綱。分別各有類,無務不包藏。")
    End Sub
    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        If CheckBox1.Checked = True Then : MsgBox("世爻旺相最為強,做事亨通大吉昌,謀望諸般皆遂意,用神生合妙難量,旬空月破逢非吉,剋害刑沖遇不良。") : End If
        If RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = False And RadioButton4.Checked = False And RadioButton5.Checked = False Then
            MsgBox("請選擇持世之六親") : Else
            If RadioButton1.Checked = True And RadioButton2.Checked = False And RadioButton3.Checked = False And RadioButton4.Checked = False And RadioButton5.Checked = False Then
                MsgBox("父母持世主身勞,求嗣妾眾也難招,官動財旺宜赴試,財搖謀利莫心焦,占身財動無賢婦,又恐區區壽不高。") : Else
                If RadioButton1.Checked = False And RadioButton2.Checked = True And RadioButton3.Checked = False And RadioButton4.Checked = False And RadioButton5.Checked = False Then
                    MsgBox("子身持世事無憂,求名切忌坐當頭,避亂許安失可得,官頌從今了便休,有生無剋諸般吉,有剋無生反見愁。") : Else
                    If RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = True And RadioButton4.Checked = False And RadioButton5.Checked = False Then
                        MsgBox("鬼爻持世事難安,占身不病也遭官,財物時時憂失脫,功名最喜世當權,入墓愁疑無散日,逢沖轉禍變成歡。") : Else
                        If RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = False And RadioButton4.Checked = True And RadioButton5.Checked = False Then
                            MsgBox("財搖持世益財榮,兄弟交重不可逢,更遇子孫明暗動,利身剋父喪文風,求官問訟宜財托,變動兄官萬事兄。") : Else
                            If RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = False And RadioButton4.Checked = False And RadioButton5.Checked = True Then
                                MsgBox("兄弟持世莫求財,官興需慮禍將來,朱雀並臨防口舌,如搖必定損妻財,父母相生身有壽,化官化鬼有奇災。")
                            End If : End If : End If : End If : End If : End If
    End Sub
    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        MsgBox("身臨福德不見官,所憂畢竟變成歡,目前兇事終須吉,緊急還來漸漸寬。身臨原用與青龍,定期喜事入門中,若逢驛馬身爻動,出路謀求事事通。身爻切忌入空亡,做事難成且守常,刑傷破絕皆為忌" &
               "勸君安分守家邦。")
    End Sub
    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        MsgBox("正卦如無變又無,就將首卦六親攻,動爻生用終須吉,若遇交重剋用兇。")
    End Sub
    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        MsgBox("發動逢沖不謂空,靜空遇剋卻為空,忌神最喜逢空吉,用與原神不可空。春土夏金秋樹木,三冬逢火是真空,旬空又值真空象,再遇爻傷到底空。" &
               "勸君安分守家邦。")
    End Sub
    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        MsgBox("用爻發動再宮中,縱值休囚亦不兇,更得生扶兼旺相,管教作事永亨通。")
    End Sub
    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        If RadioButton10.Checked = False And RadioButton9.Checked = False And RadioButton8.Checked = False And RadioButton7.Checked = False And RadioButton6.Checked = False Then
            MsgBox("請選擇發動之六親") : Else
            If RadioButton10.Checked = True And RadioButton9.Checked = False And RadioButton8.Checked = False And RadioButton7.Checked = False And RadioButton6.Checked = False Then
                MsgBox("父動當頭剋子孫,病人無藥主昏沉,姻親子息應難得,買賣勞心利不存,觀望行人書信動,論官下狀理先分,士人科舉登金榜,失誤逃亡要訴論。") : Else
            End If
            If RadioButton10.Checked = False And RadioButton9.Checked = True And RadioButton8.Checked = False And RadioButton7.Checked = False And RadioButton6.Checked = False Then
                MsgBox("子孫發動傷官鬼,占病求醫身便癒,行人買賣身康泰,婚姻喜美事前緣,產婦當生子易養,詞訟私和不到官,謁貴求名休進用,勸君守分聽乎天。") : Else
            End If
            If RadioButton10.Checked = False And RadioButton9.Checked = False And RadioButton8.Checked = True And RadioButton7.Checked = False And RadioButton6.Checked = False Then
                MsgBox("官鬼從來剋兄弟,婚姻未就生疑滯,病困門庭禍崇來,耕種蠶桑皆不利,外出逃亡定見災,詞訟官非有囚繫,買賣財輕賭博輸,失脫難尋多暗昧。") : Else
            End If
            If RadioButton10.Checked = False And RadioButton9.Checked = False And RadioButton8.Checked = False And RadioButton7.Checked = True And RadioButton6.Checked = False Then
                MsgBox("財爻發動剋文書,應舉求名總是虛,將本經營為大吉,親姻如意藥無虞,行人在外身將動,產婦求財身脫除,失物安靜家未出,病人傷胃更傷脾。") : Else
            End If
            If RadioButton10.Checked = False And RadioButton9.Checked = False And RadioButton8.Checked = False And RadioButton7.Checked = False And RadioButton6.Checked = True Then
                MsgBox("兄弟交重剋了財,病人離癒未難災,應舉奪標為忌客,官非陰賊耗錢財,若帶吉神為有助,出入行人便未來,貨物經商消折本,買婢求妻事不諧。") : Else
            End If
        End If
    End Sub
    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        If RadioButton10.Checked = False And RadioButton9.Checked = False And RadioButton8.Checked = False And RadioButton7.Checked = False And RadioButton6.Checked = False Then
            MsgBox("請選擇發動之六親") : Else
            If RadioButton10.Checked = True And RadioButton9.Checked = False And RadioButton8.Checked = False And RadioButton7.Checked = False And RadioButton6.Checked = False Then
                MsgBox("父母化父母,近神文書許,化子不傷丁,化鬼官遷舉,化財宅長憂,兄弟為泄氣。") : Else
            End If
            If RadioButton10.Checked = False And RadioButton9.Checked = True And RadioButton8.Checked = False And RadioButton7.Checked = False And RadioButton6.Checked = False Then
                MsgBox("子孫化退神,人財不稱情,化父田蠶敗,化財加倍榮,化鬼憂生產,兄弟謂相生。") : Else
            End If
            If RadioButton10.Checked = False And RadioButton9.Checked = False And RadioButton8.Checked = True And RadioButton7.Checked = False And RadioButton6.Checked = False Then
                MsgBox("官化進神祿,求官應疾連,化財占病兇,化父父書遂,化子必傷官,化兄家不睡。") : Else
            End If
            If RadioButton10.Checked = False And RadioButton9.Checked = False And RadioButton8.Checked = False And RadioButton7.Checked = True And RadioButton6.Checked = False Then
                MsgBox("妻財化進神,錢財入宅來,化官憂戚戚,化子笑哈哈,化父宜家長,化兄當破財。") : Else
            End If
            If RadioButton10.Checked = False And RadioButton9.Checked = False And RadioButton8.Checked = False And RadioButton7.Checked = False And RadioButton6.Checked = True Then
                MsgBox("兄弟化退神,凡占無所忌,化父妾奴驚,化財財未遂,化官弟有災,化子卻如意。") : Else
            End If : End If
    End Sub
    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        MsgBox("土爻動而變木,木爻動而變金,金爻動而變火,火爻動而變水,水爻動而變土,此是爻之回頭剋也。乾兌卦之離,離之坎,坎之艮坤,艮坤之震巽,震巽之乾兌,此是卦之回頭剋也。凡遇回頭剋" &
               "者,徹底剋盡。原用二神遇之則兇,忌仇二神遇之反吉。")
    End Sub
    Private Sub Label80_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label80.Click
        MsgBox("寅日占卦,金爻絕于寅,如卦中有土爻動而生之,是絕處逢生也。")
    End Sub
    Private Sub Label81_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label81.Click
        MsgBox("申日占卦,木爻絕于申,如卦中有水爻動而生之,是絕處逢生也。")
    End Sub
    Private Sub Label84_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label84.Click
        MsgBox("巳日占卦,水爻絕于巳,如卦中有金爻動而生之,是絕處逢生也。")
    End Sub
    Private Sub Label82_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label82.Click
        MsgBox("亥日占卦,火爻絕于亥,如卦中有木爻動而生之,是絕處逢生也。")
    End Sub
    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
        MsgBox("青龍最喜悅而多仁,附忌神凡謀不利。白虎最兇勇而好殺,生用神諸為則吉。朱雀剋身,口舌是非常有,如來生用,文書音信當回。勾陳屬土,空則田園欠熟,剛強剋世,公差牽扯拘遲。騰蛇怪異" &
               "虛驚,玄武私情盜賊。白虎血神生產,偏宜發動。午宮化朱雀水,何忌火災。騰蛇木鬼欺身,恐自縊難逃枷鎖。玄武官生靜世,交小人莫慮干連。世剋靜,青龍巡捕戲場酒肆上。鬼動勾陳,論祈禱" &
               "訴酬太歲,問病原腫脹黃浮。")
    End Sub
    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        MsgBox("凡卦中子爻變丑,戌變卯,此子與丑合,卯與戌合,合中帶剋,合三剋七之分,如旺相得日月生扶幫比,或卦中動爻生之,世作合論也。被日月剋之,或卦中動剋之,世作剋論也。為申金化巳火者" &
               "即無日月與動爻相生,不作剋論,乃化合化長生也,倘寅月日占之,是三刑會聚,申被寅沖,則不可以吉論矣。")
    End Sub
    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        MsgBox("合處逢沖有三 : 凡六合變六沖一也。日月沖爻二也。動爻變沖三也。---沖中處逢合亦有三 : 凡六沖變六合一也。日月合爻二也。動爻變合三也---合處逢沖,謀雖成而終散。沖中逢合,事已散而復成")
    End Sub
    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        MsgBox("為巳日占卦,土爻絕于巳,如月建生扶幫比,土爻不謂絕也,謂之日生。如土化出巳,有日月幫比,不云化絕,乃云回頭生也。如日月制土,則是絕于日也,則是化絕于爻也。如酉日占卦,寅爻被剋" &
               ",卦終有水爻動而生之,是剋處逢生矣,餘例如之。大凡絕處逢生,寒谷逢春,剋處逢生,兇後見吉也。")
    End Sub
    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
        MsgBox("凡卦終亥變子,丑變辰,寅變卯,辰變未,巳變午,未變戌,申變酉,戌變丑,乃進神也。進神者吉凶倍增其勢也。")
    End Sub
    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
        MsgBox("凡卦終子變亥,戌變未,酉變申,未變辰,午變巳,辰變丑,卯變寅,丑變戌,乃退神也。退神者吉凶漸減其威也。")
    End Sub
    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
        MsgBox("如甲戊日卜卦,見丑未爻即是日貴人,又如甲戊生人見之,為命貴人。----甲戊兼牛羊,乙己鼠猴鄉,丙丁豬雞位,壬癸兔蛇藏,庚辛逢馬虎,此是貴人方。")
    End Sub
    Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
        MsgBox("子水鼠,丑土牛,寅木虎,卯木兔,辰土龍,巳火蛇,午火馬,未土羊,申金猴,酉金雞,戌土狗,亥水豬")
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        Set_經文存檔()
    End Sub
End Class