gnb_form.pas

一个小的Delphi的权限控制工具

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);
  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;

implementation

uses share, QXGL_Form;

{$R *.dfm}


procedure TGNB_F.RefreshBook;
var
   HSXX_Q:TADOQuery;
begin
   HSXX_Q:=TADOQuery.Create(nil);
   HSXX_Q.Connection:=Connect;
   HSXX_Q.SQL.Add('select 功能号,功能名 from 功能表');
   HSXX_Q.SQL.Add('where 功能号 not in (select 功能号 from 用户功能表 where 帐号=:帐号)');
   HSXX_Q.Parameters.ParamByName('帐号').Value:=ZH;
   HSXX_Q.Open;
   ListView1.Items.Clear;
   while not HSXX_Q.Eof do
     begin
       with ListView1.Items.Add do
         begin
           Caption := HSXX_Q.FieldByName('功能号').AsString;
           SubItems.Add(HSXX_Q.FieldByName('功能名').AsString);
         end;
        HSXX_Q.Next;
     end;
   FreeAndNil(HSXX_Q);
end;

procedure TGNB_F.FormCreate(Sender: TObject);
begin
    Ctl3D := False;
end;

procedure TGNB_F.Button1Click(Sender: TObject);
var
  QXGL_T:TADOTable;
begin
  QXGL_T:=TADOTable.Create(nil);
  QXGL_T.Connection:=Connect;
  QXGL_T.TableName:='用户功能表';
  QXGL_T.Open;
  if GNB_F.ListView1.Selected <> nil then
    begin
      Edit.Text := '';
      Edit.Text := ListView1.Selected.Caption;

      QXGL_T.Append;
      QXGL_T.FieldByName('帐号').AsString:=ZH;
      QXGL_T.FieldByName('功能号').AsString:=ListView1.Selected.Caption;
      QXGL_T.Post;
      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;

end.