GA-ERP-SYS
/
GA-ERP-SYS-LEEHSIEHJUI
關注 4
收藏 0
複製 0
程式碼 問題 0 合併請求 0 版本發佈 0 Wiki 活動
暫無描述
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
9 提交
1 分支
目錄樹: e8e98b16f2
分支列表 標籤
${ item.name }
建立分支 ${ searchTerm }
從 'e8e98b16f2'
${ noResults }
GA-ERP-SYS-LEEHSIEHJUI/GA-ERP-SYS/Module/SQL_子系統管理.vb

SQL_子系統管理.vb 48KB
歷史記錄 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605 
  1. Module SQL_子系統管理

  2.     '--------------------------------------基本資料管理------------------------------------

  3.     Friend Sub SQL_同步修正網址1()

  4.         ConnOpen_子SQL()

  5.         SQL1 = "UPDATE [LOG] SET 網址 = N'" & 基本資料.網址2_tb.Text & "' WHERE  網址 LIKE N'" & 基本資料.網址4_tb.Text & "'"

  6.         CmdSet_For_dr()

  7.     End Sub

  8.     Friend Sub SQL_同步修正網址2()

  9.         ConnOpen_子SQL()

  10.         SQL1 = "UPDATE 下行客戶 SET 網址 = N'" & 基本資料.網址2_tb.Text & "' WHERE  網址 LIKE N'" & 基本資料.網址4_tb.Text & "'"

  11.         CmdSet_For_dr()

  12.     End Sub

  13.     Friend Sub SQL_同步修正網址3()

  14.         ConnOpen_子SQL()

  15.         SQL1 = "UPDATE 流水帳 SET 網址 = N'http:\" & 基本資料.網址2_tb.Text & "' WHERE  SUBSTRING(網址, 7, 50) LIKE N'" & 基本資料.網址4_tb.Text & "'"

  16.         CmdSet_For_dr()

  17.     End Sub

  18.     Friend Sub SQL_同步修正網址4()

  19.         ConnOpen_子SQL()

  20.         SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & 基本資料.網址2_tb.Text & "', 商品 = N'" & 基本資料.商品_tb.Text & "', 驗證 = N'          '

  21.                 WHERE  網址 LIKE N'" & 基本資料.網址4_tb.Text & "' AND 商品 LIKE N'" & 基本資料.商品1_tb.Text & "'"

  22.         CmdSet_For_dr()

  23.     End Sub

  24.     Friend Sub SQL_商品流水號查詢()

  25.         ConnOpen_子SQL() : SQL1 = "SELECT 編號 FROM 商品資料表 WHERE (系統 LIKE N'" & 基本資料.系統_cb.Text & "') ORDER BY 編號 DESC" : CmdSet_For_dr()

  26.     End Sub

  27.     Friend Sub SQL_商品資料表()

  28.         ConnOpen_子SQL()

  29.         SQL1 = "SELECT     商品資料表.商品, 商品資料表.編號, 商品資料表.系統, 商品資料表.層級, 商品資料表.網址, 

  30.                            商客基本資料表.網址 AS 使用

  31.                 FROM       商品資料表 LEFT OUTER JOIN

  32.                            商客基本資料表 ON 商品資料表.商品 = 商客基本資料表.商品 AND 

  33.                            商品資料表.網址 = 商客基本資料表.網址

  34.                 WHERE     (商品資料表.系統 LIKE '" & 基本資料.系統_cb.Text & "') AND (商品資料表.網址 LIKE N'%" & PA16 & "%')

  35.                 GROUP BY   商品資料表.商品, 商品資料表.編號, 商品資料表.系統, 商品資料表.層級, 商品資料表.網址, 

  36.                            商客基本資料表.網址

  37.                 ORDER BY   商品資料表.編號, 商品資料表.商品, 商品資料表.層級"

  38.         CmdSet_For_DGV()

  39.     End Sub

  40.     Friend Sub SQL_商品寫入驗證1()

  41.         ConnOpen_子SQL()

  42.         SQL1 = "SELECT 編號 FROM 商品資料表 WHERE 編號 LIKE N'" & 基本資料.編號_tb.Text & "'"

  43.         CmdSet_For_dr()

  44.     End Sub

  45.     Friend Sub SQL_商品寫入驗證2()

  46.         ConnOpen_子SQL()

  47.         SQL1 = "SELECT 網址 FROM 商品資料表 WHERE 網址 LIKE N'" & 基本資料.網址2_tb.Text & "'"

  48.         CmdSet_For_dr()

  49.     End Sub

  50.     Friend Sub SQL_商品寫入()

  51.         ConnOpen_子SQL()

  52.         SQL1 = "INSERT INTO 商品資料表 (商品, 編號, 系統, 層級, 網址) 

  53.                 VALUES (N'" & 基本資料.商品_tb.Text & "', N'" & 基本資料.編號_tb.Text & "', N'" & 基本資料.系統_cb.Text & "', N'" & 基本資料.層級_cb.Text & "', N'" & 基本資料.網址2_tb.Text & "')"

  54.         CmdSet_For_dr()

  55.     End Sub

  56.     Friend Sub SQL_商品修改()

  57.         ConnOpen_子SQL()

  58.         SQL1 = "UPDATE 商品資料表 SET 系統 = N'" & 基本資料.系統_cb.Text & "', 層級 = N'" & 基本資料.層級_cb.Text & "', 

  59.                                       網址 = N'" & 基本資料.網址2_tb.Text & "', 商品 = N'" & 基本資料.商品_tb.Text & "'

  60.                 WHERE  編號 LIKE N'" & 基本資料.編號_tb.Text & "'"

  61.         CmdSet_For_dr()

  62.     End Sub

  63.     Friend Sub SQL_商品刪除()

  64.         ConnOpen_子SQL()

  65.         SQL1 = "DELETE 商品資料表 WHERE  商品  LIKE N'" & 基本資料.商品_tb.Text & "' AND 編號 LIKE N'" & 基本資料.編號_tb.Text & "'"

  66.         CmdSet_For_dr()

  67.     End Sub

  68.     Friend Sub SQL_基數資料表()

  69.         ConnOpen_子SQL() : SQL1 = "SELECT 基數 FROM 基數資料表 ORDER BY 基數" : CmdSet_For_DGV()

  70.     End Sub

  71.     Friend Sub SQL_長短板資料表()

  72.         ConnOpen_子SQL() : SQL1 = "SELECT 資料 FROM 長短版資料表 ORDER BY 資料" : CmdSet_For_DGV()

  73.     End Sub

  74.     Friend Sub SQL_基本資料_客戶下資料表()

  75.         ConnOpen_子SQL()

  76.         SQL1 = "SELECT     商客基本資料表.商品, 下行客戶.網址, 下行客戶.帳號 AS 老闆帳號, 下行客戶.客戶下 AS 客戶帳號, 下行客戶.客名 AS 客戶名稱, 下行客戶.流水號, 

  77.                            下行客戶.基數, 下行客戶.基數 AS 階級, 下行客戶.計算, 下行客戶.同帳, 下行客戶.所得, 下行客戶.所得另算

  78.                 FROM       下行客戶 LEFT OUTER JOIN

  79.                            商客基本資料表 ON 下行客戶.網址 = 商客基本資料表.網址 AND 下行客戶.帳號 = 商客基本資料表.帳號

  80.                 WHERE      下行客戶.客戶下 LIKE N'%" & PA & "%' " & PA9 & "

  81.                 ORDER BY   商客基本資料表.商品, 下行客戶.帳號"

  82.         CmdSet_For_DGV()

  83.     End Sub

  84.     Friend Sub SQL_系統編碼規則_客戶下重複查詢()

  85.         ConnOpen_子SQL()

  86.         SQL1 = "SELECT 客戶下 FROM 下行客戶 

  87.                 WHERE  客戶下 LIKE N'" & 基本資料.客戶下_tb.Text & "' AND 網址 LIKE N'" & 基本資料.網址3_tb.Text & "' AND 

  88.                        帳號 LIKE N'" & 基本資料.帳號3_tb.Text & "' AND 基數 LIKE N'" & 基本資料.下行1_cb.Text & "'"

  89.         CmdSet_For_dr()

  90.     End Sub

  91.     Friend Sub SQL_系統編碼規則_客戶下新增()

  92.         ConnOpen_子SQL()

  93.         SQL1 = "INSERT INTO 下行客戶 (客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得) 

  94.                 VALUES (N'" & 基本資料.客戶下_tb.Text & "', N'" & 基本資料.網址3_tb.Text & "', N'" & 基本資料.帳號3_tb.Text & "', 

  95.                         N'" & 基本資料.下行1_cb.Text & "', N'" & PA10 & "', N'" & 基本資料.下行1_cb.Text & "', '" & 基本資料.參與計算_ch.Checked & "', 

  96.                          '" & 基本資料.上下同帳_ch.Checked & "', '" & 基本資料.所得計算_ch.Checked & "')"

  97.         CmdSet_For_dr()

  98.     End Sub

  99.     Friend Sub SQL_系統編碼規則_客戶下刪除()

  100.         ConnOpen_子SQL() : SQL1 = "DELETE FROM 下行客戶 WHERE 流水號 LIKE N'" & 基本資料.流水號_tb.Text & "'" : CmdSet_For_dr()

  101.     End Sub

  102.     Friend Sub SQL_系統編碼規則_客戶下修改()

  103.         ConnOpen_子SQL()

  104.         SQL1 = "UPDATE 下行客戶 SET 客戶下 = N'" & PA & "', 網址 = N'" & PA1 & "', 帳號 = N'" & PA2 & "', 基數 = N'" & PA3 & "', 客名 = N'" & PA4 & "', 

  105.                                     計算 = '" & 基本資料.參與計算_ch.Checked & "', 同帳 = '" & 基本資料.上下同帳_ch.Checked & "', 所得 = '" & 基本資料.所得計算_ch.Checked & "', 

  106.                                     所得另算 = N'" & PA5 & "'

  107.                 WHERE  流水號 LIKE N'" & 基本資料.流水號_tb.Text & "'"

  108.         CmdSet_For_dr()

  109.     End Sub

  110.     Friend Sub SQL_系統編碼規則_客戶下批改()

  111.         ConnOpen_子SQL() : SQL1 = "UPDATE 下行客戶 SET 計算 = '" & BL1 & "', 同帳 = '" & BL2 & "', 所得 = '" & BL3 & "', 所得另算 = N'" & PA1 & "' WHERE  流水號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  112.     End Sub

  113.     Friend Sub SQL_商客資料表2()

  114.         ConnOpen_子SQL()

  115.         SQL1 = "SELECT    商客基本資料表.網址, 商客基本資料表.帳號, 商客基本資料表.密碼, 商客基本資料表.資料, 

  116.                           商客基本資料表.上繳源, 商客基本資料表.商品, 商客基本資料表.上行基數, 

  117.                           商客基本資料表.下行基數, QQ.網址 AS 下線, 商客基本資料表.驗證

  118.                 FROM      商客基本資料表 LEFT OUTER JOIN

  119.                          (SELECT      網址, 帳號

  120.                           FROM        下行客戶

  121.                           WHERE      (客名 NOT LIKE '')

  122.                           GROUP BY    網址, 帳號) AS QQ ON 商客基本資料表.帳號 = QQ.帳號 AND 

  123.                           商客基本資料表.網址 = QQ.網址

  124.                 WHERE    (商客基本資料表.網址 LIKE N'%" & PA1 & "%')

  125.                 ORDER BY  商客基本資料表.商品, 商客基本資料表.上繳源, 商客基本資料表.帳號"

  126.         CmdSet_For_DGV()

  127.     End Sub

  128.     Friend Sub SQL_商客資料表()

  129.         ConnOpen_子SQL()

  130.         SQL1 = "SELECT 網址, 帳號, 密碼, 資料, 上繳源, 商品, 上行基數, 下行基數 FROM 商客基本資料表 WHERE 網址 NOT LIKE N'' ORDER BY  商品, 上繳源, 帳號"

  131.         CmdSet_For_DGV()

  132.     End Sub

  133.     Friend Sub SQL_系統編碼規則_商客重複查詢()

  134.         ConnOpen_子SQL()

  135.         SQL1 = "SELECT 網址,帳號,密碼,資料,上繳源,商品,上行基數,下行基數  FROM 商客基本資料表 

  136.                 WHERE (帳號 LIKE N'" & 基本資料.帳號_tb.Text & "' AND  網址 LIKE N'" & 基本資料.網址_tb.Text & "'AND 資料 LIKE N'" & 基本資料.資料_cb.Text & "' AND 

  137.                        上繳源 LIKE N'" & 基本資料.上繳源_tb.Text & "'AND 商品 LIKE N'" & 基本資料.商品_cb.Text & "')"

  138.         CmdSet_For_dr()

  139.     End Sub

  140.     Friend Sub SQL_系統編碼規則_商客新增()

  141.         ConnOpen_子SQL()

  142.         SQL1 = "INSERT INTO 商客基本資料表 (網址, 帳號, 密碼, 資料, 上繳源, 商品, 上行基數, 下行基數) 

  143.                             VALUES (N'" & 基本資料.網址_tb.Text & "',N'" & 基本資料.帳號_tb.Text & "',N'" & 基本資料.密碼_tb.Text & "', N'" & 基本資料.資料_cb.Text & "',

  144.                                     N'" & 基本資料.上繳源_tb.Text & "', N'" & 基本資料.商品_cb.Text & "', N'" & 基本資料.上行_cb.Text & "', N'" & 基本資料.下行_cb.Text & "')"

  145.         CmdSet_For_dr()

  146.     End Sub

  147.     Friend Sub SQL_系統編碼規則_商客刪除()

  148.         ConnOpen_子SQL()

  149.         SQL1 = "DELETE FROM 商客基本資料表 WHERE (帳號 LIKE N'" & 基本資料.帳號_tb.Text & "' AND  網址 LIKE N'" & 基本資料.網址_tb.Text & "')"

  150.         CmdSet_For_dr()

  151.     End Sub

  152.     Friend Sub SQL_系統編碼規則_商客修改()

  153.         ConnOpen_子SQL()

  154.         SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & PA2 & "',上繳源 = N'" & PA3 & "', 資料 = N'" & PA8 & "', 商品 = N'" & PA9 & "',

  155.                                           帳號 = N'" & PA4 & "', 密碼 = N'" & PA5 & "' ,上行基數 = N'" & PA6 & "' ,下行基數 = N'" & PA7 & "', 驗證 = N'          '                                    

  156.                                   WHERE (帳號 LIKE N'" & 基本資料.帳號1_tb.Text & "' AND  網址 LIKE N'" & 基本資料.網址1_tb.Text & "')"

  157.         CmdSet_For_dr()

  158.     End Sub

  159.     Friend Sub SQL_商品確認()

  160.         ConnOpen_子SQL() : SQL1 = "SELECT 商品 FROM 商品資料表 WHERE 商品 LIKE N'" & PA9 & "'" : CmdSet_For_dr()

  161.     End Sub

  162.     Friend Sub SQL_下拉商品清單讀取()

  163.         ConnOpen_子SQL() : SQL1 = "SELECT 編號, 商品, 層級 FROM 商品資料表 WHERE 系統 LIKE N'" & 基本資料.系統1_cb.Text & "'  ORDER BY 編號" : CmdSet_For_dr()

  164.     End Sub

  165.     Friend Sub SQL_下拉商品清單讀取1()

  166.         ConnOpen_子SQL() : SQL1 = "SELECT 商品 FROM 商客基本資料表 GROUP BY 商品 ORDER BY 商品" : CmdSet_For_dr()

  167.     End Sub

  168.     Friend Sub SQL_商品讀取()

  169.         ConnOpen_子SQL() : SQL1 = "SELECT 商品, 編號, 層級 FROM 商品資料表 WHERE (網址 LIKE '" & PA1 & "') AND (商品 LIKE '" & PA2 & "') ORDER BY 編號" : CmdSet_For_dr()

  170.     End Sub

  171.     Friend Sub SQL_商品網址讀取()

  172.         ConnOpen_子SQL() : SQL1 = "SELECT 網址, 商品 FROM 商品資料表 WHERE 編號 LIKE N'" & Strings.Left(基本資料.商品1_cb.Text, 4) & "'" : CmdSet_For_dr()

  173.     End Sub

  174.     Friend Sub SQL_下拉資料清單讀取()

  175.         ConnOpen_子SQL() : SQL1 = "SELECT 資料 FROM 長短版資料表" : CmdSet_For_dr()

  176.     End Sub

  177.     Friend Sub SQL_上行清單讀取()

  178.         ConnOpen_子SQL() : SQL1 = "SELECT 基數 FROM 基數資料表" : CmdSet_For_dr()

  179.     End Sub

  180.     Friend Sub SQL_上行清單讀取1()

  181.         ConnOpen_子SQL() : SQL1 = "SELECT 基數 FROM 基數資料表 WHERE 基數 NOT LIKE '上%'" : CmdSet_For_dr()

  182.     End Sub

  183.     Friend Sub SQL_商客清單讀取1()

  184.         ConnOpen_子SQL() : SQL1 = "SELECT 網址, 帳號, 上繳源 FROM 商客基本資料表 WHERE (商品 LIKE N'" & 基本資料.商品2_cb.Text & "') ORDER BY   商品" : CmdSet_For_dr()

  185.     End Sub

  186.     '-----------------------------------------流水帳導入----------------------------

  187.     Friend Sub SQL_流水帳資料表()

  188.         ConnOpen_子SQL() : SQL1 = "SELECT 日期,網址,帳號,[1],[2],[3],[4],[5],[6],[7],[8],[9],[10],[11],[12],[13],[14],[15],[16],[17],[18],[19],[20],[21],[22],[23],資料流水號

  189.                                    FROM 流水帳1

  190.                                    ORDER BY 資料流水號"

  191.         CmdSet_For_DGV()

  192.     End Sub

  193.     Friend Sub SQL_流水號最後一筆()

  194.         ConnOpen_子SQL() : SQL1 = "SELECT TOP (1) [index] FROM 流水帳 ORDER BY [index] DESC" : CmdSet_For_dr()

  195.     End Sub

  196.     Friend Sub SQL_新增()

  197.         ConnOpen_子SQL()

  198.         SQL1 = "INSERT INTO  流水帳1  (日期,網址,帳號,[1],[2],[3],[4],[5],[6],[7],[8],[9],[10],[11],[12],[13],[14],[15],[16],[17],[18],[19],[20],[21],[22],[23],資料流水號) 

  199.                 VALUES                (N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'" & 流水帳手動輸入.流水帳_tb.Text & "')"

  200.         CmdSet_For_dr()

  201.     End Sub

  202.     Friend Sub SQL_查詢()

  203.         ConnOpen_子SQL()

  204.         SQL1 = "SELECT      流水帳1.日期, 流水帳1.網址, 流水帳1.帳號, 流水帳1.[1], 流水帳1.[2], 流水帳1.[3], 流水帳1.[4], 流水帳1.[5], 

  205.                             流水帳1.[6], 流水帳1.[7], 流水帳1.[8], 流水帳1.[9], 流水帳1.[10], 流水帳1.[11], 流水帳1.[12], 流水帳1.[13], 

  206.                             流水帳1.[14], 流水帳1.[15], 流水帳1.[16], 流水帳1.[17], 流水帳1.[18], 流水帳1.[19], 流水帳1.[20], 流水帳1.[21], 

  207.                             流水帳1.[22], 流水帳1.[23], 流水帳1.資料流水號, 選擇按鈕.按鈕 AS 選擇, 商客基本資料表.資料

  208.                 FROM        流水帳1 LEFT OUTER JOIN

  209.                             商客基本資料表 ON 流水帳1.帳號 = 商客基本資料表.帳號 AND 

  210.                             流水帳1.網址 = 商客基本資料表.網址 LEFT OUTER JOIN

  211.                             選擇按鈕 ON 流水帳1.網址 = 選擇按鈕.選擇

  212.                 ORDER BY    流水帳1.資料流水號"

  213.         CmdSet_For_DGV()

  214.     End Sub

  215.     Friend Sub SQL_刪除空白流水帳()

  216.         ConnOpen_子SQL() : SQL1 = "DELETE 流水帳1 WHERE 資料流水號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  217.     End Sub

  218.     Friend Sub SQL_佔存轉正式()

  219.         ConnOpen_子SQL()

  220.         SQL1 = "INSERT INTO 流水帳 ([index], 開始日期, 結束日期, 網址, 帳戶, 名稱, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 自已總輸贏, 上繳貢獻額, 貢獻額, 貢獻度, 

  221.                                     下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 大股東, 客戶s, 總量s, 中獎s, 輸贏s, 客戶小計s, 代理小計s, 總代理小計s,

  222.                                     股東小計s, 大股東小計s, 總監小計s, 個人所得s, 水差s, 下注明細s, 查看對帳s) 

  223.                 VALUES (N'" & PA37 & "',N'" & PA38 & "',N'" & PA39 & "',N'" & PA40 & "',N'" & PA41 & "',N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',

  224.                         N'" & PA6 & "',N'" & PA7 & "',N'" & PA8 & "',N'" & PA9 & "',N'" & PA10 & "',N'" & PA11 & "',N'" & PA12 & "',N'" & PA13 & "',N'" & PA14 & "',N'" & PA15 & "',

  225.                         N'" & PA16 & "',N'" & PA17 & "',N'" & PA18 & "',N'" & PA19 & "',N'" & PA20 & "',N'" & PA21 & "',N'" & PA22 & "',N'" & PA23 & "',N'" & PA24 & "',N'" & PA25 & "',

  226.                         N'" & PA26 & "',N'" & PA27 & "',N'" & PA28 & "',N'" & PA29 & "',N'" & PA30 & "',N'" & PA31 & "',N'" & PA32 & "',N'" & PA33 & "',N'" & PA34 & "',N'" & PA35 & "',

  227.                         N'" & PA36 & "')"

  228.         CmdSet_For_dr()

  229.     End Sub

  230.     Friend Sub SQL_商客資料表1()

  231.         ConnOpen_子SQL()

  232.         SQL1 = "SELECT     商客基本資料表.網址, 商客基本資料表.帳號, 商客基本資料表.密碼, 商客基本資料表.資料, 商客基本資料表.上繳源, 

  233.                            商客基本資料表.商品, 選擇按鈕.按鈕 AS 選擇

  234.                 FROM       商客基本資料表 LEFT OUTER JOIN

  235.                            選擇按鈕 ON 商客基本資料表.網址 = 選擇按鈕.選擇

  236.                 WHERE     (商客基本資料表.網址 NOT LIKE N'')

  237.                 ORDER BY   商客基本資料表.商品, 商客基本資料表.上繳源, 商客基本資料表.帳號"

  238.         CmdSet_For_DGV()

  239.     End Sub

  240.     Friend Sub SQL_LOG流水()

  241.         ConnOpen_子SQL() : SQL1 = "SELECT TOP (1) 項 FROM PY執行LOG ORDER BY 項 DESC" : CmdSet_For_dr()

  242.     End Sub

  243.     Friend Sub SQL_LOG寫入()

  244.         ConnOpen_子SQL() : SQL1 = "INSERT INTO  PY執行LOG  (項, 日期, MyLOGy資料, LOG資料) VALUES (N'" & PA13 & "',N'" & PA12 & "',N'" & PA10 & "',N'" & PA11 & "')" : CmdSet_For_dr()

  245.     End Sub

  246.     '--------------------------商客資料導入------------------------------------------------------

  247.     Friend Sub SQL_商客資料表空白()

  248.         ConnOpen_子SQL() : SQL1 = "SELECT 網址,帳號,密碼,資料,上繳源,商品,上行基數,下行基數, 帳號 AS 流水號 FROM 商客基本資料表 WHERE 網址 LIKE N''" : CmdSet_For_DGV()

  249.     End Sub

  250.     Friend Sub SQL_基數讀取()

  251.         ConnOpen_子SQL() : SQL1 = "SELECT 基數 FROM 基數資料表" : CmdSet_For_dr()

  252.     End Sub

  253.     Friend Sub SQL_商客資料新增()

  254.         ConnOpen_子SQL()

  255.         SQL1 = "INSERT INTO  商客基本資料表  (網址, 帳號, 密碼, 資料, 上繳源, 商品, 上行基數, 下行基數) VALUES (N'',N'" & PA & "',N'',N'',N'',N'',N'',N'')"

  256.         CmdSet_For_dr()

  257.     End Sub

  258.     Friend Sub SQL_商客資料空白刪除()

  259.         ConnOpen_子SQL() : SQL1 = "DELETE 商客基本資料表 WHERE 帳號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  260.     End Sub

  261.     Friend Sub SQL_商客比對修改1()

  262.         ConnOpen_子SQL()

  263.         SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & PA2 & "', 帳號 = N'" & PA3 & "', 密碼 = N'" & PA4 & "', 資料 = N'" & PA5 & "', 上繳源 = N'" & PA6 & "', 商品 = N'" & PA7 & "', 

  264.                                       上行基數 = N'" & PA8 & "', 下行基數 = N'" & PA9 & "', 驗證 = N'          ' WHERE (帳號 LIKE N'" & PA1 & "')"

  265.         CmdSet_For_dr()

  266.     End Sub

  267.     Friend Sub SQL_商客比對修改2()

  268.         ConnOpen_子SQL()

  269.         SQL1 = "UPDATE 商客基本資料表 SET 密碼 = N'" & PA4 & "', 資料 = N'" & PA5 & "', 上繳源 = N'" & PA6 & "', 商品 = N'" & PA7 & "', 

  270.                                       上行基數 = N'" & PA8 & "', 下行基數 = N'" & PA9 & "', 驗證 = N'          ' 

  271.                 WHERE (網址 LIKE N'" & PA2 & "' AND 帳號 LIKE N'" & PA3 & "')"

  272.         CmdSet_For_dr()

  273.     End Sub

  274.     Friend Sub SQL_商客比對_商品新增()

  275.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 商品資料表 (商品) VALUES (N'" & PA & "')" : CmdSet_For_dr()

  276.     End Sub

  277.     '--------------------------流水帳自動導入------------------------------------------------------

  278.     Friend Sub SQL_查詢日期清空()

  279.         ConnOpen_子SQL() : SQL1 = "DELETE  查詢時間" : CmdSet_For_dr()

  280.     End Sub

  281.     Friend Sub SQL_流水帳同日期清除()

  282.         ConnOpen_子SQL()

  283.         SQL1 = "DELETE  流水帳 

  284.                 WHERE  (開始日期 LIKE N'" & PA1 & "' AND 結束日期 LIKE N'" & PA2 & "')"

  285.         CmdSet_For_dr()

  286.     End Sub

  287.     Friend Sub SQL_查詢日期寫入()

  288.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 查詢時間 (開始, 結束, 是否全導) VALUES (N'" & PA1 & "', N'" & PA2 & "', '0')" : CmdSet_For_dr()

  289.     End Sub

  290.     Friend Sub SQL_查詢日期寫入1()

  291.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 查詢時間 (開始, 結束, 是否全導) VALUES (N'" & PA1 & "', N'" & PA2 & "', '1')" : CmdSet_For_dr()

  292.     End Sub

  293.     Friend Sub SQL_自動導入判斷()

  294.         ConnOpen_子SQL() : SQL1 = "SELECT TOP (1) 正在自動導入中 FROM 自動導入判斷" : CmdSet_For_dr()

  295.     End Sub

  296.     Friend Sub SQL_SQL_自動導入判斷_關閉()

  297.         ConnOpen_子SQL() : SQL1 = "UPDATE 自動導入判斷 Set 正在自動導入中 = N'NO'" : CmdSet_For_dr()

  298.     End Sub

  299.     Friend Sub SQL_SQL_自動導入判斷_開啟()

  300.         ConnOpen_子SQL() : SQL1 = "UPDATE 自動導入判斷 Set 正在自動導入中 = N'YES'" : CmdSet_For_dr()

  301.     End Sub

  302.     Friend Sub SQL_LOG_刪除1()

  303.         ConnOpen_子SQL() : SQL1 = "DELETE [LOG] WHERE 查詢區間 LIKE N'" & PA1 & "-" & PA2 & "'" : CmdSet_For_dr()

  304.     End Sub

  305.     Friend Sub SQL_查詢日期資料()

  306.         ConnOpen_子SQL() : SQL1 = "SELECT TOP (1) 開始, 結束 FROM 查詢時間" : CmdSet_For_dr()

  307.     End Sub

  308.     Friend Sub SQL_LOG查詢3()

  309.         ConnOpen_子SQL()

  310.         SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 

  311.                 WHERE 查詢區間 LIKE N'" & PA & "-" & PA1 & "' AND 狀態 LIKE N'查詢期間無資料'"

  312.         CmdSet_For_DGV()

  313.     End Sub

  314.     Friend Sub SQL_LOG查詢4()

  315.         ConnOpen_子SQL()

  316.         SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 

  317.                 WHERE 查詢區間 LIKE N'" & PA & "-" & PA1 & "' AND 狀態 LIKE N'無法取得資料'"

  318.         CmdSet_For_DGV()

  319.     End Sub

  320.     '--------------------------帳務彙總計算表------------------------------------------------------

  321.     Friend Sub SQL_流水帳查詢()

  322.         ConnOpen_子SQL()

  323.         SQL1 = "SELECT      QQQ.開始日期, QQQ.結束日期, QQQ.網址, QQQ.帳戶, QQQ.商品, QQQ.資料, QQQ.上行基數, QQQ.下行基數, QQQ.老闆, 

  324.                             QQQ.客戶, QQQ.天帳, QQQ.地帳, QQQ.個人所得, QQQ.水差, QQQ.核帳, QQQ.天帳1, QQQ.地帳1, QQQ.個人所得1, 

  325.                             QQQ.水差1, QQQ.總量, QQQ.退水, QQQ.中獎, QQQ.輸贏, QQQ.佔成輸贏, QQQ.水倍差, QQQ.上繳金額, 

  326.                             QQQ.自已總輸贏, QQQ.上繳貢獻額, QQQ.貢獻額, QQQ.貢獻度, QQQ.下注明細, QQQ.玩法明細, QQQ.調盤退水, 

  327.                             QQQ.調退實佔, QQQ.上繳, QQQ.會員, QQQ.代理, QQQ.總代理, QQQ.股東, QQQ.大股東, QQQ.客戶s, QQQ.總量s, 

  328.                             QQQ.中獎s, QQQ.輸贏s, QQQ.客戶小計s, QQQ.代理小計s, QQQ.總代理小計s, QQQ.股東小計s, QQQ.大股東小計s, 

  329.                             QQQ.總監小計s, QQQ.個人所得s, QQQ.水差s, QQQ.下注明細s, QQQ.查看對帳s, QQQ.客帳, 選擇按鈕.按鈕, 

  330.                             QQQ.帳戶 AS 客名, 選擇按鈕.按鈕 AS 計算, 選擇按鈕.按鈕 AS 同帳, QQQ.帳戶 AS 同帳指定, 選擇按鈕.按鈕 AS 所得, 

  331.                             QQQ.個人所得 AS 所得另算, QQQ.總監

  332.                 FROM        選擇按鈕 RIGHT OUTER JOIN

  333.                            (SELECT          流水帳.開始日期, 流水帳.結束日期, SUBSTRING(流水帳.網址, 7, 50) AS 網址, 流水帳.帳戶, 

  334.                                             商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 

  335.                                             商客基本資料表.上繳源 AS 老闆, 流水帳.名稱 AS 客戶, 商客基本資料表.上行基數 AS 天帳, 

  336.                                             商客基本資料表.下行基數 AS 地帳, 商客基本資料表.上行基數 AS 個人所得, 

  337.                                             商客基本資料表.下行基數 AS 水差, 商客基本資料表.上行基數 AS 核帳, 

  338.                                             商客基本資料表.上行基數 AS 天帳1, 商客基本資料表.下行基數 AS 地帳1, 

  339.                                             商客基本資料表.上行基數 AS 個人所得1, 商客基本資料表.下行基數 AS 水差1, 流水帳.總量, 

  340.                                             流水帳.退水, 流水帳.中獎, 流水帳.輸贏, 流水帳.佔成輸贏, 流水帳.水倍差, 流水帳.上繳金額, 

  341.                                             流水帳.自已總輸贏, 流水帳.上繳貢獻額, 流水帳.貢獻額, 流水帳.貢獻度, 流水帳.下注明細, 

  342.                                             流水帳.玩法明細, 流水帳.調盤退水, 流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 

  343.                                             流水帳.總代理, 流水帳.股東, 流水帳.大股東, 流水帳.總監, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 

  344.                                             流水帳.輸贏s, 流水帳.客戶小計s, 流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 

  345.                                             流水帳.大股東小計s, 流水帳.總監小計s, 流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 

  346.                                             流水帳.查看對帳s, 商客基本資料表.上繳源 AS 客帳

  347.                             FROM            流水帳 LEFT OUTER JOIN 商客基本資料表 ON SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址 AND 

  348.                                             流水帳.帳戶 = 商客基本資料表.帳號

  349.                             WHERE          (流水帳.開始日期 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "') AND 

  350.                                            (流水帳.結束日期 LIKE N'" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "') AND 

  351.                                            (商客基本資料表.商品 LIKE N'%" & 帳務彙總計算表.商品_cb.Text & "%') AND 

  352.                                            (商客基本資料表.上繳源 LIKE N'%" & 帳務彙總計算表.老闆_cb.Text & "%') AND 

  353.                                            (SUBSTRING(流水帳.網址, 7, 50) LIKE N'%" & PA40 & "%')

  354.                             GROUP BY        流水帳.開始日期, 流水帳.結束日期, SUBSTRING(流水帳.網址, 7, 50), 流水帳.帳戶, 

  355.                                             商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 

  356.                                             商客基本資料表.上繳源, 流水帳.名稱, 流水帳.總量, 流水帳.退水, 流水帳.中獎, 流水帳.輸贏, 

  357.                                             流水帳.佔成輸贏, 流水帳.水倍差, 流水帳.上繳金額, 流水帳.自已總輸贏, 流水帳.上繳貢獻額, 

  358.                                             流水帳.貢獻額, 流水帳.貢獻度, 流水帳.下注明細, 流水帳.玩法明細, 流水帳.調盤退水, 

  359.                                             流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 流水帳.總代理, 流水帳.股東, 

  360.                                             流水帳.大股東, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 流水帳.輸贏s, 流水帳.客戶小計s, 

  361.                                             流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 流水帳.大股東小計s, 流水帳.總監小計s, 

  362.                                             流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 流水帳.總監) AS QQQ ON 

  363.                             選擇按鈕.選擇 = QQQ.商品

  364.                 ORDER BY    QQQ.商品, QQQ.網址, QQQ.帳戶"

  365.         CmdSet_For_DGV()

  366.     End Sub

  367.     Friend Sub SQL_彙總查詢()

  368.         ConnOpen_子SQL()

  369.         SQL1 = "SELECT      商客基本資料表.商品, 商客基本資料表.上繳源 AS 老闆, 商客基本資料表.網址, 商客基本資料表.帳號, 商客基本資料表.上繳源 AS 天帳, 

  370.                             商客基本資料表.上繳源 AS 地帳, 商客基本資料表.上繳源 AS 個人所得, 商客基本資料表.上繳源 AS 水差, 商客基本資料表.上繳源 AS 核帳, 

  371.                             商客基本資料表.網址 AS 狀態, 商客基本資料表.密碼

  372.                 FROM        流水帳 FULL OUTER JOIN

  373.                             商客基本資料表 ON SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址 AND 

  374.                             流水帳.帳戶 = 商客基本資料表.帳號

  375.                 WHERE      (商客基本資料表.商品 LIKE N'%" & 帳務彙總計算表.商品_cb.Text & "%') AND (商客基本資料表.上繳源 LIKE N'%" & 帳務彙總計算表.老闆_cb.Text & "%') AND 

  376.                             商客基本資料表.網址 LIKE N'%" & PA40 & "%'

  377.                 GROUP BY    商客基本資料表.商品, 商客基本資料表.上繳源, 商客基本資料表.網址, 商客基本資料表.帳號, 商客基本資料表.密碼

  378.                 ORDER BY    商客基本資料表.商品"

  379.         CmdSet_For_DGV()

  380.     End Sub

  381.     Friend Sub SQL_彙總查詢1()

  382.         ConnOpen_子SQL()

  383.         SQL1 = "SELECT      商客基本資料表.商品, 

  384.                             商客基本資料表.商品 AS 天帳, 商客基本資料表.商品 AS 地帳, 商客基本資料表.商品 AS 個人所得, 

  385.                             商客基本資料表.商品 AS 水差, 商客基本資料表.商品 AS 核帳

  386.                 FROM        流水帳 FULL OUTER JOIN

  387.                             商客基本資料表 ON SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址 AND 

  388.                             流水帳.帳戶 = 商客基本資料表.帳號

  389.                 WHERE      (商客基本資料表.商品 LIKE N'%" & 帳務彙總計算表.商品_cb.Text & "%') AND (商客基本資料表.上繳源 LIKE N'%" & 帳務彙總計算表.老闆_cb.Text & "%') AND 

  390.                             商客基本資料表.網址 LIKE N'%" & PA40 & "%'

  391.                 GROUP BY    商客基本資料表.商品

  392.                 ORDER BY    商客基本資料表.商品"

  393.         CmdSet_For_DGV()

  394.     End Sub

  395.     Friend Sub SQL_彙總查詢2()

  396.         ConnOpen_子SQL()

  397.         SQL1 = "SELECT     選擇按鈕.按鈕 AS 選擇, QQ.老闆, QQ.天帳, QQ.地帳, QQ.個人所得, QQ.水差, QQ.核帳

  398.                 FROM       選擇按鈕 RIGHT OUTER JOIN

  399.                                 (SELECT 商客基本資料表.上繳源 AS 老闆, 商客基本資料表.上繳源 AS 天帳, 商客基本資料表.上繳源 AS 地帳, 

  400.                                         商客基本資料表.上繳源 AS 個人所得, 商客基本資料表.上繳源 AS 水差, 

  401.                                         商客基本資料表.上繳源 AS 核帳

  402.                                   FROM  商客基本資料表 FULL OUTER JOIN

  403.                                         流水帳 ON SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址 AND 

  404.                                         流水帳.帳戶 = 商客基本資料表.帳號

  405.                             WHERE      (商客基本資料表.商品 LIKE N'%" & 帳務彙總計算表.商品_cb.Text & "%') AND (商客基本資料表.上繳源 LIKE N'%" & 帳務彙總計算表.老闆_cb.Text & "%') AND 

  406.                                         商客基本資料表.網址 LIKE N'%" & PA40 & "%'

  407.                             GROUP BY    商客基本資料表.上繳源) AS QQ ON dbo.選擇按鈕.選擇 = QQ.老闆

  408.                 ORDER BY    QQ.老闆 DESC"

  409.         CmdSet_For_DGV()

  410.     End Sub

  411.     Friend Sub SQL_彙總查詢3()

  412.         ConnOpen_子SQL()

  413.         SQL1 = "SELECT  商品, 上繳源 AS 天帳, 上繳源 AS 地帳, 上繳源 AS 個人所得, 上繳源 AS 水差, 

  414.                         上繳源 AS 核帳, 上繳源

  415.                 FROM    商客基本資料表

  416.                 WHERE  (上繳源 LIKE N'" & 帳務彙總計算表.老闆_tb.Text & "')

  417.                 GROUP BY   商品, 上繳源

  418.                 ORDER BY   商品"

  419.         CmdSet_For_DGV()

  420.     End Sub

  421.     Friend Sub SQL_彙總查詢4()

  422.         ConnOpen_子SQL()

  423.         SQL1 = "SELECT     商客基本資料表.商品, 下行客戶.客名 AS 客戶, 下行客戶.客戶下 AS 帳號, 商客基本資料表.上繳源 AS 天帳, 

  424.                            商客基本資料表.上繳源 AS 地帳, 商客基本資料表.上繳源 AS 個人所得, 商客基本資料表.上繳源 AS 水差, 

  425.                            商客基本資料表.上繳源 AS 核帳, 商客基本資料表.上繳源

  426.                 FROM       商客基本資料表 INNER JOIN

  427.                            下行客戶 ON 商客基本資料表.網址 = 下行客戶.網址 AND 商客基本資料表.帳號 = 下行客戶.帳號

  428.                 WHERE     (商客基本資料表.上繳源 LIKE N'" & 帳務彙總計算表.老闆_tb.Text & "')

  429.                 GROUP BY   商客基本資料表.商品, 商客基本資料表.上繳源, 下行客戶.客戶下, 下行客戶.客名

  430.                 ORDER BY   商客基本資料表.商品"

  431.         CmdSet_For_DGV()

  432.     End Sub

  433.     Friend Sub SQL_彙總查詢5()

  434.         ConnOpen_子SQL()

  435.         SQL1 = "SELECT          商客基本資料表.商品, 下行客戶.客戶下 AS 客戶帳號, 下行客戶.客名 AS 個人所得, 下行客戶.客名 AS 應收, 下行客戶.基數, 下行客戶.網址, 下行客戶.帳號

  436.                 FROM              下行客戶 INNER JOIN

  437.                             商客基本資料表 ON 下行客戶.網址 = 商客基本資料表.網址 AND 下行客戶.帳號 = 商客基本資料表.帳號

  438.                 WHERE          (下行客戶.客名 LIKE  N'" & 帳務彙總計算表.客戶_tb.Text & "')

  439.                 GROUP BY   下行客戶.客名, 商客基本資料表.商品, 下行客戶.客戶下, 下行客戶.網址, 下行客戶.帳號, 下行客戶.基數, 

  440.                             商客基本資料表.上繳源

  441.                 ORDER BY   應收"

  442.         CmdSet_For_DGV()

  443.     End Sub

  444.     Friend Sub SQL_流水帳_清除()

  445.         ConnOpen_子SQL()

  446.         SQL1 = "DELETE  流水帳 

  447.                 WHERE  (開始日期 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "' AND 

  448.                         結束日期 LIKE N'" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "')"

  449.         CmdSet_For_dr()

  450.     End Sub

  451.     Friend Sub SQL_流水帳日期()

  452.         ConnOpen_子SQL() : SQL1 = "SELECT 開始日期, 結束日期 FROM 流水帳 GROUP BY 開始日期, 結束日期 ORDER BY 結束日期 DESC" : CmdSet_For_DGV()

  453.     End Sub

  454.     Friend Sub SQL_流水帳上繳()

  455.         ConnOpen_子SQL() : SQL1 = "SELECT 上繳源 FROM 商客基本資料表 GROUP BY 上繳源 ORDER BY 上繳源" : CmdSet_For_dr()

  456.     End Sub

  457.     Friend Sub SQL_流水帳上繳_明細用()

  458.         ConnOpen_子SQL() : SQL1 = "SELECT 上繳源 FROM 商客基本資料表 WHERE 商品 LIKE N'" & PA40 & "' GROUP BY 上繳源 ORDER BY 上繳源" : CmdSet_For_dr()

  459.     End Sub

  460.     Friend Sub SQL_流水帳客戶_明細用()

  461.         ConnOpen_子SQL()

  462.         SQL1 = "SELECT     下行客戶.客名

  463.                 FROM       下行客戶 INNER JOIN

  464.                            商客基本資料表 ON 下行客戶.帳號 = 商客基本資料表.帳號 AND 下行客戶.網址 = 商客基本資料表.網址

  465.                 WHERE     (商客基本資料表.上繳源 LIKE N'" & PA39 & "') AND (商客基本資料表.商品 LIKE N'" & PA40 & "')

  466.                 GROUP BY   下行客戶.客名

  467.                 ORDER BY   下行客戶.客名"

  468.         CmdSet_For_dr()

  469.     End Sub

  470.     Friend Sub SQL_客戶下所得名稱清單()

  471.         ConnOpen_子SQL()

  472.         SQL1 = "SELECT 所得另算 FROM 下行客戶 WHERE (所得另算 IS NOT NULL) GROUP BY 所得另算 ORDER BY 所得另算"

  473.         CmdSet_For_dr()

  474.     End Sub

  475.     Friend Sub SQL_流水帳商品()

  476.         ConnOpen_子SQL() : SQL1 = "SELECT 商品 FROM 商客基本資料表 GROUP BY 商品 ORDER BY 商品" : CmdSet_For_dr()

  477.     End Sub

  478.     Friend Sub SQL_流水帳_客戶下新增()

  479.         ConnOpen_子SQL()

  480.         SQL1 = "INSERT INTO 下行客戶 (客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得) 

  481.                 VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'', N'" & PA3 & "', N'', '1', '0', '1')"

  482.         CmdSet_For_dr()

  483.     End Sub

  484.     Friend Sub SQL_流水帳_客戶下修改()

  485.         ConnOpen_子SQL()

  486.         SQL1 = "UPDATE 下行客戶 SET 客名 = N'" & PA3 & "' WHERE (客戶下 LIKE N'" & PA & "' AND 網址 LIKE N'" & PA1 & "' AND 帳號 LIKE N'" & PA2 & "')"

  487.         CmdSet_For_dr()

  488.     End Sub

  489.     Friend Sub SQL_客戶下資料表()

  490.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶下 AS 客戶帳號, 網址, 帳號, 客名 AS 客戶名稱, 計算, 同帳, 所得, 基數, 流水號, 所得另算  FROM 下行客戶" : CmdSet_For_DGV()

  491.     End Sub

  492.     Friend Sub SQL_客戶下名稱()

  493.         ConnOpen_子SQL()

  494.         SQL1 = "SELECT   選擇按鈕.按鈕 AS 選擇, QQ.客戶, QQ.應收 AS 個人所得, QQ.應收

  495.                 FROM     選擇按鈕 RIGHT OUTER JOIN

  496.                         (SELECT      客名 AS 客戶, 客名 AS 應收

  497.                          FROM        下行客戶

  498.                          WHERE      (客名 NOT LIKE '') AND (客名 IS NOT NULL) AND (計算 = 1)

  499.                          GROUP BY    客名) AS QQ ON 選擇按鈕.選擇 = QQ.客戶

  500.                 ORDER BY 客戶"

  501.         CmdSet_For_DGV()

  502.     End Sub

  503.     Friend Sub SQL_LOG查詢1()

  504.         ConnOpen_子SQL()

  505.         SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 

  506.                 WHERE 查詢區間 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "-" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "' AND 狀態 LIKE N'查詢期間無資料'"

  507.         CmdSet_For_DGV()

  508.     End Sub

  509.     Friend Sub SQL_LOG查詢2()

  510.         ConnOpen_子SQL()

  511.         SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] 

  512.                 WHERE 查詢區間 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "-" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "' AND 狀態 LIKE N'無法取得資料'"

  513.         CmdSet_For_DGV()

  514.     End Sub

  515.     Friend Sub SQL_LOG查詢5()

  516.         ConnOpen_子SQL() : SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] WHERE  狀態 LIKE N'查詢期間無資料' ORDER BY 網址" : CmdSet_For_DGV()

  517.     End Sub

  518.     Friend Sub SQL_LOG查詢6()

  519.         ConnOpen_子SQL() : SQL1 = "SELECT [index] AS 項次, 查詢區間, 網址, 狀態, 查詢時間 FROM [LOG] WHERE  狀態 LIKE N'無法取得資料' ORDER BY 網址" : CmdSet_For_DGV()

  520.     End Sub

  521.     Friend Sub SQL_LOG查詢()

  522.         ConnOpen_子SQL() : SQL1 = "SELECT 項, 日期, MyLOGy資料, LOG資料 FROM PY執行LOG ORDER BY 項 DESC" : CmdSet_For_DGV()

  523.     End Sub

  524.     Friend Sub SQL_LOG_刪除()

  525.         ConnOpen_子SQL()

  526.         SQL1 = "DELETE [LOG] WHERE 查詢區間 LIKE N'" & Strings.Left(帳務彙總計算表.資料_cb.Text, 10) & "-" & Strings.Right(帳務彙總計算表.資料_cb.Text, 10) & "'"

  527.         CmdSet_For_dr()

  528.     End Sub

  529.     Friend Sub SQL_商客資料暫存檔_新增()

  530.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 商客資料暫存檔 (網址, 帳號, 密碼) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "')" : CmdSet_For_dr()

  531.     End Sub

  532.     Friend Sub SQL_商客資料暫存檔_刪除()

  533.         ConnOpen_子SQL() : SQL1 = "DELETE 商客資料暫存檔" : CmdSet_For_dr()

  534.     End Sub

  535.     Friend Sub SQL_下行客戶流水號最後一筆()

  536.         ConnOpen_子SQL() : SQL1 = "SELECT TOP (1) 流水號 FROM 下行客戶 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  537.     End Sub

  538.     '--------------------------帳務明細查詢表------------------------------------------------------

  539.     Friend Sub SQL_帳務明細查詢表查詢()

  540.         ConnOpen_子SQL()

  541.         SQL1 = "SELECT      QQQ.開始日期, QQQ.結束日期, QQQ.網址, QQQ.商品, QQQ.帳戶, QQQ.資料, QQQ.上行基數, QQQ.下行基數, QQQ.老闆, 

  542.                             QQQ.客戶, QQQ.[會員.], QQQ.[代理.], QQQ.[總代理.], QQQ.[股東.], QQQ.[大股東.], QQQ.[總監.], QQQ.[上繳金額.], QQQ.個人所得, 

  543.                             QQQ.水差, QQQ.會員1, QQQ.代理1, QQQ.總代理1, QQQ.股東1, QQQ.大股東1, QQQ.總監1, QQQ.上繳金額1, QQQ.個人所得1, 

  544.                             QQQ.水差1, QQQ.總量, QQQ.退水, QQQ.中獎, QQQ.輸贏, QQQ.佔成輸贏, QQQ.水倍差, QQQ.上繳金額, 

  545.                             QQQ.自已總輸贏, QQQ.上繳貢獻額, QQQ.貢獻額, QQQ.貢獻度, QQQ.下注明細, QQQ.玩法明細, QQQ.調盤退水, 

  546.                             QQQ.調退實佔, QQQ.上繳, QQQ.會員, QQQ.代理, QQQ.總代理, QQQ.股東, QQQ.大股東, QQQ.客戶s, QQQ.總量s, 

  547.                             QQQ.中獎s, QQQ.輸贏s, QQQ.客戶小計s, QQQ.代理小計s, QQQ.總代理小計s, QQQ.股東小計s, QQQ.大股東小計s, 

  548.                             QQQ.總監小計s, QQQ.個人所得s, QQQ.水差s, QQQ.下注明細s, QQQ.查看對帳s, QQQ.客帳 AS 客戶帳號, 選擇按鈕.按鈕, 

  549.                             QQQ.帳戶 AS 客戶名稱, 選擇按鈕.按鈕 AS 計算, 選擇按鈕.按鈕 AS 同帳, QQQ.帳戶 AS 同帳指定, 選擇按鈕.按鈕 AS 所得, 

  550.                             QQQ.個人所得 AS 所得另算, QQQ.[index], QQQ.帳戶 AS 下客流水, QQQ.總監, QQQ.帳戶 AS 所得指定

  551.                 FROM        選擇按鈕 RIGHT OUTER JOIN

  552.                            (SELECT     流水帳.開始日期, 流水帳.結束日期, SUBSTRING(流水帳.網址, 7, 50) AS 網址, 流水帳.帳戶, 

  553.                                        商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 

  554.                                        商客基本資料表.上繳源 AS 老闆, 流水帳.名稱 AS 客戶, 商客基本資料表.上行基數 AS [會員.], 

  555.                                        商客基本資料表.下行基數 AS [代理.], 商客基本資料表.下行基數 AS [總代理.], 

  556.                                        商客基本資料表.下行基數 AS [股東.], 商客基本資料表.下行基數 AS [大股東.], 

  557.                                        商客基本資料表.下行基數 AS [總監.], 商客基本資料表.下行基數 AS [上繳金額.], 

  558.                                        商客基本資料表.上行基數 AS 個人所得, 商客基本資料表.下行基數 AS 水差, 

  559.                                        商客基本資料表.上行基數 AS 會員1, 商客基本資料表.下行基數 AS 代理1, 商客基本資料表.下行基數 AS 總代理1, 

  560.                                        商客基本資料表.下行基數 AS 股東1, 商客基本資料表.下行基數 AS 大股東1, 

  561.                                        商客基本資料表.下行基數 AS 總監1, 商客基本資料表.下行基數 AS [上繳金額1], 商客基本資料表.上行基數 AS 個人所得1, 

  562.                                        商客基本資料表.下行基數 AS 水差1, 流水帳.總量, 流水帳.退水, 流水帳.中獎, 流水帳.輸贏, 

  563.                                        流水帳.佔成輸贏, 流水帳.水倍差, 流水帳.上繳金額, 流水帳.自已總輸贏, 流水帳.上繳貢獻額, 

  564.                                        流水帳.貢獻額, 流水帳.貢獻度, 流水帳.下注明細, 流水帳.玩法明細, 流水帳.調盤退水, 

  565.                                        流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 流水帳.總代理, 流水帳.股東, 

  566.                                        流水帳.大股東, 流水帳.總監, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 流水帳.輸贏s, 流水帳.客戶小計s, 

  567.                                        流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 流水帳.大股東小計s, 流水帳.總監小計s, 

  568.                                        流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 

  569.                                        商客基本資料表.上繳源 AS 客帳, 流水帳.[index]

  570.                              FROM      流水帳 LEFT OUTER JOIN 商客基本資料表 ON SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址 AND 流水帳.帳戶 = 商客基本資料表.帳號

  571.                              WHERE    (流水帳.開始日期 LIKE N'" & Strings.Left(帳務明細查詢表.資料_cb.Text, 10) & "') AND 

  572.                                       (流水帳.結束日期 LIKE N'" & Strings.Right(帳務明細查詢表.資料_cb.Text, 10) & "') AND 

  573.                                       (商客基本資料表.商品 LIKE N'%" & 帳務明細查詢表.商品_cb.Text & "%') AND 

  574.                                       (商客基本資料表.上繳源 LIKE N'%" & 帳務明細查詢表.老闆_cb.Text & "%') " & PA32 & "

  575.                              GROUP BY  流水帳.開始日期, 流水帳.結束日期, SUBSTRING(流水帳.網址, 7, 50), 流水帳.帳戶, 

  576.                                        商客基本資料表.商品, 商客基本資料表.資料, 商客基本資料表.上行基數, 商客基本資料表.下行基數, 

  577.                                        商客基本資料表.上繳源, 流水帳.名稱, 流水帳.總量, 流水帳.退水, 流水帳.中獎, 流水帳.輸贏, 

  578.                                        流水帳.佔成輸贏, 流水帳.水倍差, 流水帳.上繳金額, 流水帳.自已總輸贏, 流水帳.上繳貢獻額, 

  579.                                        流水帳.貢獻額, 流水帳.貢獻度, 流水帳.下注明細, 流水帳.玩法明細, 流水帳.調盤退水, 

  580.                                        流水帳.調退實佔, 流水帳.上繳, 流水帳.會員, 流水帳.代理, 流水帳.總代理, 流水帳.股東, 

  581.                                        流水帳.大股東, 流水帳.客戶s, 流水帳.總量s, 流水帳.中獎s, 流水帳.輸贏s, 流水帳.客戶小計s, 

  582.                                        流水帳.代理小計s, 流水帳.總代理小計s, 流水帳.股東小計s, 流水帳.大股東小計s, 流水帳.總監小計s, 

  583.                                        流水帳.個人所得s, 流水帳.水差s, 流水帳.下注明細s, 流水帳.查看對帳s, 流水帳.[index], 流水帳.總監) AS QQQ ON 選擇按鈕.選擇 = QQQ.商品

  584.                 ORDER BY   QQQ.商品, QQQ.網址, QQQ.帳戶"

  585.         CmdSet_For_DGV()

  586.     End Sub

  587.     Friend Sub SQL_帳務明細查詢表客戶寫入()

  588.         ConnOpen_子SQL()

  589.         SQL1 = "UPDATE 流水帳 SET 查看對帳s = N'" & PA38 & "', 下注明細s = N'" & PA32 & "'

  590.                 WHERE ([index] LIKE N'" & PA37 & "') AND (開始日期 LIKE N'" & PA36 & "') AND (結束日期 LIKE N'" & PA35 & "') AND 

  591.                       (SUBSTRING(網址, 7, 50) LIKE N'" & PA34 & "') AND (帳戶 LIKE N'" & PA33 & "')"

  592.         CmdSet_For_dr()

  593.     End Sub

  594.     Friend Sub SQL_所得另算表()

  595.         ConnOpen_子SQL()

  596.         SQL1 = "SELECT     商客基本資料表.商品, 商客基本資料表.商品 AS 所得

  597.                 FROM       流水帳 LEFT OUTER JOIN

  598.                            商客基本資料表 ON 流水帳.帳戶 = 商客基本資料表.帳號 AND SUBSTRING(流水帳.網址, 7, 50) = 商客基本資料表.網址

  599.                 WHERE     (流水帳.下注明細s LIKE N'%" & 帳務明細查詢表.所得指定_cb.Text & "%') AND (流水帳.開始日期 LIKE N'" & Strings.Left(帳務明細查詢表.資料_cb.Text, 10) & "') AND 

  600.                           (流水帳.結束日期 LIKE N'" & Strings.Right(帳務明細查詢表.資料_cb.Text, 10) & "')

  601.                 GROUP BY   商客基本資料表.商品

  602.                 ORDER BY   商客基本資料表.商品"

  603.         CmdSet_For_DGV()

  604.     End Sub

  605. End Module