求大神解决问题
delphi吧
全部回复
仅看楼主
level 3
五级亚索 楼主
[Error] UInOutDetailList.pas(441): Undeclared identifier: 'PosEx'
[Error] UInOutDetailList.pas(858): Undeclared identifier: 'RzToolButton5'
[Error] UInOutDetailList.pas(858): Missing operator or semicolon
[Error] UInOutDetailList.pas(863): Missing operator or semicolon
[Error] UInOutDetailList.pas(869): Missing operator or semicolon
[Error] UInOutDetailList.pas(914): Undeclared identifier: 'RzToolButton5'
[Error] UInOutDetailList.pas(914): Missing operator or semicolon
[Error] UInOutDetailList.pas(921): Undeclared identifier: 'RzCheckBox1'
[Error] UInOutDetailList.pas(921): Missing operator or semicolon
[Error] UInOutDetailList.pas(973): Undeclared identifier: 'ADOQuery2'
[Error] UInOutDetailList.pas(974): Missing operator or semicolon
[Error] UInOutDetailList.pas(975): Missing operator or semicolon
[Error] UInOutDetailList.pas(976): Missing operator or semicolon
[Error] UInOutDetailList.pas(976): Object or class type required
[Error] UInOutDetailList.pas(976): Missing operator or semicolon
[Error] UInOutDetailList.pas(977): Missing operator or semicolon
[Error] UInOutDetailList.pas(977): Object or class type required
[Error] UInOutDetailList.pas(977): Missing operator or semicolon
[Error] UInOutDetailList.pas(978): Missing operator or semicolon
[Error] UInOutDetailList.pas(978): Object or class type required
[Error] UInOutDetailList.pas(978): Missing operator or semicolon
[Error] UInOutDetailList.pas(979): Missing operator or semicolon
[Error] UInOutDetailList.pas(1184): Undeclared identifier: 'RzToolButton5'
[Error] UInOutDetailList.pas(1184): Missing operator or semicolon
[Error] UInOutDetailList.pas(1193): Undeclared identifier: 'RzCheckBox1'
[Error] UInOutDetailList.pas(1193): Missing operator or semicolon
[Error] UInOutDetailList.pas(1241): Undeclared identifier: 'RzToolButton5'
[Error] UInOutDetailList.pas(1241): Missing operator or semicolon
[Error] UInOutDetailList.pas(1250): Undeclared identifier: 'RzCheckBox1'
[Error] UInOutDetailList.pas(1250): Missing operator or semicolon
[Error] UInOutDetailList.pas(1259): Missing operator or semicolon
[Hint] UInOutDetailList.pas(97): Private symbol 'cedit_flag' declared but never used
[Hint] UInOutDetailList.pas(98): Private symbol 'cedit_str' declared but never used
[Hint] UInOutDetailList.pas(99): Private symbol 'qry' declared but never used
[Hint] UInOutDetailList.pas(100): Private symbol 'TBL' declared but never used
[Hint] UInOutDetailList.pas(101): Private symbol 'ds' declared but never used
[Hint] UInOutDetailList.pas(102): Private symbol 'cbox' declared but never used
[Hint] UInOutDetailList.pas(103): Private symbol 'txtedit' declared but never used
[Hint] UInOutDetailList.pas(104): Private symbol 'TName' declared but never used
[Hint] UInOutDetailList.pas(107): Private symbol 'cRdCodels' declared but never used
[Fatal Error] UPurChase.pas(208): Could not compile used unit 'UInOutDetailList.pas'
[Fatal Error] UInquireMain.pas(203): Could not compile used unit 'C:\Users\94277\Desktop\装备工程中心\UInquirecInvCodeList.pas'
错误代码如上
2016年07月18日 01点07分 1
level 3
五级亚索 楼主
unit UInOutDetailList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, RzPanel, RzSplit, DBActns, ActnList, ADODB,
RzButton, ExtCtrls, StdCtrls, RzEdit, RzLabel, cxContainer, cxTextEdit,
cxMaskEdit, cxDropDownEdit, cxCalendar, Mask, DBClient,cxDBLookupComboBox,
DBCtrls, RzDBEdit, cxDBEdit, Menus, RzCommon, cxButtonEdit, RzStatus,
Provider, RzRadChk;
type
TFInOutDetailList = class(TForm)
Judgeqry: TADOQuery;
RzToolbar1: TRzToolbar;
RzToolButton10: TRzToolButton;
PopupMenu3: TPopupMenu;
MenuItem2: TMenuItem;
N3: TMenuItem;
RzMenuController1: TRzMenuController;
RzStatusBar1: TRzStatusBar;
RzStatusPane1: TRzStatusPane;
DataSource2: TDataSource;
ClientDataSet2: TClientDataSet;
DataSetProvider2: TDataSetProvider;
DetailQry: TADOQuery;
RzSplitter1: TRzSplitter;
cxGrid1: TcxGrid;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
DataSource1: TDataSource;
ClientDataSet1: TClientDataSet;
DataSetProvider1: TDataSetProvider;
MasterQry: TADOQuery;
RzPanel1: TRzPanel;
RzLabel1: TRzLabel;
RzLabel3: TRzLabel;
RzLabel4: TRzLabel;
RzLabel5: TRzLabel;
RzLabel2: TRzLabel;
RzLabel6: TRzLabel;
RzLabel7: TRzLabel;
RzDBEdit1: TRzDBEdit;
cxDBDateEdit1: TcxDBDateEdit;
RzDBMemo1: TRzDBMemo;
RzRadioButton1: TRzRadioButton;
RzRadioButton2: TRzRadioButton;
cxButtonEdit1: TcxButtonEdit;
RzDBEdit2: TRzDBEdit;
RzDBEdit5: TRzDBEdit;
cxButtonEdit2: TcxButtonEdit;
cxButtonEdit3: TcxButtonEdit;
RzDBEdit6: TRzDBEdit;
RzDBEdit7: TRzDBEdit;
cxButtonEdit4: TcxButtonEdit;
RzToolButton16: TRzToolButton;
RzToolButton17: TRzToolButton;
RzToolButton6: TRzToolButton;
RzToolButton7: TRzToolButton;
RzToolButton8: TRzToolButton;
RzToolButton9: TRzToolButton;
ADOQuery1: TADOQuery;
LSQuery: TADOQuery;
procedure RzToolButton10Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure DataSetProvider1AfterUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind);
procedure DataSetProvider1UpdateError(Sender: TObject;
DataSet: TCustomClientDataSet; E: EUpdateError;
UpdateKind: TUpdateKind; var Response: TResolverResponse);
procedure DataSetProvider1UpdateData(Sender: TObject;
DataSet: TCustomClientDataSet);
procedure DataSetProvider2AfterUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind);
procedure DataSetProvider2UpdateData(Sender: TObject;
DataSet: TCustomClientDataSet);
procedure DataSetProvider2UpdateError(Sender: TObject;
DataSet: TCustomClientDataSet; E: EUpdateError;
UpdateKind: TUpdateKind; var Response: TResolverResponse);
procedure ClientDataSet1AfterScroll(DataSet: TDataSet);
procedure RzToolButton16Click(Sender: TObject);
procedure RzToolButton17Click(Sender: TObject);
procedure RzToolButton6Click(Sender: TObject);
procedure RzToolButton7Click(Sender: TObject);
procedure RzToolButton8Click(Sender: TObject);
procedure RzToolButton9Click(Sender: TObject);
private
edit_flag:Boolean;
edit_str,strid:string;
cedit_flag:Boolean;
cedit_str,cstrid:string;
qry: array [0..10] of TADOQuery;
TBL: array [0..10] of string;
ds : array [0..10] of TDataSource;
cbox: array [0..10] of TcxLookupComboBoxProperties;
txtedit:array [0..10] of TcxTextEditProperties;
FieldStr,TName:string;
IDLS:Integer;
ccode:string;
cRdCodels,RdFlag:string;
LabIID,UFCinvCode,UFiQuantity,UFAutoID,UFEditTag,UFOldCinvCode,UFOldiQuantity,UFcProcessID,UFcSerialNo,UFiUnitCost,UFiPrice:array of string;
{ Private declarations }
public
IDSStr:string;
VType,BType,Csource:string;
IsExit:Boolean;
{ Public declarations }
end;
var
FInOutDetailList: TFInOutDetailList;
implementation
uses UDataMdl, Uyhdl, UItemList, UMainForm, UItem, UParaModule,
UInventorySelect, UProcessList;
{$R *.dfm}
procedure TFInOutDetailList.RzToolButton10Click(Sender: TObject);
begin
PBj:=False;
Close;
end;
procedure TFInOutDetailList.FormShow(Sender: TObject);
var
i:Integer;
sqlstr:string;
begin
Width:= 770;
Height:=360;
cxGrid1.Align:=alClient;
RzRadioButton2.Checked:=True;
RzRadioButton1.ReadOnly:=True;
RzRadioButton2.ReadOnly:=True;
IniCxgrid(cxGrid1DBTableView1);
with ClientDataSet1 do
begin
Close;
FieldDefs.Clear;
FieldDefs.Add('AutoId',ftInteger,0,False);
FieldDefs.Add('cInvCode',ftString,20,False);
FieldDefs.Add('cInvName',ftString,100,False);
FieldDefs.Add('cInvStd',ftString,100,False);
FieldDefs.Add('cBatch',ftString,100,False);
FieldDefs.Add('cInvCCode',ftString,100,False);
FieldDefs.Add('cDefine23',ftString,50,False);
FieldDefs.Add('Unit_Name',ftString,50,False);
FieldDefs.Add('iSQuantity',ftFloat,0,False);
FieldDefs.Add('iQuantity',ftFloat,0,False);
FieldDefs.Add('iUnitCost',ftFloat,0,False);
FieldDefs.Add('iPrice',ftFloat,0,False);
FieldDefs.Add('cItemCode',ftString,20,False);
FieldDefs.Add('cDefine22',ftString,60,False);
FieldDefs.Add('cDefine25',ftString,2000,False);
FieldDefs.Add('oper_name',ftString,60,False);
FieldDefs.Add('iPOsID',ftInteger,0,False);
FieldDefs.Add('iTrIds',ftInteger,0,False);
FieldDefs.Add('cObjCode',ftString,12,False);
FieldDefs.Add('Process_desc',ftString,50,False);
FieldDefs.Add('iDLsID',ftInteger,0,False);
FieldDefs.Add('iInquireID',ftInteger,0,False);
FieldDefs.Add('IID',ftString,20,False);
CreateDataSet;
Open;
end;
FieldStr:='';
cxGrid1DBTableView1.ClearItems;
for i:=0 to ClientDataSet1.FieldCount-1 do
begin
cxGrid1DBTableView1.CreateColumn;
cxGrid1DBTableView1.Columns[i].DataBinding.FieldName:= ClientDataSet1.Fields.Fields[i].FieldName;
FieldStr:=FieldStr+Trim(ClientDataSet1.Fields.Fields[i].FieldName)+',';
cxGrid1DBTableView1.Columns[i].Width:=80;
cxGrid1DBTableView1.Columns[i].PropertiesClassName:='TcxTextEditProperties';
cxGrid1DBTableView1.Columns[i].Properties.ValidateOnEnter:=True;
cxGrid1DBTableView1.Columns[i].Options.Editing:=False;
cxGrid1DBTableView1.Columns[i].Properties.ReadOnly:=True;
cxGrid1DBTableView1.Columns[i].Width:=80;
end;
2016年07月18日 01点07分 2
level 3
五级亚索 楼主
2016年07月18日 01点07分 3
level 6
1813254523
首先要引用StrUtils单元，即uses部分要加入StrUtils
这个你引用了没，我没有看到
2016年07月18日 02点07分 4
五级亚索
我加入了这个的SysUtils
2016年07月18日 08点07分
BambooCaep
@五级亚索 楼主眼神不太好啊
2016年07月18日 08点07分
1813254523
@五级亚索 是StrUtils，不是SysUtils
2016年07月18日 08点07分
五级亚索
@1813254523 我后来都加了啊，还是报错的
2016年07月18日 23点07分
level 3
五级亚索 楼主
来大神哟
2016年09月21日 02点09分 5
level 6
1813254523
都过了2个月了还没解决。。。
2016年09月22日 02点09分 6
五级亚索
对啊
2016年09月23日 13点09分
level 8
yc515623876
差控件 这多错误
2016年09月29日 02点09分 7
五级亚索
差哪些呢 Rz、vcl什么的都装了啊
2016年09月29日 03点09分
level 1
三条大汉
看图PosEx应该是个函数，说它未声明，找它定义的地方。RzToolButton5应该是个按钮，但是未声明，那就在TFInOutDetailList的域（字段）区间加上声明 RzToolButton5: TRzToolButton; 还有很多缺少分号之类的，缺什么就找什么加什么。
2016年09月29日 08点09分 8
五级亚索
posex已经解决了，就是rztoolbutton一声明就报错，不知道怎么搞
2016年09月29日 09点09分
三条大汉
@五级亚索 rztoolbutton5是一个控件， 在.pas文件里声明，同时窗体文件.dfm也要添加代码，也就是和窗体的层次关系。如果这样不好写，在未声明的时候在窗体上添加一个RzToolButton按钮，命名为RzToolButton5试试。
2016年09月29日 09点09分
1