請教運用Table 分析自動統計數字錯誤

發表時間：2007-12-25 13:23:27

IP:220.131.xxx.xxx 訂閱

[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 的統計請教各位先進小弟的程式館錯在那裡謝謝！ =======>> 答案圖示