delphi – adoTable有问题

发布时间：2020-12-15 09:36:18 所属栏目：大数据来源：网络整理

导读：我希望能够确保如果一个表(在这种情况下是adotHours)进入编辑或插入模式并且用户单击保存按钮但意外地在已经输入的小时列下发布相同的值,则会显示一条消息请输入另一个值,否则如果用户输入不同的值,则使用另一段代码. 我尝试了以下方法,但它不起作用,– 无论

我希望能够确保如果一个表(在这种情况下是adotHours)进入编辑或插入模式并且用户单击保存按钮但意外地在已经输入的小时列下发布相同的值,则会显示一条消息请输入另一个值,否则如果用户输入不同的值,则使用另一段代码.

我尝试了以下方法,但它不起作用,– 无论用户输入消息,请输入另一个值.

procedure TfrmLabour.Button6Click(Sender: TObject);
var 
  i,j,t: String;
begin
  Edit1.Text := adotHours['Hours'];
  j :=  Edit1.Text;
  adotHours.Post;
  Edit2.Text := adotHours['Hours'];
  t := Edit2.Text;
  if t = j then 
    showmessage ('Please enter another value')
  else begin.....
end;

虽然我知道它可能不是最优雅的代码,但我的想法是,一旦通过连接的DBgrid将值发布到adotHours小时,如果它与t之前的值不同将成为新值,因此adotHours [‘Hours ‘]会有所不同,并允许其他人开始.建议？

解决方法

尝试检查 OldValue属性的输入值.

adotHours.FieldByName('Hours').OldValue

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!