mdibase.pas

进销存以及BOM管理,SQl Server数据库程序

unit MDIbase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Base, Mask, StdCtrls;

type
  TfrmMDIbase = class(TfrmBase)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  protected
     bcanopen,bcanadd,bcanmodify,bcandelete,bcanprint:boolean;
     bcancounteract,bcanconfirm,bcanfinish:boolean;
     procedure getpermiss;virtual;      
  public
    { Public declarations }
  end;

var
  frmMDIbase: TfrmMDIbase;

implementation

uses main, Global;

{$R *.dfm}

procedure TfrmMDIbase.FormCreate(Sender: TObject);
begin
  inherited;
  frmmain.setformname(self.Caption);
  getpermiss;
end;

procedure TfrmMDIbase.FormDestroy(Sender: TObject);
begin
  inherited;
  frmmain.delformname(self.Caption);
end;

procedure TfrmMDIbase.getpermiss;
begin
  bcanopen:=gs_admin;
  bcanadd:=gs_admin;
  bcanmodify:=gs_admin;
  bcandelete:=gs_admin;
  bcanprint:=gs_admin;
  bcancounteract:=gs_admin;
  bcanconfirm:=gs_admin;
  bcanfinish:=gs_admin;
  if gs_admin then
    begin
      bcanopen:=gs_admin;
      bcanadd:=gs_admin;
      bcanmodify:=gs_admin;
      bcandelete:=gs_admin;
      bcanprint:=gs_admin;
      bcancounteract:=gs_admin;
      bcanconfirm:=gs_admin;
      bcanfinish:=gs_admin;
    end
    else
    begin
{      with datam.CDSpermiss do
        begin
          if Locate('fuserid;fformcode',VarArrayof([gs_userid,lowercase(self.Name)]),[]) then
            begin
              bcanopen:=fieldbyname('fopen').AsBoolean;
              bcanadd:=fieldbyname('fadd').AsBoolean;
              bcanmodify:=fieldbyname('fmodify').AsBoolean;
              bcandelete:=fieldbyname('fdelete').AsBoolean;
              bcanprint:=fieldbyname('fprint').AsBoolean;
              bcancounteract:=fieldbyname('fcounteract').AsBoolean;
              bcanconfirm:=fieldbyname('fconfirm').AsBoolean;
              bcanfinish:=fieldbyname('ffinish').AsBoolean;
            end;
        end;    }
    end;
end;

procedure TfrmMDIbase.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action:=caFree;
end;

end.