authorization.pas

很好的订餐管理系统.rar 很好的订餐管理系统.rar

unit authorization;

interface

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

type
  TfrmAuthorization = class(TForm)
    TreeView1: TTreeView;
    GroupBox1: TGroupBox;
    Memo3: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAuthorization: TfrmAuthorization;

implementation

{$R *.dfm}

procedure TfrmAuthorization.Button1Click(Sender: TObject);
var
   f:file;
   rt:integer;
   nr:integer;
   s1,s2,s3:string[30];
   node:TTreeNode;
   s:string[30];
begin
   frmAddUser:=TFrmAddUser.Create(self);
   rt:=frmAddUser.ShowModal;
   if rt=mrOk then
   begin
   treeView1.Items.Clear;
   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;
end;

procedure TfrmAuthorization.Button3Click(Sender: TObject);
begin
close;
end;

procedure TfrmAuthorization.FormCreate(Sender: TObject);
var
   f:file;
   nr:integer;
   s1,s2,s3:string[30];
   node:TTreeNode;
   s:string[30];
begin
   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 TfrmAuthorization.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   action:=caFree;
end;

procedure TfrmAuthorization.TreeView1Change(Sender: TObject;
  Node: TTreeNode);
var
   f:file;
   s,s1,s2,s3:string[30];
   i:integer;
   nr: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
            Memo1.Visible:=false;
            Memo2.Visible:=false;
            Memo3.Visible:=true;
         end;
         closeFile(f);
         exit;
      end
      else
         begin
            Memo1.Visible:=false;
            Memo2.Visible:=false;
            Memo3.Visible:=false;
         end;
   end;
   closeFile(f);
end;
procedure TfrmAuthorization.Button2Click(Sender: TObject);
var
   f,tmp:file;
   s:string[60];
   s1,s2,s3:string[60];
   i:integer;
   rt,nr: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.tmp');
   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);
      blockWrite(f,s1,12,nr);
      blockRead(tmp,s2,12,nr);
      blockWrite(f,s2,12,nr);
      blockRead(tmp,s3,24,nr);
      blockWrite(f,s3,24,nr);
   end;
   closeFile(f);
   closeFile(tmp);
   treeView1.Selected.Delete;
end;

end.