首 页 开发联盟 开发培训 下载中心 相关教程 点击排行 留言 开发手册
 
用户名:     密 码:     验证码:   
 
宏达软件开发网 > 文章中心 > 系统资料 >
利用按扭脚本实现“删除录入密码”←利用按扭脚本实现“删除录入密码”

利用按扭脚本实现“删除录入密码”
发布时间: 2010/6/2 18:08:00

当确定删除一条记录时需要知道管理员的密码,如果录入正确则才可删除,如果录入不正确则提示无权删除。

具体实现:打开设计录入窗口创建按扭,然后点击右侧脚本内容打开如图

脚本内容:

var
s:string;
oform:Tform;
oLabel:TLabel;
oEdit:TEdit;
oButton:TButton;
begin
if Application.messagebox('确定删除当前记录吗?','记录删除提示',1)=1 then
begin
DataMdl_ADOQueryTemp.CLOSE;
DataMdl_ADOQueryTemp.Sql_text:='SELECT 密码 FROM  操作人员管理';
DataMdl_ADOQueryTemp.OPEN;

oform:=TForm.create(nil);
oform.BorderStyle:=bsDialog;
oform.Position:=poMainFormCenter;
oform.width:=200;
oform.height:=100;
oLabel:=TLabel.Create(oform);
oLabel.Parent:=oform;
oLabel.Left:=10;
oLabel.Top:=10;
oLabel.Caption:='请输入删除口令';
oEdit:=TEdit.Create(oform);
oEdit.Parent:=oform;
oEdit.Left:=10;
oEdit.Top:=40;
oEdit.PasswordChar:='*';
oform.ShowModal;
s:=oEdit.Text;
oform.Free;
if s=DataMdl_ADOQueryTemp.fields[0].asstring then
begin
DataMdl_Tabledoc.delete;
end
else
begin
 Application.messagebox('您没有删除当前记录的权限','记录删除提示',0)
end;
DataMdl_ADOQueryTemp.CLOSE;
end;
end.

脚本解析:

var
s:string;
oform:Tform;
oLabel:TLabel;
oEdit:TEdit;
oButton:TButton;

//以上都是上定义变量

begin
if Application.messagebox('确定删除当前记录吗?','记录删除提示',1)=1 then //弹出确定删除当前记录的对话框

begin
DataMdl_ADOQueryTemp.CLOSE;//执行关闭

DataMdl_ADOQueryTemp.Sql_text:='SELECT 密码 FROM  操作人员管理';//执行SQL获得密码

DataMdl_ADOQueryTemp.OPEN; //执行打开

oform:=TForm.create(nil);
oform.BorderStyle:=bsDialog;
oform.Position:=poMainFormCenter;
oform.width:=200;
oform.height:=100;
oLabel:=TLabel.Create(oform);
oLabel.Parent:=oform;
oLabel.Left:=10;
oLabel.Top:=10;
oLabel.Caption:='请输入删除口令';
oEdit:=TEdit.Create(oform);
oEdit.Parent:=oform;
oEdit.Left:=10;
oEdit.Top:=40;
oEdit.PasswordChar:='*';
oform.ShowModal;
//以上是定义录入密码的窗口及录入密码用*

s:=oEdit.Text;
oform.Free;
if s=DataMdl_ADOQueryTemp.fields[0].asstring then
begin
DataMdl_Tabledoc.delete;
//如要录入正确则删除

else
begin
 Application.messagebox('您没有删除当前记录的权限','记录删除提示',0)//否则弹出对话框图无权删除。
end;
DataMdl_ADOQueryTemp.CLOSE;
end;
end.

 

 


 


 

37573673
上一篇:利用按扭脚本实现“重置”下一篇:利用脚本实现自动更新数据
关于我们 | 联系方式 | 合作方式 | 相关条款 | 常见问题
公司地址:山东省聊城市振兴路西路18号楼     邮政编码:252000    客服电话:0635-8386265
版权所有:HONGDA SOFTWARE    宏达软件     鲁ICP备09000001号