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 czy' + 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_' + trim(yllb_idz) + ''' where code=''' +

trim(edt_ylbh.Text) + '''');

ExecSQL;

end;

except

Exit;

end;