经典模式

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

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

脚本内容：

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.