2,495
社区成员
发帖
与我相关
我的任务
分享
var
Form1: TForm1;
s:string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);//显示用户资料
begin
s:='select r1_F1 as "用户工号",r1_F2 as "用户名称",r1_F3 as "用户密码"from Rule_SysUsers_Info';
with query1 do
begin
close;
sql.Clear;
sql.Add(s);
open;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);//添加用户资料
var sqlstr:string;
begin
sqlstr:='insert into Rule_SysUsers_Info(r1_F1,r1_F2,r1_F3)values(:f1,:f2,:f3)';
with query1 do
begin
close;
sql.Clear;
sql.Add(sqlstr);
Params.parambyname('f1').value:= edit1.Text;
Params.parambyname('f2').value:= edit2.Text;
Params.parambyname('f3').value:= edit3.Text;
execsql;
end;
with query1 do
begin
close;
sql.Clear;
sql.Add(s);
open;
end;
end;
end.
procedure TForm1.Button2Click(Sender: TObject);//添加用户资料
var sqlstr, s : string;
begin
s:='select r1_F1 as "用户工号",r1_F2 as "用户名称",r1_F3 as "用户密码"from Rule_SysUsers_Info';
sqlstr:='insert into Rule_SysUsers_Info (r1_F1,r1_F2,r1_F3) values(''%s'', ''%s'', ''%s'')';
sqlstr := Format(sqlstr, [edit1.Text, edit1.Text, edit1.Text]);
with query1 do
begin
close;
sql.Clear;
sql.Add(sqlstr);
execsql;
end;
with query1 do
begin
close;
sql.Clear;
sql.Add(s);
open;
end;
end;