如何修改我下面的记录用户操作窗体代码啊?(0分)

  • 主题发起人 主题发起人 topdelphi
  • 开始时间 开始时间
T

topdelphi

Unregistered / Unconfirmed
GUEST, unregistred user!
我的SQL数据表结构是这样的,请问如何判断那个用户进入系统后,对系统的表无论增加或
删除修改操作,和用户的计算机名都一一自动记录下来在这个表里,我的SQL数据库里已经
新建了用户和记录两个表,当用户输入完用户名和密码进入窗体之后,
我将用户名和日期插入到操作表里,当用户触发记录集操作的时候,再
将记录插入刚刚插入进入系统的用户地方,,但是下面的记录用户操作窗体代码,只能记录
一个操作,如果例如是修改之后再删除,就出错了,相反只操作一条记录就可以,请问如何修改
啊,谢谢~~~~~~~~你们了.

//这是验证窗体的用户进入系统代码,如果正解就把用户名和代号,插入操作表里.
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.ADOQuery1.Insert;
form2.ADOQuery1.FieldByName('user_ids').AsString:=edit1.Text;
form2.ADOQuery1.FieldByName('user_names').AsString:=combobox1.Text;
form2.Show;

//这是记录用户操作窗体代码,
procedure TForm2.Button1Click(Sender: TObject);
begin
adoquery2.Delete;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
adoquery2.Edit;
adoquery2.Post;
end;

procedure TForm2.ADOQuery2BeforeEdit(DataSet: TDataSet);
begin
adoquery1.Edit;
adoquery1.FieldByName('user_edit').AsString :='用户修改操作';
adoquery1.Post;
end;

procedure TForm2.ADOQuery2BeforeDelete(DataSet: TDataSet);
begin
adoquery1.Edit;
adoquery1.FieldByName('user_del').AsString:='用户删除操作';
adoquery1.Post;
end;

end;
 

Similar threads

后退
顶部