adminedit.pas

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

unit AdminEdit;

interface

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

type
  TForm_AdminEdit = class(TForm)
    Label6: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    E_pwd2: TEdit;
    E_pwd1: TDBEdit;
    E_Name: TDBEdit;
    E_ID: TDBEdit;
    OKBtn: TBitBtn;
    CancelBtn: TBitBtn;
    e_right: TDBLookupComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_AdminEdit: TForm_AdminEdit;

implementation

uses Admin, sharefun, data;

{$R *.dfm}

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

procedure TForm_AdminEdit.FormShow(Sender: TObject);
begin
  if Form_Admin.ADOTAdmin.State in [DsInsert] then    //insert new record
        E_ID.SetFocus
  else
  if Form_Admin.ADOTAdmin.State in [DsEdit] then      //Edit record
  begin
    E_ID.Enabled :=false;
    E_ID.ParentColor:=true;
    e_pwd2.Text :=e_pwd1.Text;
  end;

end;

procedure TForm_AdminEdit.OKBtnClick(Sender: TObject);
var
ret:boolean;
begin
  
  if Trim(e_ID.Text)='' then
  begin
    Msgerr(handle,'用户ID不能为空！');
    E_ID.SetFocus;
    exit;
  end;      

  if Trim(e_name.Text)='' then
  begin
    MsgErr(handle,'用户名不能为空！');
    e_name.SetFocus;
    exit;
  end;

  if e_pwd1.Text ='' then
  begin
      MsgErr(handle,'口令不能为空！');
      e_pwd1.SetFocus;
      exit;
  end;
  
  if e_pwd2.Text <> E_pwd1.Text then
  begin
      MsgErr(handle,'口令两次输入不一致，请重新输入！' );
      e_pwd2.SetFocus;
      exit;
  end;

  if e_right.Text='' then
  begin
      MsgErr(handle,'请指定权限！');
      e_right.SetFocus;
      exit;
  end;

  if Form_Admin.ADOTAdmin.State in [dsinsert] then    //insert new record
  begin
    //用户ID唯一
    ret:=FindAdmin(Datamod.ADOCon,'operator','operid',trim(e_id.Text));
    if ret=true then
    begin
      MsgErr(handle,'用户ID已存在，请换另外一个！' );
      e_id.SetFocus;
      exit;
    end;
    
    //如果用户名已存在时提示
    ret:=FindValue(Datamod.ADOCon,'operator','opername',trim(e_name.Text));
    if ret=true then
    begin
      if MsgQst(handle,'当前数据库中存在相同的用户名,确认增加吗?')=idno then
      begin
        e_name.SetFocus;
        exit;
      end;
    end; 
  end;
  Form_Admin.ADOTadmin.post;
  ModalResult:=mrOK;
end;

procedure TForm_AdminEdit.CancelBtnClick(Sender: TObject);
begin
  Form_Admin.ADOTAdmin.Cancel;
end;

end.