uni_main.~pas

一个非常不错的经费报销管理软件

unit Uni_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, XPMenu, RzTabs, ExtCtrls, StdCtrls, ComCtrls, DB, ADODB,
  Buttons, jpeg, DBCtrls;

  
type
  TFrm_main = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    XPMenu1: TXPMenu;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel4: TPanel;
    PageMain: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    TabSheet3: TRzTabSheet;
    TabSheet4: TRzTabSheet;
    N_Plan: TMenuItem;
    N_Payout: TMenuItem;
    N_branchs: TMenuItem;
    N_User: TMenuItem;
    N_WorkStation: TMenuItem;
    N_Item: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    B_Branchs: TSpeedButton;
    B_User: TSpeedButton;
    B_WorkStation: TSpeedButton;
    B_Item: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    TabSheet6: TRzTabSheet;
    B_Plan: TSpeedButton;
    SpeedButton9: TSpeedButton;
    TabSheet5: TRzTabSheet;
    B_Tiein_Branchs: TSpeedButton;
    B_Tiein_Item: TSpeedButton;
    TabSheet7: TRzTabSheet;
    Image1: TImage;
    N14: TMenuItem;
    N15: TMenuItem;
    N_Backup: TMenuItem;
    N_TieinSetup: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N_Tiein_Branchs: TMenuItem;
    N_Tiein_Item: TMenuItem;
    N23: TMenuItem;
    P_Left: TPanel;
    Splitter1: TSplitter;
    Tree: TTreeView;
    Image2: TImage;
    B_TieinSetup: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    DataSource1: TDataSource;
    DBText1: TDBText;
    N12: TMenuItem;
    N_Branchs_Rep: TMenuItem;
    PurviewSetup: TMenuItem;
    procedure N_branchsClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure N_UserClick(Sender: TObject);
    procedure N_TieinSetupClick(Sender: TObject);
    procedure N_Tiein_BranchsClick(Sender: TObject);
    procedure N_ItemClick(Sender: TObject);
    procedure N_Tiein_ItemClick(Sender: TObject);
    procedure N_PlanClick(Sender: TObject);
    procedure TreeClick(Sender: TObject);
    procedure N_PayoutClick(Sender: TObject);
    procedure N_BackupClick(Sender: TObject);
    procedure N_WorkStationClick(Sender: TObject);
    procedure N_Branchs_RepClick(Sender: TObject);
    procedure PurviewSetupClick(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_main: TFrm_main;
  function  PurviewSet(Name: string):Boolean;


implementation

{$R *.dfm}
uses uni_user,
     uni_branchs,
     uni_dm,
     IniFiles,
     strUtils,
     Uni_Function,
     Uni_TieinSetup,
     Uni_Tiein_Branchs,
     Uni_Item,
     Uni_WorkStation,
     Uni_Tiein_Item,
     Uni_Plan,
     Uni_Backup,
     Uni_OutlayPayout,
     Uni_Branchs_rep,
     Uni_PasswordChange;

function  PurviewSet(Name: string):Boolean;
begin
    DM.bsPurview.Close;
    DM.bsPurview.SQL.Text:=' SELECT *FROM bsPurview WHERE cUserID='
                          +QuotedStr(DM.bsLoginUser.FieldByName('id').AsString)
                          +' AND cName='
                          +QuotedStr(Name);
    DM.bsPurview.Open;
    Result:=DM.bsPurview.FieldByName('BVisible').AsBoolean;
    if Result=False then MessageBoxInfo('权限限制');

end;

procedure TFrm_main.N_branchsClick(Sender: TObject);
begin
  if not PurviewSet('部门设置') then Exit;
  Application.CreateForm(TFrm_Branchs,Frm_Branchs);
  Frm_branchs.ShowModal;
end;

procedure TFrm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Halt;
end;

procedure TFrm_main.FormShow(Sender: TObject);
var
  i:Integer;
begin
  for i :=0  to PageMain.PageCount-1 do PageMain.Pages[i].TabVisible:=False;
  PageMain.ActivePageIndex:=0;

end;

procedure TFrm_main.N_UserClick(Sender: TObject);
begin
  if not PurviewSet('操作员设置') then Exit;
  Application.CreateForm(TFrm_User,Frm_User);
  Frm_User.ShowModal;
end;

procedure TFrm_main.N_TieinSetupClick(Sender: TObject);
begin
  if not PurviewSet('帐务接口设置') then Exit;
  Application.CreateForm(TFrm_TieinSetup,Frm_TieinSetup);
  Frm_TieinSetup.ShowModal;
end;

procedure TFrm_main.N_Tiein_BranchsClick(Sender: TObject);
begin
  if not PurviewSet('部门信息接口') then Exit;
  Application.CreateForm(TFrm_Tiein_Branchs,Frm_Tiein_Branchs);
  Frm_Tiein_Branchs.ShowModal;
end;

procedure TFrm_main.N_ItemClick(Sender: TObject);
begin
  if not PurviewSet('经费项目') then Exit;
  Application.CreateForm(TFrm_Item,Frm_Item);
  Frm_Item.ShowModal;
end;

procedure TFrm_main.N_Tiein_ItemClick(Sender: TObject);
begin
  if not PurviewSet('科目信息接口') then Exit;
  Application.CreateForm(TFrm_Tiein_Item,Frm_Tiein_Item);
  Frm_Tiein_Item.ShowModal;
end;

procedure TFrm_main.N_PlanClick(Sender: TObject);
begin
  if not PurviewSet('经费计划') then Exit;
  Application.CreateForm(TFrm_Plan,Frm_Plan);
  Frm_Plan.ShowModal;
end;

procedure TFrm_main.TreeClick(Sender: TObject);
begin
  if Tree.Selected.Text='系统设置' then PageMain.ActivePageIndex:=1;
  if Tree.Selected.Text='基础信息' then PageMain.ActivePageIndex:=2;
  if Tree.Selected.Text='经费管理' then PageMain.ActivePageIndex:=3;
  if Tree.Selected.Text='帐务接口' then PageMain.ActivePageIndex:=4;
  if Tree.Selected.Text='报表管理' then PageMain.ActivePageIndex:=5;
  if Tree.Selected.Text='部门汇总' then N_Branchs_RepClick(Sender);

  if Tree.Selected.Text='系统初始化' then ;
  if Tree.Selected.Text='数据备份' then N_BackupClick(Sender);
  if Tree.Selected.Text='帐务接口设置' then N_TieinSetupClick(Sender);

  if Tree.Selected.Text='部门信息' then N_branchsClick(Sender);
  if Tree.Selected.Text='操作员信息' then N_UserClick(Sender);
  if Tree.Selected.Text='站点信息' then N_WorkStationClick(Sender);
  if Tree.Selected.Text='经费项目' then N_ItemClick(Sender);

  if Tree.Selected.Text='部门信息接口' then N_Tiein_BranchsClick(Sender);
  if Tree.Selected.Text='科目信息接口' then N_Tiein_ItemClick(Sender);

  if Tree.Selected.Text='经费计划' then N_PlanClick(Sender);
  if Tree.Selected.Text='经费支出' then N_PayoutClick(Sender);



end;

procedure TFrm_main.N_PayoutClick(Sender: TObject);
begin
  if not PurviewSet('经费支出') then Exit;
  Application.CreateForm(Tfrm_OutlayPayout, frm_OutlayPayout);
  frm_OutlayPayout.ShowModal;
end;

procedure TFrm_main.N_BackupClick(Sender: TObject);
begin
  if not PurviewSet('数据备份') then Exit;
  Application.CreateForm(TFrm_Backup,Frm_Backup);
  Frm_Backup.ShowModal;
end;

procedure TFrm_main.N_WorkStationClick(Sender: TObject);
begin
  if not PurviewSet('站点信息') then Exit;
  Application.CreateForm(TFrm_WorkStation,Frm_WorkStation);
  Frm_WorkStation.ShowModal;

end;

procedure TFrm_main.N_Branchs_RepClick(Sender: TObject);
begin
  if not PurviewSet('部门汇总') then Exit;
  Application.CreateForm(TFrm_Branchs_rep,Frm_Branchs_rep);
  Frm_Branchs_rep.ShowModal;
end;

procedure TFrm_main.PurviewSetupClick(Sender: TObject);
begin

  //TRY

  //EXCEPT
   // MessageBoxWarning('操作权限初始化错误!');
 // END;


end;

procedure TFrm_main.N9Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TFrm_main.N10Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_PasswordChange,Frm_PasswordChange);
  Frm_PasswordChange.ShowModal;
end;

end.