bassmessage_user.pas

商场管理系统源码 一套值得初学者学习的源码包含全部源码,控件

unit BASSMESSAGE_USER;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FRMBASSMESSAGE, DB, DBTables, ImgList, MenuBar, ComCtrls, Grids,
  DBGrids, ToolWin, ExtCtrls, StdCtrls ,myself,frmmain;

type
  TFrm_bassmessage_user = class(TFrm_bassmessage)
    Query_del: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure TB_addClick(Sender: TObject);
    procedure TB_EDITClick(Sender: TObject);
    procedure TB_DELClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    B_create:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_bassmessage_user: TFrm_bassmessage_user;

implementation

uses EDIT_USER;
{$R *.dfm}

procedure TFrm_bassmessage_user.FormCreate(Sender: TObject);
begin
  inherited;
  B_create:=false;
  query_del.DatabaseName :=HWSHOPDATA;
   self.Caption :='操作员信息设置';
   with query_data do
   begin
      close;
      sql.Clear ;
      sql.Text :='SELECT * from Systemuser';
      try
         open;
         B_create:=true;
      except
         messagedlg(Errormsg0001+'0001',mtError,[mbok],0);
         close;
         B_create:=false;
      end;
   end;
end;

procedure TFrm_bassmessage_user.TB_addClick(Sender: TObject);
begin
  inherited;
   if Checkrights(USERRIGHTS,'增加') then
   begin
      Application.CreateForm(Tfrm_edit_user,frm_edit_user);
      frm_edit_user.Caption :='操作员信息（增加）';
      frm_edit_user.P_state :=0;
      frm_edit_user.showmodal;
      frm_edit_user.free;
      tb_refresh.Click ;
      query_data.Last ;
   end
   else
   begin
      messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
      exit;
   end;
end;

procedure TFrm_bassmessage_user.TB_EDITClick(Sender: TObject);
begin
  inherited;
   if (Checkrights(USERRIGHTS,'编辑')) and
      ((query_data.fieldbyname('name').asstring=USERNAME) or (USERRIGHTSNAME='管理员')) then
   begin
      Application.CreateForm(Tfrm_edit_user,frm_edit_user);
      frm_edit_user.Caption :='操作员信息（编辑）';
      frm_edit_user.P_state :=1;
      with query_data do
      begin
         frm_edit_user.E_name.Text :=fieldbyname('name').asstring;
         frm_edit_user.E_id.Text :=fieldbyname('id').asstring;
         frm_edit_user.E_sex.Text :=fieldbyname('sex').asstring;
         frm_edit_user.E_password.Text :=fieldbyname('keypass').asstring;
         frm_edit_user.E_rights.Text :=fieldbyname('rights').asstring;
         frm_edit_user.E_memo.Text :=fieldbyname('memo').asstring;
      end;
      frm_edit_user.showmodal;
      frm_edit_user.free;
      tb_refresh.Click ;
   end
   else
   begin
      messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
      exit;
   end;
end;

procedure TFrm_bassmessage_user.TB_DELClick(Sender: TObject);
begin
  inherited;
   if not Checkrights(USERRIGHTS,'删除') then
   begin
      messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
      exit;
   end;
   if messagedlg('警告：删除操作员信息数据可能产生严重数据丢失现象，请不要在此删除操作员信息数据'+chr(13)+chr(13)
               +'删除数据操作将不可恢复，确定要删除本记录吗？',mtWarning,[mbyes,mbno],0)=mryes then
   if messagedlg('再次警告：为了保证数据库内数据信息的完整性，请不要在此删除操作员信息数据'+chr(13)+chr(13)
               +'删除数据操作将不可恢复，确定要删除本记录吗？',mtWarning,[mbyes,mbno],0)=mryes then
   begin
      if query_data.FieldByName('rights').AsString ='管理员' then
      begin
         messagedlg(Errormsg0007+'0005',mtError,[mbok],0);
         exit;
      end;
      with query_del do
      begin
         close;
         sql.Clear ;
         sql.Text :='delete from systemuser where id='''+query_data.fieldbyname('ID').asstring+'''';
         try
            execsql;
         except
            messagedlg(Errormsg0005+'0005',mtError,[mbok],0);
            close;
            exit;
         end;
         messagedlg(Infmsg0002,mtInformation,[mbok],0);
         close;
         tb_refresh.Click ;
      end;
   end;

end;

procedure TFrm_bassmessage_user.FormPaint(Sender: TObject);
begin
  inherited;
   if not B_create then
      self.Close ;
end;

end.