高手啊,救救我。 access violation at address 40028583 in module 'rtl60.bpl'.read of address ffffffff.我用DELPHI做一个用BDE连接ACCESS的数据库,并且打印数据,是不是数据多了? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 十分同意 hotzhu(非洲白脸) 很可能是某个类没有实例化 unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables;type TForm2 = class(TForm) QuickRep1: TQuickRep; Table1: TTable; Database1: TDatabase; DataSource1: TDataSource; QRBand1: TQRBand; QRExprMemo1: TQRExprMemo; private { Private declarations } public { Public declarations } end;var Form2: TForm2;implementation{$R *.dfm}end. unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, Grids, DBGrids, ComCtrls, StdCtrls, Mask, DBCtrls;type TForm1 = class(TForm) PageControl1: TPageControl; DataSource1: TDataSource; Table1: TTable; TabSheet1: TTabSheet; TabSheet2: TTabSheet; DBGrid1: TDBGrid; TabSheet3: TTabSheet; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Button1: TButton; Button2: TButton; Button3: TButton; GroupBox1: TGroupBox; Edit1: TEdit; Label6: TLabel; ComboBox1: TComboBox; Label7: TLabel; Button4: TButton; Button5: TButton; Button6: TButton; Database1: TDatabase; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin if table1.Bof=false then table1.priorend;procedure TForm1.Button2Click(Sender: TObject);begin if table1.eof=false then table1.Next;end;procedure TForm1.Button4Click(Sender: TObject);begin table1.FindKey([edit1.text]);end;procedure TForm1.Button5Click(Sender: TObject);begin form2.show; form2.QuickRep1.previewend;procedure TForm1.Button6Click(Sender: TObject);begin form2.QuickRep1.PrinterSetupend;end. 这是QuickReport的Bug,内存管理的漏洞 用quickreport不可以显示中文吗? 我用quickreport显示英文的时候是没有一点事的,后来把表改为是中文的就有问题了. quickreport显示中文不会有问题。把QuickRep1上的控件可没必要的代码都去掉, 然后试试。 preview一下, 一般不会有问题目, 然后一个一个加回去。 实际上我是没有写什么代码的.但是还是出错了.procedure TForm1.Button5Click(Sender: TObject);begin form2.show; form2.QuickRep1.previewend;这个有错吗? 是不是中间有个没有释放内存的问题,如果是我应该怎么做?但是我加了quickrep1.free后还是不行..... 想了半天没有想出来,麻烦朋友帮忙看下 循环保存WORD到数据库问题 为什么? 怎么才能使下面的语句在delphi程序中执行? Delphi!!如何用代码手工绘制报表!有打印预览[在线等待]? 创建多控件,没有显示...谢谢 大家怎样对数据库打包进安装程序? 难!看似简单,但是为什么不对? 如何将Listview中的记录数据保存到TXT文件,又该如何从该TXT文件中装入到Listview中? 100分大相送,超级难题! 请教个问题... 软件发布——————那里有免费的软件发布空间?????
很可能是某个类没有实例化
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables;type
TForm2 = class(TForm)
QuickRep1: TQuickRep;
Table1: TTable;
Database1: TDatabase;
DataSource1: TDataSource;
QRBand1: TQRBand;
QRExprMemo1: TQRExprMemo;
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation{$R *.dfm}end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, ComCtrls, StdCtrls, Mask, DBCtrls;type
TForm1 = class(TForm)
PageControl1: TPageControl;
DataSource1: TDataSource;
Table1: TTable;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
GroupBox1: TGroupBox;
Edit1: TEdit;
Label6: TLabel;
ComboBox1: TComboBox;
Label7: TLabel;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Database1: TDatabase;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
if table1.Bof=false
then table1.prior
end;procedure TForm1.Button2Click(Sender: TObject);
begin
if table1.eof=false
then table1.Next;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
table1.FindKey([edit1.text]);end;procedure TForm1.Button5Click(Sender: TObject);
begin
form2.show;
form2.QuickRep1.preview
end;procedure TForm1.Button6Click(Sender: TObject);
begin
form2.QuickRep1.PrinterSetup
end;end.
把QuickRep1上的控件可没必要的代码都去掉, 然后试试。
preview一下, 一般不会有问题目, 然后一个一个加回去。
procedure TForm1.Button5Click(Sender: TObject);
begin
form2.show;
form2.QuickRep1.preview
end;
这个有错吗?
但是我加了quickrep1.free后还是不行.....