|
|
unit u_rp_rp_total;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, dxExEdtr, RxMemDS, DB, ADODB, Menus, XPMenu, bsSkinCtrls,
|
|
|
dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxCntner, ComCtrls,
|
|
|
bsSkinTabs, ExtCtrls, StdCtrls;
|
|
|
|
|
|
type
|
|
|
Tfrm_rp_rp_total = class(TForm)
|
|
|
Panel1: TPanel;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
p_seae: TADOStoredProc;
|
|
|
p_seae1: TDataSource;
|
|
|
t_sum1: TDataSource;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet5: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet6: TbsSkinTabSheet;
|
|
|
p_seai: TADOStoredProc;
|
|
|
p_seai1: TDataSource;
|
|
|
p_airi1: TDataSource;
|
|
|
p_airi: TADOStoredProc;
|
|
|
p_aire: TADOStoredProc;
|
|
|
p_aire1: TDataSource;
|
|
|
bsSkinPageControl2: TbsSkinPageControl;
|
|
|
bsSkinTabSheet11: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet12: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet13: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet14: TbsSkinTabSheet;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column21: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column23: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column24: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column26: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column27: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column28: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column29: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column31: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column43: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column51: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column54: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column55: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column56: TdxDBGridColumn;
|
|
|
dxDBGrid1Column57: TdxDBGridColumn;
|
|
|
dxDBGrid11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid110: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column80: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1TEU: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column82: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column83: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column84: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column88: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column89: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column90: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column92: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column93: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column85: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column87: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column86: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1USD: TdxDBGridColumn;
|
|
|
dxDBGrid1RMB: TdxDBGridColumn;
|
|
|
dxDBGrid1Column102: TdxDBGridColumn;
|
|
|
dxDBGrid1Column105: TdxDBGridColumn;
|
|
|
dxDBGrid1Column108: TdxDBGridColumn;
|
|
|
dxDBGrid1Column111: TdxDBGridColumn;
|
|
|
dxDBGrid1Column114: TdxDBGridColumn;
|
|
|
dxDBGrid1Column115: TdxDBGridColumn;
|
|
|
dxDBGrid1Column116: TdxDBGridColumn;
|
|
|
dxDBGrid1Column117: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn1: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn2: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn1: TdxDBGridColumn;
|
|
|
dxDBGridColumn2: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn39: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn40: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn41: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn3: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn42: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn43: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn44: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn45: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn46: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn3: TdxDBGridColumn;
|
|
|
dxDBGridColumn4: TdxDBGridColumn;
|
|
|
dxDBGridColumn5: TdxDBGridColumn;
|
|
|
dxDBGridColumn6: TdxDBGridColumn;
|
|
|
dxDBGridColumn7: TdxDBGridColumn;
|
|
|
dxDBGridColumn8: TdxDBGridColumn;
|
|
|
dxDBGridColumn9: TdxDBGridColumn;
|
|
|
dxDBGridColumn10: TdxDBGridColumn;
|
|
|
dxDBGridColumn11: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3: TdxDBGrid;
|
|
|
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn4: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn56: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn57: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn58: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn59: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn5: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn60: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn61: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn62: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn63: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn12: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn64: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn65: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn66: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn6: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn67: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn68: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn69: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn13: TdxDBGridColumn;
|
|
|
dxDBGridColumn14: TdxDBGridColumn;
|
|
|
dxDBGridColumn15: TdxDBGridColumn;
|
|
|
dxDBGridColumn16: TdxDBGridColumn;
|
|
|
dxDBGridColumn17: TdxDBGridColumn;
|
|
|
dxDBGridColumn18: TdxDBGridColumn;
|
|
|
dxDBGridColumn19: TdxDBGridColumn;
|
|
|
dxDBGridColumn20: TdxDBGridColumn;
|
|
|
dxDBGridColumn21: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn70: TdxDBGridMaskColumn;
|
|
|
dxDBGrid4: TdxDBGrid;
|
|
|
dxDBGridMaskColumn71: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn72: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn73: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn7: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn74: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn75: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn76: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn77: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn78: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn79: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn8: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn80: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn81: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn82: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn83: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn22: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn84: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn85: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn86: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn9: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn87: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn88: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn89: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn23: TdxDBGridColumn;
|
|
|
dxDBGridColumn24: TdxDBGridColumn;
|
|
|
dxDBGridColumn25: TdxDBGridColumn;
|
|
|
dxDBGridColumn26: TdxDBGridColumn;
|
|
|
dxDBGridColumn27: TdxDBGridColumn;
|
|
|
dxDBGridColumn28: TdxDBGridColumn;
|
|
|
dxDBGridColumn29: TdxDBGridColumn;
|
|
|
dxDBGridColumn30: TdxDBGridColumn;
|
|
|
dxDBGridColumn31: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn90: TdxDBGridMaskColumn;
|
|
|
dxDBGrid5: TdxDBGrid;
|
|
|
dxDBGrid2Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2USD: TdxDBGridColumn;
|
|
|
dxDBGrid2Column29: TdxDBGridColumn;
|
|
|
dxDBGrid2Column30: TdxDBGridColumn;
|
|
|
dxDBGrid2RMB: TdxDBGridColumn;
|
|
|
dxDBGrid2Column32: TdxDBGridColumn;
|
|
|
dxDBGrid2Column33: TdxDBGridColumn;
|
|
|
dxDBGrid2Column34: TdxDBGridColumn;
|
|
|
dxDBGrid2Column35: TdxDBGridColumn;
|
|
|
dxDBGrid2Column36: TdxDBGridColumn;
|
|
|
dxDBGrid2Column37: TdxDBGridColumn;
|
|
|
dxDBGrid5Column14: TdxDBGridColumn;
|
|
|
dxDBGrid6: TdxDBGrid;
|
|
|
dxDBGridMaskColumn91: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn32: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn92: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn34: TdxDBGridColumn;
|
|
|
dxDBGridColumn35: TdxDBGridColumn;
|
|
|
dxDBGridColumn36: TdxDBGridColumn;
|
|
|
dxDBGridColumn37: TdxDBGridColumn;
|
|
|
dxDBGridColumn38: TdxDBGridColumn;
|
|
|
dxDBGridColumn39: TdxDBGridColumn;
|
|
|
dxDBGridColumn40: TdxDBGridColumn;
|
|
|
dxDBGridColumn41: TdxDBGridColumn;
|
|
|
dxDBGridColumn42: TdxDBGridColumn;
|
|
|
dxDBGridColumn43: TdxDBGridColumn;
|
|
|
dxDBGrid7: TdxDBGrid;
|
|
|
dxDBGridMaskColumn93: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn44: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn94: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn46: TdxDBGridColumn;
|
|
|
dxDBGridColumn47: TdxDBGridColumn;
|
|
|
dxDBGridColumn48: TdxDBGridColumn;
|
|
|
dxDBGridColumn49: TdxDBGridColumn;
|
|
|
dxDBGridColumn50: TdxDBGridColumn;
|
|
|
dxDBGridColumn51: TdxDBGridColumn;
|
|
|
dxDBGridColumn52: TdxDBGridColumn;
|
|
|
dxDBGridColumn53: TdxDBGridColumn;
|
|
|
dxDBGridColumn54: TdxDBGridColumn;
|
|
|
dxDBGridColumn55: TdxDBGridColumn;
|
|
|
dxDBGrid8: TdxDBGrid;
|
|
|
dxDBGridMaskColumn95: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn56: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn96: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn58: TdxDBGridColumn;
|
|
|
dxDBGridColumn59: TdxDBGridColumn;
|
|
|
dxDBGridColumn60: TdxDBGridColumn;
|
|
|
dxDBGridColumn61: TdxDBGridColumn;
|
|
|
dxDBGridColumn62: TdxDBGridColumn;
|
|
|
dxDBGridColumn63: TdxDBGridColumn;
|
|
|
dxDBGridColumn64: TdxDBGridColumn;
|
|
|
dxDBGridColumn65: TdxDBGridColumn;
|
|
|
dxDBGridColumn66: TdxDBGridColumn;
|
|
|
dxDBGridColumn67: TdxDBGridColumn;
|
|
|
dxDBGrid9: TdxDBGrid;
|
|
|
dxDBGridMaskColumn97: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn68: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn98: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn70: TdxDBGridColumn;
|
|
|
dxDBGridColumn71: TdxDBGridColumn;
|
|
|
dxDBGridColumn72: TdxDBGridColumn;
|
|
|
dxDBGridColumn73: TdxDBGridColumn;
|
|
|
dxDBGridColumn74: TdxDBGridColumn;
|
|
|
dxDBGridColumn75: TdxDBGridColumn;
|
|
|
dxDBGridColumn76: TdxDBGridColumn;
|
|
|
dxDBGridColumn77: TdxDBGridColumn;
|
|
|
dxDBGridColumn78: TdxDBGridColumn;
|
|
|
dxDBGridColumn79: TdxDBGridColumn;
|
|
|
dxDBGrid1Column68: TdxDBGridColumn;
|
|
|
dxDBGrid1Column69: TdxDBGridColumn;
|
|
|
dxDBGrid2Column65: TdxDBGridColumn;
|
|
|
dxDBGrid2Column66: TdxDBGridColumn;
|
|
|
dxDBGrid3Column34: TdxDBGridColumn;
|
|
|
dxDBGrid3Column35: TdxDBGridColumn;
|
|
|
dxDBGrid4Column34: TdxDBGridColumn;
|
|
|
dxDBGrid4Column35: TdxDBGridColumn;
|
|
|
p_sum: TADOStoredProc;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
XPMenu2: TXPMenu;
|
|
|
dxDBGrid5Column15: TdxDBGridColumn;
|
|
|
dxDBGrid5Column16: TdxDBGridColumn;
|
|
|
dxDBGrid5Column17: TdxDBGridColumn;
|
|
|
dxDBGrid5Column18: TdxDBGridColumn;
|
|
|
dxDBGrid5Column19: TdxDBGridColumn;
|
|
|
dxDBGrid5Column20: TdxDBGridColumn;
|
|
|
dxDBGrid5Column21: TdxDBGridColumn;
|
|
|
dxDBGrid5Column22: TdxDBGridColumn;
|
|
|
dxDBGrid5Column23: TdxDBGridColumn;
|
|
|
dxDBGrid5Column24: TdxDBGridColumn;
|
|
|
dxDBGrid5Column25: TdxDBGridColumn;
|
|
|
dxDBGrid6Column14: TdxDBGridColumn;
|
|
|
dxDBGrid6Column15: TdxDBGridColumn;
|
|
|
dxDBGrid6Column16: TdxDBGridColumn;
|
|
|
dxDBGrid6Column17: TdxDBGridColumn;
|
|
|
dxDBGrid6Column18: TdxDBGridColumn;
|
|
|
dxDBGrid6Column19: TdxDBGridColumn;
|
|
|
dxDBGrid6Column20: TdxDBGridColumn;
|
|
|
dxDBGrid6Column21: TdxDBGridColumn;
|
|
|
dxDBGrid6Column22: TdxDBGridColumn;
|
|
|
dxDBGrid6Column23: TdxDBGridColumn;
|
|
|
dxDBGrid6Column24: TdxDBGridColumn;
|
|
|
dxDBGrid7Column14: TdxDBGridColumn;
|
|
|
dxDBGrid7Column15: TdxDBGridColumn;
|
|
|
dxDBGrid7Column16: TdxDBGridColumn;
|
|
|
dxDBGrid7Column17: TdxDBGridColumn;
|
|
|
dxDBGrid7Column18: TdxDBGridColumn;
|
|
|
dxDBGrid7Column19: TdxDBGridColumn;
|
|
|
dxDBGrid7Column20: TdxDBGridColumn;
|
|
|
dxDBGrid7Column21: TdxDBGridColumn;
|
|
|
dxDBGrid7Column22: TdxDBGridColumn;
|
|
|
dxDBGrid7Column23: TdxDBGridColumn;
|
|
|
dxDBGrid7Column24: TdxDBGridColumn;
|
|
|
dxDBGrid8Column14: TdxDBGridColumn;
|
|
|
dxDBGrid8Column15: TdxDBGridColumn;
|
|
|
dxDBGrid8Column16: TdxDBGridColumn;
|
|
|
dxDBGrid8Column17: TdxDBGridColumn;
|
|
|
dxDBGrid8Column18: TdxDBGridColumn;
|
|
|
dxDBGrid8Column19: TdxDBGridColumn;
|
|
|
dxDBGrid8Column20: TdxDBGridColumn;
|
|
|
dxDBGrid8Column21: TdxDBGridColumn;
|
|
|
dxDBGrid8Column22: TdxDBGridColumn;
|
|
|
dxDBGrid8Column23: TdxDBGridColumn;
|
|
|
dxDBGrid8Column24: TdxDBGridColumn;
|
|
|
dxDBGrid9Column14: TdxDBGridColumn;
|
|
|
dxDBGrid9Column15: TdxDBGridColumn;
|
|
|
dxDBGrid9Column16: TdxDBGridColumn;
|
|
|
dxDBGrid9Column17: TdxDBGridColumn;
|
|
|
dxDBGrid9Column18: TdxDBGridColumn;
|
|
|
dxDBGrid9Column19: TdxDBGridColumn;
|
|
|
dxDBGrid9Column20: TdxDBGridColumn;
|
|
|
dxDBGrid9Column21: TdxDBGridColumn;
|
|
|
dxDBGrid9Column22: TdxDBGridColumn;
|
|
|
dxDBGrid9Column23: TdxDBGridColumn;
|
|
|
dxDBGrid9Column24: TdxDBGridColumn;
|
|
|
bskntbsht1: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet8: TbsSkinTabSheet;
|
|
|
dxDBGrid2Column57: TdxDBGridColumn;
|
|
|
dxDBGrid10: TdxDBGrid;
|
|
|
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn10: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn11: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn99: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn100: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn101: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn33: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn103: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn104: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn12: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn105: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn106: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn107: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn45: TdxDBGridColumn;
|
|
|
dxDBGridColumn57: TdxDBGridColumn;
|
|
|
dxDBGridColumn69: TdxDBGridColumn;
|
|
|
dxDBGridColumn80: TdxDBGridColumn;
|
|
|
dxDBGridColumn81: TdxDBGridColumn;
|
|
|
dxDBGridColumn82: TdxDBGridColumn;
|
|
|
dxDBGridColumn83: TdxDBGridColumn;
|
|
|
dxDBGridColumn84: TdxDBGridColumn;
|
|
|
dxDBGridColumn85: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn108: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn86: TdxDBGridColumn;
|
|
|
dxDBGridColumn87: TdxDBGridColumn;
|
|
|
p_airtruck: TADOStoredProc;
|
|
|
p_airtruck1: TDataSource;
|
|
|
tab5: TbsSkinTabSheet;
|
|
|
dxDBGrid20: TdxDBGrid;
|
|
|
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn88: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn89: TdxDBGridColumn;
|
|
|
dxDBGridColumn90: TdxDBGridColumn;
|
|
|
dxDBGridColumn91: TdxDBGridColumn;
|
|
|
dxDBGridColumn92: TdxDBGridColumn;
|
|
|
dxDBGridColumn93: TdxDBGridColumn;
|
|
|
dxDBGridColumn94: TdxDBGridColumn;
|
|
|
dxDBGridColumn95: TdxDBGridColumn;
|
|
|
dxDBGridColumn96: TdxDBGridColumn;
|
|
|
dxDBGridColumn97: TdxDBGridColumn;
|
|
|
dxDBGridColumn98: TdxDBGridColumn;
|
|
|
dxDBGridColumn99: TdxDBGridColumn;
|
|
|
dxDBGridColumn100: TdxDBGridColumn;
|
|
|
dxDBGridColumn101: TdxDBGridColumn;
|
|
|
dxDBGridColumn102: TdxDBGridColumn;
|
|
|
dxDBGridColumn103: TdxDBGridColumn;
|
|
|
dxDBGridColumn104: TdxDBGridColumn;
|
|
|
dxDBGridColumn105: TdxDBGridColumn;
|
|
|
dxDBGridColumn106: TdxDBGridColumn;
|
|
|
dxDBGridColumn107: TdxDBGridColumn;
|
|
|
dxDBGridColumn108: TdxDBGridColumn;
|
|
|
dxDBGridColumn109: TdxDBGridColumn;
|
|
|
dxDBGrid21: TdxDBGrid;
|
|
|
dxDBGridMaskColumn102: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn110: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn109: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn111: TdxDBGridColumn;
|
|
|
dxDBGridColumn112: TdxDBGridColumn;
|
|
|
dxDBGridColumn113: TdxDBGridColumn;
|
|
|
dxDBGridColumn114: TdxDBGridColumn;
|
|
|
dxDBGridColumn115: TdxDBGridColumn;
|
|
|
dxDBGridColumn116: TdxDBGridColumn;
|
|
|
dxDBGridColumn117: TdxDBGridColumn;
|
|
|
dxDBGridColumn118: TdxDBGridColumn;
|
|
|
dxDBGridColumn119: TdxDBGridColumn;
|
|
|
dxDBGridColumn120: TdxDBGridColumn;
|
|
|
dxDBGridColumn121: TdxDBGridColumn;
|
|
|
dxDBGridColumn122: TdxDBGridColumn;
|
|
|
dxDBGridColumn123: TdxDBGridColumn;
|
|
|
dxDBGridColumn124: TdxDBGridColumn;
|
|
|
dxDBGridColumn125: TdxDBGridColumn;
|
|
|
dxDBGridColumn126: TdxDBGridColumn;
|
|
|
dxDBGridColumn127: TdxDBGridColumn;
|
|
|
dxDBGridColumn128: TdxDBGridColumn;
|
|
|
dxDBGridColumn129: TdxDBGridColumn;
|
|
|
dxDBGridColumn130: TdxDBGridColumn;
|
|
|
dxDBGridColumn131: TdxDBGridColumn;
|
|
|
bsSkinTabSheet9: TbsSkinTabSheet;
|
|
|
dxDBGrid22: TdxDBGrid;
|
|
|
dxDBGridMaskColumn110: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn132: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn111: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn133: TdxDBGridColumn;
|
|
|
dxDBGridColumn134: TdxDBGridColumn;
|
|
|
dxDBGridColumn135: TdxDBGridColumn;
|
|
|
dxDBGridColumn136: TdxDBGridColumn;
|
|
|
dxDBGridColumn137: TdxDBGridColumn;
|
|
|
dxDBGridColumn138: TdxDBGridColumn;
|
|
|
dxDBGridColumn139: TdxDBGridColumn;
|
|
|
dxDBGridColumn140: TdxDBGridColumn;
|
|
|
dxDBGridColumn141: TdxDBGridColumn;
|
|
|
dxDBGridColumn142: TdxDBGridColumn;
|
|
|
dxDBGridColumn143: TdxDBGridColumn;
|
|
|
dxDBGridColumn144: TdxDBGridColumn;
|
|
|
dxDBGridColumn145: TdxDBGridColumn;
|
|
|
dxDBGridColumn146: TdxDBGridColumn;
|
|
|
dxDBGridColumn147: TdxDBGridColumn;
|
|
|
dxDBGridColumn148: TdxDBGridColumn;
|
|
|
dxDBGridColumn149: TdxDBGridColumn;
|
|
|
dxDBGridColumn150: TdxDBGridColumn;
|
|
|
dxDBGridColumn151: TdxDBGridColumn;
|
|
|
dxDBGridColumn152: TdxDBGridColumn;
|
|
|
dxDBGridColumn153: TdxDBGridColumn;
|
|
|
dxDBGrid1Column60: TdxDBGridColumn;
|
|
|
dxDBGrid1Column61: TdxDBGridColumn;
|
|
|
dxDBGrid2Column58: TdxDBGridColumn;
|
|
|
dxDBGrid2Column59: TdxDBGridColumn;
|
|
|
dxDBGrid3Column36: TdxDBGridColumn;
|
|
|
dxDBGrid3Column37: TdxDBGridColumn;
|
|
|
dxDBGrid4Column36: TdxDBGridColumn;
|
|
|
dxDBGrid4Column37: TdxDBGridColumn;
|
|
|
dxDBGrid10Column33: TdxDBGridColumn;
|
|
|
dxDBGrid10Column34: TdxDBGridColumn;
|
|
|
p_railway: TADOStoredProc;
|
|
|
p_railway1: TDataSource;
|
|
|
tab6: TbsSkinTabSheet;
|
|
|
dxDBGrid23: TdxDBGrid;
|
|
|
dxDBGridMaskColumn112: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn113: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn114: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn13: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn115: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn116: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn117: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn118: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn119: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn120: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn14: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn15: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn16: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn121: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn122: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn123: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn124: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn125: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn154: TdxDBGridColumn;
|
|
|
dxDBGridColumn155: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn129: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn17: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn130: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn131: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn132: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn133: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn134: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn135: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn136: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn137: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn156: TdxDBGridColumn;
|
|
|
dxDBGridColumn157: TdxDBGridColumn;
|
|
|
dxDBGridColumn158: TdxDBGridColumn;
|
|
|
dxDBGridColumn159: TdxDBGridColumn;
|
|
|
dxDBGridColumn160: TdxDBGridColumn;
|
|
|
dxDBGridColumn161: TdxDBGridColumn;
|
|
|
dxDBGridColumn162: TdxDBGridColumn;
|
|
|
dxDBGridColumn163: TdxDBGridColumn;
|
|
|
dxDBGridColumn164: TdxDBGridColumn;
|
|
|
dxDBGridColumn165: TdxDBGridColumn;
|
|
|
dxDBGridColumn166: TdxDBGridColumn;
|
|
|
dxDBGridColumn167: TdxDBGridColumn;
|
|
|
dxDBGridColumn168: TdxDBGridColumn;
|
|
|
dxDBGridColumn169: TdxDBGridColumn;
|
|
|
dxDBGridColumn170: TdxDBGridColumn;
|
|
|
dxDBGridColumn171: TdxDBGridColumn;
|
|
|
dxDBGridColumn172: TdxDBGridColumn;
|
|
|
dxDBGridColumn173: TdxDBGridColumn;
|
|
|
dxDBGridColumn174: TdxDBGridColumn;
|
|
|
dxDBGridColumn175: TdxDBGridColumn;
|
|
|
dxDBGridColumn176: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn138: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn177: TdxDBGridColumn;
|
|
|
dxDBGridColumn178: TdxDBGridColumn;
|
|
|
dxDBGridColumn179: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn126: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn180: TdxDBGridColumn;
|
|
|
dxDBGridColumn181: TdxDBGridColumn;
|
|
|
dxDBGrid1Column62: TdxDBGridColumn;
|
|
|
dxDBGrid1Column63: TdxDBGridColumn;
|
|
|
dxDBGrid2Column60: TdxDBGridColumn;
|
|
|
dxDBGrid2Column61: TdxDBGridColumn;
|
|
|
dxDBGrid3Column38: TdxDBGridColumn;
|
|
|
dxDBGrid3Column39: TdxDBGridColumn;
|
|
|
dxDBGrid4Column38: TdxDBGridColumn;
|
|
|
dxDBGrid4Column39: TdxDBGridColumn;
|
|
|
dxDBGrid10Column35: TdxDBGridColumn;
|
|
|
dxDBGrid10Column36: TdxDBGridColumn;
|
|
|
dxDBGrid23Column59: TdxDBGridColumn;
|
|
|
dxDBGrid23Column60: TdxDBGridColumn;
|
|
|
dxDBGrid5Column26: TdxDBGridColumn;
|
|
|
dxDBGrid5Column27: TdxDBGridColumn;
|
|
|
dxDBGrid3Column40: TdxDBGridColumn;
|
|
|
dxDBGrid23Column61: TdxDBGridColumn;
|
|
|
N1: TMenuItem;
|
|
|
N2: TMenuItem;
|
|
|
N3: TMenuItem;
|
|
|
N4: TMenuItem;
|
|
|
PopupMenu1: TPopupMenu;
|
|
|
MenuItem4: TMenuItem;
|
|
|
MenuItem5: TMenuItem;
|
|
|
N21: TMenuItem;
|
|
|
N22: TMenuItem;
|
|
|
N20: TMenuItem;
|
|
|
bsSkinTabSheet10: TbsSkinTabSheet;
|
|
|
dxDBGrid24: TdxDBGrid;
|
|
|
dxDBGridMaskColumn127: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn182: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn128: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn183: TdxDBGridColumn;
|
|
|
dxDBGridColumn184: TdxDBGridColumn;
|
|
|
dxDBGridColumn185: TdxDBGridColumn;
|
|
|
dxDBGridColumn186: TdxDBGridColumn;
|
|
|
dxDBGridColumn187: TdxDBGridColumn;
|
|
|
dxDBGridColumn188: TdxDBGridColumn;
|
|
|
dxDBGridColumn189: TdxDBGridColumn;
|
|
|
dxDBGridColumn190: TdxDBGridColumn;
|
|
|
dxDBGridColumn191: TdxDBGridColumn;
|
|
|
dxDBGridColumn192: TdxDBGridColumn;
|
|
|
dxDBGridColumn193: TdxDBGridColumn;
|
|
|
dxDBGridColumn194: TdxDBGridColumn;
|
|
|
dxDBGridColumn195: TdxDBGridColumn;
|
|
|
dxDBGridColumn196: TdxDBGridColumn;
|
|
|
dxDBGridColumn197: TdxDBGridColumn;
|
|
|
dxDBGridColumn198: TdxDBGridColumn;
|
|
|
dxDBGridColumn199: TdxDBGridColumn;
|
|
|
dxDBGridColumn200: TdxDBGridColumn;
|
|
|
dxDBGridColumn201: TdxDBGridColumn;
|
|
|
dxDBGridColumn202: TdxDBGridColumn;
|
|
|
dxDBGridColumn203: TdxDBGridColumn;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure Panel1Resize(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure bsSkinPageControl1Change(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure sum_do(str:string);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid2ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid3ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid4ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid5ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid6ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid7ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid8ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid9ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid1DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid2DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid3DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid4DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid1Column116CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean;
|
|
|
var ADone: Boolean);
|
|
|
procedure dxDBGridColumn11CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure dxDBGridColumn21CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure dxDBGridColumn31CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure dxDBGridColumn85CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure dxDBGrid2Column34CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean;
|
|
|
var ADone: Boolean);
|
|
|
procedure p_seaeAfterOpen(DataSet: TDataSet);
|
|
|
procedure p_seaiAfterOpen(DataSet: TDataSet);
|
|
|
procedure N2Click(Sender: TObject);
|
|
|
procedure N4Click(Sender: TObject);
|
|
|
procedure N20Click(Sender: TObject);
|
|
|
procedure dxDBGrid23DblClick(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_rp_rp_total: Tfrm_rp_rp_total;
|
|
|
rp_rp_total_open:boolean;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, my_sys_function, u_rp_query, u_sys_progress,
|
|
|
u_data_share;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.sum_do(str:string);
|
|
|
begin
|
|
|
{ try
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(application);
|
|
|
frm_sys_progress.Show;
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=p_seae.RecordCount
|
|
|
+p_seai.RecordCount+p_aire.RecordCount+p_airi.RecordCount;
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
frm_sys_progress.Update;
|
|
|
|
|
|
p_seae.first;
|
|
|
while not p_seae.eof do
|
|
|
begin
|
|
|
if not t_sum.Locate('<27><>','<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+p_seae.fieldbyname(str).asstring,[])then
|
|
|
begin
|
|
|
t_sum.insert;
|
|
|
t_sum['ͳ<>Ʊ<EFBFBD>']:=str;
|
|
|
t_sum['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
|
|
|
t_sum['base']:=p_seae.fieldbyname(str).asstring;
|
|
|
t_sum['Ʊ<><C6B1>']:=1;
|
|
|
t_sum['<27><>']:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+p_seae.fieldbyname(str).asstring;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=p_seae.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=p_seae.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>USD']:=p_seae.fieldbyname('<27><><EFBFBD><EFBFBD>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=p_seae.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=p_seae.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>RMB']:=p_seae.fieldbyname('<27><><EFBFBD><EFBFBD>RMB').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=p_seae.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=p_seae.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['ë<><C3AB><EFBFBD><EFBFBD>']:=p_seae.fieldbyname('ë<><C3AB><EFBFBD><EFBFBD>').asfloat;
|
|
|
t_sum.post;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_sum.edit;
|
|
|
t_sum['Ʊ<><C6B1>']:=t_sum['Ʊ<><C6B1>']+1;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=t_sum['Ӧ<><D3A6>USD']+p_seae.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=t_sum['Ӧ<><D3A6>USD']+p_seae.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>USD']:=t_sum['<27><><EFBFBD><EFBFBD>USD']+p_seae.fieldbyname('<27><><EFBFBD><EFBFBD>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=t_sum['Ӧ<><D3A6>RMB']+p_seae.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=t_sum['<27><><EFBFBD><EFBFBD>RMB']+p_seae.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>RMB']:=t_sum['<27><><EFBFBD><EFBFBD>RMB']+p_seae.fieldbyname('<27><><EFBFBD><EFBFBD>RMB').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']+p_seae.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']+p_seae.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['ë<><C3AB><EFBFBD><EFBFBD>']:=t_sum['ë<><C3AB><EFBFBD><EFBFBD>']+p_seae.fieldbyname('ë<><C3AB><EFBFBD><EFBFBD>').asfloat;
|
|
|
t_sum.post;
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
p_seae.next;
|
|
|
end;
|
|
|
p_seai.first;
|
|
|
while not p_seai.eof do
|
|
|
begin
|
|
|
if not t_sum.Locate('<27><>','<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+p_seai.fieldbyname(str).asstring,[])then
|
|
|
begin
|
|
|
t_sum.insert;
|
|
|
t_sum['ͳ<>Ʊ<EFBFBD>']:=str;
|
|
|
t_sum['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
|
|
|
t_sum['base']:=p_seai.fieldbyname(str).asstring;
|
|
|
t_sum['Ʊ<><C6B1>']:=1;
|
|
|
t_sum['<27><>']:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+p_seai.fieldbyname(str).asstring;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=p_seai.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=p_seai.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>USD']:=p_seai.fieldbyname('<27><><EFBFBD><EFBFBD>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=p_seai.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=p_seai.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>RMB']:=p_seai.fieldbyname('<27><><EFBFBD><EFBFBD>RMB').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=p_seai.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=p_seai.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['ë<><C3AB><EFBFBD><EFBFBD>']:=p_seai.fieldbyname('ë<><C3AB><EFBFBD><EFBFBD>').asfloat;
|
|
|
t_sum.post;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_sum.edit;
|
|
|
t_sum['Ʊ<><C6B1>']:=t_sum['Ʊ<><C6B1>']+1;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=t_sum['Ӧ<><D3A6>USD']+p_seai.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=t_sum['Ӧ<><D3A6>USD']+p_seai.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>USD']:=t_sum['<27><><EFBFBD><EFBFBD>USD']+p_seai.fieldbyname('<27><><EFBFBD><EFBFBD>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=t_sum['Ӧ<><D3A6>RMB']+p_seai.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=t_sum['<27><><EFBFBD><EFBFBD>RMB']+p_seai.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>RMB']:=t_sum['<27><><EFBFBD><EFBFBD>RMB']+p_seai.fieldbyname('<27><><EFBFBD><EFBFBD>RMB').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']+p_seai.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']+p_seai.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['ë<><C3AB><EFBFBD><EFBFBD>']:=t_sum['ë<><C3AB><EFBFBD><EFBFBD>']+p_seai.fieldbyname('ë<><C3AB><EFBFBD><EFBFBD>').asfloat;
|
|
|
t_sum.post;
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
p_seai.next;
|
|
|
end;
|
|
|
p_aire.first;
|
|
|
while not p_aire.eof do
|
|
|
begin
|
|
|
if not t_sum.Locate('<27><>','<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+p_aire.fieldbyname(str).asstring,[])then
|
|
|
begin
|
|
|
t_sum.insert;
|
|
|
t_sum['ͳ<>Ʊ<EFBFBD>']:=str;
|
|
|
t_sum['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
|
|
|
t_sum['base']:=p_aire.fieldbyname(str).asstring;
|
|
|
t_sum['Ʊ<><C6B1>']:=1;
|
|
|
t_sum['<27><>']:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+p_aire.fieldbyname(str).asstring;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=p_aire.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=p_aire.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>USD']:=p_aire.fieldbyname('<27><><EFBFBD><EFBFBD>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=p_aire.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=p_aire.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>RMB']:=p_aire.fieldbyname('<27><><EFBFBD><EFBFBD>RMB').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=p_aire.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=p_aire.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['ë<><C3AB><EFBFBD><EFBFBD>']:=p_aire.fieldbyname('ë<><C3AB><EFBFBD><EFBFBD>').asfloat;
|
|
|
t_sum.post;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_sum.edit;
|
|
|
t_sum['Ʊ<><C6B1>']:=t_sum['Ʊ<><C6B1>']+1;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=t_sum['Ӧ<><D3A6>USD']+p_aire.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=t_sum['Ӧ<><D3A6>USD']+p_aire.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>USD']:=t_sum['<27><><EFBFBD><EFBFBD>USD']+p_aire.fieldbyname('<27><><EFBFBD><EFBFBD>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=t_sum['Ӧ<><D3A6>RMB']+p_aire.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=t_sum['<27><><EFBFBD><EFBFBD>RMB']+p_aire.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>RMB']:=t_sum['<27><><EFBFBD><EFBFBD>RMB']+p_aire.fieldbyname('<27><><EFBFBD><EFBFBD>RMB').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']+p_aire.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']+p_aire.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['ë<><C3AB><EFBFBD><EFBFBD>']:=t_sum['ë<><C3AB><EFBFBD><EFBFBD>']+p_aire.fieldbyname('ë<><C3AB><EFBFBD><EFBFBD>').asfloat;
|
|
|
t_sum.post;
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
p_aire.next;
|
|
|
end;
|
|
|
p_airi.first;
|
|
|
while not p_airi.eof do
|
|
|
begin
|
|
|
if not t_sum.Locate('<27><>','<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+p_airi.fieldbyname(str).asstring,[])then
|
|
|
begin
|
|
|
t_sum.insert;
|
|
|
t_sum['ͳ<>Ʊ<EFBFBD>']:=str;
|
|
|
t_sum['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
|
|
|
t_sum['base']:=p_airi.fieldbyname(str).asstring;
|
|
|
t_sum['Ʊ<><C6B1>']:=1;
|
|
|
t_sum['<27><>']:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+p_airi.fieldbyname(str).asstring;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=p_airi.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=p_airi.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>USD']:=p_airi.fieldbyname('<27><><EFBFBD><EFBFBD>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=p_airi.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=p_airi.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>RMB']:=p_airi.fieldbyname('<27><><EFBFBD><EFBFBD>RMB').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=p_airi.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=p_airi.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['ë<><C3AB><EFBFBD><EFBFBD>']:=p_airi.fieldbyname('ë<><C3AB><EFBFBD><EFBFBD>').asfloat;
|
|
|
t_sum.post;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_sum.edit;
|
|
|
t_sum['Ʊ<><C6B1>']:=t_sum['Ʊ<><C6B1>']+1;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=t_sum['Ӧ<><D3A6>USD']+p_airi.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>USD']:=t_sum['Ӧ<><D3A6>USD']+p_airi.fieldbyname('Ӧ<><D3A6>USD').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>USD']:=t_sum['<27><><EFBFBD><EFBFBD>USD']+p_airi.fieldbyname('<27><><EFBFBD><EFBFBD>USD').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=t_sum['Ӧ<><D3A6>RMB']+p_airi.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['Ӧ<><D3A6>RMB']:=t_sum['<27><><EFBFBD><EFBFBD>RMB']+p_airi.fieldbyname('Ӧ<><D3A6>RMB').asfloat;
|
|
|
t_sum['<27><><EFBFBD><EFBFBD>RMB']:=t_sum['<27><><EFBFBD><EFBFBD>RMB']+p_airi.fieldbyname('<27><><EFBFBD><EFBFBD>RMB').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']+p_airi.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']:=t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']+p_airi.fieldbyname('<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>').asfloat;
|
|
|
t_sum['ë<><C3AB><EFBFBD><EFBFBD>']:=t_sum['ë<><C3AB><EFBFBD><EFBFBD>']+p_airi.fieldbyname('ë<><C3AB><EFBFBD><EFBFBD>').asfloat;
|
|
|
t_sum.post;
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
p_airi.next;
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=t_sum.RecordCount;
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
frm_sys_progress.Update;
|
|
|
t_sum.first;
|
|
|
while not t_sum.eof do
|
|
|
begin
|
|
|
t_sum.edit;
|
|
|
if t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']=0 then
|
|
|
t_sum['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
else
|
|
|
t_sum['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=percent(t_sum['ë<><C3AB><EFBFBD><EFBFBD>']/t_sum['<27>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>']);
|
|
|
t_sum.post;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
t_sum.next;
|
|
|
end;
|
|
|
finally
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.MaxValue;
|
|
|
frm_sys_progress.free;
|
|
|
frm_sys_progress:=nil;
|
|
|
end; }
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption+'1');
|
|
|
savereggrid(dxdbgrid2,caption+'2');
|
|
|
savereggrid(dxdbgrid3,caption+'3');
|
|
|
savereggrid(dxdbgrid4,caption+'4');
|
|
|
savereggrid(dxdbgrid5,caption+'5');
|
|
|
savereggrid(dxdbgrid6,caption+'6');
|
|
|
savereggrid(dxdbgrid7,caption+'7');
|
|
|
savereggrid(dxdbgrid8,caption+'8');
|
|
|
savereggrid(dxdbgrid9,caption+'9');
|
|
|
rp_rp_total_open:=false;
|
|
|
frm_rp_rp_total.Hide;
|
|
|
frm_rp_rp_total.ManualFloat(frm_rp_rp_total.BoundsRect );
|
|
|
frm_main.freeTabs('frm_rp_rp_total');
|
|
|
action:=cafree;
|
|
|
frm_rp_rp_total:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.Panel1Resize(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinPanel2.Left:=Panel1.Width-bsSkinPanel2.Width;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
// if (not frm_main.db_rpt.connected) then
|
|
|
// frm_main.db_rpt.connected:=true;
|
|
|
bsSkinTabSheet1.show;
|
|
|
// if p_seae.Active then p_seae.close;
|
|
|
// p_seae1.DataSet:=nil;
|
|
|
{
|
|
|
if p_seai.Active then p_seai.close;
|
|
|
p_seai1.DataSet:=nil;
|
|
|
if p_aire.Active then p_aire.close;
|
|
|
p_aire1.DataSet:=nil;
|
|
|
if p_airi.Active then p_airi.close;
|
|
|
p_airi1.DataSet:=nil;
|
|
|
if p_airtruck.Active then p_airtruck.close;
|
|
|
p_airtruck1.DataSet:=nil;
|
|
|
if p_railway.Active then p_railway.close;
|
|
|
p_railway1.DataSet:=nil;
|
|
|
}
|
|
|
try
|
|
|
frm_rp_query:=tfrm_rp_query.Create (self);
|
|
|
rp_query_limited:='0037';
|
|
|
rp_query_bs:=2;
|
|
|
rp_query_bsType:=bsSkinPageControl2.tabIndex;
|
|
|
|
|
|
frm_rp_query.ShowModal;
|
|
|
finally
|
|
|
frm_rp_query.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
loadreggrid(dxdbgrid1,true,caption+'1');
|
|
|
loadreggrid(dxdbgrid2,true,caption+'2');
|
|
|
loadreggrid(dxdbgrid3,false,caption+'3');
|
|
|
loadreggrid(dxdbgrid4,false,caption+'4');
|
|
|
loadreggrid(dxdbgrid5,false,caption+'5');
|
|
|
loadreggrid(dxdbgrid6,false,caption+'6');
|
|
|
loadreggrid(dxdbgrid7,false,caption+'7');
|
|
|
loadreggrid(dxdbgrid8,false,caption+'8');
|
|
|
loadreggrid(dxdbgrid9,false,caption+'9');
|
|
|
rp_rp_total_open:=true;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.bsSkinPageControl1Change(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
str_get:widestring;
|
|
|
begin
|
|
|
// try
|
|
|
if not rp_rp_total_open then
|
|
|
exit;
|
|
|
if (not p_seae.Active) and (not p_seai.Active) and (not p_aire.Active) and (not p_airi.Active) and (not p_airtruck.Active) then
|
|
|
exit;
|
|
|
IF bsSkinTabSheet1.Showing then
|
|
|
exit;
|
|
|
// frm_rp_rp_total.sum_do(bsSkinPageControl1.ActivePage.Caption);
|
|
|
str:=new_query(p_seae);
|
|
|
if str<>'no'then
|
|
|
begin
|
|
|
str_get:='SELECT COUNT(t_op_seae.<2E><><EFBFBD><EFBFBD>) as Ʊ<><C6B1>, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>USD'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>USD) as Ӧ<><D3A6>USD, sum( t_op_gain.Ӧ<><D3A6>USD) as Ӧ<><D3A6>USD, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>RMB) as <20><><EFBFBD><EFBFBD>RMB'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>RMB) as Ӧ<><D3A6>RMB, sum( t_op_gain.Ӧ<><D3A6>RMB) as Ӧ<><D3A6>RMB, sum(t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>) as ë<><C3AB><EFBFBD><EFBFBD>'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>OT) as Ӧ<><D3A6>OT, sum( t_op_gain.Ӧ<><D3A6>OT) as Ӧ<><D3A6>OT, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>OT) as <20><><EFBFBD><EFBFBD>OT'
|
|
|
+', sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>, sum( t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>'
|
|
|
+',(case when isnull(sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>),0)=0 then '+''''+'<27><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD>'+''''+' else '
|
|
|
+'ltrim(str(sum(t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>)/sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>)*100,10,2))+'+''''+'%'+''''+' end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+',(CASE WHEN sum(t_op_gain.Ӧ<><D3A6>USD)=0 THEN 0 ELSE sum(t_op_gain.<2E><><EFBFBD><EFBFBD>USD)/sum(t_op_gain.Ӧ<><D3A6>USD) END)*100 as USD<53><44><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+',(CASE WHEN sum(t_op_gain.Ӧ<><D3A6>RMB)=0 THEN 0 ELSE sum(t_op_gain.<2E><><EFBFBD><EFBFBD>RMB)/sum(t_op_gain.Ӧ<><D3A6>RMB) END)*100 as RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+', sum(t_op_seae.<2E><><EFBFBD><EFBFBD>1) as <20><><EFBFBD><EFBFBD>1, sum(t_op_seae.<2E><><EFBFBD><EFBFBD>2) as <20><><EFBFBD><EFBFBD>2, sum(t_op_seae.<2E><><EFBFBD><EFBFBD>3) as <20><><EFBFBD><EFBFBD>3'
|
|
|
+', sum(t_op_seae.<2E><><EFBFBD><EFBFBD>4) as <20><><EFBFBD><EFBFBD>4, sum(t_op_seae.<2E><><EFBFBD><EFBFBD>5) as <20><><EFBFBD><EFBFBD>5, sum(t_op_seae.<2E><><EFBFBD><EFBFBD>6) as <20><><EFBFBD><EFBFBD>6'
|
|
|
+', sum(t_op_seae.<2E><><EFBFBD><EFBFBD>7) as <20><><EFBFBD><EFBFBD>7, sum(t_op_seae.<2E><><EFBFBD><EFBFBD>8) as <20><><EFBFBD><EFBFBD>8, sum(t_op_seae.<2E><><EFBFBD><EFBFBD>9) as <20><><EFBFBD><EFBFBD>9'
|
|
|
+', sum(t_op_seae.<2E><><EFBFBD><EFBFBD>10) as <20><><EFBFBD><EFBFBD>10, sum(t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+', sum(t_op_seae.<2E><>TEU) as <20><>TEU'
|
|
|
+',t_op_seae.'+bsSkinPageControl1.ActivePage.Caption+' as base'
|
|
|
+','+''''+bsSkinPageControl1.ActivePage.Caption+''''+' as ͳ<>Ʊ<EFBFBD>'
|
|
|
+','+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''+' as ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+' FROM t_op_seae inner JOIN'
|
|
|
+' t_op_gain ON t_op_seae.<2E><><EFBFBD><EFBFBD> = t_op_gain.<2E><><EFBFBD><EFBFBD> '
|
|
|
+str+' group by '+'t_op_seae.'+bsSkinPageControl1.ActivePage.Caption
|
|
|
+' union ';
|
|
|
str:=new_query(p_seai);
|
|
|
str_get:=str_get+'SELECT COUNT(t_op_seai.<2E><><EFBFBD><EFBFBD>) as Ʊ<><C6B1>, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>USD'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>USD) as Ӧ<><D3A6>USD, sum( t_op_gain.Ӧ<><D3A6>USD) as Ӧ<><D3A6>USD, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>RMB) as <20><><EFBFBD><EFBFBD>RMB'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>RMB) as Ӧ<><D3A6>RMB, sum( t_op_gain.Ӧ<><D3A6>RMB) as Ӧ<><D3A6>RMB, sum(t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>) as ë<><C3AB><EFBFBD><EFBFBD>'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>OT) as Ӧ<><D3A6>OT, sum( t_op_gain.Ӧ<><D3A6>OT) as Ӧ<><D3A6>OT, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>OT) as <20><><EFBFBD><EFBFBD>OT'
|
|
|
+', sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>, sum( t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>'
|
|
|
+',(case when isnull(sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>),0)=0 then '+''''+'<27><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD>'+''''+' else '
|
|
|
+'ltrim(str(sum(t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>)/sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>)*100,10,2))+'+''''+'%'+''''+' end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+',(CASE WHEN sum(t_op_gain.Ӧ<><D3A6>USD)=0 THEN 0 ELSE sum(t_op_gain.<2E><><EFBFBD><EFBFBD>USD)/sum(t_op_gain.Ӧ<><D3A6>USD) END)*100 as USD<53><44><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+',(CASE WHEN sum(t_op_gain.Ӧ<><D3A6>RMB)=0 THEN 0 ELSE sum(t_op_gain.<2E><><EFBFBD><EFBFBD>RMB)/sum(t_op_gain.Ӧ<><D3A6>RMB) END)*100 as RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+', sum(t_op_seai.<2E><><EFBFBD><EFBFBD>1) as <20><><EFBFBD><EFBFBD>1, sum(t_op_seai.<2E><><EFBFBD><EFBFBD>2) as <20><><EFBFBD><EFBFBD>2, sum(t_op_seai.<2E><><EFBFBD><EFBFBD>3) as <20><><EFBFBD><EFBFBD>3'
|
|
|
+', sum(t_op_seai.<2E><><EFBFBD><EFBFBD>4) as <20><><EFBFBD><EFBFBD>4, sum(t_op_seai.<2E><><EFBFBD><EFBFBD>5) as <20><><EFBFBD><EFBFBD>5, sum(t_op_seai.<2E><><EFBFBD><EFBFBD>6) as <20><><EFBFBD><EFBFBD>6'
|
|
|
+', sum(t_op_seai.<2E><><EFBFBD><EFBFBD>7) as <20><><EFBFBD><EFBFBD>7, sum(t_op_seai.<2E><><EFBFBD><EFBFBD>8) as <20><><EFBFBD><EFBFBD>8, sum(t_op_seai.<2E><><EFBFBD><EFBFBD>9) as <20><><EFBFBD><EFBFBD>9'
|
|
|
+', sum(t_op_seai.<2E><><EFBFBD><EFBFBD>10) as <20><><EFBFBD><EFBFBD>10, sum(t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+', sum(t_op_seai.<2E><>TEU) as <20><>TEU'
|
|
|
+',t_op_seai.'+bsSkinPageControl1.ActivePage.Caption+' as base'
|
|
|
+','+''''+bsSkinPageControl1.ActivePage.Caption+''''+' as ͳ<>Ʊ<EFBFBD>'
|
|
|
+','+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''+' as ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+' FROM t_op_seai LEFT JOIN'
|
|
|
+' t_op_gain ON t_op_seai.<2E><><EFBFBD><EFBFBD> = t_op_gain.<2E><><EFBFBD><EFBFBD> '
|
|
|
+str+' group by '+'t_op_seai.'+bsSkinPageControl1.ActivePage.Caption
|
|
|
+' union ';
|
|
|
str:=new_query(p_aire);
|
|
|
str_get:=str_get+'SELECT COUNT(t_op_aire.<2E><><EFBFBD><EFBFBD>) as Ʊ<><C6B1>, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>USD'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>USD) as Ӧ<><D3A6>USD, sum( t_op_gain.Ӧ<><D3A6>USD) as Ӧ<><D3A6>USD, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>RMB) as <20><><EFBFBD><EFBFBD>RMB'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>RMB) as Ӧ<><D3A6>RMB, sum( t_op_gain.Ӧ<><D3A6>RMB) as Ӧ<><D3A6>RMB, sum(t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>) as ë<><C3AB><EFBFBD><EFBFBD>'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>OT) as Ӧ<><D3A6>OT, sum( t_op_gain.Ӧ<><D3A6>OT) as Ӧ<><D3A6>OT, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>OT) as <20><><EFBFBD><EFBFBD>OT'
|
|
|
+', sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>, sum( t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>'
|
|
|
+',(case when isnull(sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>),0)=0 then '+''''+'<27><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD>'+''''+' else '
|
|
|
+'ltrim(str(sum(t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>)/sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>)*100,10,2))+'+''''+'%'+''''+' end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+',(CASE WHEN sum(t_op_gain.Ӧ<><D3A6>USD)=0 THEN 0 ELSE sum(t_op_gain.<2E><><EFBFBD><EFBFBD>USD)/sum(t_op_gain.Ӧ<><D3A6>USD) END)*100 as USD<53><44><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+',(CASE WHEN sum(t_op_gain.Ӧ<><D3A6>RMB)=0 THEN 0 ELSE sum(t_op_gain.<2E><><EFBFBD><EFBFBD>RMB)/sum(t_op_gain.Ӧ<><D3A6>RMB) END)*100 as RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>1, 0 as <20><><EFBFBD><EFBFBD>2, 0 as <20><><EFBFBD><EFBFBD>3'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>4, 0 as <20><><EFBFBD><EFBFBD>5, 0 as <20><><EFBFBD><EFBFBD>6'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>7, 0 as <20><><EFBFBD><EFBFBD>8, 0 as <20><><EFBFBD><EFBFBD>9'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>10, 0 as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+', 0 as <20><>TEU'
|
|
|
+',t_op_aire.'+bsSkinPageControl1.ActivePage.Caption+' as base'
|
|
|
+','+''''+bsSkinPageControl1.ActivePage.Caption+''''+' as ͳ<>Ʊ<EFBFBD>'
|
|
|
+','+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+''''+' as ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+' FROM t_op_aire LEFT JOIN'
|
|
|
+' t_op_gain ON t_op_aire.<2E><><EFBFBD><EFBFBD> = t_op_gain.<2E><><EFBFBD><EFBFBD> '
|
|
|
+str+' group by '+'t_op_aire.'+bsSkinPageControl1.ActivePage.Caption
|
|
|
+' union ';
|
|
|
str:=new_query(p_airi);
|
|
|
str_get:=str_get+'SELECT COUNT(t_op_airi.<2E><><EFBFBD><EFBFBD>) as Ʊ<><C6B1>, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>USD'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>USD) as Ӧ<><D3A6>USD, sum( t_op_gain.Ӧ<><D3A6>USD) as Ӧ<><D3A6>USD, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>RMB) as <20><><EFBFBD><EFBFBD>RMB'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>RMB) as Ӧ<><D3A6>RMB, sum( t_op_gain.Ӧ<><D3A6>RMB) as Ӧ<><D3A6>RMB, sum(t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>) as ë<><C3AB><EFBFBD><EFBFBD>'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>OT) as Ӧ<><D3A6>OT, sum( t_op_gain.Ӧ<><D3A6>OT) as Ӧ<><D3A6>OT, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>OT) as <20><><EFBFBD><EFBFBD>OT'
|
|
|
+', sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>, sum( t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>'
|
|
|
+',(case when isnull(sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>),0)=0 then '+''''+'<27><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD>'+''''+' else '
|
|
|
+'ltrim(str(sum(t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>)/sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>)*100,10,2))+'+''''+'%'+''''+' end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+',(CASE WHEN sum(t_op_gain.Ӧ<><D3A6>USD)=0 THEN 0 ELSE sum(t_op_gain.<2E><><EFBFBD><EFBFBD>USD)/sum(t_op_gain.Ӧ<><D3A6>USD) END)*100 as USD<53><44><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+',(CASE WHEN sum(t_op_gain.Ӧ<><D3A6>RMB)=0 THEN 0 ELSE sum(t_op_gain.<2E><><EFBFBD><EFBFBD>RMB)/sum(t_op_gain.Ӧ<><D3A6>RMB) END)*100 as RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>1, 0 as <20><><EFBFBD><EFBFBD>2, 0 as <20><><EFBFBD><EFBFBD>3'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>4, 0 as <20><><EFBFBD><EFBFBD>5, 0 as <20><><EFBFBD><EFBFBD>6'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>7, 0 as <20><><EFBFBD><EFBFBD>8, 0 as <20><><EFBFBD><EFBFBD>9'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>10, 0 as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+', 0 as <20><>TEU'
|
|
|
+',t_op_airi.'+bsSkinPageControl1.ActivePage.Caption+' as base'
|
|
|
+','+''''+bsSkinPageControl1.ActivePage.Caption+''''+' as ͳ<>Ʊ<EFBFBD>'
|
|
|
+','+''''+'<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>'+''''+' as ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+' FROM t_op_airi LEFT JOIN'
|
|
|
+' t_op_gain ON t_op_airi.<2E><><EFBFBD><EFBFBD> = t_op_gain.<2E><><EFBFBD><EFBFBD> '
|
|
|
+str+' group by '+'t_op_airi.'+bsSkinPageControl1.ActivePage.Caption
|
|
|
+' union ';
|
|
|
str:=new_query(p_airtruck);
|
|
|
str_get:=str_get+'SELECT COUNT(t_op_airtruck.<2E><><EFBFBD><EFBFBD>) as Ʊ<><C6B1>, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>USD'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>USD) as Ӧ<><D3A6>USD, sum( t_op_gain.Ӧ<><D3A6>USD) as Ӧ<><D3A6>USD, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>RMB) as <20><><EFBFBD><EFBFBD>RMB'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>RMB) as Ӧ<><D3A6>RMB, sum( t_op_gain.Ӧ<><D3A6>RMB) as Ӧ<><D3A6>RMB, sum(t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>) as ë<><C3AB><EFBFBD><EFBFBD>'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>OT) as Ӧ<><D3A6>OT, sum( t_op_gain.Ӧ<><D3A6>OT) as Ӧ<><D3A6>OT, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>OT) as <20><><EFBFBD><EFBFBD>OT'
|
|
|
+', sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>, sum( t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>'
|
|
|
+',(case when isnull(sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>),0)=0 then '+''''+'<27><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD>'+''''+' else '
|
|
|
+'ltrim(str(sum(t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>)/sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>)*100,10,2))+'+''''+'%'+''''+' end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+',(CASE WHEN sum(t_op_gain.Ӧ<><D3A6>USD)=0 THEN 0 ELSE sum(t_op_gain.<2E><><EFBFBD><EFBFBD>USD)/sum(t_op_gain.Ӧ<><D3A6>USD) END)*100 as USD<53><44><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+',(CASE WHEN sum(t_op_gain.Ӧ<><D3A6>RMB)=0 THEN 0 ELSE sum(t_op_gain.<2E><><EFBFBD><EFBFBD>RMB)/sum(t_op_gain.Ӧ<><D3A6>RMB) END)*100 as RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>1, 0 as <20><><EFBFBD><EFBFBD>2, 0 as <20><><EFBFBD><EFBFBD>3'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>4, 0 as <20><><EFBFBD><EFBFBD>5, 0 as <20><><EFBFBD><EFBFBD>6'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>7, 0 as <20><><EFBFBD><EFBFBD>8, 0 as <20><><EFBFBD><EFBFBD>9'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>10, 0 as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+', 0 as <20><>TEU'
|
|
|
+',t_op_airtruck.'+bsSkinPageControl1.ActivePage.Caption+' as base'
|
|
|
+','+''''+bsSkinPageControl1.ActivePage.Caption+''''+' as ͳ<>Ʊ<EFBFBD>'
|
|
|
+','+''''+'<27><><EFBFBD>ܳ<EFBFBD>'+''''+' as ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+' FROM t_op_airtruck LEFT JOIN'
|
|
|
+' t_op_gain ON t_op_airtruck.<2E><><EFBFBD><EFBFBD> = t_op_gain.<2E><><EFBFBD><EFBFBD> '
|
|
|
+str+' group by '+'t_op_airtruck.'+bsSkinPageControl1.ActivePage.Caption;
|
|
|
{
|
|
|
+' union ';
|
|
|
str:=new_query(p_railway);
|
|
|
str_get:=str_get+'SELECT COUNT(t_op_railway.<2E><><EFBFBD><EFBFBD>) as Ʊ<><C6B1>, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>USD'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>USD) as Ӧ<><D3A6>USD, sum( t_op_gain.Ӧ<><D3A6>USD) as Ӧ<><D3A6>USD, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>RMB) as <20><><EFBFBD><EFBFBD>RMB'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>RMB) as Ӧ<><D3A6>RMB, sum( t_op_gain.Ӧ<><D3A6>RMB) as Ӧ<><D3A6>RMB, sum(t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>) as ë<><C3AB><EFBFBD><EFBFBD>'
|
|
|
+', sum(t_op_gain.Ӧ<><D3A6>OT) as Ӧ<><D3A6>OT, sum( t_op_gain.Ӧ<><D3A6>OT) as Ӧ<><D3A6>OT, sum(t_op_gain.<2E><><EFBFBD><EFBFBD>OT) as <20><><EFBFBD><EFBFBD>OT'
|
|
|
+', sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>, sum( t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>'
|
|
|
+',(case when isnull(sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>),0)=0 then '+''''+'<27><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD>'+''''+' else '
|
|
|
+'ltrim(str(sum(t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>)/sum(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>)*100,10,2))+'+''''+'%'+''''+' end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+',(CASE WHEN sum(t_op_gain.Ӧ<><D3A6>USD)=0 THEN 0 ELSE sum(t_op_gain.<2E><><EFBFBD><EFBFBD>USD)/sum(t_op_gain.Ӧ<><D3A6>USD) END)*100 as USD<53><44><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+',(CASE WHEN sum(t_op_gain.Ӧ<><D3A6>RMB)=0 THEN 0 ELSE sum(t_op_gain.<2E><><EFBFBD><EFBFBD>RMB)/sum(t_op_gain.Ӧ<><D3A6>RMB) END)*100 as RMB<4D><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>1, 0 as <20><><EFBFBD><EFBFBD>2, 0 as <20><><EFBFBD><EFBFBD>3'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>4, 0 as <20><><EFBFBD><EFBFBD>5, 0 as <20><><EFBFBD><EFBFBD>6'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>7, 0 as <20><><EFBFBD><EFBFBD>8, 0 as <20><><EFBFBD><EFBFBD>9'
|
|
|
+', 0 as <20><><EFBFBD><EFBFBD>10, 0 as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+', 0 as <20><>TEU'
|
|
|
+',t_op_railway.'+bsSkinPageControl1.ActivePage.Caption+' as base'
|
|
|
+','+''''+bsSkinPageControl1.ActivePage.Caption+''''+' as ͳ<>Ʊ<EFBFBD>'
|
|
|
+','+''''+'<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>'+''''+' as ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+' FROM t_op_railway LEFT JOIN'
|
|
|
+' t_op_gain ON t_op_railway.<2E><><EFBFBD><EFBFBD> = t_op_gain.<2E><><EFBFBD><EFBFBD> '
|
|
|
+str+' group by '+'t_op_railway.'+bsSkinPageControl1.ActivePage.Caption;
|
|
|
}
|
|
|
p_sum.close;
|
|
|
p_sum.Parameters.ParamByName('SQLStr').Value:=str_get;
|
|
|
p_sum.open;
|
|
|
end;
|
|
|
{
|
|
|
except
|
|
|
;
|
|
|
end;
|
|
|
}
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.bsSkinButton9Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton9.ClientToScreen(Point(0,bsSkinButton9.Height));
|
|
|
PopupMenu1.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.Showing then
|
|
|
begin
|
|
|
if bsSkinTabSheet11.Showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet12.Showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid2);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet13.Showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid3);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet14.Showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid4);
|
|
|
exit;
|
|
|
end;
|
|
|
if tab5.Showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid10);
|
|
|
exit;
|
|
|
end;
|
|
|
if tab6.Showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid23);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.Showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid5);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.Showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid6);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.Showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid7);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.Showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid8);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.Showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid9);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.Showing then
|
|
|
begin
|
|
|
if bsSkinTabSheet11.Showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet12.Showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid2);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet13.Showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid3);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet14.Showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid4);
|
|
|
exit;
|
|
|
end;
|
|
|
if tab5.Showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid10);
|
|
|
exit;
|
|
|
end;
|
|
|
if tab6.Showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid23);
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
if bsSkinTabSheet2.Showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid5);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.Showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid6);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.Showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid7);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.Showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid8);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.Showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid9);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.Showing then
|
|
|
begin
|
|
|
if bsSkinTabSheet11.Showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,87);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet12.Showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid2,88);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet13.Showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid3,89);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet14.Showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid4,90);
|
|
|
exit;
|
|
|
end;
|
|
|
if tab5.Showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid10,951);
|
|
|
exit;
|
|
|
end;
|
|
|
if tab6.Showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid23,952);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.Showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid5,91);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.Showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid6,92);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.Showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid7,93);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.Showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid8,94);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.Showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid9,95);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.Showing then
|
|
|
begin
|
|
|
if bsSkinTabSheet11.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet12.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid2);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet13.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid3);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet14.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid4);
|
|
|
exit;
|
|
|
end;
|
|
|
if tab5.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid10);
|
|
|
exit;
|
|
|
end;
|
|
|
if tab6.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid23);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid5);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid6);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid7);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid8);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid9);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet9.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid22);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet8.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid21);
|
|
|
exit;
|
|
|
end;
|
|
|
if bskntbsht1.Showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid20);
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid2ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_seai,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid3ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_aire,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid4ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_airi,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid5ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_sum,'base');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid6ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_sum,'base');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid7ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_sum,'base');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid8ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_sum,'base');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid9ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_sum,'base');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid1DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(p_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid2DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(p_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid3DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(p_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid4DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(p_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid1Column116CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if strtofloatdef(AText,0)<=0 then
|
|
|
AColor:=clRed;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGridColumn11CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if strtofloatdef(AText,0)<=0 then
|
|
|
AColor:=clRed;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGridColumn21CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if strtofloatdef(AText,0)<=0 then
|
|
|
AColor:=clRed;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGridColumn31CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if strtofloatdef(AText,0)<=0 then
|
|
|
AColor:=clRed;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGridColumn85CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if strtofloatdef(AText,0)<=0 then
|
|
|
AColor:=clRed;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid2Column34CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if strtofloatdef(AText,0)<=0 then
|
|
|
AColor:=clRed;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.p_seaeAfterOpen(DataSet: TDataSet);
|
|
|
begin
|
|
|
AdoFormatdxDBGrid(DataSet);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.p_seaiAfterOpen(DataSet: TDataSet);
|
|
|
begin
|
|
|
AdoFormatdxDBGrid(DataSet);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.N2Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.Showing then
|
|
|
begin
|
|
|
if bsSkinTabSheet11.Showing then
|
|
|
begin
|
|
|
dxdbgrid1.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet12.Showing then
|
|
|
begin
|
|
|
dxdbgrid2.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet13.Showing then
|
|
|
begin
|
|
|
dxdbgrid3.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet14.Showing then
|
|
|
begin
|
|
|
dxdbgrid4.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if tab5.Showing then
|
|
|
begin
|
|
|
dxdbgrid10.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if tab6.Showing then
|
|
|
begin
|
|
|
dxdbgrid23.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.Showing then
|
|
|
begin
|
|
|
dxdbgrid5.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.Showing then
|
|
|
begin
|
|
|
dxdbgrid6.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.Showing then
|
|
|
begin
|
|
|
dxdbgrid7.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.Showing then
|
|
|
begin
|
|
|
dxdbgrid8.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.Showing then
|
|
|
begin
|
|
|
dxdbgrid9.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.N4Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.Showing then
|
|
|
begin
|
|
|
if bsSkinTabSheet11.Showing then
|
|
|
begin
|
|
|
dxdbgrid1.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet12.Showing then
|
|
|
begin
|
|
|
dxdbgrid2.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet13.Showing then
|
|
|
begin
|
|
|
dxdbgrid3.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet14.Showing then
|
|
|
begin
|
|
|
dxdbgrid4.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if tab5.Showing then
|
|
|
begin
|
|
|
dxdbgrid10.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if tab6.Showing then
|
|
|
begin
|
|
|
dxdbgrid23.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.Showing then
|
|
|
begin
|
|
|
dxdbgrid5.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.Showing then
|
|
|
begin
|
|
|
dxdbgrid6.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.Showing then
|
|
|
begin
|
|
|
dxdbgrid7.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.Showing then
|
|
|
begin
|
|
|
dxdbgrid8.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.Showing then
|
|
|
begin
|
|
|
dxdbgrid9.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.N20Click(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
str:string;
|
|
|
begin
|
|
|
if (not p_seae.IsEmpty) and (dxDBGrid1.GroupColumnCount<>0)then begin
|
|
|
str:='';
|
|
|
for i:=0 to dxDBGrid1.GroupColumnCount-1 do begin
|
|
|
if i=0 then
|
|
|
str:=dxDBGrid1.GroupColumns[i].FieldName
|
|
|
else
|
|
|
str:=str+','+dxDBGrid1.GroupColumns[i].FieldName;
|
|
|
end;
|
|
|
p_seae.Sort:=str;
|
|
|
end;
|
|
|
if (not p_seai.IsEmpty) and (dxDBGrid2.GroupColumnCount<>0)then begin
|
|
|
str:='';
|
|
|
for i:=0 to dxDBGrid2.GroupColumnCount-1 do begin
|
|
|
if i=0 then
|
|
|
str:=dxDBGrid2.GroupColumns[i].FieldName
|
|
|
else
|
|
|
str:=str+','+dxDBGrid2.GroupColumns[i].FieldName;
|
|
|
end;
|
|
|
p_seai.Sort:=str;
|
|
|
end;
|
|
|
if (not p_aire.IsEmpty) and (dxDBGrid3.GroupColumnCount<>0)then begin
|
|
|
str:='';
|
|
|
for i:=0 to dxDBGrid3.GroupColumnCount-1 do begin
|
|
|
if i=0 then
|
|
|
str:=dxDBGrid3.GroupColumns[i].FieldName
|
|
|
else
|
|
|
str:=str+','+dxDBGrid3.GroupColumns[i].FieldName;
|
|
|
end;
|
|
|
p_aire.Sort:=str;
|
|
|
end;
|
|
|
if (not p_airi.IsEmpty) and (dxDBGrid4.GroupColumnCount<>0)then begin
|
|
|
str:='';
|
|
|
for i:=0 to dxDBGrid4.GroupColumnCount-1 do begin
|
|
|
if i=0 then
|
|
|
str:=dxDBGrid4.GroupColumns[i].FieldName
|
|
|
else
|
|
|
str:=str+','+dxDBGrid4.GroupColumns[i].FieldName;
|
|
|
end;
|
|
|
p_airi.Sort:=str;
|
|
|
end;
|
|
|
|
|
|
|
|
|
sys_print('ҵ<><D2B5><EFBFBD>ۺ<EFBFBD>ͳ<EFBFBD><CDB3>',TMenuItem(Sender).tag,nil,nil,nil,nil,p_seae1,p_seai1,p_aire1,p_airi1,t_sum1,nil,nil);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_total.dxDBGrid23DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(p_railway.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|