authorizationunit.pas

Delphi 编写的"会员销售管理系统",源码全,数据库全,未经测试,请有兴趣的朋友自己测试!

unit authorizationunit;

interface

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

type
  Tfrm_authorization = class(TForm)
    GroupBox1: TGroupBox;
    TreeView1: TTreeView;
    b_add: TButton;
    b_del: TButton;
    b_close: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure b_addClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure b_delClick(Sender: TObject);
    procedure b_closeClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_authorization: Tfrm_authorization;

implementation
    uses adduserunit;
{$R *.dfm}

procedure Tfrm_authorization.b_addClick(Sender: TObject);
var f:file;
 s1,s2,s3:string[30];
 nr,rt:integer;
 node:ttreenode;
begin
  frm_adduser:=tfrm_adduser.Create(self);
   rt:=frm_adduser.ShowModal;
   if rt=mrok then
   begin
    treeview1.Items.Clear;   //'''''asdf'sdf'asdf'
   // treeview1.Items.Add(node,'用户名');
   node:=treeview1.Items.GetFirstNode;

   assignfile(f,'sys.ini');
   reset(f,1);
   repeat
     blockread(f,s1,12,nr);
     blockread(f,s2,12,nr);
     blockread(f,s3,24,nr);
     if nr>0 then
      treeview1.Items.AddChildFirst(node,s1);
   until(nr=0);
     closefile(f);
     treeview1.Select(node);
     memo1.Visible:=false;
     memo2.Visible:=false;
     memo3.Visible:=false;
end;

end;

procedure Tfrm_authorization.FormShow(Sender: TObject);
 begin
memo1.Align:=alclient;
memo2.Align:=alclient;
memo3.Align:=alclient;
end;

procedure Tfrm_authorization.b_delClick(Sender: TObject);
var f,tmp:file;
 s,s1,s2,s3:string[30];
 nr,rt:integer;
 i:integer;
begin
  i:=treeview1.Selected.AbsoluteIndex;
  if i=0 then exit;
  s:=treeview1.Items.Item[i].Text;
  rt:=messagedlg('你一定要删除用户'+s+'吗?',mtwarning,[mbyes,mbno],0);
  if rt=mrno then exit;
 assignfile(f,'sys.ini');
 assignfile(tmp,'tmp.ini');
 reset(f,1);
 rewrite(tmp,1);
 while not eof(f) do
  begin
   blockread(f,s1,12,nr);
   blockread(f,s2,12,nr);
   blockread(f,s3,24,nr);
   if (s1<>s) and (nr>0) then
    begin
    blockwrite(tmp,s1,12,nr);
    blockwrite(tmp,s2,12,nr);
    blockwrite(tmp,s3,24,nr);
    end;
  end;
  closefile(f);
  closefile(tmp);
  reset(tmp,1);
  rewrite(f,1);
   while not eof(tmp) do
   begin
     blockread(tmp,s1,12,nr);
     blockread(tmp,s2,12,nr);
     blockread(tmp,s3,24,nr);
     blockwrite(f,s1,12,nr);
     blockwrite(f,s2,12,nr);
     blockwrite(f,s3,24,nr);
   end;
   closefile(f);
   closefile(tmp);
   treeview1.Selected.Delete;    

end;

procedure Tfrm_authorization.b_closeClick(Sender: TObject);
begin
close;
end;

procedure Tfrm_authorization.FormCreate(Sender: TObject);
var f:file;
 node:ttreenode;
 s,s1,s2,s3:string[30];
 nr:integer;
 begin
   node:=treeview1.Items.GetFirstNode;

   treeview1.Items.Add(node,'用户名');
   node:=treeview1.Items.GetFirstNode;
   assignfile(f,'sys.ini');
   reset(f,1);
   repeat
     blockread(f,s1,12,nr);
     blockread(f,s2,12,nr);
     blockread(f,s3,24,nr);
     if nr>0 then
      treeview1.Items.AddChildFirst(node,s1);
   until(nr=0);
 closefile(f);
 treeview1.Select(node);
 memo1.Visible:=false;
 memo2.Visible:=false;
 memo3.Visible:=false;

end;

procedure Tfrm_authorization.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrm_authorization.TreeView1Change(Sender: TObject;
  Node: TTreeNode);
var f:file;
 s1,s2,s,s3:string[30];
 nr,i:integer;
 begin
 i:=treeview1.Selected.AbsoluteIndex;
 s:=treeview1.Items.Item[i].Text;
 assignfile(f,'sys.ini');
 reset(f,1);
  while not eof(f) do
  begin
    blockread(f,s1,12,nr);
    blockread(f,s2,12,nr);
    blockread(f,s3,24,nr);
     if s=s1 then
        begin
         if s3='1' then
           begin
            memo1.Visible:=true;
            memo2.Visible:=false;
            memo3.Visible:=false;
           end else if s3='2' then
            begin
            memo1.Visible:=false;
            memo2.Visible:=true;
            memo3.Visible:=false;
            end else if s3='3' then
            begin
             memo3.Visible:=true;
             memo2.Visible:=false;
             memo1.Visible:=false;
            end;
          closefile(f);
          exit;
         end else begin
           memo1.Visible:=false;
           memo2.Visible:=false;
           memo3.Visible:=false;
           end;
      end;
      closefile(f);
     end;       


end.