{$INCLUDE t_main.inc} unit u_open_report; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, bsSkinCtrls; type Tfrm_open_report = class(TForm) bsSkinPanel3: TbsSkinPanel; bsSkinButton23: TbsSkinButton; bsSkinPanel2: TbsSkinPanel; bsSkinPanel4: TbsSkinPanel; bsSkinGroupBox3: TbsSkinGroupBox; bsSkinGroupBox7: TbsSkinGroupBox; bsSkinButton43: TbsSkinButton; bsSkinButton44: TbsSkinButton; bsSkinButton46: TbsSkinButton; bsSkinButton47: TbsSkinButton; bsSkinButton31: TbsSkinButton; bsSkinButton14: TbsSkinButton; bsSkinGroupBox8: TbsSkinGroupBox; bsSkinButton42: TbsSkinButton; bsSkinButton45: TbsSkinButton; bsSkinButton48: TbsSkinButton; bsSkinButton49: TbsSkinButton; bsSkinButton50: TbsSkinButton; bsSkinGroupBox9: TbsSkinGroupBox; bsSkinButton51: TbsSkinButton; bsSkinButton52: TbsSkinButton; bsSkinButton53: TbsSkinButton; bsSkinButton54: TbsSkinButton; bsSkinButton55: TbsSkinButton; bsSkinGroupBox10: TbsSkinGroupBox; bsSkinButton56: TbsSkinButton; bsSkinButton57: TbsSkinButton; bsSkinButton58: TbsSkinButton; bsSkinButton59: TbsSkinButton; bsSkinButton60: TbsSkinButton; bsSkinPanel1: TbsSkinPanel; bsSkinGroupBox1: TbsSkinGroupBox; bsSkinButton1: TbsSkinButton; bsSkinButton2: TbsSkinButton; bsSkinButton4: TbsSkinButton; bsSkinButton5: TbsSkinButton; bsSkinButton6: TbsSkinButton; bsSkinButton30: TbsSkinButton; bsSkinButton32: TbsSkinButton; bsSkinButton11: TbsSkinButton; bsSkinGroupBox2: TbsSkinGroupBox; bsSkinButton8: TbsSkinButton; bsSkinButton10: TbsSkinButton; bsSkinButton13: TbsSkinButton; bsSkinButton36: TbsSkinButton; bsSkinButton16: TbsSkinButton; bsSkinButton9: TbsSkinButton; bsSkinGroupBox4: TbsSkinGroupBox; bsSkinButton15: TbsSkinButton; bsSkinButton17: TbsSkinButton; bsSkinButton18: TbsSkinButton; bsSkinButton28: TbsSkinButton; bsSkinButton34: TbsSkinButton; bsSkinButton12: TbsSkinButton; bsSkinGroupBox5: TbsSkinGroupBox; bsSkinButton22: TbsSkinButton; bsSkinButton24: TbsSkinButton; bsSkinButton7: TbsSkinButton; bsSkinButton38: TbsSkinButton; bsSkinButton40: TbsSkinButton; bsSkinGroupBox6: TbsSkinGroupBox; bsSkinButton19: TbsSkinButton; bsSkinButton20: TbsSkinButton; bsSkinButton21: TbsSkinButton; bsSkinButton26: TbsSkinButton; bsSkinButton41: TbsSkinButton; bsSkinButton3: TbsSkinButton; bsSkinButton25: TbsSkinButton; bsSkinButton27: TbsSkinButton; bsSkinButton29: TbsSkinButton; bsSkinButton33: TbsSkinButton; bsSkinButton37: TbsSkinButton; bsSkinButton39: TbsSkinButton; bsSkinButton61: TbsSkinButton; bsSkinButton62: TbsSkinButton; bsSkinButton63: TbsSkinButton; bsSkinButton64: TbsSkinButton; bsSkinButton35: TbsSkinButton; bsSkinButton65: TbsSkinButton; bsSkinButton66: TbsSkinButton; bsSkinButton68: TbsSkinButton; bsSkinGroupBox11: TbsSkinGroupBox; bsSkinButton69: TbsSkinButton; bsSkinButton70: TbsSkinButton; bsSkinPanel5: TbsSkinPanel; bsSkinButton71: TbsSkinButton; bsSkinButton80: TbsSkinButton; bsSkinButton73: TbsSkinButton; bsSkinButton74: TbsSkinButton; bsSkinButton75: TbsSkinButton; bsSkinButton76: TbsSkinButton; bsSkinButton77: TbsSkinButton; bsSkinButton72: TbsSkinButton; bsSkinButton78: TbsSkinButton; bsSkinButton82: TbsSkinButton; bsSkinButton83: TbsSkinButton; bsSkinButton67: TbsSkinButton; bsSkinButton79: TbsSkinButton; bsSkinButton81: TbsSkinButton; bsSkinButton84: TbsSkinButton; bsSkinButton85: TbsSkinButton; bsSkinButton86: TbsSkinButton; bsSkinButton87: TbsSkinButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure bsSkinButton15Click(Sender: TObject); procedure bsSkinButton28Click(Sender: TObject); procedure bsSkinButton8Click(Sender: TObject); procedure bsSkinButton16Click(Sender: TObject); procedure bsSkinButton22Click(Sender: TObject); procedure bsSkinButton19Click(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure bsSkinButton43Click(Sender: TObject); procedure bsSkinButton42Click(Sender: TObject); procedure bsSkinButton51Click(Sender: TObject); procedure bsSkinButton56Click(Sender: TObject); procedure bsSkinButton33Click(Sender: TObject); procedure bsSkinButton17Click(Sender: TObject); procedure bsSkinButton24Click(Sender: TObject); procedure bsSkinButton36Click(Sender: TObject); procedure bsSkinButton20Click(Sender: TObject); procedure bsSkinButton47Click(Sender: TObject); procedure bsSkinButton45Click(Sender: TObject); procedure bsSkinButton52Click(Sender: TObject); procedure bsSkinButton57Click(Sender: TObject); procedure bsSkinButton18Click(Sender: TObject); procedure bsSkinButton34Click(Sender: TObject); procedure bsSkinButton10Click(Sender: TObject); procedure bsSkinButton13Click(Sender: TObject); procedure bsSkinButton7Click(Sender: TObject); procedure bsSkinButton38Click(Sender: TObject); procedure bsSkinButton40Click(Sender: TObject); procedure bsSkinButton21Click(Sender: TObject); procedure bsSkinButton26Click(Sender: TObject); procedure bsSkinButton41Click(Sender: TObject); procedure bsSkinButton44Click(Sender: TObject); procedure bsSkinButton46Click(Sender: TObject); procedure bsSkinButton31Click(Sender: TObject); procedure bsSkinButton48Click(Sender: TObject); procedure bsSkinButton49Click(Sender: TObject); procedure bsSkinButton50Click(Sender: TObject); procedure bsSkinButton53Click(Sender: TObject); procedure bsSkinButton54Click(Sender: TObject); procedure bsSkinButton55Click(Sender: TObject); procedure bsSkinButton58Click(Sender: TObject); procedure bsSkinButton59Click(Sender: TObject); procedure bsSkinButton60Click(Sender: TObject); procedure bsSkinButton9Click(Sender: TObject); procedure bsSkinButton14Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton12Click(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); procedure bsSkinButton30Click(Sender: TObject); procedure bsSkinButton32Click(Sender: TObject); procedure bsSkinButton4Click(Sender: TObject); procedure bsSkinButton5Click(Sender: TObject); procedure bsSkinButton6Click(Sender: TObject); procedure bsSkinButton11Click(Sender: TObject); procedure bsSkinButton23Click(Sender: TObject); procedure bsSkinPanel1Resize(Sender: TObject); procedure bsSkinPanel4Resize(Sender: TObject); procedure bsSkinButton25Click(Sender: TObject); procedure bsSkinButton27Click(Sender: TObject); procedure bsSkinButton29Click(Sender: TObject); procedure bsSkinButton61Click(Sender: TObject); procedure bsSkinButton39Click(Sender: TObject); procedure bsSkinButton63Click(Sender: TObject); procedure bsSkinButton62Click(Sender: TObject); procedure bsSkinButton37Click(Sender: TObject); procedure bsSkinButton35Click(Sender: TObject); procedure bsSkinButton65Click(Sender: TObject); procedure bsSkinButton66Click(Sender: TObject); procedure bsSkinButton67Click(Sender: TObject); procedure bsSkinButton68Click(Sender: TObject); procedure bsSkinButton70Click(Sender: TObject); procedure bsSkinButton69Click(Sender: TObject); procedure bsSkinButton71Click(Sender: TObject); procedure bsSkinButton73Click(Sender: TObject); procedure bsSkinButton74Click(Sender: TObject); procedure bsSkinButton75Click(Sender: TObject); procedure bsSkinButton76Click(Sender: TObject); procedure bsSkinButton77Click(Sender: TObject); procedure bsSkinButton72Click(Sender: TObject); procedure bsSkinButton80Click(Sender: TObject); procedure bsSkinButton78Click(Sender: TObject); procedure bsSkinButton82Click(Sender: TObject); procedure bsSkinButton83Click(Sender: TObject); procedure bsSkinButton79Click(Sender: TObject); procedure bsSkinButton81Click(Sender: TObject); procedure bsSkinButton84Click(Sender: TObject); procedure bsSkinButton85Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure bsSkinButton86Click(Sender: TObject); procedure bsSkinButton87Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var frm_open_report: Tfrm_open_report; implementation uses u_main, {$IFDEF YWTAIZHANG} u_rp_tai_seae,u_rp_tai_total,u_rp_tai_seae_pin,u_rp_tai_aire,u_rp_tai_seai,u_rp_tai_airi, {$ENDIF} u_rp_no_seae_accept, u_rp_no_total, u_rp_zl_seae, u_rp_in_seae, u_rp_in_ch, u_rp_rp_seae, u_rp_fee_modify, u_rp_zl_seai, u_rp_no_seai, u_rp_in_seai, u_rp_rp_seai, u_rp_no_aire, u_rp_no_airi, u_rp_zl_aire, u_rp_zl_airi, u_rp_zl_total, u_rp_in_aire, u_rp_in_airi, u_rp_in_total, u_rp_rp_aire, u_rp_rp_airi, u_rp_rp_total, {$IFDEF ZJFENXI} u_rp_zj_seae,u_rp_zj_seai,u_rp_zj_aire,u_rp_zj_airi, u_rp_zj_total, u_rp_zj_zou, {$ENDIF} {$IFDEF TBQITA} u_rp_zou_aire, u_rp_zou_airi,u_rp_fen_aire,u_rp_fen_airi,u_rp_zou_seai, u_rp_fen_seai,u_rp_zou_seae, u_rp_fen_seae,u_rp_fen_seae_ctn, {$ENDIF} u_rp_zou_total, u_rp_fen_total, {$IFDEF QFZOUSHI} u_rp_no_zou, {$ENDIF} u_rp_dui_seae_accept, u_rp_dui_seae_pay, u_rp_dui_seai_accept, u_rp_dui_seai_pay, u_rp_dui_aire_accept, u_rp_dui_aire_pay, u_rp_dui_airi_accept, u_rp_dui_airi_pay, {$IFDEF DLFENZHANG}u_rp_fenzhang,u_rp_rp_sea_daili,{$ENDIF} u_rp_rp_seae_pin, u_rp_ch_balance_accept, u_rp_ch_balance_pay, u_rp_dui_accept, u_rp_dui_pay, u_rp_ch_balance_rate, u_rp_ch_currency_change, u_rp_in_fenlei, {$IFDEF FYZHUANGTAI} u_rp_ch_fee_state, {$ENDIF} {$IFDEF ZHMXTONGJI}u_rp_ch_total,{$ENDIF} u_rp_yunjia_seae, u_rp_yunfeibl_seae, u_rp_dui_accepttotal, {$IFDEF QFFZZONGHE} u_rp_ch_clienttotal, {$ENDIF} {$IFDEF ZHYDTONGJI} u_rp_rp_monthtotal, {$ENDIF} {$IFDEF XSGUANLI} u_rp_sales_profit,u_rp_sales_profitLcx,u_rp_sales_profit_lx, {$ENDIF} {$IFDEF JGCHE}u_rp_no_airtruck,{$ENDIF} {$IFDEF ZHZIYOU}u_rp_chfree_total,{$ENDIF} U_rp_fee_outamt,{$IFDEF KHGUANLI} u_rp_crm_credit,{$ENDIF} {$IFDEF GYSHANG}u_rp_apply_no, u_rp_truck_no,{$ENDIF} {$IFDEF QFYDFENXI} u_rp_no_monthtotal, {$ENDIF} u_rp_hl_histry,{$IFDEF WLZHANG}u_rp_wl_total,u_rp_ch_genleg,{$ENDIF} my_sys_function, u_rp_ch_balance_detail, u_rp_pin_total; {$R *.dfm} procedure Tfrm_open_report.FormClose(Sender: TObject; var Action: TCloseAction); begin frm_open_report.Hide; frm_open_report.ManualFloat(frm_open_report.BoundsRect ); frm_open_report:=nil; end; procedure Tfrm_open_report.bsSkinButton15Click(Sender: TObject); begin {$IFDEF YWTAIZHANG} if not if_open('040') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_tai_seae) then frm_rp_tai_seae:=tfrm_rp_tai_seae.Create (self); frm_rp_tai_seae.ManualDock(frm_main.SearchTabs('frm_rp_tai_seae',frm_rp_tai_seae.caption),nil,alClient); frm_rp_tai_seae.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton28Click(Sender: TObject); begin {$IFDEF YWTAIZHANG} if not if_open('041') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_tai_total.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton8Click(Sender: TObject); begin if not if_open('042') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_no_seae) then frm_rp_no_seae:=tfrm_rp_no_seae.Create (self); frm_rp_no_seae.ManualDock(frm_main.SearchTabs('frm_rp_no_seae',frm_rp_no_seae.caption),nil,alClient); frm_rp_no_seae.show; end; procedure Tfrm_open_report.bsSkinButton16Click(Sender: TObject); begin if not if_open('043') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_no_total.show; end; procedure Tfrm_open_report.bsSkinButton22Click(Sender: TObject); begin if not if_open('044') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_zl_seae) then frm_rp_zl_seae:=tfrm_rp_zl_seae.Create (self); frm_rp_zl_seae.ManualDock(frm_main.SearchTabs('frm_rp_zl_seae',frm_rp_zl_seae.caption),nil,alClient); frm_rp_zl_seae.show; end; procedure Tfrm_open_report.bsSkinButton19Click(Sender: TObject); begin if not if_open('045') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_in_seae) then frm_rp_in_seae:=tfrm_rp_in_seae.Create (self); frm_rp_in_seae.ManualDock(frm_main.SearchTabs('frm_rp_in_seae',frm_rp_in_seae.caption),nil,alClient); frm_rp_in_seae.show; end; procedure Tfrm_open_report.bsSkinButton3Click(Sender: TObject); begin if not if_open('046') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_in_ch.show; end; procedure Tfrm_open_report.bsSkinButton43Click(Sender: TObject); begin {$IFDEF ZJFENXI} if not if_open('047') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_zj_seae) then frm_rp_zj_seae:=tfrm_rp_zj_seae.Create (self); frm_rp_zj_seae.ManualDock(frm_main.SearchTabs('frm_rp_zj_seae',frm_rp_zj_seae.caption),nil,alClient); frm_rp_zj_seae.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton42Click(Sender: TObject); begin if not if_open('048') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_rp_seae.show; end; procedure Tfrm_open_report.bsSkinButton51Click(Sender: TObject); begin {$IFDEF TBQITA} if not if_open('049') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_zou_seae.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton56Click(Sender: TObject); begin {$IFDEF TBQITA} if not if_open('050') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_fen_seae.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton33Click(Sender: TObject); begin if not if_open('051') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_fee_modify.show; end; procedure Tfrm_open_report.bsSkinButton17Click(Sender: TObject); begin {$IFDEF YWTAIZHANG} if not if_open('062') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_tai_seai) then frm_rp_tai_seai:=tfrm_rp_tai_seai.Create (self); frm_rp_tai_seai.ManualDock(frm_main.SearchTabs('frm_rp_tai_seai',frm_rp_tai_seai.caption),nil,alClient); frm_rp_tai_seai.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton24Click(Sender: TObject); begin if not if_open('063') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_zl_seai) then frm_rp_zl_seai:=tfrm_rp_zl_seai.Create (self); frm_rp_zl_seai.ManualDock(frm_main.SearchTabs('frm_rp_zl_seai',frm_rp_zl_seai.caption),nil,alClient); frm_rp_zl_seai.show; end; procedure Tfrm_open_report.bsSkinButton36Click(Sender: TObject); begin if not if_open('064') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_no_seai) then frm_rp_no_seai:=tfrm_rp_no_seai.Create (self); frm_rp_no_seai.ManualDock(frm_main.SearchTabs('frm_rp_no_seai',frm_rp_no_seai.caption),nil,alClient); frm_rp_no_seai.show; end; procedure Tfrm_open_report.bsSkinButton20Click(Sender: TObject); begin if not if_open('065') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_in_seai) then frm_rp_in_seai:=tfrm_rp_in_seai.Create (self); frm_rp_in_seai.ManualDock(frm_main.SearchTabs('frm_rp_in_seai',frm_rp_in_seai.caption),nil,alClient); frm_rp_in_seai.show; end; procedure Tfrm_open_report.bsSkinButton47Click(Sender: TObject); begin {$IFDEF ZJFENXI} if not if_open('066') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_zj_seai) then frm_rp_zj_seai:=tfrm_rp_zj_seai.Create (self); frm_rp_zj_seai.ManualDock(frm_main.SearchTabs('frm_rp_zj_seai',frm_rp_zj_seai.caption),nil,alClient); frm_rp_zj_seai.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton45Click(Sender: TObject); begin if not if_open('067') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_rp_seai) then frm_rp_rp_seai:=tfrm_rp_rp_seai.Create (self); frm_rp_rp_seai.ManualDock(frm_main.SearchTabs('frm_rp_rp_seai',frm_rp_rp_seai.caption),nil,alClient); frm_rp_rp_seai.show; end; procedure Tfrm_open_report.bsSkinButton52Click(Sender: TObject); begin {$IFDEF TBQITA} if not if_open('068') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_zou_seai.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton57Click(Sender: TObject); begin {$IFDEF TBQITA} if not if_open('069') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_fen_seai.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton18Click(Sender: TObject); begin {$IFDEF YWTAIZHANG} if not if_open('088') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_tai_aire) then frm_rp_tai_aire:=tfrm_rp_tai_aire.Create (self); frm_rp_tai_aire.ManualDock(frm_main.SearchTabs('frm_rp_tai_aire',frm_rp_tai_aire.caption),nil,alClient); frm_rp_tai_aire.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton34Click(Sender: TObject); begin {$IFDEF YWTAIZHANG} if not if_open('089') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_tai_airi) then frm_rp_tai_airi:=tfrm_rp_tai_airi.Create (self); frm_rp_tai_airi.ManualDock(frm_main.SearchTabs('frm_rp_tai_airi',frm_rp_tai_airi.caption),nil,alClient); frm_rp_tai_airi.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton10Click(Sender: TObject); begin if not if_open('098') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_no_aire) then frm_rp_no_aire:=tfrm_rp_no_aire.Create (self); frm_rp_no_aire.ManualDock(frm_main.SearchTabs('frm_rp_no_aire',frm_rp_no_aire.caption),nil,alClient); frm_rp_no_aire.show; end; procedure Tfrm_open_report.bsSkinButton13Click(Sender: TObject); begin if not if_open('099') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_no_airi) then frm_rp_no_airi:=tfrm_rp_no_airi.Create (self); frm_rp_no_airi.ManualDock(frm_main.SearchTabs('frm_rp_no_airi',frm_rp_no_airi.caption),nil,alClient); frm_rp_no_airi.show; end; procedure Tfrm_open_report.bsSkinButton7Click(Sender: TObject); begin if not if_open('100') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_zl_aire) then frm_rp_zl_aire:=tfrm_rp_zl_aire.Create (self); frm_rp_zl_aire.ManualDock(frm_main.SearchTabs('frm_rp_zl_aire',frm_rp_zl_aire.caption),nil,alClient); frm_rp_zl_aire.show; end; procedure Tfrm_open_report.bsSkinButton38Click(Sender: TObject); begin if not if_open('101') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_zl_airi) then frm_rp_zl_airi:=tfrm_rp_zl_airi.Create (self); frm_rp_zl_airi.ManualDock(frm_main.SearchTabs('frm_rp_zl_airi',frm_rp_zl_airi.caption),nil,alClient); frm_rp_zl_airi.show; end; procedure Tfrm_open_report.bsSkinButton40Click(Sender: TObject); begin if not if_open('102') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_zl_total.show; end; procedure Tfrm_open_report.bsSkinButton21Click(Sender: TObject); begin if not if_open('103') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_in_aire) then frm_rp_in_aire:=tfrm_rp_in_aire.Create (self); frm_rp_in_aire.ManualDock(frm_main.SearchTabs('frm_rp_in_aire',frm_rp_in_aire.caption),nil,alClient); frm_rp_in_aire.show; end; procedure Tfrm_open_report.bsSkinButton26Click(Sender: TObject); begin if not if_open('104') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_in_airi) then frm_rp_in_airi:=tfrm_rp_in_airi.Create (self); frm_rp_in_airi.ManualDock(frm_main.SearchTabs('frm_rp_in_airi',frm_rp_in_airi.caption),nil,alClient); frm_rp_in_airi.show; end; procedure Tfrm_open_report.bsSkinButton41Click(Sender: TObject); begin if not if_open('105') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_in_total.show; end; procedure Tfrm_open_report.bsSkinButton44Click(Sender: TObject); begin {$IFDEF ZJFENXI} if not if_open('106') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_zj_aire) then frm_rp_zj_aire:=tfrm_rp_zj_aire.Create (self); frm_rp_zj_aire.ManualDock(frm_main.SearchTabs('frm_rp_zj_aire',frm_rp_zj_aire.caption),nil,alClient); frm_rp_zj_aire.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton46Click(Sender: TObject); begin {$IFDEF ZJFENXI} if not if_open('107') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_zj_airi) then frm_rp_zj_airi:=tfrm_rp_zj_airi.Create (self); frm_rp_zj_airi.ManualDock(frm_main.SearchTabs('frm_rp_zj_airi',frm_rp_zj_airi.caption),nil,alClient); frm_rp_zj_airi.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton31Click(Sender: TObject); begin {$IFDEF ZJFENXI} if not if_open('108') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_zj_total.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton48Click(Sender: TObject); begin if not if_open('109') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_rp_aire) then frm_rp_rp_aire:=tfrm_rp_rp_aire.Create (self); frm_rp_rp_aire.ManualDock(frm_main.SearchTabs('frm_rp_rp_aire',frm_rp_rp_aire.caption),nil,alClient); frm_rp_rp_aire.show; end; procedure Tfrm_open_report.bsSkinButton49Click(Sender: TObject); begin if not if_open('110') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_rp_airi) then frm_rp_rp_airi:=tfrm_rp_rp_airi.Create (self); frm_rp_rp_airi.ManualDock(frm_main.SearchTabs('frm_rp_rp_airi',frm_rp_rp_airi.caption),nil,alClient); frm_rp_rp_airi.show; end; procedure Tfrm_open_report.bsSkinButton50Click(Sender: TObject); begin if not if_open('111') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_rp_total.show; end; procedure Tfrm_open_report.bsSkinButton53Click(Sender: TObject); begin {$IFDEF TBQITA} if not if_open('112') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_zou_aire.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton54Click(Sender: TObject); begin {$IFDEF TBQITA} if not if_open('113') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_zou_airi.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton55Click(Sender: TObject); begin if not if_open('114') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_zou_total.show; end; procedure Tfrm_open_report.bsSkinButton58Click(Sender: TObject); begin {$IFDEF TBQITA} if not if_open('115') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_fen_aire.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton59Click(Sender: TObject); begin {$IFDEF TBQITA} if not if_open('116') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_fen_airi.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton60Click(Sender: TObject); begin if not if_open('117') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_fen_total) then frm_rp_fen_total:=tfrm_rp_fen_total.Create (self); frm_rp_fen_total.ManualDock(frm_main.SearchTabs('frm_rp_fen_total',frm_rp_fen_total.caption),nil,alClient); frm_rp_fen_total.show; end; procedure Tfrm_open_report.bsSkinButton9Click(Sender: TObject); begin {$IFDEF QFZOUSHI} if not if_open('129') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_no_zou.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton14Click(Sender: TObject); begin {$IFDEF ZJFENXI} if not if_open('130') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_zj_zou.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton2Click(Sender: TObject); begin if not if_open('131') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_dui_seae_accept) then frm_rp_dui_seae_accept:=tfrm_rp_dui_seae_accept.Create (self); frm_rp_dui_seae_accept.ManualDock(frm_main.SearchTabs('frm_rp_dui_seae_accept',frm_rp_dui_seae_accept.caption),nil,alClient); frm_rp_dui_seae_accept.show; end; procedure Tfrm_open_report.bsSkinButton12Click(Sender: TObject); begin {$IFDEF YWTAIZHANG} if not if_open('150') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_tai_seae_pin.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton1Click(Sender: TObject); begin if not if_open('132') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_dui_seae_pay) then frm_rp_dui_seae_pay:=tfrm_rp_dui_seae_pay.Create (self); frm_rp_dui_seae_pay.ManualDock(frm_main.SearchTabs('frm_rp_dui_seae_pay',frm_rp_dui_seae_pay.caption),nil,alClient); frm_rp_dui_seae_pay.show; end; procedure Tfrm_open_report.bsSkinButton30Click(Sender: TObject); begin if not if_open('133') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_dui_seai_accept) then frm_rp_dui_seai_accept:=tfrm_rp_dui_seai_accept.Create (self); frm_rp_dui_seai_accept.ManualDock(frm_main.SearchTabs('frm_rp_dui_seai_accept',frm_rp_dui_seai_accept.caption),nil,alClient); frm_rp_dui_seai_accept.show; end; procedure Tfrm_open_report.bsSkinButton32Click(Sender: TObject); begin if not if_open('134') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_dui_seai_pay) then frm_rp_dui_seai_pay:=tfrm_rp_dui_seai_pay.Create (self); frm_rp_dui_seai_pay.ManualDock(frm_main.SearchTabs('frm_rp_dui_seai_pay',frm_rp_dui_seai_pay.caption),nil,alClient); frm_rp_dui_seai_pay.show; end; procedure Tfrm_open_report.bsSkinButton4Click(Sender: TObject); begin if not if_open('135') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_dui_aire_accept) then frm_rp_dui_aire_accept:=tfrm_rp_dui_aire_accept.Create (self); frm_rp_dui_aire_accept.ManualDock(frm_main.SearchTabs('frm_rp_dui_aire_accept',frm_rp_dui_aire_accept.caption),nil,alClient); frm_rp_dui_aire_accept.show; end; procedure Tfrm_open_report.bsSkinButton5Click(Sender: TObject); begin if not if_open('136') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_dui_aire_pay) then frm_rp_dui_aire_pay:=tfrm_rp_dui_aire_pay.Create (self); frm_rp_dui_aire_pay.ManualDock(frm_main.SearchTabs('frm_rp_dui_aire_pay',frm_rp_dui_aire_pay.caption),nil,alClient); frm_rp_dui_aire_pay.show; end; procedure Tfrm_open_report.bsSkinButton6Click(Sender: TObject); begin if not if_open('137') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_dui_airi_accept) then frm_rp_dui_airi_accept:=tfrm_rp_dui_airi_accept.Create (self); frm_rp_dui_airi_accept.ManualDock(frm_main.SearchTabs('frm_rp_dui_airi_accept',frm_rp_dui_airi_accept.caption),nil,alClient); frm_rp_dui_airi_accept.show; end; procedure Tfrm_open_report.bsSkinButton11Click(Sender: TObject); begin if not if_open('138') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_dui_airi_pay) then frm_rp_dui_airi_pay:=tfrm_rp_dui_airi_pay.Create (self); frm_rp_dui_airi_pay.ManualDock(frm_main.SearchTabs('frm_rp_dui_airi_pay',frm_rp_dui_airi_pay.caption),nil,alClient); frm_rp_dui_airi_pay.show; end; procedure Tfrm_open_report.bsSkinButton23Click(Sender: TObject); begin close; end; procedure Tfrm_open_report.bsSkinPanel1Resize(Sender: TObject); var i:integer; begin i:=round(bsSkinPanel1.Width/5); bsSkinGroupBox4.Width:=i; bsSkinGroupBox1.Width:=i; bsSkinGroupBox2.Width:=i; bsSkinGroupBox5.Width:=i; end; procedure Tfrm_open_report.bsSkinPanel4Resize(Sender: TObject); var i:integer; begin i:=round(bsSkinPanel4.Width/5); bsSkinGroupBox10.Width:=i; bsSkinGroupBox7.Width:=i; bsSkinGroupBox8.Width:=i; bsSkinGroupBox9.Width:=i; begin limited_button('040',bsSkinButton15,51); limited_button('041',bsSkinButton28,51); limited_button('042',bsSkinButton8,523); limited_button('043',bsSkinButton16,521); limited_button('044',bsSkinButton22,525); limited_button('045',bsSkinButton19,41403); limited_button('046',bsSkinButton3,41401); limited_button('047',bsSkinButton43,61); limited_button('048',bsSkinButton42,5323); limited_button('049',bsSkinButton51,5381); limited_button('050',bsSkinButton56,5401); limited_button('051',bsSkinButton33,541); limited_button('062',bsSkinButton17,51); limited_button('063',bsSkinButton24,525); limited_button('064',bsSkinButton36,523); limited_button('065',bsSkinButton20,41403); limited_button('066',bsSkinButton47,61); limited_button('067',bsSkinButton45,5323); limited_button('068',bsSkinButton52,5382); limited_button('069',bsSkinButton57,5402); limited_button('088',bsSkinButton18,51); limited_button('089',bsSkinButton34,51); limited_button('098',bsSkinButton10,523); limited_button('099',bsSkinButton13,523); limited_button('100',bsSkinButton7,525); limited_button('101',bsSkinButton38,525); limited_button('102',bsSkinButton40,525); limited_button('103',bsSkinButton21,41403); limited_button('104',bsSkinButton26,41403); limited_button('105',bsSkinButton41,41403); limited_button('106',bsSkinButton44,61); limited_button('107',bsSkinButton46,61); limited_button('108',bsSkinButton31,61); limited_button('109',bsSkinButton48,5323); limited_button('110',bsSkinButton49,5323); limited_button('111',bsSkinButton50,5321); limited_button('111',bsSkinButton73,5330); limited_button('112',bsSkinButton53,5383); limited_button('113',bsSkinButton54,5384); limited_button('114',bsSkinButton55,5380); limited_button('115',bsSkinButton58,5403); limited_button('116',bsSkinButton59,5404); limited_button('117',bsSkinButton60,5400); limited_button('129',bsSkinButton9,522); limited_button('130',bsSkinButton14,62); limited_button('131',bsSkinButton2,43); limited_button('150',bsSkinButton12,515); limited_button('132',bsSkinButton1,43); limited_button('133',bsSkinButton30,43); limited_button('134',bsSkinButton32,43); limited_button('135',bsSkinButton4,43); limited_button('136',bsSkinButton5,43); limited_button('137',bsSkinButton6,43); limited_button('138',bsSkinButton11,43); limited_button('156',bsSkinButton25,5351); limited_button('157',bsSkinButton27,5390); limited_button('173',bsSkinButton29,5310); limited_button('192',bsSkinButton61,542); limited_button('193',bsSkinButton39,543); limited_button('194',bsSkinButton63,547); limited_button('195',bsSkinButton62,548); limited_button('196',bsSkinButton37,544); limited_button('197',bsSkinButton35,44); limited_button('203',bsSkinButton65,545); limited_button('204',bsSkinButton66,546); limited_button('205',bsSkinButton67,41402); limited_button('232',bsSkinButton74,241); limited_button('237',bsSkinButton75,523); limited_button('043',bsSkinButton79,5210); limited_button('271',bsSkinButton71,43); limited_button('042',bsSkinButton72,523); limited_button('252',bsSkinButton80,524); limited_button('111',bsSkinButton68,5340); limited_button('111',bsSkinButton77,5350); limited_button('259',bsSkinButton82,5360); limited_button('260',bsSkinButton83,5370); limited_button('272',bsSkinButton70,5391); limited_button('272',bsSkinButton69,5392); limited_button('232',bsSkinButton76,242); limited_button('257',bsSkinButton78,526); limited_button('280',bsSkinButton81,5405); limited_button('287',bsSkinButton84,549); limited_button('303',bsSkinButton87,5492); end; end; procedure Tfrm_open_report.bsSkinButton25Click(Sender: TObject); begin {$IFDEF DLFENZHANG} if not if_open('156') then begin showmessage('对不起你没有此模块的操作权限！'); 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_open_report.bsSkinButton27Click(Sender: TObject); begin {$IFDEF TBQITA} if not if_open('157') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_fen_seae_ctn.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton29Click(Sender: TObject); begin if not if_open('173') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_rp_seae_pin.show; end; procedure Tfrm_open_report.bsSkinButton61Click(Sender: TObject); begin if not if_open('192') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_ch_balance_accept.show; end; procedure Tfrm_open_report.bsSkinButton39Click(Sender: TObject); begin if not if_open('193') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_ch_balance_pay.show; end; procedure Tfrm_open_report.bsSkinButton63Click(Sender: TObject); begin if not if_open('194') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_dui_accept.show; end; procedure Tfrm_open_report.bsSkinButton62Click(Sender: TObject); begin if not if_open('195') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_dui_pay.show; end; procedure Tfrm_open_report.bsSkinButton37Click(Sender: TObject); begin if not if_open('196') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_ch_balance_rate.show; end; procedure Tfrm_open_report.bsSkinButton35Click(Sender: TObject); begin {$IFDEF DLFENZHANG} if not if_open('197') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_rp_sea_daili.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton65Click(Sender: TObject); begin if not if_open('203') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_ch_currency_change.show; end; procedure Tfrm_open_report.bsSkinButton66Click(Sender: TObject); begin {$IFDEF FYZHUANGTAI} if not if_open('204') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_ch_fee_state.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton67Click(Sender: TObject); begin if not if_open('205') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_in_fenlei.show; end; procedure Tfrm_open_report.bsSkinButton68Click(Sender: TObject); begin {$IFDEF ZHMXTONGJI} if not if_open('111') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_ch_total.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton70Click(Sender: TObject); begin if not if_open('272') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_yunjia_seae.show; end; procedure Tfrm_open_report.bsSkinButton69Click(Sender: TObject); begin if not if_open('272') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_yunfeibl_seae.show; end; procedure Tfrm_open_report.bsSkinButton71Click(Sender: TObject); begin if not if_open('271') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_dui_accepttotal.show; end; procedure Tfrm_open_report.bsSkinButton73Click(Sender: TObject); begin {$IFDEF ZHYDTONGJI} if not if_open('111') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_rp_monthtotal.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton74Click(Sender: TObject); begin {$IFDEF XSGUANLI} if not if_open('232') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_sales_profit.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton75Click(Sender: TObject); begin {$IFDEF JGCHE} if not if_open('237') then begin showmessage('对不起你没有此模块的操作权限！'); exit; end; if not assigned(frm_rp_no_airtruck) then frm_rp_no_airtruck:=tfrm_rp_no_airtruck.Create (self); frm_rp_no_airtruck.ManualDock(frm_main.SearchTabs('frm_rp_no_airtruck',frm_rp_no_airtruck.caption),nil,alClient); frm_rp_no_airtruck.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton76Click(Sender: TObject); begin {$IFDEF XSGUANLI} if not if_open('232') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_sales_profitLcx.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton77Click(Sender: TObject); begin {$IFDEF ZHZIYOU} if not if_open('111') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_chfree_total.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton72Click(Sender: TObject); begin {$IFDEF QFFZZONGHE} if not if_open('042') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_ch_clienttotal.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton80Click(Sender: TObject); begin if not if_open('252') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_ch_OutAmt.show; end; procedure Tfrm_open_report.bsSkinButton78Click(Sender: TObject); begin {$IFDEF KHGUANLI} if not if_open('257') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_crm_credit.showall; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton82Click(Sender: TObject); begin {$IFDEF GYSHANG} if not if_open('259') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_truck_no.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton83Click(Sender: TObject); begin {$IFDEF GYSHANG} if not if_open('260') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_apply_no.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton79Click(Sender: TObject); begin {$IFDEF QFYDFENXI} if not if_open('043') then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_no_monthtotal.show; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton81Click(Sender: TObject); begin if not (if_open('280')) then begin showmessage('对不起你没有此模块的操作权限！'); 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),nil,alClient); frm_rp_hl_histry.show; end; procedure Tfrm_open_report.bsSkinButton84Click(Sender: TObject); begin {$IFDEF WLZHANG} if not if_open('287') then begin showmessage('对不起你没有此模块的操作权限！'); 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_open_report.bsSkinButton85Click(Sender: TObject); begin {$IFDEF XSGUANLI} if not if_open('232') then begin showmessage('对不起你没有此模块的操作权限！'); 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_open_report.FormShow(Sender: TObject); begin {$IFDEF YWTAIZHANG} {$ELSE} bsSkinButton28.Visible:=false; bsSkinButton15.Visible:=false; bsSkinButton12.Visible:=false; bsSkinButton17.Visible:=false; bsSkinButton18.Visible:=false; bsSkinButton34.Visible:=false; {$ENDIF} {$IFDEF QFZOUSHI} {$ELSE} bsSkinButton9.Visible:=false; {$ENDIF} {$IFDEF QFFZZONGHE} {$ELSE} bsSkinButton72.Visible:=false; {$ENDIF} {$IFDEF QFYDFENXI} {$ELSE} bsSkinButton79.Visible:=false; {$ENDIF} {$IFDEF KHGUANLI} {$ELSE} bsSkinButton78.Visible:=false; {$ENDIF} {$IFDEF ZJFENXI} {$ELSE} bsSkinGroupBox7.Visible:=false; { bsSkinButton43.Visible:=false; bsSkinButton44.Visible:=false; bsSkinButton46.Visible:=false; bsSkinButton47.Visible:=false; bsSkinButton31.Visible:=false; bsSkinButton14.Visible:=false; } {$ENDIF} {$IFDEF DLFENZHANG} {$ELSE} bsSkinButton35.Visible:=false; bsSkinButton25.Visible:=false; {$ENDIF} {$IFDEF ZHYDTONGJI} {$ELSE} bsSkinButton73.Visible:=false; {$ENDIF} {$IFDEF ZHMXTONGJI} {$ELSE} bsSkinButton68.Visible:=false; {$ENDIF} {$IFDEF ZHZIYOU} {$ELSE} bsSkinButton77.Visible:=false; {$ENDIF} {$IFDEF GYSHANG} {$ELSE} bsSkinButton82.Visible:=false; bsSkinButton83.Visible:=false; {$ENDIF} {$IFDEF TBQITA} {$ELSE} bsSkinButton51.Visible:=false; bsSkinButton52.Visible:=false; bsSkinButton53.Visible:=false; bsSkinButton54.Visible:=false; bsSkinButton56.Visible:=false; bsSkinButton57.Visible:=false; bsSkinButton58.Visible:=false; bsSkinButton59.Visible:=false; bsSkinButton27.Visible:=false; {$ENDIF} {$IFDEF FYZHUANGTAI} {$ELSE} bsSkinButton66.Visible:=false; {$ENDIF} {$IFDEF XSGUANLI} {$ELSE} bsSkinButton74.Visible:=false; bsSkinButton76.Visible:=false; bsSkinButton85.Visible:=false; {$ENDIF} {$IFDEF WLZHANG} {$ELSE} bsSkinButton84.Visible:=false; {$ENDIF} end; procedure Tfrm_open_report.bsSkinButton86Click(Sender: TObject); begin {$IFDEF WLZHANG} if not if_open('287') then begin showmessage('对不起你没有此模块的操作权限！'); 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_open_report.bsSkinButton87Click(Sender: TObject); begin if not if_open('303') then begin showmessage('对不起你没有此模块的操作权限！'); 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; end.