返回首页
  主页 > 编程 > delphi >

delphi2010 unidac TUniTable 添加删除数据代码

2019-03-09 09:46 阅读:114 来源:智宇SEO自媒体

  delphi2010 unidac  TUniTable   添加删除数据代码
delphi2010 unidac  TUniTable 添加删除数据代码

  上一条,下一条,添加,删除 代码如下:

//上一条
procedure TForm4.Button1Click(Sender: TObject);
begin
  if not  uniTable1.Bof then
  begin
    uniTable1.Prior;
  end;

end;
//下一条
procedure TForm4.Button2Click(Sender: TObject);
begin
  if not  uniTable1.Eof then
  begin
    uniTable1.Next;
  end;
end;
//添加
procedure TForm4.Button3Click(Sender: TObject);
begin
  ShowMessage('请输入用户名密码');
  uniTable1.Append;

end;
//删除
procedure TForm4.Button4Click(Sender: TObject);
begin
  if MessageDlg('确认要删除记录吗',mtConfirmation,[mbYes,mbNo],0)=mrYes then
  begin

    unitable1.Edit; //使数据表可以删除
    unitable1.Delete; //删除数据记录
   if unitable1.state in [dsEdit, dsInsert] then  //判断状态后再保存
    begin
      unitable1.post;
    end;
   end;

end;



返回首页