Question

delphi locate的使用

With dataset.HouseAdo Do
begin
Close;
Sql.Clear;
Sql.Add('select * from House_Table');
Open;
if trim(edit1.Text)='' then
begin
Application.Messagebox('请输入楼房号','提示',MB_OK);
edit1.SetFocus;
end
else
begin
if Not Locate('楼房号',edit1.text,[loPartialKey]) then
begin
Append;
FieldByName('楼房号').AsString:=edit1.Text;
FieldbyName('楼层数').AsString:=edit2.Text;
FieldByName('房间数').AsString:=edit3.Text;
FieldByName('建筑时间').AsString:=edit4.Text;
FieldByName('建筑金额').AsString:=edit5.Text;
FieldByName('备注').AsString:=edit6.Text;
If MessageDlg('是否要把数据写入数据库中',MtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
post;
Application.Messagebox('数据已成功写入数据库','提示',MB_OK);
end
else
cancel;
end
else
Application.Messagebox('楼房号已经存在','提示');
end;
end;

为什么提示说：loPartialKey没有定义？
求解决办法？

Answer 1

你光标 移动到 Locate 这个关键字 之后 按F1 . delphi 帮助里面对于这个例子很好. 请参考!

Answer 2

With dataset.HouseAdo Do

这个什么东西?
只有dataset类才可以用locate吧.

追问

我在数据模型中设置了数据库连接和查询

追答

你起了个名字叫dataset?
unit 要加DB.
你看帮助呢.
F1之后把loPartialKey复制进去.一般都有

Answer 3

我弱了一次~！