DS6JIEFENG/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, dxDBTL,
  Buttons,  RxLookup, cxContainer, cxEdit, cxLabel,IdSMTP,IdMessage,IdAttachment,
  IdAttachmentFile,IdText, wwdbdatetimepicker;

  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;
    t: 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;
    Act20308: TAction;
    ToolButton14: TToolButton;
    PopView_Load: TPopupMenu;
    N33: TMenuItem;
    N20: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    Act5406: TAction;
    Act9501: TAction;
    Act1901: TAction;
    Act5411: TAction;
    Act1902: TAction;
    Act1903: TAction;
    Act1904: TAction;
    Act1905: TAction;
    Act1906: TAction;
    Act1911: TAction;
    Act1912: TAction;
    Act1915: TAction;
    Act495: TAction;
    pnl1: TPanel;
    spl1: TSplitter;
    dsTask: TDataSource;
    qry1task: TADOQuery;
    btnRereshTask: TSpeedButton;
    pnl2_taskLeft: TPanel;
    pnl3: TPanel;
    btn1: TSpeedButton;
    tv1: TTreeView;
    pnl4: TPanel;
    pnl5: TPanel;
    dxdbgrd1_task: TdxDBGrid;
    dxdbgrdclmndxdbgrd1Column1: TdxDBGridColumn;
    dxdbgrdclmndxdbgrd1Column4: TdxDBGridColumn;
    dxdbgrdclmndxdbgrd1Column2: TdxDBGridColumn;
    dxdbgrdclmndxdbgrd1Column3: TdxDBGridColumn;
    dxdbgrdclmndxdbgrd1Column5: TdxDBGridColumn;
    dxdbgrdclmndxdbgrd1Column6: TdxDBGridColumn;
    dxdbgrdclmndxdbgrd1Column7: TdxDBGridColumn;
    dxdbgrdclmndxdbgrd1Column8: TdxDBGridColumn;
    dxdbgrdchckclmndxdbgrd1Column9: TdxDBGridCheckColumn;
    dxdbgrdbtnclmndxdbgrdhyprlnkclmndxdbgrd1Column10: TdxDBGridButtonColumn;
    tlb1: TToolBar;
    btn1ZB: TToolButton;
    btn2VC: TToolButton;
    il1: TImageList;
    lbl1: TLabel;
    cxspltr1: TcxSplitter;
    qry2TaskType: TADOQuery;
    il2: TImageList;
    il2_taskmenu: TImageList;
    pm1_tsk_vcMenu: TPopupMenu;
    mni_tskN2Forword: TMenuItem;
    mni_tskN2OkFinish: TMenuItem;
    pm1_tsk_orMenu: TPopupMenu;
    mni_tskor_N1Ok: TMenuItem;
    mni_tskor_N3Cancel: TMenuItem;
    dxdbgrdtclmndxdbgrd1_taskColumn11: TdxDBGridDateColumn;
    qry_op_file_items: TADOQuery;
    dxdbgrdclmndxdbgrd1_taskColumn12: TdxDBGridColumn;
    cxlbl1: TcxLabel;
    RxDBLookupCombo57: TRxDBLookupCombo;
    Editedwtdw: TEdit;
    dxdbgrdclmndxdbgrd1_taskColumn13: TdxDBGridColumn;
    lbl2: TLabel;
    lbl3: TLabel;
    img1: TImage;
    mni_tskor_N2Finish: TMenuItem;
    N16: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    pm1_tsk_swMenu: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    mni3_swFinish: TMenuItem;
    MenuItem4: TMenuItem;
    mni3_swCancel: TMenuItem;
    btn3SW: TToolButton;
    N37: TMenuItem;
    mni3_swPENDING: TMenuItem;
    qry_op_seae: TADOQuery;
    mailSend: TkbmMemTable;
    strngfldSendStringField: TStringField;
    strngfldSendField: TStringField;
    strngfldSendField2: TStringField;
    strngfldSendField3: TStringField;
    strngfldSendField4: TStringField;
    strngfldSendField5: TStringField;
    strngfldSendField6: TStringField;
    strngfldSendField7: TStringField;
    dxdbgrdclmndxdbgrd1_taskColumn15: TdxDBGridColumn;
    dxdbgrdchckclmndxdbgrdclmndxdbgrd1_taskColumn14: TdxDBGridCheckColumn;
    mni_tskN2Cancel: TMenuItem;
    btn4_ReAssignTask: TToolButton;
    btn5AlertOk: TToolButton;
    btn6_Invoic: TToolButton;
    pm4_Invoice: TPopupMenu;
    mni4_OK: TMenuItem;
    mni2: TMenuItem;
    mni4_PENDING: TMenuItem;
    mni4: TMenuItem;
    mni4_CANCEL: TMenuItem;
    wdbdtmpckr1: TwwDBDateTimePicker;
    wdbdtmpckr2: TwwDBDateTimePicker;
    lbl4: TLabel;
    lbl5: TLabel;
    wdbdtmpckr2_finish: TwwDBDateTimePicker;
    wdbdtmpckr1_finish: TwwDBDateTimePicker;
    btn7_BCBABCL: TToolButton;
    pm5_BcBaBcl: TPopupMenu;
    mni5_forword: TMenuItem;
    mni3: TMenuItem;
    mni5_OK: TMenuItem;
    mni6: TMenuItem;
    mni5_PENDING: TMenuItem;
    mni8: TMenuItem;
    mni5_CANCEL: TMenuItem;
    btn2: TToolButton;
    dxdbgrdtclmndxdbgrd1_taskColumn16: TdxDBGridDateColumn;
    pm1_reAssignTsk: TPopupMenu;
    mniN4_tskAss_rematch: TMenuItem;
    mniN4_tskAss_subRematch: TMenuItem;
    Act516: TAction;
    ToolButton15: TToolButton;
    dxdbgrd1_taskColumn17: TdxDBGridColumn;
    Act551: TAction;
    btn1VGM: TToolButton;
    pm1_tsk_VgmMenu: TPopupMenu;
    MenuItem3: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem8: TMenuItem;
    Act111001: TAction;
    Act9502: TAction;
    Act9503: TAction;
    Act9504: TAction;
    Act111002: TAction;
    Act111004: TAction;
    Act111005: TAction;
    Act497: TAction;
    Act499: TAction;
    Act2502: TAction;
    ToolButton16: TToolButton;
    Act5209: TAction;
    ToolButton17: TToolButton;
    pm_ysjh: TPopupMenu;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem9: TMenuItem;
    Act418: TAction;
    Act9393: TAction;
    Act9505: TAction;
    bsSkinButton1: TbsSkinButton;
    qry_op_seae1: TDataSource;
    Act9506: TAction;
    Act9507: TAction;
    Act5493: TAction;
    Act5211: TAction;
    Act4991: TAction;
    Act4992: TAction;
    dxdbgrd1_taskColumn18: TdxDBGridColumn;
    Act4302: TAction;
    Act5365: 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 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 Act20308Execute(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure Act5406Execute(Sender: TObject);
    procedure Act9501Execute(Sender: TObject);
    procedure Act1901Execute(Sender: TObject);
    procedure Act5411Execute(Sender: TObject);
    procedure actAct1902Execute(Sender: TObject);
    procedure Act1903Execute(Sender: TObject);
    procedure Act1904Execute(Sender: TObject);
    procedure Act1905Execute(Sender: TObject);
    procedure Act1906Execute(Sender: TObject);
    procedure Act1911Execute(Sender: TObject);
    procedure Act1912Execute(Sender: TObject);
    procedure Act1915Execute(Sender: TObject);
    procedure Act495Execute(Sender: TObject);   
    procedure btnRereshTaskClick(Sender: TObject);
    procedure dxdbgrd2CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
      ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
      var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
      var ADone: Boolean);
    procedure tv1Changing(Sender: TObject; Node: TTreeNode;
      var AllowChange: Boolean);
    procedure rzgrp1_PersonItems0Click(Sender: TObject);
    procedure tv1Change(Sender: TObject; Node: TTreeNode);
    procedure dxdbgrd1_taskDblClick(Sender: TObject);
    procedure EditedwtdwKeyPress(Sender: TObject; var Key: Char);
    procedure btn4_ReAssignTaskClick(Sender: TObject);
    procedure mni_tskor_N2FinishClick(Sender: TObject);
    procedure mni_tskor_N3CancelClick(Sender: TObject);
    procedure mni_tskor_N1OkClick(Sender: TObject);
    procedure mni_tskN2ForwordClick(Sender: TObject);
    procedure mni3_swPENDINGClick(Sender: TObject);
    procedure btn5AlertOkClick(Sender: TObject);
    procedure mniN4_tskAss_rematchClick(Sender: TObject);
    procedure mniN4_tskAss_subRematchClick(Sender: TObject);
    procedure Act516Execute(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure Act550Execute(Sender: TObject);
    procedure Act551Execute(Sender: TObject);
    procedure dxdbgrd1_taskColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
    procedure Act111001Execute(Sender: TObject);
    procedure Act9502Execute(Sender: TObject);
    procedure Act9503Execute(Sender: TObject);
    procedure Act9504Execute(Sender: TObject);
    procedure Act111002Execute(Sender: TObject);
    procedure Act111004Execute(Sender: TObject);
    procedure Act111005Execute(Sender: TObject);
    procedure Act497Execute(Sender: TObject);
    procedure Act499Execute(Sender: TObject);
    procedure Act2502Execute(Sender: TObject);
    procedure ToolButton16Click(Sender: TObject);
    procedure Act5209Execute(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
    procedure MenuItem9Click(Sender: TObject);
    procedure Act418Execute(Sender: TObject);
    procedure Act9393Execute(Sender: TObject);
    procedure Act9505Execute(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure Act9506Execute(Sender: TObject);
    procedure Act9507Execute(Sender: TObject);
    procedure Act5493Execute(Sender: TObject);
    procedure Act5211Execute(Sender: TObject);
    procedure Act4991Execute(Sender: TObject);
    procedure Act4992Execute(Sender: TObject);
    procedure Act4302Execute(Sender: TObject);
    procedure Act5365Execute(Sender: TObject);
  private
    { Private declarations }
    CloseSheet:TTabSheet ;
    bliNitialOk:Boolean;//<2F>Ƿ<EFBFBD><C7B7><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    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;
    procedure initialTaskType();
    procedure bindtaskdata();

    procedure  UpLoadProFile(fname,RemotePathName,Users,pw,mblNo,bsno:string;fid:integer;filetype:string);
    procedure  updateGuadanFilecount(fid:Integer;bsno:string);
    procedure taskFinish( Ofiletype:string );

     // <20>߳̽<DFB3><CCBD><EFBFBD>ִ<EFBFBD><D6B4>,<2C>߳<EFBFBD><DFB3><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD>mythread<61><64><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        procedure MyOnTerminate(Sender: TObject);
     //BC/BA<42>ֵ<EFBFBD><D6B5>ҵ<EFBFBD>
   function AssignPub_ORIGINAL_SEAWAY_VC():Boolean;
  public
    { Public declarations }
    function freesheeet:boolean ;
    procedure replmenu ;
    function Guadan(mainNo,bsno,filetype,filename_src:string):boolean;
    //<2F>ֵ<EFBFBD><D6B5>ҵ<EFBFBD>
    function Guadan_2(mainNo,bsno,filetype,filename_src:string;isFendan:Boolean;subNo:string):boolean;
    function  ConnectDownServer():Boolean; //<2F><><EFBFBD><EFBFBD>Nass  cjb 2017-11
    function  sendmail( mailSendTbl: TkbmMemTable;mailtype,bsno:string;ishtml:Boolean):Boolean;
    function  sendmailQue( mailSendTbl: TADOQuery):Boolean;
     function checkGuadanTimes( str:string):Boolean;//2017-12-06
          //<2F>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD>з<EFBFBD><D0B7><EFBFBD>
     function  sendmailBatch(taskqueNo:string ):  Integer; //stdcall;
  end;
      MYPARA=record
    QNo: pchar;
    QType: pchar;
  end;
    PMYPARA=^MYPARA;
var
  frm_tree_main: Tfrm_tree_main;

implementation

uses u_data_share,u_info_tell,
  u_sys_message_pri,  u_main,
   my_sys_function,
  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,
  {$IFDEF JGCHE}{$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_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 FFLIUCHENG}u_ch_check_shen, u_ch_check_check,{$ENDIF}
  u_ch_balance_pay, u_sys_employee,
  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_rp_sales_profit_lx,u_sys_sale_profitset,
  {$ENDIF}


  {$IFDEF YWFUHE} u_ch_fee_Recheck_seae, u_ch_fee_Recheck_seai,{$ENDIF}

  u_ch_fee_check_seae, u_ch_fee_check_seai,
  {$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_fen_seae, u_rp_fen_seai,u_rp_fen_seae_ctn,
  {$ENDIF}
  u_rp_dui_pay,
  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_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,  
  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_web_order, u_op_seai_order,
  u_op_seai_fuhui,  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_seae_edi_data, u_rp_op_ttl, u_rp_dui_month, crm_OnLineBooking,
  U_SetCompany, U_SelectLinkMan,U_BookingLog,U_SelectLinkCompany,
  u_rp_rp_apply, u_rp_cx_total, u_cust_mailproject, u_rp_mail_log,
  u_rp_cdfxg_total, u_op_seae_sign, u_op_seae_signqtdlist,
  u_op_seae_signqtdnotify, u_op_seae_invoice_sign,u_op_seae_paper_manage,
  u_op_seae_paper_print, u_op_seae_paper_print_submitinfo,
  u_ch_invoice_bankdata,u_rp_tai_tasks,u_op_tftp,u_rp_wy,
  u_op_seae_TaskContrast, u_sys_progress,
  u_MyThread,
  u_ch_fee_edi, u_rp_tai_total_op, u_code_dggoods, u_code_stowgoods,
  u_code_bangoods, u_op_seae_dg, u_code_fee_project_auto, u_rp_dg_except,
  u_rp_cdstl, u_cw_pingzheng_jk, u_ch_zlsales, u_op_seae_order_edit,
  u_op_seae_web_order_edit, u_op_web_cust_audit, u_rp_bssource_total,
  u_op_seae_web_si_edit, u_info_shareDoc, u_op_seae_ysbg, u_ch_invoice_jk,
  u_code_goods_inv, u_code_trade_msc, u_op_seae_mscbc, u_code_dgunno,
  u_code_package_dg, u_rp_nolx_ttl, u_rp_zl_total2, u_op_seae_web_dg_import,
  u_cw_pingzheng_u8, u_cw_pingzheng_jku8, u_rp_dui_auto, u_rp_rp_seae2;

{$R *.dfm}
 /// <summary>
/// <20><>ʱĿ¼
/// </summary>
function GetWinTempPath: string;
var
  TempDir: array[0..255] of char;
begin
  GetTempPath(255, @TempDir);
  Result := strPas(TempDir);
end;
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);
  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 ;
      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 ;
        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;
  {$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

    //<2F>ݷ<EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    {
    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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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);
begin
  {$IFDEF PZJIEKOU}
  if not if_open('185') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  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;
  {$ENDIF}
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>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_dui_month) then
    frm_rp_dui_month:=tfrm_rp_dui_month.Create (self);
  frm_rp_dui_month.ManualDock(frm_main.SearchTabs('frm_rp_dui_month',frm_rp_dui_month.caption,'48'),nil,alClient);
  frm_rp_dui_month.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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  try
    frm_sys_dep_emp:=tfrm_sys_dep_emp.Create (self);
    if employee<>'DEMO-SA' then
    begin
      {
      frm_sys_dep_emp.t_sys_department.Close;
      frm_sys_dep_emp.t_sys_department.SQL.Clear;
      frm_sys_dep_emp.t_sys_department.SQL.Add('select * from t_sys_department order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
      frm_sys_dep_emp.t_sys_department.Open;
      }
      frm_sys_dep_emp.t_sys_department.Filtered:=false;
      frm_sys_dep_emp.t_sys_department.Filter:='<27><><EFBFBD>ž<EFBFBD><C5BE><EFBFBD>='''+employee+'''';
      frm_sys_dep_emp.t_sys_department.Filtered:=true;
    end;
    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>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_sys_limited) then
    frm_sys_limited:=tfrm_sys_limited.Create (self);

    if employee<>'DEMO-SA' then
    begin
      with frm_sys_limited.t_sys_employee do
      begin
        close;sql.clear;
        sql.add('select * from t_sys_employee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_sys_department where <20><><EFBFBD>ž<EFBFBD><C5BE><EFBFBD>='''+employee+''')');
        sql.add('order by <20><><EFBFBD><EFBFBD>');
        Open;
      end;
      with frm_sys_limited.t_sys_employee2 do
      begin
        close;sql.clear;
        sql.add('select * from t_sys_employee where ״̬=''<27><>ְ'' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_sys_department where <20><><EFBFBD>ž<EFBFBD><C5BE><EFBFBD>='''+employee+''')');
        sql.add('order by <20><><EFBFBD><EFBFBD>');
        Open;
      end;
    end else begin
       with frm_sys_limited.t_sys_employee do
      begin
        close;sql.clear;
        sql.add('select * from t_sys_employee ');
        sql.add('order by <20><><EFBFBD><EFBFBD>');
        Open;
      end;
      with frm_sys_limited.t_sys_employee2 do
      begin
        close;sql.clear;
        sql.add('select * from t_sys_employee ');
        sql.add('order by <20><><EFBFBD><EFBFBD>');
        Open;
      end;

    end;
  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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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 not if_open('348') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  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;
  }
  {$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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_rp_cx_total) then
    frm_rp_cx_total:=tfrm_rp_cx_total.Create (self);
  frm_rp_cx_total.ManualDock(frm_main.SearchTabs('frm_rp_cx_total',frm_rp_cx_total.caption,'5400'),nil,alClient);
  frm_rp_cx_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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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}
    {$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>IJ<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>IJ<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.show;
  {$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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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.show;
  {$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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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.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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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
  bliNitialOk:=False;

  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
    {// <20><><EFBFBD>νݷ<CEBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>֤ <20>̽<EFBFBD><CCBD><EFBFBD> 2017-07-10
    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(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;

    Open ;
  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);
  CoolBar1.Visible:=inifile1.Readbool('other','toolbar',false);
  bsSkinMainMenuBar1.Visible:=inifile1.Readbool('other','toolbar',false);


  inifile1.free;
  //
  wdbdtmpckr1.Date:=Date-10;
  wdbdtmpckr2.Date:=Date;
  wdbdtmpckr1_finish.Date:=date-7;
  wdbdtmpckr2_finish.Date:=Date;
  initialTaskType();
  bindtaskdata();
  bliNitialOk:=True;

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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  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;
  {$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>IJ<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.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>IJ<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}
  {$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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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
  WebBrowser1.OleObject.Document.Body.Scroll := 'yes';
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>IJ<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>IJ<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>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
  if not assigned(frm_op_seae_web_order) then
    frm_op_seae_web_order:=tfrm_op_seae_web_order.Create (self);
  frm_op_seae_web_order.ManualDock(frm_main.SearchTabs('frm_op_seae_web_order',frm_op_seae_web_order.caption),nil,alClient);
  frm_op_seae_web_order.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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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>IJ<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.Act202Execute(Sender: TObject);
begin
  if not if_open('357') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
    exit;
  end;
    tefangload:=false;
  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>IJ<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>IJ<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>IJ<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.Act20308Execute(Sender: TObject);
begin
{
  if not if_open('400') then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<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.ToolButton14Click(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.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.Act5406Execute(Sender: TObject);
begin

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

procedure Tfrm_tree_main.Act9501Execute(Sender: TObject);
begin
    if not assigned(frm_cust_mailproject) then
    frm_cust_mailproject:=Tfrm_cust_mailproject.Create (self);
  frm_cust_mailproject.ManualDock(frm_main.SearchTabs('frm_cust_mailproject',frm_cust_mailproject.caption),nil,alClient);
  frm_cust_mailproject.show;
end;

procedure Tfrm_tree_main.Act1901Execute(Sender: TObject);
begin
      if not assigned(frm_rp_mail_log) then
    frm_rp_mail_log:=Tfrm_rp_mail_log.Create (self);
  frm_rp_mail_log.ManualDock(frm_main.SearchTabs('frm_rp_mail_log',frm_rp_mail_log.caption),nil,alClient);
  frm_rp_mail_log.show;
end;

procedure Tfrm_tree_main.Act5411Execute(Sender: TObject);
begin
       if not assigned(frm_rp_cdfxg_total) then
    frm_rp_cdfxg_total:=Tfrm_rp_cdfxg_total.Create (self);
  frm_rp_cdfxg_total.ManualDock(frm_main.SearchTabs('frm_rp_cdfxg_total',frm_rp_cdfxg_total.caption),nil,alClient);
  frm_rp_cdfxg_total.show;
end;
/// <summary>
/// ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
/// </summary>
procedure Tfrm_tree_main.actAct1902Execute(Sender: TObject);
begin
  //
  //if not if_open('427') then
  // begin
  // showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
  //  exit;
  //end;
  if not assigned(frm_op_seae_sign) then
  frm_op_seae_sign:=Tfrm_op_seae_sign.Create (self);
  frm_op_seae_sign.ManualDock(frm_main.SearchTabs('frm_op_seae_sign',frm_op_seae_sign.caption),nil,alClient);
  frm_op_seae_sign.show;

end;
/// <summary>
/// ǩ<><C7A9><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>
/// </summary>
procedure Tfrm_tree_main.Act1903Execute(Sender: TObject);
begin
    //
  //if not if_open('427') then
  // begin
  // showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
  //  exit;
  //end;
  if not assigned(frm_op_seae_signqdtlist) then
  frm_op_seae_signqdtlist:=Tfrm_op_seae_signqdtlist.Create (self);
   frm_op_seae_signqdtlist.ManualDock(frm_main.SearchTabs('frm_op_seae_signqdtlist',frm_op_seae_signqdtlist.caption,'428'),nil,alClient);
 frm_op_seae_signqdtlist.show;

end;

procedure Tfrm_tree_main.Act1904Execute(Sender: TObject);
begin
  //
end;
/// <summary>
///ǩ<><C7A9><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>֪ͨ
/// </summary>
procedure Tfrm_tree_main.Act1905Execute(Sender: TObject);
begin
  if not assigned(frm_op_seae_signqtdnotify) then
  frm_op_seae_signqtdnotify:=Tfrm_op_seae_signqtdnotify.Create (self);
   frm_op_seae_signqtdnotify.ManualDock(frm_main.SearchTabs('frm_op_seae_signqtdnotify',frm_op_seae_signqtdnotify.caption,'430'),nil,alClient);
 frm_op_seae_signqtdnotify.show;

end;
/// <summary>
/// <20><>Ʊǩ<C6B1><C7A9>
/// </summary>
procedure Tfrm_tree_main.Act1906Execute(Sender: TObject);
begin
    if not assigned(frm_op_seae_invoice_sign) then
      frm_op_seae_invoice_sign:=Tfrm_op_seae_invoice_sign.Create (self);
      frm_op_seae_invoice_sign.ManualDock(frm_main.SearchTabs('frm_op_seae_invoice_sign',frm_op_seae_invoice_sign.caption,'431'),nil,alClient);
      frm_op_seae_invoice_sign.show;
end;

procedure Tfrm_tree_main.Act1911Execute(Sender: TObject);
begin
     if not assigned(frm_op_seae_paper_manage) then
      frm_op_seae_paper_manage:=Tfrm_op_seae_paper_manage.Create (self);
      frm_op_seae_paper_manage.ManualDock(frm_main.SearchTabs('frm_op_seae_paper_manage',frm_op_seae_paper_manage.caption,'441'),nil,alClient);
      frm_op_seae_paper_manage.show;
end;

procedure Tfrm_tree_main.Act1912Execute(Sender: TObject);
begin
    if not assigned(frm_op_seae_paper_print) then
      frm_op_seae_paper_print:=Tfrm_op_seae_paper_print.Create (self);
      frm_op_seae_paper_print.ManualDock(frm_main.SearchTabs('frm_op_seae_paper_print',frm_op_seae_paper_print.caption,'442'),nil,alClient);
      frm_op_seae_paper_print.show;
end;
/// <summary>
/// <20>ᵥǩ<E1B5A5><C7A9>֪ͨ
/// </summary>
procedure Tfrm_tree_main.Act1915Execute(Sender: TObject);
begin
    if not assigned(frm_op_seae_paper_print_submitinfo) then
      frm_op_seae_paper_print_submitinfo:=Tfrm_op_seae_paper_print_submitinfo.Create (self);
      frm_op_seae_paper_print_submitinfo.ManualDock(
        frm_main.SearchTabs('frm_op_seae_paper_print_submitinfo'
        ,frm_op_seae_paper_print_submitinfo.caption,'445'),nil,alClient);
      frm_op_seae_paper_print_submitinfo.show;
end;

procedure Tfrm_tree_main.Act495Execute(Sender: TObject);
begin
   //
    if not assigned(frm_ch_invoice_bankdata) then
      frm_ch_invoice_bankdata:=Tfrm_ch_invoice_bankdata.Create (self);
      frm_ch_invoice_bankdata.ManualDock(frm_main.SearchTabs('frm_ch_invoice_bankdata',frm_ch_invoice_bankdata.caption,'447'),nil,alClient);
      frm_ch_invoice_bankdata.show;
end;

procedure Tfrm_tree_main.initialTaskType();
var
  tmpnode,personNode,pubNode,finishNode:  TTreeNode;
  strtype:string;
  typelist:TStringList;
begin
  qry2TaskType.Active:=False;
  qry2TaskType.Active:=True;
   tv1.Items[0].DeleteChildren();
   tv1.Items[1].DeleteChildren();
   tv1.Items[2].DeleteChildren();
   personNode:= tv1.Items[0];
   pubNode:=  tv1.Items[1];
   finishNode:=  tv1.Items[2];
   typelist:=TStringList.Create;

    if(qry2TaskType.IsEmpty)  then
    Exit;
    with qry2TaskType do
    begin
      qry2TaskType.First;
      while not Eof do begin
         strtype:= fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
          if(  FieldByName('<27>Ƿ񹫹<C7B7>').AsBoolean=False) then
          begin
            tmpnode:=  tv1.Items.AddChildObject(personNode,strtype,nil);
            tmpnode.SelectedIndex:=1;
            tmpnode.ImageIndex:=0;
          end
          else
          begin
            tmpnode:=  tv1.Items.AddChildObject(pubNode,strtype,nil);
            tmpnode.SelectedIndex:=1;
            tmpnode.ImageIndex:=0;
          end;
          //<2F>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӽڵ<D3BD>
          if(typelist.IndexOf(strtype)<0)   then
          begin
            typelist.Add(strtype);
           tv1.Items.AddChildObject(finishNode,strtype,nil);
          end;


          Next;
      end;
    end;

end;

 procedure Tfrm_tree_main.bindtaskdata();
 var
   sql,sqlwhere,strtj1,strtj2,strtj3_qx:string;
   selNode:TTreeNode;
 begin
     sql:='select t.*,s.ί<>е<EFBFBD>λ,s.<2E>Ƿ<EFBFBD><C7B7><EFBFBD>ǩ,s.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,s.ί<>б<EFBFBD><D0B1><EFBFBD>,s.ǩ<><C7A9><EFBFBD><EFBFBD>ʽ   from [t_op_task] t left join t_op_seae s on t.SEA<45><41><EFBFBD><EFBFBD>=s.<2E><><EFBFBD><EFBFBD>  ';
     strtj1:='';
     strtj2:='';
     if( employee='DEMO-SA')then
     begin
       dxdbgrdclmndxdbgrd1Column6.Visible:=True;
      strtj3_qx:='' ;
      end 
     else
     strtj3_qx:=' and (t.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա is null or CHARINDEX('''+employee +''',t.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա)>0  ) ';
      if RxDBLookupCombo57.Text<>'<<3C><>>' then
      strtj1:= format(' and s.ί<>е<EFBFBD>λ=''%s'' ',[RxDBLookupCombo57.DisplayValues[1]]);
      if trim(Editedwtdw.Text)<>'' then
         strtj2:=  ' and t.<2E>ᵥ<EFBFBD><E1B5A5> like ''%'+trim(Editedwtdw.Text)+'%''';
      if(tv1.SelectionCount>0) then
      begin
        selNode:= tv1.Selected;
        dxdbgrdtclmndxdbgrd1_taskColumn11.Visible:=False;
        if(selNode.Level=0) then
          begin
               if(selNode.Text='<27><><EFBFBD><EFBFBD>') then
                 begin
                    sqlwhere:= ' where t.<2E>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=0 and t.<2E>Ƿ񹫹<C7B7>=0 ' +strtj1+strtj2 +strtj3_qx ;
                    if(wdbdtmpckr1.Text<>'') then
                     sqlwhere:= sqlwhere+ ' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼʱ<CABC><CAB1>>=''' + wdbdtmpckr1.text+''' ';
                      if(wdbdtmpckr2.Text<>'') then
                     sqlwhere:= sqlwhere+ ' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼʱ<CABC><CAB1>-1<=''' + wdbdtmpckr2.text+''' ';
                 end

               else if(selNode.Text='<27><><EFBFBD><EFBFBD>')           then
                 begin
                   sqlwhere:= ' where t.<2E>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=0 and  t.<2E>Ƿ񹫹<C7B7>=1'  +strtj2  +strtj3_qx;
                    if(wdbdtmpckr1.Text<>'') then
                     sqlwhere:= sqlwhere+ ' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼʱ<CABC><CAB1>>=''' + wdbdtmpckr1.text+''' ';
                      if(wdbdtmpckr2.Text<>'') then
                     sqlwhere:= sqlwhere+ ' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼʱ<CABC><CAB1>-1<=''' + wdbdtmpckr2.text+''' ';
                 end
               else
               begin
                      //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼʱ<CABC><CAB1>
                       sqlwhere:= ' where t.<2E>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=1'+strtj1+strtj2+strtj3_qx;
                         if(wdbdtmpckr1_finish.Text<>'') then
                     sqlwhere:= sqlwhere+ ' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼʱ<CABC><CAB1>>=''' + wdbdtmpckr1.text+''' ';
                      if(wdbdtmpckr2_finish.Text<>'') then
                     sqlwhere:= sqlwhere+ ' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼʱ<CABC><CAB1>-1<=''' + wdbdtmpckr2.text+''' ';
                       dxdbgrdtclmndxdbgrd1_taskColumn11.Visible:=true;
               end;
                 //dxdbgrd1_task..OptionsView.
           end
           else
         begin
             if(selNode.Parent.Text='<27><><EFBFBD><EFBFBD>') then
               sqlwhere:= ' where t.<2E>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=0 and t.<2E>Ƿ񹫹<C7B7>=0 and t.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''' +selNode.Text +''''  +strtj1+strtj2+strtj3_qx
             else if(selNode.Parent.Text='<27><><EFBFBD><EFBFBD>') then
               sqlwhere:= ' where t.<2E>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=0 and t.<2E>Ƿ񹫹<C7B7>=1 and t.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''' +selNode.Text +'''' +strtj2 +strtj3_qx
             else
             begin
                sqlwhere:= ' where t.<2E>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=1  and t.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''' +selNode.Text +'''' +strtj1+strtj2 + strtj3_qx ;
             end;
             //<2F>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
             if(wdbdtmpckr1.Text<>'') then
                    sqlwhere:= sqlwhere+ ' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼʱ<CABC><CAB1>>=''' + wdbdtmpckr1.text+''' ';
             if(wdbdtmpckr2.Text<>'') then
               sqlwhere:= sqlwhere+ ' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼʱ<CABC><CAB1>-1<=''' + wdbdtmpckr2.text+''' ';
         end;
       end;
     qry1task.Active:=False;
     qry1task.SQL.Clear();
     qry1task.SQL.Add(sql+sqlwhere) ;
     qry1task.Active:=True;
       dxdbgrd1_task.FullExpand();
   end;


procedure Tfrm_tree_main.btnRereshTaskClick(Sender: TObject);
begin
    initialTaskType();
    bindtaskdata();

end;

procedure Tfrm_tree_main.dxdbgrd2CustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
       if ANode.HasChildren then
    Exit;
 { if not ASelected and (AColumn = dxDBGrid2PaymentAmount) then
  begin
    Value := ANode.Values[AColumn.Index];
    if not VarIsNull(Value) then
    begin
      if Value < 200 then
        AColor := clLime
      else
        if Value < 300 then
          AColor := clYellow
        else
        begin // > 300
          AColor := clRed;
          AFont.Color := clWhite;
        end;
     end;
     }
end;

procedure Tfrm_tree_main.tv1Changing(Sender: TObject; Node: TTreeNode;
  var AllowChange: Boolean);
  var
  zbMenuVisible,vcvisible,swVisible,vgmMenuVisible:Boolean; //<2F><><EFBFBD><EFBFBD> <20>˵<EFBFBD><CBB5>Ƿ<EFBFBD><C7B7>ɼ<EFBFBD>
begin
     //Node.DisplayRect(True);
    // Node.ImageIndex:=0 ;
    //<2F><><EFBFBD>·<EFBFBD><C2B7>䰴ť״̬
    mniN4_tskAss_subRematch.enabled:=false;
    if ((Node.Level=0) and( Node.Text='<27><><EFBFBD><EFBFBD>')) or((Node.Level=1) and( Node.Parent.Text='<27><><EFBFBD><EFBFBD>'))   then
    btn4_ReAssignTask.Enabled:=true
    else
    btn4_ReAssignTask.Enabled:=False;
     btn6_Invoic.Enabled:=false;//
    zbMenuVisible:=true;
    vcvisible:=true;
    swVisible:=true;
     btn1ZB.Enabled:=true;
     btn2VC.Enabled:=True;
     ToolButton17.Enabled:=True;
     btn3SW.Enabled:=True;
     btn6_Invoic.Enabled:=True;
     btn7_BCBABCL.Enabled :=True;
     btn1VGM.Enabled:=TRUE;
     ToolButton16.Enabled:=true;
     //
       mni5_OK.Visible:=True;
      mni5_PENDING.Visible:=True;
      mni5_CANCEL.Visible:=True;
    //<2F><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>
    if ((Node.Level=0) and ( Node.Text='<27>Ѵ<EFBFBD><D1B4><EFBFBD>'))    THEN
    begin
     zbMenuVisible:=false;
     vcvisible:=false;
     swVisible:=false;
     btn6_Invoic.Enabled:=false;
      btn1ZB.Enabled:=false;
      btn5AlertOk.Enabled:=False;
      btn4_ReAssignTask.Enabled:=False;
     btn1VGM.Enabled:=false;
         ToolButton17.Enabled:=false;
      wdbdtmpckr1.Visible:=false;
      wdbdtmpckr2.Visible:=false;
      wdbdtmpckr1_finish.Visible:=true;
      wdbdtmpckr2_finish.Visible:=true;
      //
      mni5_OK.Visible:=false;
      mni5_PENDING.Visible:=false;
      mni5_CANCEL.Visible:=false;
       ToolButton16.Enabled:=false;

    end
    else if(Node.Level=1) THEN
    begin
       if (Node.Parent.Text='<27>Ѵ<EFBFBD><D1B4><EFBFBD>') then
       begin
         btn1ZB.Enabled:=false;
         btn2VC.Enabled:=false;
         btn3SW.Enabled:=false;
         btn5AlertOk.Enabled:=false;
         btn6_Invoic.Enabled:=false;
         btn7_BCBABCL.Enabled :=false;
         btn4_ReAssignTask.Enabled:=False;
         btn1VGM.Enabled:=false;
          zbMenuVisible:=false;
          vcvisible:=false;
          swVisible:=false;
          vgmMenuVisible:=false;
        ToolButton16.Enabled:=false;
              ToolButton17.Enabled:=false;
          wdbdtmpckr1.Visible:=false;
          wdbdtmpckr2.Visible:=false;
          wdbdtmpckr1_finish.Visible:=true;
          wdbdtmpckr2_finish.Visible:=true;
          //
          mni5_OK.Visible:=false;
          mni5_PENDING.Visible:=false;
          mni5_CANCEL.Visible:=false;
        if( Node.Text='ORIGINAL' ) then
            // btn1ZB.Enabled:=True
           else if( Node.Text='VC' ) then
              btn2VC.Enabled:=true
           else if( Node.Text='<27><><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>' ) then
              ToolButton17.Enabled:=true
            else if( Node.Text='SEAWAY' ) then
           btn3SW.Enabled:=true
            else if( Node.Text='VGM' ) then
           btn1VGM.Enabled:=true
          else  if( Node.Text='Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' ) then
            //btn5AlertOk.Enabled:=true
          else if ( Node.Text='INVOIC' ) then
             //btn6_Invoic.E;//nabled :=True
          else if(pos(node.Text,'BC/BA')>0) then
          begin
              btn7_BCBABCL.Enabled :=True;
              if(node.Text<>'BCL') THEN
              mniN4_tskAss_subRematch.enabled:=true;
          end;

       end
       else
      //<---------------
      begin
       btn1ZB.Enabled:=false;
       btn2VC.Enabled:=false;
       ToolButton17.Enabled:=false;
       btn3SW.Enabled:=false;
       btn5AlertOk.Enabled:=false;
       btn6_Invoic.Enabled:=false;
        btn7_BCBABCL.Enabled :=False;
                 btn1VGM.Enabled:=false;
       if( Node.Text='ORIGINAL' ) then
          btn1ZB.Enabled:=True
       else if( Node.Text='VC' ) then
         btn2VC.Enabled:=true
           else if( Node.Text='<27><><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>' ) then
              ToolButton17.Enabled:=true
        else if( Node.Text='VGM' ) then
           btn1VGM.Enabled:=true
        else if( Node.Text='SEAWAY' ) then
       btn3SW.Enabled:=true
      else  if( Node.Text='Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' ) then
        btn5AlertOk.Enabled:=true
      else if ( Node.Text='INVOIC' ) then
         btn6_Invoic.Enabled :=True
      else if(pos(node.Text,'BC/BA/BCL')>0) then
       btn7_BCBABCL.Enabled :=True;
     if(pos(node.Text,'ORIGINAL/SEAWAY/VCL')>0) then
       begin
         mniN4_tskAss_subRematch.enabled:=true;
       end;
         ToolButton16.Enabled:=true;

      //
      wdbdtmpckr1.Visible:=true;
      wdbdtmpckr2.Visible:=true;
      wdbdtmpckr1_finish.Visible:=false;
      wdbdtmpckr2_finish.Visible:=false;
       //------------------------->
      end;
    end
    else begin
       btn5AlertOk.Enabled:=true;
       //
      wdbdtmpckr1.Visible:=true;
      wdbdtmpckr2.Visible:=true;
      wdbdtmpckr1_finish.Visible:=false;
      wdbdtmpckr2_finish.Visible:=false;

    end;

     mni_tskor_N1Ok.Visible:=zbMenuVisible;
     mni_tskor_N2Finish.Visible:=zbMenuVisible;
     mni_tskor_N3Cancel.Visible:=zbMenuVisible;
     // vc
     mni_tskN2OkFinish.Visible:=vcvisible;
     mni_tskN2Cancel.Visible :=vcvisible;
     //sw
     mni3_swFinish.Visible:=swVisible;
     mni3_swPENDING.Visible:=swVisible;
     mni3_swCancel.Visible:=swVisible;                         //
     //
     mni4_OK.Visible:=swVisible;
     mni4_PENDING.Visible:=swVisible;
     mni4_CANCEL.Visible:=swVisible;

     MenuItem3.Visible:=vgmMenuVisible;
     MenuItem8.Visible:=zbMenuVisible;

end;

procedure Tfrm_tree_main.rzgrp1_PersonItems0Click(Sender: TObject);
begin
    //
end;



procedure Tfrm_tree_main.tv1Change(Sender: TObject; Node: TTreeNode);
begin
  if  bliNitialOk then
  bindtaskdata();
end;

procedure Tfrm_tree_main.dxdbgrd1_taskDblClick(Sender: TObject);
var
 //frmcontrast:TfrmOpSeae_TaskContrast;
 bsno,pdffilename,ftype:string;
begin
    //TfrmOpSeae_TaskContrast
    if(qry1task.RecordCount<1) then
    Exit;
    ftype:= qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
    bsno:= qry1task.FieldByName('SEA<45><41><EFBFBD><EFBFBD>').AsString;
    if (ftype='ΣƷ<CEA3><C6B7>д') then begin


      //    //<2F><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    if not assigned(frm_op_seae_web_dg_import) then
       frm_op_seae_web_dg_import:=Tfrm_op_seae_web_dg_import.Create (self);

    frm_op_seae_web_dg_import.InitialData(qry1task,bsno);
    frm_op_seae_web_dg_import.Caption:=ftype+'ȷ<>ϴ<EFBFBD><CFB4><EFBFBD>';
    try
       frm_op_seae_web_dg_import.ShowModal();
    finally
      frm_op_seae_web_dg_import.Hide;
  end;

    end else if (ftype='<27><><EFBFBD>϶<EFBFBD><CFB6>տͻ<D5BF><CDBB><EFBFBD><EFBFBD><EFBFBD>') then begin


      //    //<2F><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    if not assigned(frm_op_web_cust_audit) then
       frm_op_web_cust_audit:=Tfrm_op_web_cust_audit.Create (self);

    frm_op_web_cust_audit.InitialData(qry1task,bsno);
    frm_op_web_cust_audit.Caption:=ftype+'ȷ<>ϴ<EFBFBD><CFB4><EFBFBD>';
    try
       frm_op_web_cust_audit.ShowModal();
    finally
      frm_op_web_cust_audit.Hide;
  end;

    end else if (ftype='<27><><EFBFBD>϶<EFBFBD><CFB6><EFBFBD>') then begin


      //    //<2F><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    if not assigned(frm_op_seae_web_order_edit) then
       frm_op_seae_web_order_edit:=Tfrm_op_seae_web_order_edit.Create (self);

    frm_op_seae_web_order_edit.InitialData(qry1task,bsno);
    frm_op_seae_web_order_edit.Caption:=ftype+'ȷ<>ϴ<EFBFBD><CFB4><EFBFBD>';
    try
       frm_op_seae_web_order_edit.ShowModal();
    finally
      frm_op_seae_web_order_edit.Hide;
  end;
   end else if (ftype='<27><><EFBFBD>Ͻص<CFBD>') then begin


      //    //<2F><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    if not assigned(frm_op_seae_web_si_edit) then
       frm_op_seae_web_si_edit:=Tfrm_op_seae_web_si_edit.Create (self);

    frm_op_seae_web_si_edit.InitialData(qry1task,bsno);
    frm_op_seae_web_si_edit.Caption:=ftype+'ȷ<>ϴ<EFBFBD><CFB4><EFBFBD>';
    try
       frm_op_seae_web_si_edit.ShowModal();
    finally
      frm_op_seae_web_si_edit.Hide;
  end;

    end else if (ftype='EDI<44><49><EFBFBD><EFBFBD>') or (ftype='EDI<44><49><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD>') or (ftype='EDI<44><49><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') then begin


      //    //<2F><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    if not assigned(frm_op_seae_order_edit) then
       frm_op_seae_order_edit:=Tfrm_op_seae_order_edit.Create (self);

    frm_op_seae_order_edit.InitialData(qry1task,bsno);
    frm_op_seae_order_edit.Caption:=ftype+'ȷ<>ϴ<EFBFBD><CFB4><EFBFBD>';
    try
       frm_op_seae_order_edit.ShowModal();
    finally
      frm_op_seae_order_edit.Hide;
  end;
    end else if (ftype='MSC BC') or (ftype='MSC BCL') or (ftype='MSC SI')  or (ftype='MSC VGM') or (ftype='MSC Pending') then begin


      //    //<2F><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    if not assigned(frmOpSeae_mscbc) then
       frmOpSeae_mscbc:=TfrmOpSeae_mscbc.Create (self);
    pdffilename:=qry1task.FieldByName('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').AsString;
    frmOpSeae_mscbc.InitialData(qry1task,bsno,pdffilename);
    frmOpSeae_mscbc.Caption:=ftype+'ȷ<>ϴ<EFBFBD><CFB4><EFBFBD>';
    try
       frmOpSeae_mscbc.ShowModal();
    finally
      frmOpSeae_mscbc.Hide;
  end;
   end else if (ftype='<27><><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>')  then begin

       pdffilename:=qry1task.FieldByName('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').AsString;
      //    //<2F><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    if not assigned(frmOpSeae_ysbg) then
       frmOpSeae_ysbg:=TfrmOpSeae_ysbg.Create (self);

    frmOpSeae_ysbg.InitialData(qry1task,bsno,pdffilename);
    frmOpSeae_ysbg.Caption:=ftype+'ȷ<>ϴ<EFBFBD><CFB4><EFBFBD>';
    try
       frmOpSeae_ysbg.ShowModal();
    finally
      frmOpSeae_ysbg.Hide;
  end;

    end else begin

    ConnectDownServer();
    pdffilename:=qry1task.FieldByName('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').AsString;

      //    //<2F><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    if not assigned(frmOpSeae_TaskContrast) then
       frmOpSeae_TaskContrast:=TfrmOpSeae_TaskContrast.Create (self);

    frmOpSeae_TaskContrast.InitialData(qry1task,bsno,pdffilename);
    frmOpSeae_TaskContrast.Caption:=ftype+'<27><><EFBFBD>մ<EFBFBD><D5B4><EFBFBD>';
    try
       frmOpSeae_TaskContrast.ShowModal();
    finally
      frmOpSeae_TaskContrast.Hide;
  end;
  end;


end;
/// <summary>
/// <20>ҵ<EFBFBD>
/// </summary>
function Tfrm_tree_main.Guadan(mainNo,bsno,filetype,filename_src:string):boolean;
begin
    Result:= Guadan_2(mainNo,bsno,filetype,filename_src,false,'');
end;
/// <summary>
/// <20>ҵ<EFBFBD>
/// </summary>
/// <param name="isFenDan"><3E>Ƿ<EFBFBD><C7B7>ֵ<EFBFBD></param>
function Tfrm_tree_main.Guadan_2(mainNo,bsno,filetype,filename_src:string;isFendan:Boolean;subNo:string):boolean;
  var
  FileStream:TFileStream;
  fsize:double;
  numunzipped:integer;
  qry_op_file:TAdoquery;
  fid:Integer;
  naspath:string;
  filename:string;//<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
  fendan_mid:string;
begin
  try
    Result:=True;
    naspath:=get_parameters_value(175,'\\223.223.95.160\data');
    qry_op_file:=CreateADoQuery();
    with qry_op_file do
    begin
        close(); SQL.Clear;
      SQL.Add( format('select * from [t_op_file] where <20><><EFBFBD><EFBFBD>=''%s''',[bsno]));
      open;
    end;
    if qry_op_file.RecordCount<=0 then
    begin
      qry_op_file.Append;
      qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27><><EFBFBD><EFBFBD>';
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
      qry_op_file.Post;

      qry_op_file.Append;
       qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27><><EFBFBD><EFBFBD>֪ͨ';
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
      qry_op_file.Post;

      qry_op_file.Append;
       qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27>ᵥOK<4F><4B>';
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
      qry_op_file.Post;

      qry_op_file.Append;
       qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>';
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
      qry_op_file.Post;

      qry_op_file.Append;
       qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>';
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
      qry_op_file.Post;


      qry_op_file.Append;
       qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27>ᵥȷ<E1B5A5><C8B7>';
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
      qry_op_file.Post;

      qry_op_file.Append;
       qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27>յ<EFBFBD>';
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
      qry_op_file.Post;

      qry_op_file.Append;
       qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
      qry_op_file.Post;

      qry_op_file.Append;
       qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27>ᵥCOPY';
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
      qry_op_file.Post;

      qry_op_file.Append;
       qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27><><EFBFBD><EFBFBD>˾<EFBFBD>˵<EFBFBD>';
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
      qry_op_file.Post;

      qry_op_file.Append;
       qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27><><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD>ػ<EFBFBD>ִ<EFBFBD><D6B4>';
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
      qry_op_file.Post;

      qry_op_file.Append;
       qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27><><EFBFBD><EFBFBD>';
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
        qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:='<27><><EFBFBD><EFBFBD>˾<EFBFBD>ҵ<EFBFBD>';
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
      qry_op_file.Post;
      //ˢ<><CBA2>ȡ<EFBFBD><C8A1>FID
      qry_op_file.Requery();


    end;
        //qry_op_file.Close;
      //qry_op_file.SQL.Clear;
      //qry_op_file.SQL.Add(format('select * from [t_op_file] where <20><><EFBFBD><EFBFBD>=''%s'' and <20>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>=''%s'' ',bsno,filetype));
     if not ( qry_op_file.Locate('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>',filetype,[]) ) then
     begin
      qry_op_file.Append;
      qry_op_file.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString:=filetype;
      qry_op_file.FieldByName('<27><>ע').AsString:='<27><>';
      qry_op_file.Post;
     end;
    qry_op_file.Requery();
     if not ( qry_op_file.Locate('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>',filetype,[]))  then
     begin
          Application.MessageBox(pchar('<27>Բ<EFBFBD><D4B2><EFBFBD>,<2C>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD><EFBFBD>Χ:'+filetype),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONINFORMATION);
          Result :=false;
          Exit;
     end;

    //<2F><>֤Ȩ<D6A4><C8A8> 448   ,<2C>ᵥǩ<E1B5A5><C7A9>+<2B>ᵥǩ<E1B5A5><C7A9>  cjb 2017-08-04
     {
     if  (trim(t_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>') and (if_open('448')=False) then
      begin
         //<2F><>֤Ȩ<D6A4><C8A8> 448
         Application.MessageBox('<27>Բ<EFBFBD><D4B2><EFBFBD>,<2C><>û<EFBFBD><C3BB><EFBFBD>ϴ<EFBFBD><CFB4>ᵥ<EFBFBD><E1B5A5><EFBFBD>׵<EFBFBD>Ȩ<EFBFBD><C8A8>,<2C><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>','<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONINFORMATION);
         Exit;
      end;
      }
  //<2F>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD>
           //<2F>ж<EFBFBD><D0B6>ļ<EFBFBD>·<EFBFBD><C2B7>,<2C><><EFBFBD><EFBFBD><EFBFBD>ǹ<EFBFBD><C7B9><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD>
           if(pos(':',filename_src)<1) or (pos('\\',filename_src)>0)  then
           begin
                 ConnectDownServer();
           end ;

      if  FileExists(filename_src) then
      begin
        //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱĿ¼
          if(isfendan) then
           fendan_mid:=format('_<>ֵ<EFBFBD>_%s',[subNo]);
           filename:= GetWinTempPath()+ mainNo +fendan_mid+'_'+FormatDateTime('MMDDhhmmss',Now)+'.pdf'; // ExtractFileName(filename_src);
           if(FileExists(filename)) then
           DeleteFile(filename);
          //<2F><><EFBFBD><EFBFBD>·<EFBFBD><C2B7>ֱ<EFBFBD>ӿ<EFBFBD><D3BF><EFBFBD>
          CopyFile(pChar(filename_src),pChar(filename),false);


        //
        FileStream:=TFileStream.Create(filename,fmopenRead);     //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
        try
          fsize:=FileStream.size;
        finally
          freeandnil(FileStream);
        end;

        begin
           fid      :=      qry_op_file.fieldbyname('FID').AsInteger;
          try
            UpLoadProFile(filename,naspath,'user','user',mainNo,bsno,fid,filetype);
            updateGuadanFilecount(fid,bsno);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
            if  trim(qry_op_file.FieldByName('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>' then
            begin

              InsertSeaeStatus(bsno,'<27>ᵥǩ<E1B5A5><C7A9>',employee,FormatDateTime('YYYY-MM-DD hh:mm:ss',Now));
               //   <20>̽<EFBFBD><CCBD><EFBFBD> 2017-08-04
              InsertSeaeStatus(bsno,'<27>ᵥǩ<E1B5A5><C7A9>',employee,FormatDateTime('YYYY-MM-DD hh:mm:ss',Now));
              // <20>ᵥȡ<E1B5A5><C8A1>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ٴ<EFBFBD><D9B4>ᵥǩ<E1B5A5>룬ҵ<EBA3AC><D2B5><EFBFBD><EFBFBD>op_seae<61><65><EFBFBD>ᵥǩ<E1B5A5><C7A9>״̬Ϊ<CCAC><CEAA>:ȥ<><C8A5> '֪ͨ<CDA8>ŵ<EFBFBD>' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>̽<EFBFBD><CCBD><EFBFBD> 2017-09-21
               ////if (not GetStatus_notice(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,))
                //// and (not GetStatus_notice(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27>ᵥǩ<E1B5A5><C7A9>')) //<2F><>ǩ<EFBFBD><C7A9>
                 ////and
              if    (not GetStatus_notice(bsno,'<27>ᵥǩ<E1B5A5><C7A9>'))
                 and (not GetStatus_notice(bsno,'<27>ᵥǩ<E1B5A5><C7A9>'))
              then
              begin
                 //   <20>̽<EFBFBD><CCBD><EFBFBD> 2017-08-04
                //UpdateMblStatus(t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString,'<27>ᵥǩ<E1B5A5><C7A9>');
                //д<><D0B4><EFBFBD>ᵥǩ<E1B5A5><C7A9>(<28>ᵥǩ<E1B5A5>ػᱻ<D8BB><E1B1BB><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>ᵥǩ<E1B5A5><C7A9>״̬д<CCAC><D0B4>ί<EFBFBD>е<EFBFBD><D0B5>Ķ<EFBFBD><C4B6><EFBFBD>ȡ<EFBFBD><C8A1>
                UpdateMblStatus(bsno,'<27>ᵥǩ<E1B5A5><C7A9>');
              end;
            end;

          finally

          end;
        end;
      end
      else
      begin
        MessageDlg('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڻ<EFBFBD><DABB>߲<EFBFBD><DFB2>ܷ<EFBFBD><DCB7>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD>95<39><35><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes],0);
        Result:=False;
        exit ;
      end;


  except on ex:exception do
    begin
       Result:=false;
        MessageDlg('<27>ϴ<EFBFBD><CFB4>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쳣:'+ex.Message ,mtWarning,[mbyes],0);
    end;
  end;


end;
/// <summary>
/// <20><><EFBFBD><EFBFBD>nass
/// </summary>
function  Tfrm_tree_main.ConnectDownServer( ):Boolean; //<2F><><EFBFBD><EFBFBD>
 var
     NetSource   :   TNetResource;
     nasspath: string;
 begin
        nasspath:=get_parameters_value(175,'\\223.223.95.160\data');


     with   NetSource   do
     begin
         dwType   :=   RESOURCETYPE_DISK;
         lpLocalName   :='';
        lpRemoteName:=PChar(nasspath); // <20>˴<EFBFBD>Ϊ\\server\dataserver
        lpProvider     :='';
     end;
   Result:=(WnetAddConnection2(NetSource, PChar('user'),Pchar('user'),CONNECT_UPDATE_PROFILE)=0); //pwd;username <20>˴<EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
 end; 
procedure DisConnectDownServer(nasspath:string); //<2F>Ͽ<EFBFBD>
 begin
 WNetCancelConnection2(Pchar(nasspath),CONNECT_UPDATE_PROFILE,True);
 end;

procedure Tfrm_tree_main.UpLoadProFile(fname,RemotePathName,Users,pw,mblNo,bsno:string;fid:integer;filetype:string);
var path,newpath:string;
  NetSource :TNetResource;
  filePath,filepath_pre,filename,fileExt:string;

begin
  //<2F>ϴ<EFBFBD><CFB4>ļ<EFBFBD>
  if not ASSIGNED(frm_sys_progress) then
    frm_sys_progress:=tfrm_sys_progress.Create(self);
  frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ򡣡<C8BA><F2A1A3A1><EFBFBD>';
  frm_sys_progress.Show;
  frm_sys_progress.Update;
  filename:=ExtractFileName(fname) ;
  fileExt:=ExtractFileExt(filename) ;

  with   NetSource   do
  begin
    dwType   :=   RESOURCETYPE_ANY;
    lpLocalName   :='';                                                           //   <20><>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>Դӳ<D4B4>䵽<EFBFBD><E4B5BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    lpRemoteName:=pChar(RemotePathName);                 //   Զ<><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Դ
    lpProvider     :='';
  end;

  WnetAddConnection2(NetSource, pChar(Users),pChar(pw),CONNECT_UPDATE_PROFILE);



  filePath:=FormatDateTime('YYYYMM',DatabaseDateTime);

  if not DirectoryExists(RemotePathName+'\'+filePath) then
        MkDir(RemotePathName+'\'+filePath);

  if not DirectoryExists(RemotePathName+'\'+filePath+'\'+mblNo) then
        MkDir(RemotePathName+'\'+filePath+'\'+mblNo);
  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
   filepath_pre:=RemotePathName+'\'+filePath+'\'+trim(mblNo)+'\'+ filetype;
   if not DirectoryExists(filepath_pre) then
        MkDir(filepath_pre);
  newpath:=filepath_pre+'\'+filename;
  if  CopyFile(pChar(fname),pChar(newpath),false) then
   else ;


  try
  finally
    WNetCancelConnection2(pChar(RemotePathName),CONNECT_UPDATE_PROFILE,True);
  end;
  with qry_op_file_items do
  begin
    Close;SQL.Clear;
    sql.Add('select * from t_op_file_items');
    sql.Add('where PID=:PID and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
    Parameters.ParamByName('PID').Value:=fid;
    Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsno;
    Open;
    try
      append;
      FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=newpath;
      FieldByName('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD>').AsDateTime:=now();
      FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring:=employee;
      FieldByName('<27><><EFBFBD><EFBFBD>').Asstring:=fileExt;
      FieldByName('<27>ļ<EFBFBD><C4BC>洢').AsBoolean:=true;
      FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=bsno;
      FieldByName('pid').AsInteger:=fid;
      Post;
     // Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!','<27><>ʾ',MB_OK+MB_IconInformation);
    finally
      frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
      frm_sys_progress.close;
      frm_sys_progress:=nil;
    end;
  end;
end;
procedure Tfrm_tree_main.updateGuadanFilecount(fid:integer;bsno:string);

var
  t_op_file_items_pl : TAdoQuery;
  t_op_file_items_Update:TAdoQuery;
  cnt:integer;
begin

  t_op_file_items_pl:=CreateAdoQuery_file;
  t_op_file_items_Update:=CreateAdoQuery;
  with t_op_file_items_pl do
  try
    Close;SQL.Clear;
    sql.Add('select fid from t_op_file_items');
    sql.Add('where PID=:PID and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
    Parameters.ParamByName('PID').Value:=fid;
    Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsno;
    Open;
    cnt:=Recordcount;

    with t_op_file_items_Update do
    begin
      Close;SQL.Clear;
      sql.Add('Update t_op_file set <20><>С=:c');
      sql.Add('where FID=:FID');
      Parameters.ParamByName('FID').Value:=fid;
      Parameters.ParamByName('c').Value:=cnt;
      Execsql;
    end;
  finally
    Free;
    t_op_file_items_Update.Free;
  end;
end;

 

procedure Tfrm_tree_main.EditedwtdwKeyPress(Sender: TObject;
  var Key: Char);
begin
  IF key=#13 then
  begin
    key:=#0;
    bindtaskdata();
  end;
end;

procedure Tfrm_tree_main.btn4_ReAssignTaskClick(Sender: TObject);
var
   taskType,taskTypeWhere,strinfo:  string;
   sqlSelfTaskcount:string;//<2F><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
   sql,sqlUpdate:string;
   qrytmp,qryexc:TADOQuery;
   i,nselfcount:integer;
begin
   //

  if(   tv1.Selected=nil) then
  exit;

     taskType:=tv1.Selected.Text;
  if(tv1.Selected.Level=0 )            then
     taskTypeWhere :=''
  else
     taskTypeWhere := '  and t.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''' + taskType  +''' ' ;
    //
    sqlSelfTaskcount:='select  count(tsk.pl_id) as ncount  from '
 +' (select t.pl_id,t.<2E>ᵥ<EFBFBD><E1B5A5>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_task t where t.<2E>Ƿ񹫹<C7B7>=1 ' + taskTypeWhere + ' and t.<2E>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=0)tsk join '
 +' (select <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,<2C>ͷ<EFBFBD>Ա,<2C><><EFBFBD><EFBFBD>Ա,<2C><><EFBFBD><EFBFBD> from   t_op_seae where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><>ͨ<EFBFBD><CDA8>'' )  s '
 +' on  tsk.<2E>ᵥ<EFBFBD><E1B5A5>=s.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> and <20>ͷ<EFBFBD>Ա='''+ employee +'''';

    //
    sql:='select tsk.pl_id,tsk.<2E>ᵥ<EFBFBD><E1B5A5>,s.<2E>ͷ<EFBFBD>Ա,s.<2E><><EFBFBD><EFBFBD> from  ( '
    +' select t.pl_id,t.<2E>ᵥ<EFBFBD><E1B5A5> from t_op_task t where t.<2E>Ƿ񹫹<C7B7>=1 ' + taskTypeWhere+ 'and t.<2E>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=0)tsk join  '
    +' (select <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,<2C>ͷ<EFBFBD>Ա,<2C><><EFBFBD><EFBFBD>Ա,<2C><><EFBFBD><EFBFBD> from   t_op_seae where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><>ͨ<EFBFBD><CDA8>'' )  s  '
    +'on  tsk.<2E>ᵥ<EFBFBD><E1B5A5>=s.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> ';
    sqlUpdate:='update t_op_task set <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա= v.<2E>ͷ<EFBFBD>Ա,sea<65><61><EFBFBD><EFBFBD>=v.<2E><><EFBFBD><EFBFBD>,'
    +'<27>Ƿ񹫹<C7B7>=0 ,<2C><>ע= isnull(<28><>ע,'''')+''(<28><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)''  from  ( '
    + sql
    + ') v where t_op_task.pl_id = v.pl_id';
  //<2F><><EFBFBD>ô<EFBFBD><C3B4><EFBFBD>
  qrytmp:=CreateAdoQuery();
  nselfcount:=0;
  with qrytmp do
  begin
    close;sql.Clear;
    sql.Add(sqlSelfTaskcount);
    Open;
    if(not IsEmpty) then
    begin
      First;
      nselfcount:= fieldbyname('ncount').AsInteger;

    end;
    Close;

  end;

 try

    with qrytmp do
    begin
      close;sql.Clear;
      sql.Add(sqlUpdate);
      i:=ExecSQL(); 
       Application.MessageBox(PChar(format('<27><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>%d<><64><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD><EFBFBD>%d<><64><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',[i,nselfcount])) ,'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_ICONINFORMATION);

    end;
  except
   on ex: Exception do
   begin
     //
     ShowMessage('<27><><EFBFBD>·<EFBFBD><C2B7>䷢<EFBFBD><E4B7A2><EFBFBD>쳣:'+ex.message);
   end;
   end;


end;

procedure Tfrm_tree_main.mni_tskor_N2FinishClick(Sender: TObject);
var
  optype:string;
  isok:Boolean;
  sql,strtmp:string;
  mainno,bsno,filename,filetype,Ofiletype:string;
  i:Integer;
begin
    if(qry1task.RecordCount<1) then
    Exit;
    if (TMenuItem(Sender).Tag=1) then Ofiletype:='ORIGINAL'
    else if (TMenuItem(Sender).Tag=2) then Ofiletype:='VC'
    else if (TMenuItem(Sender).Tag=3) then Ofiletype:='SEAWAY'
    else if (TMenuItem(Sender).Tag=11) then Ofiletype:='VGM'
    else if (TMenuItem(Sender).Tag=4) then
    begin
         Ofiletype:='INVOIC';
         //<2F><><EFBFBD><EFBFBD> frm
         if(not assigned( frmCh_fee_edi)) then
         begin
           frmCh_fee_edi:= TfrmCh_fee_edi.create(nil);
         end;
         frmCh_fee_edi.Hide;

    end
    else   if(TMenuItem(Sender).Tag=5) then
    begin
        //
      if(tv1.SelectionCount>0) then
      begin
         if(tv1.Selected.Level=0) then
         begin
           Ofiletype:='BC/BA/BCL';
         end
         else
         begin
            Ofiletype:= tv1.Selected.Text;
         end;
      end;

    end;


   if(  Application.MessageBox(PChar('<27><>ȷʵҪȷ<D2AA>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>'+Ofiletype+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?'),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_YESNO+ MB_ICONQUESTION)<>IDYES) then
  Exit;


    if (Ofiletype='') then exit;


      for i:=0 to dxdbgrd1_task.SelectedCount-1 do
      begin
        qry1task.GotoBookmark(pointer(dxdbgrd1_task.selectedrows[i]));
        strtmp:=qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
       if ((Ofiletype=strtmp) or (  (Ofiletype='BC/BA/BCL') and (Pos(strtmp,Ofiletype)>0)    )) then
       begin
          optype:='<27><><EFBFBD><EFBFBD>';
          isok:=true;
          try
            qry1task.Connection.BeginTrans;
        //<2F>ҵ<EFBFBD>
            mainno:=qry1task.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').AsString;
            bsno:=qry1task.fieldbyname('SEA<45><41><EFBFBD><EFBFBD>').AsString;
            filename:=qry1task.fieldbyname('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').AsString;
            if strtmp ='ORIGINAL' then
            begin
              filetype:='<27><><EFBFBD><EFBFBD>˾<EFBFBD>ҵ<EFBFBD>';  //<2F><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>2<EFBFBD>ιҵ<CEB9>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>;<3B>ǻ<EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD>μ<EFBFBD><CEBC><EFBFBD><EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>
               if(checkGuadanTimes(qry1task.fieldbyname('<27><>ע').AsString)=False) then
                begin
                  qry1task.Connection.RollbackTrans;//
                  Continue;
                end;
              isok:=  Guadan(mainNo,bsno, filetype,filename);
             end
             else if strtmp ='VC' then
             begin
               filetype:='VC<56>ҵ<EFBFBD>';
             end
             else if(strtmp='INVOIC') then
             begin
               //  <20><><EFBFBD>õ<EFBFBD><C3B5><EFBFBD>
               frmCh_fee_edi.BindData(qry1task,false);
              isok:= frmCh_fee_edi.DoImportData();

             end
             else if  ((strtmp ='BC') or (strtmp ='BA')) then
             begin
                filetype:='<27><><EFBFBD><EFBFBD>֪ͨ';  //<2F><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>2<EFBFBD>ιҵ<CEB9>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>;<3B>ǻ<EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD>μ<EFBFBD><CEBC><EFBFBD><EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>
                isok:=  Guadan(mainNo,bsno, filetype,filename);

             end;

             if(isok=true) then
             begin
               qry1task.Edit;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
               qry1task.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=1;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:=optype;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
               qry1task.Post;
               sql:='INSERT INTO t_op_task_state ( [<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD>״̬],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>])VALUES (''%s'' ,''%s'' ,''%s'')';
               sql:=Format(sql,[qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,optype,employee] );
               qry1task.Connection.Execute(sql);
               qry1task.Connection.CommitTrans;
             end
             else
             begin
               qry1task.Connection.RollbackTrans;
             end;
         except
            on e:Exception do
            begin
              qry1task.Connection.RollbackTrans;
               Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+E.Message),'<27><>Ϣ<EFBFBD><CFA2>ʾ');
            end;
         end;
       end;
     end;
        qry1task.requery();


end;

procedure Tfrm_tree_main.mni_tskor_N3CancelClick(Sender: TObject);
var
  optype:string;
  isok:Boolean;
  sql,strtmp:string;
  mainno,bsno,filename,filetype,Ofiletype:string;
  i:Integer;
begin
    if(qry1task.RecordCount<1) then
    Exit;

    if (TMenuItem(Sender).Tag=1) then Ofiletype:='ORIGINAL' else
    if (TMenuItem(Sender).Tag=2) then Ofiletype:='VC' else
    if (TMenuItem(Sender).Tag=3) then Ofiletype:='SEAWAY' else
    if (TMenuItem(Sender).Tag=4) then Ofiletype:='INVOIC' else
    if (TMenuItem(Sender).Tag=11) then Ofiletype:='VGM' else
    if(TMenuItem(Sender).Tag=5) then
    begin
        //
      if(tv1.SelectionCount>0) then
      begin
         if(tv1.Selected.Level=0) then
         begin
           Ofiletype:='BC/BA/BCL';
         end
         else
         begin
            Ofiletype:= tv1.Selected.Text;
         end;
      end;

    end;
  if(  Application.MessageBox(PChar('<27><>ȷʵҪֱ<D2AA>ӽ<EFBFBD><D3BD><EFBFBD>ѡ<EFBFBD>е<EFBFBD>'+Ofiletype+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?'+#13#10+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD>ӹر<D3B9><D8B1><EFBFBD><EFBFBD><EFBFBD>!,<2C>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?'),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_YESNO+ MB_ICONQUESTION)<>IDYES) then
  Exit;



    if (Ofiletype='') then exit;


      for i:=0 to dxdbgrd1_task.SelectedCount-1 do
      begin
        qry1task.GotoBookmark(pointer(dxdbgrd1_task.selectedrows[i]));
        strtmp:=qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
        if ((Ofiletype=strtmp) or (  (Ofiletype='BC/BA/BCL') and (Pos(strtmp,Ofiletype)>0)    )) then
        begin
          optype:='<27><><EFBFBD><EFBFBD>';
          isok:=true;
          try
            qry1task.Connection.BeginTrans;

               qry1task.Edit;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
               qry1task.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=1;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:='<27><><EFBFBD><EFBFBD>';
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
               qry1task.Post;
               sql:='INSERT INTO t_op_task_state ( [<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD>״̬],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>])VALUES (''%s'' ,''%s'' ,''%s'')';
               sql:=Format(sql,[qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'<27><><EFBFBD><EFBFBD>',employee] );
               qry1task.Connection.Execute(sql);
               qry1task.Connection.CommitTrans;

         except
            on e:Exception do
            begin
              qry1task.Connection.RollbackTrans;
               Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+E.Message),'<27><>Ϣ<EFBFBD><CFA2>ʾ');
            end;
         end;
       end;
     end;
        qry1task.requery();

end;

procedure Tfrm_tree_main.mni_tskor_N1OkClick(Sender: TObject);
var
  optype:string;
  isok:Boolean;
  sql,strtmp:string;
  mainno,bsno,filename,filetype,Ofiletype:string;
  i:Integer;
begin
    if(qry1task.RecordCount<1) then
    Exit;

   if (TMenuItem(Sender).Tag=1) then Ofiletype:='ORIGINAL' 
   else if (TMenuItem(Sender).Tag=2) then Ofiletype:='VC'
   else if (TMenuItem(Sender).Tag=3) then Ofiletype:='SEAWAY'
   else if (TMenuItem(Sender).Tag=4) then Ofiletype:='INVOIC'  
   else if(TMenuItem(Sender).Tag=5) then
    begin
        //
      if(tv1.SelectionCount>0) then
      begin
         if(tv1.Selected.Level=0) then
         begin
           Ofiletype:='BC/BA/BCL';
         end
         else
         begin
            Ofiletype:= tv1.Selected.Text;
         end;
      end;

  if(  Application.MessageBox(PChar('<27><>ȷʵҪѡ<D2AA>е<EFBFBD>PENDING'+Ofiletype+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?'),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_YESNO+ MB_ICONQUESTION)<>IDYES) then
  Exit;



    if (Ofiletype='') then exit;


      for i:=0 to dxdbgrd1_task.SelectedCount-1 do
      begin
        qry1task.GotoBookmark(pointer(dxdbgrd1_task.selectedrows[i]));
        strtmp:=qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
        if  ((Ofiletype=strtmp) or (  (Ofiletype='BC/BA/BCL') and (Pos(strtmp,Ofiletype)>0)    )) then
          optype:='PENDING';
          isok:=true;
          try
            //qry1task.Connection.BeginTrans;

            qry1task.Edit;
            qry1task.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
            qry1task.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:=optype;
            qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
            qry1task.Post;
        //
            sql:='INSERT INTO t_op_task_state ( [<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD>״̬],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>])VALUES (''%s'' ,''%s'' ,''%s'')';
            sql:=Format(sql,[qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,optype,employee] );
            qry1task.Connection.Execute(sql);
            //qry1task.Connection.CommitTrans;

         except
            on e:Exception do
            begin
             // qry1task.Connection.RollbackTrans;
               Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+E.Message),'<27><>Ϣ<EFBFBD><CFA2>ʾ');
            end;
         end;
       end;
     end;
   qry1task.requery();
end;
  function  Tfrm_tree_main.sendmailBatch(taskqueNo:string   ):  Integer;
var
  optype:string;
  isok:Boolean;
  sql,strtmp:string;
  mainno,bsno,filename,filetype:string;

  i,j:Integer;
  strsql, str,wtdw,strsjr,tasktype,YJ_FILEID,FNType:string;
  aQuery,qryMail :TADOQuery;
  ishtml:Boolean;
  //

  //ת<><D7AA><EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>
  //
  pt2: MYPARA;
  //
  Ofiletype:string;
  //<2F>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>
 qryMailQue:TADOQuery;
 qrytmp:TADOQuery;
 //
  taskQNo:string;
begin
  Sleep(1000);
  Result:=-1;
    // pt2 := MYPARA(p^); {ת<><D7AA>}
    //taskqueNo:=StrPas(pt2.QNo);
   strsql:='SELECT * FROM  t_op_task_mailque  q where q.qid='''+taskqueNo+'''';
   qryMailQue:=CreateAdoQuery();
   qryMailQue.Close;
   qryMailQue.SQL.Add(strsql);
   qryMailQue.Open;
    if(qryMailQue.IsEmpty)    then
    Exit ;


   qryMailQue.First;
   while not qryMailQue.Eof  do
   begin
       taskQNo:=  qryMailQue.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString ;
         try
           isok:=    frm_tree_main.sendmailQue(qryMailQue)
           except
           on ex:Exception do
           begin
                isok:=False;
                errorlog(ex.Message);
           end;
         end;
         if(isok) then
         begin
             qryMailQue.Edit;
             qryMailQue.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
             qryMailQue.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean:=True;
             qryMailQue.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
             qryMailQue.FieldByName('״̬').AsString:='<27>ѷ<EFBFBD><D1B7><EFBFBD>';
             qryMailQue.Post;
             //<2F>ҵ<EFBFBD>
             strsql:=format('select t.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_task t where t.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''%s'' and <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=0 AND <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in(''BA'',''BC'') ',[taskQNo]);
             qrytmp:=CreateAdoQuery();
             qrytmp.Close;
             qrytmp.SQL.Clear;
             qrytmp.SQL.Add(strsql);
             qrytmp.Open;
             //
             if(not qrytmp.IsEmpty) then
              begin
                //δ<><CEB4><EFBFBD>ɵ<EFBFBD>BC/BA<42><41><EFBFBD><EFBFBD> ִ<>йҵ<D0B9><D2B5><EFBFBD><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>֪ͨ
                isok:= Guadan(qryMailQue.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,qryMailQue.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,
                '<27><><EFBFBD><EFBFBD>֪ͨ',qryMailQue.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);

              end  ;
              if(not isok) then
                begin
                  //<2F>ҵ<EFBFBD>ʧ<EFBFBD><CAA7>
                     strsql:='update t_op_task set  <20><><EFBFBD><EFBFBD>״̬=''<27><>ת<EFBFBD><D7AA>,<2C><><EFBFBD>ǹҵ<C7B9>ʧ<EFBFBD><CAA7>'',<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+ employee
                 +''',<2C><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>=GETDATE() where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+ qryMailQue.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString  +'''';
                 qryMailQue.Connection.Execute( strsql );
                    ShowMessage('<27>ʼ<EFBFBD><CABC><EFBFBD>ת<EFBFBD><D7AA>;<3B><><EFBFBD><EFBFBD><EFBFBD>Զ<EFBFBD><D4B6>ҵ<EFBFBD>ʧ<EFBFBD><CAA7>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+qryMailQue.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString +',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+
                    qryMailQue.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
                end
              else
              begin
                  //
                 strsql:='update t_op_task set <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>=1,<2C><><EFBFBD><EFBFBD>״̬=''<27><>ת<EFBFBD><D7AA>'',<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+ employee
                 +''',<2C><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>=GETDATE() where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+ qryMailQue.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString  +'''';
                 qryMailQue.Connection.Execute( strsql );

              end;
         end
         else
         begin
             qryMailQue.Edit;
             qryMailQue.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
             qryMailQue.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean:=false;
             qryMailQue.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
              qryMailQue.FieldByName('״̬').AsString:='ת<><D7AA>ʧ<EFBFBD><CAA7>';
             qryMailQue.Post;
               strsql:='update t_op_task set  <20><><EFBFBD><EFBFBD>״̬=''ת<><D7AA>ʧ<EFBFBD><CAA7>'',<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+ employee
             +''',<2C><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>=GETDATE() where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+ qryMailQue.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString  +'''';
             qryMailQue.Connection.Execute( strsql );

         end;

         qryMailQue.Next;
   end;
    result:=0;
    //<2F>Ƿ<EFBFBD>ˢ<EFBFBD><CBA2><EFBFBD>б<EFBFBD>????
    qry1task.Requery();
end;
procedure Tfrm_tree_main.mni_tskN2ForwordClick(Sender: TObject);
var
  optype:string;
  isok:Boolean;
  sql,strtmp:string;
  mainno,bsno,filename,filetype:string;
  i:Integer;
  strsql, str,wtdw,strsjr,tasktype,YJ_FILEID,FNType:string;
  aQuery,qryMail:TADOQuery;
  ishtml:Boolean;
  //<2F>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>
  lsttsk:TstringList;
    //ת<><D7AA><EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>
  Ofiletype:string;
  //<2F>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>
  qryMailQuee:TADOQuery;
  //
  taskQNo:string;
  ID: DWORD;
  pt:MYPARA;
  myThread1 :TMyThread;
  wtbh:string;//ί<>б<EFBFBD><D0B1><EFBFBD>,BC/BA<42><41><EFBFBD>ʼ<EFBFBD>ת<EFBFBD><D7AA>ʹ<EFBFBD><CAB9>
begin
    if(qry1task.RecordCount<1) then
    Exit;

    if (TMenuItem(Sender).Tag=1)      then
     Ofiletype:='ORIGINAL'
    else if (TMenuItem(Sender).Tag=2) then
     Ofiletype:='VC'
    else if (TMenuItem(Sender).Tag=3) then
     Ofiletype:='SEAWAY'
    else if(TMenuItem(Sender).Tag=5) then
    begin
        //
      if(tv1.SelectionCount>0) then
      begin
         if(tv1.Selected.Level=0) then
         begin
           Ofiletype:='BC/BA';
         end
         else if(tv1.Selected.Text<>'BCL') THEN //BCL <20><>ת<EFBFBD><D7AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
         begin
            Ofiletype:= tv1.Selected.Text;
         end;
      end;

    end;
   if (Ofiletype='') then exit;
  if(  Application.MessageBox(PChar('<27><>ȷʵҪת<D2AA><D7AA>ѡ<EFBFBD>е<EFBFBD>'+Ofiletype+'<27>ʼ<EFBFBD><CABC><EFBFBD>?'),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_YESNO+ MB_ICONQUESTION)<>IDYES) then
  Exit;

      //**                  if (Ofiletype='') then exit;
   lsttsk:=TStringList.Create();
   //

   ishtml:=False;
    aQuery:=CreateAdoQuery();
    qryMail:=CreateAdoQuery();
     //##
         //##
     taskQNo:='q'+FormatDateTime('YYYYMMDDHHmmsszzz', Now);
     qryMailQuee:= CreateAdoQuery();
     qryMailQuee.Close;
     qryMailQuee.SQL.Clear;
     qryMailQuee.SQL.Add('SELECT  *   FROM  [t_op_task_mailque] where 1=2') ;
     qryMailQuee.Open;
    try

      for i:=0 to dxdbgrd1_task.SelectedCount-1 do
      begin
        qry1task.GotoBookmark(pointer(dxdbgrd1_task.selectedrows[i]));
        if(qry1task.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString ='ת<><D7AA><EFBFBD><EFBFBD>') then
        continue;
        wtbh:='';
        strtmp:=qry1task.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
        if((strtmp='') or ( Pos('TSE',UpperCase(strtmp))=1)) then
          wtbh:=''
        else
          wtbh:='___'+strtmp;
         wtdw:=qry1task.fieldbyname('ί<>е<EFBFBD>λ').AsString;
       strtmp:=qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
      if ((Ofiletype=strtmp) or (  (Ofiletype='BC/BA') and (Pos(strtmp,Ofiletype)>0)    )) then
       begin
         qry_op_seae.close;
         qry_op_seae.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=qry1task.FieldByName('SEA<45><41><EFBFBD><EFBFBD>').AsString;
         qry_op_seae.Open;
         if not qry_op_seae.IsEmpty then begin

             //
             if((Ofiletype='BA') or (Ofiletype='BC') or(Ofiletype='BC/BA') ) then
                FNType:='<27><><EFBFBD><EFBFBD>֪ͨ'
             else
                FNType:='VC_SEAWAY_<59>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>';
             tasktype:= qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
            // d.<2E>ռ<EFBFBD><D5BC><EFBFBD>
             str:=' select d.*,c.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> from t_code_cust_mailproject_detail d  left join  t_code_cust_mailproject c '
              +' on (c.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=d.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+ FNType +''' and   c.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+wtdw+''' and '
              +'  d.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  in '
             +'( SELECT  distinct  <20>ͻ<EFBFBD><CDBB>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>   from t_op_seae where ί<>е<EFBFBD>λ='''+wtdw+''' and  isnull(<28>ͻ<EFBFBD><CDBB>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>,'''')<>'''' '
            +'and <20><><EFBFBD><EFBFBD>='''+ qry_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString +''' )';

           with aQuery do
           begin
             close;sql.Clear;
             SQL.Add(str);
             Open;
             strsjr:='';
             if   aQuery.IsEmpty then
             begin
               ShowMessage('ί<>е<EFBFBD>λ['+FNType+']<5D>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>ջ<EFBFBD><D5BB>߸<EFBFBD>ƱƱҵ<C6B1><D2B5>û<EFBFBD><C3BB>ѡ<EFBFBD><D1A1><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>,<2C>޷<EFBFBD>ת<EFBFBD><D7AA>!');
               continue;
             end;
             aQuery.First;


             while not aQuery.eof do
             begin
          //
               if strsjr='' then
                  strsjr := fieldbyname('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString
                else
                 strsjr :=  strsjr +',' +fieldbyname('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString;
               Next;
             end;
             if(pos('@',strsjr)<1) then
             begin
               Application.MessageBox('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ռ<EFBFBD><D5BC>˵<EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>ȷ,<2C><>ȷ<EFBFBD>Ϻ<EFBFBD><CFBA><EFBFBD>ת<EFBFBD><D7AA>!','<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_OK+MB_ICONINFORMATION) ;
               continue;
             end;
             First;
             //**
             lsttsk.Add(qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString );
             //<---------------
             {mailSend.EmptyTable;
             mailSend.Open;
             mailSend.Insert;
             mailSend.FieldByName('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString:= strsjr;//fieldbyname('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString;
             mailSend.FieldByName('<27>ʼ<EFBFBD>ǩ<EFBFBD><C7A9>').AsString:=MailSignName;//frm_data_share.t_sys_employee.fieldbyname('<27>ʼ<EFBFBD>ǩ<EFBFBD><C7A9>').AsString;
             }
              qryMailQuee.Insert;
              qryMailQuee.FieldByName('qid').AsString:=taskQNo;
              qryMailQuee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
              qryMailQuee.FieldByName('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString:=strsjr;
              qryMailQuee.FieldByName('<27>ʼ<EFBFBD>ǩ<EFBFBD><C7A9>').AsString:=MailSignName;//frm_data_share.t_sys_employee.fieldbyname('<27>ʼ<EFBFBD>ǩ<EFBFBD><C7A9>').AsString;
              if(Ofiletype='BC/BA') then
              begin
                  Ofiletype:= qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
              end;
             if  ( Ofiletype='BC') or  ( Ofiletype='BA')   or  (tasktype='VC') or ((UpperCase(tasktype)='SEAWAY') and (qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Դ').AsString='<27>ʼ<EFBFBD>') ) then
             begin
               YJ_FILEID:=qry1task.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;

                  ishtml:=True;
                  qryMail.Close;
                  qryMail.SQL.Clear;
                  qryMail.SQL.Add('SELECT  [<5B>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>],[<5B>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>] FROM  [t_op_seae_edi_mail]   where [<5B>ʼ<EFBFBD>ID]='''+YJ_FILEID+''';') ;
                  qryMail.Open;
                  if(not qryMail.Eof) then
                  begin
                    //
                  {  str:=qryMail.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;
                     mailsend.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString :=str;
                     mailSend.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=qry1task.fieldbyname('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').AsString ;
                       str:=qryMail.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;
                      mailSend.FieldByName('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString:=str;
                      }
                      qryMailQuee.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString :='ת<><D7AA>:'+StringReplace(StringReplace(qryMail.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString, #10, '', [rfReplaceAll]),#10,'', [rfReplaceAll]);
                      if(FNType='<27><><EFBFBD><EFBFBD>֪ͨ') then //BC/BA<42><41><EFBFBD><EFBFBD>ί<EFBFBD>б<EFBFBD><D0B1>Ų<EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>Ҳ<EFBFBD>Ϊ[TSE]<5D><>ͷ<EFBFBD><CDB7><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>+[___ί<5F>б<EFBFBD><D0B1><EFBFBD>]
                        qryMailQuee.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString := StringReplace(StringReplace(qryMail.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString, #10, '', [rfReplaceAll]),#10,'', [rfReplaceAll]) +wtbh;

                      qryMailQuee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=qry1task.fieldbyname('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').AsString ;
                      qryMailQuee.FieldByName('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString:=qryMail.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;

                  end
                  ELSE
                  BEGIN
                    ShowMessage('δȡ<CEB4><C8A1>ԭʼ<D4AD>ʼ<EFBFBD><CABC><EFBFBD>Ϣ,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+Ofiletype+',<2C>ʼ<EFBFBD>ID:'+YJ_FILEID+',<2C>ᵥ<EFBFBD><E1B5A5>:'+qry1task.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').AsString);
                    Continue;
                  end;



            end
            else if(UpperCase(tasktype)='SEAWAY') then
            begin
                //YJ_FILEID:=m_qryTask.fieldbyname('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString;

                str:='SEAWAY BILL:'+qry1task.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').AsString  ;// fieldbyname('<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>').AsString +FormatDateTime('YYYYMMDDHHMMSS',now) ;
                //mailsend.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString :=str;
                //mailSend.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=qry1task.fieldbyname('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').AsString ;
                qryMailQuee.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString :=StringReplace(StringReplace(str, #10, '', [rfReplaceAll]),#10,'', [rfReplaceAll]);
                qryMailQuee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=qry1task.fieldbyname('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').AsString ;
                if fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').IsNull then
                str:=' '
                else
                str:=fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;
                //mailSend.FieldByName('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString:=str;
                qryMailQuee.FieldByName('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString:=str;
            end;

                qryMailQuee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=tasktype;
                qryMailQuee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
                qryMailQuee.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=qry1task.fieldbyname('SEA<45><41><EFBFBD><EFBFBD>').AsString ;
                qryMailQuee.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString:=qry1task.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').AsString ;
                qryMailQuee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
                qryMailQuee.Post;
                //---------->
                try
                qry1task.Connection.BeginTrans;
                //  sendmail(mailSend,FNType,qry1task.fieldbyname('SEA<45><41><EFBFBD><EFBFBD>').AsString,ishtml) ;
                //<2F><><EFBFBD><EFBFBD>״̬
                qry1task.Edit;
                //qry1task.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
                //qry1task.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=1;
                qry1task.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:='ת<><D7AA><EFBFBD><EFBFBD>';//'<27><>ת<EFBFBD><D7AA>';
                qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
                qry1task.Post;
                //
                strsql:='INSERT INTO t_op_task_state ( [<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD>״̬],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>])VALUES (''%s'' ,''%s'' ,''%s'')';
                strsql:=Format(strsql,[qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'ת<><D7AA><EFBFBD><EFBFBD>',employee] );  // <20><>ת<EFBFBD><D7AA>
                qry1task.Connection.Execute(strsql);
                qry1task.Connection.CommitTrans;

                aQuery.Close();

            except
              on ex:exception do
              begin
                 qry1task.Connection.RollbackTrans;
                 Application.MessageBox(PChar('ת<><D7AA>ʧ<EFBFBD><CAA7>:'+ex.Message),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_OK+MB_ICONINFORMATION);
                 continue;
              end;


             end;

           end  ;
         end else begin
            Application.MessageBox(PChar('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޷<EFBFBD>ת<EFBFBD><D7AA><EFBFBD><EFBFBD>'),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_OK+MB_ICONINFORMATION);
         end;

       end;
     end;
    finally
      FreeAndNil(aQuery);
      FreeAndNil(qryMail);
    end;
   qry1task.requery();
   //<2F><><EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>߳<EFBFBD>
  //   sendmailBatch(taskQNo);
     myThread1 := TMyThread.Create(taskQNo); // <20><><EFBFBD><EFBFBD><EFBFBD>̲߳<DFB3><CCB2><EFBFBD><EFBFBD><EFBFBD>
     myThread1.OnTerminate:=MyOnTerminate;
     myThread1.Resume;
    // pt.QNo:= pchar(taskQNo) ;

     //CreateThread(nil, 0, @sendmailBatch, pointer(@pt) , 0, ID);
end;




function Tfrm_tree_main.sendmail(mailSendTbl: TkbmMemTable; mailtype,
  bsno: string; ishtml: Boolean): Boolean;
var
    i:integer;
    str_memo:Tmemo;
    SMTP1:TIdSMTP;
    IdMsg:TIdMessage;
    strfile,mailremarks,naspath,strnr,lognr:string;
    //
     emptybody, textbody, htmlbody : TIdText;
    idAtta: TIdAttachmentFile;
    filename:string;
begin
   try
    naspath:=get_parameters_value(175,'\\223.223.95.160\data');
    try
        frm_tree_main.ConnectDownServer();
    except on ex: Exception do
     begin
       ;//s
     end;

    end;   

    if not ASSIGNED(frm_sys_progress) then
      frm_sys_progress:=tfrm_sys_progress.Create(application);
      frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      frm_sys_progress.Show;
      frm_sys_progress.bsSkinGauge1.MaxValue:=1;
      frm_sys_progress.bsSkinGauge1.MinValue:=0;
      frm_sys_progress.bsSkinGauge1.Value:=0;
    begin

          SMTP1:=TIdSMTP.Create(nil);
          IdMsg:=TIdMessage.Create(nil);
          str_memo:=Tmemo.create(nil);
          SMTP1.AuthType := satDefault;       //(satNone, satDefault, satSASL);
          SMTP1.username:=MailAddress;
          SMTP1.Password :=MailPw;
          SMTP1.Host :='mail.sdsmartlogistics.com';
          //----------------
 {        SMTP1.username:='dev003@dongshengsoft.com';
          SMTP1.Password :='carey2017';
           SMTP1.Host :='smtpcom.263xmail.com';
           }
        //debug

          SMTP1.Port :=25;
          try
            SMTP1.Connect;
          except
            on e : Exception do
            begin
                ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+E.Message);
                Exit;
            end;
          end;
          if not SMTP1.Connected then
          begin
            SMTP1.Connect;
          end;


          try

            with IdMsg do
            begin
              body.Clear;

             if(ishtml) then
             begin
                     IdMsg:=TIDMessage.create();
                      emptybody := TIdText.Create(IdMsg.MessageParts, nil);
                      emptybody.ContentType := 'multipart/alternative';
                      emptybody.ParentPart := -1;

                      textbody := TIdText.Create(IdMsg.MessageParts, nil);
                      textbody.Body.Text := 'plain text part';
                      textbody.ContentType := 'text/plain';
                      textbody.ParentPart := 0;

                      htmlbody := TIdText.Create(IdMsg.MessageParts, nil);
                      htmlbody.body.text :=mailSendTbl.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;// '<html><body><p>This is a email saying weeeeee</p><img src="CID:12345" /><b><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD></b></body></html>';
                      htmlbody.ContentType := 'text/html';
                      htmlbody.ParentPart := 0;
                  IdMsg.ContentType := 'multipart/related; type="multipart/alternative"';
                  //IdMsg.ContentType :='text/html';
                  IdMsg.CharSet:='iso-8859-1';
                  IdMsg.Encoding:=meMIME;
                 // IdMsg.body:=null;//mailSendTbl.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;
                    lognr:='VC<56>ҵ<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD> ';
              end
             else
              begin
                // textbody := TIdText.Create(IdMsg.MessageParts, nil);
               // textbody.Body.Text := 'plain text part';
               // textbody.ContentType := 'text/plain';
                //textbody.ParentPart := 0;
                //textbody.Body.Text:=    mailSendTbl.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;
              Body.Text:=mailSendTbl.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;
              lognr :=Body.Text;
              end;
              From.address :=MailAddress;
              Recipients.EMailAddresses :=mailSendTbl.FieldByName('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString;

                Subject:=mailSendTbl.FieldByName('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;
                strfile:= mailSend.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;

                //-----------------
              if(FileExists(strfile)) then
              begin



                 idAtta:=    TIdAttachmentFile.Create(MessageParts,strfile);
                idAtta.ContentType:='application/octet-stream';
               idAtta.ContentDisposition:='attachment';
             idAtta.ContentTransfer:='base64';
             idAtta.FileName:=ExtractFileName(strfile);
             end;
            end;
            if not SMTP1.Connected then
            begin
               Sleep(1000);
               SMTP1.Connect;
            end;
             SMTP1.Send(IdMsg);
          //     <20><><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD>
             Insert_mail_Log(bsno,mailtype,mailSendTbl.FieldByName('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString,mailSendTbl.FieldByName('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString,lognr,mailSend.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
          finally
            SMTP1.Disconnect;
          end;
          try
          finally
            str_memo.Free;
            SMTP1.Free;
            IdMsg.Free;
          end;

    end;
  finally
    frm_sys_progress.close;
    frm_sys_progress:=nil;

  end;

end;
  /// <summary>
  /// <20><><EFBFBD>з<EFBFBD><D0B7>ʼ<EFBFBD>ʹ<EFBFBD>õĺ<C3B5><C4BA><EFBFBD>
  /// </summary>
 function Tfrm_tree_main.sendmailQue(mailSendTbl: TADOQuery): Boolean;
var
    i:integer;
    str_memo:Tmemo;
    SMTP1:TIdSMTP;
    IdMsg:TIdMessage;
    strfile,mailremarks,naspath,strnr,lognr:string;
    //
     emptybody, textbody, htmlbody : TIdText;
    idAtta: TIdAttachmentFile;
    filename:string;
    ishtml:Boolean;
    bsno,mailtype:string;
begin
    ishtml:=true;
   try
    naspath:=get_parameters_value(175,'\\223.223.95.160\data');
    try
        frm_tree_main.ConnectDownServer();
    except on ex: Exception do
     begin
       errorlog(ex.Message);
     end;

    end;   


    begin
         // frm_sys_progress.bsSkinGauge1.Value:=i;
          SMTP1:=TIdSMTP.Create(nil);
          IdMsg:=TIdMessage.Create(nil);
          str_memo:=Tmemo.create(nil);
          SMTP1.AuthType := satDefault;       //(satNone, satDefault, satSASL);
          SMTP1.username:=MailAddress;
          SMTP1.Password :=MailPw;
          SMTP1.Host :='mail.sdsmartlogistics.com';
          //----------------
{         SMTP1.username:='dev003@dongshengsoft.com';
          SMTP1.Password :='carey2017';
           SMTP1.Host :='smtpcom.263xmail.com';
 }       //debug



          SMTP1.Port :=25;
          try
            SMTP1.Connect;
          except
            on e : Exception do
            begin
                ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+E.Message);
                Exit;
            end;
          end;
          if not SMTP1.Connected then
          begin
            SMTP1.Connect;
          end;
          try

            with IdMsg do
            begin
              body.Clear;

             if(ishtml) then
             begin
                     IdMsg:=TIDMessage.create();
                      emptybody := TIdText.Create(IdMsg.MessageParts, nil);
                      emptybody.ContentType := 'multipart/alternative';
                      emptybody.ParentPart := -1;

                      textbody := TIdText.Create(IdMsg.MessageParts, nil);
                      textbody.Body.Text := 'plain text part';
                      textbody.ContentType := 'text/plain';
                      textbody.ParentPart := 0;

                      htmlbody := TIdText.Create(IdMsg.MessageParts, nil);
                      htmlbody.body.text :=mailSendTbl.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;// '<html><body><p>This is a email saying weeeeee</p><img src="CID:12345" /><b><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD></b></body></html>';
                      htmlbody.ContentType := 'text/html';
                      htmlbody.ParentPart := 0;
                  IdMsg.ContentType := 'multipart/related; type="multipart/alternative"';
                  //IdMsg.ContentType :='text/html';
                  IdMsg.CharSet:='iso-8859-1';
                  IdMsg.Encoding:=meMIME;
                 // IdMsg.body:=null;//mailSendTbl.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;
                    lognr:='<27>ҵ<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD> ';
              end
             else
              begin

              Body.Text:=mailSendTbl.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;
              lognr :=Body.Text;
              end;
              From.address :=MailAddress;
              Recipients.EMailAddresses :=mailSendTbl.FieldByName('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString;
//              Recipients.EMailAddresses :='dev001@dongshengsoft.com';

 //               Subject:='ss';
                Subject:=StringReplace(StringReplace(mailSendTbl.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString, #10, '', [rfReplaceAll]),#10,'', [rfReplaceAll]);

                strfile:= mailSendTbl.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
                bsno:= mailSendTbl.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
                mailtype:= mailSendTbl.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
                //-----------------
              if(FileExists(strfile)) then
              begin
                idAtta:=    TIdAttachmentFile.Create(MessageParts,strfile);
                idAtta.ContentType:='application/octet-stream';
               idAtta.ContentDisposition:='attachment';
             idAtta.ContentTransfer:='base64';
             idAtta.FileName:=ExtractFileName(strfile);
             end;
            end;
            if not SMTP1.Connected then
            begin
               Sleep(1000);
               SMTP1.Connect;
            end;
             SMTP1.Send(IdMsg);
          //     <20><><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD>
             Insert_mail_Log(bsno,mailtype,mailSendTbl.FieldByName('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString,mailSendTbl.FieldByName('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString,lognr,mailSend.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
           Result:=True;
          finally
            SMTP1.Disconnect;
          end;
          try
          finally
            str_memo.Free;
            SMTP1.Free;
            IdMsg.Free;
          end;

    end;

  finally
   // frm_sys_progress.close;
   // frm_sys_progress:=nil;

  end;

end;


  function Tfrm_tree_main.checkGuadanTimes(str:string ):Boolean;
begin
  result:=false;
       if(str='') or (pos('<27><>ǩ',str)<1  ) and (pos('<27>ҵ<EFBFBD>',str)<1  ) then
    begin
      result:=True;
      Exit;
    end;
  {  if (pos('<27>ǻ<EFBFBD>ǩ:',Str)<1) and (Pos('<27><>ǩ:<3A><>',Str)>0) then  //<2F><>ǩ2<C7A9>ιҵ<CEB9>:<3A><><EFBFBD><EFBFBD>
   begin
      result:=True;
      Exit;
    end;
   if(Pos('<27><>ǩ:',Str)>0) then  //<2F><><EFBFBD>μ<EFBFBD><CEBC><EFBFBD><EFBFBD>ϵĹҵ<C4B9><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
       result:=false;
       }
end;
procedure Tfrm_tree_main.mni3_swPENDINGClick(Sender: TObject);
begin
  //
  mni_tskor_N1OkClick(Sender);
end;

procedure Tfrm_tree_main.btn5AlertOkClick(Sender: TObject);
begin
  //
  taskFinish('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
end;

procedure Tfrm_tree_main.taskFinish(Ofiletype:string );
  var

  isok:Boolean;
  sql,strtmp:string;
  mainno,bsno,filename,filetype,optype:string;
  i:Integer;
begin
  if(  Application.MessageBox(PChar('<27><>ȷʵҪȷ<D2AA>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>'+Ofiletype+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?'),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_YESNO+ MB_ICONQUESTION)<>IDYES) then
  Exit;


    if (Ofiletype='') then exit;


      for i:=0 to dxdbgrd1_task.SelectedCount-1 do
      begin
        qry1task.GotoBookmark(pointer(dxdbgrd1_task.selectedrows[i]));
        strtmp:=qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
        if (Ofiletype=strtmp) then
        begin
          optype:='<27><><EFBFBD><EFBFBD>';
          isok:=true;
           //<2F>ҵ<EFBFBD>
            mainno:=qry1task.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').AsString;
            bsno:=qry1task.fieldbyname('SEA<45><41><EFBFBD><EFBFBD>').AsString;
            filename:=qry1task.fieldbyname('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').AsString;
            if strtmp ='ORIGINAL' then
            begin
              filetype:='<27><><EFBFBD><EFBFBD>˾<EFBFBD>ҵ<EFBFBD>';  //<2F><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>2<EFBFBD>ιҵ<CEB9>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>;<3B>ǻ<EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD>μ<EFBFBD><CEBC><EFBFBD><EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>
               if(checkGuadanTimes(qry1task.fieldbyname('<27><>ע').AsString)=False) then
                begin
                  Continue;
                end;
              isok:=  Guadan(mainNo,bsno, filetype,filename);
             end
             else if strtmp ='VC' then
             begin
               filetype:='VC<56>ҵ<EFBFBD>';
             end;
          try
            qry1task.Connection.BeginTrans;
             if(isok=true) then
             begin
               qry1task.Edit;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
               qry1task.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=1;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:=optype;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
               qry1task.Post;
               sql:='INSERT INTO t_op_task_state ( [<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD>״̬],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>])VALUES (''%s'' ,''%s'' ,''%s'')';
               sql:=Format(sql,[qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,optype,employee] );
               qry1task.Connection.Execute(sql);
               qry1task.Connection.CommitTrans;
             end
             else
             begin
               qry1task.Connection.RollbackTrans;
             end;
         except
            on e:Exception do
            begin
              qry1task.Connection.RollbackTrans;
               Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+E.Message),'<27><>Ϣ<EFBFBD><CFA2>ʾ');
            end;
         end;
       end;
     end;
        qry1task.requery();

end;
     procedure Tfrm_tree_main.MyOnTerminate(Sender: TObject);
 
begin
   {
  retVal := (Sender as TMyThread).MyFunRetVal;
  if retVal then
    ShowMessage('<27>첽ת<ECB2BD><D7AA><EFBFBD>ʼ<EFBFBD><CABC>ɹ<EFBFBD>')
  else
    ShowMessage('<27>첽ת<ECB2BD><D7AA><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>');
    }
  qry1task.Requery();
  //ShowMessage( '<27>ʼ<EFBFBD>ת<EFBFBD><D7AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') ;

end;                             
procedure Tfrm_tree_main.mniN4_tskAss_rematchClick(Sender: TObject);
begin
    //<2F><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    btn4_ReAssignTaskClick(btn4_ReAssignTask);
end;
/// <summary>
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>еķֵ<C4B7><D6B5>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
/// </summary>
function Tfrm_tree_main.AssignPub_ORIGINAL_SEAWAY_VC():Boolean;
var
  optype:string;
  isok:Boolean;
  strsql,strtmp:string;
  mainno,bsno,filename,filetype,Ofiletype,submainorder,subnos:string;
  i,isubcount:Integer;
  qrytmp:TADOQuery;
  unionsubnos:string;//union-->table,<2C><>¼<EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5>
  strTaskNewPerson:string;
  //<2F>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>ιҵ<CEB9><D2B5><EFBFBD>Ϣ<EFBFBD><CFA2>ʾ:д<>뱸ע
  strOriginalMultiGuadn:string;

begin
    if(qry1task.RecordCount<1) then
    Exit;
   Ofiletype:= tv1.Selected.Text;
   if(  Application.MessageBox(PChar('<27><>ȷʵҪ<CAB5><D2AA><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5>'+Ofiletype+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?'),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_YESNO+ MB_ICONQUESTION)<>IDYES) then
   Exit;
   subnos:='';
   unionsubnos:='';
   strOriginalMultiGuadn:='';
   // ORIGINAL,SEAWAY,VC
   //<2F>ȵõ<C8B5><C3B5>ֵ<EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
   isubcount:=0;
   for i:=0 to dxdbgrd1_task.SelectedCount-1 do
   begin
     submainorder:= qry1task.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').AsString;
     qry1task.GotoBookmark(pointer(dxdbgrd1_task.selectedrows[i]));
     Ofiletype:=qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
     if ((Ofiletype='ORIGINAL') or (Ofiletype='SEAWAY') or (Ofiletype='VC')  ) then
     begin
     //SELECT '57460774101' AS SUBNO
       if(isubcount=0) then
         unionsubnos:= FORMAT('SELECT ''%s'' AS SUBNO ',[submainorder])
       else
           unionsubnos:= unionsubnos+ FORMAT(' UNION  SELECT ''%s'' AS SUBNO ',[submainorder]);
       isubcount:=isubcount+1;
        subnos := subnos+ Format('''%s'',',[submainorder])  ;
     end;
   end;
    //
    if(isubcount=0) then
    begin
      ShowMessage('<27><>ѡ<EFBFBD><D1A1><EFBFBD>ֵ<EFBFBD>!');
      exit;
    end;
    subnos:=Copy(subnos,1,Length(subnos)-1);
    //
    strsql:='select t.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,count(<28><><EFBFBD>ᵥ<EFBFBD><E1B5A5>) as Ncount  from  t_op_seae_assistant t '
        +' where t.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> in (' +subnos+  ')group by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;';
    qrytmp:=CreateAdoQuery;
    qrytmp.Close;
    with qrytmp do
    begin
      SQL.Add(strsql);
      Open;
      if(IsEmpty) then
      begin
         ShowMessage('<27><>ѡ<EFBFBD><D1A1><EFBFBD>ֵ<EFBFBD>û<EFBFBD><C3BB>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>¼!');
         Exit;
      end
      else if(Recordset.RecordCount>1) then
      begin
        //<2F><><EFBFBD><EFBFBD>
        ShowMessage('ѡ<>еķֵ<C4B7><D6B5><EFBFBD>Ӧ'+inttostr(Recordset.RecordCount)+'<27><><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1>!');
        Close;//<2F>ر<EFBFBD>qry
        Exit;
      end;
      //<2F><><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
      if(isubcount> FieldByName('Ncount').AsInteger) then
      begin
        strsql:= 'SELECT V.* FROM ( %s) V ' +#10#13
                 +' WHERE not exists (select t.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae_assistant t where t.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>=v.subno ) ';
        Close;//<2F>ر<EFBFBD>qry
        SQL.Clear;
        {                                                                                     t
         SELECT V.* FROM
        ( uniontable) V WHERE  not exists (select t.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>   from  t_op_seae_assistant t
         where t.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>=v.subno )
        }
        SQL.Add( Format(strsql,[unionsubnos]));
        Open;
        if(not IsEmpty) then
        begin
         //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵķֵ<C4B7>
         First;
         strtmp:='';
         while not Eof do
         begin
           strtmp:=strtmp+fieldbyname('SUBNO').AsString+',';
           Next;
         end;
         strtmp:=Copy(strtmp,1,Length(strtmp)-1);
         ShowMessage(format('<27>ֵ<EFBFBD>[%s]<5D><>ҵ<EFBFBD><D2B5>ϵͳ<CFB5><CDB3>û<EFBFBD><C3BB>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5>!',[strtmp]));
        end;
        Exit;
      end;
       //<2F><><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
       strtmp:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
       Close;
       SQL.Clear;
       SQL.Add(Format('select top 1 <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,<2C>ͷ<EFBFBD>Ա from t_op_seae t where t.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''%s'' and t.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><>ͨ<EFBFBD><CDA8>''',
      [strtmp]));
       Open;
       if(IsEmpty) then
       begin
          ShowMessage('<27>쳣<EFBFBD><ECB3A3><EFBFBD><EFBFBD>:ѡ<>еķֵ<C4B7><D6B5><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5>ϵͳ<CFB5><CDB3>û<EFBFBD>м<EFBFBD>¼!');
          Close;//<2F>ر<EFBFBD>qry
         Exit;
       end;
         mainno:= fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
        bsno:= fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
        strTaskNewPerson:=fieldbyname('<27>ͷ<EFBFBD>Ա').AsString;
    end;


   for i:=0 to dxdbgrd1_task.SelectedCount-1 do
   begin
        qry1task.GotoBookmark(pointer(dxdbgrd1_task.selectedrows[i]));
        strtmp:=qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
      if ((Ofiletype='ORIGINAL') or (Ofiletype='SEAWAY') or (Ofiletype='VC')  ) then
       begin
          optype:='<27>ֵ<EFBFBD><D6B5>ҵ<EFBFBD>';
          isok:=true;
           strOriginalMultiGuadn:='';
            filename:=qry1task.fieldbyname('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').AsString;
            
              submainorder:=qry1task.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').AsString;
               if(Ofiletype='ORIGINAL') then
               begin
                //<2F><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,sea<65><61><EFBFBD>ż<EFBFBD><C5BC><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7>Ѿ<EFBFBD><D1BE>ҵ<EFBFBD>????
                filetype:='<27><><EFBFBD><EFBFBD>˾<EFBFBD>ҵ<EFBFBD>';   //<2F><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>2<EFBFBD>ιҵ<CEB9>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>;<3B>ǻ<EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD>μ<EFBFBD><CEBC><EFBFBD><EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>
                qrytmp.close;
                qrytmp.SQL.Clear;
                qrytmp.SQL.Add('select t.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼʱ<CABC><CAB1>,t.<2E><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>  from t_op_task t  ');
                qrytmp.SQL.Add(Format(' where sea<65><61><EFBFBD><EFBFBD>=''%S'' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''ORIGINAL'' and <20>Ƿ񹫹<C7B7>=1 and  t.<2E>ᵥ<EFBFBD><E1B5A5>=''%s''', [bsno,submainorder])) ;
                qrytmp.Open;
                if(not qrytmp.IsEmpty )then
                begin
                  strtmp:=format('<27>ֵ<EFBFBD>%s<>Ѿ<EFBFBD><D1BE>ҵ<EFBFBD>%d<><64>:',[submainorder,qrytmp.recordset.recordcount]);
                  qrytmp.First;
                  while not qrytmp.Eof do
                  begin
                     strtmp:=strtmp+#10#13+ Format('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼʱ<CABC><CAB1>:%s,<2C>ҵ<EFBFBD>ʱ<EFBFBD><CAB1>:%s'
                     ,[ qrytmp.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼʱ<CABC><CAB1>').AsString,qrytmp.fieldbyname('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsString]);
                     qrytmp.Next;
                  end;
                  strtmp:=strtmp+#10#13+'<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD>?';
                     if(Application.MessageBox( PChar(strtmp),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_YESNO+MB_ICONQUESTION)<>IDYES) then
                     Continue;
                     strOriginalMultiGuadn:=format('[<5B><>%d<>ҵ<EFBFBD>]',[qrytmp.recordset.recordcount+1]);
                end;
               end
               else if(Ofiletype='SEAWAY') then
                  filetype:='Seaway<61>ҵ<EFBFBD>'
                else if (Ofiletype='VC')  then
                   filetype:='VC<56>ҵ<EFBFBD>'
               else
               begin
                 ShowMessage(format('<27>ᵥ<EFBFBD><E1B5A5>Ϊ%S<><53><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>%s<><73><EFBFBD><EFBFBD>!',[mainNo,filetype]));
                  continue;

               end;
                isok:=  Guadan_2(mainNo,bsno, filetype,filename,True,submainorder); //<2F>ֵ<EFBFBD><D6B5>ҵ<EFBFBD>

          try
            qry1task.Connection.BeginTrans;
            //<2F>ҵ<EFBFBD>
          
             if(isok=true) then
             begin
               qry1task.Edit;
               //<2F>ֵ<EFBFBD><D6B5><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD>ı<EFBFBD><C4B1><EFBFBD>
               qry1task.FieldByName('SEA<45><41><EFBFBD><EFBFBD>').AsString:=bsno;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
               qry1task.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=1;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:=optype;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
               qry1task.FieldByName('<27><>ע').AsString:= qry1task.FieldByName('<27><>ע').AsString
               +format('(%s:%s)',[strtasknewperson ,mainno])
               +strOriginalMultiGuadn;
               qry1task.Post;
               strsql:='INSERT INTO t_op_task_state ( [<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD>״̬],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>])VALUES (''%s'' ,''%s'' ,''%s'')';
               strsql:=Format(strsql,[qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,optype,employee] );
               qry1task.Connection.Execute(strsql);
               qry1task.Connection.CommitTrans;
             end
             else
             begin
               qry1task.Connection.RollbackTrans;
             end;
         except
            on e:Exception do
            begin
              qry1task.Connection.RollbackTrans;
               Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+E.Message),'<27><>Ϣ<EFBFBD><CFA2>ʾ');
            end;
         end;
       end;
     end;
        qry1task.requery();


  //
end;
/// <summary>
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>BC/BA<42>ҵ<EFBFBD>
/// </summary>
procedure Tfrm_tree_main.mniN4_tskAss_subRematchClick(Sender: TObject);
begin
   //<2F>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>¹ҵ<C2B9>--->
   //<2F><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>õ<EFBFBD><C3B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    AssignPub_ORIGINAL_SEAWAY_VC();
end;

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

procedure Tfrm_tree_main.ToolButton15Click(Sender: TObject);
begin
  bindtaskdata();
end;

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

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

procedure Tfrm_tree_main.dxdbgrd1_taskColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort(Column,qry1task,'pl_id');
end;

procedure Tfrm_tree_main.Act111001Execute(Sender: TObject);
begin

  if not assigned(frm_rp_tai_total_op) then
    frm_rp_tai_total_op:=tfrm_rp_tai_total_op.Create (self);
  frm_rp_tai_total_op.ManualDock(frm_main.SearchTabs('frm_rp_tai_total_op',frm_rp_tai_total_op.caption,'111001'),nil,alClient);
  frm_rp_tai_total_op.show;
end;

procedure Tfrm_tree_main.Act9502Execute(Sender: TObject);
begin
 try
    frm_code_dggoods:=tfrm_code_dggoods.Create (self);
    frm_code_dggoods.ShowModal;
  finally
    frm_code_dggoods.Free;
  end;
end;

procedure Tfrm_tree_main.Act9503Execute(Sender: TObject);
begin
  try
    frm_code_stowgoods:=tfrm_code_stowgoods.Create (self);
    frm_code_stowgoods.ShowModal;
  finally
    frm_code_stowgoods.Free;
  end;
end;

procedure Tfrm_tree_main.Act9504Execute(Sender: TObject);
begin
   try
    frm_code_bangoods:=tfrm_code_bangoods.Create (self);
    frm_code_bangoods.ShowModal;
  finally
    frm_code_bangoods.Free;
  end;
end;

procedure Tfrm_tree_main.Act111002Execute(Sender: TObject);
begin
   if not assigned(frm_op_seae_dg) then
    frm_op_seae_dg:=tfrm_op_seae_dg.Create (self);
  frm_op_seae_dg.ManualDock(frm_main.SearchTabs('frm_op_seae_dg',frm_op_seae_dg.caption,'111002'),nil,alClient);
  frm_op_seae_dg.show;
end;

procedure Tfrm_tree_main.Act111004Execute(Sender: TObject);
begin
    if not assigned(frm_code_fee_project_auto) then
    frm_code_fee_project_auto:=tfrm_code_fee_project_auto.Create (self);
  frm_code_fee_project_auto.ManualDock(frm_main.SearchTabs('frm_code_fee_project_auto',frm_code_fee_project_auto.caption,'111004'),nil,alClient);
  frm_code_fee_project_auto.show;
end;

procedure Tfrm_tree_main.Act111005Execute(Sender: TObject);
begin
     if not assigned(frm_rp_dg_except) then
    frm_rp_dg_except:=tfrm_rp_dg_except.Create (self);
  frm_rp_dg_except.ManualDock(frm_main.SearchTabs('frm_rp_dg_except',frm_rp_dg_except.caption,'111005'),nil,alClient);
  frm_rp_dg_except.show;
end;

procedure Tfrm_tree_main.Act497Execute(Sender: TObject);
begin
      if not assigned(frm_rp_cdstl) then
    frm_rp_cdstl:=tfrm_rp_cdstl.Create (self);
  frm_rp_cdstl.ManualDock(frm_main.SearchTabs('frm_rp_cdstl',frm_rp_cdstl.caption,'497'),nil,alClient);
  frm_rp_cdstl.show;
end;

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

procedure Tfrm_tree_main.Act2502Execute(Sender: TObject);
begin
   if not assigned(frm_ch_zlsales) then
    frm_ch_zlsales:=tfrm_ch_zlsales.Create (self);
  frm_ch_zlsales.ManualDock(frm_main.SearchTabs('frm_ch_zlsales',frm_ch_zlsales.caption,'2502'),nil,alClient);
  frm_ch_zlsales.show;
end;

procedure Tfrm_tree_main.ToolButton16Click(Sender: TObject);
var
  i:Integer;
  sql:string;
begin
       for i:=0 to dxdbgrd1_task.SelectedCount-1 do
      begin
        qry1task.GotoBookmark(pointer(dxdbgrd1_task.selectedrows[i]));
          try
            qry1task.Connection.BeginTrans;

               qry1task.Edit;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
               qry1task.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=1;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:='<27><><EFBFBD><EFBFBD>';
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա').AsString:=employee;
               qry1task.Post;
               sql:='INSERT INTO t_op_task_state ( [<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD>״̬],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>])VALUES (''%s'' ,''%s'' ,''%s'')';
               sql:=Format(sql,[qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'<27><><EFBFBD><EFBFBD>',employee] );
               qry1task.Connection.Execute(sql);
               qry1task.Connection.CommitTrans;

         except
            on e:Exception do
            begin
              qry1task.Connection.RollbackTrans;
               Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+E.Message),'<27><>Ϣ<EFBFBD><CFA2>ʾ');
            end;
         end;

     end;
        qry1task.requery();
end;
procedure Tfrm_tree_main.Act5209Execute(Sender: TObject);
begin
   if not assigned(frm_rp_bssource_total) then
    frm_rp_bssource_total:=tfrm_rp_bssource_total.Create (self);
  frm_rp_bssource_total.ManualDock(frm_main.SearchTabs('frm_rp_bssource_total',frm_rp_bssource_total.caption,'2502'),nil,alClient);
  frm_rp_bssource_total.show;
end;

procedure Tfrm_tree_main.MenuItem6Click(Sender: TObject);
var
  optype:string;
  isok:Boolean;
  sql,strtmp:string;
  mainno,bsno,filename,filetype:string;
  i:Integer;
  strsql, str,wtdw,strsjr,tasktype,YJ_FILEID,FNType:string;
  aQuery,qryMail:TADOQuery;
  ishtml:Boolean;
  //<2F>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>
  lsttsk:TstringList;
    //ת<><D7AA><EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>
  Ofiletype:string;
  //<2F>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>
  qryMailQuee:TADOQuery;
  //
  taskQNo:string;
  ID: DWORD;
  pt:MYPARA;
  myThread1 :TMyThread;
  wtbh:string;//ί<>б<EFBFBD><D0B1><EFBFBD>,BC/BA<42><41><EFBFBD>ʼ<EFBFBD>ת<EFBFBD><D7AA>ʹ<EFBFBD><CAB9>
begin
    if(qry1task.RecordCount<1) then
    Exit;


  if(  Application.MessageBox(PChar('<27><>ȷʵҪת<D2AA><D7AA>ѡ<EFBFBD>е<EFBFBD><D0B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD>?'),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_YESNO+ MB_ICONQUESTION)<>IDYES) then
  Exit;

      //**                  if (Ofiletype='') then exit;
   lsttsk:=TStringList.Create();
   //

   ishtml:=False;
    aQuery:=CreateAdoQuery();
    qryMail:=CreateAdoQuery();
     //##
         //##
     taskQNo:='q'+FormatDateTime('YYYYMMDDHHmmsszzz', Now);
     qryMailQuee:= CreateAdoQuery();
     qryMailQuee.Close;
     qryMailQuee.SQL.Clear;
     qryMailQuee.SQL.Add('SELECT  *   FROM  [t_op_task_mailque] where 1=2') ;
     qryMailQuee.Open;
    try

      for i:=0 to dxdbgrd1_task.SelectedCount-1 do
      begin
        qry1task.GotoBookmark(pointer(dxdbgrd1_task.selectedrows[i]));
        if(qry1task.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString ='ת<><D7AA><EFBFBD><EFBFBD>') then
        continue;
        wtbh:='';
        strtmp:=qry1task.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
        if((strtmp='') or ( Pos('TSE',UpperCase(strtmp))=1)) then
          wtbh:=''
        else
          wtbh:='___'+strtmp;
         wtdw:=qry1task.fieldbyname('ί<>е<EFBFBD>λ').AsString;
       strtmp:=qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
      if (1=1) then
       begin
         qry_op_seae.close;
         qry_op_seae.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=qry1task.FieldByName('SEA<45><41><EFBFBD><EFBFBD>').AsString;
         qry_op_seae.Open;
         if not qry_op_seae.IsEmpty then begin

             //
             FNType:='<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>';
             tasktype:= qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
            // d.<2E>ռ<EFBFBD><D5BC><EFBFBD>
             str:=' select d.*,c.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> from t_code_cust_mailproject_detail d  left join  t_code_cust_mailproject c '
              +' on (c.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=d.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+ FNType +''' and   c.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+wtdw+''' and '
              +'  d.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  in '
             +'( SELECT  distinct  <20>ͻ<EFBFBD><CDBB>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>   from t_op_seae where ί<>е<EFBFBD>λ='''+wtdw+''' and  isnull(<28>ͻ<EFBFBD><CDBB>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>,'''')<>'''' '
            +'and <20><><EFBFBD><EFBFBD>='''+ qry_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsString +''' )';

           with aQuery do
           begin
             close;sql.Clear;
             SQL.Add(str);
             Open;
             strsjr:='';
             if   aQuery.IsEmpty then
             begin
               ShowMessage('ί<>е<EFBFBD>λ['+FNType+']<5D>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>ջ<EFBFBD><D5BB>߸<EFBFBD>ƱƱҵ<C6B1><D2B5>û<EFBFBD><C3BB>ѡ<EFBFBD><D1A1><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>,<2C>޷<EFBFBD>ת<EFBFBD><D7AA>!');
               continue;
             end;
             aQuery.First;


             while not aQuery.eof do
             begin
          //
               if strsjr='' then
                  strsjr := fieldbyname('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString
                else
                 strsjr :=  strsjr +',' +fieldbyname('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString;
               Next;
             end;
             if(pos('@',strsjr)<1) then
             begin
               Application.MessageBox('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ռ<EFBFBD><D5BC>˵<EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>ȷ,<2C><>ȷ<EFBFBD>Ϻ<EFBFBD><CFBA><EFBFBD>ת<EFBFBD><D7AA>!','<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_OK+MB_ICONINFORMATION) ;
               continue;
             end;
             First;
             //**
             lsttsk.Add(qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString );
             //<---------------
             {mailSend.EmptyTable;
             mailSend.Open;
             mailSend.Insert;
             mailSend.FieldByName('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString:= strsjr;//fieldbyname('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString;
             mailSend.FieldByName('<27>ʼ<EFBFBD>ǩ<EFBFBD><C7A9>').AsString:=MailSignName;//frm_data_share.t_sys_employee.fieldbyname('<27>ʼ<EFBFBD>ǩ<EFBFBD><C7A9>').AsString;
             }
              qryMailQuee.Insert;
              qryMailQuee.FieldByName('qid').AsString:=taskQNo;
              qryMailQuee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
              qryMailQuee.FieldByName('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString:=strsjr;
              qryMailQuee.FieldByName('<27>ʼ<EFBFBD>ǩ<EFBFBD><C7A9>').AsString:=MailSignName;//frm_data_share.t_sys_employee.fieldbyname('<27>ʼ<EFBFBD>ǩ<EFBFBD><C7A9>').AsString;

                //YJ_FILEID:=m_qryTask.fieldbyname('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>').AsString;

                str:=qry1task.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').AsString+'<27><><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>'  ;// fieldbyname('<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>').AsString +FormatDateTime('YYYYMMDDHHMMSS',now) ;

                qryMailQuee.fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString :=str;
                qryMailQuee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=qry1task.fieldbyname('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').AsString ;
                if fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').IsNull then
                str:=' '
                else
                str:=fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;
                //mailSend.FieldByName('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString:=str;
                qryMailQuee.FieldByName('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString:=str;


                qryMailQuee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=tasktype;
                qryMailQuee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
                qryMailQuee.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=qry1task.fieldbyname('SEA<45><41><EFBFBD><EFBFBD>').AsString ;
                qryMailQuee.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString:=qry1task.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').AsString ;
                qryMailQuee.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
                qryMailQuee.Post;
                //---------->
                try
                qry1task.Connection.BeginTrans;
                //  sendmail(mailSend,FNType,qry1task.fieldbyname('SEA<45><41><EFBFBD><EFBFBD>').AsString,ishtml) ;
                //<2F><><EFBFBD><EFBFBD>״̬
                qry1task.Edit;
                //qry1task.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
                //qry1task.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=1;
                qry1task.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:='ת<><D7AA><EFBFBD><EFBFBD>';//'<27><>ת<EFBFBD><D7AA>';
                qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
                qry1task.Post;
                //
                strsql:='INSERT INTO t_op_task_state ( [<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD>״̬],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>])VALUES (''%s'' ,''%s'' ,''%s'')';
                strsql:=Format(strsql,[qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'ת<><D7AA><EFBFBD><EFBFBD>',employee] );  // <20><>ת<EFBFBD><D7AA>
                qry1task.Connection.Execute(strsql);
                qry1task.Connection.CommitTrans;

                aQuery.Close();

            except
              on ex:exception do
              begin
                 qry1task.Connection.RollbackTrans;
                 Application.MessageBox(PChar('ת<><D7AA>ʧ<EFBFBD><CAA7>:'+ex.Message),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_OK+MB_ICONINFORMATION);
                 continue;
              end;


             end;

           end  ;
         end else begin
            Application.MessageBox(PChar('<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޷<EFBFBD>ת<EFBFBD><D7AA><EFBFBD><EFBFBD>'),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_OK+MB_ICONINFORMATION);
         end;

       end;
     end;
    finally
      FreeAndNil(aQuery);
      FreeAndNil(qryMail);
    end;
   qry1task.requery();
   //<2F><><EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>߳<EFBFBD>
  //   sendmailBatch(taskQNo);
     myThread1 := TMyThread.Create(taskQNo); // <20><><EFBFBD><EFBFBD><EFBFBD>̲߳<DFB3><CCB2><EFBFBD><EFBFBD><EFBFBD>
     myThread1.OnTerminate:=MyOnTerminate;
     myThread1.Resume;
end;

procedure Tfrm_tree_main.MenuItem9Click(Sender: TObject);
var
  optype:string;
  isok:Boolean;
  sql,strtmp:string;
  mainno,bsno,filename,filetype,Ofiletype:string;
  i:Integer;
begin
    if(qry1task.RecordCount<1) then
    Exit;



   if(  Application.MessageBox(PChar('<27><>ȷʵҪȷ<D2AA>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?'),'<27><>Ϣ<EFBFBD><CFA2>ʾ',MB_YESNO+ MB_ICONQUESTION)<>IDYES) then
  Exit;

   Ofiletype:='<27><><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>';


      for i:=0 to dxdbgrd1_task.SelectedCount-1 do
      begin
        qry1task.GotoBookmark(pointer(dxdbgrd1_task.selectedrows[i]));
        strtmp:=qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
       if ((Ofiletype=strtmp)) then
       begin
          optype:='<27><><EFBFBD><EFBFBD>';
          isok:=true;
          try
            qry1task.Connection.BeginTrans;
        //<2F>ҵ<EFBFBD>
            mainno:=qry1task.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').AsString;
            bsno:=qry1task.fieldbyname('SEA<45><41><EFBFBD><EFBFBD>').AsString;
            filename:=qry1task.fieldbyname('<27><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>·<EFBFBD><C2B7>').AsString;
            filetype:=Ofiletype;  //<2F><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>2<EFBFBD>ιҵ<CEB9>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>;<3B>ǻ<EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD>μ<EFBFBD><CEBC><EFBFBD><EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>
            isok:=  Guadan(mainNo,bsno, filetype,filename);
             if(isok=true) then
             begin
               qry1task.Edit;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').AsDateTime:=Now;
               qry1task.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=1;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString:=optype;
               qry1task.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
               qry1task.Post;
               sql:='INSERT INTO t_op_task_state ( [<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD>״̬],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>])VALUES (''%s'' ,''%s'' ,''%s'')';
               sql:=Format(sql,[qry1task.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,optype,employee] );
               qry1task.Connection.Execute(sql);
               qry1task.Connection.CommitTrans;
             end
             else
             begin
               qry1task.Connection.RollbackTrans;
             end;
         except
            on e:Exception do
            begin
              qry1task.Connection.RollbackTrans;
               Application.MessageBox(PChar('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+E.Message),'<27><>Ϣ<EFBFBD><CFA2>ʾ');
            end;
         end;
       end;
     end;
        qry1task.requery();

end;

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

procedure Tfrm_tree_main.Act9393Execute(Sender: TObject);
begin

 try
    frm_code_goods_inv:=tfrm_code_goods_inv.Create (self);
    frm_code_goods_inv.ShowModal;
  finally
    frm_code_goods_inv.Free;
  end;
end;

procedure Tfrm_tree_main.Act9505Execute(Sender: TObject);
begin
  try
    frm_code_trade_msc:=tfrm_code_trade_msc.Create (self);
    frm_code_trade_msc.ShowModal;
  finally
    frm_code_trade_msc.Free;
  end;
end;

procedure Tfrm_tree_main.bsSkinButton1Click(Sender: TObject);
var
  aQuery:TADOQuery;
  str:string;
begin
  if(qry1task.RecordCount<1) then
  Exit;
  qry_op_seae.close;
  qry_op_seae.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=qry1task.FieldByName('SEA<45><41><EFBFBD><EFBFBD>').AsString;
  qry_op_seae.Open;
  if not  qry_op_seae.IsEmpty then begin
 if qry_op_seae.FieldByName('<27>ͻ<EFBFBD><CDBB>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then begin
    aQuery:=CreateAdoQuery;
    try
      with aQuery do begin
        close;sql.Clear;
        SQL.Add('select * from t_code_cust_mailproject_detail where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+qry_op_seae.FieldByName('<27>ͻ<EFBFBD><CDBB>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27>ᵥ<EFBFBD><E1B5A5><EFBFBD>»<EFBFBD>ֽ'' ');
        Open;
        if not isempty then begin
        mailSend.EmptyTable;
        mailSend.Open;
        mailSend.Insert;
        mailSend.FieldByName('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString:=fieldbyname('<27>ռ<EFBFBD><D5BC><EFBFBD>').AsString;
        str:=fieldbyname('<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>').AsString;
        str:=StringReplace(str,'[<5B><><EFBFBD>ᵥ<EFBFBD><E1B5A5>]',qry_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,[]);
           // <20><><EFBFBD><EFBFBD>ί<EFBFBD>б<EFBFBD><D0B1><EFBFBD>  <20>̽<EFBFBD><CCBD><EFBFBD> 2017-07-20
        str:=StringReplace(str,'[ί<>б<EFBFBD><D0B1><EFBFBD>]',qry_op_seae.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString,[]);

        str:=StringReplace(str,'[<5B><><EFBFBD><EFBFBD>]',qry_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,[]);
        str:=StringReplace(str,'[<5B><><EFBFBD><EFBFBD>]',qry_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,[]);
        str:=StringReplace(str,'[ί<>е<EFBFBD>λ]',qry_op_seae.fieldbyname('ί<>е<EFBFBD>λ').AsString,[]);
        mailSend.FieldByName('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString:=str;
        str:=fieldbyname('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString;
        str:=StringReplace(str,'[<5B><><EFBFBD>ᵥ<EFBFBD><E1B5A5>]',qry_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,[]);
              // <20><><EFBFBD><EFBFBD>ί<EFBFBD>б<EFBFBD><D0B1><EFBFBD>  <20>̽<EFBFBD><CCBD><EFBFBD> 2017-07-22
        str:=StringReplace(str,'[ί<>б<EFBFBD><D0B1><EFBFBD>]',qry_op_seae.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString,[]);

        str:=StringReplace(str,'[<5B><><EFBFBD><EFBFBD>]',qry_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,[]);
        str:=StringReplace(str,'[<5B><><EFBFBD><EFBFBD>]',qry_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,[]);
        str:=StringReplace(str,'[ί<>е<EFBFBD>λ]',qry_op_seae.fieldbyname('ί<>е<EFBFBD>λ').AsString,[]);
        mailSend.FieldByName('<27>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD>').AsString:=str;
        frm_data_share.t_sys_employee.Locate('<27><><EFBFBD><EFBFBD>',employee,[]);
         mailSend.FieldByName('<27>ʼ<EFBFBD>ǩ<EFBFBD><C7A9>').AsString:=MailSignName;//frm_data_share.t_sys_employee.fieldbyname('<27>ʼ<EFBFBD>ǩ<EFBFBD><C7A9>').AsString;
        str:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
        str:=StringReplace(str,'[<5B><><EFBFBD>ᵥ<EFBFBD><E1B5A5>]',qry_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,[]);
        // <20><><EFBFBD><EFBFBD>ί<EFBFBD>б<EFBFBD><D0B1><EFBFBD>  <20>̽<EFBFBD><CCBD><EFBFBD> 2017-07-20
        str:=StringReplace(str,'[ί<>б<EFBFBD><D0B1><EFBFBD>]',qry_op_seae.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString,[]);

        str:=StringReplace(str,'[<5B><><EFBFBD><EFBFBD>]',qry_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,[]);
        str:=StringReplace(str,'[<5B><><EFBFBD><EFBFBD>]',qry_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString,[]);
        str:=StringReplace(str,'[ί<>е<EFBFBD>λ]',qry_op_seae.fieldbyname('ί<>е<EFBFBD>λ').AsString,[]);
        mailSend.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=str;
        mailSend.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
        mailSend.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=qry_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
        mailSend.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString:=qry_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
        mailSend.Post;
         sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>̨',2,qry_op_seae1,nil,nil,nil,qry_op_seae1,nil,nil,nil,nil,nil,nil,True,'',nil,nil,mailSend);
        end else sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>̨',2,qry_op_seae1,nil,nil,nil,qry_op_seae1,nil,nil,nil,nil,nil,nil);
      end;
    finally
      FreeAndNil(aQuery);
    end;
  end else begin
    sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>̨',2,qry_op_seae1,nil,nil,nil,qry_op_seae1,nil,nil,nil,nil,nil,nil);
  end;

  end else begin
    ShowMessage('ҵ<><D2B5><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD>');
  end;

end;

procedure Tfrm_tree_main.Act9506Execute(Sender: TObject);
begin
 try
    frm_code_dgunno:=tfrm_code_dgunno.Create (self);
    frm_code_dgunno.ShowModal;
  finally
    frm_code_dgunno.Free;
  end;
end;

procedure Tfrm_tree_main.Act9507Execute(Sender: TObject);
begin
 try
    frm_code_package_dg:=tfrm_code_package_dg.Create (self);
    frm_code_package_dg.ShowModal;
  finally
    frm_code_package_dg.Free;
  end;
end;

procedure Tfrm_tree_main.Act5493Execute(Sender: TObject);
begin
  if not assigned(frm_rp_nolx_ttl) then
    frm_rp_nolx_ttl:=tfrm_rp_nolx_ttl.Create (self);
  frm_rp_nolx_ttl.ManualDock(frm_main.SearchTabs('frm_rp_nolx_ttl',frm_rp_nolx_ttl.caption,'529'),nil,alClient);
  frm_rp_nolx_ttl.show;
end;

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

procedure Tfrm_tree_main.Act4991Execute(Sender: TObject);
begin
   if not assigned(frm_cw_pingzheng_u8) then
    frm_cw_pingzheng_u8:=tfrm_cw_pingzheng_u8.Create (self);
  frm_cw_pingzheng_u8.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_u8',frm_cw_pingzheng_u8.caption,'4991'),nil,alClient);
  frm_cw_pingzheng_u8.show;
end;

procedure Tfrm_tree_main.Act4992Execute(Sender: TObject);
begin
   if not assigned(frm_cw_pingzheng_jku8) then
    frm_cw_pingzheng_jku8:=tfrm_cw_pingzheng_jku8.Create (self);
  frm_cw_pingzheng_jku8.ManualDock(frm_main.SearchTabs('frm_cw_pingzheng_jku8',frm_cw_pingzheng_jku8.caption,'4992'),nil,alClient);
  frm_cw_pingzheng_jku8.show;
end;

procedure Tfrm_tree_main.Act4302Execute(Sender: TObject);
begin
     if not assigned(frm_rp_dui_auto) then
    frm_rp_dui_auto:=tfrm_rp_dui_auto.Create (self);
  frm_rp_dui_auto.ManualDock(frm_main.SearchTabs('frm_rp_dui_auto',frm_rp_dui_auto.caption,'4302'),nil,alClient);
  frm_rp_dui_auto.show;
end;

procedure Tfrm_tree_main.Act5365Execute(Sender: TObject);
begin
      if not assigned(frm_rp_rp_seae2) then
    frm_rp_rp_seae2:=tfrm_rp_rp_seae2.Create (self);
  frm_rp_rp_seae2.ManualDock(frm_main.SearchTabs('frm_rp_rp_seae2',frm_rp_rp_seae2.caption,'5365'),nil,alClient);
  frm_rp_rp_seae2.show;
end;

end.