請教運用Table 分析自動統計數字錯誤 |
尚未結案
|
K1086
初階會員 發表:63 回覆:148 積分:42 註冊:2007-04-09 發送簡訊給我 |
[code delphi] procedure TTwn_539_Total_Fm1.FormClick(Sender: TObject); Var SQL1,STEMP:string; I:INtEGER; ALLYEAR:ARRAY[1..39] OF STRING; //一年裡各碼總次數 begin { for i :=1 to 39 do begin IF LENGTH(INTTOSTR(I))=1 THEN STEMP:='0' INTTOSTR(I) //個位數補0 ELSE STEMP:=INTTOSTR(I); SQL1:='SELECT COUNT(*) AS CTN FROM Twn_k WHERE '; SQL1:=SQL1 '(一號=''' STEMP ''') OR (二號=''' STEMP ''') OR (三號=''' STEMP ''') OR '; SQL1:=SQL1 '(四號=''' STEMP ''') OR (五號=''' STEMP ''')'; QRY_ALLTEMP.CLOSE; QRY_ALLTEMP.SQL.CLEAR; QRY_ALLTEMP.SQL.ADD(SQL1); QRY_ALLTEMP.OPEN; ALLYEAR[I]:=QRY_ALLTEMP.FIELDBYNAME('CTN').ASSTRING; end; } //總統計2007年所有開出號碼次數========================================== begin LL.CAPTION:=''; // 0頭 LM.CAPTION:=''; //1頭 LH.Caption:=''; //2頭 LOTHER.CAPTION:='';//3頭 for i :=1 to 39 do begin IF LENGTH(INTTOSTR(I))=1 THEN STEMP:='0' INTTOSTR(I) //個位數補0 ELSE STEMP:=INTTOSTR(I); SQL1:='SELECT COUNT(*) AS CTN FROM Twn_k WHERE '; SQL1:=SQL1 '(一號=''' STEMP ''') OR (二號=''' STEMP ''') OR (三號=''' STEMP ''') OR '; SQL1:=SQL1 '(四號=''' STEMP ''') OR (五號=''' STEMP ''')'; QRY_ALLTEMP.CLOSE; QRY_ALLTEMP.SQL.CLEAR; QRY_ALLTEMP.SQL.ADD(SQL1); QRY_ALLTEMP.OPEN; ALLYEAR[I]:=QRY_ALLTEMP.FIELDBYNAME('CTN').ASSTRING; end; //先刪除再新增 QRY_NOTEMP.CLOSE; QRY_NOTEMP.SQL.Clear; QRY_NOTEMP.SQL.ADD('DELETE FROM LOTTEMP WHERE NOITEM=''2007'''); QRY_NOTEMP.ExecSQL; FOR I:=1 TO 39 DO //先把1~539的數都寫到資料庫,再由資料庫排序 BEGIN QRY_NOTEMP.CLOSE; QRY_NOTEMP.SQL.Clear; QRY_NOTEMP.Params.Clear; QRY_NOTEMP.SQL.ADD('INSERT INTO LOTTEMP (NOITEM,NO539,NOTIME) '); QRY_NOTEMP.SQL.ADD(' VALUES(:NOITEM, :NO539, :NOTIME) '); QRY_NOTEMP.PARAMByName('NOITEM').ASSTRING:='2007'; IF LENGTH(INTTOSTR(I)) =1 THEN QRY_NOTEMP.PARAMByName('NO539').ASSTRING:='0' INTTOSTR(I) ELSE QRY_NOTEMP.PARAMByName('NO539').ASSTRING:=INTTOSTR(I); IF LENGTH(ALLYEAR[I]) =1 THEN QRY_NOTEMP.PARAMByName('NOTIME').ASSTRING:='0' ALLYEAR[I] ELSE QRY_NOTEMP.PARAMByName('NOTIME').ASSTRING:=ALLYEAR[I]; QRY_NOTEMP.ExecSQL; END; QRYTEMP.CLOSE; QRYTEMP.SQL.Clear; QRYTEMP.SQL.ADD('SELECT * FROM LOTTEMP WHERE '); QRYTEMP.SQL.ADD(' NOITEM=''YEAR'' '); QRYTEMP.SQL.ADD(' AND NO539 LIKE ''%1'' '); QRYTEMP.SQL.ADD(' ORDER BY NO539 '); QRYTEMP.OPEN; QRYTEMP.FIRST; LH.CAPTION:=''; LM.CAPTION:=''; LL.Caption:=''; LOTHER.CAPTION:=''; LH.CAPTION:=LH.Caption QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LM.CAPTION:=LM.Caption QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LL.CAPTION:=LL.Caption QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LOTHER.CAPTION:=LOTHER.Caption QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.CLOSE; QRYTEMP.SQL.Clear; QRYTEMP.SQL.ADD('SELECT * FROM LOTTEMP WHERE '); QRYTEMP.SQL.ADD(' NOITEM=''2007'' '); QRYTEMP.SQL.ADD(' AND NO539 LIKE ''%2'' '); QRYTEMP.SQL.ADD(' ORDER BY NO539 '); QRYTEMP.OPEN; QRYTEMP.FIRST; LH.CAPTION:=LH.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LM.CAPTION:=LM.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LL.CAPTION:=LL.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LOTHER.CAPTION:=LOTHER.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.CLOSE; QRYTEMP.SQL.Clear; QRYTEMP.SQL.ADD('SELECT * FROM LOTTEMP WHERE '); QRYTEMP.SQL.ADD(' NOITEM=''2007'' '); QRYTEMP.SQL.ADD(' AND NO539 LIKE ''%3'' '); QRYTEMP.SQL.ADD(' ORDER BY NO539 '); QRYTEMP.OPEN; QRYTEMP.FIRST; LH.CAPTION:=LH.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LM.CAPTION:=LM.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LL.CAPTION:=LL.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LOTHER.CAPTION:=LOTHER.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.CLOSE; QRYTEMP.SQL.Clear; QRYTEMP.SQL.ADD('SELECT * FROM LOTTEMP WHERE '); QRYTEMP.SQL.ADD(' NOITEM=''2007'' '); QRYTEMP.SQL.ADD(' AND NO539 LIKE ''%4'' '); QRYTEMP.SQL.ADD(' ORDER BY NO539 '); QRYTEMP.OPEN; QRYTEMP.FIRST; LH.CAPTION:=LH.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LM.CAPTION:=LM.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LL.CAPTION:=LL.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LOTHER.CAPTION:=LOTHER.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.CLOSE; QRYTEMP.SQL.Clear; QRYTEMP.SQL.ADD('SELECT * FROM LOTTEMP WHERE '); QRYTEMP.SQL.ADD(' NOITEM=''2007'' '); QRYTEMP.SQL.ADD(' AND NO539 LIKE ''%5'' '); QRYTEMP.SQL.ADD(' ORDER BY NO539 '); QRYTEMP.OPEN; QRYTEMP.FIRST; LH.CAPTION:=LH.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LM.CAPTION:=LM.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LL.CAPTION:=LL.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LOTHER.CAPTION:=LOTHER.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.CLOSE; QRYTEMP.SQL.Clear; QRYTEMP.SQL.ADD('SELECT * FROM LOTTEMP WHERE '); QRYTEMP.SQL.ADD(' NOITEM=''2007'' '); QRYTEMP.SQL.ADD(' AND NO539 LIKE ''%6'' '); QRYTEMP.SQL.ADD(' ORDER BY NO539 '); QRYTEMP.OPEN; QRYTEMP.FIRST; LH.CAPTION:=LH.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LM.CAPTION:=LM.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LL.CAPTION:=LL.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LOTHER.CAPTION:=LOTHER.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.CLOSE; QRYTEMP.SQL.Clear; QRYTEMP.SQL.ADD('SELECT * FROM LOTTEMP WHERE '); QRYTEMP.SQL.ADD(' NOITEM=''2007'' '); QRYTEMP.SQL.ADD(' AND NO539 LIKE ''%7'' '); QRYTEMP.SQL.ADD(' ORDER BY NO539 '); QRYTEMP.OPEN; QRYTEMP.FIRST; LH.CAPTION:=LH.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LM.CAPTION:=LM.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LL.CAPTION:=LL.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LOTHER.CAPTION:=LOTHER.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.CLOSE; QRYTEMP.SQL.Clear; QRYTEMP.SQL.ADD('SELECT * FROM LOTTEMP WHERE '); QRYTEMP.SQL.ADD(' NOITEM=''2007'' '); QRYTEMP.SQL.ADD(' AND NO539 LIKE ''%8'' '); QRYTEMP.SQL.ADD(' ORDER BY NO53 '); QRYTEMP.OPEN; QRYTEMP.FIRST; LH.CAPTION:=LH.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LM.CAPTION:=LM.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LL.CAPTION:=LL.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LOTHER.CAPTION:=LOTHER.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.CLOSE; QRYTEMP.SQL.Clear; QRYTEMP.SQL.ADD('SELECT * FROM LOTTEMP WHERE '); QRYTEMP.SQL.ADD(' NOITEM=''2007'' '); QRYTEMP.SQL.ADD(' AND NO539 LIKE ''%9'' '); QRYTEMP.SQL.ADD(' ORDER BY NO539 '); QRYTEMP.OPEN; QRYTEMP.FIRST; LH.CAPTION:=LH.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LM.CAPTION:=LM.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LL.CAPTION:=LL.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LOTHER.CAPTION:=LOTHER.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.CLOSE; QRYTEMP.SQL.Clear; QRYTEMP.SQL.ADD('SELECT * FROM LOTTEMP WHERE '); QRYTEMP.SQL.ADD(' NOITEM=''2007'' '); QRYTEMP.SQL.ADD(' AND NO539 LIKE ''%0'' '); QRYTEMP.SQL.ADD(' ORDER BY NO539 '); QRYTEMP.OPEN; QRYTEMP.FIRST; LH.CAPTION:=LH.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LM.CAPTION:=LM.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LL.CAPTION:=LL.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; QRYTEMP.Next; LOTHER.CAPTION:=LOTHER.Caption ' , ' QRYTEMP.FIELDBYNAME('NO539').ASSTRING ' x ' QRYTEMP.FIELDBYNAME('NOTIME').ASSTRING; end; end; [/code] =======>>小弟想研究 今彩/539 出現統計答案如下 少了8 9 0 的統計 請教各位先進 小弟的程式館錯在那裡 謝謝! =======>> 答案圖示 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |