deleteuserunit.pas

教学信息管理系统是校园信息管理系统的一个有机组成部分。经过详细的需求分析

unit deleteuserUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Mask, Buttons;

type
  TdeleteuserForm = class(TForm)
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Bevel2: TBevel;
    Label2: TLabel;
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  deleteuserForm: TdeleteuserForm;

implementation

uses datamoduleUnit,mainformunit;

{$R *.dfm}

procedure TdeleteuserForm.ComboBox1Change(Sender: TObject);
begin
if (combobox1.Text<>'')  then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure TdeleteuserForm.FormCreate(Sender: TObject);
begin
with datamodule1.tablesys do
 begin
   open;
   while not eof do
      begin
      combobox1.Items.Add(fieldbyname('user').AsString);
      next;
      end;
  close;
 end;
end;

procedure TdeleteuserForm.BitBtn1Click(Sender: TObject);
begin
if combobox1.Text=mainform.user then
 begin
  messagebox (handle,'不能自己删除自己！','警告',mb_ok) ;
  combobox1.SetFocus;
  exit;
 end;
with datamodule1.Tablesys do
 begin
  open;
   if locate('user',combobox1.Text,[]) then
    begin
      edit;
       if messagebox (handle,'是否确定删除用户？','警告',mb_okcancel)=idok then
          Delete
       else exit;
      modalresult:=mrok;
    end;
  close;
  end;
end;

procedure TdeleteuserForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
datamodule1.Tablesys.Close;
end;

end.