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

procedure TfrmReport.DateTimePicker1CloseUp(Sender: TObject);
begin
  //DateTimePicker2.Date := DateTimePicker1.Date;
end;

procedure TfrmReport.DateTimePicker2Change(Sender: TObject);
begin
  StartTime := DateTimePicker1.Date;
  EndTime := DateTimePicker2.Date;
  If EndTime < StartTime Then
  Begin
    ShowMessage('终止日期不能小于超始日期，请重新设置！');
    DateTimePicker2.Date := StartTime;
    Exit;
  End;
end;

procedure TfrmReport.OpenDataSet(StrSQL: String;
  Temp: TADOQuery);
begin
  With Temp Do
  Begin
    Close;
    SQL.Clear;
    SQL.Text := StrSQL;
    Try
      Open;
    Except
      ShowMessage('数据集打开错！不能生成报表');
      Exit;
    End;
  End;
end;

procedure TfrmReport.GetAllWorkshop;
var
  strSelectWorkshop: String;
begin
  strSelectWorkshop := 'Select WrokShopName from WorkShop Where WorkShopLevel = 2';
  OpenDataSet(strSelectWorkshop, TempQuery);
  TempQuery.First;
  while Not TempQuery.Eof Do
  Begin
    ComboBox1.Items.Add(TempQuery.FieldByName('WrokShopName').AsString);
    TempQuery.Next;
  End;
end;

function TfrmReport.GetWorkshopID(
  WorkshopName: String): Integer;
var
  strSQL: String;
begin
  Result := 0;

  strSQL := 'Select WrokShopID from Workshop where WrokShopName = ''' + WorkshopName + '''';
  OpenDataSet(strSQL, TempQuery);
  Result := TempQuery.FieldByName('WrokShopID').AsInteger;
end;

procedure TfrmReport.BitBtn5Click(Sender: TObject);
var
  WorkshopName: String;
  WorkshopID: Integer;
  strTotalString: String;
begin
  WorkshopName := Trim(ComboBox1.Items[ComboBox1.ItemIndex]);
  If WorkshopName = '' Then
  Begin
    MessageBox (handle, '请先选择汇总车间名称！', '提示', $00000040 or MB_OK);
    Exit;
  End;

  StartTime := DateTimePicker1.Date;
  EndTime := DateTimePicker2.Date;

  WorkshopID := GetWorkshopID(WorkshopName);
  //短日期格式
  if Pos(DateToStr(StartTime), '-') = 3 then  //短时期格式
    strTotalString := AllTotalSQL_Before + Format(WorkshopTotal, ['20'+DateToStr(StartTime), '20'+DateToStr(EndTime), WorkshopID])
  else
    strTotalString := AllTotalSQL_Before + Format(WorkshopTotal, [DateToStr(StartTime), DateToStr(EndTime), WorkshopID]);

  OpenDataSet(strTotalString, ADOQuery2);
  MessageBox(Handle, pchar(WorkshopName + ' 数据汇总完成！'), '提示', MB_ICONINFORMATION or MB_OK);
end;

procedure TfrmReport.BitBtn3Click(Sender: TObject);
var
  strExpFileName: String;
begin
  if SaveDialog1.Execute then
  begin
    strExpFileName := SaveDialog1.FileName;
 &nb

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