delphi查询日期数据

1在窗体显示的时候定义时间控件显示状态 DateTimePicker1.Date:=Date-30; DateTimePicker2.Date:=Date 2.查询营业额 query1.close; query1.sql.clear; query1.sql.add('select*from月结算费用表 where 日期>:A and 日期<=:B'); query1.sql.add('order by 结帐编号 asc'); query1.ParamByName('A').AsDateTime:=DateTimePicker1.DateTime; query1.ParamByName('B').AsDateTime:=DateTimePicker2.DateTime; query1.open; query2.close; query2.sql.clear; query2.sql.add('select sum(费用)from 月结算费用信息表 where 日期>=A and 日期<=:B'); query2.ParamByName('A').AsDateTime:=DateTimePicker1.DateTime; query2.ParamByName('B').AsDateTime:=DateTimePicker2.DateTime; query2.open; lable1.caption:=Query2.Fields[0].AsString; lable2.caption:=IntToStr(Query1.RecordCount); Query2.close; 3.查询一天地 Query1.sql.add('select*from 入库where 日期=:A'); Query1.ParamByName('A').AsDateTime:=Date; 4.综合查询统计 var   str_date, str_date1: string; begin   if chk_rkrq.Checked then   begin     DateTimeToString(str_date, 'yyyymmdd', dtp_ksrq.date);     DateTimeToString(str_date1, 'yyyymmdd', dtp_jsrq.date);     dy_ksrq := Copy(Trim(str_date), 1, 4) + '年' + Copy(Trim(str_date), 5, 2) +       '月' + Copy(Trim(str_date), 7, 2) + '日';     dy_jsrq := Copy(Trim(str_date1), 1, 4) + '年' + Copy(Trim(str_date1), 5, 2) +       '月' + Copy(Trim(str_date1), 7, 2) + '日';     with qry_jhxx do     begin       close;       sql.Clear;       sql.Add('select a.jhdh,a.ghsmc,a.hwzje,b.czyxm from j_jhzdxxb a,j_xtczyb b where a.czydm=b.czyid and a.jhdh like ''%' + trim(edt_jhdh.Text) + '%''');       sql.Add(' and a.ghsmc like ''%' + trim(cbb_ghsmc.Text) +         '%'' and substring(jhdh,3,8) between ''' + str_date + ''' and ''' +         str_date1 + '''');       open;     end;   end   else     if chk_rkrq.Checked = False then     begin       with qry_jhxx do       begin         close;         sql.Clear;         sql.Add('select a.jhdh,a.ghsmc,a.hwzje,b.czyxm from j_jhzdxxb a,j_xtczyb b where a.czydm=b.czyid and a.jhdh like ''%' + trim(edt_jhdh.Text) + '%''');         sql.Add(' and a.ghsmc like ''%' + trim(cbb_ghsmc.Text) + '%''');         open;       end;     end;   stat_jhcx.Panels[0].Text := '查询信息记录数：' + inttostr(qry_jhxx.RecordCount)     + '条。'; 5.有记录就查,没就算了  if ds_xx.DataSet.State = dsinactive then   begin     exit;   end;   if ds_xx.DataSet.RecordCount = 0 then   begin     exit;   end;   jxxxw.showmodal; 6.表格中字段为0就别打了  if trim(dbgrd_czy.Columns.Grid.Fields[0].AsString) <> '' then   begin     edt_bh.Text := Trim(dbgrd_czy.DataSource.DataSet.fieldvalues['czyid']);     edt_xm.Text := Trim(dbgrd_czy.DataSource.DataSet.fieldvalues['czyxm']);     edt_bh.Enabled := False;     edt_xm.Enabled := false;     edt_qrmm.Enabled := false;   end; 7. if length(edt_bh.text) <> 5 then   begin     Application.MessageBox('编号必须为5位整数，请重新输入！', '操作员编号', MB_OK       + MB_ICONWarning);     edt_bh.SetFocus;     exit;   end;   if Trim(edt_xm.Text) = '' then   begin     Application.MessageBox('姓名不能为空，请重新输入！', '操作员姓名', MB_OK +       MB_ICONWarning);     edt_xm.SetFocus;     exit;   end;   if Trim(edt_mm.Text) = '' then   begin     Application.MessageBox('密码不能为空，请重新输入！', '操作员密码', MB_OK +       MB_ICONWarning);     edt_mm.SetFocus;     exit;   end;   if Trim(edt_mm.Text) <> Trim(edt_qrmm.Text) then   begin     Application.MessageBox('二次输入密码不同，请重新输入！', '操作员密码', MB_OK       + MB_ICONWarning);     edt_mm.SetFocus;     exit;   end;   if edt_bh.Enabled = True then   begin     if MessageBox(0,       PChar('确定信息输入无误吗？确定点击“是”，取消点击“否”！'),       '确认新增信息', MB_ICONQUESTION or MB_YESNO) = IDNO then       exit;     with qry_czy do     begin       Close;       sql.Clear;       sql.Add('insert into j_xtczyb (czyid,czyxm,czymm,czyzt,czyqx,czsj,czydm)');       sql.Add(' values(''' + trim(edt_bh.Text) + ''',''' + trim(edt_xm.Text) +         '''');       sql.Add(',''' + Encrypt(trim(edt_mm.Text), 66) +         ''',''0'',''00000000000'',CURRENT_TIMESTAMP,''' + dlidz         + ''')');       //inputbox(sql.text,sql.Text,sql.text);       ExecSQL;     end;     with jmainw.qry_xtrz do     begin       close;       sql.clear;       sql.add('insert into j_syslog values(''' + dlidz + ''',''' + dlxmz +         ''',CURRENT_TIMESTAMP,''新增操作员'')');       execsql;     end;     Application.MessageBox('新增操作员成功！', '新增', MB_OK +       MB_ICONINFORMATION);     jczyglw.FormActivate(nil);     btn_clear.Click;     exit;   end   else     if edt_qrmm.Enabled = True then     begin       if (Trim(edt_mm.Text) <> '') and (Trim(edt_qrmm.text) <> '') then       begin         if MessageBox(0, PChar('确定修改  ' + trim(edt_xm.Text) +           '  的密码吗？确定点击“是”，取消点击“否”！'), '确认密码信息',           MB_ICONQUESTION or MB_YESNO) = IDNO then           exit;         with qry_czy do         begin           close;           sql.Clear;           sql.Add('update j_xtczyb set czymm=''' + Encrypt(trim(edt_mm.Text), 66)             + '''');           sql.Add(',czsj=CURRENT_TIMESTAMP,czydm=''' + dlidz +             ''' where czyid=''' + trim(edt_bh.Text) + '''');           ExecSQL;         end;       end;       with jmainw.qry_xtrz do       begin         close;         sql.clear;         sql.add('insert into j_syslog values(''' + dlidz + ''',''' + dlxmz +           ''',CURRENT_TIMESTAMP,''修改操作员密码'')');         execsql;       end;       Application.MessageBox('修改操作员密码成功！', '修改密码', MB_OK +         MB_ICONINFORMATION);       jczyglw.FormActivate(nil);       btn_clear.Click;       exit;     end; end; 8.   with qry_ylxx do     begin       Close;       sql.Clear;       sql.Add('update ylcf set name=''' + trim(edt_ylmc.Text) + ''',zjm=''' +         trim(edt_zjm.Text) + '''');       SQL.Add(',yylb_id=''' + trim(yllb_idz) + '''  where code=''' +         trim(edt_ylbh.Text) + '''');       ExecSQL;     end;   except     Exit;   end;

转载于:https://www.cnblogs.com/chenbg2001/archive/2009/08/21/1551650.html