adminedit.pas

1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包

unit AdminEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModalForm, StdCtrls, DBCtrls, ExtCtrls, Mask, Menus,
  MoveImageButton, LabelButton, ComCtrls, ToolWin, DB, ADODB;

type
  TAdminEditForm = class(TMyModalForm)
    Label1: TLabel;
    dbedtLoginName: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    dbedtName: TDBEdit;
    Label4: TLabel;
    dbckbSysSetup: TDBCheckBox;
    dbckbFillValue: TDBCheckBox;
    dbckbAWard: TDBCheckBox;
    dbckbOnline: TDBCheckBox;
    dbckbMember: TDBCheckBox;
    Label6: TLabel;
    edtPassword1: TEdit;
    dbrgPepodom: TDBRadioGroup;
    dbcboSex: TDBComboBox;
    edtPassword: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MIBtnOKClick(Sender: TObject);
    procedure MIBtnExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dbrgPepodomChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    OPType:integer;     //操作类型，0为添加，1为修改
  end;

var
  AdminEditForm: TAdminEditForm;

implementation

uses data;

{$R *.dfm}

procedure TAdminEditForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action:=caFree;
end;

procedure TAdminEditForm.MIBtnOKClick(Sender: TObject);
begin
  inherited;
  if Trim(dbedtName.Text)='' then
  begin
    ShowMessage('姓名不能为空！');
    dbedtName.SetFocus;
    exit;
  end;
  if OpType=0 then
  begin
    if DM.FindAdmin(dbedtName.Text) then
    begin
      ShowMessage('该管理员已存在，请换另外一个登陆名！');
      dbedtName.SetFocus;
      exit;
    end;
    if edtPassword.Text ='' then
    begin
      ShowMessage('口令不能为空！');
      edtPassword.SetFocus;
      exit;
    end;
    if edtPassword.Text <> edtPassword1.Text then
    begin
      ShowMessage('口令两次输入不一致，请重新输入');
      edtPassword.SetFocus;
      exit;
    end;
    DM.ADOTAdminList.FieldValues['adPassword']:=GetPassword(edtPassword.Text);
  end;
  DM.ADOTAdminList.Post;
  ModalResult:=mrOK;
end;

procedure TAdminEditForm.MIBtnExitClick(Sender: TObject);
begin
  inherited;
  DM.ADOTAdminList.Cancel;
  ModalResult:=mrCancel;
end;

procedure TAdminEditForm.FormShow(Sender: TObject);
begin
  inherited;
  if OpType=1 then
  begin
    dbedtLoginName.Enabled :=false;
    edtPassword.Enabled :=false;
    edtPassword1.Enabled :=false;
    dbedtLoginName.Color :=clGray;
    edtPassword.Color :=clGray;
    edtPassword1.Color :=clGray;
  end;
end;

procedure TAdminEditForm.dbrgPepodomChange(Sender: TObject);
begin
  inherited;
  case dbrgPepodom.ItemIndex of
  0:  begin
        dbckbOnline.Checked :=true;
        dbckbMember.Checked :=true;
        dbckbSysSetup.Checked :=true;
        dbckbFillValue.Checked :=true;
        dbckbAward.Checked :=true;
      end;
  1:  begin
        dbckbOnline.Checked :=true;
        dbckbMember.Checked :=true;
        dbckbSysSetup.Checked :=false;
        dbckbFillValue.Checked :=true;
        dbckbAward.Checked :=false;
      end;
  end;

end;

end.