delphi+access水电管理系统(十)

delphi+access水电管理系统(十) p; ADOQuery1.Free;
  ADOQuery2.Free;
 
  frmReport := nil;
end;

procedure TfrmReport.BitBtn2Click(Sender: TObject);
begin
  inherited;
  PrintDBGridEh1.PageHeader.CenterText.Text := PageControl1.ActivePage.Caption;
  PrintDBGridEh1.BeforeGridText.Text := '报表时间：自 '+ DateToStr(DateTimePicker1.Date)
                                      + ' 至 ' + DateToStr(DateTimePicker2.Date);
  case PageControl1.ActivePageIndex of
  0:
    begin
      PrintDBGridEh1.DBGridEh := DBGDWorkshop;

    end;
  1:
    begin
      PrintDBGridEh1.DBGridEh := DBGridEh1;
      PrintDBGridEh1.BeforeGridText.Text := '车间：' + ComboBox1.Items[ComboBox1.ItemIndex] +
                                            '   报表时间：自 '+ DateToStr(DateTimePicker1.Date) +
                                            ' 至 ' + DateToStr(DateTimePicker2.Date);
    end;
  2:
    begin
      PrintDBGridEh1.DBGridEh := DBGridEh2;
    end;
  end;
 
  PrintDBGridEh1.Preview;
end;

procedure TfrmReport.BitBtn4Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmReport.FormShow(Sender: TObject);
begin
  TempQuery := TADOQuery.Create(nil);
  Sdgl.SetConnectString(TempQuery);
  //车间列表
  GetAllWorkshop;

  DateTimePicker1.Date := Date;
  DateTimePicker2.Date := Date;
end;

procedure TfrmReport.BitBtn1Click(Sender: TObject);
var
  strSQL:   String;
  strSQL_1: String;
begin
  StartTime := DateTimePicker1.Date;
  EndTime   := DateTimePicker2.Date;

  //处理只取两位年的情况
  if Pos(DateToStr(StartTime), '-') = 3 then  //短时期格式
  begin
    strSQL := AllTotalSQL_Before + Format(AllTotalSQL_After, ['20' + DateToStr(StartTime), '20' + DateToStr(EndTime)]);
    strSQL_1 := Format(WorkshopSQLDatia, ['20' + DateToStr(StartTime), '20' + DateToStr(EndTime)]);
  end
  else
  begin
    strSQL := AllTotalSQL_Before + Format(AllTotalSQL_After, [DateToStr(StartTime), DateToStr(EndTime)]);
    strSQL_1 := Format(WorkshopSQLDatia, [DateToStr(StartTime), DateToStr(EndTime)]);
  end;

  OpenDataSet(strSQL, ADOQuery1);
  OpenDataSet(strSQL_1, ADOQuery3);
 
  If Pa

首页 上一页 7 8 9 10 11 12 下一页 尾页 10/12/12

delphi+access水电管理系统(十)由毕业论文网（www.huoyuandh.com）会员上传。