user.pas

本系统前端界面采用WINDOWS 窗口风格

unit user;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, CheckLst, ImgList, Buttons, Db, DBTables;

type
  TFrmuser = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    TreeView1: TTreeView;
    ImageList1: TImageList;
    Query_czy: TQuery;
    Database: TDatabase;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);
    procedure TreeView1GetSelectedIndex(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Frmuser: TFrmuser;
  itm:TTreeNode;
  book:Tbookmark;
implementation

uses adduser, pass;

{$R *.DFM}

procedure TFrmuser.FormCreate(Sender: TObject);

begin
  itm:=treeview1.Items.GetFirstNode;
  Query_czy.close;
  Query_czy.UnPrepare;
  Query_czy.sql.Clear;
  Query_czy.sql.Add('select * from czyb');
  Query_czy.Prepare;
  Query_czy.open;
  Query_czy.First;
  while not Query_czy.Eof do
    begin
      treeview1.Items.AddChild(itm,Query_czy.fieldbyname('czy_xm').asstring);
      Query_czy.Next;
    end;

end;

procedure TFrmuser.BitBtn1Click(Sender: TObject);
begin
   Frmadduser:=TFrmadduser.Create(Self);
   Frmadduser.ShowModal;
end;

procedure TFrmuser.BitBtn3Click(Sender: TObject);
begin
  Self.Close;
end;

procedure TFrmuser.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=Cafree;
end;

procedure TFrmuser.BitBtn2Click(Sender: TObject);
  var ii:integer;
begin
  ii:=treeview1.Selected.AbsoluteIndex;
  if (ii>1) then
  if Application.MessageBox('您确实要删除用户吗?','警告', MB_OKCANCEL+MB_ICONQUESTION)=IDok then
    begin
      Query_czy.open;
      Query_czy.First;
      while not Query_czy.Eof do
        begin
          if treeview1.Selected.Text=Query_czy.FieldValues['czy_xm'] then
            break
          else Query_czy.Next;
        end;
          try
            database.StartTransaction;
            Query_czy.Delete;
            database.Commit;
            Treeview1.Selected.Delete;
          except
             Query_czy.Cancel;
             database.Rollback;
          end;
    end;
end;

procedure TFrmuser.BitBtn4Click(Sender: TObject);
  var ii:integer;
begin
  ii:=treeview1.Selected.AbsoluteIndex;
  if (ii>0) then
  if Application.MessageBox('您确实要清除口令吗?','警告', MB_OKCANCEL+MB_ICONQUESTION)=IDok then
    begin
      Query_czy.GotoBookmark(Book);
      Query_czy.Edit;
      Query_czy.Fieldbyname('mm').asstring:='';
      try
        Database.StartTransaction;
        Query_czy.Post;
        Database.Commit;
      except
        Database.Rollback;
        Application.MessageBox('用户密码提交错误','提示', MB_OK+MB_ICONINFORMATION);
        exit;
      end;
    end;
end;

procedure TFrmuser.BitBtn5Click(Sender: TObject);
  var i:integer;
begin
  i:=treeview1.Selected.AbsoluteIndex;
  if i>0 then
    begin
      Frmpass:=TFrmpass.create(Self);
      Frmpass.ShowModal;
    end;
end;

procedure TFrmuser.TreeView1GetImageIndex(Sender: TObject;
  Node: TTreeNode);
begin
  if Node.HasChildren then
    if Node.Expanded then
      Node.ImageIndex := 1
    else
      Node.ImageIndex :=0
  else
    Node.ImageIndex :=2;
end;

procedure TFrmuser.TreeView1GetSelectedIndex(Sender: TObject;
  Node: TTreeNode);
begin
  Node.SelectedIndex := Node.ImageIndex;
end;

end.