delphi数据库定位getbookmark

最新推荐文章于 2021-11-19 21:43:02 发布

百炼成钢百忍成佛

最新推荐文章于 2021-11-19 21:43:02 发布

阅读量2.6k

点赞数

分类专栏： delphi 文章标签： delphi 数据库 integer

本文链接：https://blog.csdn.net/beyondqd/article/details/7287422

版权

在 Delphi 应用程序中，通过Button2Click事件处理函数实现了数据库记录的定位和更新。当用户确认操作后，程序使用GetBookmark获取当前记录的书签，遍历指定范围内的记录，检查'boxnumber'字段值，若匹配则更新'inout'字段为'未出库'状态。完成后，使用FreeBookmark释放书签并显示提示消息。

摘要由CSDN通过智能技术生成

procedure Tincasement.Button2Click(Sender: TObject);
var i:integer;
    bm:pointer;
begin
if (messagedlg('确定要取消出箱吗？',mtconfirmation,[mbyes,mbno],0)=mryes)
and(Strtoint(bn.Text)>0)and (strtoint(en.Text)>0)
then
    begin
      With datafm.outbox do
        begin
          bm:=getbookmark;
          disablecontrols;
          For i:=Strtoint(bn.text) to strtoint(en.text) do
            begin
              First;
              While not eof do
                begin
                  If Fieldbyname('boxnumber').Value=i
                    then
                      begin
                        edit;
                        FieldByName('inout').value:='未出库';
                        post;
                      end;
                  nex