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水电管理系统(十)