unitusers.pas

来自「这是我做的一个大学院系成绩管理系统」· PAS 代码 · 共 134 行

unit UnitUsers;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ExtCtrls, Grids, DBGrids, StdCtrls, Mask, DBCtrls;

type
  TFrmUsers = class(TFrame)
    ImageBg: TImage;
    DBGridUser: TDBGrid;
    GroupEdit: TGroupBox;
    Image6: TImage;
    Image5: TImage;
    LabelUType: TLabel;
    DBEdit2: TDBEdit;
    LabelUAccount: TLabel;
    LabelUPass: TLabel;
    DBEdit1: TDBEdit;
    Image3: TImage;
    Image2: TImage;
    Image4: TImage;
    DBComboBox1: TDBComboBox;
    procedure Image2Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure GoEditState();
  end;

implementation

uses UnitDBConnect, UnitDefine;

{$R *.dfm}

procedure TFrmUsers.Image2Click(Sender: TObject);
begin
GoEditState();
FMDBConnect.ADOQueryUMan.Append;
end;


procedure TFrmUsers.GoEditState();
begin
  {进入编辑状态}
  Image2.Enabled := False;
  Image3.Enabled := False;
  Image4.Enabled := False;
  DBEdit1.Color := clWhite;
  DBEdit2.Color := clWhite;
  DBComboBox1.Color := clWhite;
  DBEdit1.Enabled := True;
  DBEdit2.Enabled := True;
  DBComboBox1.Enabled := True;
  Image5.Visible := True;
  Image6.Visible := True;
  DBEdit1.SetFocus;
end;



procedure TFrmUsers.Image5Click(Sender: TObject);
begin
  {提交数据}
  if (DBEdit1.Text<>'') and (DBEdit2.Text<>'') and (DBComboBox1.Text<>'') then
    FMDBConnect.ADOQueryUMan.Post
  else
    if messagebox(handle,'您的输入不正确（空值），放弃输入？','检查输入',mb_iconquestion+mb_yesno)=IDyes then
      FMDBConnect.ADOQueryUMan.Cancel
    else
      exit;
  Image2.Enabled := True;
  Image3.Enabled := True;
  Image4.Enabled := True;
  DBEdit1.Color := $00FFF0DC;
  DBEdit2.Color := $00FFF0DC;
  DBComboBox1.Color := $00FFF0DC;
  DBEdit1.Enabled := False;
  DBEdit2.Enabled := False;
  DBComboBox1.Enabled := False;
  Image5.Visible := False;
  Image6.Visible := False;
end;

procedure TFrmUsers.Image3Click(Sender: TObject);
begin
 if DBEdit1.Text=g_UserName then
  begin
     showmessage('你不能删除自己');
  end
 else
  begin
   if(messagebox(handle,PChar('确定删除吗?'),'删除用户',MB_ICONinformation+MB_OKCANCEL)=IDOK) then
    begin
    FMDBConnect.ADOQueryUMan.Delete;
    end;
  end;


end;

procedure TFrmUsers.Image4Click(Sender: TObject);
begin
   {修改用户}
  GoEditState();
  FMDBConnect.ADOQueryUMan.Edit;
end;

procedure TFrmUsers.Image6Click(Sender: TObject);
begin
  {放弃提交}
  FMDBConnect.ADOQueryUMan.Cancel;
  Image2.Enabled := True;
  Image3.Enabled := True;
  Image4.Enabled := True;
  DBEdit1.Color := $00FFF0DC;
  DBEdit2.Color := $00FFF0DC;
  DBComboBox1.Color := $00FFF0DC;
  DBEdit1.Enabled := False;
  DBEdit2.Enabled := False;
  DBComboBox1.Enabled := False;
  Image5.Visible := False;
  Image6.Visible := False;
end;

end.