carstat.pas

管理车队用车记录

if form_dm.ADOQuery_carout.RecordCount=0 then
begin
  edit1.Text:='0';
  edit2.Text:='0';
   showmessage('在此段时间内该车无用车记录！');
   abort;
end;
edit1.Text:= inttostr(form_dm.ADOQuery_carout.RecordCount);
i:=0;
allfee:=0;
with form_dm.ADOQuery_carout do
begin
  First;
  repeat
  allfee:=allfee+fieldbyname('km').AsFloat;
  Next;
  until eof;
end;
edit2.Text:=floattostr(allfee);
end;


procedure TForm_carstat.BitBtn3Click(Sender: TObject);
begin
form_carstatrep1.QRLabel6.Caption:=combobox2.Text+' 出车信息';
form_carstatrep1.QRLabel17.Caption:='('+formatdatetime('yyyy-mm-dd',datetimepicker3.date)+' 至 '+formatdatetime('yyyy-mm-dd',datetimepicker4.date)+')';
form_carstatrep1.QRLabel23.Caption:=edit1.Text;
form_carstatrep1.QRLabel24.Caption:=edit2.Text;
form_carstatrep1.QuickRep1.Preview;
end;

procedure TForm_carstat.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm_carstat.BitBtn6Click(Sender: TObject);
begin
close;
end;

procedure TForm_carstat.BitBtn9Click(Sender: TObject);
begin
close;
end;

procedure TForm_carstat.BitBtn11Click(Sender: TObject);
begin
form_carstatrep4.QRLabel6.Caption:=combobox4.Text+'总收支报表';
form_carstatrep4.QRLabel17.Caption:='('+formatdatetime('yyyy-mm-dd',datetimepicker7.date)+' 至 '+formatdatetime('yyyy-mm-dd',datetimepicker8.date)+')';
form_carstatrep4.QuickRep1.Preview;
end;

procedure TForm_carstat.BitBtn4Click(Sender: TObject);
var
allfee,allamount:double;
begin
if datetimepicker1.Date>=datetimepicker2.Date then
begin
 showmessage('请选择你一个合适的时间段！');
 abort;
end;
if combobox1.Text<>'全部' then
form_dm.ADOQuery_oil.SQL.Text:='select * from oil where car_id='''+combobox1.Text+''' and  date between '''+ formatdatetime('yyyy-mm-dd',datetimepicker1.date)+''' and '''+formatdatetime('yyyy-mm-dd',datetimepicker2.date)+'''  order by car_id;'
else
form_dm.ADOQuery_oil.SQL.Text:='select * from oil where date between '''+ formatdatetime('yyyy-mm-dd',datetimepicker1.date)+''' and '''+formatdatetime('yyyy-mm-dd',datetimepicker2.date)+'''  order by car_id;';
form_dm.ADOQuery_oil.Open;
if form_dm.ADOQuery_oil.RecordCount=0 then
begin
  edit11.Text:='0';
  edit12.Text:='0';
   showmessage('在此段时间内该车无加油记录！');
   abort;
end;
allfee:=0;
allamount:=0;
with form_dm.ADOQuery_oil do
begin
  First;
  repeat
  allfee:=allfee+fieldbyname('total').AsFloat;
  allamount:=allamount+ fieldbyname('amount').AsFloat;
  Next;
  until eof;
end;
edit11.Text:=floattostr(allamount);
edit12.Text:=floattostr(allfee);
end;

procedure TForm_carstat.BitBtn5Click(Sender: TObject);
begin
form_carstatrep2.QRLabel6.Caption:=combobox1.Text+' 加油报表';
form_carstatrep2.QRLabel17.Caption:='('+formatdatetime('yyyy-mm-dd',datetimepicker1.date)+' 至 '+formatdatetime('yyyy-mm-dd',datetimepicker2.date)+')';
form_carstatrep2.QRLabel23.Caption:=edit11.Text;
form_carstatrep2.QRLabel24.Caption:=edit12.Text;
form_carstatrep2.QuickRep1.Preview;
end;

procedure TForm_carstat.BitBtn7Click(Sender: TObject);
var
allfee:double;
begin
if datetimepicker5.Date>=datetimepicker6.Date then
begin
 showmessage('请选择你一个合适的时间段！');
 abort;
end;
if combobox3.Text<>'全部' then
form_dm.ADOQuery_repair.SQL.Text:='select * from repair where car_id='''+combobox3.Text+''' and  date between '''+ formatdatetime('yyyy-mm-dd',datetimepicker5.date)+''' and '''+formatdatetime('yyyy-mm-dd',datetimepicker6.date)+'''  order by car_id;'
else
form_dm.ADOQuery_repair.SQL.Text:='select * from repair where date between '''+ formatdatetime('yyyy-mm-dd',datetimepicker5.date)+''' and '''+formatdatetime('yyyy-mm-dd',datetimepicker6.date)+'''  order by car_id;';
form_dm.ADOQuery_repair.Open;
if form_dm.ADOQuery_repair.RecordCount=0 then
begin
  edit19.Text:='0';
   showmessage('在此段时间内该车无维修记录！');
   abort;
end;
allfee:=0;
with form_dm.ADOQuery_repair do
begin
  First;
  repeat
  allfee:=allfee+fieldbyname('total').AsFloat;
  Next;
  until eof;
end;

edit19.Text:=floattostr(allfee);
end;

procedure TForm_carstat.BitBtn8Click(Sender: TObject);
begin
form_carstatrep3.QRLabel6.Caption:=combobox3.Text+' 维修报表';
form_carstatrep3.QRLabel17.Caption:='('+formatdatetime('yyyy-mm-dd',datetimepicker5.date)+' 至 '+formatdatetime('yyyy-mm-dd',datetimepicker6.date)+')';
form_carstatrep3.QRLabel23.Caption:=edit19.Text;
form_carstatrep3.QuickRep1.Preview;
end;

procedure TForm_carstat.DBGrid1TitleClick(Column: TColumn);
var
     i:integer;
     fieldname:string;
begin//排序
     i:=Column.Index;
     if bSort=0 then
     begin
         fieldname:=DBGrid1.Columns[i].FieldName+' ASC';
         bSort:=1;
     end
     else
     begin
         fieldname:=DBGrid1.Columns[i].FieldName+' DESC';
         bSort:=0;
     end;
     if form_dm.ADOQuery_carout.SQL.Text<>'' then
     begin
     form_dm.ADOQuery_carout.open;
     form_dm.ADOQuery_carout.Sort:=fieldname;
     end;
end;


procedure TForm_carstat.DBGrid2TitleClick(Column: TColumn);
var
     i:integer;
     fieldname:string;
begin//排序
     i:=Column.Index;
     if bSort=0 then
     begin
         fieldname:=DBGrid2.Columns[i].FieldName+' ASC';
         bSort:=1;
     end
     else
     begin
         fieldname:=DBGrid2.Columns[i].FieldName+' DESC';
         bSort:=0;
     end;
       if form_dm.ADOQuery_signers.SQL.Text<>'' then
       begin
     form_dm.ADOQuery_signers.open;
     form_dm.ADOQuery_signers.Sort:=fieldname;
     end;
end;

procedure TForm_carstat.DBGrid3TitleClick(Column: TColumn);
var
     i:integer;
     fieldname:string;
begin//排序
     i:=Column.Index;
     if bSort=0 then
     begin
         fieldname:=DBGrid3.Columns[i].FieldName+' ASC';
         bSort:=1;
     end
     else
     begin
         fieldname:=DBGrid3.Columns[i].FieldName+' DESC';
         bSort:=0;
     end;
     if form_dm.ADOQuery_repair.SQL.Text<>'' then
     begin
     form_dm.ADOQuery_repair.open;
     form_dm.ADOQuery_repair.Sort:=fieldname;
     end;
end;

procedure TForm_carstat.DBGrid4TitleClick(Column: TColumn);
var
     i:integer;
     fieldname:string;
begin//排序
     i:=Column.Index;
     if bSort=0 then
     begin
         fieldname:=DBGrid4.Columns[i].FieldName+' ASC';
         bSort:=1;
     end
     else
     begin
         fieldname:=DBGrid4.Columns[i].FieldName+' DESC';
         bSort:=0;
     end;
      if form_dm.ADOQuery_common.SQL.Text<>'' then
      begin
     form_dm.ADOQuery_common.open;
     form_dm.ADOQuery_common.Sort:=fieldname;
     end;
end;
end.