|
|
unit u_rp_no_total;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, ExtCtrls, ComCtrls, bsSkinTabs, DB, ADODB,
|
|
|
dxExEdtr, dxDBTLCl, dxGrClms, dxDBGrid, dxTL, dxDBCtrl, dxCntner, Menus,
|
|
|
StdCtrls, Grids, DBGrids, kbmMemTable;
|
|
|
|
|
|
type
|
|
|
Tfrm_rp_no_total = class(TForm)
|
|
|
Panel1: TPanel;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
|
|
|
p_total: TADOStoredProc;
|
|
|
p_total1: TDataSource;
|
|
|
p_total_client1: TDataSource;
|
|
|
p_total_client: TADOStoredProc;
|
|
|
p_total_sales: TADOStoredProc;
|
|
|
p_total_sales1: TDataSource;
|
|
|
SaveDialog: TSaveDialog;
|
|
|
bsSkinPageControl4: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGridMaskColumn95: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column23: TdxDBGridColumn;
|
|
|
dxDBGridColumn17: TdxDBGridColumn;
|
|
|
dxDBGridColumn18: TdxDBGridColumn;
|
|
|
dxDBGridColumn19: TdxDBGridColumn;
|
|
|
dxDBGridColumn20: TdxDBGridColumn;
|
|
|
dxDBGridColumn21: TdxDBGridColumn;
|
|
|
dxDBGridColumn22: TdxDBGridColumn;
|
|
|
dxDBGridColumn23: TdxDBGridColumn;
|
|
|
dxDBGridColumn24: TdxDBGridColumn;
|
|
|
dxDBGridColumn25: TdxDBGridColumn;
|
|
|
dxDBGridColumn26: TdxDBGridColumn;
|
|
|
dxDBGridColumn27: TdxDBGridColumn;
|
|
|
dxDBGridColumn28: TdxDBGridColumn;
|
|
|
dxDBGridColumn29: TdxDBGridColumn;
|
|
|
dxDBGridColumn30: TdxDBGridColumn;
|
|
|
dxDBGridColumn31: TdxDBGridColumn;
|
|
|
dxDBGridColumn32: TdxDBGridColumn;
|
|
|
dxDBGridColumn33: TdxDBGridColumn;
|
|
|
dxDBGridColumn34: TdxDBGridColumn;
|
|
|
dxDBGridColumn35: TdxDBGridColumn;
|
|
|
dxDBGridColumn36: TdxDBGridColumn;
|
|
|
dxDBGridColumn37: TdxDBGridColumn;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGridMaskColumn96: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column23: TdxDBGridColumn;
|
|
|
dxDBGridColumn38: TdxDBGridColumn;
|
|
|
dxDBGridColumn39: TdxDBGridColumn;
|
|
|
dxDBGridColumn40: TdxDBGridColumn;
|
|
|
dxDBGridColumn41: TdxDBGridColumn;
|
|
|
dxDBGridColumn42: TdxDBGridColumn;
|
|
|
dxDBGridColumn43: TdxDBGridColumn;
|
|
|
dxDBGridColumn44: TdxDBGridColumn;
|
|
|
dxDBGridColumn45: TdxDBGridColumn;
|
|
|
dxDBGridColumn46: TdxDBGridColumn;
|
|
|
dxDBGridColumn47: TdxDBGridColumn;
|
|
|
dxDBGridColumn48: TdxDBGridColumn;
|
|
|
dxDBGridColumn49: TdxDBGridColumn;
|
|
|
dxDBGridColumn50: TdxDBGridColumn;
|
|
|
dxDBGridColumn51: TdxDBGridColumn;
|
|
|
dxDBGridColumn52: TdxDBGridColumn;
|
|
|
dxDBGridColumn53: TdxDBGridColumn;
|
|
|
dxDBGridColumn54: TdxDBGridColumn;
|
|
|
dxDBGridColumn55: TdxDBGridColumn;
|
|
|
dxDBGridColumn56: TdxDBGridColumn;
|
|
|
dxDBGridColumn57: TdxDBGridColumn;
|
|
|
dxDBGridColumn58: TdxDBGridColumn;
|
|
|
dxDBGrid3: TdxDBGrid;
|
|
|
dxDBGrid3Column22: TdxDBGridColumn;
|
|
|
dxDBGridColumn59: TdxDBGridColumn;
|
|
|
dxDBGridColumn60: TdxDBGridColumn;
|
|
|
dxDBGridColumn61: TdxDBGridColumn;
|
|
|
dxDBGridColumn62: TdxDBGridColumn;
|
|
|
dxDBGridColumn63: TdxDBGridColumn;
|
|
|
dxDBGridColumn64: TdxDBGridColumn;
|
|
|
dxDBGridColumn65: TdxDBGridColumn;
|
|
|
dxDBGridColumn66: TdxDBGridColumn;
|
|
|
dxDBGridColumn67: TdxDBGridColumn;
|
|
|
dxDBGridColumn68: TdxDBGridColumn;
|
|
|
dxDBGridColumn69: TdxDBGridColumn;
|
|
|
dxDBGridColumn70: TdxDBGridColumn;
|
|
|
dxDBGridColumn71: TdxDBGridColumn;
|
|
|
dxDBGridColumn72: TdxDBGridColumn;
|
|
|
dxDBGridColumn73: TdxDBGridColumn;
|
|
|
dxDBGridColumn74: TdxDBGridColumn;
|
|
|
dxDBGridColumn75: TdxDBGridColumn;
|
|
|
dxDBGridColumn76: TdxDBGridColumn;
|
|
|
dxDBGridColumn77: TdxDBGridColumn;
|
|
|
dxDBGridColumn78: TdxDBGridColumn;
|
|
|
dxDBGridColumn79: TdxDBGridColumn;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet5: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet6: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet7: TbsSkinTabSheet;
|
|
|
p_accept_bill1: TDataSource;
|
|
|
p_accept_fee: TADOStoredProc;
|
|
|
p_accept_fee1: TDataSource;
|
|
|
p_pay_bill: TADOStoredProc;
|
|
|
p_pay_bill1: TDataSource;
|
|
|
p_pay_fee: TADOStoredProc;
|
|
|
p_pay_fee1: TDataSource;
|
|
|
dxDBGrid4: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column54: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column64: TdxDBGridColumn;
|
|
|
dxDBGrid1Column66: TdxDBGridColumn;
|
|
|
dxDBGrid1USD: TdxDBGridColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridColumn;
|
|
|
dxDBGrid1RMB: TdxDBGridColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column63: TdxDBGridColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column21: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column22: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column24: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column26: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column27: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column28: TdxDBGridColumn;
|
|
|
dxDBGrid1Column29: TdxDBGridColumn;
|
|
|
dxDBGrid11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid110: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column50: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1TEU: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column52: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column53: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column55: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column56: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column57: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column58: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column59: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column60: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column61: TdxDBGridColumn;
|
|
|
dxDBGrid1Column62: TdxDBGridColumn;
|
|
|
dxDBGrid1Column68: TdxDBGridColumn;
|
|
|
dxDBGrid1Column69: TdxDBGridColumn;
|
|
|
dxDBGrid5: TdxDBGrid;
|
|
|
dxDBGrid3Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column8: TdxDBGridColumn;
|
|
|
dxDBGrid3Column9: TdxDBGridColumn;
|
|
|
dxDBGrid3Column10: TdxDBGridColumn;
|
|
|
dxDBGrid3Column11: TdxDBGridDateColumn;
|
|
|
dxDBGrid3Column59: TdxDBGridColumn;
|
|
|
dxDBGrid3Column12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column19: TdxDBGridDateColumn;
|
|
|
dxDBGrid3Column20: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column21: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column23: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column24: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column25: TdxDBGridColumn;
|
|
|
dxDBGrid3Column26: TdxDBGridColumn;
|
|
|
dxDBGrid31: TdxDBGridMaskColumn;
|
|
|
dxDBGrid32: TdxDBGridMaskColumn;
|
|
|
dxDBGrid33: TdxDBGridMaskColumn;
|
|
|
dxDBGrid34: TdxDBGridMaskColumn;
|
|
|
dxDBGrid35: TdxDBGridMaskColumn;
|
|
|
dxDBGrid36: TdxDBGridMaskColumn;
|
|
|
dxDBGrid37: TdxDBGridMaskColumn;
|
|
|
dxDBGrid38: TdxDBGridMaskColumn;
|
|
|
dxDBGrid39: TdxDBGridMaskColumn;
|
|
|
dxDBGrid310: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column47: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3TEU: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column49: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column50: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column51: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column52: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column53: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column54: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column55: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column56: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column57: TdxDBGridColumn;
|
|
|
dxDBGrid3Column58: TdxDBGridColumn;
|
|
|
dxDBGrid3Column60: TdxDBGridColumn;
|
|
|
dxDBGrid3Column61: TdxDBGridColumn;
|
|
|
dxDBGrid3Column62: TdxDBGridColumn;
|
|
|
dxDBGrid3Column63: TdxDBGridColumn;
|
|
|
dxDBGrid3Column64: TdxDBGridColumn;
|
|
|
dxDBGrid3Column65: TdxDBGridColumn;
|
|
|
dxDBGrid6: TdxDBGrid;
|
|
|
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn5: TdxDBGridColumn;
|
|
|
dxDBGridColumn6: TdxDBGridColumn;
|
|
|
dxDBGridColumn7: TdxDBGridColumn;
|
|
|
dxDBGridColumn8: TdxDBGridColumn;
|
|
|
dxDBGridColumn9: TdxDBGridColumn;
|
|
|
dxDBGridColumn10: TdxDBGridColumn;
|
|
|
dxDBGridColumn11: TdxDBGridColumn;
|
|
|
dxDBGridColumn80: TdxDBGridColumn;
|
|
|
dxDBGridColumn81: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn1: TdxDBGridDateColumn;
|
|
|
dxDBGridColumn82: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn2: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn83: TdxDBGridColumn;
|
|
|
dxDBGridColumn84: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn85: TdxDBGridColumn;
|
|
|
dxDBGridColumn86: TdxDBGridColumn;
|
|
|
dxDBGridColumn87: TdxDBGridColumn;
|
|
|
dxDBGridColumn88: TdxDBGridColumn;
|
|
|
dxDBGrid7: TdxDBGrid;
|
|
|
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn12: TdxDBGridColumn;
|
|
|
dxDBGridColumn13: TdxDBGridColumn;
|
|
|
dxDBGridColumn14: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn3: TdxDBGridDateColumn;
|
|
|
dxDBGrid5Column58: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn56: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn57: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn58: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn59: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn4: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn60: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn61: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn62: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn63: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn64: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn15: TdxDBGridColumn;
|
|
|
dxDBGridColumn16: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn65: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn66: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn67: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn68: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn69: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn70: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn71: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn72: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn73: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn74: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn85: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn86: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn87: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn88: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn89: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn90: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn91: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn92: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn93: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn94: TdxDBGridMaskColumn;
|
|
|
dxDBGrid5Column56: TdxDBGridColumn;
|
|
|
dxDBGrid5Column57: TdxDBGridColumn;
|
|
|
dxDBGrid5Column49: TdxDBGridColumn;
|
|
|
dxDBGrid5Column50: TdxDBGridColumn;
|
|
|
dxDBGrid5Column51: TdxDBGridColumn;
|
|
|
dxDBGrid5Column52: TdxDBGridColumn;
|
|
|
dxDBGrid5Column53: TdxDBGridColumn;
|
|
|
dxDBGrid5Column54: TdxDBGridColumn;
|
|
|
dxDBGrid4Column59: TdxDBGridColumn;
|
|
|
dxDBGrid5Column55: TdxDBGridColumn;
|
|
|
dxDBGrid6Column55: TdxDBGridColumn;
|
|
|
dxDBGrid7Column55: TdxDBGridColumn;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
dxDBGrid4Column60: TdxDBGridColumn;
|
|
|
dxDBGrid5Column59: TdxDBGridColumn;
|
|
|
dxDBGrid6Column56: TdxDBGridColumn;
|
|
|
dxDBGrid7Column56: TdxDBGridColumn;
|
|
|
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
|
|
|
N1: TMenuItem;
|
|
|
N2: TMenuItem;
|
|
|
N3: TMenuItem;
|
|
|
N4: TMenuItem;
|
|
|
dxDBGrid4Column61: TdxDBGridColumn;
|
|
|
dxDBGrid4Column62: TdxDBGridColumn;
|
|
|
dxDBGrid5Column60: TdxDBGridColumn;
|
|
|
dxDBGrid5Column61: TdxDBGridColumn;
|
|
|
dxDBGrid6Column57: TdxDBGridColumn;
|
|
|
dxDBGrid6Column58: TdxDBGridColumn;
|
|
|
dxDBGrid7Column57: TdxDBGridColumn;
|
|
|
dxDBGrid7Column58: TdxDBGridColumn;
|
|
|
dxDBGrid4Column63: TdxDBGridColumn;
|
|
|
dxDBGrid5Column62: TdxDBGridColumn;
|
|
|
dxDBGrid6Column59: TdxDBGridColumn;
|
|
|
dxDBGrid7Column59: TdxDBGridColumn;
|
|
|
dxDBGrid4Column64: TdxDBGridColumn;
|
|
|
dxDBGrid5Column63: TdxDBGridColumn;
|
|
|
dxDBGrid6Column60: TdxDBGridColumn;
|
|
|
dxDBGrid7Column60: TdxDBGridColumn;
|
|
|
dxDBGrid4Column65: TdxDBGridColumn;
|
|
|
dxDBGrid5Column64: TdxDBGridColumn;
|
|
|
dxDBGrid6Column61: TdxDBGridColumn;
|
|
|
dxDBGrid7Column61: TdxDBGridColumn;
|
|
|
dxDBGrid4Column66: TdxDBGridColumn;
|
|
|
dxDBGrid4Column67: TdxDBGridColumn;
|
|
|
dxDBGrid4Column68: TdxDBGridColumn;
|
|
|
dxDBGrid4Column69: TdxDBGridColumn;
|
|
|
p_accept_bill: TADOQuery;
|
|
|
p_accept_billDSDesigner: TStringField;
|
|
|
p_accept_billDSDesigner2: TStringField;
|
|
|
p_accept_billUSD: TBCDField;
|
|
|
p_accept_billUSD2: TBCDField;
|
|
|
p_accept_billUSD3: TBCDField;
|
|
|
p_accept_billRMB: TBCDField;
|
|
|
p_accept_billRMB2: TBCDField;
|
|
|
p_accept_billRMB3: TBCDField;
|
|
|
p_accept_billDSDesigner3: TBCDField;
|
|
|
p_accept_billDSDesigner4: TBCDField;
|
|
|
p_accept_billDSDesigner5: TBCDField;
|
|
|
p_accept_billDSDesigner6: TStringField;
|
|
|
p_accept_billDSDesigner7: TDateTimeField;
|
|
|
p_accept_billDSDesigner8: TStringField;
|
|
|
p_accept_billDSDesigner9: TStringField;
|
|
|
p_accept_billDSDesigner10: TStringField;
|
|
|
p_accept_billDSDesigner11: TStringField;
|
|
|
p_accept_billDSDesigner12: TStringField;
|
|
|
p_accept_billDSDesigner13: TStringField;
|
|
|
p_accept_billDSDesigner14: TStringField;
|
|
|
p_accept_billDSDesigner15: TStringField;
|
|
|
p_accept_billDSDesigner16: TStringField;
|
|
|
p_accept_billDSDesigner17: TStringField;
|
|
|
p_accept_billDSDesigner18: TStringField;
|
|
|
p_accept_billDSDesigner19: TStringField;
|
|
|
p_accept_billDSDesigner20: TStringField;
|
|
|
p_accept_billDSDesigner21: TDateTimeField;
|
|
|
p_accept_billDSDesigner22: TStringField;
|
|
|
p_accept_billDSDesigner23: TStringField;
|
|
|
p_accept_billDSDesigner24: TStringField;
|
|
|
p_accept_billDSDesigner25: TIntegerField;
|
|
|
p_accept_billDSDesigner26: TBCDField;
|
|
|
p_accept_billDSDesigner27: TBCDField;
|
|
|
p_accept_billDSDesigner1: TIntegerField;
|
|
|
p_accept_billDSDesigner28: TIntegerField;
|
|
|
p_accept_billDSDesigner32: TIntegerField;
|
|
|
p_accept_billDSDesigner42: TIntegerField;
|
|
|
p_accept_billDSDesigner52: TIntegerField;
|
|
|
p_accept_billDSDesigner62: TIntegerField;
|
|
|
p_accept_billDSDesigner72: TIntegerField;
|
|
|
p_accept_billDSDesigner82: TIntegerField;
|
|
|
p_accept_billDSDesigner92: TIntegerField;
|
|
|
p_accept_billDSDesigner102: TIntegerField;
|
|
|
p_accept_billDSDesigner29: TIntegerField;
|
|
|
p_accept_billTEU: TIntegerField;
|
|
|
p_accept_billDSDesigner30: TStringField;
|
|
|
p_accept_billDSDesigner31: TStringField;
|
|
|
p_accept_billDSDesigner33: TStringField;
|
|
|
p_accept_billDSDesigner34: TStringField;
|
|
|
p_accept_billDSDesigner35: TStringField;
|
|
|
p_accept_billDSDesigner36: TStringField;
|
|
|
p_accept_billDSDesigner37: TStringField;
|
|
|
p_accept_billDSDesigner38: TStringField;
|
|
|
p_accept_billDSDesigner39: TStringField;
|
|
|
p_accept_billDSDesigner40: TStringField;
|
|
|
p_accept_billDSDesigner41: TStringField;
|
|
|
p_accept_billDSDesigner43: TStringField;
|
|
|
p_accept_billDSDesigner44: TStringField;
|
|
|
p_accept_billDSDesigner45: TIntegerField;
|
|
|
p_accept_billDSDesigner46: TIntegerField;
|
|
|
p_accept_billDSDesigner47: TBCDField;
|
|
|
ADOQueryINV: TADOQuery;
|
|
|
ADOQueryINVDSDesigner: TStringField;
|
|
|
ADOQueryINVDSDesigner2: TStringField;
|
|
|
ADOQueryINVUSD: TStringField;
|
|
|
ADOQueryINVusd2: TBCDField;
|
|
|
ADOQueryINVRMB: TStringField;
|
|
|
ADOQueryINVRMB2: TBCDField;
|
|
|
memtblDetail: TkbmMemTable;
|
|
|
memtblDetailField: TStringField;
|
|
|
memtblDetailField2: TStringField;
|
|
|
memtblDetailUSD: TStringField;
|
|
|
memtblDetailusd2: TFloatField;
|
|
|
memtblDetailRMB: TStringField;
|
|
|
memtblDetailRMB2: TFloatField;
|
|
|
p_accept_billUSD4: TStringField;
|
|
|
p_accept_billUSD5: TFloatField;
|
|
|
p_accept_billRMB4: TStringField;
|
|
|
p_accept_billRMB5: TFloatField;
|
|
|
p_accept_billField: TIntegerField;
|
|
|
dxDBGrid4Column70: TdxDBGridColumn;
|
|
|
dxDBGrid3Column27: TdxDBGridColumn;
|
|
|
dxDBGrid5Column65: TdxDBGridColumn;
|
|
|
dxDBGrid7Column62: TdxDBGridColumn;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure Panel1Resize(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(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 dxDBGrid4DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid5DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid6DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid7DblClick(Sender: TObject);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure p_totalAfterOpen(DataSet: TDataSet);
|
|
|
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 bsSkinPageControl4Change(Sender: TObject);
|
|
|
procedure N3Click(Sender: TObject);
|
|
|
procedure N4Click(Sender: TObject);
|
|
|
procedure dxDBGrid4Column61CustomDraw(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 dxDBGrid5Column60CustomDraw(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 dxDBGrid6Column57CustomDraw(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 dxDBGrid7Column57CustomDraw(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 dxDBGrid4Column62CustomDraw(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 dxDBGrid5Column61CustomDraw(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 dxDBGrid6Column58CustomDraw(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 dxDBGrid7Column58CustomDraw(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_accept_billCalcFields(DataSet: TDataSet);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_rp_no_total: Tfrm_rp_no_total;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, u_rp_no_seae_query,my_sys_function;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_rp_no_total.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_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');
|
|
|
frm_rp_no_total.Hide;
|
|
|
frm_rp_no_total.ManualFloat(frm_rp_no_total.BoundsRect );
|
|
|
frm_main.freeTabs('frm_rp_no_total');
|
|
|
action:=cafree;
|
|
|
frm_rp_no_total:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.Panel1Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(bsSkinPanel2.Width/10);
|
|
|
bsSkinCheckRadioBox1.Width:=i;
|
|
|
bsSkinCheckRadioBox2.Width:=i;
|
|
|
bsSkinCheckRadioBox3.Width:=i;
|
|
|
bsSkinCheckRadioBox4.Width:=i;
|
|
|
bsSkinCheckRadioBox5.Width:=i;
|
|
|
bsSkinCheckRadioBox6.Width:=i;
|
|
|
bsSkinButton10.Width:=i;
|
|
|
bsSkinButton9.Width:=i;
|
|
|
bsSkinButton1.Width:=i;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
// if p_total.Active then p_total.close;
|
|
|
// p_total1.DataSet:=nil;
|
|
|
if p_total_client.Active then p_total_client.close;
|
|
|
p_total_client1.DataSet:=nil;
|
|
|
if p_total_sales.Active then p_total_sales.close;
|
|
|
p_total_sales1.DataSet:=nil;
|
|
|
if p_accept_bill.Active then p_accept_bill.close;
|
|
|
p_accept_bill1.DataSet:=nil;
|
|
|
if p_accept_fee.Active then p_accept_fee.close;
|
|
|
p_accept_fee1.DataSet:=nil;
|
|
|
if p_pay_bill.Active then p_pay_bill.close;
|
|
|
p_pay_bill1.DataSet:=nil;
|
|
|
if p_pay_fee.Active then p_pay_fee.close;
|
|
|
p_pay_fee1.DataSet:=nil;
|
|
|
try
|
|
|
frm_rp_no_seae_query:=tfrm_rp_no_seae_query.Create (self);
|
|
|
frm_rp_no_seae_query.Caption:='<27><><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7>ͳ<EFBFBD><CDB3>';
|
|
|
no_seae_query_bs:=5;
|
|
|
no_seae_query_limited:='0033';
|
|
|
|
|
|
if bsSkinCheckRadioBox1.Checked then
|
|
|
no_seae_query_fee:=1
|
|
|
else if bsSkinCheckRadioBox2.Checked then
|
|
|
no_seae_query_fee:=2
|
|
|
else if bsSkinCheckRadioBox4.Checked then
|
|
|
no_seae_query_fee:=4
|
|
|
else if bsSkinCheckRadioBox5.Checked then
|
|
|
no_seae_query_fee:=5
|
|
|
else if bsSkinCheckRadioBox6.Checked then
|
|
|
no_seae_query_fee:=6
|
|
|
else
|
|
|
no_seae_query_fee:=3;
|
|
|
|
|
|
frm_rp_no_seae_query.ShowModal;
|
|
|
finally
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
with SaveDialog do
|
|
|
begin
|
|
|
DefaultExt :='xls';
|
|
|
Filter := '(*.xls)|*.xls';
|
|
|
if Execute then
|
|
|
begin
|
|
|
if bsSkinTabSheet1.Showing then
|
|
|
dxDBGrid1.SaveToXLS(FileName,true)
|
|
|
else if bsSkinTabSheet2.Showing then
|
|
|
dxDBGrid2.SaveToXLS(FileName,true)
|
|
|
else if bsSkinTabSheet4.Showing then
|
|
|
dxDBGrid4.SaveToXLS(FileName,true)
|
|
|
else if bsSkinTabSheet5.Showing then
|
|
|
dxDBGrid5.SaveToXLS(FileName,true)
|
|
|
else if bsSkinTabSheet6.Showing then
|
|
|
dxDBGrid6.SaveToXLS(FileName,true)
|
|
|
else if bsSkinTabSheet7.Showing then
|
|
|
dxDBGrid7.SaveToXLS(FileName,true)
|
|
|
else if bsSkinTabSheet3.Showing then
|
|
|
dxDBGrid3.SaveToXLS(FileName,true);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('Ƿ<><C7B7><EFBFBD>ۺϷ<DBBA><CFB7><EFBFBD>',2,nil,nil,nil,nil,p_accept_bill1,p_accept_fee1,p_pay_bill1,p_pay_fee1,p_total_client1,p_total_sales1,p_total1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_total_client,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid2ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_total_sales,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid3ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_total,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid4DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(p_accept_bill.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid5DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(p_accept_fee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid6DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(p_pay_bill.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid7DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(p_pay_fee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid2);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid3);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid4);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid5);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid6);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid7);
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid2);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid3);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid4);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid5);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid6);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid7);
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,123);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid2,124);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid3,125);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid4,126);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid5,127);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid6,128);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid7,129);
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid2);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid3);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid4);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid5);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid6);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid7);
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
loadreggrid(dxdbgrid1,true,caption+'1');
|
|
|
loadreggrid(dxdbgrid2,true,caption+'2');
|
|
|
loadreggrid(dxdbgrid3,true,caption+'3');
|
|
|
loadreggrid(dxdbgrid4,true,caption+'4');
|
|
|
loadreggrid(dxdbgrid5,true,caption+'5');
|
|
|
loadreggrid(dxdbgrid6,true,caption+'6');
|
|
|
loadreggrid(dxdbgrid7,true,caption+'7');
|
|
|
|
|
|
|
|
|
bsSkinTabSheet4.TabVisible:=EmpDr;
|
|
|
bsSkinTabSheet5.TabVisible:=EmpDr;
|
|
|
bsSkinTabSheet6.TabVisible:=EmpCr;
|
|
|
bsSkinTabSheet7.TabVisible:=EmpCr;
|
|
|
|
|
|
bsSkinTabSheet1.TabVisible:=EmpProfit;
|
|
|
bsSkinTabSheet2.TabVisible:=EmpProfit;
|
|
|
bsSkinTabSheet3.TabVisible:=EmpProfit;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.p_totalAfterOpen(DataSet: TDataSet);
|
|
|
begin
|
|
|
AdoFormatdxDBGrid(DataSet);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid4ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort(Column,p_accept_bill,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid5ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_accept_fee,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid6ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_pay_bill,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid7ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_pay_fee,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.bsSkinPageControl4Change(Sender: TObject);
|
|
|
begin
|
|
|
// bsSkinPageControl4.Refresh;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.N3Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
dxdbgrid1.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.showing then
|
|
|
begin
|
|
|
dxdbgrid2.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.showing then
|
|
|
begin
|
|
|
dxdbgrid3.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.showing then
|
|
|
begin
|
|
|
dxdbgrid4.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.showing then
|
|
|
begin
|
|
|
dxdbgrid5.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.showing then
|
|
|
begin
|
|
|
dxdbgrid6.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.showing then
|
|
|
begin
|
|
|
dxdbgrid7.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.N4Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
dxdbgrid1.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.showing then
|
|
|
begin
|
|
|
dxdbgrid2.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.showing then
|
|
|
begin
|
|
|
dxdbgrid3.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.showing then
|
|
|
begin
|
|
|
dxdbgrid4.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.showing then
|
|
|
begin
|
|
|
dxdbgrid5.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.showing then
|
|
|
begin
|
|
|
dxdbgrid6.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.showing then
|
|
|
begin
|
|
|
dxdbgrid7.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid4Column61CustomDraw(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
|
|
|
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid4Column61.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid5Column60CustomDraw(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
|
|
|
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid5Column60.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid6Column57CustomDraw(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
|
|
|
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid6Column57.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid7Column57CustomDraw(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
|
|
|
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid7Column57.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid4Column62CustomDraw(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
|
|
|
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid4Column62.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid5Column61CustomDraw(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
|
|
|
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid5Column61.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid6Column58CustomDraw(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
|
|
|
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid6Column58.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.dxDBGrid7Column58CustomDraw(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
|
|
|
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid7Column58.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total.p_accept_billCalcFields(DataSet: TDataSet);
|
|
|
var corpsname,mblno:string;
|
|
|
begin
|
|
|
corpsname:=trim(DataSet.fieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
mblno:=trim(DataSet.fieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring);
|
|
|
if memtblDetail.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>;<3B><><EFBFBD>ᵥ<EFBFBD><E1B5A5>', VarArrayOf([corpsname, mblno]), []) then
|
|
|
begin
|
|
|
DataSet.FieldByName('USD<53><44>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').value:=memtblDetail.fieldByName('USD<53><44>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring;
|
|
|
DataSet.FieldByName('USD<53><44>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').value:=memtblDetail.fieldByName('USD<53><44>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').AsFloat;
|
|
|
DataSet.FieldByName('RMB<4D><42>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').value:=memtblDetail.fieldByName('RMB<4D><42>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring;
|
|
|
DataSet.FieldByName('RMB<4D><42>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').value:=memtblDetail.fieldByName('RMB<4D><42>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').AsFloat;
|
|
|
end;
|
|
|
end;
|
|
|
end.
|