gnb_form.pas

Access数据库用户权限的管理程序

unit GNB_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls,DB,ADODB;

type
  TGNB_F = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    ListView1: TListView;
    Panel4: TPanel;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
    Edit : TEdit;
    procedure RefreshBook;
    procedure Show(var Text:TEdit);virtual;
    constructor Create(AOwner : TComponent);override;
  end;

var
  GNB_F: TGNB_F;
  GNB_Q:TADOQuery;

implementation

uses share, QXGL_Form, CZRZ_Form;

{$R *.dfm}
//******************************************************************************
procedure TGNB_F.RefreshBook;
begin
   GNB_Q.Close;
   GNB_Q.SQL.Clear;
   GNB_Q.SQL.Add('select 功能号,功能名 from 功能表');
   GNB_Q.SQL.Add('where 功能号 not in (select 功能号 from 用户功能表 where 帐号=:帐号)');
   GNB_Q.Parameters.ParamByName('帐号').Value:=ZH;
   GNB_Q.Open;
   ListView1.Items.Clear;
   while not GNB_Q.Eof do
     begin
       with ListView1.Items.Add do
         begin
           Caption := GNB_Q.FieldByName('功能号').AsString;
           SubItems.Add(GNB_Q.FieldByName('功能名').AsString);
         end;
        GNB_Q.Next;
     end;
end;
//******************************************************************************
procedure TGNB_F.FormCreate(Sender: TObject);
begin
  GNB_Q:=TADOQuery.Create(nil);
  GNB_Q.Connection:=Connect;
end;
//******************************************************************************
procedure TGNB_F.Button1Click(Sender: TObject);
var
  QXGL_T:TADOTable;
begin
  if GNB_F.ListView1.Selected <> nil then
    begin
      Edit.Text := '';
      Edit.Text := ListView1.Selected.Caption;

      QXGL_T:=TADOTable.Create(nil);
      QXGL_T.Connection:=Connect;
      QXGL_T.TableName:='用户功能表';
      QXGL_T.Open;

      QXGL_T.Append;
      QXGL_T.FieldByName('帐号').AsString:=ZH;
      QXGL_T.FieldByName('功能号').AsString:=ListView1.Selected.Caption;
      QXGL_T.Post;

      GNB_Q.Locate('功能号',ListView1.Selected.Caption,[]);
      CZRZ:='          '+ZH+'帐号添加'+GNB_Q.FieldByName('功能名').AsString+'权限    '+timetostr(time);
      CZRZ_F.CZRZ_FM.Lines.Add(CZRZ);
      WriteCZRZ;
      QXGL_Q1.Requery;
      ListView1.Selected.Delete;
    end;
end;
//******************************************************************************
procedure TGNB_F.ListView1DblClick(Sender: TObject);
begin
  if ListView1.Selected <> nil then
    Button1Click(Sender);
end;
//******************************************************************************
constructor TGNB_F.Create(AOwner: TComponent);
begin
  inherited;
end;
//******************************************************************************
procedure TGNB_F.Button2Click(Sender: TObject);
begin
   Close;
end;
//******************************************************************************
procedure TGNB_F.Show(var Text:TEdit);
begin
  //inherited Show;
  //Edit := Text;
end;
//******************************************************************************
procedure TGNB_F.FormShow(Sender: TObject);
begin
  try
    RefreshBook;
    ListView1.SetFocus;
  except
    ListView1.Items.Clear;
  end;
end;
//******************************************************************************
procedure TGNB_F.FormDestroy(Sender: TObject);
begin
  FreeAndNil(GNB_Q);
  //FreeAndNil(GNB_F);
  //FreeAndNil(QXGL_T);
end;
//******************************************************************************
procedure TGNB_F.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  num:=self.HelpContext;
  F1_Help(key);
end;
//******************************************************************************
procedure TGNB_F.ListView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  num:=self.HelpContext;
  F1_Help(key);
end;
//******************************************************************************
end.