main.~pas

已经给出使用的每个SQL Server数据库

{*******************************************}
{                企业管理软件               }
{                                           }
{作者: 宋坤                                 }
{时间: 2004/06/25                           }
{*******************************************}
unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, StdCtrls, ExtCtrls, Buttons, ImgList,
  Tabs, ActnMan, ActnColorMaps, ActnCtrls, ActnMenus, OleCtrls,xpman,
   jpeg;

type
  Tf_Main = class(TForm)
    MainMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    MyLove: TMenuItem;
    recentform: TMenuItem;
    N12: TMenuItem;
    CoolBar1: TCoolBar;
    Tool: TToolBar;
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    Panel1: TPanel;
    TreeView1: TTreeView;
    Splitter1: TSplitter;
    ImageList1: TImageList;
    N20: TMenuItem;
    N21: TMenuItem;
    ImageList2: TImageList;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Splitter2: TSplitter;
    Label1: TLabel;
    Image1: TImage;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ImageList3: TImageList;
    ToolButton8: TToolButton;
    N10: TMenuItem;
    N3: TMenuItem;
    procedure N21Click(Sender: TObject);
    procedure TreeView1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    Procedure AddMenu(Caption: String;Tag: Integer); //向最近使用的窗体菜单中添加子菜单
    Procedure myloveAddMenu(Caption: String;Tag: Integer);//向我的最爱菜单中添加子菜单
    Function  IsExists(Var Index: Integer): Boolean; //判断刚打开的窗口在最近使用的窗体菜单中是否存在
    Procedure MenuClick(Sender: TObject); //将菜单的单击事件指针指向该方法
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure TreeView1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    Procedure Setmylove;//设置我的最爱菜单
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure N2Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure N10Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  Rczyxx = Record
    czymc: String;
    czyjb: String;//操作员级别
    czymm: String;
    bmdm: integer;  //权限
    fkdm: integer;
    cgth: integer;
    kcjgtz: integer;
    spdj: integer;
    kcsxsgl: integer;
    kczlwh: integer;
    bscl: integer;
    bycl: integer;
    xsth: integer;
    csjk: integer;
    csyfk: integer;
    khjk: integer;
    khyfk: integer;
    ycbhs: integer;
    lrfx: integer;
  end;
var
  f_Main: Tf_Main;
  czyxx: Rczyxx;//记录登录的操作员信息
  MenuItem1: TMenuItem;
  SelectedTag: Integer = -2; //读取树视图中当前被选中节点的状态索引
implementation
  uses cychwh,gszt,qydm,bmdm,zwdm,fkdm,ygdm,khxyed,cszl,khzl,
  kcdw,kclb,kcjcxx,spjcxx,cgjh,spdj,jgtz,cgth,csyfk,csjk,spxs,
  khyfk,khjk,xsth,kcsxx,kczlwh,spdy,bscl,bycl,ycbhs,yxstbfx,khdh ,
  cgjhbb,cgthbb,spbsbb,spbybb,spxsbb,xsthbb,khdhbb,csjkbb,csyfkbb,
  khjkbb,khyfkbb,lrfx,cqyskbb,cqyfkbb,czygl,xtdl,DataModal,mylove,
  sjbf,sjhy,csh,jsq,dldw;
{$R *.dfm}

procedure Tf_Main.N21Click(Sender: TObject);
begin
  Application.CreateForm(Tf_chwh,f_chwh);
  f_chwh.ShowModal;
  f_chwh.Free;
end;

procedure Tf_Main.TreeView1DblClick(Sender: TObject);
var
  index: Integer;
  FormCaption: String;
begin
  //根据状态索引打开响应的窗体
  Case SelectedTag of
    0: begin
         Application.CreateForm(Tf_gszt,f_gszt);
         Formcaption := f_gszt.Caption ;
         f_gszt.ShowModal;
         f_gszt.Free;
       end;
    1: begin
        Application.CreateForm(Tf_qydm,f_qydm);
        Formcaption := f_qydm.Caption ;
        f_qydm.ShowModal;
        f_qydm.Free;
       end;
    2: begin
         if czyxx.bmdm = 0 then
         begin
           Application.CreateForm(Tf_bmdm,f_bmdm);
           Formcaption := f_bmdm.Caption ;
           f_bmdm.ShowModal;
           f_bmdm.Free;
         end
         else
           Application.MessageBox('操作员没有该权限.','提示',64);
       end;
    3: begin
         Application.CreateForm(Tf_zwdm,f_zwdm);
         Formcaption := f_zwdm.Caption ;
         f_zwdm.ShowModal;
         f_zwdm.Free;
     end;
    4: begin
         if czyxx.fkdm = 0 then
         begin
           Application.CreateForm(Tf_fkdm,f_fkdm);
           Formcaption := f_fkdm.Caption ;
           f_fkdm.ShowModal;
           f_fkdm.Free;
         end
         else
           Application.MessageBox('操作员没有该权限.','提示',64);
       end;
    5: begin
          Application.CreateForm(Tf_ygdm,f_ygdm);
          Formcaption := f_ygdm.Caption ;
          f_ygdm.ShowModal;
          f_ygdm.Free;
       end;
    6: begin
         Application.CreateForm(Tf_xyed,f_xyed);
         Formcaption := f_xyed.Caption ;
         f_xyed.ShowModal;
         f_xyed.Free;
       end;
    7: begin
         Application.CreateForm(Tf_cszl,f_cszl);
         Formcaption := f_cszl.Caption ;
         f_cszl.ShowModal;
         f_cszl.Free;
       end;
    8: begin
         Application.CreateForm(Tf_khzl,f_khzl);
         Formcaption := f_khzl.Caption ;
         f_khzl.ShowModal;
         f_khzl.Free;
       end;
    9: begin
         Application.CreateForm(Tf_kclb,f_kclb);
         Formcaption := f_kclb.Caption ;
         f_kclb.ShowModal;
         f_kclb.Free;
       end;
    10: begin
          Application.CreateForm(Tf_kcjcxx,f_kcjcxx);
          Formcaption := f_kcjcxx.Caption ;
          f_kcjcxx.ShowModal;
          f_kcjcxx.Free;
       end;
    11: begin
          Application.CreateForm(Tf_kcdw,f_kcdw);
          Formcaption := f_kcdw.Caption ;
          f_kcdw.ShowModal;
          f_kcdw.Free;
       end;
    12: begin
          Application.CreateForm(Tf_spjcxx,f_spjcxx);
          Formcaption := f_spjcxx.Caption ;
          f_spjcxx.ShowModal;
          f_spjcxx.Free;
       end;
    13: begin
          Application.CreateForm(Tf_cgjh,f_cgjh);
          Formcaption := f_cgjh.Caption ;
          f_cgjh.ShowModal;
          f_cgjh.Free;
        end;
    14: begin
          if czyxx.spdj = 0 then
          begin
            Application.CreateForm(Tf_spdj,f_spdj);
            Formcaption := f_spdj.Caption ;
            f_spdj.ShowModal;
            f_spdj.Free;
          end
          else
            Application.MessageBox('操作员没有该权限.','提示',64);
        end;
    15: begin
          if czyxx.kcjgtz = 0 then
          begin
            Application.CreateForm(Tf_jgtz,f_jgtz);
            Formcaption := f_jgtz.Caption ;
            f_jgtz.ShowModal;
            f_jgtz.Free;
          end
          else
            Application.MessageBox('操作员没有该权限.','提示',64);
        end;
    16: begin
          if czyxx.cgth = 0 then
          begin
            Application.CreateForm(Tf_cgth,f_cgth);
            Formcaption := f_cgth.Caption ;
            f_cgth.ShowModal;
            f_cgth.Free;
          end
          else
            Application.MessageBox('操作员没有该权限.','提示',64);
        end;
    17: begin
          if czyxx.csjk = 0 then
          begin
            Application.CreateForm(Tf_csjk,f_csjk);
            Formcaption := f_csjk.Caption ;
            f_csjk.ShowModal;
            f_csjk.Free;
          end
          else
            Application.MessageBox('操作员没有该权限.','提示',64);
        end;
    18: begin
          if czyxx.csyfk = 0 then
          begin
            Application.CreateForm(Tf_csyfk,f_csyfk);
            Formcaption := f_csyfk.Caption ;
            f_csyfk.ShowModal;
            f_csyfk.Free;
          end
          else
            Application.MessageBox('操作员没有该权限.','提示',64);
        end;
    19: begin
          Application.CreateForm(Tf_spxs,f_spxs);
          Formcaption := f_spxs.Caption ;
          f_spxs.ShowModal;
          f_spxs.Free;
        end;
    20: begin
          if czyxx.xsth = 0 then
          begin
            Application.CreateForm(Tf_xsth,f_xsth);
            Formcaption := f_xsth.Caption ;
            f_xsth.ShowModal;
            f_xsth.Free;
          end
          else
            Application.MessageBox('操作员没有该权限.','提示',64);
        end;
    21: begin
          if czyxx.khjk = 0 then
          begin
            Application.CreateForm(Tf_khjk,f_khjk);
            Formcaption := f_khjk.Caption ;
            f_khjk.ShowModal;
            f_khjk.Free;
          end
          else
            Application.MessageBox('操作员没有该权限.','提示',64);
        end;
    22: begin
          if czyxx.khyfk = 0 then
          begin
            Application.CreateForm(Tf_khyfk,f_khyfk);
            Formcaption := f_khyfk.Caption ;
            f_khyfk.ShowModal;
            f_khyfk.Free;
          end
          else
            Application.MessageBox('操作员没有该权限.','提示',64);
        end;
    23: begin
          if czyxx.kcsxsgl = 0 then
          begin
            Application.CreateForm(Tf_kcsxx,f_kcsxx);
            Formcaption := f_kcsxx.Caption ;
            f_kcsxx.ShowModal;
            f_kcsxx.Free;
          end
          else
            Application.MessageBox('操作员没有该权限.','提示',64);
        end;
    24: begin
          if czyxx.kczlwh = 0 then
          begin
            Application.CreateForm(Tf_kczlwh,f_kczlwh);
            Formcaption := f_kczlwh.Caption ;
            f_kczlwh.ShowModal;
            f_kczlwh.Free;
          end
          else
           Application.MessageBox('操作员没有该权限.','提示',64);
        end;
    25: begin
          Application.CreateForm(Tf_spdy,f_spdy);
          Formcaption := f_spdy.Caption ;
          f_spdy.ShowModal;
          f_spdy.Free;
        end;
    26: begin
          if czyxx.bscl = 0 then
          begin
            Application.CreateForm(Tf_bscl,f_bscl);
            Formcaption := f_bscl.Caption ;
            f_bscl.ShowModal;
            f_bscl.Free;
          end
          else
            Application.MessageBox('操作员没有该权限.','提示',64);
        end;
    27: begin
          if czyxx.bycl = 0 then
          begin
            Application.CreateForm(Tf_spbycl,f_spbycl);
            Formcaption := f_spbycl.Caption ;
            f_spbycl.ShowModal;
            f_spbycl.Free;
          end
          else
            Application.MessageBox('操作员没有该权限.','提示',64);
        end;
    28: begin
          if czyxx.ycbhs = 0 then
          begin
            Application.CreateForm(Tf_cbhs,f_cbhs);
            Formcaption := f_cbhs.Caption ;
            f_cbhs.ShowModal;;
            f_cbhs.Free;
          end
          else
            Application.MessageBox('操作员没有该权限.','提示',64);
        end;
    29: begin
          Application.CreateForm(Tf_yxstbfx,f_yxstbfx);
          Formcaption := f_yxstbfx.Caption ;
          f_yxstbfx.ShowMOdal;
          f_yxstbfx.Free;
        end;
    30: begin
          Application.CreateForm(Tf_khdh,f_khdh);
          Formcaption := f_khdh.Caption ;
          f_khdh.ShowModal;