untadmin.pas

里面有EXE文件,直接运行就可以,密码也在说明文件里,如有需要可做相应的改变

unit UntAdmin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, RzDBGrid, ExtCtrls, RzButton, StdCtrls,
  cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
  Mask, RzEdit,UntExcSQL;

type
  TFrmAdmin = class(TForm)
    RzDBGrid1: TRzDBGrid;
    Bevel1: TBevel;
    BtnNew: TRzBitBtn;
    BtnEdit: TRzBitBtn;
    BtnCancel: TRzBitBtn;
    BtnSave: TRzBitBtn;
    BtnExit: TRzBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    EName: TRzEdit;
    BType: TcxComboBox;
    procedure BTypeKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure RzDBGrid1CellClick(Column: TColumn);
    procedure BtnExitClick(Sender: TObject);
    procedure BtnNewClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    //初始化窗口
    Procedure InitializationForm();
    procedure BtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    AdminID:String;
    { Public declarations }
  end;

var
  FrmAdmin: TFrmAdmin;
  ExcAdmin:TExcSQL;
  NewEdit:Boolean;
implementation

uses UntAppMDIConsts;


{$R *.dfm}
Procedure TFrmAdmin.InitializationForm();
begin
  NewEdit:=False;
  BtnSave.Enabled:=False;
  EName.Enabled:=False;
  Btype.Enabled:=False;
  EName.Text:=RzDBGrid1.Fields[0].AsString;
  BType.Text:=RzDBGrid1.Fields [1].AsString;
end;

procedure TFrmAdmin.BTypeKeyPress(Sender: TObject; var Key: Char);
begin
Key:=#0;
end;

procedure TFrmAdmin.FormCreate(Sender: TObject);
begin
  ExcAdmin:=TExcSql.create;
  Try
    ExcAdmin.SQL:='Select * from Admins ';
    ExcAdmin.ExcSQL(ExcAdmin.SQL,'Search');
    RzDBGrid1.DataSource:=ExcAdmin.DataSource;
  except
  end;
end;

procedure TFrmAdmin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 ExcAdmin.Free;
end;

procedure TFrmAdmin.FormShow(Sender: TObject);
begin
  InitializationForm()
end;

procedure TFrmAdmin.RzDBGrid1CellClick(Column: TColumn);
begin
  InitializationForm();
end;

procedure TFrmAdmin.BtnExitClick(Sender: TObject);
begin
 close;
end;

procedure TFrmAdmin.BtnNewClick(Sender: TObject);
begin
 NewEdit:=True;
 EName.Enabled:=True;
 BType.Enabled:=True;
 EName.Text:='';
 BType.Text:='';
 BtnSave.Enabled:=True;
 EName.SetFocus;
end;

procedure TFrmAdmin.BtnEditClick(Sender: TObject);
begin
 NewEdit:=False;
 EName.Enabled:=True;
 BType.Enabled:=True;
 BtnSave.Enabled:=True;
end;

procedure TFrmAdmin.BtnSaveClick(Sender: TObject);
Var
  SQL:String;
  AdminID:String;
  Str:Pansichar;
begin
  AdminID:=MaxID('Admins','AdminID');
  If TestStr(EName.Text) or TestStr(BType.Text) then
    begin
      MessageBox(Handle,'您填写的信息不完整，请检查！','系统提示',MB_OK+MB_ICONINFORMATION);
      EName.SetFocus;
      Exit;
    end;
  Try
    If NewEdit then
      begin
        SQL:='Insert Into Admins Values("'+AdminID+'","'+Trim(EName.Text)+'","'+'84213555vhuokonsqjxugyieoclwcv'+'","'+Trim(BType.Text)+'")';
        Str:='数据更新成功！该用户初始密码为000，请登陆后进入修改密码栏目修改密码！';
      end
    else
      begin
        SQL:='Update Admins Set AdminName="'+Trim(EName.Text)+'",'+ ' AdminType="'+Trim(BType.Text)+ '"' +' Where AdminID="'+ExcAdmin.ADOQuery.FieldByName('AdminID').AsString +'"';
        str:='数据更新成功！';
      end;
    try
      RunSQL(Sql,'Mod');
    except
      Exit;
    end;
    ExcAdmin.ADOQuery.Active:=False;
    ExcAdmin.ADOQuery.Active:=True;
    MessageBox(Handle,Str,'系统提示',MB_OK+MB_ICONINFORMATION);
  Finally
    InitializationForm();
  end;
end;

procedure TFrmAdmin.BtnCancelClick(Sender: TObject);
begin
If ExcAdmin.ADOQuery.FieldByName('AdminID').AsString=AdminID then
  begin
    MessageBox(Handle,'您不能删除你自己本身，请检查！','系统提示',MB_OK+MB_ICONINFORMATION);
    exit;
  end
else
  if Messagebox(handle,'您确定要删除该用户吗？','询问',MB_YESNO+MB_ICONQUESTION)=IDYES then
      ExcAdmin.ADOQuery.Delete;
end;

end.