uquanxian.pas

简单的人事工资管理系统.... 我是想下载源码菜拿来换的...呵呵~~ 版主给点面子哦~~

unit uQuanXian;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, RzPanel, RzButton, StdCtrls, RzLabel, RzRadChk, Mask,
  RzEdit;

type
  TfrmQuanXian = class(TForm)
    rzpnl1: TRzPanel;
    rzpnl2: TRzPanel;
    rzbtbtn1: TRzBitBtn;
    rzbtbtn2: TRzBitBtn;
    lbl1: TRzLabel;
    lbl2: TRzLabel;
    lbl3: TRzLabel;
    RzGpbx1: TRzGroupBox;
    RzRdbtn4: TRzRadioButton;
    RzRdbtn3: TRzRadioButton;
    RzRdbtn2: TRzRadioButton;
    RzRdbtn1: TRzRadioButton;
    edt1: TRzEdit;
    edt2: TRzEdit;
    edt3: TRzEdit;
    procedure rzbtbtn2Click(Sender: TObject);
    procedure rzbtbtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DisableSome(P:Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmQuanXian: TfrmQuanXian;

implementation

uses DataModule,U_Common,Unit1;

{$R *.dfm}

procedure TfrmQuanXian.rzbtbtn2Click(Sender: TObject);
begin
    Close;
end;



procedure TfrmQuanXian.rzbtbtn1Click(Sender: TObject);
var
  DJ:Integer;
  
  function WhichChecked:Integer;
  begin
     if RzRdbtn1.Checked then Result:=RzRdbtn1.Tag
     else if RzRdbtn2.Checked then Result:=RzRdbtn2.Tag
     else if RzRdbtn3.Checked then Result:=RzRdbtn3.Tag
     else  Result:=RzRdbtn4.Tag
  end;
begin
   if (Trim(edt1.Text)='') then
   begin
     ShowErrorMsgBox('帐号不能为空!');
     Exit;
   end;  
   if (Trim(edt2.Text)='') or (Trim(edt3.Text)='')   then
   begin
     ShowErrorMsgBox('密码不能为空!');
     Exit;
   end;  

   if (edt2.Text<>edt3.Text)   then
   begin
     ShowErrorMsgBox('两次输入的密码不一致!');
     Exit;
   end;

  OpenQuery(DataModule.DM.qryCommon,'Select * from admin where 帐号='+QuotedStr(edt1.Text)+' and 密码='+QuotedStr(edt2.Text),qmOpen);
  DJ:=DataModule.DM.qryCommon.FieldByName('等级').Value;
  //DisableSome(DJ);


  if MainForm.DengJi=0 then
  begin

      if DJ>WhichChecked then
      begin
         ShowErrorMsgBox('你的权限低了,不能更改为更高的权限!!');
         Exit;
      end;

      if DJ=WhichChecked then
          ShowTipMsgBox('你已经具有该权限,不用更改!');
      if  DJ<WhichChecked then
          if ShowYesNoMsgBox('你的权限将变小,你确定需要更改?!')=mrYes then
          begin
              DataModule.DM.qryCommon.Close;
              OpenQuery(DataModule.DM.qryCommon,'Select * from admin where 帐号='+QuotedStr(edt1.Text)+' and 密码='+QuotedStr(edt2.Text),qmOpen);
              DataModule.DM.qryCommon.Edit;
              DataModule.DM.qryCommon.FieldByName('等级').Value:=WhichChecked;
              DataModule.DM.qryCommon.Post;
              DataModule.DM.qryCommon.Close;
          end;
      end
  else
  begin
              DataModule.DM.qryCommon.Edit;
              DataModule.DM.qryCommon.FieldByName('等级').Value:=WhichChecked;
              DataModule.DM.qryCommon.Post;
              DataModule.DM.qryCommon.Close;
  end;
end;

procedure TfrmQuanXian.DisableSome(P:Integer);
begin

   if (p>3) or (p<0) then
   begin
    //RzRdbtn4.Enabled:=False;
    RzRdbtn3.Enabled:=False;
    RzRdbtn2.Enabled:=False;
    RzRdbtn1.Enabled:=False;
    Exit;
   end;
  if p<=3 then
       RzRdbtn4.Enabled:=True;
  if p<=2 then
       RzRdbtn3.Enabled:=True;
  if p<=1 then
       RzRdbtn2.Enabled:=True;
  if p=0 then
       RzRdbtn4.Enabled:=True;

end;

procedure TfrmQuanXian.FormShow(Sender: TObject);
begin
   edt1.Text:=MainForm.UserName;
   edt2.Text:=MainForm.PWD;
   edt3.Text:=edt2.Text;

   edt1.SetFocus;
   edt1.SelStart:=0;
   edt1.SelLength:=Length(edt1.Text);
end;  

end.