乱求大神神解决

求大神解决_百度拇指医生
&&&网友互助
?求大神解决
拇指医生提醒您:该问题下为网友贡献,仅供参考。
&br /&怎么覆盖啊&br /&
所谓覆盖 就是把你下载的文件save.dat替换你原来的save.dat
为您推荐:
您可能关注的推广
* 百度拇指医生解答内容由公立医院医生提供,不代表百度立场。
* 由于网上问答无法全面了解具体情况,回答仅供参考,如有必要建议您及时当面咨询医生求大神解决问题【delphi吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名:今日本吧第个签到,本吧因你更精彩,明天继续来努力!
本吧签到人数:0成为超级会员,使用一键签到本月漏签0次!成为超级会员,赠送8张补签卡连续签到:天&&累计签到:天超级会员单次开通12个月以上,赠送连续签到卡3张
关注:14,968贴子:
求大神解决问题收藏
[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'错误代码如上
delphi,编程其实很容易,只要你平时认真地学习,业余时间多多复习当天的知识.再认真预习下一节上的知识,上课专心听讲,一切不是问题.
unit UInOutDetailLinterfaceuses
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, RzRadCtype
TFInOutDetailList = class(TForm)
Judgeqry: TADOQ
RzToolbar1: TRzT
RzToolButton10: TRzToolB
PopupMenu3: TPopupM
MenuItem2: TMenuI
N3: TMenuI
RzMenuController1: TRzMenuC
RzStatusBar1: TRzStatusB
RzStatusPane1: TRzStatusP
DataSource2: TDataS
ClientDataSet2: TClientDataS
DataSetProvider2: TDataSetP
DetailQry: TADOQ
RzSplitter1: TRzS
cxGrid1: TcxG
cxGrid1DBTableView1: TcxGridDBTableV
cxGrid1Level1: TcxGridL
DataSource1: TDataS
ClientDataSet1: TClientDataS
DataSetProvider1: TDataSetP
MasterQry: TADOQ
RzPanel1: TRzP
RzLabel1: TRzL
RzLabel3: TRzL
RzLabel4: TRzL
RzLabel5: TRzL
RzLabel2: TRzL
RzLabel6: TRzL
RzLabel7: TRzL
RzDBEdit1: TRzDBE
cxDBDateEdit1: TcxDBDateE
RzDBMemo1: TRzDBM
RzRadioButton1: TRzRadioB
RzRadioButton2: TRzRadioB
cxButtonEdit1: TcxButtonE
RzDBEdit2: TRzDBE
RzDBEdit5: TRzDBE
cxButtonEdit2: TcxButtonE
cxButtonEdit3: TcxButtonE
RzDBEdit6: TRzDBE
RzDBEdit7: TRzDBE
cxButtonEdit4: TcxButtonE
RzToolButton16: TRzToolB
RzToolButton17: TRzToolB
RzToolButton6: TRzToolB
RzToolButton7: TRzToolB
RzToolButton8: TRzToolB
RzToolButton9: TRzToolB
ADOQuery1: TADOQ
LSQuery: TADOQ
procedure RzToolButton10Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure DataSetProvider1AfterUpdateRecord(Sender: TO
SourceDS: TDataS DeltaDS: TCustomClientDataS
UpdateKind: TUpdateKind);
procedure DataSetProvider1UpdateError(Sender: TO
DataSet: TCustomClientDataS E: EUpdateE
UpdateKind: TUpdateK var Response: TResolverResponse);
procedure DataSetProvider1UpdateData(Sender: TO
DataSet: TCustomClientDataSet);
procedure DataSetProvider2AfterUpdateRecord(Sender: TO
SourceDS: TDataS DeltaDS: TCustomClientDataS
UpdateKind: TUpdateKind);
procedure DataSetProvider2UpdateData(Sender: TO
DataSet: TCustomClientDataSet);
procedure DataSetProvider2UpdateError(Sender: TO
DataSet: TCustomClientDataS E: EUpdateE
UpdateKind: TUpdateK 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);
edit_flag:B
edit_str,strid:
cedit_flag:B
cedit_str,cstrid:
qry: array [0..10] of TADOQ
TBL: array [0..10]
ds : array [0..10] of TDataS
cbox: array [0..10] of TcxLookupComboBoxP
txtedit:array [0..10] of TcxTextEditP
FieldStr,TName:
cRdCodels,RdFlag:
LabIID,UFCinvCode,UFiQuantity,UFAutoID,UFEditTag,UFOldCinvCode,UFOldiQuantity,UFcProcessID,UFcSerialNo,UFiUnitCost,UFiPrice:
{ Private declarations }
VType,BType,Csource:
{ Public declarations }var
FInOutDetailList: TFInOutDetailLimplementationuses UDataMdl, Uyhdl, UItemList, UMainForm, UItem, UParaModule,
UInventorySelect, UProcessL{$R *.dfm}procedure TFInOutDetailList.RzToolButton10Click(Sender: TObject);begin
Cprocedure TFInOutDetailList.FormShow(Sender: TObject);var
sqlstr:begin
Width:= 770;
Height:=360;
cxGrid1.Align:=alC
RzRadioButton2.Checked:=T
RzRadioButton1.ReadOnly:=T
RzRadioButton2.ReadOnly:=T
IniCxgrid(cxGrid1DBTableView1);
with ClientDataSet1 do
FieldDefs.C
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);
CreateDataS
FieldStr:='';
cxGrid1DBTableView1.ClearI
for i:=0 to ClientDataSet1.FieldCount-1 do
cxGrid1DBTableView1.CreateC
cxGrid1DBTableView1.Columns[i].DataBinding.FieldName:= ClientDataSet1.Fields.Fields[i].FieldN
FieldStr:=FieldStr+Trim(ClientDataSet1.Fields.Fields[i].FieldName)+',';
cxGrid1DBTableView1.Columns[i].Width:=80;
cxGrid1DBTableView1.Columns[i].PropertiesClassName:='TcxTextEditProperties';
cxGrid1DBTableView1.Columns[i].Properties.ValidateOnEnter:=T
cxGrid1DBTableView1.Columns[i].Options.Editing:=F
cxGrid1DBTableView1.Columns[i].Properties.ReadOnly:=T
cxGrid1DBTableView1.Columns[i].Width:=80;
首先要引用StrUtils单元,即uses部分要加入StrUtils这个你引用了没,我没有看到
都过了2个月了还没解决。。。
看图PosEx应该是个函数,说它未声明,找它定义的地方。RzToolButton5应该是个按钮,但是未声明,那就在TFInOutDetailList的域(字段)区间加上声明 RzToolButton5: TRzToolB 还有很多缺少分号之类的,缺什么就找什么加什么。
登录百度帐号推荐应用}

我要回帖

更多关于 绝地求生大神视频 的文章

更多推荐

版权声明:文章内容来源于网络,版权归原作者所有,如有侵权请点击这里与我们联系,我们将及时删除。

点击添加站长微信