Delphi 之【Trim()、Application.MessageBox()、三层数据库修改】

RAD Studio 10.2 测试√

---

Trim函数
函数原型 function Trim(const S: string): string; 将字符串前后的空白及控制字元清掉
函数原型 function TrimLeft(const S: string): string; 将字符串左边的空白及控制字元清掉
函数原型 function TrimRight(const S: string): string; 将字符串右边的空白及控制字元清掉

注意Trim函数只能清掉字符串前后的空格及控制字元，不能清除字符串中间的空格

---

Application.MessageBox（）函数

// 信息窗口【只有一个确认按钮】
Application.MessageBox('内容不能为空', '提示', MB_OK + MB_ICONINFORMATION);

// 询问窗口【有确认和取消按钮】
case Application.MessageBox('确认提交当前已更改数据？', '提示', MB_OKCANCEL + MB_TOPMOST) of
  IDOK:// 确认修改
    begin
      ClientDataSet1.ApplyUpdates(0);
    end;
  IDCANCEL:// 取消修改
    begin

    end;
end;

[附其它常用属性]
系统默认图标，可在消息框上显示

X错误 MB_ICONHAND, MB_ICONSTOP, and MB_ICONERROR
?询问 MB_ICONQUESTION
!警告 MB_ICONEXCLAMATION and MB_ICONWARNING
i信息 MB_ICONASTERISK and MB_ICONINFORMATION

按钮的形式

MB_OK 默认
MB_OKCANCEL 确定取消
MB_YESNO 是否
MB_YESNOCANCEL 是否取消

返回值

IDCANCEL 取消被选
IDNO 否被选
IDOK 确定被选
IDYES 是被选

---

添加并提交数据

Self.ClientDataSet1.Append;                // 向数据表中添加一条信息
Self.ClientDataSet1.FieldByName('id').AsString := FrmEditXinZeng.Edit1.Text;
Self.ClientDataSet1.ApplyUpdates(0);       // 提交数据表单
// 将修改的数据提交到数据库，0表示不允许发生错误

编辑和删除数据

// 编辑
Self.ClientDataSet1.Edit;
// 删除
Self.ClientDataSet1.Delete;

---

一点点笔记，以便以后翻阅。