如何反复使用一段代码 |
答題得分者是:kadee
|
ntjrr
高階會員 發表:240 回覆:312 積分:110 註冊:2005-04-24 發送簡訊給我 |
我有一段代码,在多处地方要想使用这一段代码程式,如何实现呢,数据库为ACCESS。
代码如下:
begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select max(流水号) from tb_brzl where 日期=:date'); ADOQuery1.Parameters.ParamByName('date').Value:=datetostr(date); ADOQuery1.Open; cwbm:=ADOQuery1.Fields[0].AsInteger 1; if cwbm=1 then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('update tb_brzl set 流水号=1'); ADOQuery1.ExecSQL; end; edit3.Text:=format('%s%.3d',[formatdatetime('yymmdd',now),cwbm]); end;这段代码本来是写在ONSHOW事件中的,我原来的做法是,要用这段代码就关一下窗口,再打开,这样ONSHOW就执行了,但窗口一闪一闪的不好看,估计也不符合编程的规则,所以前来问一下各位高手。
------
我的编程起步于ktop,我将永远支持ktop |
kadee
高階會員 發表:11 回覆:141 積分:165 註冊:2002-03-20 發送簡訊給我 |
procedure form1.adoopen;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select max(流水号) from tb_brzl where 日期=:date');
ADOQuery1.Parameters.ParamByName('date').Value:=datetostr(date);
ADOQuery1.Open;
cwbm:=ADOQuery1.Fields[0].AsInteger 1;
if cwbm=1 then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('update tb_brzl set 流水号=1');
ADOQuery1.ExecSQL;
end;
edit3.Text:=format('%s%.3d',[formatdatetime('yymmdd',now),cwbm]);
end; 要使用時call adoopen; Kadee_BigRed
------
Kadee/BigRed Ent. www.tw165.com |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |