再问个ComboBox的问题，在线等~~

dmonth在数据表中的格式为（yyyy-mm-dd)  
  在ComboBox1下拉框中显示的形式为yyyy-mm   如2005-11  
  我的ComboBox1Change如下：  
   
  procedure   TForm1.ComboBox1Change(Sender:   TObject);  
  begin  
          frPreview1.Clear;  
          ADOquery1.Close;  
          ADOquery1.SQL.Clear;  
  {  
  以下这句有问题，我想查找数据表中根据combobox1.Text显示的月份再加天数得到的结果该怎么做？如combobox1.Text显示2005-1，如何查找表中dmonth等于2005-1-1的记录？  
  }  
   
          ADOquery1.SQL.Add('select   *   from   v_areaindex   where   dmonth=to_date('''+Trim(combobox1.Text)+'-1'+''',''yyyy-mm-dd'')     order   by   code');      
  /////////////////////////////////////////////////////////////////////////////  
          ADOquery1.Open;  
          if   Report.PrepareReport   then                                                        
                  Report.ShowPreparedReport;  
                  frPreview1.PageWidth;  
  end; 问题点数：20、回复次数：1Top

1 楼longchaohui（阿龙）回复于 2005-11-17 16:02:29 得分 20

TDateTime类型的变量+1就是一天，  
  如下代码会在memo里显示当前时间，以及明天(+1后)的时间。  
  你的要求只要有个变量加上你的天数再查询就行了。  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var   t:TDateTime;  
  begin  
      t:=Now();  
      Memo1.Lines.Add(DateTimeToStr(t));  
      t:=t+1;  
      Memo1.Lines.Add(DateTimeToStr(t));  
  end;Top

相关问题

• combobox
• dmonth
• adoquery
• memo
• 显示
• yyyy
• mm
• add
• text

• 帖主：fonganzen
• longchaohui

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载