我有一段代码，在多处地方要想使用这一段代码程式，如何实现呢，数据库为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

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