先谢过了~~~
以下是权限管理的UPDATEprocedure TForm4.BitBtn5Click(Sender: TObject);
begin
with dm.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from userinfoluhq where a0190= :a');
Parameters.ParamByName('a').Value := Trim(Edit1.Text);
Open;
end;
If dm.ADOQuery1.RecordCount >0 then
begin
Application.MessageBox('操作员已经存在,请重新输入。','提示',0+64);
BitBtn4.OnClick(Sender);
Exit;
end;
Try
with dm.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('Insert userinfoluhq Values(:a , :b , :c , :d ,Default)');
Parameters.ParamByName('a').Value := Trim(Edit1.Text);
Parameters.ParamByName('b').Value := Trim(Edit2.Text);
Parameters.ParamByName('c').Value := Trim(Edit3.Text);
if Trim(ComboBox1.Text) ='系统管理员' then
Parameters.ParamByName('d').Value := '1'
else
Parameters.ParamByName('d').Value := '2';
ExecSQL;
end;
Application.MessageBox(Pchar('添加成功,操作员密码为“'+ Trim(Edit3.Text)+'”'),'提示',0+64);
BitBtn4.OnClick(Sender);
Except
begin
Application.MessageBox('系统出错。','提示',0+64);
Close;
end;
end;
with dm.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from userinfoluhq' );
Open;
end;
end;
以下是权限管理的UPDATEprocedure TForm4.BitBtn5Click(Sender: TObject);
begin
with dm.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from userinfoluhq where a0190= :a');
Parameters.ParamByName('a').Value := Trim(Edit1.Text);
Open;
end;
If dm.ADOQuery1.RecordCount >0 then
begin
Application.MessageBox('操作员已经存在,请重新输入。','提示',0+64);
BitBtn4.OnClick(Sender);
Exit;
end;
Try
with dm.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('Insert userinfoluhq Values(:a , :b , :c , :d ,Default)');
Parameters.ParamByName('a').Value := Trim(Edit1.Text);
Parameters.ParamByName('b').Value := Trim(Edit2.Text);
Parameters.ParamByName('c').Value := Trim(Edit3.Text);
if Trim(ComboBox1.Text) ='系统管理员' then
Parameters.ParamByName('d').Value := '1'
else
Parameters.ParamByName('d').Value := '2';
ExecSQL;
end;
Application.MessageBox(Pchar('添加成功,操作员密码为“'+ Trim(Edit3.Text)+'”'),'提示',0+64);
BitBtn4.OnClick(Sender);
Except
begin
Application.MessageBox('系统出错。','提示',0+64);
Close;
end;
end;
with dm.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from userinfoluhq' );
Open;
end;
end;
解决方案 »
- Delphi 获取一个可执行文件的版本号。
- 请用过 Indy 组件的朋友帮忙
- installshield与ODBC的问题?
- 我想实现在给ListBox1增加值的时侯想添加唯一的值。。。
- 奇怪问题
- 祝愿天下的母亲都健康快乐
- 我从来没有遇到过这么S板的编译器,字体这么少,而且没一种好看一些的,连最起码的Arial都没有,没一种舒服的,大家都用什么字体啊?
- 大家都用 sql server的数据倒入功能把,我想用delphi,怎么控制?
- 怎样把.dbf文件通过delphi导入sqlserver2005
- 如何设定录音控制通道(Mono Mix,stereo,线路输入)
- oracle问题,请高手指点
- sql解析算法
insert into table1 values(...)