dd

最新推荐文章于 2024-11-04 09:53:33 发布

水向东流时光怎么偷

最新推荐文章于 2024-11-04 09:53:33 发布

阅读量578

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： php

本文链接：https://blog.youkuaiyun.com/abclm/article/details/6455806

Delphi 专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的简易游戏脚本编辑器的实现方法，通过更新或插入记录的方式修改游戏脚本数据。具体操作包括读取指定ID的游戏脚本数据，当找不到对应记录时新增记录，否则更新现有记录。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TSetForm.SavebtClick(Sender: TObject);
begin
  with DataFrm.ADOQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From GameScript Where ID = 1');
    Open;
    if DataFrm.ADOQuery.RecordCount = 0 then
    begin
      Append;
      FieldbyName('FHP').Value:=trim(HPEdit1.text);
      FieldbyName('FMP').Value:=trim(MPEdit1.text);
      FieldbyName('PHP').Value:=trim(HPEdit2.text);
      FieldbyName('PMP').Value:=trim(MPEdit2.text);
      Post;
    end
    else
      begin
        Close;
        SQL.Clear;
        SQL.Add('Update GameScript Set FHP=''' + trim(HPEdit1.text) + ''',FMP=''' + trim(MPEdit1.text) + ''',PHP=''' + trim(HPEdit2.text) + ''',PMP=''' + trim(MPEdit2.text) + ''' Where ID = 1');
        ExecSQL;
      end;
  end;
  SetForm.Close;
end;