1.执行书名查询时出现:“书名”is not a valid floating poing value;
执行工号查询时出现:Translate Error.Value out of bounds.尝试转换源字段中因语法错误而停止的数据。代码如下:if CB_All.checked then //查询书名,书名是Nvrchar
begin
FilterStr:='Book_Name='''+i_AllName.Text+'''' ;
i_AllWorksheet.Clear;
end;
if CB_Allsheet.Checked then //查询工号,工单号char
begin
FilterStr:='Worksheet='''+i_AllWorksheet.Text+'''';
i_AllName.Clear;
end; if length(FilterStr)>0 then
begin
Filter:=FilterStr;
Filtered:=True;
end
else
Filtered:=False;
Open;
2.呵呵,请问QReport组件在哪里呢,我找了半天呢。我重新安装了Delphi,但还是找不到这个组件。
执行工号查询时出现:Translate Error.Value out of bounds.尝试转换源字段中因语法错误而停止的数据。代码如下:if CB_All.checked then //查询书名,书名是Nvrchar
begin
FilterStr:='Book_Name='''+i_AllName.Text+'''' ;
i_AllWorksheet.Clear;
end;
if CB_Allsheet.Checked then //查询工号,工单号char
begin
FilterStr:='Worksheet='''+i_AllWorksheet.Text+'''';
i_AllName.Clear;
end; if length(FilterStr)>0 then
begin
Filter:=FilterStr;
Filtered:=True;
end
else
Filtered:=False;
Open;
2.呵呵,请问QReport组件在哪里呢,我找了半天呢。我重新安装了Delphi,但还是找不到这个组件。
2.在View菜单中选择Component View查找
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, QuickRpt, QRCtrls, DB, DBTables;type
TF_AllReport = class(TForm)
QuickRep1: TQuickRep;
PageFooterBand1: TQRBand;
QRSysData2: TQRSysData;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRBand1: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRSysData3: TQRSysData;
QRBand2: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
Query1: TQuery;
private
{ Private declarations }
public
{ Public declarations }
end;var
F_AllReport: TF_AllReport;
implementationUses Mainwin,DataModule; {$R *.dfm}end.
/* Table: AllBook, 用于记录收书和送书总记录 */CREATE TABLE AllBook
(Book_Name NVarchar(30) NOT NULL,
Worksheet char(30) NOT NULL,
Receive_All INTEGER ,
Send_Com NVarchar(30) ,
Send_All INTEGER , /* 已送书总数*/
Send_Need INTEGER , /* 需送书总数 */
Send_Still INTEGER , /*还需要送出数量*/
Store INTEGER , /* 仓库存书*/
End_Date NVarchar(30) /*送书截止日期*/
);
GO
你在字段编辑器里面设置不对
二把QUICKREPORT装起来!
字段不对的意思是什么,那么我应该怎么改,在哪里改呢?字段编辑器是什么呢?二:把QUICKREPORT装起来是什么意思呢