frm_operatorsetu.pas

这是一个小区物业管理系统

unit frm_OperatorSetU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids,DB, ADODB,Config;

type
  Tfrm_operatorSet = class(TForm)
    DBGridOperator: TDBGrid;
    edt_name: TEdit;
    Btn_edit: TButton;
    btn_cancel: TButton;
    btn_add: TButton;
    Label1: TLabel;
    Label2: TLabel;
    rb_gly: TRadioButton;
    rb_czy: TRadioButton;
    btn_del: TButton;
    DataS: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_cancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGridOperatorCellClick(Column: TColumn);
    procedure Btn_editClick(Sender: TObject);
    procedure btn_addClick(Sender: TObject);
    procedure btn_delClick(Sender: TObject);
  private
    procedure FillUI;
    procedure ShowOperator;
    procedure AddNewOperator;
    procedure UpdateOperator;
    procedure Del(operatorID:integer);
  public
    { Public declarations }
  end;

var
  frm_operatorSet: Tfrm_operatorSet;

implementation

uses DataMU,Control_OperatorU,classesU;

{$R *.dfm}
procedure Tfrm_OperatorSet.Del(operatorID:integer);
begin
  if MessageBox(Handle, '你确定要增删除该用户吗?', '小区物业', MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
    begin
      if Control_OperatorU.DelOperator(operatorID) then
        MessageBox(Handle, '删除成功', '信息', MB_ICONASTERISK)
      else
        MessageBox(Handle, '删除失败', '信息', MB_ICONEXCLAMATION);
    end;
end;
procedure Tfrm_operatorSet.UpdateOperator;     //修改用户名和权限
var
  sql:string;
  operator:Toperator;
begin
  if (edt_name.Text=null) or (trim(edt_name.Text)='') then
  begin
    MessageBox(Handle, '姓名不能为空', '小区物业', MB_ICONEXCLAMATION);
    exit;
  end;

  operator:=Toperator.Create();
  operator.id:=DataS.DataSet.FieldValues['id'];
  operator.OperatorName:=trim(self.edt_Name.Text);
  if(rb_gly.Checked) then
    operator.OperatorLevel:=rb_gly.Caption
  else
    operator.OperatorLevel:=rb_czy.Caption;
  if Control_OperatorU.UpdateOperator(operator) then
    begin
      MessageBox(Handle, '修改成功', '小区物业', MB_ICONASTERISK);
      fillUI;
    end
  else
    MessageBox(Handle, '修改有误,请检查!', '小区物业', MB_ICONEXCLAMATION);
  operator:=nil;
end;
procedure Tfrm_OperatorSet.AddNewOperator;
var
  sql:string;
  operator:Toperator;
begin
  if (edt_name.Text=null) or (trim(edt_name.Text)='') then
  begin
    MessageBox(Handle, '姓名不能为空', '小区物业', MB_ICONEXCLAMATION);
    exit;
  end;

  if Control_OperatorU.SearchOperator(trim(self.edt_Name.Text)) then
    begin
    MessageBox(Handle, '姓名已经存在！请重新输入！', '小区物业', MB_ICONEXCLAMATION);
    exit;
  end;
  operator:=TOperator.Create();
  operator.OperatorName:=trim(self.edt_Name.Text);
  operator.pwd:=trim(self.edt_name.Text);  //新建用户时密码默认为用户名
  if(rb_gly.Checked) then
    operator.OperatorLevel:=rb_gly.Caption
  else
    operator.OperatorLevel:=rb_czy.Caption;
 if Control_OperatorU.AddNewOperator(operator) then
    begin
      MessageBox(Handle, '添加成功', '小区物业', MB_ICONASTERISK);
      fillUI;
    end
  else
    MessageBox(Handle, '添加失败!', '小区物业', MB_ICONEXCLAMATION);
  operator:=nil;
end;
procedure Tfrm_operatorSet.ShowOperator;
begin
  if(DataS.DataSet.FieldValues['id']<>null) then
    begin
      edt_name.Text :=DataS.DataSet.FieldValues['用户名'];
      if(DataS.DataSet.FieldValues['用户级别']='管理员')then
        rb_gly.Checked:=true
      else
        rb_czy.Checked:=true;
    end;
end;
procedure Tfrm_operatorSet.FillUI;
begin
  DataS.DataSet:=Control_OperatorU.GetOperatorArray;
  self.DBGridOperator.DataSource:=DataS;
end;
procedure Tfrm_operatorSet.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrm_operatorSet.btn_cancelClick(Sender: TObject);
begin
close;
end;

procedure Tfrm_operatorSet.FormShow(Sender: TObject);
begin

FillUI;
end;

procedure Tfrm_operatorSet.DBGridOperatorCellClick(Column: TColumn);
begin
ShowOperator;
end;

procedure Tfrm_operatorSet.Btn_editClick(Sender: TObject);
begin
UpdateOperator;
end;

procedure Tfrm_operatorSet.btn_addClick(Sender: TObject);
begin
if MessageBox(Handle, '你确定要增加该用户吗?', '小区物业', MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
  AddNewOperator;
end;

procedure Tfrm_operatorSet.btn_delClick(Sender: TObject);
var
  operatorID:integer;
begin
if DataS.DataSet.FieldByName('id').Value<>null then
    begin
      operatorID:=DataS.DataSet.FieldByName('id').Value;
      del(operatorID);
      FillUI;
    end
else
  MessageBox(Handle, '请选择要删除的用户', '信息', MB_ICONEXCLAMATION);
end;

end.