各位大哥帮我看看这个问题,出错在哪?在线等...........

                            
小弟现在要实现下面的一个功能;   
  用FlatEdit1得一个编号   形如:20060911001   然后保存在一个数据表中,  
  然后在打开的时候FlatEdit1.text的值要变成20060911002,如果明天打开的时候要是20060912001然后又是要20060912002等等...  
  小弟的代码是:  
  procedure   TNewMeal2F.getMealID();  
  begin  
  adoqGetMealID.Close;  
  adoqGetMealID.SQL.Clear;  
  adoqGetMealID.SQL.Add('select   wMealID     from   MealHead     order   by   wMealID   desc');  
  adoqGetMealID.Open;  
  adoqGetMealID.Last;  
      if   adoqGetMealID.RecordCount=0   then  
      begin  
      FEditMealID.Text:=formatdatetime('yyyymmdd',strtodate(FEditDealDate.Text))+formatfloat('000',1);  
      end  
      else  
      begin

查看回复