editpower.pas

仓库出单管理系统,采用SQL数据库,功能并不强大,但在操作的方便性上花了一点功夫,对新手有一定的学习作用

unit EditPower;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzTabs, RzButton, DBCtrls, RzDBNav, RzRadChk, RzDBChk, ExtCtrls,
  StdCtrls, RzCmboBx, RzDBCmbo, Mask, RzEdit, RzDBEdit, RzPanel, DB;

type
  TEditPowerForm = class(TForm)
    RzGroupBox1: TRzGroupBox;
    RzDBEdit1: TRzDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    RzDBComboBox1: TRzDBComboBox;
    Bevel1: TBevel;
    RzDBCheckBox1: TRzDBCheckBox;
    RzDBCheckBox2: TRzDBCheckBox;
    RzDBCheckBox3: TRzDBCheckBox;
    RzDBNavigator1: TRzDBNavigator;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    Label3: TLabel;
    RzDBCheckBox4: TRzDBCheckBox;
    RzDBCheckBox5: TRzDBCheckBox;
    RzDBCheckBox6: TRzDBCheckBox;
    RzDBCheckBox7: TRzDBCheckBox;
    procedure RzDBEdit1Exit(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditPowerForm: TEditPowerForm;

implementation

uses DMUnit, MainUnit;

{$R *.dfm}

procedure TEditPowerForm.RzDBEdit1Exit(Sender: TObject);
begin
//检测是否有相同的用户名
if RzDBEdit1.Text='' then begin
   Messagebox(Handle,'对不起，用户名不能为空！','警告',MB_OK+MB_ICONWARNING);
   RzDBEdit1.SetFocus;
   RzDBEdit1.Undo;
   Exit;
end;
if (DM.ADOTableUser.State in[dsInsert]) then
Begin
 with DM.ADOQuery1 do try
     Close;
     SQL.Clear;
     SQL.Add('Select * from UserName where UserName='+''''+RzDBEdit1.Text+'''');
     Open;
     if ((DM.ADOTableUser.State in[dsEdit])and(RecordCount=1)and(AnsiLowerCase(RzDBEdit1.Text)<>AnsiLowerCase(FrmMain.LoginUser)))or
        ((DM.ADOTableUser.State in[dsInsert])and(RecordCount>0))then begin
        Messagebox(Handle,'您输入的用户名已存在，请选择其他的用户名！','警告',MB_OK+MB_ICONWARNING);
        RzDBEdit1.SetFocus;
        RzDBEdit1.Undo;
     end;
  except
  end;
End;
end;

procedure TEditPowerForm.RzBitBtn2Click(Sender: TObject);
begin
   //保存设置
   if DM.ADOTableUser.State in[dsEdit,dsInsert] then
      DM.ADOTableUser.UpdateBatch;
      DM.ADOTableUser.Requery();
   Close;
end;

procedure TEditPowerForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  //如果进行了修改，
  if DM.ADOTableUser.State in[dsEdit,dsInsert] then begin
     if Messagebox(handle,'您确定要放弃对用户权限的修改吗？','询问',MB_YESNO+MB_ICONWARNING+MB_DEFBUTTON2)=IDYES then
        CanClose:=true
     else CanClose:=false;
  end;
end;

procedure TEditPowerForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  DM.ADOTableUser.Cancel;
end;

end.