delphi+access网络考试系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](四)

var
  Operatorfrm: TOperatorfrm;

implementation

uses Undm;

{$R *.dfm}

procedure TOperatorfrm.FormShow(Sender: TObject);
begin
if datamodule1.cDSManerge.Fields[2].Value=2 then
   tabsheet2.Enabled:=false;
end;

procedure TOperatorfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
datamodule1.CDSManerge.ApplyUpdates(-1);
action:=cafree;
end;

procedure TOperatorfrm.BitBtn5Click(Sender: TObject);
begin
close;
end;

procedure TOperatorfrm.BitBtn3Click(Sender: TObject);
begin
datamodule1.cDSManerge.Insert;

dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
dbedit3.Enabled:=true;
dbedit1.SetFocus;
end;

procedure TOperatorfrm.BitBtn4Click(Sender: TObject);
begin
datamodule1.cDSManerge.Delete;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit3.Enabled:=false;
end;

procedure TOperatorfrm.BitBtn1Click(Sender: TObject);
begin
 if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or (edit4.Text='') then
  begin
  showmessage('请完整输入你的信息，编辑框中的内容不能为空！');
  exit;
  end
 else
  if not datamodule1.cDSManerge.Locate('姓名',edit1.Text,[]) then
   //begin
   showmessage('数据库中没有这个用户名，请重新输入')
  else
    if edit2.Text=datamodule1.cDSManerge.Fields[1].Value then
      if edit3.Text=edit4.Text then
       begin
        datamodule1.cDSManerge.Edit;
        datamodule1.cDSManerge.Fields[1].Value:=edit3.Text;
        datamodule1.cDSManerge.Post;
        showmessage('你已经正确修改你的口令，请记住你的新口令！');
        e

首页 上一页 1 2 3 4 5 6 7 下一页 尾页 4/11/11