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 (西元 = N'" & 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(N'" & TextBox1.Text & "', 1))" : Dim 條件2 As String = "(地支 = RIGHT(N'" & TextBox2.Text & "', 1))" Dim 條件3 As String = "(地支 = RIGHT(N'" & TextBox3.Text & "', 1))" : Dim 條件4 As String = "(地支 = RIGHT(N'" & 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(N'" & 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 (卦數 = N'" & 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 (卦數 = N'" & ComboBox2.Text + ComboBox1.Text & "')" Dim 條件2 As String = "SELECT 五行 FROM 八卦六親 WHERE (卦數 = N'" & ComboBox2.Text + ComboBox1.Text & "')" Dim 條件3 As String = "SELECT 化卦名 FROM 卜筮化卦 WHERE (卦數 = N'" & ComboBox3.Text + ComboBox2.Text + ComboBox1.Text & "')" Dim 條件4 As String = "SELECT 五行 FROM 八卦六親 WHERE (卦名 = N'" & 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 = "(地支 = N'" & Label27.Text & "')" : Dim 條件6 As String = "(地支 = N'" & Label28.Text & "')" Dim 條件7 As String = "(地支 = N'" & Label29.Text & "')" : Dim 條件8 As String = "(地支 = N'" & Label30.Text & "')" Dim 條件9 As String = "(地支 = N'" & Label31.Text & "')" : Dim 條件10 As String = "(地支 = N'" & 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 (卦數 = N'" & 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(N'" & TextBox43.Text & "', 1))" : Dim 條件12 As String = "(地支 = RIGHT(N'" & TextBox44.Text & "', 1))" Dim 條件13 As String = "(地支 = RIGHT(N'" & TextBox45.Text & "', 1))" : Dim 條件14 As String = "(地支 = RIGHT(N'" & TextBox46.Text & "', 1))" Dim 條件15 As String = "(地支 = RIGHT(N'" & TextBox47.Text & "', 1))" : Dim 條件16 As String = "(地支 = RIGHT(N'" & 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 = "(地支對衝 = N'" & Label27.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')" Dim 條件18 As String = "(地支對衝 = N'" & Label28.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')" Dim 條件19 As String = "(地支對衝 = N'" & Label29.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')" Dim 條件20 As String = "(地支對衝 = N'" & Label30.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')" Dim 條件21 As String = "(地支對衝 = N'" & Label31.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')" Dim 條件22 As String = "(地支對衝 = N'" & 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 = "(地支對衝 = N'" & Label27.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')" Dim 條件24 As String = "(地支對衝 = N'" & Label28.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')" Dim 條件25 As String = "(地支對衝 = N'" & Label29.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')" Dim 條件26 As String = "(地支對衝 = N'" & Label30.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')" Dim 條件27 As String = "(地支對衝 = N'" & Label31.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')" Dim 條件28 As String = "(地支對衝 = N'" & 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 = "(地支對衝 = N'" & TextBox43.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')" Dim 條件30 As String = "(地支對衝 = N'" & TextBox44.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')" Dim 條件31 As String = "(地支對衝 = N'" & TextBox45.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')" Dim 條件32 As String = "(地支對衝 = N'" & TextBox46.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')" Dim 條件33 As String = "(地支對衝 = N'" & TextBox47.Text + Microsoft.VisualBasic.Right(TextBox2.Text, 1) & "')" Dim 條件34 As String = "(地支對衝 = N'" & 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 = "(地支對衝 = N'" & TextBox43.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')" Dim 條件36 As String = "(地支對衝 = N'" & TextBox44.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')" Dim 條件37 As String = "(地支對衝 = N'" & TextBox45.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')" Dim 條件38 As String = "(地支對衝 = N'" & TextBox46.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')" Dim 條件39 As String = "(地支對衝 = N'" & TextBox47.Text + Microsoft.VisualBasic.Right(TextBox4.Text, 1) & "')" Dim 條件40 As String = "(地支對衝 = N'" & 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 (卦數 = N'" & 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 (卦數 = N'" & 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 (卦數 = N'" & 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 (地支對衝 = N'" & 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 (地支對衝 = N'" & 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(N'" & 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 (卦數 = N'" & 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 (卦數 = N'" & 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 (地支對衝 = N'" & 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 (地支對衝 = N'" & 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(N'" & 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 (卦數 = N'" & 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 (卦數 = N'" & 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 (地支對衝 = N'" & 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 (地支對衝 = N'" & 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(N'" & 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 (卦數 = N'" & 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 (卦數 = N'" & 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 (地支對衝 = N'" & 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 (地支對衝 = N'" & 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(N'" & 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 (卦數 = N'" & 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 (卦數 = N'" & 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 (地支對衝 = N'" & 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 (地支對衝 = N'" & 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(N'" & 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 (卦數 = N'" & 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 (卦數 = N'" & 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 (地支對衝 = N'" & 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 (地支對衝 = N'" & 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(N'" & 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 = "(卦名 = N'" & TextBox24.Text & "')" : Dim 條件42 As String = "(卦名 = N'" & 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 (用神 = N'" & 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 (N'" & TextBox182.Text & "', N'" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "',N'" & ComboBox1.Text & "',N'" & ComboBox2.Text & "',N'" & ComboBox3.Text & "',N'" & ComboBox4.Text & "', N'" & ComboBox5.Text & "',N'" & TextBox183.Text & "',N'" & TextBox179.Text & "',N'" & TextBox199.Text & "',N'" & TextBox201.Text & "',N'" & 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 日期 = N'" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "', 卦數一 = N'" & ComboBox1.Text & "', 卦數二 = N'" & ComboBox2.Text & "', 卦數三 = N'" & ComboBox3.Text & "', 用神 = N'" & ComboBox4.Text & "' , 五行 = N'" & ComboBox5.Text & "' , 占事者 = N'" & TextBox183.Text & "' , 占事 = N'" & TextBox179.Text & "' " & ", 貴人 = N'" & TextBox199.Text & "' , 三合 = N'" & TextBox200.Text & "' , 三刑 = N'" & TextBox201.Text & "' WHERE (流水號 = N'" & 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 (流水號 = N'" & 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