GA-ERP-SYS
/
GA-ERP-SYS-LEEHSIEHJUI
Vērot 4
Pievienot zvaigznīti 0
Atdalīts 0
Kods Problēmas 0 Izmaiņu pieprasījumi 0 Laidieni 0 Vikivietne Aktivitāte
Nav apraksta
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.
26 Revīzijas
1 Atzars
Koks: 3a69b3ef38
Atzari Tagi
${ item.name }
Izveidot atzaru ${ searchTerm }
no '3a69b3ef38'
${ noResults }
GA-ERP-SYS-LEEHSIEHJUI/GA-ERP-SYS/Module/SQL_子系統管理.vb

SQL_子系統管理.vb 200KB
Vēsture Neapstrādāts

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356 
  1. Module SQL_子系統管理

  2.     '--------------------------網址雲端共享---------------------------------------------------------------------------------------------------------------------------------------------------

  3.     Friend Sub 方便編寫()

  4.         SQL1 = "USE [GA-008]

  5. GO

  6. INSERT INTO 流水帳2 ([index], 開始日期, 結束日期, 網址, 帳戶, 名稱, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 

  7.                             自已總輸贏, 上繳貢獻額, 貢獻額, 貢獻度, 下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 

  8.                             大股東, 總監, 客戶s, 總量s, 中獎s, 輸贏s, 客戶小計s, 代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 

  9.                             個人所得s, 水差s, 下注明細s, 查看對帳s, 隨機碼)

  10. SELECT [index], 開始日期, 結束日期, 網址, 帳戶, 名稱, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 

  11.                             自已總輸贏, 上繳貢獻額, 貢獻額, 貢獻度, 下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 

  12.                             大股東, 總監, 客戶s, 總量s, 中獎s, 輸贏s, 客戶小計s, 代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 

  13.                             個人所得s, 水差s, 下注明細s, 查看對帳s, 隨機碼   

  14. FROM 流水帳"

  15.     End Sub

  16.     Friend Sub SQL_網址同步1()

  17.         ConnOpen() : SQL1 = "SELECT 商品, 編號, 系統, 層級, 網址, 備用網址 FROM 商品資料總表 ORDER BY 系統, 商品, 層級" : CmdSet_For_DGV()

  18.     End Sub

  19.     Friend Sub SQL_網址同步2()

  20.         ConnOpen_子SQL() : SQL1 = "SELECT 商品, 編號, 系統, 層級, 網址 FROM 商品資料表 ORDER BY 網址" : CmdSet_For_DGV()

  21.     End Sub

  22.     Friend Sub SQL_網址同步1_寫入()

  23.         ConnOpen() : SQL1 = "INSERT INTO 商品資料總表 (商品, 編號, 系統, 層級, 網址) VALUES (N'" & PA1 & "', N'', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')" : CmdSet_For_dr()

  24.     End Sub

  25.     Friend Sub SQL_網址同步2_寫入()

  26.         ConnOpen_子SQL()

  27.         SQL1 = "INSERT INTO 商品資料表 (商品, 編號, 系統, 層級, 網址, 備用網址) VALUES (N'" & PA1 & "', N'" & PA6 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "')"

  28.         CmdSet_For_dr()

  29.     End Sub

  30. 

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

  32.     Friend Sub SQL_客戶下層全部關閉()

  33.         ConnOpen_子SQL() : SQL1 = "UPDATE 下行客戶 SET 下層 = '0'" : CmdSet_For_dr()

  34.     End Sub

  35.     Friend Sub SQL_下收客戶依帳號刪除()

  36.         ConnOpen_子SQL() : SQL1 = "DELETE 下行客戶 WHERE 網址 LIKE N'" & 後台基本資料.網址4_tb.Text & "' AND 帳號 LIKE N'" & 電板基本資料.帳號3_tb.Text & "'" : CmdSet_For_dr()

  37.     End Sub

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

  39.         ConnOpen_子SQL() : SQL1 = "UPDATE [LOG] SET 網址 = N'" & 電板基本資料.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 電板基本資料.網址4_tb.Text & "'" : CmdSet_For_dr()

  40.     End Sub

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

  42.         ConnOpen_子SQL() : SQL1 = "UPDATE [LOG] SET 網址 = N'" & 電板LOG檔.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 電板LOG檔.網址4_tb.Text & "'" : CmdSet_For_dr()

  43.     End Sub

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

  45.         ConnOpen_子SQL() : SQL1 = "UPDATE [LOG] SET 網址 = N'" & 後台LOG檔.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 後台LOG檔.網址4_tb.Text & "'" : CmdSet_For_dr()

  46.     End Sub

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

  48.         ConnOpen_子SQL() : SQL1 = "UPDATE 下行客戶 SET 網址 = N'" & 電板基本資料.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 電板基本資料.網址4_tb.Text & "'" : CmdSet_For_dr()

  49.     End Sub

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

  51.         ConnOpen_子SQL() : SQL1 = "UPDATE 下行客戶 SET 網址 = N'" & 電板LOG檔.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 電板LOG檔.網址4_tb.Text & "'" : CmdSet_For_dr()

  52.     End Sub

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

  54.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台下行客戶 SET 網址 = N'" & 後台LOG檔.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 後台LOG檔.網址4_tb.Text & "'" : CmdSet_For_dr()

  55.     End Sub

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

  57.         ConnOpen_子SQL() : SQL1 = "UPDATE 流水帳 SET 網址 = N'" & 電板基本資料.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 電板基本資料.網址4_tb.Text & "'" : CmdSet_For_dr()

  58.     End Sub

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

  60.         ConnOpen_子SQL() : SQL1 = "UPDATE 流水帳 SET 網址 = N'" & 電板LOG檔.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 電板LOG檔.網址4_tb.Text & "'" : CmdSet_For_dr()

  61.     End Sub

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

  63.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台流水帳 SET 網址 = N'" & 後台LOG檔.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 後台LOG檔.網址4_tb.Text & "'" : CmdSet_For_dr()

  64.     End Sub

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

  66.         ConnOpen_子SQL()

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

  68.                                           備用網址 = N'" & 電板基本資料.備用網址_tb.Text & "'

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

  70.         CmdSet_For_dr()

  71.     End Sub

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

  73.         ConnOpen_子SQL()

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

  75.                                           備用網址 = N'" & 電板LOG檔.備用網址_tb.Text & "'

  76.                 WHERE  網址 LIKE N'" & 電板LOG檔.網址4_tb.Text & "' AND 商品 LIKE N'" & 電板LOG檔.商品1_tb.Text & "'"

  77.         CmdSet_For_dr()

  78.     End Sub

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

  80.         ConnOpen_子SQL()

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

  82.                                           備用網址 = N'" & 後台LOG檔.備用網址_tb.Text & "'

  83.                 WHERE  網址 LIKE N'" & 後台LOG檔.網址4_tb.Text & "' AND 商品 LIKE N'" & 後台LOG檔.商品1_tb.Text & "'"

  84.         CmdSet_For_dr()

  85.     End Sub

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

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

  88.     End Sub

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

  90.         ConnOpen_子SQL() : SQL1 = "SELECT 編號 FROM 商品資料表 WHERE 編號 LIKE N'" & 電板基本資料.編號_tb.Text & "'" : CmdSet_For_dr()

  91.     End Sub

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

  93.         ConnOpen_子SQL() : SQL1 = "SELECT 網址 FROM 商品資料表 WHERE 網址 LIKE N'" & 電板基本資料.網址2_tb.Text & "'" : CmdSet_For_dr()

  94.     End Sub

  95.     Friend Sub SQL_商品寫入()

  96.         ConnOpen_子SQL()

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

  98.                 VALUES (N'" & 電板基本資料.商品_tb.Text & "', N'" & 電板基本資料.編號_tb.Text & "', N'" & 電板基本資料.系統_cb.Text & "', N'" & 電板基本資料.層級_cb.Text & "', 

  99.                         N'" & 電板基本資料.網址2_tb.Text & "', N'" & 電板基本資料.備用網址_tb.Text & "')"

  100.         CmdSet_For_dr()

  101.     End Sub

  102.     Friend Sub SQL_商品修改()

  103.         ConnOpen_子SQL()

  104.         SQL1 = "UPDATE 商品資料表 SET 系統 = N'" & 電板基本資料.系統_cb.Text & "', 層級 = N'" & 電板基本資料.層級_cb.Text & "', 備用網址 = N'" & 電板基本資料.備用網址_tb.Text & "', 

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

  106.                 WHERE  編號 LIKE N'" & 電板基本資料.編號_tb.Text & "'"

  107.         CmdSet_For_dr()

  108.     End Sub

  109.     Friend Sub SQL_商品修改1()

  110.         ConnOpen_子SQL()

  111.         SQL1 = "UPDATE 商品資料表 SET 系統 = N'" & 電板LOG檔.系統_cb.Text & "', 層級 = N'" & 電板LOG檔.層級_cb.Text & "', 備用網址 = N'" & 電板LOG檔.備用網址_tb.Text & "', 

  112.                                       網址 = N'" & 電板LOG檔.網址2_tb.Text & "', 商品 = N'" & 電板LOG檔.商品_tb.Text & "'

  113.                 WHERE  編號 LIKE N'" & 電板LOG檔.編號_tb.Text & "'"

  114.         CmdSet_For_dr()

  115.     End Sub

  116.     Friend Sub SQL_商品修改1_1()

  117.         ConnOpen_子SQL()

  118.         SQL1 = "UPDATE 後台商品資料表 SET 系統 = N'" & 後台LOG檔.系統_cb.Text & "', 層級 = N'" & 後台LOG檔.層級_cb.Text & "', 備用網址 = N'" & 後台LOG檔.備用網址_tb.Text & "', 

  119.                                       網址 = N'" & 後台LOG檔.網址2_tb.Text & "', 商品 = N'" & 後台LOG檔.商品_tb.Text & "'

  120.                 WHERE  編號 LIKE N'" & 後台LOG檔.編號_tb.Text & "'"

  121.         CmdSet_For_dr()

  122.     End Sub

  123.     Friend Sub SQL_商品刪除()

  124.         ConnOpen_子SQL() : SQL1 = "DELETE 商品資料表 WHERE  商品  LIKE N'" & 電板基本資料.商品_tb.Text & "' AND 編號 LIKE N'" & 電板基本資料.編號_tb.Text & "'" : CmdSet_For_dr()

  125.     End Sub

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

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

  128.     End Sub

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

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

  131.     End Sub

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

  133.         ConnOpen_子SQL()

  134.         SQL1 = "SELECT     商品資料表.商品, 下行客戶.網址, 下行客戶.帳號 AS 老闆帳號, 下行客戶.客戶下 AS 客戶帳號, 

  135.                            下行客戶.客名 AS 客戶名稱, 下行客戶.流水號, 下行客戶.基數, 下行客戶.基數 AS 階級, 下行客戶.計算, 下行客戶.同帳,

  136.                            下行客戶.所得, 下行客戶.下層, 下行客戶.所得另算, 下行客戶.水差另算

  137.                 FROM       下行客戶 LEFT OUTER JOIN

  138.                            商品資料表 ON 下行客戶.網址 = 商品資料表.網址

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

  140.                 ORDER BY   商品資料表.商品, 老闆帳號"

  141.         CmdSet_For_DGV()

  142.     End Sub

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

  144.         ConnOpen_子SQL()

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

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

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

  148.         CmdSet_For_dr()

  149.     End Sub

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

  151.         ConnOpen_子SQL()

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

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

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

  155.                          '" & 電板基本資料.上下同帳_ch.Checked & "', '" & 電板基本資料.所得計算_ch.Checked & "',  '" & 電板基本資料.客戶名稱_cb.Text & "', 

  156.                          '" & 電板基本資料.下層帳號_ch.Checked & "',  '" & 電板基本資料.水差_cb.Text & "')"

  157.         CmdSet_For_dr()

  158.     End Sub

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

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

  161.     End Sub

  162.     Friend Sub SQL_系統編碼規則_客戶下無帳號刪除()

  163.         ConnOpen_子SQL() : SQL1 = "DELETE 下行客戶 WHERE (客戶下 LIKE '')" : CmdSet_For_dr()

  164.     End Sub

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

  166.         ConnOpen_子SQL()

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

  168.                                     計算 = '" & BL1 & "', 同帳 = '" & BL2 & "', 所得 = '" & BL3 & "', 所得另算 = N'" & PA5 & "', 下層 = '" & BL4 & "', 

  169.                                     水差另算 = N'" & PA7 & "'

  170.                 WHERE  流水號 LIKE N'" & PA6 & "'"

  171.         CmdSet_For_dr()

  172.     End Sub

  173.     Friend Sub SQL_商客資料表3()

  174.         ConnOpen_子SQL()

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

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

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

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

  179.                          (SELECT      網址, 帳號

  180.                           FROM        下行客戶

  181.                           WHERE      (客名 NOT LIKE '')

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

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

  184.                 WHERE    (商客基本資料表.網址 LIKE N'%" & 網址01 & "%') AND (商客基本資料表.主帳號 LIKE N'%" & 主帳號01 & "%') AND (商客基本資料表.上一層 LIKE N'1')

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

  186.         CmdSet_For_DGV()

  187.     End Sub

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

  189.         ConnOpen_子SQL()

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

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

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

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

  194.                          (SELECT      網址, 帳號

  195.                           FROM        下行客戶

  196.                           WHERE      (客名 NOT LIKE '')

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

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

  199.                 WHERE    (商客基本資料表.網址 LIKE N'%" & PA1 & "%') AND (商客基本資料表.上一層 LIKE N'0')

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

  201.         CmdSet_For_DGV()

  202.     End Sub

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

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

  205.     End Sub

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

  207.         ConnOpen_子SQL()

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

  209.                 WHERE (帳號 LIKE N'" & 電板基本資料.帳號_tb.Text & "' AND  網址 LIKE N'" & 電板基本資料.網址_tb.Text & "' AND 

  210.                        商品 LIKE N'" & 電板基本資料.商品_cb.Text & "')"

  211.         CmdSet_For_dr()

  212.     End Sub

  213.     Friend Sub SQL_系統編碼規則_商客重複查詢_指定帳號()

  214.         ConnOpen_子SQL()

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

  216.                 WHERE (帳號 LIKE N'" & 電板基本資料.帳號0_tb.Text & "' AND  網址 LIKE N'" & 電板基本資料.網址_tb.Text & "' AND 

  217.                        商品 LIKE N'" & 電板基本資料.商品_cb.Text & "')"

  218.         CmdSet_For_dr()

  219.     End Sub

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

  221.         ConnOpen_子SQL()

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

  223.                                     VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', 

  224.                                             N'" & PA8 & "', '1', '0', N'" & PA12 & "',N'" & PA2 & "')"

  225.         CmdSet_For_dr()

  226.     End Sub

  227.     Friend Sub SQL_系統編碼規則_商客新增_指定帳號()

  228.         ConnOpen_子SQL()

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

  230.                                     VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', 

  231.                                             N'" & PA8 & "', '1', '1', N'" & PA12 & "',N'" & 主帳號01 & "')"

  232.         CmdSet_For_dr()

  233.     End Sub

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

  235.         ConnOpen_子SQL() : SQL1 = "DELETE FROM 商客基本資料表 WHERE (帳號 LIKE N'" & 電板基本資料.帳號_tb.Text & "' AND  網址 LIKE N'" & 電板基本資料.網址_tb.Text & "')" : CmdSet_For_dr()

  236.     End Sub

  237.     Friend Sub SQL_系統編碼規則_商客刪除_特定帳號()

  238.         ConnOpen_子SQL() : SQL1 = "DELETE FROM 商客基本資料表 WHERE (帳號 LIKE N'" & 電板基本資料.帳號0_tb.Text & "' AND  網址 LIKE N'" & 電板基本資料.網址_tb.Text & "')" : CmdSet_For_dr()

  239.     End Sub

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

  241.         ConnOpen_子SQL()

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

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

  244.                                           主帳號 = N'" & PA4 & "'

  245.                                   WHERE (帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "')"

  246.         CmdSet_For_dr()

  247.         ConnOpen_子SQL()

  248.         SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & PA2 & "', 商品 = N'" & PA9 & "', 備用網址 = N'" & PA12 & "', 驗證 = N'          ', 

  249.                                           主帳號 = N'" & PA4 & "'

  250.                                   WHERE (主帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "')"

  251.         CmdSet_For_dr()

  252.     End Sub

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

  254.         ConnOpen_子SQL()

  255.         SQL1 = "UPDATE 後台商客基本資料表 SET 網址 = N'" & PA2 & "', 上繳源 = N'" & PA3 & "', 資料 = N'" & PA8 & "', 商品 = N'" & PA9 & "', 備用網址 = N'" & PA12 & "',

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

  257.                                           主帳號 = N'" & PA4 & "'

  258.                                   WHERE (帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "')"

  259.         CmdSet_For_dr()

  260.         ConnOpen_子SQL()

  261.         SQL1 = "UPDATE 後台商客基本資料表 SET 網址 = N'" & PA2 & "', 商品 = N'" & PA9 & "', 備用網址 = N'" & PA12 & "', 驗證 = N'          ', 

  262.                                           主帳號 = N'" & PA4 & "'

  263.                                   WHERE (主帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "')"

  264.         CmdSet_For_dr()

  265.     End Sub

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

  267.         ConnOpen_子SQL()

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

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

  270.                                   WHERE (帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "')"

  271.         CmdSet_For_dr()

  272.     End Sub

  273.     Friend Sub SQL_系統編碼規則_後台商客修改2()

  274.         ConnOpen_子SQL()

  275.         SQL1 = "UPDATE 後台商客基本資料表 SET 網址 = N'" & PA2 & "', 上繳源 = N'" & PA3 & "', 資料 = N'" & PA8 & "', 商品 = N'" & PA9 & "', 備用網址 = N'" & PA12 & "',

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

  277.                                   WHERE (帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "')"

  278.         CmdSet_For_dr()

  279.     End Sub

  280.     Friend Sub SQL_系統編碼規則_商客修改_特定帳號()

  281.         ConnOpen_子SQL()

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

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

  284.                 WHERE (帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "' AND 主帳號 LIKE N'" & PA13 & "')"

  285.         CmdSet_For_dr()

  286.     End Sub

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

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

  289.     End Sub

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

  291.         ConnOpen_子SQL() : SQL1 = "SELECT 編號, 商品, 層級 FROM 後台商品資料表 WHERE 系統 LIKE N'" & PA42 & "'  ORDER BY 商品, 層級, 編號" : CmdSet_For_dr()

  292.     End Sub

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

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

  295.     End Sub

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

  297.         ConnOpen_子SQL() : SQL1 = "SELECT 商品 FROM 後台商品資料表 GROUP BY 商品 ORDER BY 商品" : CmdSet_For_dr()

  298.     End Sub

  299.     Friend Sub SQL_下行客戶流水號()

  300.         ConnOpen_子SQL() : SQL1 = "SELECT 流水號 FROM 下行客戶 WHERE (網址 LIKE '" & PA10 & "') AND (帳號 LIKE '" & PA6 & "') AND (客戶下 LIKE '" & PA8 & "')" : CmdSet_For_dr()

  301.     End Sub

  302.     Friend Sub SQL_後台下行客戶流水號()

  303.         ConnOpen_子SQL() : SQL1 = "SELECT 流水號 FROM 後台下行客戶 WHERE (網址 LIKE '" & PA10 & "') AND (帳號 LIKE '" & PA6 & "') AND (客戶下 LIKE '" & PA8 & "')" : CmdSet_For_dr()

  304.     End Sub

  305.     Friend Sub SQL_商品讀取()

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

  307.     End Sub

  308.     Friend Sub SQL_商品讀取_1()

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

  310.     End Sub

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

  312.         ConnOpen_子SQL() : SQL1 = "SELECT 網址, 備用網址, 商品 FROM 商品資料表 WHERE 編號 LIKE N'" & Strings.Left(PA41, 4) & "'" : CmdSet_For_dr()

  313.     End Sub

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

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

  316.     End Sub

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

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

  319.     End Sub

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

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

  322.     End Sub

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

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

  325.     End Sub

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

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

  328.     End Sub

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

  330.         ConnOpen_子SQL()

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

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

  333.                 FROM       商品資料表 LEFT OUTER JOIN

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

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

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

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

  338.                            商客基本資料表.網址, 商品資料表.備用網址

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

  340.         CmdSet_For_DGV()

  341.     End Sub

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

  343.     Friend Sub SQL_導完帳修改上繳帳號狀態()

  344.         ConnOpen_子SQL() : SQL1 = "UPDATE 商客基本資料表 SET 下一層 = '0'" : CmdSet_For_dr()

  345.     End Sub

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

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

  348.     End Sub

  349.     Friend Sub SQL_新增()

  350.         ConnOpen_子SQL()

  351.         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],資料流水號) 

  352.                 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 & "')"

  353.         CmdSet_For_dr()

  354.     End Sub

  355.     Friend Sub SQL_查詢()

  356.         ConnOpen_子SQL()

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

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

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

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

  361.                 FROM        流水帳1 LEFT OUTER JOIN

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

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

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

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

  366.         CmdSet_For_DGV()

  367.     End Sub

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

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

  370.     End Sub

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

  372.         ConnOpen_子SQL()

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

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

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

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

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

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

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

  380.                         N'" & PA36 & "')"

  381.         CmdSet_For_dr()

  382.     End Sub

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

  384.         ConnOpen_子SQL()

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

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

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

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

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

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

  391.         CmdSet_For_DGV()

  392.     End Sub

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

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

  395.     End Sub

  396.     Friend Sub SQL_基數讀取()

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

  398.     End Sub

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

  400.         ConnOpen_子SQL()

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

  402.         CmdSet_For_dr()

  403.     End Sub

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

  405.         ConnOpen_子SQL()

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

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

  408.         CmdSet_For_dr()

  409.     End Sub

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

  411.         ConnOpen_子SQL()

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

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

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

  415.         CmdSet_For_dr()

  416.     End Sub

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

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

  419.     End Sub

  420.     Friend Sub SQL_LOG流水()

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

  422.     End Sub

  423.     Friend Sub SQL_LOG寫入()

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

  425.     End Sub

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

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

  428.     End Sub

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

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

  431.     End Sub

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

  433.         ConnOpen_子SQL()

  434.         SQL1 = "DELETE  流水帳 WHERE  (開始日期 LIKE N'" & PA1 & "') AND (日周月 IS NULL OR 日周月 LIKE '" & 天周月 & "')"

  435.         CmdSet_For_dr()

  436.     End Sub

  437.     Friend Sub SQL_流水帳同日期清除_含商品_帳戶()

  438.         ConnOpen_子SQL()

  439.         SQL1 = "DELETE  流水帳 WHERE  (開始日期 LIKE N'" & PA & "') AND (網址 LIKE N'" & PA1 & "') AND (帳戶 LIKE N'" & PA2 & "') AND (日周月 IS NULL OR 日周月 LIKE '" & 天周月 & "')"

  440.         CmdSet_For_dr()

  441.     End Sub

  442.     Friend Sub SQL_流水帳同日期清除_含商品_帳戶_備用網址()

  443.         ConnOpen_子SQL()

  444.         SQL1 = "DELETE  流水帳 WHERE  (開始日期 LIKE N'" & PA & "') AND (網址 LIKE N'" & PA6 & "') AND (帳戶 LIKE N'" & PA2 & "') AND (日周月 IS NULL OR 日周月 LIKE '" & 天周月 & "')"

  445.         CmdSet_For_dr()

  446.     End Sub

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

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

  449.     End Sub

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

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

  452.     End Sub

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

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

  455.     End Sub

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

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

  458.     End Sub

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

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

  461.     End Sub

  462.     Friend Sub SQL_LOG_刪除1()

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

  464.     End Sub

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

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

  467.     End Sub

  468.     Friend Sub SQL_LOG查詢3()

  469.         ConnOpen_子SQL()

  470.         SQL1 = "SELECT  [LOG].[index] AS 項次, [LOG].查詢區間, 商品資料表.商品, [LOG].帳號, [LOG].網址, [LOG].狀態, [LOG].查詢時間

  471.                 FROM    [LOG] LEFT OUTER JOIN

  472.                         商品資料表 ON [LOG].網址 = 商品資料表.網址 

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

  474.         CmdSet_For_DGV()

  475.     End Sub

  476.     Friend Sub SQL_LOG查詢3_1()

  477.         ConnOpen_子SQL()

  478.         SQL1 = "SELECT  [LOG].[index] AS 項次, [LOG].查詢區間, 後台商品資料表.商品, [LOG].帳號, [LOG].網址, [LOG].狀態, [LOG].查詢時間

  479.                 FROM    [LOG] LEFT OUTER JOIN

  480.                         後台商品資料表 ON [LOG].網址 = 後台商品資料表.網址 

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

  482.         CmdSet_For_DGV()

  483.     End Sub

  484.     Friend Sub SQL_LOG查詢4()

  485.         ConnOpen_子SQL()

  486.         SQL1 = "SELECT  [LOG].[index] AS 項次, [LOG].查詢區間, 商品資料表.商品, [LOG].帳號, [LOG].網址, [LOG].狀態, [LOG].查詢時間, 

  487.                         商品資料表.編號, 商品資料表.系統, 商品資料表.層級, 商品資料表.備用網址, 商客基本資料表.資料, 

  488.                         商客基本資料表.上繳源, 商客基本資料表.密碼

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

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

  491.                         商客基本資料表.網址 = 商品資料表.網址 RIGHT OUTER JOIN

  492.                         [LOG] ON 商客基本資料表.帳號 = [LOG].帳號 AND 商品資料表.網址 = [LOG].網址

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

  494.         CmdSet_For_DGV()

  495.     End Sub

  496.     Friend Sub SQL_LOG查詢4_1()

  497.         ConnOpen_子SQL()

  498.         SQL1 = "SELECT  [LOG].[index] AS 項次, [LOG].查詢區間, 後台商品資料表.商品, [LOG].帳號, [LOG].網址, [LOG].狀態, [LOG].查詢時間, 

  499.                         後台商品資料表.編號, 後台商品資料表.系統, 後台商品資料表.層級, 後台商品資料表.備用網址, 後台商客基本資料表.資料, 

  500.                         後台商客基本資料表.上繳源, 後台商客基本資料表.密碼

  501.                 FROM    後台商客基本資料表 INNER JOIN

  502.                         後台商品資料表 ON 後台商客基本資料表.商品 = 後台商品資料表.商品 AND 

  503.                         後台商客基本資料表.網址 = 後台商品資料表.網址 RIGHT OUTER JOIN

  504.                         [LOG] ON 後台商客基本資料表.帳號 = [LOG].帳號 AND 後台商品資料表.網址 = [LOG].網址

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

  506.         CmdSet_For_DGV()

  507.     End Sub

  508.     Friend Sub SQL_流水帳_帳號第一次驗證()

  509.         ConnOpen_子SQL()

  510.         SQL1 = "SELECT 下一層 AS 首次抓帳 FROM 商客基本資料表 WHERE (網址 LIKE '" & PA1 & "') AND (帳號 LIKE '" & PA2 & "')"

  511.         CmdSet_For_dr()

  512.     End Sub

  513.     Friend Sub SQL_後台流水帳_帳號第一次驗證()

  514.         ConnOpen_子SQL()

  515.         SQL1 = "SELECT 下一層 AS 首次抓帳 FROM 後台商客基本資料表 WHERE (網址 LIKE '" & PA1 & "') AND (帳號 LIKE '" & PA2 & "')"

  516.         CmdSet_For_dr()

  517.     End Sub

  518.     Friend Sub SQL_流水帳_客戶下新增_首次()

  519.         ConnOpen_子SQL()

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

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

  522.         CmdSet_For_dr()

  523.     End Sub

  524.     Friend Sub SQL_流水帳_客戶下新增_非首()

  525.         ConnOpen_子SQL()

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

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

  528.         CmdSet_For_dr()

  529.     End Sub

  530.     Friend Sub SQL_LOG查詢1()

  531.         ConnOpen_子SQL()

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

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

  534.         CmdSet_For_DGV()

  535.     End Sub

  536.     Friend Sub SQL_LOG查詢2()

  537.         ConnOpen_子SQL()

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

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

  540.         CmdSet_For_DGV()

  541.     End Sub

  542.     Friend Sub SQL_LOG查詢5()

  543.         ConnOpen_子SQL()

  544.         SQL1 = "SELECT  [LOG].[index] AS 項次, [LOG].查詢區間, 商品資料表.商品, [LOG].帳號, [LOG].網址, [LOG].狀態, [LOG].查詢時間

  545.                 FROM    [LOG] LEFT OUTER JOIN

  546.                         商品資料表 ON [LOG].網址 = 商品資料表.網址 

  547.                 WHERE   [LOG].狀態 LIKE N'查詢期間無資料'"

  548.         CmdSet_For_DGV()

  549.     End Sub

  550.     Friend Sub SQL_LOG查詢6()

  551.         ConnOpen_子SQL()

  552.         SQL1 = "SELECT  [LOG].[index] AS 項次, [LOG].查詢區間, 商品資料表.商品, [LOG].帳號, [LOG].網址, [LOG].狀態, [LOG].查詢時間

  553.                 FROM    [LOG] LEFT OUTER JOIN

  554.                         商品資料表 ON [LOG].網址 = 商品資料表.網址 

  555.                 WHERE   [LOG].狀態 LIKE N'無法取得資料'"

  556.         CmdSet_For_DGV()

  557.     End Sub

  558.     Friend Sub SQL_LOG查詢()

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

  560.     End Sub

  561.     Friend Sub SQL_LOG_刪除()

  562.         ConnOpen_子SQL()

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

  564.         CmdSet_For_dr()

  565.     End Sub

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

  567.         ConnOpen_子SQL()

  568.         SQL1 = "INSERT INTO 商客資料暫存檔 (網址, 帳號, 密碼, 下一層, 上一層, 備用網址, 主帳號) 

  569.                 VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "')"

  570.         CmdSet_For_dr()

  571.     End Sub

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

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

  574.     End Sub

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

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

  577.     End Sub

  578.     Friend Sub SQL_流水帳修正()

  579.         SQL1 = "SELECT [index], 開始日期, 結束日期, 網址, 帳戶 FROM 流水帳 WHERE (網址 LIKE 'http:\%') ORDER BY 結束日期 DESC" : CmdSet_For_DGV()

  580.     End Sub

  581.     Friend Sub SQL_修正網址()

  582.         SQL1 = "UPDATE 流水帳 SET 網址 = N'" & PA1 & "' WHERE [index] LIKE N'" & PA2 & "' AND 開始日期 LIKE N'" & PA3 & "' AND 結束日期 LIKE N'" & PA4 & "' AND 帳戶 LIKE N'" & PA5 & "'"

  583.         CmdSet_For_dr()

  584.     End Sub

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

  586.         ConnOpen_子SQL()

  587.         SQL1 = "UPDATE 下行客戶 SET 計算 = '" & BL1 & "', 同帳 = '" & BL2 & "', 所得 = '" & BL3 & "', 所得另算 = N'" & PA1 & "', 

  588.                                     基數 = N'" & PA2 & "', 客名 = N'" & PA3 & "', 水差另算 = N'" & PA4 & "' 

  589.                 WHERE  流水號 LIKE N'" & PA & "'"

  590.         CmdSet_For_dr()

  591.     End Sub

  592.     Friend Sub SQL_帳戶資料查詢()

  593.         ConnOpen_子SQL()

  594.         SQL1 = "SELECT 網址, 帳號, 密碼, 資料, 上繳源, 商品, 上行基數, 下行基數, 驗證 FROM 商客基本資料表 WHERE (商品 LIKE '" & PA5 & "') AND (帳號 LIKE '" & PA6 & "')"

  595.         CmdSet_For_dr()

  596.     End Sub

  597.     Friend Sub SQL_後台帳戶資料查詢()

  598.         ConnOpen_子SQL()

  599.         SQL1 = "SELECT 網址, 帳號, 密碼, 資料, 上繳源, 商品, 上行基數, 下行基數, 驗證 FROM 後台商客基本資料表 WHERE (商品 LIKE '" & PA5 & "') AND (帳號 LIKE '" & PA6 & "')"

  600.         CmdSet_For_dr()

  601.     End Sub

  602.     Friend Sub SQL_彙總合帳使用()

  603.         ConnOpen_子SQL()

  604.         SQL1 = "SELECT      TOP (" & NU1 & ") 流水帳.開始日期 AS 客戶, 選擇按鈕.按鈕 AS 付反, 選擇按鈕.按鈕 AS 收反, 選擇按鈕.按鈕 AS 所反, 

  605.                             選擇按鈕.按鈕 AS 水反, 選擇按鈕.按鈕 AS 紅反, 流水帳.開始日期 AS 紙帳, 流水帳.開始日期 AS 應付, 流水帳.開始日期 AS 應收, 

  606.                             流水帳.開始日期 AS 個人所得, 流水帳.開始日期 AS 水差, 流水帳.開始日期 AS 前期, 流水帳.開始日期 AS 交收合計, 

  607.                             流水帳.開始日期 AS 應付1, 流水帳.開始日期 AS 應收1, 流水帳.開始日期 AS 個人所得1, 

  608.                             流水帳.開始日期 AS 水差1, 流水帳.開始日期 AS 交收合計1

  609.                 FROM        流水帳 LEFT OUTER JOIN

  610.                             選擇按鈕 ON 流水帳.開始日期 = 選擇按鈕.選擇"

  611.         CmdSet_For_DGV()

  612.     End Sub

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

  614.         ConnOpen_子SQL()

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

  616.                             QQQ.天帳, QQQ.地帳, QQQ.個人所得, QQQ.水差, QQQ.核帳, QQQ.天帳1, QQQ.地帳1, QQQ.天帳1 AS 天帳2, QQQ.地帳1 AS 地帳2, QQQ.個人所得1, 

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

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

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

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

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

  622.                             QQQ.下行基數 AS 下收, QQQ.客戶, QQQ.客帳, QQQ.帳戶 AS 客名, 選擇按鈕.按鈕 AS 計算, 選擇按鈕.按鈕 AS 同帳, 選擇按鈕.按鈕 AS 所得, 

  623.                             選擇按鈕.按鈕 AS 上層, 選擇按鈕.按鈕 AS 下層, QQQ.個人所得 AS 所得另算, QQQ.總監, 

  624.                             QQQ.個人所得1 AS 個人所得2, QQQ.水差1 AS 水差2, QQQ.帳戶 AS 同帳指定, QQQ.帳戶 AS 所得指定, QQQ.帳戶 AS 水差指定,QQQ.[index], 

  625.                             QQQ.帳戶 AS 水差出帳, QQQ.大總監, QQQ.系統

  626.                 FROM        選擇按鈕 RIGHT OUTER JOIN

  627.                            (SELECT          流水帳.開始日期, 流水帳.結束日期, 流水帳.網址 AS 網址, 流水帳.帳戶, 

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

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

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

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

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

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

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

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

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

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

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

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

  640.                                             流水帳.查看對帳s, 商客基本資料表.上繳源 AS 客帳, 流水帳.[index], 流水帳.大總監, LEFT(商客基本資料表.資料,2) AS 系統

  641.                             FROM            流水帳 LEFT OUTER JOIN 商客基本資料表 ON (流水帳.網址 = 商客基本資料表.網址 OR 流水帳.網址 = 商客基本資料表.備用網址) AND 

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

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

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

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

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

  647.                                            (流水帳.網址 LIKE '%" & PA40 & "%') AND (日周月 LIKE '" & 天周月 & "')

  648.                             GROUP BY        流水帳.開始日期, 流水帳.結束日期, 流水帳.網址, 流水帳.帳戶, 

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

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

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

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

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

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

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

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

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

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

  659.         CmdSet_For_DGV()

  660.     End Sub

  661.     Friend Sub SQL_彙總查詢()

  662.         ConnOpen_子SQL()

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

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

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

  666.                 FROM        流水帳 LEFT OUTER JOIN 商客基本資料表 ON (流水帳.網址 = 商客基本資料表.網址 OR 流水帳.網址 = 商客基本資料表.備用網址) AND 

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

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

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

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

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

  672.         CmdSet_For_DGV()

  673.     End Sub

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

  675.         ConnOpen_子SQL()

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

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

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

  679.                 FROM        流水帳 LEFT OUTER JOIN 商客基本資料表 ON (流水帳.網址 = 商客基本資料表.網址 OR 流水帳.網址 = 商客基本資料表.備用網址) AND 

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

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

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

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

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

  685.         CmdSet_For_DGV()

  686.     End Sub

  687.     Friend Sub SQL_彙總上繳1()

  688.         ConnOpen_子SQL()

  689.         SQL1 = "SELECT 商品 AS 項次, 商品, 商品 AS [應付.], 商品 AS 應付

  690.                 FROM              商客基本資料表

  691.                 WHERE          (上繳源 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')

  692.                 GROUP BY   商品 ORDER BY 商品"

  693.         CmdSet_For_DGV()

  694.     End Sub

  695.     Friend Sub SQL_彙總上繳2()

  696.         ConnOpen_子SQL()

  697.         SQL1 = "SELECT     商客基本資料表.商品 AS 項次, 商客基本資料表.商品, 商客基本資料表.帳號, 商客基本資料表.商品 AS [應付.], 

  698.                            商客基本資料表.商品 AS 應付

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

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

  701.                 WHERE     (上繳源 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "') AND (下行客戶.計算 = 1)

  702.                 GROUP BY   商客基本資料表.商品, 商客基本資料表.帳號

  703.                 ORDER BY   項次"

  704.         CmdSet_For_DGV()

  705.     End Sub

  706.     Friend Sub SQL_彙總下收1()

  707.         ConnOpen_子SQL()

  708.         SQL1 = "SELECT     商品資料表.商品 AS 項次, 商品資料表.商品, 商品資料表.商品 AS [應收.], 商品資料表.商品 AS 應收

  709.                 FROM       流水帳 INNER JOIN 商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址)

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

  711.                           (流水帳.結束日期 LIKE '" & Strings.Right(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (流水帳.查看對帳s LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')

  712.                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 商品資料表.商品, 流水帳.查看對帳s

  713.                 ORDER BY   商品資料表.商品"

  714.         CmdSet_For_DGV()

  715.     End Sub

  716.     Friend Sub SQL_彙總下收2()

  717.         ConnOpen_子SQL()

  718.         SQL1 = "SELECT     商品資料表.商品 AS 項次, 商品資料表.商品, 流水帳.帳戶 AS 帳號, 商品資料表.商品 AS [應收.], 

  719.                            商品資料表.商品 AS 應收

  720.                 FROM       流水帳 INNER JOIN 商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址)

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

  722.                           (流水帳.結束日期 LIKE '" & Strings.Right(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (流水帳.查看對帳s LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')

  723.                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 商品資料表.商品, 流水帳.查看對帳s, 流水帳.帳戶

  724.                 ORDER BY   商品資料表.商品"

  725.         CmdSet_For_DGV()

  726.     End Sub

  727.     Friend Sub SQL_彙總下收3()

  728.         ConnOpen_子SQL()

  729.         SQL1 = "SELECT      商品資料表.商品 AS 項次, 商品資料表.商品, 流水帳.帳戶 AS 帳號, 下行客戶.客戶下 AS 客戶, 

  730.                             商品資料表.商品 AS [應收.], 商品資料表.商品 AS 應收

  731.                 FROM        流水帳 INNER JOIN 商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址) INNER JOIN

  732.                             下行客戶 ON 商品資料表.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號

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

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

  735.                            (下行客戶.客名 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "') AND 

  736.                            (流水帳.查看對帳s LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "') AND (下行客戶.計算 = 1)

  737.                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 商品資料表.商品, 流水帳.帳戶, 下行客戶.客戶下

  738.                 ORDER BY   項次"

  739.         CmdSet_For_DGV()

  740.     End Sub

  741.     Friend Sub SQL_彙總所得1()

  742.         ConnOpen_子SQL()

  743.         SQL1 = "SELECT     商品資料表.商品 AS 項次, 商品資料表.商品, 商品資料表.商品 AS [所得.], 商品資料表.商品 AS 所得

  744.                 FROM       流水帳 INNER JOIN 商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址)

  745.                 WHERE     (流水帳.開始日期 LIKE '" & Strings.Left(電板帳務彙總計算表.資料_cb.Text, 10) & "')  AND (流水帳.下注明細s NOT LIKE '') AND 

  746.                           (流水帳.結束日期 LIKE '" & Strings.Right(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (流水帳.下注明細s LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')

  747.                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 商品資料表.商品, 流水帳.下注明細s

  748.                 ORDER BY   商品資料表.商品"

  749.         CmdSet_For_DGV()

  750.     End Sub

  751.     Friend Sub SQL_彙總所得2()

  752.         ConnOpen_子SQL()

  753.         SQL1 = "SELECT     商品資料表.商品 AS 項次, 商品資料表.商品, 流水帳.帳戶 AS 帳號, 商品資料表.商品 AS [所得.], 商品資料表.商品 AS 所得

  754.                 FROM       流水帳 INNER JOIN 商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址)

  755.                 WHERE     (流水帳.開始日期 LIKE '" & Strings.Left(電板帳務彙總計算表.資料_cb.Text, 10) & "')  AND (流水帳.下注明細s NOT LIKE '') AND 

  756.                           (流水帳.結束日期 LIKE '" & Strings.Right(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (流水帳.下注明細s LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')

  757.                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 商品資料表.商品, 流水帳.下注明細s, 流水帳.帳戶

  758.                 ORDER BY   商品資料表.商品"

  759.         CmdSet_For_DGV()

  760.     End Sub

  761.     Friend Sub SQL_彙總所得3()

  762.         SQL1 = "SELECT     商品資料表.商品 AS 項次, 商品資料表.商品, 流水帳.帳戶 AS 帳號, 下行客戶.客戶下 AS 客戶, 

  763.                            商品資料表.商品 AS [所得.], 商品資料表.商品 AS 所得

  764.                 FROM       流水帳 INNER JOIN 商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址) INNER JOIN

  765.                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號

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

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

  768.                           (流水帳.下注明細s LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "') AND 

  769.                           (下行客戶.所得另算 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "') AND 

  770.                           (下行客戶.所得另算 NOT LIKE '')

  771.                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 商品資料表.商品, 流水帳.帳戶, 下行客戶.客戶下

  772.                 ORDER BY   項次"

  773.         CmdSet_For_DGV()

  774.     End Sub

  775.     Friend Sub SQL_彙總所得4()

  776.         ConnOpen_子SQL()

  777.         SQL1 = "SELECT     商品資料表.商品 AS 項次, 商品資料表.商品, 流水帳.帳戶 AS 帳號, 流水帳.帳戶 AS 客戶, 

  778.                            商品資料表.商品 AS [所得.], 商品資料表.商品 AS 所得

  779.                 FROM       流水帳 INNER JOIN 商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址)

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

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

  782.                           (流水帳.下注明細 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')

  783.                 GROUP BY 商品資料表.商品, 流水帳.帳戶

  784.                 ORDER BY   商品資料表.商品 DESC"

  785.         CmdSet_For_DGV()

  786.     End Sub

  787.     Friend Sub SQL_彙總所得5()

  788.         ConnOpen_子SQL()

  789.         SQL1 = "SELECT     TOP(" & NN6 & ") 流水帳.帳戶 AS 項次, 流水帳.帳戶 AS 商品, 流水帳.帳戶 AS 帳號, 流水帳.帳戶 AS 客戶, 

  790.                            流水帳.帳戶 AS [所得.], 流水帳.帳戶 AS 所得

  791.                 FROM       流水帳"

  792.         CmdSet_For_DGV()

  793.     End Sub

  794.     Friend Sub SQL_彙總水差1()

  795.         ConnOpen_子SQL()

  796.         SQL1 = "SELECT     下行客戶.水差另算 AS 項次, 商品資料表.商品, 下行客戶.水差另算 AS [水差.], 下行客戶.水差另算 AS 水差

  797.                 FROM       流水帳 INNER JOIN

  798.                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 INNER JOIN

  799.                            商品資料表 ON 下行客戶.網址 = 商品資料表.網址

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

  801.                           (流水帳.結束日期 LIKE '" & Strings.Right(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.水差另算 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')

  802.                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 下行客戶.水差另算, 商品資料表.商品"

  803.         CmdSet_For_DGV()

  804.     End Sub

  805.     Friend Sub SQL_彙總水差2()

  806.         ConnOpen_子SQL()

  807.         SQL1 = "SELECT     下行客戶.水差另算 AS 項次, 商品資料表.商品, 流水帳.帳戶 AS 帳號, 下行客戶.水差另算 AS [水差.], 

  808.                            下行客戶.水差另算 AS 水差

  809.                 FROM       流水帳 INNER JOIN

  810.                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 INNER JOIN

  811.                            商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址)

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

  813.                           (流水帳.結束日期 LIKE '" & Strings.Right(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.水差另算 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')

  814.                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 流水帳.帳戶, 下行客戶.水差另算, 商品資料表.商品

  815.                 ORDER BY   商品資料表.商品"

  816.         CmdSet_For_DGV()

  817.     End Sub

  818.     Friend Sub SQL_彙總水差3()

  819.         ConnOpen_子SQL()

  820.         SQL1 = "SELECT     下行客戶.水差另算 AS 項次, 商品資料表.商品, 流水帳.帳戶 AS 帳號, 下行客戶.客戶下 AS 客戶, 

  821.                            下行客戶.水差另算 AS [水差.], 下行客戶.水差另算 AS 水差

  822.                 FROM       流水帳 INNER JOIN

  823.                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 INNER JOIN

  824.                            商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址)

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

  826.                           (流水帳.結束日期 LIKE '" & Strings.Right(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.水差另算 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')

  827.                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 流水帳.帳戶, 下行客戶.水差另算, 商品資料表.商品, 下行客戶.客戶下

  828.                 ORDER BY   商品資料表.商品"

  829.         CmdSet_For_DGV()

  830.     End Sub

  831.     Friend Sub SQL_彙總水差1_1()

  832.         ConnOpen_子SQL()

  833.         SQL1 = "SELECT     下行客戶.水差另算 AS 項次, 商品資料表.商品, 下行客戶.水差另算 AS [水差.], 下行客戶.水差另算 AS 水差

  834.                 FROM       流水帳 INNER JOIN

  835.                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 INNER JOIN

  836.                            商品資料表 ON 下行客戶.網址 = 商品資料表.網址

  837.                 WHERE     (流水帳.開始日期 LIKE '" & Strings.Left(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.水差另算 NOT LIKE N'') AND 

  838.                           (流水帳.結束日期 LIKE '" & Strings.Right(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.所得另算 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')

  839.                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 下行客戶.水差另算, 商品資料表.商品"

  840.         CmdSet_For_DGV()

  841.     End Sub

  842.     Friend Sub SQL_彙總水差2_1()

  843.         ConnOpen_子SQL()

  844.         SQL1 = "SELECT     下行客戶.水差另算 AS 項次, 商品資料表.商品, 流水帳.帳戶 AS 帳號, 下行客戶.水差另算 AS [水差.], 

  845.                            下行客戶.水差另算 AS 水差

  846.                 FROM       流水帳 INNER JOIN

  847.                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 INNER JOIN

  848.                            商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址)

  849.                 WHERE     (流水帳.開始日期 LIKE '" & Strings.Left(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.水差另算 NOT LIKE N'') AND 

  850.                           (流水帳.結束日期 LIKE '" & Strings.Right(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.所得另算 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')

  851.                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 流水帳.帳戶, 下行客戶.水差另算, 商品資料表.商品

  852.                 ORDER BY   商品資料表.商品"

  853.         CmdSet_For_DGV()

  854.     End Sub

  855.     Friend Sub SQL_彙總水差3_1()

  856.         ConnOpen_子SQL()

  857.         SQL1 = "SELECT     下行客戶.水差另算 AS 項次, 商品資料表.商品, 流水帳.帳戶 AS 帳號, 下行客戶.客戶下 AS 客戶, 

  858.                            下行客戶.水差另算 AS [水差.], 下行客戶.水差另算 AS 水差

  859.                 FROM       流水帳 INNER JOIN

  860.                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 INNER JOIN

  861.                            商品資料表 ON (流水帳.網址 = 商品資料表.網址 OR 流水帳.網址 = 商品資料表.備用網址)

  862.                 WHERE     (流水帳.開始日期 LIKE '" & Strings.Left(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.水差另算 NOT LIKE N'') AND 

  863.                           (流水帳.結束日期 LIKE '" & Strings.Right(電板帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.所得另算 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')

  864.                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 流水帳.帳戶, 下行客戶.水差另算, 商品資料表.商品, 下行客戶.客戶下

  865.                 ORDER BY   商品資料表.商品"

  866.         CmdSet_For_DGV()

  867.     End Sub

  868.     Friend Sub SQL_彙總所得5_1()

  869.         ConnOpen_子SQL()

  870.         SQL1 = "SELECT     TOP(" & NN6 & ") 流水帳.帳戶 AS 項次, 流水帳.帳戶 AS 商品, 流水帳.帳戶 AS 帳號, 流水帳.帳戶 AS 客戶, 

  871.                            流水帳.帳戶 AS [水差.], 流水帳.帳戶 AS 水差

  872.                 FROM       流水帳"

  873.         CmdSet_For_DGV()

  874.     End Sub

  875.     Friend Sub SQL_彙總查詢6()

  876.         ConnOpen_子SQL()

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

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

  879.                             商客基本資料表.網址 AS 狀態, 商客基本資料表.密碼, 商客基本資料表.驗證, 商客基本資料表.下一層, 商客基本資料表.上一層, 

  880.                             商客基本資料表.備用網址, 商客基本資料表.主帳號

  881.                 FROM        流水帳 FULL OUTER JOIN

  882.                             商客基本資料表 ON (流水帳.網址 = 商客基本資料表.網址 OR

  883.                             流水帳.網址 = 商客基本資料表.備用網址) AND 流水帳.帳戶 = 商客基本資料表.帳號

  884.                 WHERE       商客基本資料表.商品 IS NOT NULL AND 商客基本資料表.商品 NOT LIKE '' AND 

  885.                             商客基本資料表.商品 LIKE '" & PA1 & "' AND 商客基本資料表.上繳源 LIKE '" & PA2 & "'

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

  887.                             商客基本資料表.下一層, 商客基本資料表.上一層, 商客基本資料表.備用網址, 商客基本資料表.主帳號

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

  889.         CmdSet_For_DGV()

  890.     End Sub

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

  892.         ConnOpen_子SQL()

  893.         SQL1 = "DELETE  流水帳 

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

  895.                         結束日期 LIKE '" & Strings.Right(電板帳務彙總計算表.資料_cb.Text, 10) & "')  AND (日周月 IS NULL OR 日周月 LIKE '" & 天周月 & "')"

  896.         CmdSet_For_dr()

  897.     End Sub

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

  899.         ConnOpen_子SQL()

  900.         SQL1 = "SELECT 開始日期, 結束日期 FROM 流水帳 WHERE (日周月 IS NULL OR 日周月 LIKE '" & 天周月 & "') GROUP BY 開始日期, 結束日期 ORDER BY 結束日期 DESC"

  901.         CmdSet_For_DGV()

  902.     End Sub

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

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

  905.     End Sub

  906.     Friend Sub SQL_流水帳上繳_1()

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

  908.     End Sub

  909.     Friend Sub SQL_流水帳下收()

  910.         ConnOpen_子SQL() : SQL1 = "SELECT 客名 FROM 下行客戶 GROUP BY 客名 ORDER BY 客名" : CmdSet_For_dr()

  911.     End Sub

  912.     Friend Sub SQL_流水帳所得()

  913.         ConnOpen_子SQL() : SQL1 = "SELECT 所得另算 FROM 下行客戶 GROUP BY 所得另算 ORDER BY 所得另算" : CmdSet_For_dr()

  914.     End Sub

  915.     Friend Sub SQL_流水帳水差()

  916.         ConnOpen_子SQL() : SQL1 = "SELECT 水差另算 FROM 下行客戶 GROUP BY 水差另算 ORDER BY 水差另算" : CmdSet_For_dr()

  917.     End Sub

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

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

  920.     End Sub

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

  922.         ConnOpen_子SQL()

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

  924.                 FROM       下行客戶 INNER JOIN

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

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

  927.                 GROUP BY   下行客戶.客名

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

  929.         CmdSet_For_dr()

  930.     End Sub

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

  932.         ConnOpen_子SQL()

  933.         SQL1 = "SELECT     下行客戶.所得另算 FROM 下行客戶 INNER JOIN 商客基本資料表 ON 下行客戶.網址 = 商客基本資料表.網址

  934.                 WHERE     (下行客戶.所得另算 IS NOT NULL) AND (商客基本資料表.商品 LIKE '" & PA18 & "')

  935.                 GROUP BY   下行客戶.所得另算

  936.                 ORDER BY   下行客戶.所得另算"

  937.         CmdSet_For_dr()

  938.     End Sub

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

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

  941.     End Sub

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

  943.         ConnOpen_子SQL()

  944.         SQL1 = "SELECT  下行客戶.客戶下 AS 客戶帳號, 下行客戶.網址, 下行客戶.帳號, 下行客戶.客名 AS 客戶名稱, 下行客戶.計算, 

  945.                         下行客戶.同帳, 下行客戶.所得, 下行客戶.下層, 下行客戶.基數, 下行客戶.流水號, 下行客戶.所得另算, 

  946.                         下行客戶.水差另算, 商品資料表.備用網址

  947.                 FROM    下行客戶 INNER JOIN

  948.                         商品資料表 ON 下行客戶.網址 = 商品資料表.網址"

  949.         CmdSet_For_DGV()

  950.     End Sub

  951.     Friend Sub SQL_股東紅利彙總表()

  952.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, SUM(ABS(紅利)) AS 總股, SUM(紅利) AS 總所得 FROM 電板股東紅利設定 GROUP BY 所得戶" : CmdSet_For_DGV()

  953.     End Sub

  954.     Friend Sub SQL_股東紅利明細表()

  955.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, 股東, 紅利 AS 總股份, 紅利 AS 股份, 紅利 FROM 電板股東紅利設定 ORDER BY 所得戶, 股東" : CmdSet_For_DGV()

  956.     End Sub

  957.     Friend Sub SQL_帳務流水存檔確認()

  958.         ConnOpen_子SQL()

  959.         SQL1 = "SELECT      開始日期, 結束日期

  960.                  FROM       流水帳

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

  962.                           (結束日期 LIKE '" & Strings.Right(電板帳務明細查詢表.資料_cb.Text, 10) & "')"

  963.         CmdSet_For_dr()

  964.     End Sub

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

  966.         ConnOpen_子SQL()

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

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

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

  970.                             QQQ.總量, QQQ.退水, QQQ.中獎, QQQ.輸贏, QQQ.佔成輸贏, QQQ.水倍差, QQQ.上繳金額, QQQ.自已總輸贏, QQQ.上繳貢獻額, QQQ.貢獻額, 

  971.                             QQQ.貢獻度, QQQ.下注明細, QQQ.玩法明細, QQQ.調盤退水, QQQ.調退實佔, QQQ.上繳, QQQ.會員, QQQ.代理, QQQ.總代理, QQQ.股東, 

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

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

  974.                             QQQ.帳戶 AS 客戶名稱, QQQ.下行基數 AS [下收.], 選擇按鈕.按鈕 AS 計算, 選擇按鈕.按鈕 AS 同帳, 選擇按鈕.按鈕 AS 所得, 選擇按鈕.按鈕 AS 上層, 

  975.                             選擇按鈕.按鈕 AS 下層, QQQ.帳戶 AS 同帳指定, QQQ.個人所得 AS 所得另算, QQQ.[index], QQQ.帳戶 AS 下客流水, QQQ.總監, QQQ.帳戶 AS 所得指定, 

  976.                             QQQ.帳戶 AS 天帳1, QQQ.帳戶 AS 地帳1, QQQ.帳戶 AS 個人所得2, QQQ.帳戶 AS 個人所得3, QQQ.帳戶 AS 水差2, QQQ.帳戶 AS 水差指定, QQQ.帳戶 AS 核帳, 

  977.                             QQQ.大總監, QQQ.系統

  978.                 FROM        選擇按鈕 RIGHT OUTER JOIN

  979.                            (SELECT     流水帳.開始日期, 流水帳.結束日期, 流水帳.網址 AS 網址, 流水帳.帳戶, 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  996.                                        商客基本資料表.上繳源 AS 客帳, 流水帳.[index], 流水帳.大總監, LEFT(商客基本資料表.資料,2) AS 系統

  997.                              FROM      流水帳 LEFT OUTER JOIN 商客基本資料表 ON (流水帳.網址 = 商客基本資料表.網址 OR 流水帳.網址 = 商客基本資料表.備用網址) AND 

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

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

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

  1001.                                       (商客基本資料表.商品 LIKE '" & PA3 & "') AND (流水帳.隨機碼 NOT LIKE '計算關閉' OR 流水帳.隨機碼 IS NULL) AND

  1002.                                       (商客基本資料表.上繳源 LIKE '" & PA4 & "') AND (日周月 LIKE '" & 天周月 & "') " & PA32 & "

  1003.                              GROUP BY  流水帳.開始日期, 流水帳.結束日期, 流水帳.網址, 流水帳.帳戶, 

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

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

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

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

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

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

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

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

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

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

  1014.         CmdSet_For_DGV()

  1015.     End Sub

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

  1017.         ConnOpen_子SQL()

  1018.         SQL1 = "UPDATE 流水帳 SET 查看對帳s = '" & PA38 & "', 下注明細s = '" & PA32 & "', 下注明細 = '" & PA31 & "', 隨機碼 = '" & PA30 & "'

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

  1020.                       (網址 LIKE '" & PA34 & "') AND (帳戶 LIKE '" & PA33 & "')"

  1021.         CmdSet_For_dr()

  1022.     End Sub

  1023.     Friend Sub SQL_帳務明細查詢表客戶寫入_全部()

  1024.         ConnOpen_子SQL()

  1025.         SQL1 = "UPDATE 流水帳 SET  隨機碼 = '" & PA30 & "' WHERE  (網址 LIKE '" & PA34 & "') AND (名稱 LIKE N'%" & PA33 & "%' OR 客戶s LIKE N'%" & PA33 & "%')"

  1026.         CmdSet_For_dr()

  1027.     End Sub

  1028.     Friend Sub SQL_流水帳指定周日月()

  1029.         ConnOpen_子SQL() : SQL1 = "UPDATE 流水帳 SET 日周月 = '" & 天周月 & "' WHERE (開始日期 LIKE '" & 開始D & "') AND (日周月 IS NULL)" : CmdSet_For_dr()

  1030.     End Sub

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

  1032.         ConnOpen_子SQL()

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

  1034.                 FROM       流水帳 LEFT OUTER JOIN

  1035.                            商客基本資料表 ON 流水帳.帳戶 = 商客基本資料表.帳號 AND 流水帳.網址 = 商客基本資料表.網址

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

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

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

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

  1040.         CmdSet_For_DGV()

  1041.     End Sub

  1042.     Friend Sub SQL_所得另算表1()

  1043.         ConnOpen_子SQL() : SQL1 = "SELECT TOP(" & PA17 & ") 下注明細s AS 商品, 下注明細s AS 所得 FROM 流水帳" : CmdSet_For_DGV()

  1044.     End Sub

  1045.     Friend Sub SQL_上繳名()

  1046.         ConnOpen_子SQL() : SQL1 = "SELECT 上繳源 AS 上繳, 上繳源 AS 交割金額, 上繳源 AS [交割金額.] FROM 商客基本資料表 GROUP BY 上繳源" : CmdSet_For_DGV()

  1047.     End Sub

  1048.     Friend Sub SQL_下收名()

  1049.         ConnOpen_子SQL() : SQL1 = "SELECT 客名 AS 下收, 客名 AS 交割金額, 客名 AS [交割金額.] FROM 下行客戶 GROUP BY 客名" : CmdSet_For_DGV()

  1050.     End Sub

  1051.     Friend Sub SQL_所得名()

  1052.         ConnOpen_子SQL() : SQL1 = "SELECT 所得另算 AS 所得, 所得另算 AS 交割金額, 所得另算 AS [交割金額.] FROM 下行客戶 GROUP BY 所得另算" : CmdSet_For_DGV()

  1053.     End Sub

  1054.     Friend Sub SQL_所得名1()

  1055.         ConnOpen_子SQL()

  1056.         SQL1 = "SELECT     下注明細 AS 所得, 下注明細 AS 交割金額, 下注明細 AS [交割金額.] FROM 流水帳

  1057.                 WHERE     (下注明細 IS NOT NULL) AND (下注明細 NOT LIKE '查看') AND (下注明細 NOT LIKE '')

  1058.                 GROUP BY   下注明細"

  1059.         CmdSet_For_DGV()

  1060.     End Sub

  1061.     Friend Sub SQL_水差名()

  1062.         ConnOpen_子SQL() : SQL1 = "SELECT 水差另算 AS 水差, 水差另算 AS 交割金額, 水差另算 AS [交割金額.] FROM 下行客戶 GROUP BY 水差另算" : CmdSet_For_DGV()

  1063.     End Sub

  1064.     Friend Sub SQL_水差名出帳()

  1065.         ConnOpen_子SQL() : SQL1 = "SELECT 所得另算 AS 水差, 所得另算 AS 交割金額, 所得另算 AS [交割金額.] FROM 下行客戶 WHERE (水差另算 NOT LIKE '') GROUP BY 所得另算" : CmdSet_For_DGV()

  1066.     End Sub

  1067.     Friend Sub SQL_上下層核帳()

  1068.         ConnOpen_子SQL()

  1069.         SQL1 = "SELECT TOP(" & NN1 & ") 下注明細s AS 商品, 下注明細s AS 上帳戶, 下注明細s AS 下帳戶, 下注明細s AS 天帳, 下注明細s AS 地帳, 下注明細s AS 所得, 下注明細s AS 水差, 下注明細s AS 核帳 

  1070.                 FROM 流水帳"

  1071.         CmdSet_For_DGV()

  1072.     End Sub

  1073.     Friend Sub SQL_電板所得查詢()

  1074.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶 FROM 電板客戶_所得" : CmdSet_For_DGV()

  1075.     End Sub

  1076.     Friend Sub SQL_電板客戶查詢()

  1077.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 付反, 收反, 所反, 水反, 紅反 FROM 電板客戶 WHERE 客戶 NOT LIKE '.無資料' ORDER BY 客戶" : CmdSet_For_DGV()

  1078.     End Sub

  1079.     Friend Sub SQL_電板客戶查詢1()

  1080.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶 AS 項次, 客戶 FROM 電板客戶 WHERE 客戶 NOT LIKE '.無資料' ORDER BY 客戶" : CmdSet_For_DGV()

  1081.     End Sub

  1082.     Friend Sub SQL_電板客戶查詢2()

  1083.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶 AS 項次, 客戶 FROM 電板客戶 WHERE 客戶 LIKE '" & 電板客戶名稱編輯器.客戶1_tb.Text & "' ORDER BY 客戶" : CmdSet_For_dr()

  1084.     End Sub

  1085.     Friend Sub SQL_手工客戶查詢1()

  1086.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶 AS 項次, 所得戶 AS 客戶 FROM 電板股東紅利設定 WHERE (股東 LIKE '') ORDER BY 所得戶" : CmdSet_For_DGV()

  1087.     End Sub

  1088.     Friend Sub SQL_手工客戶查詢2()

  1089.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶 FROM 電板股東紅利設定 WHERE (所得戶 LIKE '" & PA1 & "') ORDER BY 所得戶" : CmdSet_For_dr()

  1090.     End Sub

  1091.     Friend Sub SQL_手工客戶新增()

  1092.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 電板股東紅利設定 (所得戶, 股東, 紅利) VALUES (N'" & PA1 & "', '', '10')" : CmdSet_For_dr()

  1093.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 電板客戶 (客戶, 付反, 收反, 所反, 水反, 紅反) VALUES (N'" & PA1 & "', '0', '0', '0', '0', '0')" : CmdSet_For_dr()

  1094.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 電板紙板 (客戶, 商品) VALUES (N'" & PA1 & "', '前期未收')" : CmdSet_For_dr()

  1095.     End Sub

  1096.     Friend Sub SQL_手工客戶刪除1()

  1097.         ConnOpen_子SQL() : SQL1 = "DELETE 電板股東紅利設定 WHERE (所得戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1098.         ConnOpen_子SQL() : SQL1 = "DELETE 電板客戶 WHERE (客戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1099.         ConnOpen_子SQL() : SQL1 = "DELETE 電板紙板 WHERE (客戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1100.         ConnOpen_子SQL() : SQL1 = "DELETE 電板紙板流水帳 WHERE (客戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1101.     End Sub

  1102.     Friend Sub SQL_手工客戶修改1()

  1103.         ConnOpen_子SQL() : SQL1 = "UPDATE 電板股東紅利設定 SET 所得戶 = N'" & PA1 & "' WHERE (所得戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1104.         ConnOpen_子SQL() : SQL1 = "UPDATE 電板客戶 SET 客戶 = N'" & PA1 & "' WHERE (客戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1105.         ConnOpen_子SQL() : SQL1 = "UPDATE 電板紙板 SET 客戶 = N'" & PA1 & "' WHERE (客戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1106.         ConnOpen_子SQL() : SQL1 = "UPDATE 電板紙板流水帳 SET 客戶 = N'" & PA1 & "' WHERE (客戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1107.     End Sub

  1108.     Friend Sub SQL_電板客戶下拉清單()

  1109.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶 FROM 電板客戶 WHERE 客戶 NOT LIKE '.無資料' ORDER BY 客戶" : CmdSet_For_dr()

  1110.     End Sub

  1111.     Friend Sub SQL_電板所得新增()

  1112.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 電板客戶_所得 (所得戶) VALUES (N'" & PA43 & "')" : CmdSet_For_dr()

  1113.     End Sub

  1114.     Friend Sub SQL_電板客戶新增()

  1115.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 電板客戶 (客戶, 付反, 收反, 所反, 水反, 紅反) VALUES (N'" & PA43 & "', '0', '0', '0', '0', '0')" : CmdSet_For_dr()

  1116.     End Sub

  1117.     Friend Sub SQL_電板所得查詢1()

  1118.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, 股東, 紅利 FROM 電板股東紅利設定 WHERE 所得戶 LIKE N'" & 電板股東紅利設定.客戶_tb.Text & "'" : CmdSet_For_DGV()

  1119.     End Sub

  1120.     Friend Sub SQL_電板所得查詢2()

  1121.         ConnOpen_子SQL()

  1122.         SQL1 = "SELECT 所得戶, 股東, 紅利 FROM 電板股東紅利設定 WHERE 所得戶 LIKE N'" & 電板股東紅利設定.客戶_tb.Text & "' AND 股東 LIKE N'" & 電板股東紅利設定.商品_cb.Text & "'"

  1123.         CmdSet_For_dr()

  1124.     End Sub

  1125.     Friend Sub SQL_電板所得查詢3()

  1126.         ConnOpen_子SQL()

  1127.         SQL1 = "SELECT 所得戶, 股東, 紅利 FROM 電板股東紅利設定 

  1128.                 WHERE 所得戶 LIKE N'" & 電板股東紅利設定.客戶_tb.Text & "' AND 股東 LIKE N'" & 電板股東紅利設定.商品_cb.Text & "' AND 紅利 = N'" & 電板股東紅利設定.nud1.Value & "'"

  1129.         CmdSet_For_dr()

  1130.     End Sub

  1131.     Friend Sub SQL_電板所得設定新增()

  1132.         ConnOpen_子SQL()

  1133.         SQL1 = "INSERT INTO 電板股東紅利設定 (所得戶, 股東, 紅利) 

  1134.                 VALUES (N'" & 電板股東紅利設定.客戶_tb.Text & "', N'" & 電板股東紅利設定.商品_cb.Text & "', N'" & 電板股東紅利設定.nud1.Value & "')"

  1135.         CmdSet_For_dr()

  1136.     End Sub

  1137.     Friend Sub SQL_電板所得設定修改()

  1138.         ConnOpen_子SQL()

  1139.         SQL1 = "UPDATE 電板股東紅利設定 SET 股東 = N'" & 電板股東紅利設定.商品_cb.Text & "', 紅利 = N'" & 電板股東紅利設定.nud1.Value & "' 

  1140.                 WHERE 所得戶 LIKE N'" & 電板股東紅利設定.客戶_tb.Text & "' AND 股東 LIKE N'" & 電板股東紅利設定.商品1_tb.Text & "'"

  1141.         CmdSet_For_dr()

  1142.     End Sub

  1143.     Friend Sub SQL_電板所得設定刪除()

  1144.         ConnOpen_子SQL() : SQL1 = "DELETE 電板股東紅利設定 WHERE 所得戶 LIKE N'" & 電板股東紅利設定.客戶_tb.Text & "' AND 股東 LIKE N'" & 電板股東紅利設定.商品_cb.Text & "'" : CmdSet_For_dr()

  1145.     End Sub

  1146.     Friend Sub SQL_電板紙帳查詢()

  1147.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 商品 FROM 電板紙板" : CmdSet_For_DGV()

  1148.     End Sub

  1149.     Friend Sub SQL_電板紙帳查詢1()

  1150.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 商品 FROM 電板紙板 WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "'" : CmdSet_For_DGV()

  1151.     End Sub

  1152.     Friend Sub SQL_電板紙帳查詢3()

  1153.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 商品 FROM 電板紙板 WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 電板紙板帳務設定.商品_tb.Text & "'" : CmdSet_For_dr()

  1154.     End Sub

  1155.     Friend Sub SQL_電板紙帳查詢4()

  1156.         ConnOpen_子SQL()

  1157.         SQL1 = "SELECT 客戶, 商品 FROM 電板紙板 WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "' AND 客戶 LIKE N'" & 電板紙板帳務設定.商品1_tb.Text & "'"

  1158.         CmdSet_For_dr()

  1159.     End Sub

  1160.     Friend Sub SQL_電板紙帳查詢2()

  1161.         ConnOpen_子SQL()

  1162.         SQL1 = "SELECT 客戶, 商品 FROM 電板紙板 

  1163.                 WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 電板紙板帳務設定.商品_tb.Text & "' AND 商品 NOT LIKE N'前期未收'"

  1164.         CmdSet_For_dr()

  1165.     End Sub

  1166.     Friend Sub SQL_電板紙帳新增()

  1167.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 電板紙板 (客戶, 商品) VALUES (N'" & PA43 & "', '前期未收')" : CmdSet_For_dr()

  1168.     End Sub

  1169.     Friend Sub SQL_電板紙帳新增1()

  1170.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 電板紙板 (客戶, 商品) VALUES (N'" & 電板紙板帳務設定.客戶_tb.Text & "', N'" & 電板紙板帳務設定.商品_tb.Text & "')" : CmdSet_For_dr()

  1171.     End Sub

  1172.     Friend Sub SQL_後台紙帳新增1()

  1173.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 後台電板紙板 (客戶, 商品) VALUES (N'" & 後台紙板帳務設定.客戶_tb.Text & "', N'" & 後台紙板帳務設定.商品_tb.Text & "')" : CmdSet_For_dr()

  1174.     End Sub

  1175.     Friend Sub SQL_電板紙帳修改()

  1176.         ConnOpen_子SQL()

  1177.         SQL1 = "UPDATE 電板紙板 SET 商品 = N'" & 電板紙板帳務設定.商品_tb.Text & "' 

  1178.                 WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 電板紙板帳務設定.商品1_tb.Text & "'"

  1179.         CmdSet_For_dr()

  1180.         ConnOpen_子SQL()

  1181.         SQL1 = "UPDATE 電板紙板流水帳 SET 商品 = N'" & 電板紙板帳務設定.商品_tb.Text & "' 

  1182.                 WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 電板紙板帳務設定.商品1_tb.Text & "' AND 開始日期 LIKE N'" & PA49 & "'"

  1183.         CmdSet_For_dr()

  1184.     End Sub

  1185.     Friend Sub SQL_電板紙帳刪除()

  1186.         ConnOpen_子SQL() : SQL1 = "DELETE 電板紙板 WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 電板紙板帳務設定.商品_tb.Text & "'" : CmdSet_For_dr()

  1187.     End Sub

  1188.     Friend Sub SQL_紙帳流水查詢()

  1189.         ConnOpen_子SQL()

  1190.         SQL1 = "SELECT 開始日期, 結束日期, 客戶, 商品, 交收金額 FROM 電板紙板流水帳 

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

  1192.         CmdSet_For_DGV()

  1193.     End Sub

  1194.     Friend Sub SQL_紙帳流水新增()

  1195.         ConnOpen_子SQL()

  1196.         SQL1 = "INSERT INTO 電板紙板流水帳 (開始日期, 結束日期, 客戶, 商品, 交收金額) 

  1197.                 VALUES (N'" & Strings.Left(電板帳務彙總計算表.資料_cb.Text, 10) & "', N'', N'" & PA43 & "', N'" & PA44 & "', '0')"

  1198.         CmdSet_For_dr()

  1199.     End Sub

  1200.     Friend Sub SQL_紙帳流水查詢1()

  1201.         ConnOpen_子SQL()

  1202.         SQL1 = "SELECT 商品, 交收金額 FROM 電板紙板流水帳 

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

  1204.                       (客戶 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "') AND (商品 LIKE '前期未收')"

  1205.         CmdSet_For_DGV()

  1206.     End Sub

  1207.     Friend Sub SQL_紙帳流水查詢2()

  1208.         ConnOpen_子SQL()

  1209.         SQL1 = "SELECT 商品, 交收金額 FROM 電板紙板流水帳 

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

  1211.                       (客戶 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "') AND (商品 NOT LIKE '前期未收')"

  1212.         CmdSet_For_DGV()

  1213.     End Sub

  1214.     Friend Sub SQL_紙帳流水修改()

  1215.         ConnOpen_子SQL()

  1216.         SQL1 = "UPDATE 電板紙板流水帳 SET 交收金額 = N'" & NN8 & "' 

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

  1218.                       (客戶 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "') AND (商品 LIKE N'" & PA8 & "')"

  1219.         CmdSet_For_dr()

  1220.     End Sub

  1221.     Friend Sub SQL_紙帳流水查詢3()

  1222.         ConnOpen_子SQL()

  1223.         SQL1 = "SELECT 客戶, 商品, 交收金額 FROM 電板紙板流水帳 

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

  1225.         CmdSet_For_DGV()

  1226.     End Sub

  1227.     Friend Sub SQL_電板客戶修改()

  1228.         ConnOpen_子SQL()

  1229.         SQL1 = "UPDATE 電板客戶 SET 付反 = N'" & BL1 & "', 收反 = N'" & BL2 & "', 所反 = N'" & BL3 & "', 水反 = N'" & BL4 & "', 紅反 = N'" & BL5 & "' WHERE (客戶 LIKE '" & PA9 & "')"

  1230.         CmdSet_For_dr()

  1231.     End Sub

  1232.     Friend Sub SQL_紅利支出()

  1233.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, 股東, 紅利 AS 股份, 紅利 FROM 電板股東紅利設定 WHERE (所得戶 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')" : CmdSet_For_DGV()

  1234.     End Sub

  1235.     Friend Sub SQL_紅利收入()

  1236.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, 股東, 紅利 AS 股份, 紅利 FROM 電板股東紅利設定 WHERE (股東 LIKE N'" & 電板帳務彙總計算表.客戶_tb.Text & "')" : CmdSet_For_DGV()

  1237.     End Sub

  1238.     Friend Sub SQL_紅利整合()

  1239.         ConnOpen_子SQL() : SQL1 = "SELECT TOP(" & NN9 & ") 開始日期 AS [所得/股東], 開始日期 AS 紅利收支, 開始日期 AS 紅利 FROM 流水帳" : CmdSet_For_DGV()

  1240.     End Sub

  1241.     '--------------------------修正客戶名稱用SQL群---------------------------------------------------------------------------------------------------------------------------------------------------

  1242.     Friend Sub SQL_電板客戶全系統修改()

  1243.         ConnOpen_子SQL() : SQL1 = "UPDATE 下行客戶 SET 客名 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (客名 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1244.         ConnOpen_子SQL() : SQL1 = "UPDATE 下行客戶 SET 所得另算 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (所得另算 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1245.         ConnOpen_子SQL() : SQL1 = "UPDATE 下行客戶 SET 水差另算 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (水差另算 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1246.         ConnOpen_子SQL() : SQL1 = "UPDATE 流水帳 SET 下注明細 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (下注明細 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1247.         ConnOpen_子SQL() : SQL1 = "UPDATE 流水帳 SET 下注明細s = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (下注明細s LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1248.         ConnOpen_子SQL() : SQL1 = "UPDATE 流水帳 SET 查看對帳s = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (查看對帳s LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1249.         ConnOpen_子SQL() : SQL1 = "UPDATE 商客基本資料表 SET 上繳源 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (上繳源 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1250.         ConnOpen_子SQL() : SQL1 = "UPDATE 電板股東紅利設定 SET 所得戶 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (所得戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1251.         ConnOpen_子SQL() : SQL1 = "UPDATE 電板股東紅利設定 SET 股東 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (股東 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1252.         ConnOpen_子SQL() : SQL1 = "UPDATE 電板客戶 SET 客戶 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (客戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1253.         ConnOpen_子SQL() : SQL1 = "UPDATE 電板客戶_所得 SET 所得戶 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (所得戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1254.         ConnOpen_子SQL() : SQL1 = "UPDATE 電板紙板 SET 客戶 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (客戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1255.         ConnOpen_子SQL() : SQL1 = "UPDATE 電板紙板流水帳 SET 客戶 = N'" & 電板客戶名稱編輯器.客戶1_tb.Text & "' WHERE (客戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1256.     End Sub

  1257.     Friend Sub SQL_電板客戶全系統刪除()

  1258.         ConnOpen_子SQL() : SQL1 = "DELETE 電板股東紅利設定 WHERE (所得戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1259.         ConnOpen_子SQL() : SQL1 = "DELETE 電板股東紅利設定 WHERE (股東 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1260.         ConnOpen_子SQL() : SQL1 = "DELETE 電板客戶 WHERE (客戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1261.         ConnOpen_子SQL() : SQL1 = "DELETE 電板客戶_所得 WHERE (所得戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1262.         ConnOpen_子SQL() : SQL1 = "DELETE 電板紙板 WHERE (客戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1263.         ConnOpen_子SQL() : SQL1 = "DELETE 電板紙板流水帳 WHERE (客戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1264.     End Sub

  1265.     Friend Sub SQL_查詢1()

  1266.         ConnOpen_子SQL()

  1267.         SQL1 = "SELECT 客名, 所得另算, 水差另算 FROM 下行客戶 

  1268.                 WHERE (客名 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "') OR (所得另算 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "') OR 

  1269.                       (水差另算 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')"

  1270.         CmdSet_For_DGV()

  1271.     End Sub

  1272.     Friend Sub SQL_查詢2()

  1273.         ConnOpen_子SQL()

  1274.         SQL1 = "SELECT 下注明細, 下注明細s, 查看對帳s FROM 流水帳 

  1275.                 WHERE (下注明細 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "') OR (下注明細s LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "') OR 

  1276.                       (查看對帳s LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')"

  1277.         CmdSet_For_DGV()

  1278.     End Sub

  1279.     Friend Sub SQL_查詢3()

  1280.         ConnOpen_子SQL() : SQL1 = "SELECT 上繳源 FROM 商客基本資料表 WHERE (上繳源 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_DGV()

  1281.     End Sub

  1282.     Friend Sub SQL_查詢5()

  1283.         ConnOpen_子SQL()

  1284.         SQL1 = "SELECT 所得戶, 股東 FROM 電板股東紅利設定 WHERE (所得戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "') OR (股東 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')"

  1285.         CmdSet_For_DGV()

  1286.     End Sub

  1287.     Friend Sub SQL_查詢6()

  1288.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶 FROM 電板客戶 WHERE (客戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_DGV()

  1289.     End Sub

  1290.     Friend Sub SQL_查詢7()

  1291.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶 FROM 電板紙板 WHERE (客戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_DGV()

  1292.     End Sub

  1293.     Friend Sub SQL_查詢8()

  1294.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶 FROM 電板紙板流水帳 WHERE (客戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_DGV()

  1295.     End Sub

  1296.     Friend Sub SQL_查詢9()

  1297.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶 FROM 電板客戶_所得 WHERE (所得戶 LIKE N'" & 電板客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_DGV()

  1298.     End Sub

  1299.     '--------------------------流水帳備用網址修正---------------------------------------------------------------------------------------------------------------------------------------------------

  1300.     Friend Sub SQL_網址修正()

  1301.         ConnOpen_子SQL()

  1302.         SQL1 = "SELECT     流水帳.網址, 商客基本資料表.網址 AS 主網址  FROM  流水帳 INNER JOIN 商客基本資料表 ON 流水帳.網址 = 商客基本資料表.備用網址 AND 流水帳.網址 <> 商客基本資料表.網址

  1303.                 GROUP BY   流水帳.網址, 商客基本資料表.網址"

  1304.         CmdSet_For_DGV()

  1305.     End Sub

  1306.     Friend Sub SQL_網址修正執行()

  1307.         ConnOpen_子SQL() : SQL1 = "UPDATE 流水帳 SET 網址 = N'" & PA2 & "' WHERE (網址 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  1308.     End Sub

  1309.     '--------------------------後台基本資料---------------------------------------------------------------------------------------------------------------------------------------------------

  1310.     Friend Sub SQL_後台商品資料表()

  1311.         ConnOpen_子SQL()

  1312.         SQL1 = "SELECT     後台商品資料表.商品, 後台商品資料表.編號, 後台商品資料表.系統, 後台商品資料表.層級, 後台商品資料表.網址, 後台商品資料表.備用網址, 

  1313.                            後台商客基本資料表.網址 AS 使用

  1314.                 FROM       後台商品資料表 LEFT OUTER JOIN

  1315.                            後台商客基本資料表 ON 後台商品資料表.商品 = 後台商客基本資料表.商品 AND 

  1316.                            後台商品資料表.網址 = 後台商客基本資料表.網址

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

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

  1319.                            後台商客基本資料表.網址, 後台商品資料表.備用網址

  1320.                 ORDER BY   後台商品資料表.商品, 後台商品資料表.層級, 後台商品資料表.編號"

  1321.         CmdSet_For_DGV()

  1322.     End Sub

  1323.     Friend Sub SQL_基本資料_後台客戶下資料表()

  1324.         ConnOpen_子SQL()

  1325.         SQL1 = "SELECT     後台商品資料表.商品, 後台下行客戶.網址, 後台下行客戶.帳號 AS 老闆帳號, 後台下行客戶.客戶下 AS 客戶帳號, 

  1326.                            後台下行客戶.客名 AS 客戶名稱, 後台下行客戶.流水號, 後台下行客戶.基數, 後台下行客戶.基數 AS 階級, 後台下行客戶.計算, 後台下行客戶.同帳,

  1327.                            後台下行客戶.所得, 後台下行客戶.下層, 後台下行客戶.所得另算, 後台下行客戶.水差另算

  1328.                 FROM       後台下行客戶 LEFT OUTER JOIN

  1329.                            後台商品資料表 ON 後台下行客戶.網址 = 後台商品資料表.網址

  1330.                 WHERE      後台下行客戶.客戶下 LIKE N'%" & PA & "%' " & PA9 & "

  1331.                 ORDER BY   後台商品資料表.商品, 老闆帳號"

  1332.         CmdSet_For_DGV()

  1333.     End Sub

  1334.     Friend Sub SQL_後台商客資料表2()

  1335.         ConnOpen_子SQL()

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

  1337.                           後台商客基本資料表.上繳源, 後台商客基本資料表.商品, 後台商客基本資料表.上行基數, 

  1338.                           後台商客基本資料表.下行基數, QQ.網址 AS 下線, 後台商客基本資料表.驗證, 後台商客基本資料表.備用網址

  1339.                 FROM      後台商客基本資料表 LEFT OUTER JOIN

  1340.                          (SELECT      網址, 帳號

  1341.                           FROM        下行客戶

  1342.                           WHERE      (客名 NOT LIKE '')

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

  1344.                           後台商客基本資料表.網址 = QQ.網址

  1345.                 WHERE    (後台商客基本資料表.網址 LIKE N'%" & PA1 & "%') AND (後台商客基本資料表.上一層 LIKE N'0')

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

  1347.         CmdSet_For_DGV()

  1348.     End Sub

  1349.     Friend Sub SQL_後台商客資料表3()

  1350.         ConnOpen_子SQL()

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

  1352.                           後台商客基本資料表.上繳源, 後台商客基本資料表.商品, 後台商客基本資料表.上行基數, 

  1353.                           後台商客基本資料表.下行基數, QQ.網址 AS 下線, 後台商客基本資料表.驗證, 後台商客基本資料表.備用網址

  1354.                 FROM      後台商客基本資料表 LEFT OUTER JOIN

  1355.                          (SELECT      網址, 帳號

  1356.                           FROM        下行客戶

  1357.                           WHERE      (客名 NOT LIKE '')

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

  1359.                           後台商客基本資料表.網址 = QQ.網址

  1360.                 WHERE    (後台商客基本資料表.網址 LIKE N'%" & 網址01 & "%') AND (後台商客基本資料表.主帳號 LIKE N'%" & 主帳號01 & "%') AND (後台商客基本資料表.上一層 LIKE N'1')

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

  1362.         CmdSet_For_DGV()

  1363.     End Sub

  1364.     Friend Sub SQL_後台LOG查詢5()

  1365.         ConnOpen_子SQL()

  1366.         SQL1 = "SELECT  [LOG].[index] AS 項次, [LOG].查詢區間, 後台商品資料表.商品, [LOG].帳號, [LOG].網址, [LOG].狀態, [LOG].查詢時間

  1367.                 FROM    [LOG] LEFT OUTER JOIN

  1368.                         後台商品資料表 ON [LOG].網址 = 後台商品資料表.網址 

  1369.                 WHERE   [LOG].狀態 LIKE N'查詢期間無資料'"

  1370.         CmdSet_For_DGV()

  1371.     End Sub

  1372.     Friend Sub SQL_後台LOG查詢6()

  1373.         ConnOpen_子SQL()

  1374.         SQL1 = "SELECT  [LOG].[index] AS 項次, [LOG].查詢區間, 後台商品資料表.商品, [LOG].帳號, [LOG].網址, [LOG].狀態, [LOG].查詢時間

  1375.                 FROM    [LOG] LEFT OUTER JOIN

  1376.                         後台商品資料表 ON [LOG].網址 = 後台商品資料表.網址 

  1377.                 WHERE   [LOG].狀態 LIKE N'無法取得資料'"

  1378.         CmdSet_For_DGV()

  1379.     End Sub

  1380.     Friend Sub SQL_系統編碼規則_後台客戶下無帳號刪除()

  1381.         ConnOpen_子SQL() : SQL1 = "DELETE 後台下行客戶 WHERE (客戶下 LIKE '')" : CmdSet_For_dr()

  1382.     End Sub

  1383.     Friend Sub SQL_後台流水帳上繳()

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

  1385.     End Sub

  1386.     Friend Sub SQL_後台流水帳下收()

  1387.         ConnOpen_子SQL() : SQL1 = "SELECT 客名 FROM 後台下行客戶 GROUP BY 客名 ORDER BY 客名" : CmdSet_For_dr()

  1388.     End Sub

  1389.     Friend Sub SQL_後台流水帳所得()

  1390.         ConnOpen_子SQL() : SQL1 = "SELECT 所得另算 FROM 後台下行客戶 GROUP BY 所得另算 ORDER BY 所得另算" : CmdSet_For_dr()

  1391.     End Sub

  1392.     Friend Sub SQL_後台流水帳水差()

  1393.         ConnOpen_子SQL() : SQL1 = "SELECT 水差另算 FROM 後台下行客戶 GROUP BY 水差另算 ORDER BY 水差另算" : CmdSet_For_dr()

  1394.     End Sub

  1395.     Friend Sub SQL_後台客戶下層全部關閉()

  1396.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台下行客戶 SET 下層 = '0'" : CmdSet_For_dr()

  1397.     End Sub

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

  1399.         ConnOpen_子SQL()

  1400.         SQL1 = "SELECT 客戶下 FROM 後台下行客戶 

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

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

  1403.         CmdSet_For_dr()

  1404.     End Sub

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

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

  1407.     End Sub

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

  1409.         ConnOpen_子SQL()

  1410.         SQL1 = "INSERT INTO 後台下行客戶 (客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得, 所得另算, 下層, 水差另算) 

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

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

  1413.                          '" & 後台基本資料.上下同帳_ch.Checked & "', '" & 後台基本資料.所得計算_ch.Checked & "',  '" & 後台基本資料.客戶名稱_cb.Text & "', 

  1414.                          '" & 後台基本資料.下層帳號_ch.Checked & "',  '" & 後台基本資料.水差_cb.Text & "')"

  1415.         CmdSet_For_dr()

  1416.     End Sub

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

  1418.         ConnOpen_子SQL()

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

  1420.                                     計算 = '" & BL1 & "', 同帳 = '" & BL2 & "', 所得 = '" & BL3 & "', 所得另算 = N'" & PA5 & "', 下層 = '" & BL4 & "', 

  1421.                                     水差另算 = N'" & PA7 & "'

  1422.                 WHERE  流水號 LIKE N'" & PA6 & "'"

  1423.         CmdSet_For_dr()

  1424.     End Sub

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

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

  1427.     End Sub

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

  1429.         ConnOpen_子SQL()

  1430.         SQL1 = "UPDATE 後台下行客戶 SET 計算 = '" & BL1 & "', 同帳 = '" & BL2 & "', 所得 = '" & BL3 & "', 所得另算 = N'" & PA1 & "', 

  1431.                                     基數 = N'" & PA2 & "', 客名 = N'" & PA3 & "', 水差另算 = N'" & PA4 & "' 

  1432.                 WHERE  流水號 LIKE N'" & PA & "'"

  1433.         CmdSet_For_dr()

  1434.     End Sub

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

  1436.         ConnOpen_子SQL()

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

  1438.                 WHERE (帳號 LIKE N'" & 後台基本資料.帳號_tb.Text & "' AND  網址 LIKE N'" & 後台基本資料.網址_tb.Text & "' AND 

  1439.                        商品 LIKE N'" & 後台基本資料.商品_cb.Text & "')"

  1440.         CmdSet_For_dr()

  1441.     End Sub

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

  1443.         ConnOpen_子SQL()

  1444.         SQL1 = "INSERT INTO 後台商客基本資料表 (網址, 帳號, 密碼, 資料, 上繳源, 商品, 上行基數, 下行基數, 下一層, 上一層, 備用網址, 主帳號) 

  1445.                                     VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', 

  1446.                                             N'" & PA8 & "', '1', '0', N'" & PA12 & "',N'" & PA2 & "')"

  1447.         CmdSet_For_dr()

  1448.     End Sub

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

  1450.         ConnOpen_子SQL()

  1451.         SQL1 = "UPDATE 後台商客基本資料表 SET 網址 = N'" & PA2 & "', 上繳源 = N'" & PA3 & "', 資料 = N'" & PA8 & "', 商品 = N'" & PA9 & "', 備用網址 = N'" & PA12 & "',

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

  1453.                                           主帳號 = N'" & PA4 & "'

  1454.                                   WHERE (帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "')"

  1455.         CmdSet_For_dr()

  1456.         ConnOpen_子SQL()

  1457.         SQL1 = "UPDATE 後台商客基本資料表 SET 網址 = N'" & PA2 & "', 商品 = N'" & PA9 & "', 備用網址 = N'" & PA12 & "', 驗證 = N'          ', 

  1458.                                           主帳號 = N'" & PA4 & "'

  1459.                                   WHERE (主帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "')"

  1460.         CmdSet_For_dr()

  1461.     End Sub

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

  1463.         ConnOpen_子SQL()

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

  1465.         CmdSet_For_dr()

  1466.     End Sub

  1467.     Friend Sub SQL_後台商客清單讀取1()

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

  1469.     End Sub

  1470.     Friend Sub SQL_後台商品網址讀取()

  1471.         ConnOpen_子SQL() : SQL1 = "SELECT 網址, 備用網址, 商品 FROM 後台商品資料表 WHERE 編號 LIKE N'" & Strings.Left(PA41, 4) & "'" : CmdSet_For_dr()

  1472.     End Sub

  1473.     Friend Sub SQL_後台商品流水號查詢()

  1474.         ConnOpen_子SQL() : SQL1 = "SELECT 編號 FROM 後台商品資料表 WHERE (系統 LIKE N'" & PA17 & "') ORDER BY 編號 DESC" : CmdSet_For_dr()

  1475.     End Sub

  1476.     Friend Sub SQL_後台商品寫入驗證1()

  1477.         ConnOpen_子SQL() : SQL1 = "SELECT 編號 FROM 後台商品資料表 WHERE 編號 LIKE N'" & 後台基本資料.編號_tb.Text & "'" : CmdSet_For_dr()

  1478.     End Sub

  1479.     Friend Sub SQL_後台商品寫入驗證2()

  1480.         ConnOpen_子SQL() : SQL1 = "SELECT 網址 FROM 後台商品資料表 WHERE 網址 LIKE N'" & 後台基本資料.網址2_tb.Text & "'" : CmdSet_For_dr()

  1481.     End Sub

  1482.     Friend Sub SQL_後台商品寫入()

  1483.         ConnOpen_子SQL()

  1484.         SQL1 = "INSERT INTO 後台商品資料表 (商品, 編號, 系統, 層級, 網址, 備用網址) 

  1485.                 VALUES (N'" & 後台基本資料.商品_tb.Text & "', N'" & 後台基本資料.編號_tb.Text & "', N'" & 後台基本資料.系統_cb.Text & "', N'" & 後台基本資料.層級_cb.Text & "', 

  1486.                         N'" & 後台基本資料.網址2_tb.Text & "', N'" & 後台基本資料.備用網址_tb.Text & "')"

  1487.         CmdSet_For_dr()

  1488.     End Sub

  1489.     Friend Sub SQL_後台商品修改()

  1490.         ConnOpen_子SQL()

  1491.         SQL1 = "UPDATE 後台商品資料表 SET 系統 = N'" & 後台基本資料.系統_cb.Text & "', 層級 = N'" & 後台基本資料.層級_cb.Text & "', 備用網址 = N'" & 後台基本資料.備用網址_tb.Text & "', 

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

  1493.                 WHERE  編號 LIKE N'" & 後台基本資料.編號_tb.Text & "'"

  1494.         CmdSet_For_dr()

  1495.     End Sub

  1496.     Friend Sub SQL_後台同步修正網址1()

  1497.         ConnOpen_子SQL() : SQL1 = "UPDATE [LOG] SET 網址 = N'" & 後台基本資料.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 後台基本資料.網址4_tb.Text & "'" : CmdSet_For_dr()

  1498.     End Sub

  1499.     Friend Sub SQL_後台同步修正網址2()

  1500.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台下行客戶 SET 網址 = N'" & 後台基本資料.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 後台基本資料.網址4_tb.Text & "'" : CmdSet_For_dr()

  1501.     End Sub

  1502.     Friend Sub SQL_後台同步修正網址3()

  1503.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台流水帳 SET 網址 = N'" & 後台基本資料.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 後台基本資料.網址4_tb.Text & "'" : CmdSet_For_dr()

  1504.     End Sub

  1505.     Friend Sub SQL_後台同步修正網址4()

  1506.         ConnOpen_子SQL()

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

  1508.                                           備用網址 = N'" & 後台基本資料.備用網址_tb.Text & "'

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

  1510.         CmdSet_For_dr()

  1511.     End Sub

  1512.     Friend Sub SQL_後台商品刪除()

  1513.         ConnOpen_子SQL() : SQL1 = "DELETE 後台商品資料表 WHERE  商品  LIKE N'" & 後台基本資料.商品_tb.Text & "' AND 編號 LIKE N'" & 後台基本資料.編號_tb.Text & "'" : CmdSet_For_dr()

  1514.     End Sub

  1515.     Friend Sub SQL_後台下收客戶依帳號刪除()

  1516.         ConnOpen_子SQL() : SQL1 = "DELETE 後台下行客戶 WHERE 網址 LIKE N'" & 後台基本資料.網址4_tb.Text & "' AND 帳號 LIKE N'" & 後台基本資料.帳號3_tb.Text & "'" : CmdSet_For_dr()

  1517.     End Sub

  1518.     Friend Sub SQL_系統編碼規則_後台商客重複查詢_指定帳號()

  1519.         ConnOpen_子SQL()

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

  1521.                 WHERE (帳號 LIKE N'" & 後台基本資料.帳號0_tb.Text & "' AND  網址 LIKE N'" & 後台基本資料.網址_tb.Text & "' AND 

  1522.                        商品 LIKE N'" & 後台基本資料.商品_cb.Text & "')"

  1523.         CmdSet_For_dr()

  1524.     End Sub

  1525.     Friend Sub SQL_系統編碼規則_後台商客新增_指定帳號()

  1526.         ConnOpen_子SQL()

  1527.         SQL1 = "INSERT INTO 後台客基本資料表 (網址, 帳號, 密碼, 資料, 上繳源, 商品, 上行基數, 下行基數, 下一層, 上一層, 備用網址, 主帳號) 

  1528.                                     VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', 

  1529.                                             N'" & PA8 & "', '1', '1', N'" & PA12 & "',N'" & 主帳號01 & "')"

  1530.         CmdSet_For_dr()

  1531.     End Sub

  1532.     Friend Sub SQL_系統編碼規則_後台商客修改_特定帳號()

  1533.         ConnOpen_子SQL()

  1534.         SQL1 = "UPDATE 後台商客基本資料表 SET 網址 = N'" & PA2 & "', 上繳源 = N'" & PA3 & "', 資料 = N'" & PA8 & "', 商品 = N'" & PA9 & "', 備用網址 = N'" & PA12 & "',

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

  1536.                 WHERE (帳號 LIKE N'" & PA10 & "' AND  網址 LIKE N'" & PA11 & "' AND 主帳號 LIKE N'" & PA13 & "')"

  1537.         CmdSet_For_dr()

  1538.     End Sub

  1539.     Friend Sub SQL_系統編碼規則_後台商客刪除_特定帳號()

  1540.         ConnOpen_子SQL() : SQL1 = "DELETE FROM 後台商客基本資料表 WHERE (帳號 LIKE N'" & 後台基本資料.帳號0_tb.Text & "' AND  網址 LIKE N'" & 後台基本資料.網址_tb.Text & "')" : CmdSet_For_dr()

  1541.     End Sub

  1542.     Friend Sub SQL_後台下拉商品清單讀取1()

  1543.         ConnOpen_子SQL() : SQL1 = "SELECT 商品 FROM 後台商品資料表 GROUP BY 商品 ORDER BY 商品" : CmdSet_For_dr()

  1544.     End Sub

  1545.     Friend Sub SQL_後台下拉商品清單讀取()

  1546.         ConnOpen_子SQL() : SQL1 = "SELECT 編號, 商品, 層級 FROM 後台商品資料表 WHERE 系統 LIKE N'" & PA42 & "'  ORDER BY 商品, 層級, 編號" : CmdSet_For_dr()

  1547.     End Sub

  1548.     Friend Sub SQL_後台商品讀取()

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

  1550.     End Sub

  1551. 

  1552.     '--------------------------後台客戶名稱編輯器---------------------------------------------------------------------------------------------------------------------------------------------------

  1553.     Friend Sub SQL_後台電板客戶查詢1()

  1554.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶 AS 項次, 客戶 FROM 後台電板客戶 WHERE 客戶 NOT LIKE '.無資料' ORDER BY 客戶" : CmdSet_For_DGV()

  1555.     End Sub

  1556.     Friend Sub SQL_後台查詢1()

  1557.         ConnOpen_子SQL()

  1558.         SQL1 = "SELECT 客名, 所得另算, 水差另算 FROM 後台下行客戶 

  1559.                 WHERE (客名 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "') OR (所得另算 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "') OR 

  1560.                       (水差另算 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')"

  1561.         CmdSet_For_DGV()

  1562.     End Sub

  1563.     Friend Sub SQL_後台查詢2()

  1564.         ConnOpen_子SQL()

  1565.         SQL1 = "SELECT 下注明細, 下注明細s, 查看對帳s FROM 後台流水帳 

  1566.                 WHERE (下注明細 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "') OR (下注明細s LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "') OR 

  1567.                       (查看對帳s LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')"

  1568.         CmdSet_For_DGV()

  1569.     End Sub

  1570.     Friend Sub SQL_後台查詢3()

  1571.         ConnOpen_子SQL() : SQL1 = "SELECT 上繳源 FROM 後台商客基本資料表 WHERE (上繳源 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_DGV()

  1572.     End Sub

  1573.     Friend Sub SQL_後台查詢5()

  1574.         ConnOpen_子SQL()

  1575.         SQL1 = "SELECT 所得戶, 股東 FROM 後台電板股東紅利設定 WHERE (所得戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "') OR (股東 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')"

  1576.         CmdSet_For_DGV()

  1577.     End Sub

  1578.     Friend Sub SQL_後台查詢6()

  1579.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶 FROM 後台電板客戶 WHERE (客戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_DGV()

  1580.     End Sub

  1581.     Friend Sub SQL_後台查詢7()

  1582.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶 FROM 後台電板紙板 WHERE (客戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_DGV()

  1583.     End Sub

  1584.     Friend Sub SQL_後台查詢8()

  1585.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶 FROM 後台電板紙板流水帳 WHERE (客戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_DGV()

  1586.     End Sub

  1587.     Friend Sub SQL_後台查詢9()

  1588.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶 FROM 後台電板客戶_所得 WHERE (所得戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_DGV()

  1589.     End Sub

  1590.     Friend Sub SQL_後台電板客戶查詢2()

  1591.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶 AS 項次, 客戶 FROM 後台電板客戶 WHERE 客戶 LIKE '" & 後台客戶名稱編輯器.客戶1_tb.Text & "' ORDER BY 客戶" : CmdSet_For_dr()

  1592.     End Sub

  1593.     Friend Sub SQL_後台電板客戶全系統修改()

  1594.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台下行客戶 SET 客名 = N'" & 後台客戶名稱編輯器.客戶1_tb.Text & "' WHERE (客名 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1595.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台下行客戶 SET 所得另算 = N'" & 後台客戶名稱編輯器.客戶1_tb.Text & "' WHERE (所得另算 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1596.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台下行客戶 SET 水差另算 = N'" & 後台客戶名稱編輯器.客戶1_tb.Text & "' WHERE (水差另算 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1597.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台流水帳 SET 下注明細 = N'" & 後台客戶名稱編輯器.客戶1_tb.Text & "' WHERE (下注明細 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1598.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台流水帳 SET 下注明細s = N'" & 後台客戶名稱編輯器.客戶1_tb.Text & "' WHERE (下注明細s LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1599.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台流水帳 SET 查看對帳s = N'" & 後台客戶名稱編輯器.客戶1_tb.Text & "' WHERE (查看對帳s LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1600.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台商客基本資料表 SET 上繳源 = N'" & 後台客戶名稱編輯器.客戶1_tb.Text & "' WHERE (上繳源 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1601.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台電板股東紅利設定 SET 所得戶 = N'" & 後台客戶名稱編輯器.客戶1_tb.Text & "' WHERE (所得戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1602.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台電板股東紅利設定 SET 股東 = N'" & 後台客戶名稱編輯器.客戶1_tb.Text & "' WHERE (股東 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1603.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台電板客戶 SET 客戶 = N'" & 後台客戶名稱編輯器.客戶1_tb.Text & "' WHERE (客戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1604.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台電板客戶_所得 SET 所得戶 = N'" & 後台客戶名稱編輯器.客戶1_tb.Text & "' WHERE (所得戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1605.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台電板紙板 SET 客戶 = N'" & 後台客戶名稱編輯器.客戶1_tb.Text & "' WHERE (客戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1606.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台電板紙板流水帳 SET 客戶 = N'" & 後台客戶名稱編輯器.客戶1_tb.Text & "' WHERE (客戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1607.     End Sub

  1608.     Friend Sub SQL_後台電板客戶全系統刪除()

  1609.         ConnOpen_子SQL() : SQL1 = "DELETE 後台電板股東紅利設定 WHERE (所得戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1610.         ConnOpen_子SQL() : SQL1 = "DELETE 後台電板股東紅利設定 WHERE (股東 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1611.         ConnOpen_子SQL() : SQL1 = "DELETE 後台電板客戶 WHERE (客戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1612.         ConnOpen_子SQL() : SQL1 = "DELETE 後台電板客戶_所得 WHERE (所得戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1613.         ConnOpen_子SQL() : SQL1 = "DELETE 後台電板紙板 WHERE (客戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1614.         ConnOpen_子SQL() : SQL1 = "DELETE 後台電板紙板流水帳 WHERE (客戶 LIKE N'" & 後台客戶名稱編輯器.客戶_tb.Text & "')" : CmdSet_For_dr()

  1615.     End Sub

  1616.     '--------------------------後台客戶名稱編輯器---------------------------------------------------------------------------------------------------------------------------------------------------

  1617.     Friend Sub SQL_後台手工客戶查詢1()

  1618.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶 AS 項次, 所得戶 AS 客戶 FROM 後台電板股東紅利設定 WHERE (股東 LIKE '') ORDER BY 所得戶" : CmdSet_For_DGV()

  1619.     End Sub

  1620.     Friend Sub SQL_後台手工客戶修改1()

  1621.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台電板股東紅利設定 SET 所得戶 = N'" & PA1 & "' WHERE (所得戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1622.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台電板客戶 SET 客戶 = N'" & PA1 & "' WHERE (客戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1623.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台電板紙板 SET 客戶 = N'" & PA1 & "' WHERE (客戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1624.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台電板紙板流水帳 SET 客戶 = N'" & PA1 & "' WHERE (客戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1625.     End Sub

  1626.     Friend Sub SQL_後台手工客戶查詢2()

  1627.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶 FROM 後台電板股東紅利設定 WHERE (所得戶 LIKE '" & PA1 & "') ORDER BY 所得戶" : CmdSet_For_dr()

  1628.     End Sub

  1629.     Friend Sub SQL_後台手工客戶刪除1()

  1630.         ConnOpen_子SQL() : SQL1 = "DELETE 後台電板股東紅利設定 WHERE (所得戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1631.         ConnOpen_子SQL() : SQL1 = "DELETE 後台電板客戶 WHERE (客戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1632.         ConnOpen_子SQL() : SQL1 = "DELETE 後台電板紙板 WHERE (客戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1633.         ConnOpen_子SQL() : SQL1 = "DELETE 後台電板紙板流水帳 WHERE (客戶 LIKE '" & PA & "')" : CmdSet_For_dr()

  1634.     End Sub

  1635.     Friend Sub SQL_後台手工客戶新增()

  1636.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 後台電板股東紅利設定 (所得戶, 股東, 紅利) VALUES (N'" & PA1 & "', '', '10')" : CmdSet_For_dr()

  1637.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 後台電板客戶 (客戶, 付反, 收反, 所反, 水反, 紅反) VALUES (N'" & PA1 & "', '0', '0', '0', '0', '0')" : CmdSet_For_dr()

  1638.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 後台電板紙板 (客戶, 商品) VALUES (N'" & PA1 & "', '前期未收')" : CmdSet_For_dr()

  1639.     End Sub

  1640.     '--------------------------後台紙板帳務設定---------------------------------------------------------------------------------------------------------------------------------------------------

  1641.     Friend Sub SQL_後台電板客戶查詢()

  1642.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 付反, 收反, 所反, 水反, 紅反 FROM 後台電板客戶 WHERE 客戶 NOT LIKE '.無資料' ORDER BY 客戶" : CmdSet_For_DGV()

  1643.     End Sub

  1644.     Friend Sub SQL_後台電板紙帳查詢1()

  1645.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 商品 FROM 後台電板紙板 WHERE 客戶 LIKE N'" & 後台紙板帳務設定.客戶_tb.Text & "'" : CmdSet_For_DGV()

  1646.     End Sub

  1647.     Friend Sub SQL_後台電板紙帳查詢2()

  1648.         ConnOpen_子SQL()

  1649.         SQL1 = "SELECT 客戶, 商品 FROM 後台電板紙板 

  1650.                 WHERE 客戶 LIKE N'" & 後台紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 後台紙板帳務設定.商品_tb.Text & "' AND 商品 NOT LIKE N'前期未收'"

  1651.         CmdSet_For_dr()

  1652.     End Sub

  1653.     Friend Sub SQL_後台電板紙帳查詢3()

  1654.         ConnOpen_子SQL()

  1655.         SQL1 = "SELECT 客戶, 商品 FROM 後台電板紙板 WHERE 客戶 LIKE N'" & 後台紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 後台紙板帳務設定.商品_tb.Text & "'"

  1656.         CmdSet_For_dr()

  1657.     End Sub

  1658.     Friend Sub SQL_後台電板紙帳查詢4()

  1659.         ConnOpen_子SQL()

  1660.         SQL1 = "SELECT 客戶, 商品 FROM 後台電板紙板 WHERE 客戶 LIKE N'" & 後台紙板帳務設定.客戶_tb.Text & "' AND 客戶 LIKE N'" & 後台紙板帳務設定.商品1_tb.Text & "'"

  1661.         CmdSet_For_dr()

  1662.     End Sub

  1663.     Friend Sub SQL_後台電板紙帳修改()

  1664.         ConnOpen_子SQL()

  1665.         SQL1 = "UPDATE 後台電板紙板 SET 商品 = N'" & 後台紙板帳務設定.商品_tb.Text & "' 

  1666.                 WHERE 客戶 LIKE N'" & 後台紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 後台紙板帳務設定.商品1_tb.Text & "'"

  1667.         CmdSet_For_dr()

  1668.         ConnOpen_子SQL()

  1669.         SQL1 = "UPDATE 後台紙板流水帳 SET 商品 = N'" & 後台紙板帳務設定.商品_tb.Text & "' 

  1670.                 WHERE 客戶 LIKE N'" & 後台紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 後台紙板帳務設定.商品1_tb.Text & "' AND 開始日期 LIKE N'" & PA49 & "'"

  1671.         CmdSet_For_dr()

  1672.     End Sub

  1673.     Friend Sub SQL_後台電板紙帳刪除()

  1674.         ConnOpen_子SQL() : SQL1 = "DELETE 後台電板紙板 WHERE 客戶 LIKE N'" & 後台紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 後台紙板帳務設定.商品_tb.Text & "'" : CmdSet_For_dr()

  1675.     End Sub

  1676.     '--------------------------後台股東紅利設定---------------------------------------------------------------------------------------------------------------------------------------------------

  1677.     Friend Sub SQL_後台電板所得查詢()

  1678.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶 FROM 後台電板客戶_所得" : CmdSet_For_DGV()

  1679.     End Sub

  1680.     Friend Sub SQL_後台電板所得查詢1()

  1681.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, 股東, 紅利 FROM 後台電板股東紅利設定 WHERE 所得戶 LIKE N'" & 後台股東紅利設定.客戶_tb.Text & "'" : CmdSet_For_DGV()

  1682.     End Sub

  1683.     Friend Sub SQL_後台電板客戶下拉清單()

  1684.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶 FROM 後台電板客戶 WHERE 客戶 NOT LIKE '.無資料' ORDER BY 客戶" : CmdSet_For_dr()

  1685.     End Sub

  1686.     Friend Sub SQL_後台電板所得查詢2()

  1687.         ConnOpen_子SQL()

  1688.         SQL1 = "SELECT 所得戶, 股東, 紅利 FROM 電板股東紅利設定 WHERE 所得戶 LIKE N'" & 後台股東紅利設定.客戶_tb.Text & "' AND 股東 LIKE N'" & 後台股東紅利設定.商品_cb.Text & "'"

  1689.         CmdSet_For_dr()

  1690.     End Sub

  1691.     Friend Sub SQL_後台電板所得設定新增()

  1692.         ConnOpen_子SQL()

  1693.         SQL1 = "INSERT INTO 後台電板股東紅利設定 (所得戶, 股東, 紅利) 

  1694.                 VALUES (N'" & 後台股東紅利設定.客戶_tb.Text & "', N'" & 後台股東紅利設定.商品_cb.Text & "', N'" & 後台股東紅利設定.nud1.Value & "')"

  1695.         CmdSet_For_dr()

  1696.     End Sub

  1697.     Friend Sub SQL_後台電板所得查詢3()

  1698.         ConnOpen_子SQL()

  1699.         SQL1 = "SELECT 所得戶, 股東, 紅利 FROM 後台電板股東紅利設定 

  1700.                 WHERE 所得戶 LIKE N'" & 後台股東紅利設定.客戶_tb.Text & "' AND 股東 LIKE N'" & 後台股東紅利設定.商品_cb.Text & "' AND 紅利 = N'" & 後台股東紅利設定.nud1.Value & "'"

  1701.         CmdSet_For_dr()

  1702.     End Sub

  1703.     Friend Sub SQL_後台電板所得設定修改()

  1704.         ConnOpen_子SQL()

  1705.         SQL1 = "UPDATE 後台電板股東紅利設定 SET 股東 = N'" & 後台股東紅利設定.商品_cb.Text & "', 紅利 = N'" & 後台股東紅利設定.nud1.Value & "' 

  1706.                 WHERE 所得戶 LIKE N'" & 後台股東紅利設定.客戶_tb.Text & "' AND 股東 LIKE N'" & 後台股東紅利設定.商品1_tb.Text & "'"

  1707.         CmdSet_For_dr()

  1708.     End Sub

  1709.     Friend Sub SQL_後台電板所得設定刪除()

  1710.         ConnOpen_子SQL() : SQL1 = "DELETE 後台電板股東紅利設定 WHERE 所得戶 LIKE N'" & 後台股東紅利設定.客戶_tb.Text & "' AND 股東 LIKE N'" & 後台股東紅利設定.商品_cb.Text & "'" : CmdSet_For_dr()

  1711.     End Sub

  1712.     '--------------------------後台帳務明細查詢表---------------------------------------------------------------------------------------------------------------------------------------------------

  1713.     Friend Sub SQL_後台彙總_查詢()

  1714.         ConnOpen_子SQL()

  1715.         SQL1 = "SELECT TOP(1) 開始日期 FROM 後台彙總存檔 WHERE 週日月 LIKE '" & PA15 & "' AND 開始日期 LIKE '" & PA16 & "' AND 結束日期 LIKE '" & PA17 & "'"

  1716.         CmdSet_For_dr()

  1717.     End Sub

  1718.     Friend Sub SQL_後台彙總_新增()

  1719.         ConnOpen_子SQL()

  1720.         SQL1 = "INSERT INTO 後台彙總存檔 (網址, 排序, 帳號, 項次, 商品, 系統, 虛量, 實量, 退水, 中獎, 輸贏, 貢獻額, 大總監, 移轉, 週日月, 開始日期, 結束日期, 調退實佔) 

  1721.                 VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', 

  1722.                         N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA15 & "', N'" & PA16 & "', N'" & PA17 & "', N'" & PA18 & "')"

  1723.         CmdSet_For_dr()

  1724.     End Sub

  1725.     Friend Sub SQL_後台彙總清除()

  1726.         ConnOpen_子SQL() : SQL1 = "DELETE 後台彙總存檔 WHERE 週日月 LIKE '" & PA15 & "' AND 開始日期 LIKE '" & PA16 & "' AND 結束日期 LIKE '" & PA17 & "'" : CmdSet_For_dr()

  1727.     End Sub

  1728.     Friend Sub SQL_後台365外補清單()

  1729.         ConnOpen_子SQL()

  1730.         SQL1 = "SELECT  後台外埔報表.網址, 後台商客基本資料表.商品, 後台外埔報表.帳戶, 後台外埔報表.總量, 後台外埔報表.退水, 後台外埔報表.中獎, 後台外埔報表.小計

  1731.                 FROM    後台外埔報表 INNER JOIN 後台商客基本資料表 ON 後台外埔報表.網址 = 後台商客基本資料表.網址

  1732.                 WHERE  (後台外埔報表.開始日期 LIKE '" & Strings.Left(後台帳務明細查詢表.資料_cb.Text, 10) & "') AND 

  1733.                        (後台外埔報表.結束日期 LIKE '" & Strings.Right(後台帳務明細查詢表.資料_cb.Text, 10) & "') AND 

  1734.                        (後台外埔報表.周日月 LIKE '" & 天周月 & "')

  1735.                 ORDER BY 後台商客基本資料表.商品, 後台外埔報表.帳戶"

  1736.         CmdSet_For_DGV()

  1737.     End Sub

  1738.     Friend Sub SQL_後台明細表日期清單()

  1739.         ConnOpen_子SQL()

  1740.         SQL1 = "SELECT 開始日期 AS 資料, 開始日期, 結束日期 FROM 後台彙總存檔 WHERE (週日月 Like '" & 天周月 & "') GROUP BY 開始日期, 結束日期 ORDER BY 開始日期 DESC"

  1741.         CmdSet_For_DGV()

  1742.     End Sub

  1743.     Friend Sub SQL_後台網址修正()

  1744.         ConnOpen_子SQL()

  1745.         SQL1 = "SELECT   後台流水帳.網址, 後台商客基本資料表.網址 AS 主網址  FROM  後台流水帳 INNER JOIN 

  1746.                          後台商客基本資料表 ON 後台流水帳.網址 = 後台商客基本資料表.備用網址 AND 後台流水帳.網址 <> 後台商客基本資料表.網址

  1747.                 GROUP BY 後台流水帳.網址, 後台商客基本資料表.網址"

  1748.         CmdSet_For_DGV()

  1749.     End Sub

  1750.     Friend Sub SQL_後台所得另算表()

  1751.         ConnOpen_子SQL()

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

  1753.                 FROM       流水帳 LEFT OUTER JOIN

  1754.                            後台商客基本資料表 ON 流水帳.帳戶 = 後台商客基本資料表.帳號 AND 後台流水帳.網址 = 後台商客基本資料表.網址

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

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

  1757.                 GROUP BY   後台商客基本資料表.商品

  1758.                 ORDER BY   後台商客基本資料表.商品"

  1759.         CmdSet_For_DGV()

  1760.     End Sub

  1761.     Friend Sub SQL_後台所得另算表1()

  1762.         ConnOpen_子SQL() : SQL1 = "SELECT TOP(" & PA17 & ") 下注明細s AS 商品, 下注明細s AS 所得 FROM 後台流水帳" : CmdSet_For_DGV()

  1763.     End Sub

  1764.     Friend Sub SQL_後台網址修正執行()

  1765.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台流水帳 SET 網址 = N'" & PA2 & "' WHERE (網址 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  1766.     End Sub

  1767.     Friend Sub SQL_後台彙總查詢6()

  1768.         ConnOpen_子SQL()

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

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

  1771.                             後台商客基本資料表.網址 AS 狀態, 後台商客基本資料表.密碼, 後台商客基本資料表.驗證, 後台商客基本資料表.下一層, 後台商客基本資料表.上一層, 

  1772.                             後台商客基本資料表.備用網址, 後台商客基本資料表.主帳號

  1773.                 FROM        後台流水帳 FULL OUTER JOIN

  1774.                             後台商客基本資料表 ON (後台流水帳.網址 = 後台商客基本資料表.網址 OR

  1775.                             後台流水帳.網址 = 後台商客基本資料表.備用網址) AND 後台流水帳.帳戶 = 後台商客基本資料表.帳號

  1776.                 WHERE       後台商客基本資料表.商品 IS NOT NULL AND 後台商客基本資料表.商品 NOT LIKE '' AND 

  1777.                             後台商客基本資料表.商品 LIKE '" & PA1 & "' AND 後台商客基本資料表.上繳源 LIKE '" & PA2 & "'

  1778.                 GROUP BY    後台商客基本資料表.商品, 後台商客基本資料表.上繳源, 後台商客基本資料表.網址, 後台商客基本資料表.帳號, 後台商客基本資料表.密碼, 後台商客基本資料表.驗證, 

  1779.                             後台商客基本資料表.下一層, 後台商客基本資料表.上一層, 後台商客基本資料表.備用網址, 後台商客基本資料表.主帳號

  1780.                 ORDER BY    後台商客基本資料表.商品"

  1781.         CmdSet_For_DGV()

  1782.     End Sub

  1783.     Friend Sub SQL_後台上下層核帳()

  1784.         ConnOpen_子SQL()

  1785.         SQL1 = "SELECT      後台商客基本資料表.網址 AS 項次, 後台商客基本資料表.網址, 後台商客基本資料表.商品, 後台商客基本資料表.資料 AS 系統, 後台商客基本資料表.帳號, 

  1786.                             後台商客基本資料表.帳號 AS 虛量, 後台商客基本資料表.帳號 AS 實量, 

  1787.                             後台商客基本資料表.帳號 AS 退水, 後台商客基本資料表.帳號 AS 中獎, 

  1788.                             後台商客基本資料表.帳號 AS 輸贏, 後台商客基本資料表.帳號 AS 貢獻額, 

  1789.                             後台商客基本資料表.帳號 AS 大總監, 後台商客基本資料表.帳號 AS 移轉, 後台電板紙板流水帳.交收金額 AS 排序, 後台電板紙板流水帳.交收金額 AS 調退實佔

  1790.                 FROM        後台商客基本資料表 LEFT OUTER JOIN

  1791.                             後台電板紙板流水帳 ON 後台商客基本資料表.商品 = 後台電板紙板流水帳.客戶"

  1792.         CmdSet_For_DGV()

  1793.     End Sub

  1794.     Friend Sub SQL_後台彙總讀取()

  1795.         ConnOpen_子SQL()

  1796.         SQL1 = "SELECT  項次, 網址, 商品, 系統, 帳號, 虛量, 實量, 退水, 中獎, 輸贏, 貢獻額, 大總監, 移轉, 調退實佔, 排序

  1797.                 FROM    後台彙總存檔 WHERE 週日月 LIKE '" & PA15 & "' AND 開始日期 LIKE '" & PA16 & "' AND 結束日期 LIKE '" & PA17 & "' AND 排序 <> 0"

  1798.         CmdSet_For_DGV()

  1799.     End Sub

  1800.     Friend Sub SQL_後台彙總讀取1()

  1801.         ConnOpen_子SQL()

  1802.         SQL1 = "SELECT  項次, 網址, 商品, 系統, 帳號, 虛量, 實量, 退水, 中獎, 輸贏, 貢獻額, 大總監 AS 結果, 移轉, 排序, 調退實佔

  1803.                 FROM    後台彙總存檔 WHERE 週日月 LIKE '" & PA15 & "' AND 開始日期 LIKE '" & PA16 & "' AND 結束日期 LIKE '" & PA17 & "' AND 排序 <> 0"

  1804.         CmdSet_For_DGV()

  1805.     End Sub

  1806.     Friend Sub SQL_後台彙總讀取2()

  1807.         ConnOpen_子SQL()

  1808.         SQL1 = "SELECT     網址 AS 項次, 網址, 商品, 系統, 帳號, SUM(CAST(虛量 AS money)) AS 虛量, SUM(CAST(實量 AS money)) AS 實量, 

  1809.                            SUM(CAST(退水 AS money)) AS 退水, SUM(CAST(中獎 AS money)) AS 中獎, SUM(CAST(輸贏 AS money)) AS 輸贏, 

  1810.                            SUM(CAST(貢獻額 AS money)) AS 貢獻額, CAST(SUM(CAST(大總監 AS money)) AS  nvarchar(50)) AS 結果, SUM(CAST(移轉 AS money)) 

  1811.                            AS 移轉, SUM(排序) AS 排序, SUM(調退實佔) AS 調退實佔

  1812.                 FROM       後台彙總存檔

  1813.                 WHERE     (週日月 LIKE '" & PA15 & "') AND (開始日期 BETWEEN '" & PA16 & "' AND '" & PA17 & "')

  1814.                 GROUP BY   網址, 商品, 系統, 帳號"

  1815.         CmdSet_For_DGV()

  1816.     End Sub

  1817.     Friend Sub SQL_後台客戶下資料表()

  1818.         ConnOpen_子SQL()

  1819.         SQL1 = "SELECT  後台下行客戶.客戶下 AS 客戶帳號, 後台下行客戶.網址, 後台下行客戶.帳號, 後台下行客戶.客名 AS 客戶名稱, 後台下行客戶.計算, 

  1820.                         後台下行客戶.同帳, 後台下行客戶.所得, 後台下行客戶.下層, 後台下行客戶.基數, 後台下行客戶.流水號, 後台下行客戶.所得另算, 

  1821.                         後台下行客戶.水差另算, 後台商品資料表.備用網址

  1822.                 FROM    後台下行客戶 INNER JOIN

  1823.                         後台商品資料表 ON 後台下行客戶.網址 = 後台商品資料表.網址"

  1824.         CmdSet_For_DGV()

  1825.     End Sub

  1826.     Friend Sub SQL_後台流水帳日期()

  1827.         ConnOpen_子SQL()

  1828.         SQL1 = "SELECT 開始日期, 結束日期 FROM 後台流水帳 WHERE (日周月 IS NULL OR 日周月 LIKE '" & 天周月 & "') GROUP BY 開始日期, 結束日期 ORDER BY 結束日期 DESC"

  1829.         CmdSet_For_DGV()

  1830.     End Sub

  1831.     Friend Sub SQL_後台帳務明細查詢表查詢()

  1832.         ConnOpen_子SQL()

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

  1834.                             QQQ.客戶, QQQ.[會員.] AS [總量.], QQQ.[代理.] AS [退水.], QQQ.[總代理.] AS [中獎.], QQQ.[股東.] AS [輸贏.], QQQ.開始日期 AS [貢獻額.], 

  1835.                             QQQ.[總監.] AS [貢獻度.], QQQ.[總監.] AS [調盤退水.], QQQ.[總監.] AS [調退實佔.], QQQ.[上繳金額.] AS [大總監.], QQQ.個人所得, 

  1836.                             QQQ.水差, QQQ.會員1 AS 總量1, QQQ.代理1 AS 退水1, QQQ.總代理1 AS 中獎1, QQQ.股東1 AS 輸贏1, QQQ.大股東1 AS 貢獻額1, QQQ.總監1 AS 貢獻度1, 

  1837.                             QQQ.總監1, QQQ.上繳金額1, QQQ.個人所得1, QQQ.水差1, QQQ.會員1 AS 調盤退水1, QQQ.會員1 AS 調退實佔1, 

  1838.                             QQQ.總量, QQQ.退水, QQQ.中獎, QQQ.輸贏, QQQ.佔成輸贏, QQQ.水倍差, QQQ.上繳金額, QQQ.自已總輸贏, QQQ.上繳貢獻額, QQQ.貢獻額, 

  1839.                             QQQ.貢獻度, QQQ.下注明細, QQQ.玩法明細, QQQ.調盤退水, QQQ.調退實佔, QQQ.上繳, QQQ.會員, QQQ.代理, QQQ.總代理, QQQ.股東, 

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

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

  1842.                             QQQ.帳戶 AS 客戶名稱, QQQ.下行基數 AS [下收.], 選擇按鈕.按鈕 AS 計算, 選擇按鈕.按鈕 AS 同帳, 選擇按鈕.按鈕 AS 所得, 選擇按鈕.按鈕 AS 上層, 

  1843.                             選擇按鈕.按鈕 AS 下層, QQQ.帳戶 AS 同帳指定, QQQ.個人所得 AS 所得另算, QQQ.[index], QQQ.帳戶 AS 下客流水, QQQ.總監, QQQ.帳戶 AS 所得指定, 

  1844.                             QQQ.帳戶 AS 天帳1, QQQ.帳戶 AS 地帳1, QQQ.帳戶 AS 個人所得2, QQQ.帳戶 AS 個人所得3, QQQ.帳戶 AS 水差2, QQQ.帳戶 AS 水差指定, QQQ.帳戶 AS 核帳, 

  1845.                             QQQ.大總監, QQQ.系統, QQQ.貢獻額s, QQQ.貢獻度s, QQQ.調盤退水s, QQQ.調退實佔s

  1846.                 FROM        選擇按鈕 RIGHT OUTER JOIN

  1847.                            (SELECT     後台流水帳.開始日期, 後台流水帳.結束日期, 後台流水帳.網址 AS 網址, 後台流水帳.帳戶, 

  1848.                                        後台商客基本資料表.商品, 後台商客基本資料表.資料, 後台商客基本資料表.上行基數, 後台商客基本資料表.下行基數, 

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

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

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

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

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

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

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

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

  1857.                                        後台商客基本資料表.下行基數 AS 水差1, 

  1858.                                        後台流水帳.總量, 後台流水帳.退水, 後台流水帳.中獎, 後台流水帳.輸贏, 

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

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

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

  1862.                                        後台流水帳.大股東, 後台流水帳.總監, 

  1863.                                        後台流水帳.客戶s, 後台流水帳.總量s, 後台流水帳.中獎s, 後台流水帳.輸贏s, 後台流水帳.客戶小計s, 

  1864.                                        後台流水帳.代理小計s, 後台流水帳.總代理小計s, 後台流水帳.股東小計s, 後台流水帳.大股東小計s, 後台流水帳.總監小計s, 

  1865.                                        後台流水帳.個人所得s, 後台流水帳.水差s, 後台流水帳.下注明細s, 後台流水帳.查看對帳s, 後台流水帳.貢獻額s, 後台流水帳.貢獻度s, 

  1866.                                        後台流水帳.調盤退水s, 後台流水帳.調退實佔s,

  1867.                                        後台商客基本資料表.上繳源 AS 客帳, 後台流水帳.[index], 後台流水帳.大總監, LEFT(後台商客基本資料表.資料,2) AS 系統

  1868.                              FROM      後台流水帳 LEFT OUTER JOIN 後台商客基本資料表 ON (後台流水帳.網址 = 後台商客基本資料表.網址 OR 後台流水帳.網址 = 後台商客基本資料表.備用網址) AND 

  1869.                                        後台流水帳.帳戶 = 後台商客基本資料表.帳號

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

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

  1872.                                       (後台商客基本資料表.商品 LIKE '" & PA3 & "') AND 

  1873.                                       (後台商客基本資料表.上繳源 LIKE '" & PA4 & "') AND (日周月 LIKE '" & 天周月 & "') " & PA32 & "

  1874.                              GROUP BY  後台流水帳.開始日期, 後台流水帳.結束日期, 後台流水帳.網址, 後台流水帳.帳戶, 

  1875.                                        後台商客基本資料表.商品, 後台商客基本資料表.資料, 後台商客基本資料表.上行基數, 後台商客基本資料表.下行基數, 後台流水帳.調盤退水s,

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

  1877.                                        後台流水帳.佔成輸贏, 後台流水帳.水倍差, 後台流水帳.上繳金額, 後台流水帳.自已總輸贏, 後台流水帳.上繳貢獻額, 後台流水帳.調退實佔s, 

  1878.                                        後台流水帳.貢獻額, 後台流水帳.貢獻度, 後台流水帳.下注明細, 後台流水帳.玩法明細, 後台流水帳.調盤退水, 後台流水帳.貢獻額s, 後台流水帳.貢獻度s, 

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

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

  1881.                                        後台流水帳.代理小計s, 後台流水帳.總代理小計s, 後台流水帳.股東小計s, 後台流水帳.大股東小計s, 後台流水帳.總監小計s, 

  1882.                                        後台流水帳.個人所得s, 後台流水帳.水差s, 後台流水帳.下注明細s, 後台流水帳.查看對帳s, 後台流水帳.[index], 後台流水帳.總監, 後台流水帳.大總監) AS QQQ ON 

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

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

  1885.         CmdSet_For_DGV()

  1886.     End Sub

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

  1888.         ConnOpen_子SQL()

  1889.         SQL1 = "UPDATE 後台流水帳 SET 查看對帳s = '" & PA38 & "', 下注明細s = '" & PA32 & "', 下注明細 = '" & PA31 & "'

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

  1891.                       (網址 LIKE '" & PA34 & "') AND (帳戶 LIKE '" & PA33 & "')"

  1892.         CmdSet_For_dr()

  1893.     End Sub

  1894.     Friend Sub SQL_後台流水帳商品()

  1895.         ConnOpen_子SQL() : SQL1 = "SELECT 商品 FROM 後台商品資料表 GROUP BY 商品 ORDER BY 商品" : CmdSet_For_dr()

  1896.     End Sub

  1897.     Friend Sub SQL_後台流水帳上繳_明細用()

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

  1899.     End Sub

  1900.     Friend Sub SQL_後台流水帳客戶_明細用()

  1901.         ConnOpen_子SQL()

  1902.         SQL1 = "SELECT     後台下行客戶.客名

  1903.                 FROM       後台下行客戶 INNER JOIN

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

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

  1906.                 GROUP BY   後台下行客戶.客名

  1907.                 ORDER BY   後台下行客戶.客名"

  1908.         CmdSet_For_dr()

  1909.     End Sub

  1910.     Friend Sub SQL_後台上行清單讀取1()

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

  1912.     End Sub

  1913.     Friend Sub SQL_後台流水帳指定周日月()

  1914.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台流水帳 SET 日周月 = '" & 天周月 & "' WHERE (開始日期 LIKE '" & 開始D & "') AND (日周月 IS NULL)" : CmdSet_For_dr()

  1915.     End Sub

  1916.     Friend Sub SQL_後台外埔表指定周日月()

  1917.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台外埔報表 SET 周日月 = '" & 天周月 & "' WHERE (開始日期 LIKE '" & 開始D & "') AND (周日月 IS NULL)" : CmdSet_For_dr()

  1918.     End Sub

  1919.     Friend Sub SQL_流水帳_後台帳號第一次驗證()

  1920.         ConnOpen_子SQL() : SQL1 = "SELECT 下一層 AS 首次抓帳 FROM 後台商客基本資料表 WHERE (網址 LIKE '" & PA1 & "') AND (帳號 LIKE '" & PA2 & "')" : CmdSet_For_dr()

  1921.     End Sub

  1922.     Friend Sub SQL_流水帳_後台客戶下新增_非首()

  1923.         ConnOpen_子SQL()

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

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

  1926.         CmdSet_For_dr()

  1927.     End Sub

  1928.     Friend Sub SQL_SQL_後台自動導入判斷_關閉()

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

  1930.     End Sub

  1931.     Friend Sub SQL_後台導完帳修改上繳帳號狀態()

  1932.         ConnOpen_子SQL() : SQL1 = "UPDATE 後台商客基本資料表 SET 下一層 = '0'" : CmdSet_For_dr()

  1933.     End Sub

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

  1935.         ConnOpen_子SQL()

  1936.         SQL1 = "INSERT INTO 後台商客資料暫存檔 (網址, 帳號, 密碼, 下一層, 上一層, 備用網址, 主帳號) 

  1937.                 VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "')"

  1938.         CmdSet_For_dr()

  1939.     End Sub

  1940.     Friend Sub SQL_後台流水帳同日期清除_含商品_帳戶_備用網址()

  1941.         ConnOpen_子SQL()

  1942.         SQL1 = "DELETE  後台流水帳 WHERE  (開始日期 LIKE N'" & PA & "') AND (網址 LIKE N'" & PA6 & "') AND (帳戶 LIKE N'" & PA2 & "') AND (日周月 IS NULL OR 日周月 LIKE '" & 天周月 & "')"

  1943.         CmdSet_For_dr()

  1944.     End Sub

  1945.     Friend Sub SQL_後台流水帳同日期清除_含商品_帳戶()

  1946.         ConnOpen_子SQL()

  1947.         SQL1 = "DELETE  後台流水帳 WHERE  (開始日期 LIKE N'" & PA & "') AND (網址 LIKE N'" & PA1 & "') AND (帳戶 LIKE N'" & PA2 & "') AND (日周月 IS NULL OR 日周月 LIKE '" & 天周月 & "')"

  1948.         CmdSet_For_dr()

  1949.     End Sub

  1950.     Friend Sub SQL_後台自動導入判斷()

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

  1952.     End Sub

  1953.     Friend Sub SQL_SQL_後台自動導入判斷_開啟()

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

  1955.     End Sub

  1956.     Friend Sub SQL_後台查詢日期清空()

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

  1958.     End Sub

  1959.     Friend Sub SQL_後台LOG_刪除1()

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

  1961.     End Sub

  1962.     Friend Sub SQL_後台查詢日期寫入1()

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

  1964.     End Sub

  1965.     Friend Sub SQL_後台流水帳同日期清除()

  1966.         ConnOpen_子SQL() : SQL1 = "DELETE  後台流水帳 WHERE  (開始日期 LIKE N'" & PA1 & "') AND (日周月 IS NULL OR 日周月 LIKE '" & 天周月 & "')" : CmdSet_For_dr()

  1967.         ConnOpen_子SQL() : SQL1 = "DELETE  後台外埔報表 WHERE  (開始日期 LIKE N'" & PA1 & "') AND (周日月 IS NULL OR 周日月 LIKE '" & 天周月 & "')" : CmdSet_For_dr()

  1968.     End Sub

  1969.     Friend Sub SQL_後台查詢日期寫入()

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

  1971.     End Sub

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

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

  1974.     End Sub

  1975.     Friend Sub SQL_後台LOG流水()

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

  1977.     End Sub

  1978.     Friend Sub SQL_後台客戶下所得名稱清單()

  1979.         ConnOpen_子SQL()

  1980.         SQL1 = "SELECT     後台下行客戶.所得另算 FROM 後台下行客戶 INNER JOIN 後台商客基本資料表 ON 後台下行客戶.網址 = 後台商客基本資料表.網址

  1981.                 WHERE     (後台下行客戶.所得另算 IS NOT NULL) AND (後台商客基本資料表.商品 LIKE '" & PA18 & "')

  1982.                 GROUP BY   後台下行客戶.所得另算

  1983.                 ORDER BY   後台下行客戶.所得另算"

  1984.         CmdSet_For_dr()

  1985.     End Sub

  1986.     '--------------------------後台帳務彙總計算表---------------------------------------------------------------------------------------------------------------------------------------------------

  1987.     Friend Sub SQL_後台上繳名()

  1988.         ConnOpen_子SQL() : SQL1 = "SELECT 上繳源 AS 上繳, 上繳源 AS 交割金額, 上繳源 AS [交割金額.] FROM 後台商客基本資料表 GROUP BY 上繳源" : CmdSet_For_DGV()

  1989.     End Sub

  1990.     Friend Sub SQL_後台下收名()

  1991.         ConnOpen_子SQL() : SQL1 = "SELECT 客名 AS 下收, 客名 AS 交割金額, 客名 AS [交割金額.] FROM 後台下行客戶 GROUP BY 客名" : CmdSet_For_DGV()

  1992.     End Sub

  1993.     Friend Sub SQL_後台所得名()

  1994.         ConnOpen_子SQL() : SQL1 = "SELECT 所得另算 AS 所得, 所得另算 AS 交割金額, 所得另算 AS [交割金額.] FROM 後台下行客戶 GROUP BY 所得另算" : CmdSet_For_DGV()

  1995.     End Sub

  1996.     Friend Sub SQL_後台所得名1()

  1997.         ConnOpen_子SQL()

  1998.         SQL1 = "SELECT     下注明細 AS 所得, 下注明細 AS 交割金額, 下注明細 AS [交割金額.] FROM 後台流水帳

  1999.                 WHERE     (下注明細 IS NOT NULL) AND (下注明細 NOT LIKE '查看') AND (下注明細 NOT LIKE '')

  2000.                 GROUP BY   下注明細"

  2001.         CmdSet_For_DGV()

  2002.     End Sub

  2003.     Friend Sub SQL_後台水差名()

  2004.         ConnOpen_子SQL() : SQL1 = "SELECT 水差另算 AS 水差, 水差另算 AS 交割金額, 水差另算 AS [交割金額.] FROM 後台下行客戶 GROUP BY 水差另算" : CmdSet_For_DGV()

  2005.     End Sub

  2006.     Friend Sub SQL_後台水差名出帳()

  2007.         ConnOpen_子SQL() : SQL1 = "SELECT 所得另算 AS 水差, 所得另算 AS 交割金額, 所得另算 AS [交割金額.] FROM 後台下行客戶 WHERE (水差另算 NOT LIKE '') GROUP BY 所得另算" : CmdSet_For_DGV()

  2008.     End Sub

  2009.     Friend Sub SQL_後台股東紅利彙總表()

  2010.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, SUM(ABS(紅利)) AS 總股, SUM(紅利) AS 總所得 FROM 後台電板股東紅利設定 GROUP BY 所得戶" : CmdSet_For_DGV()

  2011.     End Sub

  2012.     Friend Sub SQL_後台股東紅利明細表()

  2013.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, 股東, 紅利 AS 總股份, 紅利 AS 股份, 紅利 FROM 後台電板股東紅利設定 ORDER BY 所得戶, 股東" : CmdSet_For_DGV()

  2014.     End Sub

  2015.     Friend Sub SQL_後台流水帳查詢()

  2016.         ConnOpen_子SQL()

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

  2018.                             QQQ.天帳, QQQ.地帳, QQQ.個人所得, QQQ.水差, QQQ.核帳, QQQ.天帳1, QQQ.地帳1, QQQ.天帳1 AS 天帳2, QQQ.地帳1 AS 地帳2, QQQ.個人所得1, 

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

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

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

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

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

  2024.                             QQQ.下行基數 AS 下收, QQQ.客戶, QQQ.客帳, QQQ.帳戶 AS 客名, 選擇按鈕.按鈕 AS 計算, 選擇按鈕.按鈕 AS 同帳, 選擇按鈕.按鈕 AS 所得, 

  2025.                             選擇按鈕.按鈕 AS 上層, 選擇按鈕.按鈕 AS 下層, QQQ.個人所得 AS 所得另算, QQQ.總監, 

  2026.                             QQQ.個人所得1 AS 個人所得2, QQQ.水差1 AS 水差2, QQQ.帳戶 AS 同帳指定, QQQ.帳戶 AS 所得指定, QQQ.帳戶 AS 水差指定,QQQ.[index], 

  2027.                             QQQ.帳戶 AS 水差出帳, QQQ.大總監, QQQ.系統

  2028.                 FROM        選擇按鈕 RIGHT OUTER JOIN

  2029.                            (SELECT          後台流水帳.開始日期, 後台流水帳.結束日期, 後台流水帳.網址 AS 網址, 後台流水帳.帳戶, 

  2030.                                             後台商客基本資料表.商品, 後台商客基本資料表.資料, 後台商客基本資料表.上行基數, 後台商客基本資料表.下行基數, 

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

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

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

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

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

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

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

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

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

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

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

  2042.                                             後台流水帳.查看對帳s, 後台商客基本資料表.上繳源 AS 客帳, 後台流水帳.[index], 後台流水帳.大總監, LEFT(後台商客基本資料表.資料,2) AS 系統

  2043.                             FROM            後台流水帳 LEFT OUTER JOIN 後台商客基本資料表 ON (後台流水帳.網址 = 後台商客基本資料表.網址 OR 後台流水帳.網址 = 後台商客基本資料表.備用網址) AND 

  2044.                                             後台流水帳.帳戶 = 後台商客基本資料表.帳號

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

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

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

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

  2049.                                            (後台流水帳.網址 LIKE '%" & PA40 & "%') AND (日周月 LIKE '" & 天周月 & "')

  2050.                             GROUP BY        後台流水帳.開始日期, 後台流水帳.結束日期, 後台流水帳.網址, 後台流水帳.帳戶, 

  2051.                                             後台商客基本資料表.商品, 後台商客基本資料表.資料, 後台商客基本資料表.上行基數, 後台商客基本資料表.下行基數, 

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

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

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

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

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

  2057.                                             後台流水帳.代理小計s, 後台流水帳.總代理小計s, 後台流水帳.股東小計s, 後台流水帳.大股東小計s, 後台流水帳.總監小計s, 

  2058.                                             後台流水帳.個人所得s, 後台流水帳.水差s, 後台流水帳.下注明細s, 後台流水帳.查看對帳s, 後台流水帳.總監, 後台流水帳.[index], 後台流水帳.大總監) AS QQQ ON 

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

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

  2061.         CmdSet_For_DGV()

  2062.     End Sub

  2063.     Friend Sub SQL_後台紙帳流水查詢2()

  2064.         ConnOpen_子SQL()

  2065.         SQL1 = "SELECT 商品, 交收金額 FROM 後台電板紙板流水帳 

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

  2067.                       (客戶 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "') AND (商品 NOT LIKE '前期未收')"

  2068.         CmdSet_For_DGV()

  2069.     End Sub

  2070.     Friend Sub SQL_後台紙帳流水查詢1()

  2071.         ConnOpen_子SQL()

  2072.         SQL1 = "SELECT 商品, 交收金額 FROM 後台電板紙板流水帳 

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

  2074.                       (客戶 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "') AND (商品 LIKE '前期未收')"

  2075.         CmdSet_For_DGV()

  2076.     End Sub

  2077.     Friend Sub SQL_後台彙總上繳1()

  2078.         ConnOpen_子SQL()

  2079.         SQL1 = "SELECT 商品 AS 項次, 商品, 商品 AS [應付.], 商品 AS 應付

  2080.                 FROM              後台商客基本資料表

  2081.                 WHERE          (上繳源 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "')

  2082.                 GROUP BY   商品 ORDER BY 商品"

  2083.         CmdSet_For_DGV()

  2084.     End Sub

  2085.     Friend Sub SQL_後台彙總上繳2()

  2086.         ConnOpen_子SQL()

  2087.         SQL1 = "SELECT     後台商客基本資料表.商品 AS 項次, 後台商客基本資料表.商品, 後台商客基本資料表.帳號, 後台商客基本資料表.商品 AS [應付.], 

  2088.                            後台商客基本資料表.商品 AS 應付

  2089.                 FROM       後台商客基本資料表 INNER JOIN

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

  2091.                 WHERE     (上繳源 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "') AND (下行客戶.計算 = 1)

  2092.                 GROUP BY   後台商客基本資料表.商品, 後台商客基本資料表.帳號

  2093.                 ORDER BY   項次"

  2094.         CmdSet_For_DGV()

  2095.     End Sub

  2096.     Friend Sub SQL_後台彙總下收1()

  2097.         ConnOpen_子SQL()

  2098.         SQL1 = "SELECT     後台商品資料表.商品 AS 項次, 後台商品資料表.商品, 後台商品資料表.商品 AS [應收.], 後台商品資料表.商品 AS 應收

  2099.                 FROM       後台流水帳 INNER JOIN 後台商品資料表 ON (後台流水帳.網址 = 後台商品資料表.網址 OR 後台流水帳.網址 = 後台商品資料表.備用網址)

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

  2101.                           (後台流水帳.結束日期 LIKE '" & Strings.Right(後台帳務彙總計算表.資料_cb.Text, 10) & "') AND (後台流水帳.查看對帳s LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "')

  2102.                 GROUP BY   後台流水帳.開始日期, 後台流水帳.結束日期, 後台商品資料表.商品, 後台流水帳.查看對帳s

  2103.                 ORDER BY   後台商品資料表.商品"

  2104.         CmdSet_For_DGV()

  2105.     End Sub

  2106.     Friend Sub SQL_後台彙總下收2()

  2107.         ConnOpen_子SQL()

  2108.         SQL1 = "SELECT     後台商品資料表.商品 AS 項次, 後台商品資料表.商品, 後台流水帳.帳戶 AS 帳號, 後台商品資料表.商品 AS [應收.], 

  2109.                            後台商品資料表.商品 AS 應收

  2110.                 FROM       後台流水帳 INNER JOIN 後台商品資料表 ON (後台流水帳.網址 = 後台商品資料表.網址 OR 後台流水帳.網址 = 後台商品資料表.備用網址)

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

  2112.                           (後台流水帳.結束日期 LIKE '" & Strings.Right(後台帳務彙總計算表.資料_cb.Text, 10) & "') AND (後台流水帳.查看對帳s LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "')

  2113.                 GROUP BY   後台流水帳.開始日期, 流水帳.結束日期, 後台商品資料表.商品, 後台流水帳.查看對帳s, 後台流水帳.帳戶

  2114.                 ORDER BY   後台商品資料表.商品"

  2115.         CmdSet_For_DGV()

  2116.     End Sub

  2117.     Friend Sub SQL_後台彙總下收3()

  2118.         ConnOpen_子SQL()

  2119.         SQL1 = "SELECT      後台商品資料表.商品 AS 項次, 後台商品資料表.商品, 後台流水帳.帳戶 AS 帳號, 後台下行客戶.客戶下 AS 客戶, 

  2120.                             後台商品資料表.商品 AS [應收.], 後台商品資料表.商品 AS 應收

  2121.                 FROM        後台流水帳 INNER JOIN 後台商品資料表 ON (後台流水帳.網址 = 後台商品資料表.網址 OR 後台流水帳.網址 = 後台商品資料表.備用網址) INNER JOIN

  2122.                             後台下行客戶 ON 商品資料表.網址 = 後台下行客戶.網址 AND 後台流水帳.帳戶 = 後台下行客戶.帳號

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

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

  2125.                            (後台下行客戶.客名 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "') AND 

  2126.                            (後台流水帳.查看對帳s LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "') AND (後台下行客戶.計算 = 1)

  2127.                 GROUP BY   後台流水帳.開始日期, 後台流水帳.結束日期, 後台商品資料表.商品, 後台流水帳.帳戶, 後台下行客戶.客戶下

  2128.                 ORDER BY   項次"

  2129.         CmdSet_For_DGV()

  2130.     End Sub

  2131.     Friend Sub SQL_後台彙總所得1()

  2132.         ConnOpen_子SQL()

  2133.         SQL1 = "SELECT     後台商品資料表.商品 AS 項次, 後台商品資料表.商品, 後台商品資料表.商品 AS [所得.], 後台商品資料表.商品 AS 所得

  2134.                 FROM       後台流水帳 INNER JOIN 後台商品資料表 ON (流水帳.網址 = 後台商品資料表.網址 OR 流水帳.網址 = 後台商品資料表.備用網址)

  2135.                 WHERE     (後台流水帳.開始日期 LIKE '" & Strings.Left(後台帳務彙總計算表.資料_cb.Text, 10) & "')  AND (後台流水帳.下注明細s NOT LIKE '') AND 

  2136.                           (後台流水帳.結束日期 LIKE '" & Strings.Right(後台帳務彙總計算表.資料_cb.Text, 10) & "') AND (後台流水帳.下注明細s LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "')

  2137.                 GROUP BY   後台流水帳.開始日期, 後台流水帳.結束日期, 後台商品資料表.商品, 流水帳.下注明細s

  2138.                 ORDER BY   後台商品資料表.商品"

  2139.         CmdSet_For_DGV()

  2140.     End Sub

  2141.     Friend Sub SQL_後台彙總所得2()

  2142.         ConnOpen_子SQL()

  2143.         SQL1 = "SELECT     後台商品資料表.商品 AS 項次, 後台商品資料表.商品, 後台流水帳.帳戶 AS 帳號, 後台商品資料表.商品 AS [所得.], 後台商品資料表.商品 AS 所得

  2144.                 FROM       後台流水帳 INNER JOIN 商品資料表 ON (後台流水帳.網址 = 商品資料表.網址 OR 後台流水帳.網址 = 後台商品資料表.備用網址)

  2145.                 WHERE     (後台流水帳.開始日期 LIKE '" & Strings.Left(後台帳務彙總計算表.資料_cb.Text, 10) & "')  AND (後台流水帳.下注明細s NOT LIKE '') AND 

  2146.                           (後台流水帳.結束日期 LIKE '" & Strings.Right(後台帳務彙總計算表.資料_cb.Text, 10) & "') AND (後台流水帳.下注明細s LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "')

  2147.                 GROUP BY   後台流水帳.開始日期, 後台流水帳.結束日期, 後台商品資料表.商品, 後台流水帳.下注明細s, 後台流水帳.帳戶

  2148.                 ORDER BY   後台商品資料表.商品"

  2149.         CmdSet_For_DGV()

  2150.     End Sub

  2151.     Friend Sub SQL_後台彙總所得3()

  2152.         SQL1 = "SELECT     後台商品資料表.商品 AS 項次, 後台商品資料表.商品, 後台流水帳.帳戶 AS 帳號, 後台下行客戶.客戶下 AS 客戶, 

  2153.                            後台商品資料表.商品 AS [所得.], 後台商品資料表.商品 AS 所得

  2154.                 FROM       後台流水帳 INNER JOIN 後台商品資料表 ON (後台流水帳.網址 = 後台商品資料表.網址 OR 後台流水帳.網址 = 後台商品資料表.備用網址) INNER JOIN

  2155.                            後台下行客戶 ON 後台流水帳.網址 = 後台下行客戶.網址 AND 後台流水帳.帳戶 = 後台下行客戶.帳號

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

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

  2158.                           (後台流水帳.下注明細s LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "') AND 

  2159.                           (後台下行客戶.所得另算 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "') AND 

  2160.                           (後台下行客戶.所得另算 NOT LIKE '')

  2161.                 GROUP BY   後台流水帳.開始日期, 後台流水帳.結束日期, 後台商品資料表.商品, 後台流水帳.帳戶, 後台下行客戶.客戶下

  2162.                 ORDER BY   項次"

  2163.         CmdSet_For_DGV()

  2164.     End Sub

  2165.     Friend Sub SQL_後台彙總所得4()

  2166.         ConnOpen_子SQL()

  2167.         SQL1 = "SELECT     後台商品資料表.商品 AS 項次, 後台商品資料表.商品, 後台流水帳.帳戶 AS 帳號, 後台流水帳.帳戶 AS 客戶, 

  2168.                            後台商品資料表.商品 AS [所得.], 後台商品資料表.商品 AS 所得

  2169.                 FROM       後台流水帳 INNER JOIN 後台商品資料表 ON (後台流水帳.網址 = 後台商品資料表.網址 OR 後台流水帳.網址 = 商品資料表.備用網址)

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

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

  2172.                           (後台流水帳.下注明細 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "')

  2173.                 GROUP BY 商品資料表.商品, 後台流水帳.帳戶

  2174.                 ORDER BY   後台商品資料表.商品 DESC"

  2175.         CmdSet_For_DGV()

  2176.     End Sub

  2177.     Friend Sub SQL_後台彙總所得5()

  2178.         ConnOpen_子SQL()

  2179.         SQL1 = "SELECT     TOP(" & NN6 & ") 後台流水帳.帳戶 AS 項次, 後台流水帳.帳戶 AS 商品, 後台流水帳.帳戶 AS 帳號, 後台流水帳.帳戶 AS 客戶, 

  2180.                            後台流水帳.帳戶 AS [所得.], 後台流水帳.帳戶 AS 所得

  2181.                 FROM       後台流水帳"

  2182.         CmdSet_For_DGV()

  2183.     End Sub

  2184.     Friend Sub SQL_後台彙總水差1()

  2185.         ConnOpen_子SQL()

  2186.         SQL1 = "SELECT     下行客戶.水差另算 AS 項次, 商品資料表.商品, 下行客戶.水差另算 AS [水差.], 下行客戶.水差另算 AS 水差

  2187.                 FROM       流水帳 INNER JOIN

  2188.                            下行客戶 ON 流水帳.網址 = 下行客戶.網址 AND 流水帳.帳戶 = 下行客戶.帳號 INNER JOIN

  2189.                            商品資料表 ON 下行客戶.網址 = 商品資料表.網址

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

  2191.                           (流水帳.結束日期 LIKE '" & Strings.Right(後台帳務彙總計算表.資料_cb.Text, 10) & "') AND (下行客戶.水差另算 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "')

  2192.                 GROUP BY   流水帳.開始日期, 流水帳.結束日期, 下行客戶.水差另算, 商品資料表.商品"

  2193.         CmdSet_For_DGV()

  2194.     End Sub

  2195.     Friend Sub SQL_後台彙總水差2()

  2196.         ConnOpen_子SQL()

  2197.         SQL1 = "SELECT     後台下行客戶.水差另算 AS 項次, 後台商品資料表.商品, 後台流水帳.帳戶 AS 帳號, 後台下行客戶.水差另算 AS [水差.], 

  2198.                            後台下行客戶.水差另算 AS 水差

  2199.                 FROM       後台流水帳 INNER JOIN

  2200.                            後台下行客戶 ON 後台流水帳.網址 = 後台下行客戶.網址 AND 後台流水帳.帳戶 = 後台下行客戶.帳號 INNER JOIN

  2201.                            後台商品資料表 ON (後台流水帳.網址 = 後台商品資料表.網址 OR 後台流水帳.網址 = 後台商品資料表.備用網址)

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

  2203.                           (後台流水帳.結束日期 LIKE '" & Strings.Right(後台帳務彙總計算表.資料_cb.Text, 10) & "') AND (後台下行客戶.水差另算 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "')

  2204.                 GROUP BY   後台流水帳.開始日期, 後台流水帳.結束日期, 後台流水帳.帳戶, 後台下行客戶.水差另算, 後台商品資料表.商品

  2205.                 ORDER BY   後台商品資料表.商品"

  2206.         CmdSet_For_DGV()

  2207.     End Sub

  2208.     Friend Sub SQL_後台彙總水差3()

  2209.         ConnOpen_子SQL()

  2210.         SQL1 = "SELECT     後台下行客戶.水差另算 AS 項次, 後台商品資料表.商品, 後台流水帳.帳戶 AS 帳號, 後台下行客戶.客戶下 AS 客戶, 

  2211.                            後台下行客戶.水差另算 AS [水差.], 後台下行客戶.水差另算 AS 水差

  2212.                 FROM       後台流水帳 INNER JOIN

  2213.                            後台下行客戶 ON 後台流水帳.網址 = 後台下行客戶.網址 AND 後台流水帳.帳戶 = 後台下行客戶.帳號 INNER JOIN

  2214.                            後台商品資料表 ON (後台流水帳.網址 = 後台商品資料表.網址 OR 後台流水帳.網址 = 後台商品資料表.備用網址)

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

  2216.                           (後台流水帳.結束日期 LIKE '" & Strings.Right(後台帳務彙總計算表.資料_cb.Text, 10) & "') AND (後台下行客戶.水差另算 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "')

  2217.                 GROUP BY   後台流水帳.開始日期, 後台流水帳.結束日期, 後台流水帳.帳戶, 後台下行客戶.水差另算, 後台商品資料表.商品, 後台下行客戶.客戶下

  2218.                 ORDER BY   後台商品資料表.商品"

  2219.         CmdSet_For_DGV()

  2220.     End Sub

  2221.     Friend Sub SQL_後台彙總所得5_1()

  2222.         ConnOpen_子SQL()

  2223.         SQL1 = "SELECT     TOP(" & NN6 & ") 後台流水帳.帳戶 AS 項次, 後台流水帳.帳戶 AS 商品, 後台流水帳.帳戶 AS 帳號, 後台流水帳.帳戶 AS 客戶, 

  2224.                            後台流水帳.帳戶 AS [水差.], 後台流水帳.帳戶 AS 水差

  2225.                 FROM       後台流水帳"

  2226.         CmdSet_For_DGV()

  2227.     End Sub

  2228.     Friend Sub SQL_後台紅利支出()

  2229.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, 股東, 紅利 AS 股份, 紅利 FROM 後台電板股東紅利設定 WHERE (所得戶 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "')" : CmdSet_For_DGV()

  2230.     End Sub

  2231.     Friend Sub SQL_後台紅利收入()

  2232.         ConnOpen_子SQL() : SQL1 = "SELECT 所得戶, 股東, 紅利 AS 股份, 紅利 FROM 後台電板股東紅利設定 WHERE (股東 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "')" : CmdSet_For_DGV()

  2233.     End Sub

  2234.     Friend Sub SQL_後台紅利整合()

  2235.         ConnOpen_子SQL() : SQL1 = "SELECT TOP(" & NN9 & ") 開始日期 AS [所得/股東], 開始日期 AS 紅利收支, 開始日期 AS 紅利 FROM 後台流水帳" : CmdSet_For_DGV()

  2236.     End Sub

  2237.     Friend Sub SQL_後台彙總查詢()

  2238.         ConnOpen_子SQL()

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

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

  2241.                             後台商客基本資料表.網址 AS 狀態, 後台商客基本資料表.密碼, 後台商客基本資料表.驗證

  2242.                 FROM        後台流水帳 LEFT OUTER JOIN 後台商客基本資料表 ON (後台流水帳.網址 = 後台商客基本資料表.網址 OR 後台流水帳.網址 = 後台商客基本資料表.備用網址) AND 

  2243.                             後台流水帳.帳戶 = 後台商客基本資料表.帳號

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

  2245.                             後台商客基本資料表.網址 LIKE '%" & PA40 & "%'

  2246.                 GROUP BY    後台商客基本資料表.商品, 後台商客基本資料表.上繳源, 後台商客基本資料表.網址, 後台商客基本資料表.帳號, 後台商客基本資料表.密碼, 後台商客基本資料表.驗證

  2247.                 ORDER BY    後台商客基本資料表.商品"

  2248.         CmdSet_For_DGV()

  2249.     End Sub

  2250.     Friend Sub SQL_後台彙總查詢1()

  2251.         ConnOpen_子SQL()

  2252.         SQL1 = "SELECT      後台商客基本資料表.商品, 

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

  2254.                             後台商客基本資料表.商品 AS 水差, 後台商客基本資料表.商品 AS 核帳

  2255.                 FROM        後台流水帳 LEFT OUTER JOIN 後台商客基本資料表 ON (後台流水帳.網址 = 後台商客基本資料表.網址 OR 後台流水帳.網址 = 後台商客基本資料表.備用網址) AND 

  2256.                             後台流水帳.帳戶 = 後台商客基本資料表.帳號

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

  2258.                             後台商客基本資料表.網址 LIKE '%" & PA40 & "%'

  2259.                 GROUP BY    後台商客基本資料表.商品

  2260.                 ORDER BY    後台商客基本資料表.商品"

  2261.         CmdSet_For_DGV()

  2262.     End Sub

  2263.     Friend Sub SQL_後台LOG查詢1()

  2264.         ConnOpen_子SQL()

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

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

  2267.         CmdSet_For_DGV()

  2268.     End Sub

  2269.     Friend Sub SQL_後台LOG查詢2()

  2270.         ConnOpen_子SQL()

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

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

  2273.         CmdSet_For_DGV()

  2274.     End Sub

  2275.     Friend Sub SQL_後台彙總水差3_1()

  2276.         ConnOpen_子SQL()

  2277.         SQL1 = "SELECT     後台下行客戶.水差另算 AS 項次, 後台商品資料表.商品, 後台流水帳.帳戶 AS 帳號, 後台下行客戶.客戶下 AS 客戶, 

  2278.                            後台下行客戶.水差另算 AS [水差.], 後台下行客戶.水差另算 AS 水差

  2279.                 FROM       後台流水帳 INNER JOIN

  2280.                            後台下行客戶 ON 後台流水帳.網址 = 後台下行客戶.網址 AND 後台流水帳.帳戶 = 後台下行客戶.帳號 INNER JOIN

  2281.                            後台商品資料表 ON (後台流水帳.網址 = 後台商品資料表.網址 OR 後台流水帳.網址 = 後台商品資料表.備用網址)

  2282.                 WHERE     (後台流水帳.開始日期 LIKE '" & Strings.Left(後台帳務彙總計算表.資料_cb.Text, 10) & "') AND (後台下行客戶.水差另算 NOT LIKE N'') AND 

  2283.                           (後台流水帳.結束日期 LIKE '" & Strings.Right(後台帳務彙總計算表.資料_cb.Text, 10) & "') AND (後台下行客戶.所得另算 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "')

  2284.                 GROUP BY   後台流水帳.開始日期, 後台流水帳.結束日期, 後台流水帳.帳戶, 後台下行客戶.水差另算, 後台商品資料表.商品, 後台下行客戶.客戶下

  2285.                 ORDER BY   後台商品資料表.商品"

  2286.         CmdSet_For_DGV()

  2287.     End Sub

  2288.     Friend Sub SQL_LOG_後台刪除()

  2289.         ConnOpen_子SQL()

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

  2291.         CmdSet_For_dr()

  2292.     End Sub

  2293.     Friend Sub SQL_後台流水帳_清除()

  2294.         ConnOpen_子SQL()

  2295.         SQL1 = "DELETE  後台流水帳 

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

  2297.                         結束日期 LIKE '" & Strings.Right(後台帳務彙總計算表.資料_cb.Text, 10) & "')  AND (日周月 IS NULL OR 日周月 LIKE '" & 天周月 & "')"

  2298.         CmdSet_For_dr()

  2299.     End Sub

  2300.     Friend Sub SQL_流水帳_後台客戶下新增_首次()

  2301.         ConnOpen_子SQL()

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

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

  2304.         CmdSet_For_dr()

  2305.     End Sub

  2306.     Friend Sub SQL_後台彙總合帳使用()

  2307.         ConnOpen_子SQL()

  2308.         SQL1 = "SELECT      TOP (" & NU1 & ") 後台流水帳.開始日期 AS 客戶, 選擇按鈕.按鈕 AS 付反, 選擇按鈕.按鈕 AS 收反, 選擇按鈕.按鈕 AS 所反, 

  2309.                             選擇按鈕.按鈕 AS 水反, 選擇按鈕.按鈕 AS 紅反, 後台流水帳.開始日期 AS 紙帳, 後台流水帳.開始日期 AS 應付, 後台流水帳.開始日期 AS 應收, 

  2310.                             後台流水帳.開始日期 AS 個人所得, 後台流水帳.開始日期 AS 水差, 後台流水帳.開始日期 AS 前期, 後台流水帳.開始日期 AS 交收合計, 

  2311.                             後台流水帳.開始日期 AS 應付1, 後台流水帳.開始日期 AS 應收1, 後台流水帳.開始日期 AS 個人所得1, 

  2312.                             後台流水帳.開始日期 AS 水差1, 後台流水帳.開始日期 AS 交收合計1

  2313.                 FROM        後台流水帳 LEFT OUTER JOIN

  2314.                             選擇按鈕 ON 後台流水帳.開始日期 = 選擇按鈕.選擇"

  2315.         CmdSet_For_DGV()

  2316.     End Sub

  2317.     Friend Sub SQL_後台紙帳流水查詢3()

  2318.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 商品, 交收金額 FROM 後台電板紙板流水帳 WHERE (開始日期 LIKE '" & Strings.Left(後台帳務彙總計算表.資料_cb.Text, 10) & "')" : CmdSet_For_DGV()

  2319.     End Sub

  2320.     Friend Sub SQL_後台紙帳流水修改()

  2321.         ConnOpen_子SQL()

  2322.         SQL1 = "UPDATE 後台電板紙板流水帳 SET 交收金額 = N'" & NN8 & "' 

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

  2324.                       (客戶 LIKE N'" & 後台帳務彙總計算表.客戶_tb.Text & "') AND (商品 LIKE N'" & PA8 & "')"

  2325.         CmdSet_For_dr()

  2326.     End Sub

  2327.     Friend Sub SQL_後台電板紙帳查詢()

  2328.         ConnOpen_子SQL() : SQL1 = "SELECT 客戶, 商品 FROM 後台電板紙板" : CmdSet_For_DGV()

  2329.     End Sub

  2330.     Friend Sub SQL_後台紙帳流水查詢()

  2331.         ConnOpen_子SQL()

  2332.         SQL1 = "SELECT 開始日期, 結束日期, 客戶, 商品, 交收金額 FROM 後台電板紙板流水帳 

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

  2334.         CmdSet_For_DGV()

  2335.     End Sub

  2336.     Friend Sub SQL_後台電板客戶新增()

  2337.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 後台電板客戶 (客戶, 付反, 收反, 所反, 水反, 紅反) VALUES (N'" & PA43 & "', '0', '0', '0', '0', '0')" : CmdSet_For_dr()

  2338.     End Sub

  2339.     Friend Sub SQL_後台電板紙帳新增()

  2340.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 後台電板紙板 (客戶, 商品) VALUES (N'" & PA43 & "', '前期未收')" : CmdSet_For_dr()

  2341.     End Sub

  2342.     Friend Sub SQL_後台電板所得新增()

  2343.         ConnOpen_子SQL() : SQL1 = "INSERT INTO 後台電板客戶_所得 (所得戶) VALUES (N'" & PA43 & "')" : CmdSet_For_dr()

  2344.     End Sub

  2345.     Friend Sub SQL_後台紙帳流水新增()

  2346.         ConnOpen_子SQL()

  2347.         SQL1 = "INSERT INTO 後台電板紙板流水帳 (開始日期, 結束日期, 客戶, 商品, 交收金額) 

  2348.                 VALUES (N'" & Strings.Left(後台帳務彙總計算表.資料_cb.Text, 10) & "', N'', N'" & PA43 & "', N'" & PA44 & "', '0')"

  2349.         CmdSet_For_dr()

  2350.     End Sub

  2351.     Friend Sub SQL_後台電板客戶修改()

  2352.         ConnOpen_子SQL()

  2353.         SQL1 = "UPDATE 後台電板客戶 SET 付反 = N'" & BL1 & "', 收反 = N'" & BL2 & "', 所反 = N'" & BL3 & "', 水反 = N'" & BL4 & "', 紅反 = N'" & BL5 & "' WHERE (客戶 LIKE '" & PA9 & "')"

  2354.         CmdSet_For_dr()

  2355.     End Sub

  2356. End Module