谁知道，用Delphi实现自动编码程序怎么写？

Question

谁知道，用Delphi实现自动编码程序怎么写？我现在急用？如果知道的，能马上回答吗？最好今天晚上。谢谢了。

Answer 1

if Application.MessageBox('是否确认保存？','保存',MB_YESNO + MB_ICONQUESTION)=idYes then
    Try
      DataModuleMain.ADOConnectionMain.BeginTrans;
      if ADODataSet.FieldByName('BH').IsNull then
        begin
        ADODataSetMaxBH.Close;
        ADODataSetMaxBH.CommandText:='Select Max(bh) as maxbh from DMB_FWXM with (TabLockX)';
        ADODataSetMaxBH.Open;
        if ADODataSetMaxBH.FieldByName('maxbh').IsNull then
          ADODataSet.FieldByName('BH').AsString:='10000001'
        else
          ADODataSet.FieldByName('BH').AsFloat:=ADODataSetMaxBH.FieldByName('maxbh').AsFloat+1;
        end;
      ADODataSet.Post;
      DataModuleMain.ADOConnectionMain.CommitTrans;
      Application.MessageBox('数据保存成功!','保存',MB_OK + MB_ICONEXCLAMATION);
    Except
      DataModuleMain.ADOConnectionMain.RollbackTrans;
      Application.MessageBox('数据保存失败!','保存',MB_OK + MB_ICONWARNING);
    end;