upermiss.pas

这是一个三层的进销存系统

  addformnode;
end;

procedure Tfrmpermiss.treeuserChange(Sender: TObject; Node: TTreeNode);
begin
  inherited;
  getgridData;
end;

procedure Tfrmpermiss.treeformChange(Sender: TObject; Node: TTreeNode);
begin
  inherited;
  getgridData;
end;

procedure Tfrmpermiss.acopenExecute(Sender: TObject);
begin
  inherited;
  if not CDSgrid.Active then Exit;
  if CDSgrid.RecordCount > 0 then
    begin
      CDSgrid.Edit;
      if CDSgrid.FieldByName('fopen').AsBoolean=True then
        CDSgrid.FieldByName('fopen').AsBoolean:=False
        else
        CDSgrid.FieldByName('fopen').AsBoolean:=True;
      CDSgrid.Post;
    end;
end;

procedure Tfrmpermiss.acaddExecute(Sender: TObject);
begin
  inherited;
  if not CDSgrid.Active then Exit;
  if CDSgrid.RecordCount > 0 then
    begin
      CDSgrid.Edit;
      if CDSgrid.FieldByName('fadd').AsBoolean=True then
        CDSgrid.FieldByName('fadd').AsBoolean:=False
        else
        CDSgrid.FieldByName('fadd').AsBoolean:=True;
      CDSgrid.Post;
    end;
end;

procedure Tfrmpermiss.acmodifyExecute(Sender: TObject);
begin
  inherited;
  if not CDSgrid.Active then Exit;
  if CDSgrid.RecordCount > 0 then
    begin
      CDSgrid.Edit;
      if CDSgrid.FieldByName('fmodify').AsBoolean=True then
        CDSgrid.FieldByName('fmodify').AsBoolean:=False
        else
        CDSgrid.FieldByName('fmodify').AsBoolean:=True;
      CDSgrid.Post;
    end;
end;

procedure Tfrmpermiss.acdeleteExecute(Sender: TObject);
begin
  inherited;
  if not CDSgrid.Active then Exit;
  if CDSgrid.RecordCount > 0 then
    begin
      CDSgrid.Edit;
      if CDSgrid.FieldByName('fdelete').AsBoolean=True then
        CDSgrid.FieldByName('fdelete').AsBoolean:=False
        else
        CDSgrid.FieldByName('fdelete').AsBoolean:=True;
      CDSgrid.Post;
    end;
end;

procedure Tfrmpermiss.acprintExecute(Sender: TObject);
begin
  inherited;
  if not CDSgrid.Active then Exit;
  if CDSgrid.RecordCount > 0 then
    begin
      CDSgrid.Edit;
      if CDSgrid.FieldByName('fprint').AsBoolean=True then
        CDSgrid.FieldByName('fprint').AsBoolean:=False
        else
        CDSgrid.FieldByName('fprint').AsBoolean:=True;
      CDSgrid.Post;
    end;
end;

procedure Tfrmpermiss.accounteractExecute(Sender: TObject);
begin
  inherited;
  if not CDSgrid.Active then Exit;
  if CDSgrid.RecordCount > 0 then
    begin
      CDSgrid.Edit;
      if CDSgrid.FieldByName('fcounteract').AsBoolean=True then
        CDSgrid.FieldByName('fcounteract').AsBoolean:=False
        else
        CDSgrid.FieldByName('fcounteract').AsBoolean:=True;
      CDSgrid.Post;
    end;
end;

procedure Tfrmpermiss.acfinishExecute(Sender: TObject);
begin
  inherited;
  if not CDSgrid.Active then Exit;
  if CDSgrid.RecordCount > 0 then
    begin
      CDSgrid.Edit;
      if CDSgrid.FieldByName('ffinish').AsBoolean=True then
        CDSgrid.FieldByName('ffinish').AsBoolean:=False
        else
        CDSgrid.FieldByName('ffinish').AsBoolean:=True;
      CDSgrid.Post;
    end;
end;

procedure Tfrmpermiss.acconfirmExecute(Sender: TObject);
begin
  inherited;
  if not CDSgrid.Active then Exit;
  if CDSgrid.RecordCount > 0 then
    begin
      CDSgrid.Edit;
      if CDSgrid.FieldByName('fconfirm').AsBoolean=True then
        CDSgrid.FieldByName('fconfirm').AsBoolean:=False
        else
        CDSgrid.FieldByName('fconfirm').AsBoolean:=True;
      CDSgrid.Post;
    end;
end;

procedure Tfrmpermiss.acallExecute(Sender: TObject);
begin
  inherited;
  if not CDSgrid.Active then Exit;
  if CDSgrid.RecordCount > 0 then
    begin
      CDSgrid.Edit;
      CDSgrid.FieldByName('fopen').AsBoolean:=True;
      CDSgrid.FieldByName('fadd').AsBoolean:=True;
      CDSgrid.FieldByName('fmodify').AsBoolean:=True;
      CDSgrid.FieldByName('fdelete').AsBoolean:=True;
      CDSgrid.FieldByName('fprint').AsBoolean:=True;
      CDSgrid.FieldByName('fconfirm').AsBoolean:=True;
      CDSgrid.FieldByName('fcounteract').AsBoolean:=True;
      CDSgrid.FieldByName('ffinish').AsBoolean:=True;
      CDSgrid.Post;
    end;
end;

procedure Tfrmpermiss.acclearExecute(Sender: TObject);
begin
  inherited;
  if not CDSgrid.Active then Exit;
  if CDSgrid.RecordCount > 0 then
    begin
      CDSgrid.Edit;
      CDSgrid.FieldByName('fopen').AsBoolean:=False;
      CDSgrid.FieldByName('fadd').AsBoolean:=False;
      CDSgrid.FieldByName('fmodify').AsBoolean:=False;
      CDSgrid.FieldByName('fdelete').AsBoolean:=False;
      CDSgrid.FieldByName('fprint').AsBoolean:=False;
      CDSgrid.FieldByName('fconfirm').AsBoolean:=False;
      CDSgrid.FieldByName('fcounteract').AsBoolean:=False;
      CDSgrid.FieldByName('ffinish').AsBoolean:=False;
      CDSgrid.Post;
    end;
end;

procedure Tfrmpermiss.acsaveExecute(Sender: TObject);
begin
  inherited;
  if not CDSgrid.Active then exit;
  try
    screen.Cursor:=crHourGlass;
    if CDSgrid.ChangeCount>0 then
      begin
        applyupdata(CDSgrid,'tpermiss','fid');
        cdsgrid.MergeChangeLog;
        syslog(self.Name,'修改用户权限，用户ID:'+inttostr(getuserid)+'表单ID:'+inttostr(getformid));
      end;
  finally
    screen.Cursor:=crDefault;
  end;
end;

procedure Tfrmpermiss.a01Execute(Sender: TObject);
begin
  inherited;
  CDSuser.Append;
  if not assigned(frmuser_m) then
    frmuser_m:=Tfrmuser_m.Create(application);
    frmuser_m.ShowModal;

  if CDSuser.ChangeCount>0 then
    Begin
      applyupdata(CDSuser,'Tuser','fid');
      CDSuser.MergeChangeLog;
    end;
    Addusercode;
end;

procedure Tfrmpermiss.a02Execute(Sender: TObject);
begin
  inherited;
  GetAlldata(CDSuser,'Vusergroup','fid',20);
  CDSuser.Locate('Fid',Getuserid,[]);
  CDSuser.Edit;
  if not assigned(frmuser_m) then
    frmuser_m:=Tfrmuser_m.Create(application);
    frmuser_m.ShowModal;

  if CDSuser.ChangeCount > 0 then
    begin
      applyupdata(CDSuser,'tuser','fid');
      CDSuser.MergeChangeLog;
    end;
    Addusercode;
end;

procedure Tfrmpermiss.a03Execute(Sender: TObject);
var
  cmdstr:string;
  cmdstr1:string;
  userid:integer;
begin
  inherited;
  if application.MessageBox('是否确定删除当前用户 ? ','删除信息',
      MB_okcancel+MB_iconquestion+MB_applmodal)<>idok then exit;
  userid:=getuserid;
  cmdstr:='Delete from tuser where fid='+inttostr(userid);
  if not execsql(cmdstr) then
    begin
      application.MessageBox('删除失败! ','删除信息',
            MB_ok+MB_iconstop+MB_applmodal);
      abort;
    end
    else
    begin
      cmdstr1:='Delete from tpermiss where fuserid='+inttostr(userid);
      execsql(cmdstr1);
      syslog(self.Name,'删除用户,用户ID:'+inttostr(userid));
    end;
    addusercode;
end;

procedure Tfrmpermiss.a05Execute(Sender: TObject);
begin
  inherited;
  openform(Tfrmgroup,frmgroup,self);
end;

procedure Tfrmpermiss.FormShow(Sender: TObject);
begin
  inherited;
  a01.Enabled:=bcanadd;
  a02.Enabled:=bcanadd;
  a03.Enabled:=bcanadd;
  a04.Enabled:=bcanadd;
  a05.Enabled:=bcanadd;
  acopen.Enabled:=bcanadd;
  acadd.Enabled:=bcanadd;
  acmodify.Enabled:=bcanadd;
  acdelete.Enabled:=bcanadd;
  acprint.Enabled:=bcanadd;
  accounteract.Enabled:=bcanadd;
  acfinish.Enabled:=bcanadd;
  acconfirm.Enabled:=bcanadd;
  acall.Enabled:=bcanadd;
  acclear.Enabled:=bcanadd;
  acsave.Enabled:=bcanadd;
end;

end.