N
nt941
Unregistered / Unconfirmed
GUEST, unregistred user!
我照着书中的例子输入的代码。编译的时候在Locate函数这一行出现如下两个错误:
[error]DataUpDateUnit.pas[82]:Undeclared indentifier:'loPartialKey'
[error]DataUpDateUnit.pas[82]:Incompatible types'TLocate Option' and 'Integer'
请问应该怎么解决?本人分不多了,请原谅!谢谢!
为了大家看清全貌,我把该行(我用“//”标出的地方!)所在的整个函数抄录如下:
procedure TDataUpdateForm.Button1Click(Sender: TObject);
begin
with UpDateDataModule.StudentsTable do
begin
if SpinEdit1.Text='' then
begin
ShowMessage('请输入学号:');
SpinEdit1.SetFocus;
exit;
end;
// if not Locate('SNo',VarArrayof([spinEdit1.text]),[loPartialKey]) then //
begin
ShowMessage('无此记录,不能修改!');
exit;
end;
Edit;
FieldByName('Name').AsString:=Edit1.Text;
FieldByName('SNo').AsString:=SpinEdit1.Text;
FieldByName('Sex').AsString:=Edit3.Text;
FieldByName('Entrance').AsDateTime:=DateTimePicker1.Date;
Post;
ShowMessage('修改成功!');
end;
end;
[error]DataUpDateUnit.pas[82]:Undeclared indentifier:'loPartialKey'
[error]DataUpDateUnit.pas[82]:Incompatible types'TLocate Option' and 'Integer'
请问应该怎么解决?本人分不多了,请原谅!谢谢!
为了大家看清全貌,我把该行(我用“//”标出的地方!)所在的整个函数抄录如下:
procedure TDataUpdateForm.Button1Click(Sender: TObject);
begin
with UpDateDataModule.StudentsTable do
begin
if SpinEdit1.Text='' then
begin
ShowMessage('请输入学号:');
SpinEdit1.SetFocus;
exit;
end;
// if not Locate('SNo',VarArrayof([spinEdit1.text]),[loPartialKey]) then //
begin
ShowMessage('无此记录,不能修改!');
exit;
end;
Edit;
FieldByName('Name').AsString:=Edit1.Text;
FieldByName('SNo').AsString:=SpinEdit1.Text;
FieldByName('Sex').AsString:=Edit3.Text;
FieldByName('Entrance').AsDateTime:=DateTimePicker1.Date;
Post;
ShowMessage('修改成功!');
end;
end;