Delphi6中,DataModule、QuickRep、Table三控件的结合真头痛?帮帮我、谢谢大家。 你们用的delphi6吗?在delphi5中,是可以的,但在delphi6中,我却没有设防成功。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 liao_yy() :你试试好不好?我和朋友已试过多次了 没有也不管,照写就是,只要编译能通过。delphi好像经常出这种毛病 呵呵,给你发个小的软件也可以,delphi6的也很好用的,动态的也行的,而你又是静态的,有什么不可以的? unit daying;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, QuickRpt, ExtCtrls, Qrctrls, DB, ADODB;type Tdayingform = class(TForm) QuickRep1: TQuickRep; PageHeaderBand1: TQRBand; QRLabel1: TQRLabel; ... QRLabel21: TQRLabel; DetailBand1: TQRBand; QRShape17: TQRShape; QRShape24: TQRShape; QRShape25: TQRShape; QRShape26: TQRShape; QRShape27: TQRShape; QRShape28: TQRShape; QRShape30: TQRShape; QRShape31: TQRShape; QRDBText1: TQRDBText; QRDBText3: TQRDBText; QRDBText4: TQRDBText; yssTable: TADOTable; QRDBText5: TQRDBText; QRDBText2: TQRDBText; QRDBText6: TQRDBText; QRShape5: TQRShape; private { Private declarations } public { Public declarations } end;var dayingform: Tdayingform;implementationuses Projectdatmodule;{$R *.DFM}end. object dayingform: Tdayingform Left = -4 Top = -4 Width = 808 Height = 580 Caption = 'dayingform' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Scaled = False PixelsPerInch = 96 TextHeight = 13 object QuickRep1: TQuickRep Left = -8 Top = 0 Width = 794 Height = 1123 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False DataSet = yssTable Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '宋体' Font.Style = [] Functions.Strings = ( 'PAGENUMBER' 'COLUMNNUMBER' 'REPORTTITLE') Functions.DATA = ( '0' '0' '''''') Options = [FirstPageHeader, LastPageFooter] Page.Columns = 1 Page.Orientation = poPortrait Page.PaperSize = A4 Page.Values = ( 100 2970 100 2100 100 100 0) PrinterSettings.Copies = 1 PrinterSettings.Duplex = False PrinterSettings.FirstPage = 0 PrinterSettings.LastPage = 0 PrinterSettings.OutputBin = Auto PrintIfEmpty = True SnapToGrid = True Units = MM Zoom = 100 object PageHeaderBand1: TQRBand Left = 38 Top = 38 Width = 718 Height = 78 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite ForceNewColumn = False ForceNewPage = False Size.Values = ( 206.375 1899.70833333333) BandType = rbPageHeader ...object yssTable: TADOTable Connection = ProjectDataModule.Projectconnection TableName = 'yss_ls' Left = 320 Top = 224 endend 是不是因为我用的是D版的,我又重装了D5,结果没问题,而D6就不行为什么?而且好象不只我一个人出现了这样的问题:http://www.csdn.net/expert/topic/882/882150.xml?temp=.3231623 琦哥好!知道我是谁吗?哈哈!你应该能猜出来吧!哎!你的问题解决了没有?是不是还没有解决呀?我今天从这里找了半天,通过我的一个朋友的朋友的朋友的……哎!真不知道转了多少个弯才找到一个学Delphi的,他现在还没弄清楚是怎么回事,他用的是Delphi5,他在Delphi5中试了一下很好,我把Delphi6的安装盘(比着你那张我刻了一张)给他了,想让他装上Delphi6试试。他说今天晚上装上试试看。哎,改天我再找找他看看有没有结果。有结果后我在QQ上留言给你吧!解决后给我加分呀!哈哈! 多线程内存泄漏问题 delphi 如何写入注册表 在Delphi中有没有类似于VB中的doevents函数 如何判断Image控件已赋图片? 怎样动态执行一个过程或函数?请高手指教,获得答案后,就结帖 文本文件内容插入到数据库表中 重开一帖:自定义通用对话框 怎样把StringGrid中的内容输出到文件中,并保持格式。 关于Report Machine中TRMGridReport的问题!! 帮个忙,关于mdi窗体的问题 关于TADOQuery的一个问题。 将tif文件转为bmp
interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
QuickRpt, ExtCtrls, Qrctrls, DB, ADODB;type
Tdayingform = class(TForm)
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
...
QRLabel21: TQRLabel;
DetailBand1: TQRBand;
QRShape17: TQRShape;
QRShape24: TQRShape;
QRShape25: TQRShape;
QRShape26: TQRShape;
QRShape27: TQRShape;
QRShape28: TQRShape;
QRShape30: TQRShape;
QRShape31: TQRShape;
QRDBText1: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
yssTable: TADOTable;
QRDBText5: TQRDBText;
QRDBText2: TQRDBText;
QRDBText6: TQRDBText;
QRShape5: TQRShape;
private
{ Private declarations }
public
{ Public declarations }
end;var
dayingform: Tdayingform;implementationuses Projectdatmodule;
{$R *.DFM}end.
Left = -4
Top = -4
Width = 808
Height = 580
Caption = 'dayingform'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Scaled = False
PixelsPerInch = 96
TextHeight = 13
object QuickRep1: TQuickRep
Left = -8
Top = 0
Width = 794
Height = 1123
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
DataSet = yssTable
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Functions.Strings = (
'PAGENUMBER'
'COLUMNNUMBER'
'REPORTTITLE')
Functions.DATA = (
'0'
'0'
'''''')
Options = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = A4
Page.Values = (
100
2970
100
2100
100
100
0)
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = Auto
PrintIfEmpty = True
SnapToGrid = True
Units = MM
Zoom = 100
object PageHeaderBand1: TQRBand
Left = 38
Top = 38
Width = 718
Height = 78
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
206.375
1899.70833333333)
BandType = rbPageHeader
...
object yssTable: TADOTable
Connection = ProjectDataModule.Projectconnection
TableName = 'yss_ls'
Left = 320
Top = 224
end
end
而且好象不只我一个人出现了这样的问题:http://www.csdn.net/expert/topic/882/882150.xml?temp=.3231623