untbaseright.~pas

是分布式粮库程序,是采用Delphi实现的

    end;
  end;
end;

procedure TfrmBaseRight.tbCancel1Click(Sender: TObject);
var
  selNode:TTreeNode;
  sPermcode:string;
begin
  if (tbSave.Tag=1) or (tbSave.tag=2 )then
  begin
    selNode:=tvRight.Selected;
    tvRight.Selected.Parent.Selected:=true;
    selNode.Delete;
  end;
  if tbSave.Tag=3 then
  begin
    sPermCode:=stcRightCode.Caption;
    With gQuery Do
    begin
      SQl.Clear;
      Unprepare;
      SQL.Add('select * from  Ent_sys_Rights where PermCode = '''+sPermCode+'''');
      Prepare;
      active:=true;
    end;
    edtRightName.Text:=gQuery.fieldbyname('PermName').AsString;
    redtRgihtMemo.Text:=gQuery.fieldbyname('PermDesc').AsString;

  end;
  edtRightName.Enabled:=false;
  redtRgihtMemo.Enabled:=false;
  if tvRight.Selected.level= 0 then
    begin
      tbEdit.enabled:= false;
      tbDelete.enabled:= false
    end
    else
    begin
      tbEdit.enabled:= true;
      tbDelete.enabled:= true;
    end;
    tbAdd.enabled:= True;
    tbRefresh.enabled:= true;
    tbSave.enabled := False;
    tbCancel.enabled:= False;
    tbSave.Tag:=0;

end;

procedure TfrmBaseRight.tbEdit1Click(Sender: TObject);
var
  newNode:Ttreenode;
  sCode,sRightCode:string;
begin
  if (tvRight.Selected.Level=1) or (tvRight.Selected.Level=2)  then
  begin
    tbAdd.enabled:= False;
    tbEdit.enabled:= False;
    tbDelete.enabled:= False;
    tbRefresh.enabled:= False;
    tbSave.enabled:=true;
    tbCancel.enabled:=true;
    //清空编辑框
    edtRightName.Enabled:=true;
    redtRgihtMemo.Enabled:=true;
    tbSave.Tag:= 3;
  end;
end;

procedure TfrmBaseRight.tbDelete1Click(Sender: TObject);
var
  selNode:TTreenode;
begin
  if tvRight.Selected.Level<>0 then
  begin
    if tvright.Selected.HasChildren then
    begin
      //MsgBox('有儿子结点不能删除','显示',MB_ICONINFORMATION);
      exit;
    end
    else
    begin
      if Application.MessageBox('确认要删除该权限吗？', '提示', mb_OkCancel + mb_iconQuestion) = IdCancel then
        exit;
      With gQuery Do
      begin
        SQl.Clear;
        Unprepare;
        SQL.Add('delete  Ent_sys_Rights where PermCode='''+stcRightCode.Caption+'''');
        Prepare;
        ExecSQL;
      end;
      selNode:=tvright.Selected;
      tvright.Selected.Parent.Selected:=true;
      selNode.Delete;
    end;
  end;
end;

procedure TfrmBaseRight.tbRefresh1Click(Sender: TObject);
begin
  CreateRightTree;
  edtRightName.Enabled:=false;
  redtRgihtMemo.Enabled:=false;
  tbSave.enabled:=false;
  tbCancel.enabled:=false;
  stcRightCode.Caption:='';
  edtRightName.Text:='';
  redtRgihtMemo.Text:='';
end;

procedure TfrmBaseRight.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Try
    TempQuery.Close;
    //fucDBClose1;
    Action:= caFree;
    frmBaseRight:= nil;
  Except
   // MsgBox('资源释放是出错！','资源释放',MB_ICONWARNING);
  end;
end;

procedure TfrmBaseRight.tbSaveClick(Sender: TObject);
begin
  if (tbSave.Tag=1) or (tbSave.tag=2 )then
  begin
    With gQuery Do
    begin
      SQl.Clear;
      Unprepare;
      SQL.Add('insert Ent_sys_Rights(PermName,PermDesc,PermCode) values ('''
                   +edtRightName.Text+''','''+redtRgihtMemo.Text+''','''+stcRightCode.Caption+''') ');
      Prepare;
      ExecSQL;
    end;
    edtRightName.Enabled:=false;
    redtRgihtMemo.Enabled:=false;
  end;
  if (tbSave.Tag=3) then
  begin
    With gQuery Do
    begin
      SQl.Clear;
      Unprepare;
      SQL.Add('update  Ent_sys_Rights set PermName='''+edtRightName.Text+''',PermDesc='''+redtRgihtMemo.Text+''' where PermCode='''+stcRightCode.Caption+'''');
      Prepare;
      ExecSQL;
    end;
    edtRightName.Enabled:=false;
    redtRgihtMemo.Enabled:=false;
  end;
  tbSave.Tag:= 0;
  tbAdd.enabled:= true;
  tbEdit.enabled:= true;
  tbDelete.enabled:= true;
  tbRefresh.enabled:= true;
  tbSave.enabled:=false;
  tbCancel.enabled:=false;
end;


procedure TfrmBaseRight.tbAddClick(Sender: TObject);
var
  newNode:Ttreenode;
  sCode,sRightCode:string;
begin
  if tvRight.Selected.Level=0 then
  begin
    tbAdd.enabled:= False;
    tbEdit.enabled:= False;
    tbDelete.enabled:= False;
    tbRefresh.enabled:= False;
    tbSave.enabled:=true;
    tbCancel.enabled:=true;
    //清空编辑框
    edtRightName.Clear;
    redtRgihtMemo.Clear;
    newNode:=tvright.Items.AddChild(tvright.Selected,'');
    newNode.ImageIndex:= 8;
    newNode.SelectedIndex:= 8;
    newNode.Selected:=true;
    edtRightName.Enabled:=true;
    redtRgihtMemo.Enabled:=true;
    tbSave.Tag:= 1;
    stcRightCode.caption:=GetNextRightCode('');
    newNode.StateIndex:=strtoint(stcRightCode.caption);
    edtRightName.SetFocus;
  end
  else if  tvRight.Selected.Level=1 then
  begin
    tbAdd.enabled:= False;
    tbEdit.enabled:= False;
    tbDelete.enabled:= False;
    tbRefresh.enabled:= False;
    tbSave.enabled:=true;
    tbCancel.enabled:=true;
    //清空编辑框
    edtRightName.Clear;
    redtRgihtMemo.Clear;
    sCode:='00'+inttostr(tvRight.Selected.StateIndex);
    sRightCode:=copy(sCode,length(sCode)-8+1,8);
    newNode:=tvright.Items.AddChild(tvright.Selected,'');
    newNode.Selected:=true;
    newNode.ImageIndex:= 9;
    newNode.SelectedIndex:= 9;
    edtRightName.Enabled:=true;
    redtRgihtMemo.Enabled:=true;
    tbSave.Tag:= 2;
    stcRightCode.caption:=GetNextRightCode(sRightCode);
    newnode.StateIndex:=strtoint(stcRightCode.caption);
    edtRightName.SetFocus;
  end;
end;

procedure TfrmBaseRight.tbEditClick(Sender: TObject);
var
  newNode:Ttreenode;
  sCode,sRightCode:string;
begin
  if (tvRight.Selected.Level=1) or (tvRight.Selected.Level=2)  then
  begin
    tbAdd.enabled:= False;
    tbEdit.enabled:= False;
    tbDelete.enabled:= False;
    tbRefresh.enabled:= False;
    tbSave.enabled:=true;
    tbCancel.enabled:=true;
    //清空编辑框
    edtRightName.Enabled:=true;
    redtRgihtMemo.Enabled:=true;
    tbSave.Tag:= 3;
  end;
end;

procedure TfrmBaseRight.tbDeleteClick(Sender: TObject);
var
  selNode:TTreenode;
begin
  if tvRight.Selected.Level<>0 then
  begin
    if tvright.Selected.HasChildren then
    begin
      //MsgBox('有儿子结点不能删除','显示',MB_ICONINFORMATION);
      exit;
    end
    else
    begin
      if Application.MessageBox('确认要删除该权限吗？', '提示', mb_OkCancel + mb_iconQuestion) = IdCancel then
        exit;
      With gQuery Do
      begin
        SQl.Clear;
        Unprepare;
        SQL.Add('delete  Ent_sys_Rights where PermCode='''+stcRightCode.Caption+'''');
        Prepare;
        ExecSQL;
      end;
      selNode:=tvright.Selected;
      tvright.Selected.Parent.Selected:=true;
      selNode.Delete;
    end;
  end;
end;

procedure TfrmBaseRight.tbRefreshClick(Sender: TObject);
begin
  CreateRightTree;
  edtRightName.Enabled:=false;
  redtRgihtMemo.Enabled:=false;
  tbSave.enabled:=false;
  tbCancel.enabled:=false;
  stcRightCode.Caption:='';
  edtRightName.Text:='';
  redtRgihtMemo.Text:='';
end;

procedure TfrmBaseRight.tbCancelClick(Sender: TObject);
var
  selNode:TTreeNode;
  sPermcode:string;
begin
  if (tbSave.Tag=1) or (tbSave.tag=2 )then
  begin
    selNode:=tvRight.Selected;
    tvRight.Selected.Parent.Selected:=true;
    selNode.Delete;
  end;
  if tbSave.Tag=3 then
  begin
    sPermCode:=stcRightCode.Caption;
    With gQuery Do
    begin
      SQl.Clear;
      Unprepare;
      SQL.Add('select * from  Ent_sys_Rights where PermCode = '''+sPermCode+'''');
      Prepare;
      active:=true;
    end;
    edtRightName.Text:=gQuery.fieldbyname('PermName').AsString;
    redtRgihtMemo.Text:=gQuery.fieldbyname('PermDesc').AsString;

  end;
  edtRightName.Enabled:=false;
  redtRgihtMemo.Enabled:=false;
  if tvRight.Selected.level= 0 then
    begin
      tbEdit.enabled:= false;
      tbDelete.enabled:= false
    end
    else
    begin
      tbEdit.enabled:= true;
      tbDelete.enabled:= true;
    end;
    tbAdd.enabled:= True;
    tbRefresh.enabled:= true;
    tbSave.enabled := False;
    tbCancel.enabled:= False;
    tbSave.Tag:=0;

end;

procedure TfrmBaseRight.bbtnExitClick(Sender: TObject);
begin
  close;
end;

end.