有关报表生成器的难点问题(200分)

石光亮 · 2001-10-25

我想自己做个报表生成器，要求根据用户选择的字段，能够自动生成报表，问题是我不知道 如何自动画表格，请各位高手指教！！！

石光亮 · 2001-10-25

就是画线不知道该怎么画，如果可以参照EXCEL也可以 帮帮忙吧！

石光亮 · 2001-10-27

我想用excel来实现动态制作报表，用户选择好要打印得字段后，报表自动生成，要求报表 得字段可能是多层得，各位大侠给点意见吧！

bluerain · 2001-10-27

无论如何需要做成Wizard形式的. 最好是做成相Crystal Report形式拖放字段,不过有效性检验是个麻烦事情.

ydfq · 2001-10-27

石光亮 · 2001-10-29

用excel生成报表，表的名称像“ 行业用电分类表 ”                                2000年12月 如何实现呢？

sword_liu · 2001-10-29

石光亮 · 2001-10-31

请问有没有关于用excel动态生成报表的例子阿，或者自己画线生成报表的例子 我都急坏了，我可以再加200分的！

GZCYP · 2001-10-31

以下是本人做的一个自定义查询(可自定义查询SQL，动态参数，字段格式，字段汇总方式)，自动生成报表(可自定义报表的纸张，边距，ColumnsCount,是否分组等) 的部分代码，看是否有邦助。(自定义项目以数据表方式保存，可在界面中调用，提供为可任意扩展的功能) ////////////////////////////////////////////////////////// unit fFreeQuery; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ExtCtrls, ComCtrls, ToolWin, Grids, DBGrids, Db, DBTables, ImgList,   StdCtrls, DBCtrls, Buttons, QuickRpt, Qrctrls, Printers; type   TFreeQuery = class(TForm)     Query1: TQuery;     StatusBar1: TStatusBar;     CoolBar1: TCoolBar;     ToolBar1: TToolBar;     ToolButton1: TToolButton;     ToolButton2: TToolButton;     ToolButton3: TToolButton;     ToolButton4: TToolButton;     ToolBar2: TToolBar;     ComboBox1: TComboBox;     Label1: TLabel;     ToolButton5: TToolButton;     GroupBox1: TGroupBox;     Button1: TButton;     Button2: TButton;     SpeedButton1: TSpeedButton;     ToolButton6: TToolButton;     QuickRep1: TQuickRep;     QRBand1: TQRBand;     QR_title: TQRLabel;     QRBand2: TQRBand;     QRSysData2: TQRSysData;     QRBand3: TQRBand;     QRBand4: TQRBand;     ToolButton7: TToolButton;     ToolButton8: TToolButton;     DataSource1: TDataSource;     QRBand5: TQRBand;     QRLabel1: TQRLabel;     QRLabStat: TQRLabel;     QR_SubTitle: TQRLabel;     ToolButton9: TToolButton;     QRGroup1: TQRGroup;     QRGroupField: TQRDBText;     QRDBText1: TQRDBText;     QRLabel2: TQRLabel;     DBGrid1: TDBGrid;     QRLabel3: TQRLabel;     QRLabel4: TQRLabel;     QRLabel5: TQRLabel;     procedure ToolButton4Click(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure ToolButton1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure SpeedButton1Click(Sender: TObject);     procedure ComboBox1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure ToolButton2Click(Sender: TObject);     procedure QR_titlePrint(sender: TObject; var Value: String);     procedure ToolButton3Click(Sender: TObject);     procedure ToolButton7Click(Sender: TObject);     procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;       var PrintReport: Boolean);     procedure QR_SubTitlePrint(sender: TObject; var Value: String);     procedure ToolButton9Click(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure Query1AfterClose(DataSet: TDataSet);     procedure QRLabel4Print(sender: TObject; var Value: String);   private     { Private declarations }     Para_Label: array[0..4] of TLabel;     para_edit: array[0..4] of TEdit;     para_type: array[0..4] of string;     StatFieldCount: integer;        //汇总字段数变量     XLApp: Variant;     procedure ExecQuery;     procedure SelfDefineControl_Free();     procedure ParamsGroupBoxPosition;     function GetWidth(N: SmallInt): SmallInt;     Function Statistics: String;   public     { Public declarations }   end; var   FreeQuery: TFreeQuery; implementation uses ComObj, fFreeQueryEdit, fFreeQuery_DM, ffind, fPublic_ImageList, func_Public,   XLConst; {$R *.DFM} //////////////////////////////////////////////////////////// //              ParamsGroupBox_Position //////////////////////////////////////////////////////////// procedure TFreeQuery.ParamsGroupBoxPosition; begin GroupBox1.Left := (Width - GroupBox1.Width) div 2; GroupBox1.Top := (Height - GroupBox1.Height) div 2; end; //////////////////////////////////////////////////////////// //                 Create & Close //////////////////////////////////////////////////////////// procedure TFreeQuery.FormCreate(Sender: TObject); begin with FreeQuery_DM.Query_master do begin   //写入查询名称列表 Open; First; combobox1.items.clear; while not eof do     begin     combobox1.Items.add(FieldByName('Queryname').asstring);     next;     end;    //end while end;    //end with Quickrep1.Visible := False; SpeedButton1.Height := 24; FreeQuery_DM.Query_Parameter.open; FreeQuery_DM.Query_DisplayFormat.open; FreeQuery_DM.Query_ReportSet.open; end; procedure TFreeQuery.ToolButton4Click(Sender: TObject); begin Close; end; procedure TFreeQuery.FormClose(Sender: TObject; var Action: TCloseAction); begin FreeQuery_DM.Query_DisplayFormat.Close; FreeQuery_DM.Query_Parameter.close; FreeQuery_DM.Query_ReportSet.Close; FreeQuery_DM.Query_Master.close; SelfDefineControl_Free;        //释放动态定义控件 Query1.close; if Query1.Prepared then Query1.UnPrepare; end; //////////////////////////////////////////////////////////// //          自定义执行处理 //////////////////////////////////////////////////////////// procedure TFreeQuery.ExecQuery; var tmpSQL: string;     PCount,Fcount,i: SmallInt; begin with FreeQuery_DM do begin Query1.close; Query1.SQL.clear; tmpSQL := Query_master.FieldByName('Querystring').asstring; Query1.SQL.add(tmpSQL); try //*******************           检测参数并赋值 PCount := Query1.params.Count; if PCount > 0 then     for i:=0 to PCount-1 do         if (para_type='String') or (para_type='DateTime') then Query1.params.Value := para_edit.text         else Query1.params.Value := para_edit.text; //********************          执行SQL Query1.open; except     messagedlg('查询SQL语句可能存在错误，不能完成本次查询&统计！请检查SQL语句或与系统管理员联系。',mterror,[mbok],0); end;    //end try; //*******************           检测显示格式 Fcount := Query_DisplayFormat.RecordCount; if Fcount > 0 then   begin   Query_DisplayFormat.First;   while not Query_DisplayFormat.Eof do     begin     DBGrid1.Columns[Query_DisplayFormat['NO']].Title.Caption := Query_DisplayFormat.FieldByName('dispname').asstring;     DBGrid1.Columns[Query_DisplayFormat['NO']].Width := Query_DisplayFormat.FieldByName('dispwidth').asinteger;     DBGrid1.Columns[Query_DisplayFormat['NO']].Visible := Query_DisplayFormat.FieldByName('dispVisible').value;     if Query_DisplayFormat['dispformat'] <> Null  then       try         if (Query1.Fields[Query_DisplayFormat['NO']] is TFloatField) then           (Query1.Fields[Query_DisplayFormat['NO']] as TFloatField).DisplayFormat := Query_DisplayFormat.FieldByName('dispformat').AsString         else if (Query1.Fields[Query_DisplayFormat['NO']] is TDateTimeField) then           (Query1.Fields[Query_DisplayFormat['NO']] as TDateTimeField).DisplayFormat := Query_DisplayFormat.FieldByName('dispformat').AsString;       except Messagedlg('查询的显示格式'+Query_DisplayFormat.FieldByName('NO').AsString+                         '设置错误！',mtError,[mbok],0);       end;  //end try     Query_DisplayFormat.Next;     end;   end; end;    //end with end; //////////////////////////////////////////////////// //          自定义计算表列宽函数 //////////////////////////////////////////////////// function TFreeQuery.GetWidth(N: SmallInt): SmallInt; var sumwidth,i,ColCount: SmallInt; begin sumwidth := 0; Colcount := DBGrid1.columns.count; {计算DBGrid之可视字段的总宽度:sumwidth} for i:=0 to Colcount-1 do     if DBGrid1.Columns.Visible then sumwidth := sumwidth + DBGrid1.Columns.Width; {按比例计算当前字段的报表宽度} Result := Trunc((QRBand1.Width-Colcount)/FreeQuery_DM.Query_ReportSet['PageColumnsNumber']*DBGrid1.columns[N].Width/sumwidth) end; ///////////////////////////////////////////// //          释放动态定义控件处理 ///////////////////////////////////////////// procedure TFreeQuery.SelfDefineControl_Free; var i: SmallInt; begin for i:=0 to 4 do     begin Para_Label.Free;   para_edit.free; end; end; ////////////////////////////////////////////////////// //              自定义统计处理 ////////////////////////////////////////////////////// Function TFreeQuery.Statistics: String; var DA_FieldIndex: array of integer;//动态汇总字段index数组     DA_FieldName: array of string;  //动态汇总字段Name数组     DA_DispFormat: array of string; //动态汇总字段数据显示格式     DA_Sum: array of double;        //动态累加器数组     DA_Function: Array of string;   //动态汇总函数数组     i,k: integer;     RCount: integer;                //查询数据记录数     StatInfoStr: String; begin StatFieldCount := 0; with FreeQuery_DM.Query_DisplayFormat do begin //获取汇总字段数（StatFieldCount） First; while not Eof do     begin     if FieldByName('StatYesNo').value then inc(StatFieldCount);     next;     end; //判断是否可汇总 if StatFieldCount = 0 then result := '' else begin //设置动态数组长度 SetLength(DA_FieldIndex,StatFieldCount); SetLength(DA_FieldName,StatFieldCount); SetLength(DA_Sum,StatFieldCount); SetLength(DA_Function,StatFieldCount); SetLength(DA_DispFormat,StatFieldCount); //获取汇总字段的Index (DA_FieldIndex) RecordCount; First; k := 0; for i:=0 to RecordCount-1 do   begin   if FieldByName('StatYesNo').value then     begin     DA_FieldIndex[k] := FieldByName('NO').Value;     DA_FieldName[k] := FieldByName('DispName').AsString;     DA_Function[k] := UpperCase(FieldByName('StatFunction').AsString);     DA_DispFormat[k] := FieldByName('DispFormat').AsString;     inc(k);     end;   next;   end; end;    //end with //进行汇总处理 with Query1 do begin DisableControls; RCount := RecordCount; First; while Not Eof do   begin   for i:=0 to StatFieldCount-1 do     if DA_Function <> 'COUNT' then       begin       DA_Sum := DA_Sum + Fields[DA_FieldIndex].asfloat;       end;    //end for   Next;   end;    //end while EnableControls; end;    //end with //进行汇总显示 for i:=0 to StatFieldCount-1 do   begin   if DA_Function='SUM' then StatInfoStr := StatInfoStr+DA_FieldName+'('+DA_Function+') : '+FormatFloat(DA_DispFormat,DA_Sum)+#13+#13;   if DA_Function='COUNT' then StatInfoStr := StatInfoStr+DA_FieldName+'('+DA_Function+') : '+IntToStr(RCount)+#13+#13;   if DA_Function='AVG' then StatInfoStr := StatInfoStr+DA_FieldName+'('+DA_Function+') : '+FormatFloat(DA_DispFormat,DA_Sum/RCount)+#13+#13;   end;    //end case Result := StatInfoStr;          //返回值 end; end; //=================================================================== procedure TFreeQuery.ToolButton1Click(Sender: TObject); var FreeQueryEdit: TFreeQueryEdit; begin if TmpUser = 'SYSTEM' then begin FreeQueryEdit := TFreeQueryEdit.Create(self); FreeQueryEdit.showmodal; FreeQueryEdit.free; end else Messagedlg('本功能只有系统管理员才能使用，您无权使用！',mtwarning,[mbOK],0); end; //////////////////////////////////////////////////////// //                    执行查询处理 //////////////////////////////////////////////////////// procedure TFreeQuery.SpeedButton1Click(Sender: TObject); var PCount,i: SmallInt;            //PCount 动态参数数量 begin PCount := FreeQuery_DM.Query_parameter.RecordCount; FreeQuery_DM.Query_parameter.First; if PCount = 0 then ExecQuery else     begin     SelfDefineControl_Free;         //释放动态定义控件，重新定义     for i:=0 to PCount-1 do         begin         Para_Label := TLabel.create(self);         Para_Label.Parent := Groupbox1;         Para_Label.Height := 15;         Para_Label.Width := 90;         Para_Label.Left := 40;         Para_Label.Top := 35 + 32*i;         Para_Label.Caption := FreeQuery_DM.Query_parameter['parameterDes'];         para_type := FreeQuery_DM.Query_parameter['parametertype'];         para_edit := TEdit.create(self);         para_edit.Parent := Groupbox1;         para_edit.Height := 23;         para_edit.Width := 110;         para_edit.Left := 140;         para_edit.Top := 32 + 31*i;         FreeQuery_DM.Query_parameter.next;         end;     Button1.Top := 76 + 32*(PCount-1);     Button2.Top := 76 + 32*(PCount-1);     GroupBox1.Height := 121 + 32*(PCount-1);     ParamsGroupBoxPosition;     groupbox1.Visible := true;     end; end; ///////////////////////////////////////////////////////// //              处理StatusBar提示文字 ///////////////////////////////////////////////////////// procedure TFreeQuery.ComboBox1Click(Sender: TObject); begin FreeQuery_DM.Query_master.FindKey([combobox1.text]); statusbar1.Panels[1].Text := FreeQuery_DM.Query_master.FieldByName('QueryDes').asstring; end; procedure TFreeQuery.Button2Click(Sender: TObject); begin GroupBox1.Visible := false; end; procedure TFreeQuery.Button1Click(Sender: TObject); begin GroupBox1.Visible := false; ExecQuery; end; procedure TFreeQuery.ToolButton2Click(Sender: TObject); var find: Tfind; begin find := Tfind.create(self); find.finDataSet := DBGrid1.DataSource.DataSet; find.showmodal; find.free; end; ///////////////////////////////////////////////////////////////////// //                      打印相关处理 ///////////////////////////////////////////////////////////////////// procedure TFreeQuery.QR_titlePrint(sender: TObject; var Value: String); begin value := combobox1.text; end; procedure TFreeQuery.ToolButton3Click(Sender: TObject); /////************** var FC          : SmallInt;       //fieldcount     ColumnWidth : Integer;        //列宽变量     i, pos   : integer;     Headers     : array of TQRLabel;        //表头数组     Fields      : array of TQRDBText;        //明细变量     ShapesHeader: array of TQRShape;   //表头框数组     ShapesDetail: array of TQRShape;   //明细框数组 begin {设置纸张类型/布局 and 报表分组项目} With Quickrep1 do begin     with FreeQuery_DM do begin     {纸张类型/布局}     if Query_ReportSet['PageOrientation'] = 'poPortrait' then         Page.Orientation := poPortrait     else         Page.Orientation := poLandscape;     Page.Length := Query_ReportSet['PageHeigth'];     Page.Width := Query_ReportSet['PageWidth'];     Page.TopMargin := Query_ReportSet['PageMarginsTop'];     Page.BottomMargin := Query_ReportSet['PageMarginsBottom'];     Page.LeftMargin := Query_ReportSet['PageMarginsLeft'];     Page.RightMargin := Query_ReportSet['PageMarginsRigth'];     Page.Columns := Query_ReportSet['PageColumnsNumber'];     {报表分组项目}     if Query_ReportSet['GroupYN'] then         begin         QRBand3.Enabled := False;         QRGroup1.Enabled := True;         QRGroup1.Expression := Query_ReportSet['GroupExpression'];         QRGroupField.DataField := Query_ReportSet['GroupDisplayField'];         end     else         begin         QRBand3.Enabled := True;         QRGroup1.Enabled := False;         end;     end;    //end with end;    //end with {以下根据Query1生成报表格式} FC := DBGrid1.Columns.Count; SetLength(Headers,fc); SetLength(Fields,fc); SetLength(ShapesHeader,fc); SetLength(ShapesDetail,fc); pos := 0; for i:=0 to fc-1 do     if DBGrid1.Columns.Visible then     begin     ShapesHeader := TQRShape.create(self);     ShapesDetail := TQRShape.create(self);     Headers := TQRLabel.create(self);     Fields := TQRDBText.create(self);     if FreeQuery_DM.Query_ReportSet['GroupYN'] then  //如果分组         begin         Headers.parent := QRGroup1;         Headers.Top := 8+25;         ShapesHeader.parent := QRGroup1;         ShapesHeader.Top := 0+25;         end     else         begin         Headers.parent := QRBand3;         Headers.Top := 8;         ShapesHeader.parent := QRBand3;         ShapesHeader.Top := 0;         end;     ShapesDetail.parent := QRBand4;     Fields.parent := QRBand4;     ShapesDetail.Top := -1;     Fields.Top := 8;     ShapesHeader.height := ShapesHeader.Parent.Height + 1;     ShapesDetail.height := ShapesDetail.Parent.Height + 1;     ShapesHeader.left := pos;     ShapesDetail.left := pos;     Headers.left := pos + 2;     Fields.left := pos + 2;     ColumnWidth := GetWidth(i);     ShapesHeader.width := ColumnWidth;     ShapesDetail.width := ColumnWidth;     Headers.width := ColumnWidth - 2;     Fields.width := ColumnWidth - 2;     Headers.Bringtofront;     Fields.Bringtofront;     Headers.Caption := DBGrid1.columns.Title.Caption;     Fields.DataSet := query1;     Fields.datafield := DBGrid1.columns.FieldName;     pos := pos + ColumnWidth - 1;     end;    //end for/if //-------------------------以下打印报表 QuickRep1.Print; //-------------------------打印完毕后，需释放动态建交的组件 for i:=0 to DBGrid1.columns.Count-1 do     begin     Headers.Free;     Fields.Free;     ShapesHeader.free;     ShapesDetail.Free;     end; end; procedure TFreeQuery.ToolButton7Click(Sender: TObject); var TmpStr: string; begin TmpStr := Statistics; MessageDlg('★★★汇总信息★★★'+#13+#13+TmpStr,mtInformation,[mbok],0); end; procedure TFreeQuery.QuickRep1BeforePrint(Sender: TCustomQuickRep;   var PrintReport: Boolean); var Tmpstr: String; begin                        //写统计信息 TmpStr := Statistics; if TmpStr = '' then QRLabStat.Parent.Enabled := false else begin     QRLabStat.Parent.Enabled := true;     QRLabStat.Caption := TmpStr;     QRLabStat.Parent.Height := QRLabStat.Height;     end; end; procedure TFreeQuery.QR_SubTitlePrint(sender: TObject; var Value: String); var PCount,i: integer; begin                        //写副标题 value := ''; PCount := Query1.params.Count; if PCount > 0 then     for i:=0 to PCount-1 do         value := value+' '+Para_Label.Caption+': '+para_edit.text+' ' end; //////////////////////////////////////////////////////// //                  导出数据TO EXCEL处理 //////////////////////////////////////////////////////// procedure TFreeQuery.ToolButton9Click(Sender: TObject); var RecordCount, FieldCount, Col, Row, i: Integer;     Sheet: Variant;     EX_DisplayFormat: Array of String;      //各字段显示格式数组 begin XLApp:= CreateOleObject('Excel.Application'); XLApp.Workbooks.Add(xlWBatWorkSheet); XLApp.Workbooks[1].Sheets.add(,,1,xlworksheet); XLApp.Workbooks[1].Sheets[1].Name := ComBoBox1.Text; //*****导出数据 Query1.First; Sheet := XLApp.Workbooks[1].Sheets[1]; RecordCount := Query1.RecordCount; FieldCount := DBGrid1.Columns.Count; With FreeQuery_DM.Query_DisplayFormat do   begin      //各字段显示格式数组   SetLength(EX_DisplayFormat,Query1.FieldCount);   First;   for i:=0 to Recordcount-1 do     begin       EX_DisplayFormat[FieldByName('NO').AsInteger] := FieldByName('DispFormat').AsString;       Next;     end;   end;    //end with for Col:=1 to FieldCount do Sheet.Cells[1,Col] := DBGrid1.Columns[Col-1].Title.Caption;     //写入列标题 Query1.DisableControls;                            //写入数据 for Row:=1 to RecordCount do   begin     for Col:=1 to FieldCount do       if Pos('#',EX_DisplayFormat[Col-1])+Pos('0',EX_DisplayFormat[Col-1])+Pos('%',EX_DisplayFormat[Col-1]) > 0 then         //如果格式符中包含有'#','0','%',则认为是数值型数据         Sheet.Cells[Row+1, Col] := FormatFloat(EX_DisplayFormat[Col-1],Query1.FieldByName(DBGrid1.Columns[Col-1].FieldName).AsFloat)       else if Pos('Y',EX_DisplayFormat[Col-1])+Pos('M',EX_DisplayFormat[Col-1])+Pos('D',EX_DisplayFormat[Col-1]) > 0 then         //如果格式符中包含有'Y','M','D',则认为是日期型数据         Sheet.Cells[Row+1, Col] := FormatDateTime(EX_DisplayFormat[Col-1],Query1.FieldByName(DBGrid1.Columns[Col-1].FieldName).AsDateTime)       else Sheet.Cells[Row+1, Col] := Query1.FieldByName(DBGrid1.Columns[Col-1].FieldName).AsString;     Query1.Next;   end; Query1.EnableControls; for Col:=1 to FieldCount do                        //调整电子表格中各列的列宽     Sheet.Columns[Col].ColumnWidth := DBGrid1.Columns[Col-1].Width div 7; XLApp.Visible := True; end; ////////////////////////////////////////////////// //              释放XLAPP对象 ////////////////////////////////////////////////// procedure TFreeQuery.FormDestroy(Sender: TObject); begin if not VarIsEmpty(XLApp) then begin     XLApp.DisplayAlerts := False;  // Discard unsaved files....     XLApp.Quit; end; end; procedure TFreeQuery.Query1AfterClose(DataSet: TDataSet); begin FormDestroy(DataSet); end; procedure TFreeQuery.QRLabel4Print(sender: TObject; var Value: String); begin Value := TmpUser; end; end.

石光亮 · 2001-11-01

可现在老板要我自己画表格，即不使用这些控件，各位给我点思路吧，要求动态生成报表， 而且是行标题和竖标题都是带分组的，我不知道该建立那些类，该如何实现！

有关报表生成器的难点问题(200分)

石光亮

Unregistered / Unconfirmed

石光亮

Unregistered / Unconfirmed

石光亮

Unregistered / Unconfirmed

bluerain

Unregistered / Unconfirmed

ydfq

Unregistered / Unconfirmed

石光亮

Unregistered / Unconfirmed

sword_liu

Unregistered / Unconfirmed

石光亮

Unregistered / Unconfirmed

GZCYP

Unregistered / Unconfirmed

石光亮

Unregistered / Unconfirmed

Similar threads