跪弇攬衭ㄛ扂踏毞菴珨棒扠ワ懂涴跺蹦抭ㄛ覜橇竭祥渣ㄛ恀珨跺晤瘍苤恀枙ㄛ洷咡湮模堆堆扂ㄐ郅郅ㄐ |
|
答題得分者是：T.J.B
|
|
200210
一般會員   發表：6 回覆：2 積分：1 註冊：2002-10-25 發送簡訊給我 |
扂婓酕珨跺眥馱腔腎暮暮翹ㄐワ恀珨狟ㄛ崋繫晤瘍堤珋⺼ㄩFH001ㄛFH002ㄛ涴欴腔晤瘍儸ˋ
扂迡腔最唗岆ㄩ曹傖賸FH001ㄛFH0011ㄛFH00111涴跺蜆⺼睡域挼ㄐ
⺼彆扂參
s:=adoquery2.fieldbyname('sumr').AsString '1';
涴曆遙傖賸s:=adoquery2.fieldvalues['sumr'] 1;晤瘍憩曹傖賸
FH1ㄛFH2ㄛFH3﹝﹝涴欴ㄛ
⺼彆婓遙珨笱迡楊ㄛ衱曹傖賸FH001ㄛFH002ㄛ筍岆善賸菴10沭暮翹ㄛ曹傖賸FH0010ㄛ奧祥岆扂砑腕善腔FH010ㄐ
var
s:string;
begin
if adoquery1.Eof then //絞暮翹峈諾奀緊ㄛ氝樓菴珨沭暮翹
begin
adoquery1.Append;
adoquery1.FieldByName('ID').AsString:='FH' '001';
end
else
with adoquery2 do
begin
close; //梑堤桶郔湮硉ㄛ甜濛數樓珨ㄛ
sql.Clear;
sql.Add('select max(right(id,3)) as sumr from 桶');
open;
s:=adoquery2.fieldbyname('sumr').AsString '1';
adoquery1.Insert;
adoquery1.FieldByName('id').AsString:='FH' s;
end; 發表人 - 200210 於 2002/10/25 15:37:58
|
|
T.J.B
版主  發表：29 回覆：532 積分：497 註冊：2002-08-14 發送簡訊給我 |
改成這樣
var
s:string;
begin
if adoquery1.Eof then //當記錄為空時候，添加第一條記錄
begin
adoquery1.Append;
adoquery1.FieldByName('ID').AsString:='FH' '001';
end
else
with adoquery2 do
begin
close; //找出表最大值，並累計加一，
sql.Clear;
sql.Add('select max(right(id,3)) as sumr from 表');
open;
s:=inttostr(Strtoint(adoquery2.fieldbyname('sumr').AsString) 1);
adoquery1.Insert;
if length(s) = 1 then
adoquery1.FieldByName('id').AsString:='FH00' s
else if length(s) = 2 then
adoquery1.FieldByName('id').AsString:='FH0' s
else if length(s) = 3 then
adoquery1.FieldByName('id').AsString:='FH' s;
end;
回首來時路
也無風雨也無晴~~@.@
------
天行健 君子當自強不息~~@.@ |
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
發表時間：2002-10-25 15:35:29
IP:61.141.xxx.xxx 未訂閱
系統時間：2024-05-15 20:32:41
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |