DONGSHENG6/t_main/u_tree_main.~pas

{$INCLUDE t_main.inc}
unit u_tree_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, dxDBTLCl, dxGrClms, StdCtrls, bsSkinCtrls, ComCtrls,
  dxDBGrid, dxTL, dxDBCtrl, dxCntner,  bsSkinTabs, ExtCtrls, dxtree,
  dxdbtree, jpeg, ToolWin, BusinessSkinForm, ImgList, Menus, DB, ADODB,
  ActnList,inifiles, Grids, DBGrids, XPMenu ,shellapi,
  kbmMemTable, dxsbar, OleCtrls, SHDocVw, cxControls, cxSplitter, RxDBComb;

  Const WM_COMM = WM_APP+100;

type
  Tfrm_tree_main = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton7: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton11: TToolButton;
    ToolButton5: TToolButton;
    ToolButton9: TToolButton;
    ToolButton6: TToolButton;
    ToolButton10: TToolButton;
    ToolButton8: TToolButton;
    Panel6: TPanel;
    Panel7: TPanel;
    Image6: TImage;
    Viewsmall: TImageList;
    ViewLarge: TImageList;
    vtoolbar: TImageList;
    ImageList1: TImageList;
    PopupMenu2: TPopupMenu;
    N9: TMenuItem;
    N10: TMenuItem;
    N15: TMenuItem;
    popView: TPopupMenu;
    N32: TMenuItem;
    N31: TMenuItem;
    N30: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    popOper: TPopupMenu;
    menu_opseae: TMenuItem;
    menu_opseai: TMenuItem;
    menu_opair: TMenuItem;
    menu_opairi: TMenuItem;
    MMModule: TMainMenu;
    PopupMenu3: TPopupMenu;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    dsrmodule: TDataSource;
    qrymodule: TADOStoredProc;
    popMessage: TPopupMenu;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    ActionList1: TActionList;
    Act101: TAction;
    Act102: TAction;
    Act103: TAction;
    Act104: TAction;
    Act105: TAction;
    Act111: TAction;
    Act121: TAction;
    Act131: TAction;
    Act1401: TAction;
    Act151: TAction;
    Act152: TAction;
    Act16: TAction;
    Act20101: TAction;
    Act211: TAction;
    Act212: TAction;
    Act213: TAction;
    Act214: TAction;
    Act22: TAction;
    Act241: TAction;
    Act242: TAction;
    Act30101: TAction;
    Act30102: TAction;
    Act30103: TAction;
    Act30104: TAction;
    Act30117: TAction;
    Act304: TAction;
    Act303: TAction;
    Act155: TAction;
    Act30201: TAction;
    Act30202: TAction;
    Act30203: TAction;
    Act30204: TAction;
    Act411: TAction;
    Act412: TAction;
    Act413: TAction;
    Act41401: TAction;
    Act41402: TAction;
    Act41403: TAction;
    Act43: TAction;
    Act44: TAction;
    Act441: TAction;
    Act442: TAction;
    Act443: TAction;
    Act444: TAction;
    Act445: TAction;
    Act451: TAction;
    Act452: TAction;
    Act453: TAction;
    Act47: TAction;
    Act49: TAction;
    Act48: TAction;
    Act51: TAction;
    Act521: TAction;
    Act522: TAction;
    Act523: TAction;
    Act524: TAction;
    Act525: TAction;
    Act526: TAction;
    Act5310: TAction;
    Act5321: TAction;
    Act5330: TAction;
    Act5340: TAction;
    Act5350: TAction;
    Act5360: TAction;
    Act5370: TAction;
    Act5380: TAction;
    Act541: TAction;
    Act542: TAction;
    Act543: TAction;
    Act544: TAction;
    Act545: TAction;
    Act546: TAction;
    Act61: TAction;
    Act62: TAction;
    Act71: TAction;
    Act72: TAction;
    Act73: TAction;
    Act74: TAction;
    Act801: TAction;
    Act80206: TAction;
    Act804: TAction;
    Act805: TAction;
    Act806: TAction;
    Act807: TAction;
    Act808: TAction;
    Act911: TAction;
    Act912: TAction;
    Act913: TAction;
    Act914: TAction;
    Act921: TAction;
    Act922: TAction;
    Act931: TAction;
    Act932: TAction;
    Act933: TAction;
    Act934: TAction;
    Act935: TAction;
    Act936: TAction;
    Act937: TAction;
    Act938: TAction;
    Act941: TAction;
    Act942: TAction;
    Act943: TAction;
    Act944: TAction;
    Act945: TAction;
    Act946: TAction;
    Act951: TAction;
    Act952: TAction;
    Act953: TAction;
    Act954: TAction;
    Act955: TAction;
    Act956: TAction;
    Act957: TAction;
    Act958: TAction;
    Act959: TAction;
    Act960: TAction;
    Act961: TAction;
    Act962: TAction;
    Act963: TAction;
    Act964: TAction;
    Act965: TAction;
    Act966: TAction;
    Act967: TAction;
    Act968: TAction;
    Act969: TAction;
    Act970: TAction;
    Act971: TAction;
    Act1009: TAction;
    Act80201: TAction;
    Act80202: TAction;
    Act80203: TAction;
    Act80204: TAction;
    Act80205: TAction;
    Act2001: TAction;
    Act2002: TAction;
    Act2003: TAction;
    Act2004: TAction;
    Act2005: TAction;
    Act2006: TAction;
    Act20102: TAction;
    Act20103: TAction;
    Act20104: TAction;
    Act75: TAction;
    Act17: TAction;
    Act939: TAction;
    Act9391: TAction;
    Act972: TAction;
    Act1001: TAction;
    Act1002: TAction;
    Act1003: TAction;
    Act5323: TAction;
    Act5390: TAction;
    Act5400: TAction;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    Panel5: TPanel;
    Panel8: TPanel;
    Image7: TImage;
    Label1: TLabel;
    Label14: TLabel;
    Label9: TLabel;
    Label15: TLabel;
    ListView1: TListView;
    bsSkinMainMenuBar1: TbsSkinMainMenuBar;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Act9390: TAction;
    PopupClose: TPopupMenu;
    popclose_close: TMenuItem;
    OpenDialog1: TOpenDialog;
    p_view: TADOStoredProc;
    Act515: TAction;
    Act18: TAction;
    Act547: TAction;
    Act548: TAction;
    Act5381: TAction;
    Act5382: TAction;
    Act5383: TAction;
    Act5384: TAction;
    Act5391: TAction;
    Act5392: TAction;
    Act5401: TAction;
    Act5402: TAction;
    Act5403: TAction;
    Act5404: TAction;
    Splitter1: TSplitter;
    Act215: TAction;
    Act5210: TAction;
    Act4011: TAction;
    Act4012: TAction;
    Act4013: TAction;
    Act4014: TAction;
    Act4015: TAction;
    bsSkinPageControl2: TbsSkinPageControl;
    tabtree: TbsSkinTabSheet;
    tabfav: TbsSkinTabSheet;
    Viewpage: TImageList;
    dxbar_main: TdxSideBar;
    ToolButton12: TToolButton;
    t_sys_module_emp1: TDataSource;
    t_sys_module_emp: TADOQuery;
    p_sys_module_emp: TADOStoredProc;
    qrytmp: TADOQuery;
    popdxlist: TPopupMenu;
    N1: TMenuItem;
    Act307: TAction;
    Act947: TAction;
    Act5405: TAction;
    Act191: TAction;
    Act192: TAction;
    Act948: TAction;
    Act974: TAction;
    Act78: TAction;
    Act245: TAction;
    Act402: TAction;
    Act549: TAction;
    Act1010: TAction;
    Act156: TAction;
    Act949: TAction;
    Act491: TAction;
    Act492: TAction;
    Act5491: TAction;
    Act25: TAction;
    Act308: TAction;
    ToolButton13: TToolButton;
    Act815: TAction;
    Act816: TAction;
    Act975: TAction;
    Act5492: TAction;
    Act976: TAction;
    Act817: TAction;
    mmodule: TkbmMemTable;
    Act5351: TAction;
    Act493: TAction;
    Act309: TAction;
    Act5324: TAction;
    bsSkinPanel1: TbsSkinPanel;
    maintree: TdxDBTreeView;
    cxSplitter1: TcxSplitter;
    WebBrowser1: TWebBrowser;
    Act977: TAction;
    Act416: TAction;
    Act3001: TAction;
    Act31001: TAction;
    Act31002: TAction;
    Act31003: TAction;
    Act31004: TAction;
    Act19901: TAction;
    Act980: TAction;
    Act981: TAction;
    Act30118: TAction;
    Act4020: TAction;
    Act157: TAction;
    Act158: TAction;
    Act982: TAction;
    Act200: TAction;
    Act978: TAction;
    Act979: TAction;
    Act1082: TAction;
    Act9392: TAction;
    Act494: TAction;
    Act3003: TAction;
    Act216: TAction;
    Act9331: TAction;
    Act482: TAction;
    Act201: TAction;
    Act202: TAction;
    Act483: TAction;
    Act246: TAction;
    Act312: TAction;
    Act313: TAction;
    Act118: TAction;
    Act247: TAction;
    Act248: TAction;
    Act495: TAction;
    Act311: TAction;
    Act496: TAction;
    Act79: TAction;
    Action1: TAction;
    Action2: TAction;
    Act6001: TAction;
    Act6002: TAction;
    N2: TMenuItem;
    N16: TMenuItem;
    Act9332: TAction;
    Act6003: TAction;
    Act249: TAction;
    Act6004: TAction;
    Act497: TAction;
    Act1081: TAction;
    Act16001: TAction;
    Act16002: TAction;
    Act16003: TAction;
    Act17001: TAction;
    Act17002: TAction;
    Act17003: TAction;
    Act17004: TAction;
    Act17005: TAction;
    Act19902: TAction;
    Act30121: TAction;
    Act983: TAction;
    Act4031: TAction;
    Act19903: TAction;
    Act20308: TAction;
    Act204: TAction;
    Act923: TAction;
    Act9301: TAction;
    Act984: TAction;
    Act41404: TAction;
    Act461: TAction;
    Act449: TAction;
    Act985: TAction;
    Act30205: TAction;
    Act1084: TAction;
    Act9333: TAction;
    Act498: TAction;
    Act499: TAction;
    Act30124: TAction;
    LoadBtn: TToolButton;
    ToolButton15: TToolButton;
    PopView_Load: TPopupMenu;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N33: TMenuItem;
    Act18001: TAction;
    Act30125: TAction;
    Act4033: TAction;
    Act250: TAction;
    Act205: TAction;
    Act206: TAction;
    Act207: TAction;
    Act986: TAction;
    Act987: TAction;
    Act5352: TAction;
    Act203001: TAction;
    procedure N9Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure maintreeChange(Sender: TObject; Node: TTreeNode);
    procedure maintreeDblClick(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure menu_opseaeClick(Sender: TObject);
    procedure menu_opseaiClick(Sender: TObject);
    procedure menu_opairClick(Sender: TObject);
    procedure menu_opairiClick(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure Act801Execute(Sender: TObject);
    procedure Act80206Execute(Sender: TObject);
    procedure Act804Execute(Sender: TObject);
    procedure Act805Execute(Sender: TObject);
    procedure Act806Execute(Sender: TObject);
    procedure Act807Execute(Sender: TObject);
    procedure Act808Execute(Sender: TObject);
    procedure Act80201Execute(Sender: TObject);
    procedure Act80202Execute(Sender: TObject);
    procedure Act80203Execute(Sender: TObject);
    procedure Act80204Execute(Sender: TObject);
    procedure Act80205Execute(Sender: TObject);
    procedure Act51Execute(Sender: TObject);
    procedure Act43Execute(Sender: TObject);
    procedure Act44Execute(Sender: TObject);
    procedure Act47Execute(Sender: TObject);
    procedure Act49Execute(Sender: TObject);
    procedure Act48Execute(Sender: TObject);
    procedure Act541Execute(Sender: TObject);
    procedure Act542Execute(Sender: TObject);
    procedure Act543Execute(Sender: TObject);
    procedure Act544Execute(Sender: TObject);
    procedure Act545Execute(Sender: TObject);
    procedure Act546Execute(Sender: TObject);
    procedure Act941Execute(Sender: TObject);
    procedure Act942Execute(Sender: TObject);
    procedure Act943Execute(Sender: TObject);
    procedure Act944Execute(Sender: TObject);
    procedure Act945Execute(Sender: TObject);
    procedure Act946Execute(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure Act921Execute(Sender: TObject);
    procedure Act922Execute(Sender: TObject);
    procedure Act101Execute(Sender: TObject);
    procedure Act102Execute(Sender: TObject);
    procedure Act103Execute(Sender: TObject);
    procedure Act104Execute(Sender: TObject);
    procedure Act105Execute(Sender: TObject);
    procedure Act111Execute(Sender: TObject);
    procedure Act121Execute(Sender: TObject);
    procedure Act131Execute(Sender: TObject);
    procedure Act1401Execute(Sender: TObject);
    procedure Act151Execute(Sender: TObject);
    procedure Act152Execute(Sender: TObject);
    procedure Act16Execute(Sender: TObject);
    procedure Act155Execute(Sender: TObject);
    procedure Act17Execute(Sender: TObject);
    procedure Act5310Execute(Sender: TObject);
    procedure Act5321Execute(Sender: TObject);
    procedure Act5330Execute(Sender: TObject);
    procedure Act5340Execute(Sender: TObject);
    procedure Act5350Execute(Sender: TObject);
    procedure Act5360Execute(Sender: TObject);
    procedure Act5370Execute(Sender: TObject);
    procedure Act5380Execute(Sender: TObject);
    procedure Act5323Execute(Sender: TObject);
    procedure Act5390Execute(Sender: TObject);
    procedure Act5400Execute(Sender: TObject);
    procedure Act951Execute(Sender: TObject);
    procedure Act952Execute(Sender: TObject);
    procedure Act953Execute(Sender: TObject);
    procedure Act954Execute(Sender: TObject);
    procedure Act955Execute(Sender: TObject);
    procedure Act956Execute(Sender: TObject);
    procedure Act957Execute(Sender: TObject);
    procedure Act958Execute(Sender: TObject);
    procedure Act959Execute(Sender: TObject);
    procedure Act960Execute(Sender: TObject);
    procedure Act961Execute(Sender: TObject);
    procedure Act962Execute(Sender: TObject);
    procedure Act963Execute(Sender: TObject);
    procedure Act964Execute(Sender: TObject);
    procedure Act965Execute(Sender: TObject);
    procedure Act966Execute(Sender: TObject);
    procedure Act967Execute(Sender: TObject);
    procedure Act968Execute(Sender: TObject);
    procedure Act969Execute(Sender: TObject);
    procedure Act970Execute(Sender: TObject);
    procedure Act971Execute(Sender: TObject);
    procedure Act972Execute(Sender: TObject);
    procedure Act411Execute(Sender: TObject);
    procedure Act412Execute(Sender: TObject);
    procedure Act413Execute(Sender: TObject);
    procedure Act41401Execute(Sender: TObject);
    procedure Act41402Execute(Sender: TObject);
    procedure Act41403Execute(Sender: TObject);
    procedure Act931Execute(Sender: TObject);
    procedure Act932Execute(Sender: TObject);
    procedure Act933Execute(Sender: TObject);
    procedure Act934Execute(Sender: TObject);
    procedure Act935Execute(Sender: TObject);
    procedure Act936Execute(Sender: TObject);
    procedure Act937Execute(Sender: TObject);
    procedure Act938Execute(Sender: TObject);
    procedure Act939Execute(Sender: TObject);
    procedure Act9391Execute(Sender: TObject);
    procedure Act1009Execute(Sender: TObject);
    procedure Act1001Execute(Sender: TObject);
    procedure Act1002Execute(Sender: TObject);
    procedure Act1003Execute(Sender: TObject);
    procedure Act451Execute(Sender: TObject);
    procedure Act452Execute(Sender: TObject);
    procedure Act453Execute(Sender: TObject);
    procedure Act2001Execute(Sender: TObject);
    procedure Act2002Execute(Sender: TObject);
    procedure Act2003Execute(Sender: TObject);
    procedure Act2004Execute(Sender: TObject);
    procedure Act2005Execute(Sender: TObject);
    procedure Act2006Execute(Sender: TObject);
    procedure Act71Execute(Sender: TObject);
    procedure Act72Execute(Sender: TObject);
    procedure Act73Execute(Sender: TObject);
    procedure Act74Execute(Sender: TObject);
    procedure Act75Execute(Sender: TObject);
    procedure Act911Execute(Sender: TObject);
    procedure Act912Execute(Sender: TObject);
    procedure Act913Execute(Sender: TObject);
    procedure Act914Execute(Sender: TObject);
    procedure Act521Execute(Sender: TObject);
    procedure Act522Execute(Sender: TObject);
    procedure Act523Execute(Sender: TObject);
    procedure Act524Execute(Sender: TObject);
    procedure Act525Execute(Sender: TObject);
    procedure Act526Execute(Sender: TObject);
    procedure Act30117Execute(Sender: TObject);
    procedure Act304Execute(Sender: TObject);
    procedure Act303Execute(Sender: TObject);
    procedure Act441Execute(Sender: TObject);
    procedure Act442Execute(Sender: TObject);
    procedure Act443Execute(Sender: TObject);
    procedure Act444Execute(Sender: TObject);
    procedure Act445Execute(Sender: TObject);
    procedure Act241Execute(Sender: TObject);
    procedure Act242Execute(Sender: TObject);
    procedure Act20101Execute(Sender: TObject);
    procedure Act211Execute(Sender: TObject);
    procedure Act212Execute(Sender: TObject);
    procedure Act213Execute(Sender: TObject);
    procedure Act214Execute(Sender: TObject);
    procedure Act22Execute(Sender: TObject);
    procedure Act20102Execute(Sender: TObject);
    procedure Act20103Execute(Sender: TObject);
    procedure Act20104Execute(Sender: TObject);
    procedure Act30201Execute(Sender: TObject);
    procedure Act30202Execute(Sender: TObject);
    procedure Act30203Execute(Sender: TObject);
    procedure Act30204Execute(Sender: TObject);
    procedure Act30101Execute(Sender: TObject);
    procedure Act30102Execute(Sender: TObject);
    procedure Act30103Execute(Sender: TObject);
    procedure Act30104Execute(Sender: TObject);
    procedure Act61Execute(Sender: TObject);
    procedure Act62Execute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure Act9390Execute(Sender: TObject);
    procedure bsSkinPageControl1MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure popclose_closeClick(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure Act515Execute(Sender: TObject);
    procedure Act18Execute(Sender: TObject);
    procedure Act547Execute(Sender: TObject);
    procedure Act548Execute(Sender: TObject);
    procedure Act5381Execute(Sender: TObject);
    procedure Act5382Execute(Sender: TObject);
    procedure Act5383Execute(Sender: TObject);
    procedure Act5384Execute(Sender: TObject);
    procedure Act5391Execute(Sender: TObject);
    procedure Act5392Execute(Sender: TObject);
    procedure Act5401Execute(Sender: TObject);
    procedure Act5402Execute(Sender: TObject);
    procedure Act5403Execute(Sender: TObject);
    procedure Act5404Execute(Sender: TObject);
    procedure Act215Execute(Sender: TObject);
    procedure Act5210Execute(Sender: TObject);
    procedure Act4011Execute(Sender: TObject);
    procedure Act4012Execute(Sender: TObject);
    procedure Act4013Execute(Sender: TObject);
    procedure Act4014Execute(Sender: TObject);
    procedure Act4015Execute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinPageControl2Change(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure dxbar_mainItemClick(Sender: TObject; Item: TdxSideBarItem);
    procedure N1Click(Sender: TObject);
    procedure Act307Execute(Sender: TObject);
    procedure Act947Execute(Sender: TObject);
    procedure Act5405Execute(Sender: TObject);
    procedure Act191Execute(Sender: TObject);
    procedure Act192Execute(Sender: TObject);
    procedure Act948Execute(Sender: TObject);
    procedure Act974Execute(Sender: TObject);
    procedure Act78Execute(Sender: TObject);
    procedure Act245Execute(Sender: TObject);
    procedure Act402Execute(Sender: TObject);
    procedure Act549Execute(Sender: TObject);
    procedure Act1010Execute(Sender: TObject);
    procedure Act156Execute(Sender: TObject);
    procedure Act949Execute(Sender: TObject);
    procedure Act491Execute(Sender: TObject);
    procedure Act492Execute(Sender: TObject);
    procedure Act5491Execute(Sender: TObject);
    procedure Act25Execute(Sender: TObject);
    procedure Act308Execute(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure Act815Execute(Sender: TObject);
    procedure Act816Execute(Sender: TObject);
    procedure Act975Execute(Sender: TObject);
    procedure Act5492Execute(Sender: TObject);
    procedure Act976Execute(Sender: TObject);
    procedure Act817Execute(Sender: TObject);
    procedure Act5351Execute(Sender: TObject);
    procedure Act493Execute(Sender: TObject);
    procedure Act309Execute(Sender: TObject);
    procedure Act5324Execute(Sender: TObject);
    procedure Act977Execute(Sender: TObject);
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure Act416Execute(Sender: TObject);
    procedure Act3001Execute(Sender: TObject);
    procedure Act31001Execute(Sender: TObject);
    procedure Act31002Execute(Sender: TObject);
    procedure Act31003Execute(Sender: TObject);
    procedure Act31004Execute(Sender: TObject);
    procedure Act19901Execute(Sender: TObject);
    procedure Act980Execute(Sender: TObject);
    procedure Act981Execute(Sender: TObject);
    procedure Act30118Execute(Sender: TObject);
    procedure Act4020Execute(Sender: TObject);
    procedure Act157Execute(Sender: TObject);
    procedure Act158Execute(Sender: TObject);
    procedure Act982Execute(Sender: TObject);
    procedure Act200Execute(Sender: TObject);
    procedure Act978Execute(Sender: TObject);
    procedure Act979Execute(Sender: TObject);
    procedure Act1082Execute(Sender: TObject);
    procedure Act9392Execute(Sender: TObject);
    procedure Act494Execute(Sender: TObject);
    procedure Act216Execute(Sender: TObject);
    procedure Act9331Execute(Sender: TObject);
    procedure Act482Execute(Sender: TObject);
    procedure Act201Execute(Sender: TObject);
    procedure Act483Execute(Sender: TObject);
    procedure Act202Execute(Sender: TObject);
    procedure Act312Execute(Sender: TObject);
    procedure Act246Execute(Sender: TObject);
    procedure Act313Execute(Sender: TObject);
    procedure Act118Execute(Sender: TObject);
    procedure Act247Execute(Sender: TObject);
    procedure Act248Execute(Sender: TObject);
    procedure Act495Execute(Sender: TObject);
    procedure Act311Execute(Sender: TObject);
    procedure Act496Execute(Sender: TObject);
    procedure Act79Execute(Sender: TObject);
    procedure Act6001Execute(Sender: TObject);
    procedure Act6002Execute(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure Act9332Execute(Sender: TObject);
    procedure Act6003Execute(Sender: TObject);
    procedure Act249Execute(Sender: TObject);
    procedure Act6004Execute(Sender: TObject);
    procedure Act497Execute(Sender: TObject);
    procedure Act1081Execute(Sender: TObject);
    procedure Act16001Execute(Sender: TObject);
    procedure Act16002Execute(Sender: TObject);
    procedure Act16003Execute(Sender: TObject);
    procedure Act17001Execute(Sender: TObject);
    procedure Act17002Execute(Sender: TObject);
    procedure Act17003Execute(Sender: TObject);
    procedure Act17004Execute(Sender: TObject);
    procedure Act19902Execute(Sender: TObject);
    procedure Act30121Execute(Sender: TObject);
    procedure Act983Execute(Sender: TObject);
    procedure Act4031Execute(Sender: TObject);
    procedure Act19903Execute(Sender: TObject);
    procedure Act20308Execute(Sender: TObject);
    procedure Act204Execute(Sender: TObject);
    procedure Act923Execute(Sender: TObject);
    procedure Act9301Execute(Sender: TObject);
    procedure Act984Execute(Sender: TObject);
    procedure Act41404Execute(Sender: TObject);
    procedure Act461Execute(Sender: TObject);
    procedure Act449Execute(Sender: TObject);
    procedure Act985Execute(Sender: TObject);
    procedure Act30205Execute(Sender: TObject);
    procedure Act1084Execute(Sender: TObject);
    procedure Act9333Execute(Sender: TObject);
    procedure Act498Execute(Sender: TObject);
    procedure Act499Execute(Sender: TObject);
    procedure Act30124Execute(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure LoadBtnClick(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure Act18001Execute(Sender: TObject);
    procedure Act30125Execute(Sender: TObject);
    procedure Act4033Execute(Sender: TObject);
    procedure Act250Execute(Sender: TObject);
    procedure Act207Execute(Sender: TObject);
    procedure Act206Execute(Sender: TObject);
    procedure Act205Execute(Sender: TObject);
    procedure Act986Execute(Sender: TObject);
    procedure sute(Sender: TObject);
    procedure Act987Execute(Sender: TObject);
    procedure Act5352Execute(Sender: TObject);
    procedure Act203001Execute(Sender: TObject);
  private
    { Private declarations }
    CloseSheet:TTabSheet ;
    function getpname(pid:integer):TMenuItem ;
    procedure addlv(myid: integer);
    procedure addlvemp(myid: integer);
    procedure dellvemp(myid: integer);
    procedure addLVcolumn ;
    procedure adddx;
    procedure Addmenu ;
    procedure menuclick(Sender: TObject) ;
    procedure SaveView(skinName:string);
    function delmenu(menu:TMenuItem):boolean;
  public
    { Public declarations }
    function freesheeet:boolean ;
    procedure replmenu ;
  end;

var
  frm_tree_main: Tfrm_tree_main;

implementation

uses u_data_share,u_info_tell,
  u_sys_message_pri,  u_main,
  {$IFDEF BGXITONG}
  u_info_bulletin,u_info_bulletin_manage,u_info_kaoqin_report,u_info_rules, u_info_criterion,u_info_yijian_manage,
  u_info_shareDoc, u_info_kaoqin_shouquan,u_info_yijian,u_info_luntan,
  {$ENDIF}
   my_sys_function,
  {$IFDEF GZBAOGAO}
  u_info_render_manager,
  u_info_render,
  {$ENDIF}
  u_rp_dui_accepttotal, U_ch_prnFee,
  {$IFDEF PZJIEKOU}
  u_cw_pingzheng,
  {$ENDIF}
  {$IFDEF QTFEIYONG}
  u_op_fee,
  {$ENDIF}
  {$IFDEF YWTAIZHANG}
  u_rp_tai_total,u_rp_tai_seae_pin,
  {$ENDIF}
  u_rp_fee_modify, u_rp_ch_balance_accept,
  u_rp_ch_balance_pay, u_rp_ch_balance_rate, u_rp_ch_currency_change,
  {$IFDEF FYZHUANGTAI}
  u_rp_ch_fee_state,
  {$ENDIF}
  u_sys_parameters, u_code_empty,
  u_code_subcomp,  u_sys_close,
  u_sys_dep_emp, u_sys_limited, u_op_seae,
  {$IFDEF PXHUANHUO}u_op_seae_huanhuo,{$ENDIF}
  u_op_seae_vessel_change,
  {$IFDEF QDQUEREN}u_op_seae_qiandan,{$ENDIF}
  u_op_seae_qiandan_add,
  u_op_seai, u_op_aire, u_op_airi,
  {$IFDEF JGCHE}u_op_airtruck,u_op_airtruck_close,u_ch_fee_check_airtruck,{$ENDIF}
  {$IFDEF SJBAOGUAN}u_op_seae_apply, u_op_seai_apply, u_op_apply,{$ENDIF}
  u_op_seae_card,
  {$IFDEF TSQUEREN}u_op_seae_tuishui,{$ENDIF}
  u_op_delete,
  u_rp_rp_seae_pin, u_rp_rp_total, {$IFDEF ZHYDTONGJI}u_rp_rp_monthtotal,{$ENDIF}   {$IFDEF ZHMXTONGJI}u_rp_ch_total,{$ENDIF}
  {$IFDEF ZHZIYOU}u_rp_chfree_total,{$ENDIF} {$IFDEF GYSHANG}u_rp_truck_no, u_rp_apply_no,{$ENDIF} u_rp_zou_total,
  u_rp_rp_seae, u_rp_fen_total, u_code_ctn_kind,
  u_code_ctn, u_code_goods, u_code_package,
  u_code_tiaokuan, u_code_country, u_code_port, u_code_port_air,
  u_code_trade, u_code_vessel,
  {$IFDEF EDI}u_code_line_edi, {$ENDIF}
  u_code_signbill, u_code_items, u_code_code, u_code_send_head, u_code_card,
  {$IFDEF ZTGENGZONG}u_code_state, {$ENDIF}
  u_code_source, u_code_opresult,
  {$IFDEF FPSHENQING}u_ch_invoice_shen,u_ch_invoice_check,{$ENDIF}
  u_ch_invoice, u_rp_in_ch,
  u_rp_in_fenlei, u_rp_in_total, u_code_currency, u_code_fee_type,
  u_code_fee, u_code_fee_project, u_code_free, u_code_fee_color,
  {$IFDEF PZJIEKOU}
  u_cw_design, u_cw_kemu,
  {$ENDIF}
  u_code_UsdExRate, u_info_card,
  {$IFDEF KDYEWU} u_op_kuaidi_shen, u_op_kuaidi_check, u_op_kuaidi_manage,u_code_send_address,{$ENDIF}
  {$IFDEF FFLIUCHENG}u_ch_check_shen, u_ch_check_check,{$ENDIF}
  u_ch_balance_pay, u_sys_employee,
  {$IFDEF GRXINXI}
  u_info_leaveword, u_info_plan,u_info_plan_individual,u_info_leaveword_manage,
  {$ENDIF}
  u_info_tell_manage,
   u_crm_client,
  {$IFDEF KHGUANLI}u_code_price,u_rp_crm_credit,u_code_customstatu,U_sys_crm_params,u_crm_client_report, u_crm_client_sales,u_code_client_parameter,{$ENDIF} u_sys_company, u_code_print_head,
  u_sys_bank, u_rp_no_total,
  {$IFDEF QFFZZONGHE}
  u_rp_ch_clienttotal,
  {$ENDIF}
  U_rp_fee_outamt, u_rp_zl_total,
  {$IFDEF QFZOUSHI}
  u_rp_no_zou,
  {$ENDIF}
  {$IFDEF SFLIUCHENG}
  u_ch_accept_shen, u_ch_balance_accept_deng, u_ch_balance_accept_hexiao, u_ch_balance_accept_check,
  {$ENDIF}
  u_ch_balance_accept,
  {$IFDEF XSGUANLI}
  u_rp_sales_profit, u_rp_sales_profitLcx,u_ch_fee_sea_sales,u_ch_fee_seai_sales, u_ch_fee_aire_sales,u_ch_fee_airi_sales,u_rp_sales_profit_lx,u_sys_sale_profitset,
  {$ENDIF}
  {$IFDEF YJGUANLI}
  u_info_price_manage, u_info_price_release,u_special_price_qus,u_code_price_ctn,
  u_info_price_other,
  {$ENDIF}

  {$IFDEF YWFUHE} u_ch_fee_Recheck_seae, u_ch_fee_Recheck_seai,u_ch_fee_Recheck_aire, u_ch_fee_Recheck_airi,{$ENDIF}
  u_ch_fee_check_aire,
  u_ch_fee_check_seae, u_ch_fee_check_seai, u_ch_fee_check_airi,
  {$IFDEF ZJFENXI}u_rp_zj_total, u_rp_zj_zou,{$ENDIF} u_sys_module, u_chrat_message,
  {$IFDEF DLFENZHANG}u_rp_rp_sea_daili,u_code_fee_project_cargomainfest,u_code_fee_project_agent,u_rp_fenzhang,{$ENDIF}
  u_rp_dui_accept,
  {$IFDEF TBQITA}
   u_rp_zou_seae, u_rp_zou_seai, u_rp_zou_aire, u_rp_zou_airi,u_rp_fen_seae, u_rp_fen_seai,u_rp_fen_aire, u_rp_fen_airi,u_rp_fen_seae_ctn,
  {$ENDIF}
  u_rp_dui_pay,u_rp_edi,
  u_rp_yunjia_seae, u_rp_yunfeibl_seae,
  {$IFDEF WLZHANG}
  u_rp_ch_genleg,u_ch_genleg,AccCloseOffu, AccCloseOffBacku,u_rp_wl_total,
  {$ENDIF}
  u_info_bunk, {$IFDEF QFYDFENXI}u_rp_no_monthtotal,{$ENDIF} u_op_seae_close, u_op_seai_close,
  u_op_aire_close, u_op_airi_close,  u_sys_dxbar_sort,
  u_op_seae_unlock, u_sys_printset, u_rp_hl_histry, u_sys_noset,
  u_code_port_load, u_crm_client_special,
  {$IFDEF DCKA}
  u_op_seae_weituo,u_op_seae_order,
   {$ENDIF}
  u_sys_about, u_op_seae_tdqr, u_code_zlset, sys_regu, u_info_plan_manage,
  u_code_edi_port, u_rp_ch_balance_detail, u_code_airtrade,
  u_op_seae_fangdan, u_rp_pin_total, u_code_letter, u_ch_invoice_hexiao,
  U_op_state_view, u_op_seae_weborder, u_op_seai_order, u_op_aire_order,
  u_op_airi_order, u_op_railway,u_code_railwayctnsource,u_code_railport,
  u_ch_fee_check_railway, u_op_railway_close, u_op_railway_apply,
  u_op_seai_fuhui, u_code_railwaypath, u_op_truck, u_code_truck_client,
  u_code_truck_changzhan, u_op_seae_list, u_code_stlmode, u_ch_cust_befbal,
  u_code_fee_unit, u_op_mblsign, u_op_mblsignin, u_op_seae_teshufandan,
  u_op_seae_teshushen, u_op_seae_teshufz, u_op_seae_teshusales,
  u_op_seai_sf, u_rp_sales_profit_two, u_sys_sale_profitset_two,
  u_ch_bankday, u_seai_sf_message, u_op_seae_teshucw, u_op_fee2,
  u_crm_client_check, u_rp_tai_total_com, u_rp_zl_total_com,u_cw_pingzhengsap,u_cw_pingzheng_jj,u_cw_pingzheng_jh,
  u_code_UsdExRate_Invoice, u_rp_no_monthtotal_com, u_rp_sales_profit_gl,
  u_rp_no_total_com, u_cw_pingzheng_gj, u_ch_precost, u_cw_pingzheng_yt,
  u_cw_pingzheng_ym, u_op_seae_edi, u_op_cnt_manage, u_op_cnt_maintain,
  u_op_cnt_remind, u_cw_pingzheng_zj, u_cw_pingzheng_mh, u_op_ctn_add,
  u_op_ctn_give, u_op_ctn_status, u_op_ctn_detail, u_op_railway_shencode,
  u_ch_fee_check_ctndetail, u_code_ctn_status, u_op_ctn_close,
  u_op_railway_road, u_op_seae_edi_data, u_cw_pingzheng_lhjt, u_op_custom,
  workflow, u_op_seae_weituo_wf, u_op_seae_order_wf,
  u_code_fee_project_order, u_cw_pingzheng_hj, u_code_city, rp_in_ch_type,
  u_cw_pingzhengsaphc, u_cw_pingzheng_ty, u_code_fee_project_localair,
  u_ch_fee_recheck_railway, u_op_seae_hbl, u_code_holiday,
  u_cw_pingzheng_wflj, u_ch_bankacc, u_cw_pingzheng_zh, u_cw_pingzheng_jdy,
  u_rp_op_profit, u_ch_fee_check_seae_match, crm_OnLineBooking,
  crm_OnLineShippingOrder, crm_OnLineBillLadingConfirm, U_SetCompany,
  U_SelectLinkMan, U_SelectLinkCompany, U_SHIPINGBOX_SI, U_BookingLog,
  u_op_sealocal, u_ch_fee_check_sealocal, u_op_sealocal_close,
  u_cw_pingzheng_dy, u_cw_pingzheng_fm, u_op_airtruck2, u_cw_pingzheng2000,
  u_edi_cangdan_weihu,u_edi_vgm_weihu, u_op_seae_vgm_data, u_code_pilcode,
  u_code_cdstatus, u_rp_cd_monthtotal;

{$R *.dfm}

procedure Tfrm_tree_main.N9Click(Sender: TObject);
begin
  maintree.FullCollapse ;
end;

procedure Tfrm_tree_main.N15Click(Sender: TObject);
begin
  maintree.FullExpand ;
end;

procedure Tfrm_tree_main.maintreeChange(Sender: TObject; Node: TTreeNode);
var
  ListItem:Tlistitem;
begin

  if showing then
  if  maintree.Selected.HasChildren then
  begin
    ListView1.Items.Clear ;
    addlv(qrymodule.fieldbyname('fmoduleid').asinteger);

  end
  else
  begin
    ListView1.Items.Clear ;
    ListItem:=ListView1.items.Add ;
    ListItem.Caption:=qrymodule.fieldbyname('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring ;
    ListItem.SubItems.add(qrymodule.fieldbyname('<27><>ע').asstring) ;
    ListItem.SubItems.add(qrymodule.fieldbyname('fmoduleid').asstring) ;
    ListItem.ImageIndex:=0 ;
  end ;

end;

procedure Tfrm_tree_main.maintreeDblClick(Sender: TObject);
var myid,i:integer;
    myaction: string;
begin
  if maintree.Selected=nil then exit ;
  if maintree.Selected.HasChildren then exit ;
  myid:=qrymodule.fieldbyname('fmoduleid').asinteger ;

  if not vold then begin
    if myid<>0 then begin
      if frm_data_share.memreg.Locate('fmoduleid',myid,[]) then begin
        if frm_data_share.memreg.fieldbyname('reg').AsInteger=0 then begin
          MessageDlg('<27><>ģ<EFBFBD><C4A3>û<EFBFBD><C3BB>ע<EFBFBD>᲻<EFBFBD><E1B2BB>ʹ<EFBFBD>ã<EFBFBD>',mtWarning,[mbOk],0);
          exit;
        end else if frm_data_share.memreg.fieldbyname('reg').AsInteger=2 then begin
          i:=frm_main.RegwareII1.DaysLeft;
          if i<=0 then begin
            MessageDlg('<27><>ģ<EFBFBD><C4A3>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD>ע<EFBFBD><D7A2>,<2C><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>ѹ<EFBFBD><D1B9><EFBFBD>',mtWarning,[mbOk],0);
            exit;
          end else begin
            MessageDlg('<27><>ģ<EFBFBD><C4A3>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD>ע<EFBFBD><D7A2>,<2C><><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ'+inttostr(i)+'<27>죡',mtWarning,[mbOk],0);
          end;
        end;
      end else begin
        MessageDlg('<27><>ģ<EFBFBD><C4A3>û<EFBFBD><C3BB>ע<EFBFBD>᲻<EFBFBD><E1B2BB>ʹ<EFBFBD>ã<EFBFBD>',mtWarning,[mbOk],0);
        exit;
      end;
    end;
  end;


  myaction:='Act'+inttostr(myid);
//  showmessage(myaction);
  with ActionList1 do
    for i:=0 to ActionCount-1 do
      if Actions[i].Name=myaction then
      begin
        Actions[i].Execute ;
        break ;
      end ;
end;

procedure Tfrm_tree_main.N32Click(Sender: TObject);
begin
  Panel6.Visible:=true ;
  N32.Checked:=true ;
  N31.Checked:=false ;
  Panel6.Width:=185 ;
end;

procedure Tfrm_tree_main.N31Click(Sender: TObject);
begin
  Panel6.Visible:=false ;
  N32.Checked:=false ;
  N31.Checked:=true ;
end;

procedure Tfrm_tree_main.N11Click(Sender: TObject);
begin
 listview1.ViewStyle:=vsicon ;
end;

procedure Tfrm_tree_main.N12Click(Sender: TObject);
begin
 listview1.ViewStyle:=vssmallicon ;
end;

procedure Tfrm_tree_main.N13Click(Sender: TObject);
begin
  listview1.ViewStyle:=vslist ;
end;

procedure Tfrm_tree_main.N14Click(Sender: TObject);
begin
  listview1.ViewStyle:=vsreport ;
end;

procedure Tfrm_tree_main.N8Click(Sender: TObject);
begin
  Panel6.Width:=185 ;
  Panel6.Visible:=true ;
  ListView1.ViewStyle:=vsicon ;
end;

procedure Tfrm_tree_main.menu_opseaeClick(Sender: TObject);
begin
  Act101.Execute ;
end;

procedure Tfrm_tree_main.menu_opseaiClick(Sender: TObject);
begin
  Act111.Execute ;
end;

procedure Tfrm_tree_main.menu_opairClick(Sender: TObject);
begin
  Act121.Execute ;
end;

procedure Tfrm_tree_main.menu_opairiClick(Sender: TObject);
begin
 Act131.Execute ;
end;

procedure Tfrm_tree_main.N3Click(Sender: TObject);
begin
  frm_main.bsSkinData1.StoredSkin:=frm_main.bsStoredSkin1 ;
  saveView('1');
end;

procedure Tfrm_tree_main.N4Click(Sender: TObject);
begin
  frm_main.bsSkinData1.StoredSkin:=frm_main.bsStoredSkin2 ;
  saveView('2');
end;

procedure Tfrm_tree_main.N5Click(Sender: TObject);
begin
  frm_main.bsSkinData1.StoredSkin:=frm_main.bsStoredSkin3 ;
  saveView('3');
end;

procedure Tfrm_tree_main.N6Click(Sender: TObject);
begin
  frm_main.bsSkinData1.StoredSkin:=frm_main.bsStoredSkin4 ;
  saveView('4');
end;

procedure Tfrm_tree_main.addlv(myid: integer);
var
  ListItem:Tlistitem;
begin
  with P_View do
  begin
   // open ; first ;
   filter:='pid='+inttostr(myid);
   filtered:=true ;
   first ;
    while not eof do
    begin
      ListItem:=ListView1.items.Add ;
      ListItem.Caption:=fieldbyname('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring ;
      ListItem.SubItems.add(fieldbyname('<27><>ע').asstring) ;
      ListItem.SubItems.add(fieldbyname('fmoduleid').asstring) ;
      if fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ϸ').AsBoolean then
        ListItem.ImageIndex:=0 else ListItem.ImageIndex:=1 ;
      //  IF myid=7 then
     // ShowMessage(fieldbyname('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);

      next ;
    end ;
  end ;
{  with qryView do
  begin
    open ; first ;
    while not eof do
    begin
      ListItem:=ListView1.items.Add ;
      ListItem.Caption:=fieldbyname('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring ;
      ListItem.SubItems.add(fieldbyname('<27><>ע').asstring) ;
      ListItem.SubItems.add(fieldbyname('fmoduleid').asstring) ;
      if fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ϸ').AsBoolean then
        ListItem.ImageIndex:=0 else ListItem.ImageIndex:=1 ;
      next ;
    end ;
  end ;
}
end;

procedure Tfrm_tree_main.addLVcolumn;
var
 lvcol:TListColumn;
begin
    lvcol:=listview1.Columns.Add();
    lvcol.Caption:='<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>';
    lvcol.width:=150;
    lvcol:=listview1.Columns.Add();
    lvcol.Caption:='ģ<><C4A3>˵<EFBFBD><CBB5>';
    lvcol.width:=500;
    lvcol:=listview1.Columns.Add();
    lvcol.Caption:='ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>' ;
    lvcol.Width:= 50 ;
end;

procedure Tfrm_tree_main.Addmenu;
var
  NewMenuItem: TMenuItem;
  HeadMenuItem: TMenuItem;
begin
  with qrymodule do
  begin
    disablecontrols ;
    first ;
    while not eof do
    begin
        NewMenuItem:=TMenuItem.Create(Self);
        NewMenuItem.Name:='A'+fieldbyname('fmoduleid').asString ;
       // if fieldbyname('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
     //   showmessage(fieldbyname('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
        NewMenuItem.Caption:=fieldbyname('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring ;
        NewMenuItem.Tag:=fieldbyname('fmoduleid').asinteger ;
        NewMenuItem.OnClick:=menuclick;
        HeadMenuItem:=getpname(fieldbyname('pid').asinteger) ;
        if HeadMenuItem=nil then
          MMModule.Items.Add(NewMenuItem)
        else
          HeadMenuItem.add(NewMenuItem);

      Next ;
    end ;
    enablecontrols ;
  end ;
  bsSkinMainMenuBar1.UpDateItems ;
end;

function Tfrm_tree_main.getpname(pid:integer):TMenuItem ;
var i, j :integer ;
begin
  if pid=0 then   result:=nil
  else
  begin
    for i:=0 to MMModule.Items.Count-1 do
    begin
      if MMModule.Items[I].Tag=pid then result:=MMModule.Items[I]
      else
      for j:=0 to MMModule.Items[I].Count-1 do
      begin
        if MMModule.Items[I].Items[j].Tag=pid then
        begin
          result:=MMModule.Items[I].Items[j] ;
          exit;
        end
        else result:=nil ;
      end ;
    end ;
  end ;
end ;

procedure Tfrm_tree_main.menuclick(Sender: TObject);
var i,mid:integer;
    myid,myaction: string;
begin
  with sender as tmenuitem do
    mid:=TAG;
    myid:=inttostr(mid);
 //   myid:=copy(name,2,length(name)) ;
//  mid:=strtointdef(myid,0);
  if not vold then begin
    if mid<>0 then begin
      if frm_data_share.memreg.Locate('fmoduleid',mid,[]) then begin
        if frm_data_share.memreg.fieldbyname('reg').AsInteger=0 then begin
          MessageDlg('<27><>ģ<EFBFBD><C4A3>û<EFBFBD><C3BB>ע<EFBFBD>᲻<EFBFBD><E1B2BB>ʹ<EFBFBD>ã<EFBFBD>',mtWarning,[mbOk],0);
          exit;
        end else if frm_data_share.memreg.fieldbyname('reg').AsInteger=2 then begin
          i:=frm_main.RegwareII1.DaysLeft;
          if i<=0 then begin
            MessageDlg('<27><>ģ<EFBFBD><C4A3>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD>ע<EFBFBD><D7A2>,<2C><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>ѹ<EFBFBD><D1B9><EFBFBD>',mtWarning,[mbOk],0);
            exit;
          end else begin
            MessageDlg('<27><>ģ<EFBFBD><C4A3>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD>ע<EFBFBD><D7A2>,<2C><><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ'+inttostr(i)+'<27>죡',mtWarning,[mbOk],0);
          end;
        end;
      end else begin
      end;
    end;
  end;


  myaction:='Act'+myid;
  with ActionList1 do
    for i:=0 to ActionCount-1 do
      if Actions[i].Name=myaction then
      begin
        Actions[i].Execute ;
        break ;
      end ;
end;

procedure Tfrm_tree_main.SaveView(skinName: string);
var inifile1:Tinifile;
begin
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  try
    inifile1.writeString('View','Viewskin',skinName) ;
  finally
    inifile1.free;
  end ;
end;

procedure Tfrm_tree_main.ToolButton1Click(Sender: TObject);
begin
  qrymodule.Prior ;
end;

procedure Tfrm_tree_main.ToolButton2Click(Sender: TObject);
begin
  qrymodule.Next ;
end;

procedure Tfrm_tree_main.N21Click(Sender: TObject);
begin
//  if t_info_bulletin.IsEmpty then exit;
  {$IFDEF BGXITONG}
  try
    frm_info_bulletin:=tfrm_info_bulletin.Create (self);
    frm_info_bulletin.ShowModal;
  finally
    frm_info_bulletin.Free;
    frm_info_bulletin:=nil;
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.N23Click(Sender: TObject);
begin
//  if t_info_leaveword.IsEmpty then  exit;
{$IFDEF GRXINXI}
  try
    frm_info_leaveword:=tfrm_info_leaveword.Create (self);
    frm_info_leaveword.ShowModal;
  finally
    frm_info_leaveword.Free;
    frm_info_leaveword:=nil;
  end;
  frm_main.t_info_leaveword.Requery();
  {$ENDIF}
end;

procedure Tfrm_tree_main.N25Click(Sender: TObject);
begin
  {$IFDEF GRXINXI}
//  if t_info_plan.IsEmpty then  exit;
  try
    frm_info_plan:=tfrm_info_plan.Create (self);
    frm_info_plan.ShowModal;
  finally
    frm_info_plan.Free;
  end;
  frm_main.t_info_plan.Requery();
  {$ENDIF}
end;

procedure Tfrm_tree_main.N27Click(Sender: TObject);
begin
//  if t_info_tell.IsEmpty then  exit;
  try
    frm_info_tell:=tfrm_info_tell.Create (self);
    frm_info_tell.ShowModal;
  finally
    frm_info_tell.Free;
    frm_info_tell:=nil;
  end;
  frm_main.t_info_tell.Requery();
end;

procedure Tfrm_tree_main.N29Click(Sender: TObject);
begin
  try
    frm_sys_message_pri:=tfrm_sys_message_pri.Create (self);
    frm_sys_message_pri.ShowModal;
  finally
    frm_sys_message_pri.Free;
    frm_sys_message_pri:=nil;
  end;
end;

procedure Tfrm_tree_main.ListView1DblClick(Sender: TObject);
var myid,i:integer;
    myaction: string;
begin
  if ListView1.Selected=nil then exit ;
  myaction:='Act'+trim(ListView1.Selected.SubItems[1]);
  if ListView1.Selected.ImageIndex=1 then
    qrymodule.Locate('fmoduleid',strtoint(trim(ListView1.Selected.SubItems[1])),[])
  else
  begin
    if not vold then begin
      myid:=strtointdef(trim(ListView1.Selected.SubItems[1]),0);
      if myid<>0 then begin
        if frm_data_share.memreg.Locate('fmoduleid',myid,[]) then begin
          if frm_data_share.memreg.fieldbyname('reg').AsInteger=0 then begin
            MessageDlg('<27><>ģ<EFBFBD><C4A3>û<EFBFBD><C3BB>ע<EFBFBD>᲻<EFBFBD><E1B2BB>ʹ<EFBFBD>ã<EFBFBD>',mtWarning,[mbOk],0);
            exit;
          end else if frm_data_share.memreg.fieldbyname('reg').AsInteger=2 then begin
            i:=frm_main.RegwareII1.DaysLeft;
            if i<=0 then begin
              MessageDlg('<27><>ģ<EFBFBD><C4A3>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD>ע<EFBFBD><D7A2>,<2C><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>ѹ<EFBFBD><D1B9><EFBFBD>',mtWarning,[mbOk],0);
              exit;
            end else begin
              MessageDlg('<27><>ģ<EFBFBD><C4A3>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD>ע<EFBFBD><D7A2>,<2C><><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ'+inttostr(i)+'<27>죡',mtWarning,[mbOk],0);
            end;
          end;
        end else begin
          MessageDlg('<27><>ģ<EFBFBD><C4A3>û<EFBFBD><C3BB>ע<EFBFBD>᲻<EFBFBD><E1B2BB>ʹ<EFBFBD>ã<EFBFBD>',mtWarning,[mbOk],0);
          exit;
        end;
      end;
    end;

    with ActionList1 do
      for i:=0 to ActionCount-1 do
        if Actions[i].Name=myaction then
        begin
          Actions[i].Execute ;
          break ;
        end ;
  end ;
end;

procedure Tfrm_tree_main.ToolButton5Click(Sender: TObject);
begin
  if Panel6.Visible then
    N31.click   else N32.Click ;
end;

procedure Tfrm_tree_main.Act801Execute(Sender: TObject);
begin
  {$IFDEF BGXITONG}
  if not if_open('166') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_bulletin_manage) then
    frm_info_bulletin_manage:=tfrm_info_bulletin_manage.Create (self);
  frm_info_bulletin_manage.ManualDock(frm_main.SearchTabs('frm_info_bulletin_manage',frm_info_bulletin_manage.caption,'801'),nil,alClient);
  frm_info_bulletin_manage.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act80206Execute(Sender: TObject);
begin
  {$IFDEF BGXITONG}
  if not if_open('169') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_kaoqin_report) then
    frm_info_kaoqin_report:=tfrm_info_kaoqin_report.Create (self);
  frm_info_kaoqin_report.ManualDock(frm_main.SearchTabs('frm_info_kaoqin_report',frm_info_kaoqin_report.caption,'80206'),nil,alClient);
  frm_info_kaoqin_report.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act804Execute(Sender: TObject);
begin
  {$IFDEF BGXITONG}
  if not if_open('240') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_rules) then
    frm_info_rules:=tfrm_info_rules.Create (self);
  frm_info_rules.ManualDock(frm_main.SearchTabs('frm_info_rules',frm_info_rules.caption,'804'),nil,alClient);
  frm_info_rules.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act805Execute(Sender: TObject);
begin
  {$IFDEF BGXITONG}
  if not if_open('243') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_criterion) then
    frm_info_criterion:=tfrm_info_criterion.Create (self);
  frm_info_criterion.ManualDock(frm_main.SearchTabs('frm_info_criterion',frm_info_criterion.caption,'805'),nil,alClient);
  frm_info_criterion.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act806Execute(Sender: TObject);
begin
  {$IFDEF GZBAOGAO}
  if not if_open('020') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_render_manager) then
    frm_info_render_manager:=tfrm_info_render_manager.Create (self);
  frm_info_render_manager.ManualDock(frm_main.SearchTabs('frm_info_render_manager',frm_info_render_manager.caption,'806'),nil,alClient);
  frm_info_render_manager.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act807Execute(Sender: TObject);
begin
  {$IFDEF BGXITONG}
  if not if_open('167') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_yijian_manage) then
    frm_info_yijian_manage:=tfrm_info_yijian_manage.Create (self);
  frm_info_yijian_manage.ManualDock(frm_main.SearchTabs('frm_info_yijian_manage',frm_info_yijian_manage.caption,'807'),nil,alClient);
  frm_info_yijian_manage.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act808Execute(Sender: TObject);
begin
  {$IFDEF BGXITONG}
  if not if_open('246') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_shareDoc) then
    frm_info_shareDoc:=tfrm_info_shareDoc.Create (self);
  frm_info_shareDoc.ManualDock(frm_main.SearchTabs('frm_info_shareDoc',frm_info_shareDoc.caption,'808'),nil,alClient);
  frm_info_shareDoc.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act80201Execute(Sender: TObject);
begin
  frm_main.p_kaoqin.Parameters.ParamByName('emp').value:=employee;
  frm_main.p_kaoqin.Parameters.ParamByName('lei').value:='<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>';
  frm_main.p_kaoqin.Parameters.ParamByName('cmp').value:=LocalIP;
  frm_main.p_kaoqin.Parameters.ParamByName('sh').value:='';
  frm_main.p_kaoqin.Parameters.ParamByName('sh_emp').value:='';
  frm_main.p_kaoqin.Parameters.ParamByName('shouquan_date').value:=DatabaseDateTime;

  frm_main.p_kaoqin.ExecProc;
  if frm_main.p_kaoqin.Parameters.ParamByName('i').value=1 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>');
  end
  else
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  end;
end;

procedure Tfrm_tree_main.Act80202Execute(Sender: TObject);
begin
  frm_main.p_kaoqin.Parameters.ParamByName('emp').value:=employee;
  frm_main.p_kaoqin.Parameters.ParamByName('lei').value:='<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>';
  frm_main.p_kaoqin.Parameters.ParamByName('cmp').value:=LocalIP;
  frm_main.p_kaoqin.Parameters.ParamByName('sh').value:='';
  frm_main.p_kaoqin.Parameters.ParamByName('sh_emp').value:='';
  frm_main.p_kaoqin.Parameters.ParamByName('shouquan_date').value:=DatabaseDateTime;
  frm_main.p_kaoqin.ExecProc;
  if frm_main.p_kaoqin.Parameters.ParamByName('i').value=1 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD>ǩ<EFBFBD>˳ɹ<CBB3><C9B9><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  if frm_main.p_kaoqin.Parameters.ParamByName('i').value=2 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
    exit;
  end;
  if frm_main.p_kaoqin.Parameters.ParamByName('i').value=4 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
    exit;
  end;
end;

procedure Tfrm_tree_main.Act80203Execute(Sender: TObject);
begin
  frm_main.p_kaoqin.Parameters.ParamByName('emp').value:=employee;
  frm_main.p_kaoqin.Parameters.ParamByName('lei').value:='<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>';
  frm_main.p_kaoqin.Parameters.ParamByName('cmp').value:=LocalIP;
  frm_main.p_kaoqin.Parameters.ParamByName('sh').value:='';
  frm_main.p_kaoqin.Parameters.ParamByName('sh_emp').value:='';
  frm_main.p_kaoqin.Parameters.ParamByName('shouquan_date').value:=DatabaseDateTime;
  frm_main.p_kaoqin.ExecProc;
  if frm_main.p_kaoqin.Parameters.ParamByName('i').value=1 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  if frm_main.p_kaoqin.Parameters.ParamByName('i').value=2 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  if frm_main.p_kaoqin.Parameters.ParamByName('i').value=3 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD>13:00<30>Ժ<EFBFBD><D4BA><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  end;
end;

procedure Tfrm_tree_main.Act80204Execute(Sender: TObject);
begin
  frm_main.p_kaoqin.Parameters.ParamByName('emp').value:=employee;
  frm_main.p_kaoqin.Parameters.ParamByName('lei').value:='<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>';
  frm_main.p_kaoqin.Parameters.ParamByName('cmp').value:=LocalIP;
  frm_main.p_kaoqin.Parameters.ParamByName('sh').value:='';
  frm_main.p_kaoqin.Parameters.ParamByName('sh_emp').value:='';
  frm_main.p_kaoqin.Parameters.ParamByName('shouquan_date').value:=DatabaseDateTime;
  frm_main.p_kaoqin.ExecProc;
  if frm_main.p_kaoqin.Parameters.ParamByName('i').value=1 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD>ǩ<EFBFBD>˳ɹ<CBB3><C9B9><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  if frm_main.p_kaoqin.Parameters.ParamByName('i').value=2 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
    exit;
  end;
  if frm_main.p_kaoqin.Parameters.ParamByName('i').value=5 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
    exit;
  end;
end;

procedure Tfrm_tree_main.Act80205Execute(Sender: TObject);
begin
  {$IFDEF BGXITONG}
  if not if_open('168') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_info_kaoqin_shouquan) then
      frm_info_kaoqin_shouquan:=tfrm_info_kaoqin_shouquan.Create (self);
    frm_info_kaoqin_shouquan.ShowModal;
  finally
    frm_info_kaoqin_shouquan.free;
    frm_info_kaoqin_shouquan:=nil;
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act51Execute(Sender: TObject);
begin
  {$IFDEF YWTAIZHANG}
  if not if_open('041') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_tai_total) then
    frm_rp_tai_total:=tfrm_rp_tai_total.Create (self);
  frm_rp_tai_total.ManualDock(frm_main.SearchTabs('frm_rp_tai_total',frm_rp_tai_total.caption,'51'),nil,alClient);
  frm_rp_tai_total.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act43Execute(Sender: TObject);
begin
  if not if_open('271') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_dui_accepttotal) then
    frm_rp_dui_accepttotal:=Tfrm_rp_dui_accepttotal.Create(self);
  frm_rp_dui_accepttotal.ManualDock(frm_main.SearchTabs('frm_rp_dui_accepttotal',frm_rp_dui_accepttotal.caption,'43'),nil,alClient);
  frm_rp_dui_accepttotal.show;

end;

procedure Tfrm_tree_main.Act44Execute(Sender: TObject);
begin
  {$IFDEF DLFENZHANG}
  if not if_open('197') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_rp_sea_daili) then
    frm_rp_rp_sea_daili:=tfrm_rp_rp_sea_daili.Create (self);
  frm_rp_rp_sea_daili.ManualDock(frm_main.SearchTabs('frm_rp_rp_sea_daili',frm_rp_rp_sea_daili.caption,'44'),nil,alClient);
  frm_rp_rp_sea_daili.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act47Execute(Sender: TObject);
begin
  if not if_open('230') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_cw_prnFee) then
    frm_cw_prnFee:=tfrm_cw_prnFee.Create (self);
  frm_cw_prnFee.ManualDock(frm_main.SearchTabs('frm_cw_prnFee',frm_cw_prnFee.caption,'47'),nil,alClient);
  frm_cw_prnFee.show;
end;

procedure Tfrm_tree_main.Act49Execute(Sender: TObject);
var
  aQuery:TADOQuery;
begin
  if not if_open('185') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  aQuery:=CreateAdoQuery;
  try
    aQuery.SQL.Text:='select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD> from t_cw_design';
    aQuery.open;
    if aQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger=8 then
    begin
      if not assigned(frm_cw_pingzhengSAP) then
        frm_cw_pingzhengSAP:=tfrm_cw_pingzhengSAP.Create (self);
      frm_cw_pingzhengSAP.ManualDock(frm_main.SearchTabs('frm_cw_pingzhengsap',frm_cw_pingzhengSAP.caption,'49'),nil,alClient);
      frm_cw_pingzhengSAP.show;
    end
    else
    if aQuery.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger=9 then
    begin
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='<27>۽ݽ<DBBD><DDBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_gj) then
          frm_cw_pingzheng_gj:=tfrm_cw_pingzheng_gj.Create (self);
        frm_cw_pingzheng_gj.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_gj',frm_cw_pingzheng_gj.caption,'49'),nil,alClient);
        frm_cw_pingzheng_gj.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='<27>μ<EFBFBD><CEBC><EFBFBD><EFBFBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_jj) then
          frm_cw_pingzheng_jj:=tfrm_cw_pingzheng_jj.Create (self);
        frm_cw_pingzheng_jj.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_jj',frm_cw_pingzheng_jj.caption,'49'),nil,alClient);
        frm_cw_pingzheng_jj.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_yt) then
          frm_cw_pingzheng_yt:=tfrm_cw_pingzheng_yt.Create (self);
        frm_cw_pingzheng_yt.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_yt',frm_cw_pingzheng_yt.caption,'49'),nil,alClient);
        frm_cw_pingzheng_yt.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_jh) then
          frm_cw_pingzheng_jh:=tfrm_cw_pingzheng_jh.Create (self);
        frm_cw_pingzheng_jh.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_jh',frm_cw_pingzheng_jh.caption,'49'),nil,alClient);
        frm_cw_pingzheng_jh.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_ym) then
          frm_cw_pingzheng_ym:=tfrm_cw_pingzheng_ym.Create (self);
        frm_cw_pingzheng_ym.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_ym',frm_cw_pingzheng_ym.caption,'49'),nil,alClient);
        frm_cw_pingzheng_ym.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_zj) then
          frm_cw_pingzheng_zj:=tfrm_cw_pingzheng_zj.Create (self);
        frm_cw_pingzheng_zj.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_zj',frm_cw_pingzheng_zj.caption,'49'),nil,alClient);
        frm_cw_pingzheng_zj.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_mh) then
          frm_cw_pingzheng_mh:=tfrm_cw_pingzheng_mh.Create (self);
        frm_cw_pingzheng_mh.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_mh',frm_cw_pingzheng_mh.caption,'49'),nil,alClient);
        frm_cw_pingzheng_mh.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_lhjt) then
          frm_cw_pingzheng_lhjt:=tfrm_cw_pingzheng_lhjt.Create (self);
        frm_cw_pingzheng_lhjt.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_lhjt',frm_cw_pingzheng_lhjt.caption,'49'),nil,alClient);
        frm_cw_pingzheng_lhjt.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_hj) then
          frm_cw_pingzheng_hj:=tfrm_cw_pingzheng_hj.Create (self);
        frm_cw_pingzheng_hj.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_hj',frm_cw_pingzheng_hj.caption,'49'),nil,alClient);
        frm_cw_pingzheng_hj.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='Զ<><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzhengsaphc) then
          frm_cw_pingzhengsaphc:=tfrm_cw_pingzhengsaphc.Create (self);
        frm_cw_pingzhengsaphc.ManualDock(frm_main.SearchTabs('frm_cw_pingzhengsaphc',frm_cw_pingzhengsaphc.caption,'49'),nil,alClient);
        frm_cw_pingzhengsaphc.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='Ϋ<><CEAB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_wflj) then
          frm_cw_pingzheng_wflj:=tfrm_cw_pingzheng_wflj.Create (self);
        frm_cw_pingzheng_wflj.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_wflj',frm_cw_pingzheng_wflj.caption,'49'),nil,alClient);
        frm_cw_pingzheng_wflj.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='չ<><D5B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_zh) then
          frm_cw_pingzheng_zh:=tfrm_cw_pingzheng_zh.Create (self);
        frm_cw_pingzheng_zh.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_zh',frm_cw_pingzheng_zh.caption,'49'),nil,alClient);
        frm_cw_pingzheng_zh.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='<27>Ŷ<EFBFBD>Դ' then
      begin
        if not assigned(frm_cw_pingzheng_jdy) then
          frm_cw_pingzheng_jdy:=tfrm_cw_pingzheng_jdy.Create (self);
        frm_cw_pingzheng_jdy.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_jdy',frm_cw_pingzheng_jdy.caption,'49'),nil,alClient);
        frm_cw_pingzheng_jdy.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='ͬ<><CDAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_ty) then
          frm_cw_pingzheng_ty:=tfrm_cw_pingzheng_ty.Create (self);
        frm_cw_pingzheng_ty.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_ty',frm_cw_pingzheng_ty.caption,'49'),nil,alClient);
        frm_cw_pingzheng_ty.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD>ǽ<EFBFBD><C7BD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_dy) then
          frm_cw_pingzheng_dy:=tfrm_cw_pingzheng_dy.Create (self);
        frm_cw_pingzheng_dy.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_dy',frm_cw_pingzheng_dy.caption,'49'),nil,alClient);
        frm_cw_pingzheng_dy.show;
      end
      else
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
      begin
        if not assigned(frm_cw_pingzheng_fm) then
          frm_cw_pingzheng_fm:=tfrm_cw_pingzheng_fm.Create (self);
        frm_cw_pingzheng_fm.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_fm',frm_cw_pingzheng_fm.caption,'49'),nil,alClient);
        frm_cw_pingzheng_fm.show;
      end;
      if trim(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD><EFBFBD>2000' then
      begin
        if not assigned(frm_cw_pingzheng2000) then
          frm_cw_pingzheng2000:=tfrm_cw_pingzheng2000.Create (self);
        frm_cw_pingzheng2000.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng2000',frm_cw_pingzheng2000.caption,'49'),nil,alClient);
        frm_cw_pingzheng2000.show;
      end;
    end
    else
    begin
      if not assigned(frm_cw_pingzheng) then
        frm_cw_pingzheng:=tfrm_cw_pingzheng.Create (self);
      frm_cw_pingzheng.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng',frm_cw_pingzheng.caption,'49'),nil,alClient);
      frm_cw_pingzheng.show;
    end;
  finally
    FreeAndNil(aQuery);
  end;
end;

procedure Tfrm_tree_main.Act48Execute(Sender: TObject);
begin
  {$IFDEF QTFEIYONG}
  if not if_open('187') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_fee) then
    frm_op_fee:=tfrm_op_fee.Create (self);
  frm_op_fee.ManualDock(frm_main.SearchTabs('frm_op_fee',frm_op_fee.caption,'48'),nil,alClient);
  frm_op_fee.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act541Execute(Sender: TObject);
begin
  if not if_open('051') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_fee_modify) then
    frm_rp_fee_modify:=tfrm_rp_fee_modify.Create (self);
  frm_rp_fee_modify.ManualDock(frm_main.SearchTabs('frm_rp_fee_modify',frm_rp_fee_modify.caption,'541'),nil,alClient);
  frm_rp_fee_modify.show;
end;

procedure Tfrm_tree_main.Act542Execute(Sender: TObject);
begin
  if not if_open('192') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_ch_balance_accept) then
    frm_rp_ch_balance_accept:=tfrm_rp_ch_balance_accept.Create (self);
  frm_rp_ch_balance_accept.ManualDock(frm_main.SearchTabs('frm_rp_ch_balance_accept',frm_rp_ch_balance_accept.caption,'542'),nil,alClient);
  frm_rp_ch_balance_accept.show;
end;

procedure Tfrm_tree_main.Act543Execute(Sender: TObject);
begin
  if not if_open('193') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_ch_balance_pay) then
    frm_rp_ch_balance_pay:=tfrm_rp_ch_balance_pay.Create (self);
  frm_rp_ch_balance_pay.ManualDock(frm_main.SearchTabs('frm_rp_ch_balance_pay',frm_rp_ch_balance_pay.caption,'543'),nil,alClient);
  frm_rp_ch_balance_pay.show;
end;

procedure Tfrm_tree_main.Act544Execute(Sender: TObject);
begin
  if not if_open('196') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_ch_balance_rate) then
    frm_rp_ch_balance_rate:=tfrm_rp_ch_balance_rate.Create (self);
  frm_rp_ch_balance_rate.ManualDock(frm_main.SearchTabs('frm_rp_ch_balance_rate',frm_rp_ch_balance_rate.caption,'544'),nil,alClient);
  frm_rp_ch_balance_rate.show;
end;

procedure Tfrm_tree_main.Act545Execute(Sender: TObject);
begin
  if not if_open('203') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_ch_currency_change) then
    frm_rp_ch_currency_change:=tfrm_rp_ch_currency_change.Create (self);
  frm_rp_ch_currency_change.ManualDock(frm_main.SearchTabs('frm_rp_ch_currency_change',frm_rp_ch_currency_change.caption,'545'),nil,alClient);
  frm_rp_ch_currency_change.show;
end;

procedure Tfrm_tree_main.Act546Execute(Sender: TObject);
begin
  {$IFDEF FYZHUANGTAI}
  if not if_open('204') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_ch_fee_state) then
    frm_rp_ch_fee_state:=tfrm_rp_ch_fee_state.Create (self);
  frm_rp_ch_fee_state.ManualDock(frm_main.SearchTabs('frm_rp_ch_fee_state',frm_rp_ch_fee_state.caption,'546'),nil,alClient);
  frm_rp_ch_fee_state.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act941Execute(Sender: TObject);
begin
  if not if_open('096') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_sys_parameters) then
      frm_sys_parameters:=tfrm_sys_parameters.Create (self);
    frm_sys_parameters.ShowModal;
  finally
    frm_sys_parameters.free;
  end;
end;

procedure Tfrm_tree_main.Act942Execute(Sender: TObject);
begin
  if not if_open('165') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_empty) then
      frm_code_empty:=tfrm_code_empty.Create (self);
    frm_code_empty.ShowModal;
  finally
    frm_code_empty.free;
    frm_code_empty:=NIL;
  end;
end;

procedure Tfrm_tree_main.Act943Execute(Sender: TObject);
begin
  {$IFDEF KHGUANLI}
  if not if_open('119') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;

  try
    if not assigned(frm_sys_crm_params) then
      frm_sys_crm_params:=tfrm_sys_crm_params.Create (self);
    frm_sys_crm_params.ShowModal;
  finally
    FreeAndNil(frm_sys_crm_params);
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act944Execute(Sender: TObject);
begin
  {$IFDEF XSGUANLI}
  if not if_open('096') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_sys_sale_profitset) then
      frm_sys_sale_profitset:=tfrm_sys_sale_profitset.Create (self);
    frm_sys_sale_profitset.ShowModal;
  finally
    FreeAndNil(frm_sys_sale_profitset);
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act945Execute(Sender: TObject);
begin
  if not if_open('284') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_subComp:=tfrm_code_subComp.Create (self);
    frm_code_subComp.ShowModal;
  finally
    frm_code_subComp.Free;
    frm_code_subComp:=nil;
  end;
end;

procedure Tfrm_tree_main.Act946Execute(Sender: TObject);
begin
  {$IFDEF KHGUANLI}
  if not if_open('119') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_client_parameter) then
      frm_code_client_parameter:=tfrm_code_client_parameter.Create (self);
    frm_code_client_parameter.ShowModal;
  finally
    frm_code_client_parameter.free;
  end;
  {$ENDIF}
end;


procedure Tfrm_tree_main.ToolButton8Click(Sender: TObject);
var
  inifile1:Tinifile;
begin
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  inifile1.Writeinteger('View','tabindex',bsSkinPageControl2.ActivePageIndex);
  inifile1.free;
  //  if Item.Caption = '<27>˳<EFBFBD>ϵͳ' then
  frm_main.Close;
{
    try
      frm_sys_close:=Tfrm_sys_close.Create(self);
      frm_sys_close.ShowModal;
    finally
      frm_sys_close.Free;
    end;
    exit;
}
end;

procedure Tfrm_tree_main.Act921Execute(Sender: TObject);
begin
  if not if_open('002') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_sys_dep_emp:=tfrm_sys_dep_emp.Create (self);
    frm_sys_dep_emp.ShowModal;
  finally
    frm_sys_dep_emp.Free;
  end;
end;

procedure Tfrm_tree_main.Act922Execute(Sender: TObject);
begin
  if not if_open('001') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_sys_limited) then
    frm_sys_limited:=tfrm_sys_limited.Create (self);
  frm_sys_limited.ManualDock(frm_main.SearchTabs('frm_sys_limited',frm_sys_limited.caption,'922'),nil,alClient);
  frm_sys_limited.show;
end;

procedure Tfrm_tree_main.Act101Execute(Sender: TObject);
begin
  if not if_open('014') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae) then
    frm_op_seae:=tfrm_op_seae.Create (self);
  frm_op_seae.ManualDock(frm_main.SearchTabs('frm_op_seae',frm_op_seae.caption,'101'),nil,alClient);
  frm_op_seae.show;
end;

procedure Tfrm_tree_main.Act102Execute(Sender: TObject);
begin
  {$IFDEF PXHUANHUO}
  if not if_open('152') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_huanhuo) then
    frm_op_seae_huanhuo:=tfrm_op_seae_huanhuo.Create (self);
  frm_op_seae_huanhuo.ManualDock(frm_main.SearchTabs('frm_op_seae_huanhuo',frm_op_seae_huanhuo.caption,'102'),nil,alClient);
  frm_op_seae_huanhuo.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act103Execute(Sender: TObject);
begin
  if not if_open('141') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_vessel_change) then
    frm_op_seae_vessel_change:=tfrm_op_seae_vessel_change.Create (self);
  frm_op_seae_vessel_change.ManualDock(frm_main.SearchTabs('frm_op_seae_vessel_change',frm_op_seae_vessel_change.caption,'103'),nil,alClient);
  frm_op_seae_vessel_change.show;
end;

procedure Tfrm_tree_main.Act104Execute(Sender: TObject);
begin
  {$IFDEF QDQUEREN}
  if not if_open('160') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_qiandan) then
    frm_op_seae_qiandan:=tfrm_op_seae_qiandan.Create (self);
  frm_op_seae_qiandan.ManualDock(frm_main.SearchTabs('frm_op_seae_qiandan',frm_op_seae_qiandan.caption,'104'),nil,alClient);
  frm_op_seae_qiandan.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act105Execute(Sender: TObject);
begin
  if not if_open('160') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_qiandan_add) then
    frm_op_seae_qiandan_add:=tfrm_op_seae_qiandan_add.Create (self);
  frm_op_seae_qiandan_add.ManualDock(frm_main.SearchTabs('frm_op_seae_qiandan_add',frm_op_seae_qiandan_add.caption,'105'),nil,alClient);
  frm_op_seae_qiandan_add.show;
end;

procedure Tfrm_tree_main.Act111Execute(Sender: TObject);
begin
  if not if_open('054') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seai) then
    frm_op_seai:=tfrm_op_seai.Create (self);
  frm_op_seai.ManualDock(frm_main.SearchTabs('frm_op_seai',frm_op_seai.caption,'111'),nil,alClient);
  frm_op_seai.show;
end;

procedure Tfrm_tree_main.Act121Execute(Sender: TObject);
begin
  if not if_open('072') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_aire) then
    frm_op_aire:=tfrm_op_aire.Create (self);
  frm_op_aire.ManualDock(frm_main.SearchTabs('frm_op_aire',frm_op_aire.caption,'121'),nil,alClient);
  frm_op_aire.show;
end;

procedure Tfrm_tree_main.Act131Execute(Sender: TObject);
begin
  if not if_open('080') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_airi) then
    frm_op_airi:=tfrm_op_airi.Create (self);
  frm_op_airi.ManualDock(frm_main.SearchTabs('frm_op_airi',frm_op_airi.caption,'131'),nil,alClient);
  frm_op_airi.show;
end;

procedure Tfrm_tree_main.Act1401Execute(Sender: TObject);
begin
  {$IFDEF JGCHE}
  if if_open('1411') then begin
  if not assigned(frm_op_airtruck2) then
    frm_op_airtruck2:=tfrm_op_airtruck2.Create (self);
  frm_op_airtruck2.ManualDock(frm_main.SearchTabs('frm_op_airtruck2',frm_op_airtruck2.caption,'14'),nil,alClient);
  frm_op_airtruck2.show;

  end else begin
  if not assigned(frm_op_airtruck) then
    frm_op_airtruck:=tfrm_op_airtruck.Create (self);
  frm_op_airtruck.ManualDock(frm_main.SearchTabs('frm_op_airtruck',frm_op_airtruck.caption,'14'),nil,alClient);
  frm_op_airtruck.show;
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act151Execute(Sender: TObject);
begin
  {$IFDEF SJBAOGUAN}
  if not if_open('190') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_apply) then
    frm_op_seae_apply:=tfrm_op_seae_apply.Create (self);
  frm_op_seae_apply.ManualDock(frm_main.SearchTabs('frm_op_seae_apply',frm_op_seae_apply.caption,'151'),nil,alClient);
  frm_op_seae_apply.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act152Execute(Sender: TObject);
begin
  {$IFDEF SJBAOGUAN}
  if not if_open('191') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seai_apply) then
    frm_op_seai_apply:=tfrm_op_seai_apply.Create (self);
  frm_op_seai_apply.ManualDock(frm_main.SearchTabs('frm_op_seai_apply',frm_op_seai_apply.caption,'152'),nil,alClient);
  frm_op_seai_apply.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act16Execute(Sender: TObject);
begin
  if not if_open('160') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_card) then
    frm_op_seae_card:=tfrm_op_seae_card.Create (self);
  frm_op_seae_card.ManualDock(frm_main.SearchTabs('frm_op_seae_card',frm_op_seae_card.caption,'16'),nil,alClient);
  frm_op_seae_card.show;
end;

procedure Tfrm_tree_main.Act155Execute(Sender: TObject);
begin
  {$IFDEF TSQUEREN}
  if not if_open('159') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_tuishui) then
    frm_op_seae_tuishui:=tfrm_op_seae_tuishui.Create (self);
  frm_op_seae_tuishui.ManualDock(frm_main.SearchTabs('frm_op_seae_tuishui',frm_op_seae_tuishui.caption,'155'),nil,alClient);
  frm_op_seae_tuishui.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act17Execute(Sender: TObject);
begin
  if not if_open('189') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_delete) then
    frm_op_delete:=tfrm_op_delete.Create (self);
  frm_op_delete.ManualDock(frm_main.SearchTabs('frm_op_delete',frm_op_delete.caption,'17'),nil,alClient);
  frm_op_delete.show;
end;

procedure Tfrm_tree_main.Act5310Execute(Sender: TObject);
begin
  if not if_open('173') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_rp_seae_pin) then
    frm_rp_rp_seae_pin:=tfrm_rp_rp_seae_pin.Create (self);
  frm_rp_rp_seae_pin.ManualDock(frm_main.SearchTabs('frm_rp_rp_seae_pin',frm_rp_rp_seae_pin.caption,'5310'),nil,alClient);
  frm_rp_rp_seae_pin.show;
end;

procedure Tfrm_tree_main.Act5321Execute(Sender: TObject);
begin
  if not if_open('111') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_rp_total) then
    frm_rp_rp_total:=tfrm_rp_rp_total.Create (self);
  frm_rp_rp_total.ManualDock(frm_main.SearchTabs('frm_rp_rp_total',frm_rp_rp_total.caption,'5321'),nil,alClient);
  frm_rp_rp_total.show;
end;

procedure Tfrm_tree_main.Act5330Execute(Sender: TObject);
begin
  {$IFDEF ZHYDTONGJI}
   if not if_open('111') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_rp_monthtotal) then
    frm_rp_rp_monthtotal:=tfrm_rp_rp_monthtotal.Create (self);
  frm_rp_rp_monthtotal.ManualDock(frm_main.SearchTabs('frm_rp_rp_monthtotal',frm_rp_rp_monthtotal.caption,'5330'),nil,alClient);
  frm_rp_rp_monthtotal.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5340Execute(Sender: TObject);
begin
  {$IFDEF ZHMXTONGJI}

  if not if_open('111') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_ch_total) then
    frm_rp_ch_total:=tfrm_rp_ch_total.Create (self);
  frm_rp_ch_total.ManualDock(frm_main.SearchTabs('frm_rp_ch_total',frm_rp_ch_total.caption,'5340'),nil,alClient);
  frm_rp_ch_total.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5350Execute(Sender: TObject);
begin
  {$IFDEF ZHZIYOU}
  if not if_open('111') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_chfree_total) then
    frm_rp_chfree_total:=tfrm_rp_chfree_total.Create (self);
  frm_rp_chfree_total.ManualDock(frm_main.SearchTabs('frm_rp_chfree_total',frm_rp_chfree_total.caption,'5350'),nil,alClient);
  frm_rp_chfree_total.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5360Execute(Sender: TObject);
begin
  {$IFDEF GYSHANG}
  if not if_open('259') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_truck_no) then
    frm_rp_truck_no:=tfrm_rp_truck_no.Create (self);
  frm_rp_truck_no.ManualDock(frm_main.SearchTabs('frm_rp_truck_no',frm_rp_truck_no.caption,'5360'),nil,alClient);
  frm_rp_truck_no.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5370Execute(Sender: TObject);
begin
  {$IFDEF GYSHANG}
  if not if_open('260') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_apply_no) then
    frm_rp_apply_no:=tfrm_rp_apply_no.Create (self);
  frm_rp_apply_no.ManualDock(frm_main.SearchTabs('frm_rp_apply_no',frm_rp_apply_no.caption,'5370'),nil,alClient);
  frm_rp_apply_no.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5380Execute(Sender: TObject);
begin
  if not if_open('114') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_zou_total) then
    frm_rp_zou_total:=tfrm_rp_zou_total.Create (self);
  frm_rp_zou_total.ManualDock(frm_main.SearchTabs('frm_rp_zou_total',frm_rp_zou_total.caption,'5380'),nil,alClient);
  frm_rp_zou_total.show;
end;

procedure Tfrm_tree_main.Act5323Execute(Sender: TObject);
begin
  if not if_open('048') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_rp_seae) then
    frm_rp_rp_seae:=tfrm_rp_rp_seae.Create (self);
  frm_rp_rp_seae.ManualDock(frm_main.SearchTabs('frm_rp_rp_seae',frm_rp_rp_seae.caption,'5323'),nil,alClient);
  frm_rp_rp_seae.show;
end;

procedure Tfrm_tree_main.Act5390Execute(Sender: TObject);
begin
  {$IFDEF TBQITA}
  if not if_open('157') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_fen_seae_ctn) then
    frm_rp_fen_seae_ctn:=tfrm_rp_fen_seae_ctn.Create (self);
  frm_rp_fen_seae_ctn.ManualDock(frm_main.SearchTabs('frm_rp_fen_seae_ctn',frm_rp_fen_seae_ctn.caption,'5390'),nil,alClient);
  frm_rp_fen_seae_ctn.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5400Execute(Sender: TObject);
begin
  if not if_open('117') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_fen_total) then
    frm_rp_fen_total:=tfrm_rp_fen_total.Create (self);
  frm_rp_fen_total.ManualDock(frm_main.SearchTabs('frm_rp_fen_total',frm_rp_fen_total.caption,'5400'),nil,alClient);
  frm_rp_fen_total.show;
end;

procedure Tfrm_tree_main.Act951Execute(Sender: TObject);
begin
  if not if_open('017') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_ctn_kind:=tfrm_code_ctn_kind.Create (self);
    frm_code_ctn_kind.ShowModal;
   finally
    frm_code_ctn_kind.Free;
   end;
end;

procedure Tfrm_tree_main.Act952Execute(Sender: TObject);
begin
  if not if_open('009') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_ctn:=tfrm_code_ctn.Create (self);
    frm_code_ctn.ShowModal;
  finally
    frm_code_ctn.Free;
  end;
end;

procedure Tfrm_tree_main.Act953Execute(Sender: TObject);
begin
  {$IFDEF YJGUANLI}
  if not if_open('122') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_price_ctn) then
      frm_code_price_ctn:=tfrm_code_price_ctn.Create (self);
    frm_code_price_ctn.ShowModal;
  finally
    frm_code_price_ctn.free;
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act954Execute(Sender: TObject);
begin
  if not if_open('007') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
 try
    frm_code_goods:=tfrm_code_goods.Create (self);
    frm_code_goods.ShowModal;
  finally
    frm_code_goods.Free;
  end;
end;

procedure Tfrm_tree_main.Act955Execute(Sender: TObject);
begin
  if not if_open('013') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
 try
   frm_code_package:=tfrm_code_package.Create (self);
   frm_code_package.ShowModal;
 finally
    frm_code_package.Free;
  end;
end;

procedure Tfrm_tree_main.Act956Execute(Sender: TObject);
begin
  if not if_open('188') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_tiaokuan) then
      frm_code_tiaokuan:=tfrm_code_tiaokuan.Create (self);
    frm_code_tiaokuan.ShowModal;
  finally
    frm_code_tiaokuan.free;
    frm_code_tiaokuan:=NIL;
  end;
end;

procedure Tfrm_tree_main.Act957Execute(Sender: TObject);
begin
  if not assigned(frm_code_country) then
    frm_code_country:=tfrm_code_country.Create (self);
  frm_code_country.ManualDock(frm_main.SearchTabs('frm_code_country',frm_code_country.caption,'957'),nil,alClient);
  frm_code_country.show;
end;

procedure Tfrm_tree_main.Act958Execute(Sender: TObject);
begin
  if not assigned(frm_code_port) then
    frm_code_port:=tfrm_code_port.Create (self);
  frm_code_port.ManualDock(frm_main.SearchTabs('frm_code_port',frm_code_port.caption,'958'),nil,alClient);
  frm_code_port.show;
end;

procedure Tfrm_tree_main.Act959Execute(Sender: TObject);
begin
  if not if_open('155') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_port_air) then
      frm_code_port_air:=tfrm_code_port_air.Create (self);
    frm_code_port_air.ShowModal;
  finally
    frm_code_port_air.free;
    frm_code_port_air:=NIL;
  end;
end;

procedure Tfrm_tree_main.Act960Execute(Sender: TObject);
begin
  try
    frm_code_trade:=tfrm_code_trade.Create (self);
    frm_code_trade.ShowModal;
  finally
    frm_code_trade.Free;
  end;
end;

procedure Tfrm_tree_main.Act961Execute(Sender: TObject);
begin
  if not if_open('097') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_vessel:=tfrm_code_vessel.Create (self);
    frm_code_vessel.ShowModal;
  finally
    frm_code_vessel.Free;
  end;
end;

procedure Tfrm_tree_main.Act962Execute(Sender: TObject);
begin
  {$IFDEF EDI}
  if not if_open('179') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_line_edi) then
      frm_code_line_edi:=tfrm_code_line_edi.Create (self);
    frm_code_line_edi.ShowModal;
  finally
    frm_code_line_edi.free;
    frm_code_line_edi:=NIL;
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act963Execute(Sender: TObject);
begin
  {$IFDEF KDYEWU}
  if not if_open('164') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_send_address) then
      frm_code_send_address:=tfrm_code_send_address.Create (self);
    frm_code_send_address.bsSkinButton3.Enabled:=false;
    frm_code_send_address.ShowModal;
  finally
    frm_code_send_address.free;
    frm_code_send_address:=NIL;
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act964Execute(Sender: TObject);
begin
  if not if_open('071') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_signbill:=tfrm_code_signbill.Create (self);
    frm_code_signbill.ShowModal;
  finally
    frm_code_signbill.Free;
  end;
end;

procedure Tfrm_tree_main.Act965Execute(Sender: TObject);
begin
  if not if_open('008') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_items:=tfrm_code_items.Create (self);
    frm_code_items.ShowModal;
  finally
    frm_code_items.Free;
  end;
end;

procedure Tfrm_tree_main.Act966Execute(Sender: TObject);
begin
  if not if_open('016') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_code:=tfrm_code_code.Create (self);
    frm_code_code.ShowModal;
  finally
    frm_code_code.Free;
  end;
end;

procedure Tfrm_tree_main.Act967Execute(Sender: TObject);
begin
  if not if_open('144') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_send_head:=tfrm_code_send_head.Create (self);
    code_send_head_num:=0;
    frm_code_send_head.ShowModal;
  finally
    frm_code_send_head.Free;
    frm_code_send_head:=nil;
  end;
end;

procedure Tfrm_tree_main.Act968Execute(Sender: TObject);
begin
  if not if_open('145') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_code_card) then
    frm_code_card:=tfrm_code_card.Create (self);
  frm_code_card.ManualDock(frm_main.SearchTabs('frm_code_card',frm_code_card.caption,'968'),nil,alClient);
  frm_code_card.show;
end;

procedure Tfrm_tree_main.Act969Execute(Sender: TObject);
begin
{$IFDEF ZTGENGZONG}
  if not if_open('052') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;

  if not assigned(frm_code_state) then
    frm_code_state:=tfrm_code_state.Create (self);
  frm_code_state.ManualDock(frm_main.SearchTabs('frm_code_state',frm_code_state.caption,'969'),nil,alClient);
  frm_code_state.show;
{$ENDIF}
end;

procedure Tfrm_tree_main.Act970Execute(Sender: TObject);
begin
  if not if_open('151') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_source:=tfrm_code_source.Create (self);
    frm_code_source.ShowModal;
  finally
    frm_code_source.Free;
    frm_code_source:=nil;
  end;
end;

procedure Tfrm_tree_main.Act971Execute(Sender: TObject);
begin
  if not if_open('151') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_opresult:=tfrm_code_opresult.Create (self);
    frm_code_opresult.ShowModal;
  finally
    frm_code_opresult.Free;
    frm_code_opresult:=nil;
  end;
end;

procedure Tfrm_tree_main.Act972Execute(Sender: TObject);
begin
  {$IFDEF KHGUANLI}
  if not if_open('151') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_customstatu:=tfrm_code_customstatu.Create (self);
    frm_code_customstatu.ShowModal;
  finally
    frm_code_customstatu.Free;
    frm_code_customstatu:=nil;
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act411Execute(Sender: TObject);
begin
  {$IFDEF FPSHENQING}
  if not if_open('281') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_invoice_shen) then
    frm_ch_invoice_shen:=tfrm_ch_invoice_shen.Create (self);
  frm_ch_invoice_shen.ManualDock(frm_main.SearchTabs('frm_ch_invoice_shen',frm_ch_invoice_shen.caption,'411'),nil,alClient);
  frm_ch_invoice_shen.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act412Execute(Sender: TObject);
begin
  {$IFDEF FPSHENQING}
  if not if_open('029') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_invoice_check) then
    frm_ch_invoice_check:=tfrm_ch_invoice_check.Create (self);
  frm_ch_invoice_check.ManualDock(frm_main.SearchTabs('frm_ch_invoice_check',frm_ch_invoice_check.caption,'412'),nil,alClient);
  frm_ch_invoice_check.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act413Execute(Sender: TObject);
begin
  if not if_open('030') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_invoice) then
    frm_ch_invoice:=tfrm_ch_invoice.Create (self);
  frm_ch_invoice.ManualDock(frm_main.SearchTabs('frm_ch_invoice',frm_ch_invoice.caption,'413'),nil,alClient);
  frm_ch_invoice.show;
end;

procedure Tfrm_tree_main.Act41401Execute(Sender: TObject);
begin
  if not if_open('046') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_in_ch) then
    frm_rp_in_ch:=tfrm_rp_in_ch.Create (self);
  frm_rp_in_ch.ManualDock(frm_main.SearchTabs('frm_rp_in_ch',frm_rp_in_ch.caption,'41401'),nil,alClient);
  frm_rp_in_ch.show;
end;

procedure Tfrm_tree_main.Act41402Execute(Sender: TObject);
begin
  if not if_open('205') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_in_fenlei) then
    frm_rp_in_fenlei:=tfrm_rp_in_fenlei.Create (self);
  frm_rp_in_fenlei.ManualDock(frm_main.SearchTabs('frm_rp_in_fenlei',frm_rp_in_fenlei.caption,'41402'),nil,alClient);
  frm_rp_in_fenlei.show;
end;

procedure Tfrm_tree_main.Act41403Execute(Sender: TObject);
begin
  if not if_open('105') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_in_total) then
    frm_rp_in_total:=tfrm_rp_in_total.Create (self);
  frm_rp_in_total.ManualDock(frm_main.SearchTabs('frm_rp_in_total',frm_rp_in_total.caption,'41403'),nil,alClient);
  frm_rp_in_total.show;
end;

procedure Tfrm_tree_main.Act931Execute(Sender: TObject);
begin
  if not if_open('005') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_currency:=tfrm_code_currency.Create (self);
    frm_code_currency.ShowModal;
  finally
    frm_code_currency.Free;
  end;
end;

procedure Tfrm_tree_main.Act932Execute(Sender: TObject);
begin
  if not if_open('154') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_fee_type) then
      frm_code_fee_type:=tfrm_code_fee_type.Create (self);
    frm_code_fee_type.ShowModal;
  finally
    frm_code_fee_type.free;
    frm_code_fee_type:=NIL;
  end;
end;

procedure Tfrm_tree_main.Act933Execute(Sender: TObject);
begin
  if not if_open('006') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_fee:=tfrm_code_fee.Create (self);
    frm_code_fee.ShowModal;
  finally
    frm_code_fee.Free;
  end;
end;

procedure Tfrm_tree_main.Act934Execute(Sender: TObject);
begin
  if not if_open('140') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_code_fee_project) then
    frm_code_fee_project:=tfrm_code_fee_project.Create (self);
  frm_code_fee_project.ManualDock(frm_main.SearchTabs('frm_code_fee_project',frm_code_fee_project.caption,'934'),nil,alClient);
  frm_code_fee_project.show;
end;

procedure Tfrm_tree_main.Act935Execute(Sender: TObject);
begin
  if not if_open('015') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_free:=tfrm_code_free.Create (self);
    frm_code_free.ShowModal;
  finally
    frm_code_free.Free;
   end;
end;

procedure Tfrm_tree_main.Act936Execute(Sender: TObject);
begin
  if not if_open('038') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_fee_color:=tfrm_code_fee_color.Create (self);
    frm_code_fee_color.ShowModal;
  finally
    frm_code_fee_color.Free;
    frm_code_fee_color:=nil;
  end;
end;

procedure Tfrm_tree_main.Act937Execute(Sender: TObject);
begin
  {$IFDEF PZJIEKOU}
  if not if_open('183') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_cw_design) then
      frm_cw_design:=tfrm_cw_design.Create (self);
    frm_cw_design.ShowModal;
  finally
    frm_cw_design.free;
    frm_cw_design:=NIL;
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act938Execute(Sender: TObject);
begin
  {$IFDEF PZJIEKOU}
  if not if_open('184') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_cw_kemu) then
    frm_cw_kemu:=tfrm_cw_kemu.Create (self);
  frm_cw_kemu.ManualDock(frm_main.SearchTabs('frm_cw_kemu',frm_cw_kemu.caption,'938'),nil,alClient);
  frm_cw_kemu.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act939Execute(Sender: TObject);
begin
  {$IFDEF DLFENZHANG}
  if not if_open('140') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_project_fee_agent) then
    frm_project_fee_agent:=tfrm_project_fee_agent.Create (self);
  frm_project_fee_agent.ManualDock(frm_main.SearchTabs('frm_project_fee_agent',frm_project_fee_agent.caption,'939'),nil,alClient);
  frm_project_fee_agent.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act9391Execute(Sender: TObject);
begin
  if not if_open('005') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_UsdExRate:=tfrm_code_UsdExRate.Create (self);
    frm_code_UsdExRate.ShowModal;
  finally
    frm_code_UsdExRate.Free;
  end;
end;

procedure Tfrm_tree_main.Act1009Execute(Sender: TObject);
begin
  if not if_open('270') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;

  if not assigned(frm_info_card) then
    frm_info_card:=tfrm_info_card.Create (self);
  frm_info_card.ManualDock(frm_main.SearchTabs('frm_info_card',frm_info_card.caption,'1009'),nil,alClient);
  frm_info_card.show;
end;

procedure Tfrm_tree_main.Act1001Execute(Sender: TObject);
begin
  {$IFDEF KDYEWU}
  if not if_open('162') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_kuaidi_shen) then
    frm_op_kuaidi_shen:=tfrm_op_kuaidi_shen.Create (self);
  frm_op_kuaidi_shen.ManualDock(frm_main.SearchTabs('frm_op_kuaidi_shen',frm_op_kuaidi_shen.caption,'1001'),nil,alClient);
  frm_op_kuaidi_shen.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act1002Execute(Sender: TObject);
begin
  {$IFDEF KDYEWU}
  if not if_open('163') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_kuaidi_check) then
    frm_op_kuaidi_check:=tfrm_op_kuaidi_check.Create (self);
  frm_op_kuaidi_check.ManualDock(frm_main.SearchTabs('frm_op_kuaidi_check',frm_op_kuaidi_check.caption,'1002'),nil,alClient);
  frm_op_kuaidi_check.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act1003Execute(Sender: TObject);
begin
  {$IFDEF KDYEWU}
  if not if_open('182') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_kuaidi_manage) then
    frm_op_kuaidi_manage:=tfrm_op_kuaidi_manage.Create (self);
  frm_op_kuaidi_manage.ManualDock(frm_main.SearchTabs('frm_op_kuaidi_manage',frm_op_kuaidi_manage.caption,'1003'),nil,alClient);
  frm_op_kuaidi_manage.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act451Execute(Sender: TObject);
begin
  {$IFDEF FFLIUCHENG}
  if not if_open('282') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_check_shen) then
    frm_ch_check_shen:=tfrm_ch_check_shen.Create (self);
  frm_ch_check_shen.ManualDock(frm_main.SearchTabs('frm_ch_check_shen',frm_ch_check_shen.caption,'451'),nil,alClient);
  frm_ch_check_shen.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act452Execute(Sender: TObject);
begin
  {$IFDEF FFLIUCHENG}
  if not if_open('037') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_check_check) then
    frm_ch_check_check:=tfrm_ch_check_check.Create (self);
  frm_ch_check_check.ManualDock(frm_main.SearchTabs('frm_ch_check_check',frm_ch_check_check.caption,'452'),nil,alClient);
  frm_ch_check_check.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act453Execute(Sender: TObject);
begin
  if not if_open('034') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_pay) then
    frm_ch_balance_pay:=tfrm_ch_balance_pay.Create (self);
  frm_ch_balance_pay.ManualDock(frm_main.SearchTabs('frm_ch_balance_pay',frm_ch_balance_pay.caption,'453'),nil,alClient);
  frm_ch_balance_pay.show;
end;

procedure Tfrm_tree_main.Act2001Execute(Sender: TObject);
begin
//  if Item.Caption = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ά<EFBFBD><CEAC>' then
    try
      frm_sys_employee:=tfrm_sys_employee.Create (self);
      frm_sys_employee.ShowModal;
    finally
      frm_sys_employee.Free;
    end;
end;

procedure Tfrm_tree_main.Act2002Execute(Sender: TObject);
begin
//  if Item.Caption = '<27><><EFBFBD>˼ƻ<CBBC><C6BB><EFBFBD><EFBFBD><EFBFBD>' then
  {$IFDEF GRXINXI}
    if not assigned(frm_info_plan_individual) then
      frm_info_plan_individual:=tfrm_info_plan_individual.Create (self);
    frm_info_plan_individual.ManualDock(frm_main.SearchTabs('frm_info_plan_individual',frm_info_plan_individual.caption,'2002'),nil,alClient);
    frm_info_plan_individual.show;
    {$ENDIF}
end;

procedure Tfrm_tree_main.Act2003Execute(Sender: TObject);
begin
   {$IFDEF GRXINXI}
//  if Item.Caption = '<27><><EFBFBD>˼<EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>' then
    if not assigned(frm_info_tell_manage) then
      frm_info_tell_manage:=tfrm_info_tell_manage.Create (self);
    frm_info_tell_manage.ManualDock(frm_main.SearchTabs('frm_info_tell_manage',frm_info_tell_manage.caption,'2003'),nil,alClient);
    frm_info_tell_manage.show;
   {$ENDIF}
end;

procedure Tfrm_tree_main.Act2004Execute(Sender: TObject);
begin
  {$IFDEF GZBAOGAO}

//  if Item.Caption = '<27><><EFBFBD>˹<EFBFBD><CBB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
    if not assigned(frm_info_render) then
      frm_info_render:=tfrm_info_render.Create (self);
    frm_info_render.ManualDock(frm_main.SearchTabs('frm_info_render',frm_info_render.caption,'2004'),nil,alClient);
    frm_info_render.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act2005Execute(Sender: TObject);
begin
  {$IFDEF GRXINXI}
//  if Item.Caption = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Թ<EFBFBD><D4B9><EFBFBD>' then
    if not assigned(frm_info_leaveword_manage) then
      frm_info_leaveword_manage:=tfrm_info_leaveword_manage.Create (self);
    frm_info_leaveword_manage.ManualDock(frm_main.SearchTabs('frm_info_leaveword_manage',frm_info_leaveword_manage.caption,'2005'),nil,alClient);
    frm_info_leaveword_manage.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act2006Execute(Sender: TObject);
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
  {$IFDEF BGXITONG}
    try
      frm_info_yijian:=tfrm_info_yijian.Create (self);
      frm_info_yijian.ShowModal;
    finally
      frm_info_yijian.Free;
      frm_info_yijian:=nil;
    end;
   {$ENDIF}
end;

procedure Tfrm_tree_main.Act71Execute(Sender: TObject);
begin
  if not if_open('018') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_crm_client) then
    frm_crm_client:=tfrm_crm_client.Create (self);
  frm_crm_client.ManualDock(frm_main.SearchTabs('frm_crm_client',frm_crm_client.caption,'71'),nil,alClient);
  frm_crm_client.show;
end;

procedure Tfrm_tree_main.Act72Execute(Sender: TObject);
begin
  {$IFDEF KHGUANLI}
  if not if_open('257') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_crm_credit) then
    frm_crm_credit:=tfrm_crm_credit.Create (self);
  showprice:=false ;
  frm_crm_credit.ManualDock(frm_main.SearchTabs('frm_crm_credit',frm_crm_credit.caption,'72'),nil,alClient);
  frm_crm_credit.showall;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act73Execute(Sender: TObject);
begin
  {$IFDEF KHGUANLI}
  if not if_open('093') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_crm_client_report) then
    frm_crm_client_report:=tfrm_crm_client_report.Create (self);
  frm_crm_client_report.ManualDock(frm_main.SearchTabs('frm_crm_client_report',frm_crm_client_report.caption,'73'),nil,alClient);
  frm_crm_client_report.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act74Execute(Sender: TObject);
begin
  {$IFDEF KHGUANLI}
  if not if_open('090') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_price:=tfrm_code_price.Create (self);
    frm_code_price.ShowModal;
  finally
    frm_code_price.Free;
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act75Execute(Sender: TObject);
begin
  {$IFDEF KHGUANLI}
  if not if_open('091') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_crm_client_sales) then
    frm_crm_client_sales:=tfrm_crm_client_sales.Create (self);
  frm_crm_client_sales.ManualDock(frm_main.SearchTabs('frm_crm_client_sales',frm_crm_client_sales.caption,'75'),nil,alClient);
  frm_crm_client_sales.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act911Execute(Sender: TObject);
begin
  if not if_open('003') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_sys_company:=tfrm_sys_company.Create (self);
    frm_sys_company.ShowModal;
  finally
    frm_sys_company.Free;
  end;
end;

procedure Tfrm_tree_main.Act912Execute(Sender: TObject);
begin
  if not if_open('151') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_subComp:=tfrm_code_subComp.Create (self);
    frm_code_subComp.ShowModal;
  finally
    frm_code_subComp.Free;
    frm_code_subComp:=nil;
  end;
end;

procedure Tfrm_tree_main.Act913Execute(Sender: TObject);
begin
  if not if_open('070') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_print_head:=tfrm_code_print_head.Create (self);
    frm_code_print_head.ShowModal;
  finally
    frm_code_print_head.Free;
  end;
end;

procedure Tfrm_tree_main.Act914Execute(Sender: TObject);
begin
  if not if_open('004') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_sys_bank:=tfrm_sys_bank.Create (self);
    frm_sys_bank.ShowModal;
  finally
    frm_sys_bank.Free;
  end;
end;

procedure Tfrm_tree_main.Act521Execute(Sender: TObject);
begin
  if not if_open('043') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_no_total) then
    frm_rp_no_total:=tfrm_rp_no_total.Create (self);
  frm_rp_no_total.ManualDock(frm_main.SearchTabs('frm_rp_no_total',frm_rp_no_total.caption,'521'),nil,alClient);
  frm_rp_no_total.show;
end;

procedure Tfrm_tree_main.Act522Execute(Sender: TObject);
begin
  {$IFDEF QFZOUSHI}
  if not if_open('129') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_no_zou) then
    frm_rp_no_zou:=tfrm_rp_no_zou.Create (self);
  frm_rp_no_zou.ManualDock(frm_main.SearchTabs('frm_rp_no_zou',frm_rp_no_zou.caption,'522'),nil,alClient);
  frm_rp_no_zou.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act523Execute(Sender: TObject);
begin
  {$IFDEF QFFZZONGHE}
  if not if_open('042') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_ch_clienttotal) then
    frm_rp_ch_clienttotal:=tfrm_rp_ch_clienttotal.Create (self);
  frm_rp_ch_clienttotal.ManualDock(frm_main.SearchTabs('frm_rp_ch_clienttotal',frm_rp_ch_clienttotal.caption,'523'),nil,alClient);
  frm_rp_ch_clienttotal.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act524Execute(Sender: TObject);
begin
  if not if_open('252') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_ch_OutAmt) then
    frm_rp_ch_OutAmt:=tfrm_rp_ch_OutAmt.Create (self);
  frm_rp_ch_OutAmt.ManualDock(frm_main.SearchTabs('frm_rp_ch_OutAmt',frm_rp_ch_OutAmt.caption,'524'),nil,alClient);
  frm_rp_ch_OutAmt.show;
end;

procedure Tfrm_tree_main.Act525Execute(Sender: TObject);
begin
  if not if_open('102') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_zl_total) then
    frm_rp_zl_total:=tfrm_rp_zl_total.Create (self);
  frm_rp_zl_total.ManualDock(frm_main.SearchTabs('frm_rp_zl_total',frm_rp_zl_total.caption,'525'),nil,alClient);
  frm_rp_zl_total.show;
end;

procedure Tfrm_tree_main.Act526Execute(Sender: TObject);
begin
  {$IFDEF KHGUANLI}
  if not if_open('257') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_crm_credit) then
    frm_crm_credit:=tfrm_crm_credit.Create (self);
  showprice:=false ;
  frm_crm_credit.ManualDock(frm_main.SearchTabs('frm_crm_credit',frm_crm_credit.caption,'526'),nil,alClient);
  frm_crm_credit.showall;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act30117Execute(Sender: TObject);
begin
  {$IFDEF JGCHE}
  if not if_open('234') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_airtruck) then
    frm_ch_fee_check_airtruck:=tfrm_ch_fee_check_airtruck.Create (self);
  frm_ch_fee_check_airtruck.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_airtruck',frm_ch_fee_check_airtruck.caption,'306'),nil,alClient);
  frm_ch_fee_check_airtruck.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act304Execute(Sender: TObject);
begin
  {$IFDEF YJGUANLI}
  if not if_open('258') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_special_price_qus) then
    frm_special_price_qus:=tfrm_special_price_qus.Create (self);
  frm_special_price_qus.ManualDock(frm_main.SearchTabs('frm_special_price_qus',frm_special_price_qus.caption,'304'),nil,alClient);
  frm_special_price_qus.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act303Execute(Sender: TObject);
begin
  {$IFDEF FFLIUCHENG}
  if not if_open('278') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_check_check) then
    frm_ch_check_check:=tfrm_ch_check_check.Create (self);
  frm_ch_check_check.ManualDock(frm_main.SearchTabs('frm_ch_check_check',frm_ch_check_check.caption,'303'),nil,alClient);
  frm_ch_check_check.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act441Execute(Sender: TObject);
begin
  {$IFDEF SFLIUCHENG}
  if not if_open('217') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_accept_shen) then
    frm_ch_accept_shen:=tfrm_ch_accept_shen.Create (self);
  frm_ch_accept_shen.ManualDock(frm_main.SearchTabs('frm_ch_accept_shen',frm_ch_accept_shen.caption,'441'),nil,alClient);
  frm_ch_accept_shen.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act442Execute(Sender: TObject);
begin
  {$IFDEF SFLIUCHENG}

  if not if_open('174') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_accept_deng) then
    frm_ch_balance_accept_deng:=tfrm_ch_balance_accept_deng.Create (self);
  frm_ch_balance_accept_deng.ManualDock(frm_main.SearchTabs('frm_ch_balance_accept_deng',frm_ch_balance_accept_deng.caption,'442'),nil,alClient);
  frm_ch_balance_accept_deng.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act443Execute(Sender: TObject);
begin
  {$IFDEF SFLIUCHENG}
  if not if_open('175') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_accept_hexiao) then
    frm_ch_balance_accept_hexiao:=tfrm_ch_balance_accept_hexiao.Create (self);
  frm_ch_balance_accept_hexiao.ManualDock(frm_main.SearchTabs('frm_ch_balance_accept_hexiao',frm_ch_balance_accept_hexiao.caption,'443'),nil,alClient);
  frm_ch_balance_accept_hexiao.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act444Execute(Sender: TObject);
begin
  {$IFDEF SFLIUCHENG}
  if not if_open('176') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_accept_check) then
    frm_ch_balance_accept_check:=tfrm_ch_balance_accept_check.Create (self);
  frm_ch_balance_accept_check.ManualDock(frm_main.SearchTabs('frm_ch_balance_accept_check',frm_ch_balance_accept_check.caption,'444'),nil,alClient);
  frm_ch_balance_accept_check.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act445Execute(Sender: TObject);
begin
  if not if_open('032') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_accept) then
    frm_ch_balance_accept:=tfrm_ch_balance_accept.Create (self);
  frm_ch_balance_accept.ManualDock(frm_main.SearchTabs('frm_ch_balance_accept',frm_ch_balance_accept.caption,'445'),nil,alClient);
  frm_ch_balance_accept.show;
end;

procedure Tfrm_tree_main.Act241Execute(Sender: TObject);
begin
  {$IFDEF XSGUANLI}
  if not if_open('232') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_sales_profit) then
    frm_rp_sales_profit:=tfrm_rp_sales_profit.Create (self);
  frm_rp_sales_profit.ManualDock(frm_main.SearchTabs('frm_rp_sales_profit',frm_rp_sales_profit.caption,'241'),nil,alClient);
  frm_rp_sales_profit.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act242Execute(Sender: TObject);
begin
  {$IFDEF XSGUANLI}
  if not if_open('232') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_sales_profitLcx) then
    frm_rp_sales_profitLcx:=tfrm_rp_sales_profitLcx.Create (self);
  frm_rp_sales_profitLcx.ManualDock(frm_main.SearchTabs('frm_rp_sales_profitLcx',frm_rp_sales_profitLcx.caption,'242'),nil,alClient);
  frm_rp_sales_profitLcx.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act20101Execute(Sender: TObject);
begin
  {$IFDEF XSGUANLI}
  if not if_open('021') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_seae_sales) then
    frm_ch_fee_seae_sales:=tfrm_ch_fee_seae_sales.Create (self);
  frm_ch_fee_seae_sales.ManualDock(frm_main.SearchTabs('frm_ch_fee_seae_sales',frm_ch_fee_seae_sales.caption,'20101'),nil,alClient);
  frm_ch_fee_seae_sales.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act211Execute(Sender: TObject);
begin
  {$IFDEF YJGUANLI}
  if not if_open('053') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_price_manage) then
    frm_info_price_manage:=tfrm_info_price_manage.Create (self);
  frm_info_price_manage.ManualDock(frm_main.SearchTabs('frm_info_price_manage',frm_info_price_manage.caption,'211'),nil,alClient);
  frm_info_price_manage.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act212Execute(Sender: TObject);
begin
  {$IFDEF YJGUANLI}
  if not if_open('125') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_price_release) then
    frm_info_price_release:=tfrm_info_price_release.Create (self);
  frm_info_price_release.ManualDock(frm_main.SearchTabs('frm_info_price_release',frm_info_price_release.caption,'212'),nil,alClient);
  frm_info_price_release.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act213Execute(Sender: TObject);
begin
  {$IFDEF YJGUANLI}
  if not if_open('126') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_price_other) then
    frm_info_price_other:=tfrm_info_price_other.Create (self);
  frm_info_price_other.ManualDock(frm_main.SearchTabs('frm_info_price_other',frm_info_price_other.caption,'213'),nil,alClient);
  frm_info_price_other.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act214Execute(Sender: TObject);
begin
  {$IFDEF YJGUANLI}
  if not if_open('261') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_special_price_qus) then
    frm_special_price_qus:=tfrm_special_price_qus.Create (self);
  frm_special_price_qus.ManualDock(frm_main.SearchTabs('frm_special_price_qus',frm_special_price_qus.caption,'214'),nil,alClient);
  frm_special_price_qus.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act22Execute(Sender: TObject);
begin
  if not assigned(frm_rp_dui_accepttotal) then
    frm_rp_dui_accepttotal:=Tfrm_rp_dui_accepttotal.Create(self);
  frm_rp_dui_accepttotal.ManualDock(frm_main.SearchTabs('frm_rp_dui_accepttotal',frm_rp_dui_accepttotal.caption,'22'),nil,alClient);
  frm_rp_dui_accepttotal.show;
end;

procedure Tfrm_tree_main.Act20102Execute(Sender: TObject);
begin
  {$IFDEF XSGUANLI}
  if not if_open('057') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_seai_sales) then
    frm_ch_fee_seai_sales:=tfrm_ch_fee_seai_sales.Create (self);
  frm_ch_fee_seai_sales.ManualDock(frm_main.SearchTabs('frm_ch_fee_seai_sales',frm_ch_fee_seai_sales.caption,'20102'),nil,alClient);
  frm_ch_fee_seai_sales.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act20103Execute(Sender: TObject);
begin
  {$IFDEF XSGUANLI}
  if not if_open('075') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_aire_sales) then
    frm_ch_fee_aire_sales:=tfrm_ch_fee_aire_sales.Create (self);
  frm_ch_fee_aire_sales.ManualDock(frm_main.SearchTabs('frm_ch_fee_aire_sales',frm_ch_fee_aire_sales.caption,'20103'),nil,alClient);
  frm_ch_fee_aire_sales.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act20104Execute(Sender: TObject);
begin
  {$IFDEF XSGUANLI}
  if not if_open('083') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_airi_sales) then
    frm_ch_fee_airi_sales:=tfrm_ch_fee_airi_sales.Create (self);
  frm_ch_fee_airi_sales.ManualDock(frm_main.SearchTabs('frm_ch_fee_airi_sales',frm_ch_fee_airi_sales.caption,'20104'),nil,alClient);
  frm_ch_fee_airi_sales.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act30201Execute(Sender: TObject);
begin
  {$IFDEF YWFUHE}
  if not if_open('248') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_Recheck_seae) then
    frm_ch_fee_Recheck_seae:=tfrm_ch_fee_Recheck_seae.Create (self);
  frm_ch_fee_Recheck_seae.ManualDock(frm_main.SearchTabs('frm_ch_fee_Recheck_seae',frm_ch_fee_Recheck_seae.caption,'30201'),nil,alClient);
  frm_ch_fee_Recheck_seae.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act30202Execute(Sender: TObject);
begin
  {$IFDEF YWFUHE}
 if not if_open('249') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_Recheck_seai) then
    frm_ch_fee_Recheck_seai:=tfrm_ch_fee_Recheck_seai.Create (self);
  frm_ch_fee_Recheck_seai.ManualDock(frm_main.SearchTabs('frm_ch_fee_Recheck_seai',frm_ch_fee_Recheck_seai.caption,'30202'),nil,alClient);
  frm_ch_fee_Recheck_seai.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act30203Execute(Sender: TObject);
begin
  {$IFDEF YWFUHE}
  if not if_open('250') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_aire) then
    frm_ch_fee_Recheck_aire:=tfrm_ch_fee_Recheck_aire.Create (self);
  frm_ch_fee_Recheck_aire.ManualDock(frm_main.SearchTabs('frm_ch_fee_Recheck_aire',frm_ch_fee_Recheck_aire.caption,'30203'),nil,alClient);
  frm_ch_fee_Recheck_aire.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act30204Execute(Sender: TObject);
begin
  {$IFDEF YWFUHE}
  if not if_open('251') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_Recheck_airi) then
    frm_ch_fee_Recheck_airi:=tfrm_ch_fee_Recheck_airi.Create (self);
  frm_ch_fee_Recheck_airi.ManualDock(frm_main.SearchTabs('frm_ch_fee_Recheck_airi',frm_ch_fee_Recheck_airi.caption,'30204'),nil,alClient);
  frm_ch_fee_Recheck_airi.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act30101Execute(Sender: TObject);
begin
  if not if_open('024') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_seae) then
    frm_ch_fee_check_seae:=tfrm_ch_fee_check_seae.Create (self);
{
  frm_ch_fee_check_seae.close_select_num:=1;

    if if_open('027') and if_open('146') then
    begin
      frm_ch_fee_check_seae.bsSkinRadioGroup1.ItemIndex:=2;
    end
    else if if_open('027') then
    begin
      frm_ch_fee_check_seae.bsSkinRadioGroup1.ItemIndex:=0;
    end
    else if if_open('146') then
    begin
      frm_ch_fee_check_seae.bsSkinRadioGroup1.ItemIndex:=1;
    end;
}
  frm_ch_fee_check_seae.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_seae',frm_ch_fee_check_seae.caption,'30101'),nil,alClient);
  frm_ch_fee_check_seae.show;
end;

procedure Tfrm_tree_main.Act30102Execute(Sender: TObject);
begin
  if not if_open('060') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_seai) then
    frm_ch_fee_check_seai:=tfrm_ch_fee_check_seai.Create (self);
  frm_ch_fee_check_seai.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_seai',frm_ch_fee_check_seai.caption,'30102'),nil,alClient);
  frm_ch_fee_check_seai.show;
end;

procedure Tfrm_tree_main.Act30103Execute(Sender: TObject);
begin
  if not if_open('076') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_aire) then
    frm_ch_fee_check_aire:=tfrm_ch_fee_check_aire.Create (self);
  frm_ch_fee_check_aire.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_aire',frm_ch_fee_check_aire.caption,'30103'),nil,alClient);
  frm_ch_fee_check_aire.show;
end;

procedure Tfrm_tree_main.Act30104Execute(Sender: TObject);
begin
  if not if_open('084') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_airi) then
    frm_ch_fee_check_airi:=tfrm_ch_fee_check_airi.Create (self);
  frm_ch_fee_check_airi.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_airi',frm_ch_fee_check_airi.caption,'30104'),nil,alClient);
  frm_ch_fee_check_airi.show;
end;

procedure Tfrm_tree_main.Act61Execute(Sender: TObject);
begin
  {$IFDEF ZJFENXI}
  if not if_open('108') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_zj_total) then
    frm_rp_zj_total:=tfrm_rp_zj_total.Create (self);
  frm_rp_zj_total.ManualDock(frm_main.SearchTabs('frm_rp_zj_total',frm_rp_zj_total.caption,'61'),nil,alClient);
  frm_rp_zj_total.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act62Execute(Sender: TObject);
begin
  {$IFDEF ZJFENXI}
  if not if_open('130') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_zj_zou) then
    frm_rp_zj_zou:=tfrm_rp_zj_zou.Create (self);
  frm_rp_zj_zou.ManualDock(frm_main.SearchTabs('frm_rp_zj_zou',frm_rp_zj_zou.caption,'62'),nil,alClient);
  frm_rp_zj_zou.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.FormShow(Sender: TObject);
var
  inifile1:Tinifile;
  str:widestring;
begin
  if NOT strtobool(get_parameters_value(149,'false')) then begin
   WebBrowser1.Visible:=false;
   cxSplitter1.Visible:=false;
   WebBrowser1.Height:=1;
  end else
    WebBrowser1.Navigate('http://www.dongshengsoft.com/dspage.asp');
  str:='111111';

  if not vold then begin
    frm_data_share.memreg.first;
    while not frm_data_share.memreg.eof do begin
      if frm_data_share.memreg.fieldbyname('reg').AsInteger=0 then
        str:=str+','+frm_data_share.memreg.fieldbyname('fmoduleid').asstring
      else if frm_data_share.memreg.fieldbyname('reg').AsInteger=2 then begin
        if frm_main.RegwareII1.DaysLeft<=0 then
          str:=str+','+frm_data_share.memreg.fieldbyname('fmoduleid').asstring;
      end;
      frm_data_share.memreg.next;
    end;
  end;

    if (Uppercase(get_parameters_value(101,'false'))='FALSE') and (Uppercase(get_parameters_value(105,'false'))='FALSE') then begin
      str:=str+','+'30201';
    end;
    if (Uppercase(get_parameters_value(102,'false'))='FALSE') and (Uppercase(get_parameters_value(106,'false'))='FALSE') then begin
      str:=str+','+'30202';
    end;
    if (Uppercase(get_parameters_value(103,'false'))='FALSE') and (Uppercase(get_parameters_value(107,'false'))='FALSE') then begin
      str:=str+','+'30203';
    end;
    if (Uppercase(get_parameters_value(104,'false'))='FALSE') and (Uppercase(get_parameters_value(108,'false'))='FALSE') then begin
      str:=str+','+'30204';
    end;

    if (Uppercase(get_parameters_value(309,'false'))='FALSE') and (Uppercase(get_parameters_value(310,'false'))='FALSE') then begin
      str:=str+','+'30205';
    end;

    if (Uppercase(get_parameters_value(1,'false'))='FALSE') then
      str:=str+','+'412';


  addLVcolumn ;
  with p_view do  //p_userRight
  begin
    Close ;
    Parameters.ParamByName('@oper').value:=employee ;
    {$IFDEF Primary}
    Parameters.ParamByName('@verclass').value:=1;
    {$ENDIF}
    {$IFDEF Stand}
    Parameters.ParamByName('@verclass').value:=2;
    {$ENDIF}
    {$IFDEF Support}
    Parameters.ParamByName('@verclass').value:=3;
    {$ENDIF}
    Parameters.ParamByName('@notid').value:=str;

  //  showmessage(p_view.Parameters.ParamByName('SQLStr').value);

    Open ;

  //  p_view.SaveToFile('c:\1.txt');
  end ;


  with qrymodule do  //p_userRight
  begin
    Close ;
    Parameters.ParamByName('@oper').value:=employee ;
    {$IFDEF Primary}
    Parameters.ParamByName('@verclass').value:=1;
    {$ENDIF}
    {$IFDEF Stand}
    Parameters.ParamByName('@verclass').value:=2;
    {$ENDIF}
    {$IFDEF Support}
    Parameters.ParamByName('@verclass').value:=3;
    {$ENDIF}
    Parameters.ParamByName('@notid').value:=str;
    Open ;

{
    qrymodule.LoadFromDataSet(tvmodule,[mtcpostructure,mtcpoProperties,mtcpoFieldIndex]);

    if not vold then begin
      first;
      while not eof do begin
        if qrymodule['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ϸ'] then begin
          if not if_reg(qrymodule['fmoduleid']) then
            qrymodule.Delete
          else
            next;
        end else   next;
      end;
    end;
 }

  end ;


  with t_sys_module_emp do
  begin
    Close ;
    SQL.Clear;
    SQL.Add('select * from t_sys_module_emp where <20><><EFBFBD><EFBFBD>='''+employee+''' order by forderid');
    Open ;
  end ;

  Addmenu;

  menu_opseae.Visible:=qrymodule.Locate('fmoduleid',101,[]) ;
  menu_opseai.Visible:=qrymodule.Locate('fmoduleid',111,[]) ;
  menu_opair.Visible:=qrymodule.Locate('fmoduleid',121,[]) ;
  menu_opairi.Visible:=qrymodule.Locate('fmoduleid',131,[]) ;
  label14.Caption:=employee;
  label15.Caption:=FormatDateTime('hh',now)+':'+FormatDateTime('nn',now);

  if not assigned(frm_chart_message) then
    frm_chart_message:=tfrm_chart_message.Create (Application);
  frm_chart_message.ManualDock(frm_main.SearchTabs('frm_chart_message',frm_chart_message.caption),nil,alClient);
  frm_chart_message.show ;
  bsSkinPageControl1.ActivePage:=bsSkinTabSheet1 ;
  maintree.FullCollapse ;
  qrymodule.First ;

  if G_ZWCHK='TRUE' then
  begin
    N27.Visible:=false ;
    N28.Visible:=false ;
    N29.Visible:=false ;
  end ;

  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');


  bsSkinPageControl2.ActivePageIndex:=inifile1.readinteger('View','tabindex',0);
  bsSkinPageControl2.OnChange(nil);

  if inifile1.ReadString('other','toolbar','')<>''  then
  begin
    CoolBar1.Visible:=inifile1.Readbool('other','toolbar',false);
    bsSkinMainMenuBar1.Visible:=inifile1.Readbool('other','toolbar',false);
  end;

  inifile1.free;


end;

procedure Tfrm_tree_main.ToolButton6Click(Sender: TObject);
begin
//<2F><><EFBFBD><EFBFBD>ϵͳ
    if not assigned(frm_sys_about) then
      frm_sys_about:=tfrm_sys_about.Create (self);
    frm_sys_about.Show;
// Ȩ<>޹<EFBFBD><DEB9><EFBFBD>
{
    if not assigned(frm_sys_module) then
      frm_sys_module:=tfrm_sys_module.Create (self);
    frm_sys_module.ManualDock(frm_main.SearchTabs('frm_sys_module',frm_sys_module.caption),nil,alClient);
    frm_sys_module.show;
}
end;

procedure Tfrm_tree_main.Act9390Execute(Sender: TObject);
begin
  {$IFDEF DLFENZHANG}
  if not if_open('140') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_project_fee_cargomainfest) then
    frm_project_fee_cargomainfest:=tfrm_project_fee_cargomainfest.Create (self);
  frm_project_fee_cargomainfest.ManualDock(frm_main.SearchTabs('frm_project_fee_cargomainfest',frm_project_fee_cargomainfest.caption,'9390'),nil,alClient);
  frm_project_fee_cargomainfest.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.bsSkinPageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
 Index: Integer;
begin
 if (Button = mbRIght)  then
 begin
   Index := bsSkinPageControl1.IndexOfTabAt(X,Y);
   if Index >= 2 then
   begin
     popupclose.Popup( mouse.CursorPos.X, mouse.CursorPos.Y);
     CloseSheet:=bsSkinPageControl1.Pages[Index];
   end else CloseSheet:=nil ;
 end;
end;

procedure Tfrm_tree_main.popclose_closeClick(Sender: TObject);
var i:integer ;
begin
  if CloseSheet<>nil then
    for i:=0 to CloseSheet.ControlCount-1 do
      if CloseSheet.controls[i].Name=CloseSheet.Hint then
        Tform(CloseSheet.controls[i]).Close ;
end;

procedure Tfrm_tree_main.ToolButton11Click(Sender: TObject);
begin
//  if OpenDialog1.Execute then
//    frm_main.bsSkinData1.LoadFromFile(OpenDialog1.FileName);
end;

function Tfrm_tree_main.delmenu(menu:TMenuItem):boolean;
var
  str:string;
begin
  while(menu.Count >0) do
  begin
    str:= menu.Items[0].Name ;
    if menu.Items[0].Count >0 then
    begin
      delmenu(menu.Items[0]);
    end
    else
    begin
      menu.Items[0].Free ;
    end;
  end;
end;


procedure Tfrm_tree_main.replmenu;
begin
  while(MMModule.Items.Count >0) do begin
   delmenu(MMModule.Items[0]);
   MMModule.Items[0].Free;
  end;
  addmenu ;
  menu_opseae.Visible:=qrymodule.Locate('fmoduleid',101,[]) ;
  menu_opseai.Visible:=qrymodule.Locate('fmoduleid',111,[]) ;
  menu_opair.Visible:=qrymodule.Locate('fmoduleid',121,[]) ;
  menu_opairi.Visible:=qrymodule.Locate('fmoduleid',131,[]) ;
  label14.Caption:=employee;
  label15.Caption:=FormatDateTime('hh',now)+':'+FormatDateTime('nn',now);
end;

procedure Tfrm_tree_main.Act515Execute(Sender: TObject);
begin
  {$IFDEF YWTAIZHANG}
  if not if_open('150',515) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_tai_seae_pin) then
    frm_rp_tai_seae_pin:=tfrm_rp_tai_seae_pin.Create (self);
  frm_rp_tai_seae_pin.ManualDock(frm_main.SearchTabs('frm_rp_tai_seae_pin',frm_rp_tai_seae_pin.caption,'515'),nil,alClient);
  frm_rp_tai_seae_pin.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act18Execute(Sender: TObject);
begin
  act22.Execute ;
end;

procedure Tfrm_tree_main.Act547Execute(Sender: TObject);
begin
  if not if_open('194',547) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_dui_accept) then
    frm_rp_dui_accept:=tfrm_rp_dui_accept.Create (self);
  frm_rp_dui_accept.ManualDock(frm_main.SearchTabs('frm_rp_dui_accept',frm_rp_dui_accept.caption,'547'),nil,alClient);
  frm_rp_dui_accept.show;
end;

procedure Tfrm_tree_main.Act548Execute(Sender: TObject);
begin
  if not if_open('195',548) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_dui_pay) then
    frm_rp_dui_pay:=tfrm_rp_dui_pay.Create (self);
  frm_rp_dui_pay.ManualDock(frm_main.SearchTabs('frm_rp_dui_pay',frm_rp_dui_pay.caption,'548'),nil,alClient);
  frm_rp_dui_pay.show;
end;

procedure Tfrm_tree_main.Act5381Execute(Sender: TObject);
begin
    {$IFDEF TBQITA}

  if not if_open('049',5381) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_zou_seae) then
    frm_rp_zou_seae:=tfrm_rp_zou_seae.Create (self);
  frm_rp_zou_seae.ManualDock(frm_main.SearchTabs('frm_rp_zou_seae',frm_rp_zou_seae.caption,'5381'),nil,alClient);
  frm_rp_zou_seae.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5382Execute(Sender: TObject);
begin
  {$IFDEF TBQITA}
  if not if_open('068',5382) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_zou_seai) then
    frm_rp_zou_seai:=tfrm_rp_zou_seai.Create (self);
  frm_rp_zou_seai.ManualDock(frm_main.SearchTabs('frm_rp_zou_seai',frm_rp_zou_seai.caption,'5382'),nil,alClient);
  frm_rp_zou_seai.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5383Execute(Sender: TObject);
begin
  {$IFDEF TBQITA}
  if not if_open('112',5383) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_zou_aire) then
    frm_rp_zou_aire:=tfrm_rp_zou_aire.Create (self);
  frm_rp_zou_aire.ManualDock(frm_main.SearchTabs('frm_rp_zou_aire',frm_rp_zou_aire.caption,'5383'),nil,alClient);
  frm_rp_zou_aire.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5384Execute(Sender: TObject);
begin
  {$IFDEF TBQITA}
  if not if_open('113',5384) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_zou_airi) then
    frm_rp_zou_airi:=tfrm_rp_zou_airi.Create (self);
  frm_rp_zou_airi.ManualDock(frm_main.SearchTabs('frm_rp_zou_airi',frm_rp_zou_airi.caption,'5384'),nil,alClient);
  frm_rp_zou_airi.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5391Execute(Sender: TObject);
begin
  if not if_open('049',5391) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_yunjia_seae) then
    frm_rp_yunjia_seae:=tfrm_rp_yunjia_seae.Create (self);
  frm_rp_yunjia_seae.ManualDock(frm_main.SearchTabs('frm_rp_yunjia_seae',frm_rp_yunjia_seae.caption,'5391'),nil,alClient);
  frm_rp_yunjia_seae.show;
end;

procedure Tfrm_tree_main.Act5392Execute(Sender: TObject);
begin
  if not if_open('049',5392) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_yunfeibl_seae) then
    frm_rp_yunfeibl_seae:=tfrm_rp_yunfeibl_seae.Create (self);
  frm_rp_yunfeibl_seae.ManualDock(frm_main.SearchTabs('frm_rp_yunfeibl_seae',frm_rp_yunfeibl_seae.caption,'5392'),nil,alClient);
  frm_rp_yunfeibl_seae.show;
end;

procedure Tfrm_tree_main.Act5401Execute(Sender: TObject);
begin
  {$IFDEF TBQITA}
  if not if_open('050',5401) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_fen_seae) then
    frm_rp_fen_seae:=tfrm_rp_fen_seae.Create (self);
  frm_rp_fen_seae.ManualDock(frm_main.SearchTabs('frm_rp_fen_seae',frm_rp_fen_seae.caption,'5401'),nil,alClient);
  frm_rp_fen_seae.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5402Execute(Sender: TObject);
begin
  {$IFDEF TBQITA}
  if not if_open('069',5402) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_fen_seai) then
    frm_rp_fen_seai:=tfrm_rp_fen_seai.Create (self);
  frm_rp_fen_seai.ManualDock(frm_main.SearchTabs('frm_rp_fen_seai',frm_rp_fen_seai.caption,'5402'),nil,alClient);
  frm_rp_fen_seai.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5403Execute(Sender: TObject);
begin
  {$IFDEF TBQITA}
  if not if_open('115',5403) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_fen_aire) then
    frm_rp_fen_aire:=tfrm_rp_fen_aire.Create (self);
  frm_rp_fen_aire.ManualDock(frm_main.SearchTabs('frm_rp_fen_aire',frm_rp_fen_aire.caption,'5403'),nil,alClient);
  frm_rp_fen_aire.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5404Execute(Sender: TObject);
begin
  {$IFDEF TBQITA}
  if not if_open('116',5404) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_fen_airi) then
    frm_rp_fen_airi:=tfrm_rp_fen_airi.Create (self);
  frm_rp_fen_airi.ManualDock(frm_main.SearchTabs('frm_rp_fen_airi',frm_rp_fen_airi.caption,'5404'),nil,alClient);
  frm_rp_fen_airi.show;
  {$ENDIF}
end;

function Tfrm_tree_main.freesheeet: boolean;
var i:integer ;
    mysheet:TTabSheet ;
begin
  result:=true ;
  if bsSkinPageControl1.PageCount<=1 then exit ;
  try
    while bsSkinPageControl1.PageCount>1 do
    begin
      mysheet:=bsSkinPageControl1.Pages[1];
      for i:=0 to mysheet.ControlCount-1 do
        if MySheet.controls[i].Name=MySheet.Hint then
          Tform(MYSheet.controls[i]).Close ;
    end ;
    result:=true ;
  except
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>رճ<D8B1><D5B3><EFBFBD>!<21><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!');
    result:=false ;
  end ;
end;

procedure Tfrm_tree_main.Act215Execute(Sender: TObject);
begin
  if not if_open('262') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_bunk) then
    frm_info_bunk:=tfrm_info_bunk.Create (self);
  frm_info_bunk.ManualDock(frm_main.SearchTabs('frm_info_bunk',frm_info_bunk.caption),nil,alClient);
  frm_info_bunk.show;
end;

procedure Tfrm_tree_main.Act5210Execute(Sender: TObject);
begin
  {$IFDEF QFYDFENXI}
  if not if_open('043',5210) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_no_monthtotal) then
    frm_rp_no_monthtotal:=tfrm_rp_no_monthtotal.Create (self);
  frm_rp_no_monthtotal.ManualDock(frm_main.SearchTabs('frm_rp_no_monthtotal',frm_rp_no_monthtotal.caption,'5210'),nil,alClient);
  frm_rp_no_monthtotal.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act4011Execute(Sender: TObject);
begin
  if not (if_open('027',4011) or if_open('146') or if_open('332') or if_open('337') ) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_close) then
    frm_op_seae_close:=tfrm_op_seae_close.Create (self);
  frm_op_seae_close.ManualDock(frm_main.SearchTabs('frm_op_seae_close',frm_op_seae_close.caption,'4011'),nil,alClient);
  frm_op_seae_close.show;
end;

procedure Tfrm_tree_main.Act4012Execute(Sender: TObject);
begin
  if not (if_open('061') or if_open('147') or if_open('333') or if_open('338')) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seai_close) then
    frm_op_seai_close:=tfrm_op_seai_close.Create (self);
  frm_op_seai_close.ManualDock(frm_main.SearchTabs('frm_op_seai_close',frm_op_seai_close.caption,'4012'),nil,alClient);
  frm_op_seai_close.show;
end;

procedure Tfrm_tree_main.Act4013Execute(Sender: TObject);
begin

  if not (if_open('079') or if_open('148') or if_open('334') or if_open('339') ) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_aire_close) then
    frm_op_aire_close:=tfrm_op_aire_close.Create (self);
  frm_op_aire_close.ManualDock(frm_main.SearchTabs('frm_op_aire_close',frm_op_aire_close.caption,'4013'),nil,alClient);
  frm_op_aire_close.show;
end;

procedure Tfrm_tree_main.Act4014Execute(Sender: TObject);
begin
  if not (if_open('087') or if_open('149') or if_open('335') or if_open('340') ) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_airi_close) then
    frm_op_airi_close:=tfrm_op_airi_close.Create (self);
  frm_op_airi_close.ManualDock(frm_main.SearchTabs('frm_op_airi_close',frm_op_airi_close.caption,'4014'),nil,alClient);
  frm_op_airi_close.show;
end;

procedure Tfrm_tree_main.Act4015Execute(Sender: TObject);
begin
  {$IFDEF JGCHE}
  if not (if_open('235') or if_open('236') or if_open('336') or if_open('341') ) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_airtruck_close) then
    frm_op_airtruck_close:=tfrm_op_airtruck_close.Create (self);
  frm_op_airtruck_close.ManualDock(frm_main.SearchTabs('frm_op_airtruck_close',frm_op_airtruck_close.caption,'4015'),nil,alClient);
  frm_op_airtruck_close.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  p_view.Close;
  qrymodule.close;
  action:=caFree;
end;

procedure Tfrm_tree_main.bsSkinPageControl2Change(Sender: TObject);
begin
  if bsSkinPageControl2.ActivePage=tabtree then begin
    ToolButton12.Enabled:=true;
    ToolButton12.ImageIndex:=9;
    ToolButton12.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ղ<EFBFBD>';
  end else if bsSkinPageControl2.ActivePage=tabfav then begin
    ToolButton12.Enabled:=true;
    ToolButton12.ImageIndex:=10;
    ToolButton12.Caption:='ɾ<><C9BE><EFBFBD>ղ<EFBFBD>';
    ListView1.Items.Clear;
    adddx;
  end else begin
    ToolButton12.Enabled:=false;
  end;
end;

procedure Tfrm_tree_main.addlvemp(myid: integer);
begin
  if t_sys_module_emp.Locate('fmoduleid',myid,[]) then begin
    t_sys_module_emp.edit;
    t_sys_module_emp['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
    t_sys_module_emp.Post;
  end else begin
    t_sys_module_emp.Insert;
    t_sys_module_emp['fmoduleid']:=myid;
    t_sys_module_emp['<27><><EFBFBD><EFBFBD>']:=employee;
    t_sys_module_emp['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
    t_sys_module_emp['forderid']:=t_sys_module_emp.RecordCount+1;
    t_sys_module_emp.Post;
  end;
end;

procedure Tfrm_tree_main.dellvemp(myid: integer);
begin
  if t_sys_module_emp.Locate('fmoduleid',myid,[]) then begin
    t_sys_module_emp.Delete;
  end;

end;

procedure Tfrm_tree_main.ToolButton12Click(Sender: TObject);
var
  tabname:string;
begin
  if ListView1.Items.Count=0 then begin
    MessageDlg('ֻ<>д<EFBFBD><D0B4><EFBFBD><EFBFBD><EFBFBD>ϸģ<CFB8><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӻ<EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>ղأ<D5B2>',mtWarning,[mbOK],0);
    exit;
  end;

  if bsSkinPageControl1.ActivePageIndex=0 then begin
    if ListView1.Selected.ImageIndex=1 then begin
      MessageDlg('ֻ<><D6BB><EFBFBD><EFBFBD>ϸģ<CFB8><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ղأ<D5B2>',mtWarning,[mbOK],0);
      exit;
    end;
  end;

  if bsSkinPageControl1.ActivePageIndex=0 then
    tabname:=trim(ListView1.Selected.SubItems[1])
  else
    tabname:=copy(trim(bsSkinPageControl1.Pages[bsSkinPageControl1.ActivePageIndex].name),4,length(trim(bsSkinPageControl1.Pages[bsSkinPageControl1.ActivePageIndex].name))-3);


  if bsSkinPageControl2.ActivePage=tabtree then begin
    addlvemp(strtoint(tabname));
  end else if bsSkinPageControl2.ActivePage=tabfav then begin
    dellvemp(strtoint(tabname));
  end;
  adddx;
end;

procedure Tfrm_tree_main.adddx;
var
  i:integer;
  MItem: TdxSideBarItem ;
  Mgroup:TdxSideGroup ;
  function getPcaption(pid:integer):string;
  begin
    with qrytmp do begin
      Close;SQL.Clear;
      SQL.Add('select ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_sys_module where fmoduleid='+inttostr(pid));
      Open;
      result:=FieldByName('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
    end;
  end;
begin
  with p_sys_module_emp do  //p_userRight
  begin
    Close ;
    Parameters.ParamByName('@oper').value:=employee ;
    Open ;
  end ;
  dxbar_main.Groups.Clear;
  Mgroup:=dxbar_main.Groups.add;
  Mgroup.Caption:='<27>ҵ<EFBFBD><D2B5>ղ<EFBFBD>';
  i:=0;
  p_sys_module_emp.First;
  while not p_sys_module_emp.Eof do begin
    MItem:=Mgroup.Items.Add ;
    MItem.Caption:=getPcaption(p_sys_module_emp.fieldbyname('pid').Asinteger)+'\'+p_sys_module_emp.fieldbyname('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
//    MItem.Caption:=p_sys_module_emp.fieldbyname('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
    MItem.LargeImage:=1;
    MItem.Index:=i;
    i:=i+1;
    MItem.CustomData:=p_sys_module_emp.fieldbyname('fmoduleid').AsString;
    p_sys_module_emp.Next;
  end;
end;

procedure Tfrm_tree_main.dxbar_mainItemClick(Sender: TObject;
  Item: TdxSideBarItem);
var
  myid,myaction:string;
  i:integer;
  ListItem:Tlistitem;
begin
  ListView1.Items.Clear ;
  ListItem:=ListView1.items.Add ;
  ListItem.Caption:=item.caption ;
  ListItem.SubItems.add(item.caption) ;
  ListItem.SubItems.add(item.CustomData);
  ListItem.ImageIndex:=0 ;

  myid:=item.CustomData;
  myaction:='Act'+myid;
  with ActionList1 do
    for i:=0 to ActionCount-1 do
      if Actions[i].Name=myaction then
      begin
        Actions[i].Execute ;
        break ;
      end ;
end;

procedure Tfrm_tree_main.N1Click(Sender: TObject);
var
  ListItem:TListItem;
  i:integer;
begin
  frm_sys_dxbar_sort:=tfrm_sys_dxbar_sort.create(self);
  try
    frm_sys_dxbar_sort.ListView1.Items.Clear;
    with p_sys_module_emp do  //p_userRight
    begin
      Close ;
      Parameters.ParamByName('@oper').value:=employee ;
      Open ;
    end ;
    frm_sys_dxbar_sort.ListView1.Items.Clear;
    for i:=0 to dxbar_main.Groups[0].ItemCount-1 do begin
      ListItem:=frm_sys_dxbar_sort.ListView1.Items.Add ;
      ListItem.Caption:=dxbar_main.Groups[0].Items[i].Caption ;
      ListItem.SubItems.add(dxbar_main.Groups[0].Items[i].CustomData) ;
      ListItem.ImageIndex:=1 ;
    end;

{
    p_sys_module_emp.First;
    while not p_sys_module_emp.Eof do begin
      ListItem:=frm_sys_dxbar_sort.ListView1.Items.Add ;
      ListItem.Caption:=p_sys_module_emp.fieldbyname('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring ;
      ListItem.SubItems.add(p_sys_module_emp.fieldbyname('fmoduleid').AsString) ;
      ListItem.ImageIndex:=1 ;
      p_sys_module_emp.Next;
    end;
}
    frm_sys_dxbar_sort.ShowModal;
    if frm_sys_dxbar_sort.ModalResult=mrok then begin
      for i:=0 to frm_sys_dxbar_sort.ListView1.Items.Count-1 do begin
        if t_sys_module_emp.Locate('fmoduleid',frm_sys_dxbar_sort.ListView1.Items[i].SubItems[0],[]) then begin
          t_sys_module_emp.edit;
          t_sys_module_emp['forderid']:=i+1;
          t_sys_module_emp.Post;
        end;
      end;
    end;
    adddx;
  finally
    FreeAndNil(frm_sys_dxbar_sort);
  end;
end;

procedure Tfrm_tree_main.Act307Execute(Sender: TObject);
begin
  if not if_open('178') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_unlock) then
    frm_op_seae_unlock:=tfrm_op_seae_unlock.Create (self);
  frm_op_seae_unlock.ManualDock(frm_main.SearchTabs('frm_op_seae_unlock',frm_op_seae_unlock.caption,'307'),nil,alClient);
  frm_op_seae_unlock.show;
end;

procedure Tfrm_tree_main.Act947Execute(Sender: TObject);
begin
  if not if_open('170') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_sys_printset:=tfrm_sys_printset.Create (self);
    frm_sys_printset.ShowModal;
  finally
    frm_sys_printset.Free;
  end;
end;

procedure Tfrm_tree_main.Act5405Execute(Sender: TObject);
begin
  if not (if_open('280')) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_hl_histry) then
    frm_rp_hl_histry:=tfrm_rp_hl_histry.Create (self);
  frm_rp_hl_histry.ManualDock(frm_main.SearchTabs('frm_rp_hl_histry',frm_rp_hl_histry.caption,'5405'),nil,alClient);
  frm_rp_hl_histry.show;
end;

procedure Tfrm_tree_main.Act191Execute(Sender: TObject);
begin
  {$IFDEF FPSHENQING}
  if not if_open('028') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_invoice_shen) then
    frm_ch_invoice_shen:=tfrm_ch_invoice_shen.Create (self);
  frm_ch_invoice_shen.ManualDock(frm_main.SearchTabs('frm_ch_invoice_shen',frm_ch_invoice_shen.caption,'191'),nil,alClient);
  frm_ch_invoice_shen.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act192Execute(Sender: TObject);
begin
  {$IFDEF FFLIUCHENG}
   if not if_open('036') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_check_shen) then
    frm_ch_check_shen:=tfrm_ch_check_shen.Create (self);
  frm_ch_check_shen.ManualDock(frm_main.SearchTabs('frm_ch_check_shen',frm_ch_check_shen.caption,'192'),nil,alClient);
  frm_ch_check_shen.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act948Execute(Sender: TObject);
begin
  if not if_open('285') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_sys_noset) then
      frm_sys_noset:=tfrm_sys_noset.Create (self);
    frm_sys_noset.ShowModal;
  finally
    FreeAndNil(frm_sys_noset);
  end;

end;

procedure Tfrm_tree_main.Act974Execute(Sender: TObject);
begin
  frm_code_port_load:=tfrm_code_port_load.Create (self);
  try
    frm_code_port_load.ShowModal;
  finally
    FreeAndNil(frm_code_port_load);
  end;
end;

procedure Tfrm_tree_main.Act78Execute(Sender: TObject);
begin
   if not if_open('181') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_crm_client_special) then
      frm_crm_client_special:=tfrm_crm_client_special.Create (self);
    frm_crm_client_special.ShowModal;
  finally
    frm_crm_client_special.free;
    frm_crm_client_special:=nil;
  end;
end;

procedure Tfrm_tree_main.Act245Execute(Sender: TObject);
begin
  {$IFDEF XSGUANLI}
  if not if_open('232') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_sales_profit_Lx) then
    frm_rp_sales_profit_Lx:=tfrm_rp_sales_profit_Lx.Create(self);
  frm_rp_sales_profit_Lx.ManualDock(frm_main.SearchTabs('frm_rp_sales_profit_lx',frm_rp_sales_profit_Lx.caption),nil,alClient);
  frm_rp_sales_profit_Lx.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act402Execute(Sender: TObject);
begin
  {$IFDEF WLZHANG}
  if not if_open('286') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_ch_genleg:=tfrm_ch_genleg.Create (self);
    frm_ch_genleg.ShowModal;
  finally
    frm_ch_genleg.free;
    frm_ch_genleg:=nil;
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act549Execute(Sender: TObject);
begin
  {$IFDEF WLZHANG}
  if not if_open('287') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_ch_genleg) then
    frm_rp_ch_genleg:=tfrm_rp_ch_genleg.Create (self);
  frm_rp_ch_genleg.ManualDock(frm_main.SearchTabs('frm_rp_ch_genleg',frm_rp_ch_genleg.caption),nil,alClient);
  frm_rp_ch_genleg.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act1010Execute(Sender: TObject);
begin
  if not if_open('014') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_tdqr) then
    frm_op_seae_tdqr:=tfrm_op_seae_tdqr.Create (self);
  frm_op_seae_tdqr.ManualDock(frm_main.SearchTabs('frm_op_seae_tdqr',frm_op_seae_tdqr.caption),nil,alClient);
  frm_op_seae_tdqr.show;
end;

procedure Tfrm_tree_main.Act156Execute(Sender: TObject);
begin
   {$IFDEF SJBAOGUAN}
  if not if_open('288') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_apply) then
    frm_op_apply:=tfrm_op_apply.Create (self);
  frm_op_apply.ManualDock(frm_main.SearchTabs('frm_op_apply',frm_op_apply.caption),nil,alClient);
  frm_op_apply.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act949Execute(Sender: TObject);
begin
  if not if_open('096') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_zlset) then
      frm_code_zlset:=tfrm_code_zlset.Create (self);
    frm_code_zlset.ShowModal;
  finally
    FreeAndNil(frm_code_zlset);
  end;
end;

procedure Tfrm_tree_main.Act491Execute(Sender: TObject);
begin
  {$IFDEF WLZHANG}
  if not if_open('289') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  frmAccCloseOff:=TfrmAccCloseOff.create(self);
  try
    frmAccCloseOff.showmodal;
  finally
    FreeAndNil(frmAccCloseOff);
  end;
 {$ENDIF}
end;

procedure Tfrm_tree_main.Act492Execute(Sender: TObject);
begin
  {$IFDEF WLZHANG}
  if not if_open('290') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  frmAccCloseOffBack:=TfrmAccCloseOffBack.create(self);
  try
    frmAccCloseOffBack.showmodal;
  finally
    FreeAndNil(frmAccCloseOffBack);
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5491Execute(Sender: TObject);
begin
  {$IFDEF WLZHANG}
  if not if_open('291') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;

  if not assigned(frm_rp_wl_total) then
    frm_rp_wl_total:=tfrm_rp_wl_total.Create (self);
  frm_rp_wl_total.ManualDock(frm_main.SearchTabs('frm_rp_wl_total',frm_rp_wl_total.caption),nil,alClient);
  frm_rp_wl_total.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act25Execute(Sender: TObject);
begin
  {$IFDEF DCKA}
  if not if_open('301') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;

 if not strtobool(get_parameters_value(198,'false')) then
 begin
   if not assigned(frm_op_seae_weituo) then
     frm_op_seae_weituo:=tfrm_op_seae_weituo.Create (self);
   frm_op_seae_weituo.ManualDock(frm_main.SearchTabs('frm_op_seae_weituo',frm_op_seae_weituo.caption),nil,alClient);
   frm_op_seae_weituo.show;
 end
 else
 begin
   if not assigned(frm_op_seae_weituo_wf) then
     frm_op_seae_weituo_wf:=tfrm_op_seae_weituo_wf.Create (self);
   frm_op_seae_weituo_wf.ManualDock(frm_main.SearchTabs('frm_op_seae_weituo_wf',frm_op_seae_weituo_wf.caption),nil,alClient);
   frm_op_seae_weituo_wf.show;
 end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act308Execute(Sender: TObject);
begin
  {$IFDEF DCKA}
  if not if_open('302') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not strtobool(get_parameters_value(198,'false')) then
  begin

   if not assigned(frm_op_seae_order) then
     frm_op_seae_order:=tfrm_op_seae_order.Create (self);
   frm_op_seae_order.ManualDock(frm_main.SearchTabs('frm_op_seae_order',frm_op_seae_order.caption),nil,alClient);
   frm_op_seae_order.show;
  end
  else
  begin
    if not assigned(frm_op_seae_order_wf) then
      frm_op_seae_order_wf:=tfrm_op_seae_order_wf.Create (self);
    frm_op_seae_order_wf.ManualDock(frm_main.SearchTabs('frm_op_seae_order_wf',frm_op_seae_order_wf.caption),nil,alClient);
    frm_op_seae_order_wf.show;
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.ToolButton13Click(Sender: TObject);
begin
  frm_sys_reg:=Tfrm_sys_reg.Create(self);
  try
    frm_sys_reg.ShowModal;
  finally
    FreeAndNil(frm_sys_reg);
  end;

end;

procedure Tfrm_tree_main.Act815Execute(Sender: TObject);
begin
   {$IFDEF GZBAOGAO}
  if not if_open('020') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_render_manager) then
    frm_info_render_manager:=tfrm_info_render_manager.Create (self);
  frm_info_render_manager.ManualDock(frm_main.SearchTabs('frm_info_render_manager',frm_info_render_manager.caption),nil,alClient);
  frm_info_render_manager.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act816Execute(Sender: TObject);
begin
  {$IFDEF GRXINXI}
  if not if_open('019') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_plan_manage) then
    frm_info_plan_manage:=tfrm_info_plan_manage.Create (self);
  frm_info_plan_manage.ManualDock(frm_main.SearchTabs('frm_info_plan_manage',frm_info_plan_manage.caption),nil,alClient);
  frm_info_plan_manage.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act975Execute(Sender: TObject);
begin
  {$IFDEF EDI}
  if not if_open('179') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_edi_port) then
      frm_code_edi_port:=tfrm_code_edi_port.Create (self);
    frm_code_edi_port.ShowModal;
  finally
    frm_code_edi_port.free;
    frm_code_edi_port:=NIL;
  end;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act5492Execute(Sender: TObject);
begin
   if not if_open('303') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_ch_balance_detail) then
    frm_rp_ch_balance_detail:=tfrm_rp_ch_balance_detail.Create (self);
  frm_rp_ch_balance_detail.ManualDock(frm_main.SearchTabs('frm_rp_ch_balance_detail',frm_rp_ch_balance_detail.caption),nil,alClient);
  frm_rp_ch_balance_detail.show;
end;

procedure Tfrm_tree_main.Act976Execute(Sender: TObject);
begin
  try
    frm_code_airtrade:=tfrm_code_airtrade.Create (self);
    frm_code_airtrade.ShowModal;
  finally
    frm_code_airtrade.Free;
  end;

end;

procedure Tfrm_tree_main.Act817Execute(Sender: TObject);
begin
  {$IFDEF BGXITONG}
  if not if_open('305') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_info_luntan) then
    frm_info_luntan:=tfrm_info_luntan.Create (self);
  frm_info_luntan.ManualDock(frm_main.SearchTabs('frm_info_luntan',frm_info_luntan.caption,'817'),nil,alClient);
  frm_info_luntan.show;
  {$ENDIF}

end;

procedure Tfrm_tree_main.Act5351Execute(Sender: TObject);
begin
  {$IFDEF DLFENZHANG}
  if not if_open('156') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_fenzhang) then
    frm_rp_fenzhang:=tfrm_rp_fenzhang.Create (self);
  frm_rp_fenzhang.ManualDock(frm_main.SearchTabs('frm_rp_fenzhang',frm_rp_fenzhang.caption),nil,alClient);
  frm_rp_fenzhang.show;
  {$ENDIF}

end;

procedure Tfrm_tree_main.Act493Execute(Sender: TObject);
begin
  if not if_open('306') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_fangdan) then
    frm_op_seae_fangdan:=tfrm_op_seae_fangdan.Create (self);
  frm_op_seae_fangdan.ManualDock(frm_main.SearchTabs('frm_op_seae_fangdan',frm_op_seae_fangdan.caption),nil,alClient);
  frm_op_seae_fangdan.show;

end;

procedure Tfrm_tree_main.Act309Execute(Sender: TObject);
begin
  if not if_open('307') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_fangdan) then
    frm_op_seae_fangdan:=tfrm_op_seae_fangdan.Create (self);
  frm_op_seae_fangdan.ManualDock(frm_main.SearchTabs('frm_op_seae_fangdan',frm_op_seae_fangdan.caption),nil,alClient);
  frm_op_seae_fangdan.show;

end;

procedure Tfrm_tree_main.Act5324Execute(Sender: TObject);
begin
  if not if_open('308') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_pin_total) then
    frm_rp_pin_total:=tfrm_rp_pin_total.Create (self);
  frm_rp_pin_total.ManualDock(frm_main.SearchTabs('frm_rp_pin_total',frm_rp_pin_total.caption),nil,alClient);
  frm_rp_pin_total.show;

end;

procedure Tfrm_tree_main.Act977Execute(Sender: TObject);
begin
  if not if_open('153') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_letter) then
      frm_code_letter:=tfrm_code_letter.Create (self);
    frm_code_letter.ShowModal;
  finally
    frm_code_letter.free;
    frm_code_letter:=NIL;
  end;
end;

procedure Tfrm_tree_main.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  try
    WebBrowser1.OleObject.Document.Body.Scroll := 'yes';
  except
    on e:exception do
    begin
     // ShowMessage(e.Message);
    end;
  end;
end;

procedure Tfrm_tree_main.Act416Execute(Sender: TObject);
begin
  if not if_open('311') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_invoice_hexiao) then
    frm_ch_invoice_hexiao:=tfrm_ch_invoice_hexiao.Create (self);
  frm_ch_invoice_hexiao.ManualDock(frm_main.SearchTabs('frm_ch_invoice_hexiao',frm_ch_invoice_hexiao.caption),nil,alClient);
  frm_ch_invoice_hexiao.show;

end;

procedure Tfrm_tree_main.Act3001Execute(Sender: TObject);
begin
  if not if_open('312') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;

  if not assigned(frm_op_state_view) then
    frm_op_state_view:=tfrm_op_state_view.Create (self);
    frm_op_state_view.ManualDock(frm_main.SearchTabs('frm_op_state_view',frm_op_state_view.caption),nil,alClient);
    frm_op_state_view.show;

end;

procedure Tfrm_tree_main.Act31001Execute(Sender: TObject);
begin
 if not if_open('315') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_weborder) then
    frm_op_seae_weborder:=tfrm_op_seae_weborder.Create (self);
  frm_op_seae_weborder.ManualDock(frm_main.SearchTabs('frm_op_seae_weborder',frm_op_seae_weborder.caption),nil,alClient);
  frm_op_seae_weborder.show;

end;

procedure Tfrm_tree_main.Act31002Execute(Sender: TObject);
begin
 if not if_open('316') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seai_order) then
    frm_op_seai_order:=tfrm_op_seai_order.Create (self);
  frm_op_seai_order.ManualDock(frm_main.SearchTabs('frm_op_seai_order',frm_op_seai_order.caption),nil,alClient);
  frm_op_seai_order.show;

end;

procedure Tfrm_tree_main.Act31003Execute(Sender: TObject);
begin
 if not if_open('317') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_aire_order) then
    frm_op_aire_order:=tfrm_op_aire_order.Create (self);
  frm_op_aire_order.ManualDock(frm_main.SearchTabs('frm_op_aire_order',frm_op_aire_order.caption),nil,alClient);
  frm_op_aire_order.show;
end;

procedure Tfrm_tree_main.Act31004Execute(Sender: TObject);
begin
 if not if_open('317') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_airi_order) then
    frm_op_airi_order:=tfrm_op_airi_order.Create (self);
  frm_op_airi_order.ManualDock(frm_main.SearchTabs('frm_op_airi_order',frm_op_airi_order.caption),nil,alClient);
  frm_op_airi_order.show;

end;

procedure Tfrm_tree_main.Act19901Execute(Sender: TObject);
begin
  if not if_open('319') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_railway) then
    frm_op_railway:=tfrm_op_railway.Create (self);
  frm_op_railway.ManualDock(frm_main.SearchTabs('frm_op_railway',frm_op_railway.caption),nil,alClient);
  frm_op_railway.show;

end;

procedure Tfrm_tree_main.Act980Execute(Sender: TObject);
begin
  if not if_open('320') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_railwayctnsource) then
      frm_code_railwayctnsource:=tfrm_code_railwayctnsource.Create (self);
    frm_code_railwayctnsource.ShowModal;
  finally
    FreeAndNil(frm_code_railwayctnsource);
  end;
end;

procedure Tfrm_tree_main.Act981Execute(Sender: TObject);
begin
  if not if_open('321') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_railport) then
      frm_code_railport:=tfrm_code_railport.Create (self);
    frm_code_railport.ShowModal;
  finally
    FreeAndNil(frm_code_railport);
  end;

end;

procedure Tfrm_tree_main.Act30118Execute(Sender: TObject);
begin
  if not assigned(frm_ch_fee_check_railway) then
    frm_ch_fee_check_railway:=tfrm_ch_fee_check_railway.Create (self);
  frm_ch_fee_check_railway.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_railway',frm_ch_fee_check_railway.caption,'30118'),nil,alClient);
  frm_ch_fee_check_railway.show;
end;

procedure Tfrm_tree_main.Act4020Execute(Sender: TObject);
begin
   if not assigned(frm_op_railway_close) then
    frm_op_railway_close:=tfrm_op_railway_close.Create (self);
  frm_op_railway_close.ManualDock(frm_main.SearchTabs('frm_op_railway_close',frm_op_railway_close.caption,'4020'),nil,alClient);
  frm_op_railway_close.show;

end;

procedure Tfrm_tree_main.Act157Execute(Sender: TObject);
begin
   if not assigned(frm_op_railway_apply) then
    frm_op_railway_apply:=tfrm_op_railway_apply.Create (self);
  frm_op_railway_apply.ManualDock(frm_main.SearchTabs('frm_op_railway_apply',frm_op_railway_apply.caption,'157'),nil,alClient);
  frm_op_railway_apply.show;

end;

procedure Tfrm_tree_main.Act158Execute(Sender: TObject);
begin
  {$IFDEF TSQUEREN}
  if not if_open('327') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seai_fuhui) then
    frm_op_seai_fuhui:=tfrm_op_seai_fuhui.Create (self);
  frm_op_seai_fuhui.ManualDock(frm_main.SearchTabs('frm_op_seai_fuhui',frm_op_seai_fuhui.caption,'158'),nil,alClient);
  frm_op_seai_fuhui.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act982Execute(Sender: TObject);
begin
  if not if_open('328') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_code_railwaypath) then
      frm_code_railwaypath:=tfrm_code_railwaypath.Create (self);
    frm_code_railwaypath.ShowModal;
  finally
    FreeAndNil(frm_code_railwaypath);
  end;

end;

procedure Tfrm_tree_main.Act200Execute(Sender: TObject);
begin
  if not if_open('161') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_truck) then
    frm_op_truck:=tfrm_op_truck.Create (self);
  frm_op_truck.ManualDock(frm_main.SearchTabs('frm_op_truck',frm_op_truck.caption),nil,alClient);
  frm_op_truck.show;
end;

procedure Tfrm_tree_main.Act978Execute(Sender: TObject);
begin
  try
    if not assigned(frm_code_truck_client) then
      frm_code_truck_client:=tfrm_code_truck_client.Create (self);
    frm_code_truck_client.ShowModal;
  finally
    FreeAndNil(frm_code_truck_client);
  end;

end;

procedure Tfrm_tree_main.Act979Execute(Sender: TObject);
begin
  try
    if not assigned(frm_code_truck_changzhan) then
      frm_code_truck_changzhan:=tfrm_code_truck_changzhan.Create (self);
    frm_code_truck_changzhan.ShowModal;
  finally
    FreeAndNil(frm_code_truck_changzhan);
  end;

end;

procedure Tfrm_tree_main.Act1082Execute(Sender: TObject);
begin
  if not if_open('331') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_list) then
    frm_op_seae_list:=tfrm_op_seae_list.Create (self);
  frm_op_seae_list.ManualDock(frm_main.SearchTabs('frm_op_seae_list',frm_op_seae_list.caption),nil,alClient);
  frm_op_seae_list.show;
end;

procedure Tfrm_tree_main.Act9392Execute(Sender: TObject);
begin
   try
    if not assigned(frm_code_stlmode) then
      frm_code_stlmode:=tfrm_code_stlmode.Create (self);
    frm_code_stlmode.ShowModal;
  finally
    FreeAndNil(frm_code_stlmode);
  end;
end;

procedure Tfrm_tree_main.Act494Execute(Sender: TObject);
begin
  if not if_open('344') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_cust_befbal) then
    frm_ch_cust_befbal:=tfrm_ch_cust_befbal.Create (self);
  frm_ch_cust_befbal.ManualDock(frm_main.SearchTabs('frm_ch_cust_befbal',frm_ch_cust_befbal.caption),nil,alClient);
  frm_ch_cust_befbal.show;
end;

procedure Tfrm_tree_main.Act216Execute(Sender: TObject);
var
  salecrmhd,main:thandle;
begin
  salecrmhd:=FindProcessId('salecrm.exe');

  if salecrmhd<>0 then begin
    main:=findwindow(nil,pchar('<27><>ʤ<EFBFBD>˼۹<CBBC><DBB9><EFBFBD>ϵͳ - [<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̨]'));
    if main<>0 then begin
      setforegroundwindow(main);
    end;

{
    SendMessage(salecrmhd,WM_COMM,0,0);
    main:=FindWindowEx(0, 0, 'Tfrmmain', nil);
    if main<>0 then begin
      setforegroundwindow(main);
    end;
 }
//    setforegroundwindow(salecrmhd);
//    SendMessage(salecrmhd,WM_ACTIVATE,0,0);
//    SetForegroundWindow(salecrmhd);
  end else begin
    ShellExecute(Application.Handle,nil,PChar(ExtractFilePath(application.ExeName)+'salecrm.exe'),pchar(employee),pchar(emppassword),SW_HIDE);
  end;

end;

procedure Tfrm_tree_main.Act9331Execute(Sender: TObject);
begin
  if not if_open('347') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_fee_unit:=tfrm_code_fee_unit.Create (self);
    frm_code_fee_unit.ShowModal;
  finally
    frm_code_fee_unit.Free;
  end;
end;

procedure Tfrm_tree_main.Act482Execute(Sender: TObject);
begin
  if not if_open('356') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_mblsignin) then
    frm_op_mblsignin:=Tfrm_op_mblsignin.Create (self);
  frm_op_mblsignin.op:=1;
  frm_op_mblsignin.ManualDock(frm_main.SearchTabs('frm_op_mblsignin',frm_op_mblsignin.caption),nil,alClient);
  frm_op_mblsignin.show;

end;

procedure Tfrm_tree_main.Act201Execute(Sender: TObject);
begin
  if not if_open('355') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_mblsign) then
    frm_op_mblsign:=Tfrm_op_mblsign.Create (self);
    frm_op_mblsign.op:=0;
  frm_op_mblsign.ManualDock(frm_main.SearchTabs('frm_op_mblsign',frm_op_mblsign.caption),nil,alClient);
  frm_op_mblsign.show;

end;

procedure Tfrm_tree_main.Act483Execute(Sender: TObject);
begin
  if not if_open('358') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
{
  if not assigned(frm_op_seae_teshufandan) then
    frm_op_seae_teshufandan:=Tfrm_op_seae_teshufandan.Create (self);
  frm_op_seae_teshufandan.ManualDock(frm_main.SearchTabs('frm_op_seae_teshufandan',frm_op_seae_teshufandan.caption),nil,alClient);
  frm_op_seae_teshufandan.show;
}
  if not assigned(frm_op_seae_teshucw) then
    frm_op_seae_teshucw:=Tfrm_op_seae_teshucw.Create (self);
  frm_op_seae_teshucw.ManualDock(frm_main.SearchTabs('frm_op_seae_teshucw',frm_op_seae_teshucw.caption),nil,alClient);
  frm_op_seae_teshucw.show;

end;

procedure Tfrm_tree_main.Act202Execute(Sender: TObject);
begin
  if not if_open('357') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_teshufandan) then
    frm_op_seae_teshufandan:=Tfrm_op_seae_teshufandan.Create (self);
  frm_op_seae_teshufandan.ManualDock(frm_main.SearchTabs('frm_op_seae_teshufandan',frm_op_seae_teshufandan.caption),nil,alClient);
  frm_op_seae_teshufandan.show;

end;

procedure Tfrm_tree_main.Act312Execute(Sender: TObject);
begin
  if not if_open('360') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_teshushenhe) then
    frm_op_seae_teshushenhe:=Tfrm_op_seae_teshushenhe.Create (self);
  frm_op_seae_teshushenhe.ManualDock(frm_main.SearchTabs('frm_op_seae_teshushenhe',frm_op_seae_teshushenhe.caption),nil,alClient);
  frm_op_seae_teshushenhe.show;

end;

procedure Tfrm_tree_main.Act246Execute(Sender: TObject);
begin
  if not if_open('359') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_teshusales) then
    frm_op_seae_teshusales:=Tfrm_op_seae_teshusales.Create (self);
  frm_op_seae_teshusales.ManualDock(frm_main.SearchTabs('frm_op_seae_teshusales',frm_op_seae_teshusales.caption),nil,alClient);
  frm_op_seae_teshusales.show;

end;

procedure Tfrm_tree_main.Act313Execute(Sender: TObject);
begin
  if not if_open('361') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_teshufz) then
    frm_op_seae_teshufz:=Tfrm_op_seae_teshufz.Create (self);
  frm_op_seae_teshufz.ManualDock(frm_main.SearchTabs('frm_op_seae_teshufz',frm_op_seae_teshufz.caption),nil,alClient);
  frm_op_seae_teshufz.show;

end;

procedure Tfrm_tree_main.Act118Execute(Sender: TObject);
begin
  if not if_open('362') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;

  if not assigned(frm_seai_sf_message) then
    frm_seai_sf_message:=tfrm_seai_sf_message.Create (self);
  frm_seai_sf_message.show;


  if not assigned(frm_op_seai_sf) then
    frm_op_seai_sf:=tfrm_op_seai_sf.Create (self);
  frm_op_seai_sf.ManualDock(frm_main.SearchTabs('frm_op_seai_sf',frm_op_seai_sf.caption,'118'),nil,alClient);
  frm_op_seai_sf.show;

end;

procedure Tfrm_tree_main.Act247Execute(Sender: TObject);
begin
  if not if_open('363') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;

{
  if not assigned(frm_rp_sales_profit_two) then
    frm_rp_sales_profit_two:=tfrm_rp_sales_profit_two.Create(self);
  frm_rp_sales_profit_two.ManualDock(frm_main.SearchTabs('frm_rp_sales_profit_two',frm_rp_sales_profit_two.caption,'247'),nil,alClient);
  frm_rp_sales_profit_two.show;
}

  if not assigned(frm_rp_sales_profit_two) then
    frm_rp_sales_profit_two:=tfrm_rp_sales_profit_two.Create(self);
  frm_rp_sales_profit_two.ManualDock(frm_main.SearchTabs('frm_rp_sales_profit_two',frm_rp_sales_profit_two.caption,'247'),nil,alClient);
  frm_rp_sales_profit_two.show;

end;

procedure Tfrm_tree_main.Act248Execute(Sender: TObject);
begin
  if not if_open('364') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    if not assigned(frm_sys_sale_profitset_two) then
      frm_sys_sale_profitset_two:=tfrm_sys_sale_profitset_two.Create (self);
    frm_sys_sale_profitset_two.ShowModal;
  finally
    FreeAndNil(frm_rp_sales_profit_two);
  end;

{
  if not assigned(frm_sys_sale_profitset_two) then
    frm_sys_sale_profitset_two:=tfrm_sys_sale_profitset_two.Create(self);
  frm_sys_sale_profitset_two.ManualDock(frm_main.SearchTabs('frm_sys_sale_profitset_two',frm_sys_sale_profitset_two.caption,'248'),nil,alClient);
  frm_sys_sale_profitset_two.show;
}

end;

procedure Tfrm_tree_main.Act495Execute(Sender: TObject);
begin
  if not if_open('365') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_ch_bankday) then
    frm_ch_ch_bankday:=tfrm_ch_ch_bankday.Create (self);
  frm_ch_ch_bankday.ManualDock(frm_main.SearchTabs('frm_ch_ch_bankday',frm_ch_ch_bankday.caption),nil,alClient);
  frm_ch_ch_bankday.show;

end;

procedure Tfrm_tree_main.Act311Execute(Sender: TObject);
begin
  {$IFDEF DCKA}
  if not if_open('330') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_order) then
    frm_op_seae_order:=tfrm_op_seae_order.Create (self);
  frm_op_seae_order.ManualDock(frm_main.SearchTabs('frm_op_seae_order',frm_op_seae_order.caption),nil,alClient);
  frm_op_seae_order.show;
  {$ENDIF}

end;

procedure Tfrm_tree_main.Act496Execute(Sender: TObject);
begin
  {$IFDEF QTFEIYONG}
  if not if_open('366') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_fee2) then
    frm_op_fee2:=tfrm_op_fee2.Create(self);
  frm_op_fee2.ManualDock(frm_main.SearchTabs('frm_op_fee2',frm_op_fee2.caption,'496'),nil,alClient);
  frm_op_fee2.show;
  {$ENDIF}

end;

procedure Tfrm_tree_main.Act79Execute(Sender: TObject);
begin
   if not if_open('092') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;


  if not assigned(frm_crm_client_check) then
    frm_crm_client_check:=tfrm_crm_client_check.Create (self);
  frm_crm_client_check.ManualDock(frm_main.SearchTabs('frm_crm_client_check',frm_crm_client_check.caption,'79'),nil,alClient);
  frm_crm_client_check.show;

end;

procedure Tfrm_tree_main.Act6001Execute(Sender: TObject);
begin
  if not if_open('600') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_tai_total_com) then
    frm_rp_tai_total_com:=tfrm_rp_tai_total_com.Create (self);
  frm_rp_tai_total_com.ManualDock(frm_main.SearchTabs('frm_rp_tai_total_com',frm_rp_tai_total_com.caption,'6001'),nil,alClient);
  frm_rp_tai_total_com.show;

end;

procedure Tfrm_tree_main.Act6002Execute(Sender: TObject);
begin
  if not if_open('601') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_zl_total_com) then
    frm_rp_zl_total_com:=tfrm_rp_zl_total_com.Create (self);
  frm_rp_zl_total_com.ManualDock(frm_main.SearchTabs('frm_rp_zl_total_com',frm_rp_zl_total_com.caption,'6002'),nil,alClient);
  frm_rp_zl_total_com.show;

end;

procedure Tfrm_tree_main.N16Click(Sender: TObject);
var
  inifile1:Tinifile;
  b:Boolean;
begin
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  b:=inifile1.ReadBool('other','toolbar',True);
  inifile1.WriteBool('other','toolbar',True);
  inifile1.free;
end;

procedure Tfrm_tree_main.Act9332Execute(Sender: TObject);
begin
  if not if_open('602') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_UsdExRate_Invoice:=tfrm_code_UsdExRate_Invoice.Create (self);
    frm_code_UsdExRate_Invoice.ShowModal;
  finally
    frm_code_UsdExRate_Invoice.Free;
  end;

end;

procedure Tfrm_tree_main.Act6003Execute(Sender: TObject);
begin
  if not if_open('603') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_no_monthtotal_com) then
    frm_rp_no_monthtotal_com:=tfrm_rp_no_monthtotal_com.Create (self);
  frm_rp_no_monthtotal_com.ManualDock(frm_main.SearchTabs('frm_rp_no_monthtotal_com',frm_rp_no_monthtotal_com.caption,'6003'),nil,alClient);
  frm_rp_no_monthtotal_com.show;

end;

procedure Tfrm_tree_main.Act249Execute(Sender: TObject);
begin
  if not if_open('367') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_sales_profit_gl) then
    frm_rp_sales_profit_gl:=tfrm_rp_sales_profit_gl.Create(self);
  frm_rp_sales_profit_gl.ManualDock(frm_main.SearchTabs('frm_rp_sales_profit_gl',frm_rp_sales_profit_gl.caption,'249'),nil,alClient);
  frm_rp_sales_profit_gl.show;

end;

procedure Tfrm_tree_main.Act6004Execute(Sender: TObject);
begin
  if not if_open('604') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_no_total_com) then
    frm_rp_no_total_com:=tfrm_rp_no_total_com.Create (self);
  frm_rp_no_total_com.ManualDock(frm_main.SearchTabs('frm_rp_no_total_com',frm_rp_no_total_com.caption,'6004'),nil,alClient);
  frm_rp_no_total_com.show;

end;

procedure Tfrm_tree_main.Act497Execute(Sender: TObject);
begin
  if not if_open('368') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_precost) then
    frm_ch_precost:=tfrm_ch_precost.Create(self);
  frm_ch_precost.ManualDock(frm_main.SearchTabs('frm_ch_precost',frm_ch_precost.caption,'497'),nil,alClient);
  frm_ch_precost.show;
end;

procedure Tfrm_tree_main.Act1081Execute(Sender: TObject);
begin
  if not if_open('369') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_edi) then
    frm_op_seae_edi:=tfrm_op_seae_edi.Create(self);
  frm_op_seae_edi.ManualDock(frm_main.SearchTabs('frm_op_seae_edi',frm_op_seae_edi.caption,'1081'),nil,alClient);
  frm_op_seae_edi.show;
end;

procedure Tfrm_tree_main.Act16001Execute(Sender: TObject);
begin
  if not if_open('370') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_cnt_manage) then
    frm_op_cnt_manage:=tfrm_op_cnt_manage.Create(self);
  frm_op_cnt_manage.ManualDock(frm_main.SearchTabs('frm_op_cnt_manage',frm_op_cnt_manage.caption,'16001'),nil,alClient);
  frm_op_cnt_manage.show;

end;

procedure Tfrm_tree_main.Act16002Execute(Sender: TObject);
begin
  if not if_open('371') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_cnt_maintain) then
    frm_op_cnt_maintain:=tfrm_op_cnt_maintain.Create(self);
  frm_op_cnt_maintain.ManualDock(frm_main.SearchTabs('frm_op_cnt_maintain',frm_op_cnt_maintain.caption,'16002'),nil,alClient);
  frm_op_cnt_maintain.show;

end;

procedure Tfrm_tree_main.Act16003Execute(Sender: TObject);
begin
  if not if_open('372') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_cnt_remind) then
    frm_op_cnt_remind:=tfrm_op_cnt_remind.Create(self);
  frm_op_cnt_remind.ManualDock(frm_main.SearchTabs('frm_op_cnt_remind',frm_op_cnt_remind.caption,'16003'),nil,alClient);
  frm_op_cnt_remind.show;

end;

procedure Tfrm_tree_main.Act17001Execute(Sender: TObject);
begin
   if not if_open('373') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_ctn_add) then
    frm_op_ctn_add:=tfrm_op_ctn_add.Create(self);
  frm_op_ctn_add.ManualDock(frm_main.SearchTabs('frm_op_ctn_add',frm_op_ctn_add.caption,'17001'),nil,alClient);
  frm_op_ctn_add.show;
end;

procedure Tfrm_tree_main.Act17002Execute(Sender: TObject);
begin
   if not if_open('374') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_ctn_give) then
    frm_op_ctn_give:=tfrm_op_ctn_give.Create(self);
  frm_op_ctn_give.ManualDock(frm_main.SearchTabs('frm_op_ctn_give',frm_op_ctn_give.caption,'17002'),nil,alClient);
  frm_op_ctn_give.show;
end;

procedure Tfrm_tree_main.Act17003Execute(Sender: TObject);
begin
   if not if_open('375') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_ctn_status) then
    frm_op_ctn_status:=tfrm_op_ctn_status.Create(self);
  frm_op_ctn_status.ManualDock(frm_main.SearchTabs('frm_op_ctn_status',frm_op_ctn_status.caption,'17003'),nil,alClient);
  frm_op_ctn_status.show;
end;

procedure Tfrm_tree_main.Act17004Execute(Sender: TObject);
begin
   if not if_open('376') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_ctn_detail) then
    frm_op_ctn_detail:=tfrm_op_ctn_detail.Create(self);
  frm_op_ctn_detail.ManualDock(frm_main.SearchTabs('frm_op_ctn_detail',frm_op_ctn_detail.caption,'17004'),nil,alClient);
  frm_op_ctn_detail.show;
end;

procedure Tfrm_tree_main.Act19902Execute(Sender: TObject);
begin
    if not if_open('378') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_railwayctn_shencode) then
    frm_op_railwayctn_shencode:=tfrm_op_railwayctn_shencode.Create(self);
  frm_op_railwayctn_shencode.ManualDock(frm_main.SearchTabs('frm_op_railwayctn_shencode',frm_op_railwayctn_shencode.caption,'19902'),nil,alClient);
  frm_op_railwayctn_shencode.show;
end;

procedure Tfrm_tree_main.Act30121Execute(Sender: TObject);
begin
    if not if_open('379') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_ctndetail) then
    frm_ch_fee_check_ctndetail:=tfrm_ch_fee_check_ctndetail.Create(self);
  frm_ch_fee_check_ctndetail.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_ctndetail',frm_ch_fee_check_ctndetail.caption,'30121'),nil,alClient);
  frm_ch_fee_check_ctndetail.show;
end;

procedure Tfrm_tree_main.Act983Execute(Sender: TObject);
begin
  try
    frm_code_ctn_status:=tfrm_code_ctn_status.Create (self);
    frm_code_ctn_status.ShowModal;
  finally
    frm_code_ctn_status.Free;
  end;
end;

procedure Tfrm_tree_main.Act4031Execute(Sender: TObject);
begin

  if not assigned(frm_op_ctn_close) then
    frm_op_ctn_close:=tfrm_op_ctn_close.Create(self);
  frm_op_ctn_close.ManualDock(frm_main.SearchTabs('frm_op_ctn_close',frm_op_ctn_close.caption,'4031'),nil,alClient);
  frm_op_ctn_close.show;
end;

procedure Tfrm_tree_main.Act19903Execute(Sender: TObject);
begin
  if not if_open('385') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_railway_road) then
    frm_op_railway_road:=tfrm_op_railway_road.Create(self);
  frm_op_railway_road.ManualDock(frm_main.SearchTabs('frm_op_railway_road',frm_op_railway_road.caption,'19903'),nil,alClient);
  frm_op_railway_road.show;
end;

procedure Tfrm_tree_main.Act20308Execute(Sender: TObject);
begin
{
  if not if_open('400') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
}
  if not assigned(frm_op_seae_edi_data) then
    frm_op_seae_edi_data:=tfrm_op_seae_edi_data.Create(self);
  frm_op_seae_edi_data.ManualDock(frm_main.SearchTabs('frm_op_seae_edi_data',frm_op_seae_edi_data.caption,'20308'),nil,alClient);
  frm_op_seae_edi_data.show;

end;

procedure Tfrm_tree_main.Act204Execute(Sender: TObject);
begin
  if not if_open('401') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;

  if not assigned(frm_op_custom) then
    frm_op_custom:=tfrm_op_custom.Create(self);
  frm_op_custom.ManualDock(frm_main.SearchTabs('frm_op_custom',frm_op_custom.caption,'204'),nil,alClient);
  frm_op_custom.show;
end;

procedure Tfrm_tree_main.Act923Execute(Sender: TObject);
begin
  if not if_open('923') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;

  if not assigned(frm_workflow) then
    frm_workflow:=tfrm_workflow.Create(self);
  frm_workflow.ManualDock(frm_main.SearchTabs('frm_workflow',frm_workflow.caption,'923'),nil,alClient);
  frm_workflow.show;

end;

procedure Tfrm_tree_main.Act9301Execute(Sender: TObject);
begin
  if not if_open('924') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_code_fee_project_order) then
    frm_code_fee_project_order:=tfrm_code_fee_project_order.Create (self);
  frm_code_fee_project_order.ManualDock(frm_main.SearchTabs('frm_code_fee_project_order',frm_code_fee_project_order.caption,'9301'),nil,alClient);
  frm_code_fee_project_order.show;

end;

procedure Tfrm_tree_main.Act984Execute(Sender: TObject);
begin
  try
    if not assigned(frm_code_city) then
      frm_code_city:=tfrm_code_city.Create (self);
    frm_code_city.ShowModal;
  finally
    frm_code_edi_port.free;
    frm_code_edi_port:=NIL;
  end;
end;

procedure Tfrm_tree_main.Act41404Execute(Sender: TObject);
begin
  if not if_open('403') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_in_ch_type) then
    frm_rp_in_ch_type:=tfrm_rp_in_ch_type.Create (self);
  frm_rp_in_ch_type.ManualDock(frm_main.SearchTabs('frm_rp_in_ch_type',frm_rp_in_ch_type.caption,'41404'),nil,alClient);
  frm_rp_in_ch_type.show;

end;

procedure Tfrm_tree_main.Act461Execute(Sender: TObject);
begin
  if not if_open('034') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_pay) then
    frm_ch_balance_pay:=tfrm_ch_balance_pay.Create (self);
  frm_ch_balance_pay.ManualDock(frm_main.SearchTabs('frm_ch_balance_pay',frm_ch_balance_pay.caption,'453'),nil,alClient);
  frm_ch_balance_pay.show;
  frm_ch_balance_pay.bsSkinPageControl1.ActivePageIndex:=2;
  if frm_ch_balance_pay.t_ch_zhipiao.Active then exit;
     frm_ch_balance_pay.t_ch_zhipiao.close;
    frm_ch_balance_pay.t_ch_zhipiao.sql.clear;
    frm_ch_balance_pay.t_ch_zhipiao.sql.add('select top 50 * from t_ch_zhipiao order by <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> desc');
    frm_ch_balance_pay.t_ch_zhipiao.open;

end;

procedure Tfrm_tree_main.Act449Execute(Sender: TObject);
begin
  if not if_open('032') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_balance_accept) then
    frm_ch_balance_accept:=tfrm_ch_balance_accept.Create (self);
  frm_ch_balance_accept.ManualDock(frm_main.SearchTabs('frm_ch_balance_accept',frm_ch_balance_accept.caption,'445'),nil,alClient);
  frm_ch_balance_accept.show;
  frm_ch_balance_accept.bsSkinPageControl1.ActivePageIndex:=3;
      if frm_ch_balance_accept.t_ch_jinzhang.Active then exit;
    frm_ch_balance_accept.t_ch_jinzhang.close;
    frm_ch_balance_accept.t_ch_jinzhang.sql.clear;
    frm_ch_balance_accept.t_ch_jinzhang.sql.add('select top 50 * from t_ch_jinzhang order by <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> desc');
    frm_ch_balance_accept.t_ch_jinzhang.open;


end;

procedure Tfrm_tree_main.Act985Execute(Sender: TObject);
begin
  if not if_open('985') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_code_fee_project_localair) then
    frm_code_fee_project_localair:=tfrm_code_fee_project_localair.Create (self);
  //frm_code_fee_project_localair.ManualDock(frm_main.SearchTabs('frm_code_fee_project_localair',frm_code_fee_project_localair.caption,'985'),nil,alClient);
  frm_code_fee_project_localair.show;

end;

procedure Tfrm_tree_main.Act30205Execute(Sender: TObject);
begin
  {$IFDEF YWFUHE}
  if not if_open('986') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_recheck_railway) then
    frm_ch_fee_recheck_railway:=tfrm_ch_fee_recheck_railway.Create (self);
  frm_ch_fee_recheck_railway.ManualDock(frm_main.SearchTabs('frm_ch_fee_recheck_railway',frm_ch_fee_recheck_railway.caption,'30205'),nil,alClient);
  frm_ch_fee_recheck_railway.show;
  {$ENDIF}
end;

procedure Tfrm_tree_main.Act1084Execute(Sender: TObject);
begin
  if not assigned(frm_op_seae_hbl) then
    frm_op_seae_hbl:=tfrm_op_seae_hbl.Create(self);
  frm_op_seae_hbl.ManualDock(frm_main.SearchTabs('frm_op_seae_hbl',frm_op_seae_hbl.caption,'1084'),nil,alClient);
  frm_op_seae_hbl.show;

end;

procedure Tfrm_tree_main.Act9333Execute(Sender: TObject);
begin
  if not if_open('605') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_code_holiday:=tfrm_code_holiday.Create (self);
    frm_code_holiday.ShowModal;
  finally
    frm_code_holiday.Free;
  end;

end;

procedure Tfrm_tree_main.Act498Execute(Sender: TObject);
begin
  if not if_open('391') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_bankacc) then
    frm_ch_bankacc:=tfrm_ch_bankacc.Create(self);
  frm_ch_bankacc.ManualDock(frm_main.SearchTabs('frm_ch_bankacc',frm_ch_bankacc.caption,'498'),nil,alClient);
  frm_ch_bankacc.show;

end;

procedure Tfrm_tree_main.Act499Execute(Sender: TObject);
begin
  if not if_open('392') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_op_profit) then
    frm_rp_op_profit:=tfrm_rp_op_profit.Create(self);
  frm_rp_op_profit.ManualDock(frm_main.SearchTabs('frm_rp_op_profit',frm_rp_op_profit.caption,'499'),nil,alClient);
  frm_rp_op_profit.show;

end;

procedure Tfrm_tree_main.Act30124Execute(Sender: TObject);
begin
    if not if_open('393') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_seae_match) then
    frm_ch_fee_check_seae_match:=Tfrm_ch_fee_check_seae_match.Create(self);
  frm_ch_fee_check_seae_match.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_seae_match',frm_ch_fee_check_seae_match.caption,'30124'),nil,alClient);
  frm_ch_fee_check_seae_match.show;

end;

procedure Tfrm_tree_main.N20Click(Sender: TObject);
begin
  if not assigned(FRM_SHIPINGBOX_SI) then
    FRM_SHIPINGBOX_SI:=tFRM_SHIPINGBOX_SI.Create (self);
  //FRM_SHIPINGBOX_SI.ManualDock(frm_main.SearchTabs('FRM_SHIPINGBOX_SI',FRM_SHIPINGBOX_SI.caption),nil,alClient);
  FRM_SHIPINGBOX_SI.show;


{
  try
    frm_crm_OnLineBillLadingConfirm:=Tfrm_crm_OnLineBillLadingConfirm.Create (self);
    frm_crm_OnLineBillLadingConfirm.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ᵥȷ<E1B5A5><C8B7>';
    if (frm_crm_OnLineBillLadingConfirm.GetXML>0) then begin
        frm_crm_OnLineBillLadingConfirm.ShowModal;
    end else begin
      ShowMessage('û<>д<EFBFBD><D0B4><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD>ᵥȷ<E1B5A5><C8B7>');
    end;
  finally
    frm_crm_OnLineBillLadingConfirm.Free;
  end;
}
end;

procedure Tfrm_tree_main.N17Click(Sender: TObject);
begin
     //<2F><><EFBFBD><EFBFBD><EFBFBD>򿪷<EFBFBD><F2BFAAB7><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>б<EFBFBD><D0B1><EFBFBD>
  try
    frm_SetCompany:=Tfrm_SetCompany.Create (self);

    //if (frm_crm_OnLineBooking.GetXML>0) then begin
    frm_SetCompany.ShowModal;
    //end else begin
    //  ShowMessage('û<>д<EFBFBD><D0B4><EFBFBD>ȡ<EFBFBD>Ķ<EFBFBD><C4B6><EFBFBD><EFBFBD><EFBFBD>Ϣ');
    //end;
  finally
    frm_SetCompany.Free;
  end;

end;

procedure Tfrm_tree_main.N18Click(Sender: TObject);
begin
  try
    frm_SelectLinkMan:=Tfrm_SelectLinkMan.Create (self);
    frm_SelectLinkMan.ShowModal;
  finally
    frm_SelectLinkMan.Free;
  end;

end;

procedure Tfrm_tree_main.N19Click(Sender: TObject);
begin
  try
    frm_SelectLinkCompany:=Tfrm_SelectLinkCompany.Create (self);
    frm_SelectLinkCompany.ShowModal;
  finally
    frm_SelectLinkCompany.Free;
  end;

end;

procedure Tfrm_tree_main.LoadBtnClick(Sender: TObject);
var _count:Integer;
begin
     //<2F><><EFBFBD><EFBFBD><EFBFBD>򿪷<EFBFBD><F2BFAAB7><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>б<EFBFBD><D0B1><EFBFBD>
     {
  try
    frm_crm_OnLineBooking:=Tfrm_crm_OnLineBooking.Create (self);
    frm_crm_OnLineBooking.Caption:='<27><><EFBFBD>߶<EFBFBD><DFB6><EFBFBD><EFBFBD>б<EFBFBD>';
    if (frm_crm_OnLineBooking.GetXML('0')>0) then begin
        frm_crm_OnLineBooking.ShowModal;
    end else begin
      ShowMessage('û<>д<EFBFBD><D0B4><EFBFBD>ȡ<EFBFBD>Ķ<EFBFBD><C4B6><EFBFBD><EFBFBD><EFBFBD>Ϣ');
    end;
  finally
    frm_crm_OnLineBooking.Free;
  end;     }

  try
    if not assigned(frm_crm_OnLineBooking) then begin
        frm_crm_OnLineBooking:=Tfrm_crm_OnLineBooking.Create (self);
        frm_crm_OnLineBooking.ManualDock(frm_main.SearchTabs('frm_crm_OnLineBooking',frm_crm_OnLineBooking.caption,'701'),nil,alClient);
        frm_crm_OnLineBooking.Caption:='<27><><EFBFBD>߶<EFBFBD><DFB6><EFBFBD><EFBFBD>б<EFBFBD>';
        _count:=frm_crm_OnLineBooking.GetXML;
        frm_crm_OnLineBooking.Show;
    end else
    begin
       frm_crm_OnLineBooking.bsSkinButton10Click(self);
    end;
  finally
    //Form2.Free;
  end;


end;

procedure Tfrm_tree_main.N33Click(Sender: TObject);
begin
  try
    frm_BookingLog := Tfrm_BookingLog.Create(self);

    frm_BookingLog.ShowModal;
  finally
    //showmessage(frm_crm_spxcompany.t_crm_spxcompany.FieldByName('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').AsString);
    frm_BookingLog.Free;
  end;
end;

procedure Tfrm_tree_main.Act18001Execute(Sender: TObject);
begin
  if not assigned(frm_op_sealocal) then
    frm_op_sealocal:=tfrm_op_sealocal.Create(self);
  frm_op_sealocal.ManualDock(frm_main.SearchTabs('frm_op_sealocal',frm_op_sealocal.caption,'18001'),nil,alClient);
  frm_op_sealocal.show;
end;

procedure Tfrm_tree_main.Act30125Execute(Sender: TObject);
begin
    if not if_open('395') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ĳ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_ch_fee_check_sealocal) then
    frm_ch_fee_check_sealocal:=Tfrm_ch_fee_check_sealocal.Create(self);
  frm_ch_fee_check_sealocal.ManualDock(frm_main.SearchTabs('frm_ch_fee_check_sealocal',frm_ch_fee_check_sealocal.caption,'30125'),nil,alClient);
  frm_ch_fee_check_sealocal.show;

end;

procedure Tfrm_tree_main.Act4033Execute(Sender: TObject);
begin

  if not assigned(frm_op_sealocal_close) then
    frm_op_sealocal_close:=tfrm_op_sealocal_close.Create(self);
  frm_op_sealocal_close.ManualDock(frm_main.SearchTabs('frm_op_sealocal_close',frm_op_sealocal_close.caption,'4033'),nil,alClient);
  frm_op_sealocal_close.show;

end;

procedure Tfrm_tree_main.Act250Execute(Sender: TObject);
begin

  if not assigned(frm_rp_edi) then   frm_rp_edi:=Tfrm_rp_edi.Create(self);

  frm_rp_edi.ManualDock(frm_main.SearchTabs('frm_rp_edi',frm_rp_edi.caption,'216'),nil,alClient);
  frm_rp_edi.show;
end;

procedure Tfrm_tree_main.Act207Execute(Sender: TObject);
begin

  if not assigned(frm_edi_cangdan_weihu) then   frm_edi_cangdan_weihu:=Tfrm_edi_cangdan_weihu.Create(self);

  frm_edi_cangdan_weihu.ShowModal;
end;

procedure Tfrm_tree_main.Act206Execute(Sender: TObject);
begin

  if not assigned(frm_edi_vgm_weihu) then   frm_edi_vgm_weihu:=Tfrm_edi_vgm_weihu.Create(self);

  frm_edi_vgm_weihu.ShowModal;

end;

procedure Tfrm_tree_main.Act205Execute(Sender: TObject);
begin

  if not assigned(frm_op_seae_vgm_data) then   frm_op_seae_vgm_data:=Tfrm_op_seae_vgm_data.Create(self);
  frm_op_seae_vgm_data.ManualDock(frm_main.SearchTabs('frm_op_seae_vgm_data',frm_op_seae_vgm_data.caption,'205'),nil,alClient);
  frm_op_seae_vgm_data.Show;
end;

procedure Tfrm_tree_main.Act986Execute(Sender: TObject);
begin
  try
    frm_code_pilcode:=Tfrm_code_pilcode.Create (self);
    frm_code_pilcode.ShowModal;
  finally
    frm_code_pilcode.Free;
  end;
end;

procedure Tfrm_tree_main.sute(Sender: TObject);
begin
   try
    frm_code_cdstatus:=Tfrm_code_cdstatus.Create (self);
    frm_code_cdstatus.ShowModal;
  finally
    frm_code_cdstatus.Free;
  end;
end;

procedure Tfrm_tree_main.Act987Execute(Sender: TObject);
begin
   try
    frm_code_cdstatus:=Tfrm_code_cdstatus.Create (self);
    frm_code_cdstatus.ShowModal;
  finally
    frm_code_cdstatus.Free;
  end;
end;

procedure Tfrm_tree_main.Act5352Execute(Sender: TObject);
begin
   if not assigned(frm_rp_cd_monthtotal) then   frm_rp_cd_monthtotal:=Tfrm_rp_cd_monthtotal.Create(self);
  frm_rp_cd_monthtotal.ManualDock(frm_main.SearchTabs('frm_rp_cd_monthtotal',frm_rp_cd_monthtotal.caption,'424'),nil,alClient);
  frm_rp_cd_monthtotal.Show;
end;

procedure Tfrm_tree_main.Act203001Execute(Sender: TObject);
begin
   if not assigned(frm_rp_cd_hs) then   frm_rp_cd_hs:=Tfrm_rp_cd_hs.Create(self);
  frm_rp_cd_hs.ManualDock(frm_main.SearchTabs('frm_rp_cd_hs',frm_rp_cd_hs.caption,'425'),nil,alClient);
  frm_rp_cd_hs.Show;
end;

end.