|
|
unit u_rp_rp_seae_pin;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, wwdblook, RxLookup, wwdbdatetimepicker, StdCtrls,
|
|
|
ComCtrls, bsSkinTabs, dxExEdtr, dxDBGrid, dxDBTLCl, dxGrClms, dxTL,inifiles,
|
|
|
dxDBCtrl, dxCntner, DB, ADODB;
|
|
|
|
|
|
type
|
|
|
Tfrm_rp_rp_seae_pin = class(TForm)
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
Label6: TLabel;
|
|
|
Label3: TLabel;
|
|
|
Label1: TLabel;
|
|
|
Label2: TLabel;
|
|
|
Label10: TLabel;
|
|
|
Label5: TLabel;
|
|
|
Label8: TLabel;
|
|
|
Label11: TLabel;
|
|
|
Label9: TLabel;
|
|
|
Label125: TLabel;
|
|
|
Label30: TLabel;
|
|
|
Label124: TLabel;
|
|
|
Label14: TLabel;
|
|
|
Label16: TLabel;
|
|
|
Edit1: TEdit;
|
|
|
Edit4: TEdit;
|
|
|
Edit2: TEdit;
|
|
|
Edit3: TEdit;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker3: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker4: TwwDBDateTimePicker;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
wwDBLookupCombo49: TwwDBLookupCombo;
|
|
|
Edit7: TEdit;
|
|
|
wwDBLookupCombo52: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo6: TRxDBLookupCombo;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
Label22: TLabel;
|
|
|
RxDBLookupCombo10: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
Label4: TLabel;
|
|
|
aa: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column70: TdxDBGridColumn;
|
|
|
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;
|
|
|
dxDBGrid1Column102: TdxDBGridColumn;
|
|
|
dxDBGrid1Column111: TdxDBGridColumn;
|
|
|
dxDBGrid1Column116: TdxDBGridColumn;
|
|
|
dxDBGrid1Column117: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column68: TdxDBGridColumn;
|
|
|
dxDBGrid1Column69: TdxDBGridColumn;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet5: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet6: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet8: TbsSkinTabSheet;
|
|
|
p_fen: TADOStoredProc;
|
|
|
p_fen1: TDataSource;
|
|
|
p_sum1: TDataSource;
|
|
|
p_sum: TADOStoredProc;
|
|
|
p_zhu: TADOStoredProc;
|
|
|
p_zhu1: TDataSource;
|
|
|
bsSkinTabSheet9: TbsSkinTabSheet;
|
|
|
dxDBGrid3: TdxDBGrid;
|
|
|
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn1: TdxDBGridDateColumn;
|
|
|
dxDBGridColumn1: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn2: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn3: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn4: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn2: TdxDBGridColumn;
|
|
|
dxDBGridColumn3: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn5: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn39: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn40: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn6: TdxDBGridColumn;
|
|
|
dxDBGridColumn9: TdxDBGridColumn;
|
|
|
dxDBGridColumn12: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn41: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn13: TdxDBGridColumn;
|
|
|
dxDBGridColumn14: TdxDBGridColumn;
|
|
|
dxDBGrid3Column42: TdxDBGridColumn;
|
|
|
bsSkinTabSheet10: TbsSkinTabSheet;
|
|
|
dxDBGrid4: TdxDBGrid;
|
|
|
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn6: TdxDBGridDateColumn;
|
|
|
dxDBGridColumn4: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn7: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn8: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn9: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn42: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn43: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn44: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn45: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn46: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn5: TdxDBGridColumn;
|
|
|
dxDBGridColumn7: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn10: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn8: TdxDBGridColumn;
|
|
|
dxDBGridColumn10: TdxDBGridColumn;
|
|
|
dxDBGridColumn11: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn56: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn15: TdxDBGridColumn;
|
|
|
dxDBGridColumn16: TdxDBGridColumn;
|
|
|
dxDBGridColumn17: TdxDBGridColumn;
|
|
|
p_dan: TADOStoredProc;
|
|
|
p_dan1: TDataSource;
|
|
|
bsSkinTabSheet13: TbsSkinTabSheet;
|
|
|
dxDBGrid5: TdxDBGrid;
|
|
|
dxDBGridMaskColumn57: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn58: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn59: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn11: TdxDBGridDateColumn;
|
|
|
dxDBGridColumn18: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn60: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn61: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn62: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn63: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn64: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn65: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn66: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn67: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn68: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn12: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn13: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn14: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn69: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn70: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn71: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn72: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn73: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn74: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn19: TdxDBGridColumn;
|
|
|
dxDBGridColumn20: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn75: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn76: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn77: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn78: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn79: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn80: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn81: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn82: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn83: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn84: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn85: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn86: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn87: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn88: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn15: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn89: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn90: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn91: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn92: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn93: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn94: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn95: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn96: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn21: TdxDBGridColumn;
|
|
|
dxDBGridColumn22: TdxDBGridColumn;
|
|
|
dxDBGridColumn23: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn97: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn24: TdxDBGridColumn;
|
|
|
dxDBGridColumn25: TdxDBGridColumn;
|
|
|
p_zheng: TADOStoredProc;
|
|
|
p_zheng1: TDataSource;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGrid2Column1: TdxDBGridColumn;
|
|
|
dxDBGrid2Column2: TdxDBGridColumn;
|
|
|
dxDBGrid2Column3: TdxDBGridColumn;
|
|
|
dxDBGrid2Column4: TdxDBGridColumn;
|
|
|
dxDBGrid2Column5: TdxDBGridColumn;
|
|
|
dxDBGrid2Column6: TdxDBGridColumn;
|
|
|
dxDBGrid2Column7: TdxDBGridColumn;
|
|
|
dxDBGrid2Column8: TdxDBGridColumn;
|
|
|
dxDBGrid2Column9: TdxDBGridColumn;
|
|
|
dxDBGrid2Column10: TdxDBGridColumn;
|
|
|
dxDBGrid2Column11: TdxDBGridColumn;
|
|
|
bsSkinTabSheet11: TbsSkinTabSheet;
|
|
|
dxDBGrid6: TdxDBGrid;
|
|
|
dxDBGridMaskColumn98: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn99: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn100: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn16: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column67: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn101: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn26: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn102: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn103: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn104: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn105: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn106: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn107: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn108: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn109: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn17: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn110: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn111: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn112: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn113: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn114: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn27: TdxDBGridColumn;
|
|
|
dxDBGridColumn28: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn115: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn116: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn117: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn118: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn119: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn120: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn121: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn122: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn123: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn124: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn125: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn126: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn127: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn128: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn18: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn129: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn130: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn131: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn132: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn133: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn134: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn135: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn136: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1USD: TdxDBGridColumn;
|
|
|
dxDBGrid1RMB: TdxDBGridColumn;
|
|
|
dxDBGridColumn29: TdxDBGridColumn;
|
|
|
dxDBGrid1Column105: TdxDBGridColumn;
|
|
|
dxDBGrid1Column108: TdxDBGridColumn;
|
|
|
dxDBGridColumn30: TdxDBGridColumn;
|
|
|
dxDBGrid1Column114: TdxDBGridColumn;
|
|
|
dxDBGrid1Column115: TdxDBGridColumn;
|
|
|
dxDBGridColumn31: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn137: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column65: TdxDBGridColumn;
|
|
|
dxDBGrid1Column66: TdxDBGridColumn;
|
|
|
p_seai: TADOStoredProc;
|
|
|
p_seai1: TDataSource;
|
|
|
bsSkinTabSheet12: TbsSkinTabSheet;
|
|
|
bskntbsht1: TbsSkinTabSheet;
|
|
|
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure aaChange(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure dxDBGridColumn23CustomDraw(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 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 dxDBGridColumn12CustomDraw(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 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 dxDBGrid2Column9CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
private
|
|
|
procedure loadFindIni ;
|
|
|
procedure writeFindIni ;
|
|
|
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_rp_rp_seae_pin: Tfrm_rp_rp_seae_pin;
|
|
|
rp_rp_seae_pin_open:boolean;
|
|
|
rp_rp_seae_pin_str:widestring;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, my_sys_function, u_data_share;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_rp_rp_seae_pin.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption+'1');
|
|
|
savereggrid(dxdbgrid3,caption+'3');
|
|
|
savereggrid(dxdbgrid4,caption+'4');
|
|
|
savereggrid(dxdbgrid5,caption+'5');
|
|
|
|
|
|
rp_rp_seae_pin_open:=false;
|
|
|
frm_rp_rp_seae_pin.Hide;
|
|
|
frm_rp_rp_seae_pin.ManualFloat(frm_rp_rp_seae_pin.BoundsRect );
|
|
|
frm_main.freeTabs('frm_rp_rp_seae_pin');
|
|
|
action:=cafree;
|
|
|
frm_rp_rp_seae_pin:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_seae_pin.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
loadreggrid(dxdbgrid1,true,caption+'1');
|
|
|
loadreggrid(dxdbgrid3,false,caption+'3');
|
|
|
loadreggrid(dxdbgrid4,false,caption+'4');
|
|
|
loadreggrid(dxdbgrid5,true,caption+'5');
|
|
|
loadFindIni;
|
|
|
rp_rp_seae_pin_open:=true;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_seae_pin.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_seae_pin.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
Edit1.text:='';
|
|
|
Edit4.text:='';
|
|
|
Edit2.text:='';
|
|
|
Edit3.text:='';
|
|
|
wwDBDateTimePicker1.text:='';
|
|
|
wwDBDateTimePicker2.text:='';
|
|
|
wwDBDateTimePicker3.text:='';
|
|
|
wwDBDateTimePicker4.text:='';
|
|
|
RxDBLookupCombo2.ClearValue;
|
|
|
wwDBLookupCombo49.text:='';
|
|
|
Edit7.text:='';
|
|
|
wwDBLookupCombo52.text:='';
|
|
|
RxDBLookupCombo6.ClearValue;
|
|
|
RxDBLookupCombo3.ClearValue;
|
|
|
RxDBLookupCombo10.ClearValue;
|
|
|
RxDBLookupCombo1.ClearValue;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_seae_pin.bsSkinButton1Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
str_seai:widestring;
|
|
|
begin
|
|
|
str:='';
|
|
|
writeFindIni;
|
|
|
str:='where '+open_data('0037','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no');
|
|
|
|
|
|
if Edit1.text<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit1.text+'%'+''''
|
|
|
else
|
|
|
str:=str+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
|
|
|
end;
|
|
|
if Edit4.text<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+''''
|
|
|
else
|
|
|
str:=str+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+'''';
|
|
|
end;
|
|
|
if Edit2.text<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+''''
|
|
|
else
|
|
|
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+'''';
|
|
|
end;
|
|
|
if Edit3.text<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+''''
|
|
|
else
|
|
|
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+'''';
|
|
|
end;
|
|
|
|
|
|
if wwDBDateTimePicker3.text<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>>='+''''+wwDBDateTimePicker3.text+''''
|
|
|
else
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>>='+''''+wwDBDateTimePicker3.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker4.text<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><='+''''+wwDBDateTimePicker4.text+''''
|
|
|
else
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><='+''''+wwDBDateTimePicker4.text+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo2.DisplayValue<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+''''
|
|
|
else
|
|
|
str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
|
|
|
end;
|
|
|
if wwDBLookupCombo49.text<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where <20><><EFBFBD><EFBFBD> like '+''''+'%'+wwDBLookupCombo49.text+'%'+''''
|
|
|
else
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+wwDBLookupCombo49.text+'%'+'''';
|
|
|
end;
|
|
|
if Edit7.text<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit7.text+'%'+''''
|
|
|
else
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit7.text+'%'+'''';
|
|
|
end;
|
|
|
if wwDBLookupCombo52.text<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where ж<><D0B6><EFBFBD><EFBFBD> like '+''''+'%'+wwDBLookupCombo52.text+'%'+''''
|
|
|
else
|
|
|
str:=str+' and ж<><D0B6><EFBFBD><EFBFBD> like '+''''+'%'+wwDBLookupCombo52.text+'%'+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo6.DisplayValue<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo6.DisplayValue+''''
|
|
|
else
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo6.DisplayValue+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo3.DisplayValue<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo3.DisplayValue+''''
|
|
|
else
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo3.DisplayValue+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo10.DisplayValue<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo10.DisplayValue+''''
|
|
|
else
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo10.DisplayValue+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo1.DisplayValue<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where <20><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>='+''''+RxDBLookupCombo1.DisplayValue+''''
|
|
|
else
|
|
|
str:=str+' and <20><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>='+''''+RxDBLookupCombo1.DisplayValue+'''';
|
|
|
end;
|
|
|
str_seai:=str;
|
|
|
rp_rp_seae_pin_str:=str;
|
|
|
if wwDBDateTimePicker1.text<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+''''
|
|
|
else
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
|
|
|
if str_seai='' then
|
|
|
str_seai:='where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+''''
|
|
|
else
|
|
|
str_seai:=str_seai+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
|
|
|
if rp_rp_seae_pin_str='' then
|
|
|
rp_rp_seae_pin_str:='where <20><><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+''''
|
|
|
else
|
|
|
rp_rp_seae_pin_str:=rp_rp_seae_pin_str+' and <20><><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker2.text<>''then
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:='where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+''''
|
|
|
else
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
|
|
|
if str_seai='' then
|
|
|
str_seai:='where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+''''
|
|
|
else
|
|
|
str_seai:=str_seai+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
|
|
|
if rp_rp_seae_pin_str='' then
|
|
|
rp_rp_seae_pin_str:='where <20><><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+''''
|
|
|
else
|
|
|
rp_rp_seae_pin_str:=rp_rp_seae_pin_str+' and <20><><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
|
|
|
end;
|
|
|
|
|
|
p_zheng.close;
|
|
|
p_zheng.Parameters.ParamByName('SQLStr').Value:='select * from v_pin_zheng '+str+default_sort(53,'v_pin_zheng','','');
|
|
|
p_zheng.open;
|
|
|
|
|
|
p_zhu.close;
|
|
|
p_zhu.Parameters.ParamByName('SQLStr').Value:='select * from v_pin_zhu_total '+str+default_sort(53,'v_pin_zhu_total','','');
|
|
|
p_zhu.open;
|
|
|
|
|
|
p_fen.close;
|
|
|
p_fen.Parameters.ParamByName('SQLStr').Value:='select * from v_pin_dun_lv_fen '+str+default_sort(53,'v_pin_dun_lv_fen','','');
|
|
|
p_fen.open;
|
|
|
|
|
|
p_dan.close;
|
|
|
p_dan.Parameters.ParamByName('SQLStr').Value:='select * from v_pin_dun_lv_dan '+str+default_sort(53,'v_pin_dun_lv_dan','','');
|
|
|
p_dan.open;
|
|
|
|
|
|
p_seai.close;
|
|
|
p_seai.Parameters.ParamByName('SQLStr').Value:='select * from v_pin_dun_lv_seai '+str_seai+default_sort(53,'v_pin_dun_lv_seai','','');
|
|
|
p_seai.open;
|
|
|
|
|
|
frm_rp_rp_seae_pin.aaChange(Sender);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_seae_pin.aaChange(Sender: TObject);
|
|
|
begin
|
|
|
if not rp_rp_seae_pin_open then
|
|
|
exit;
|
|
|
IF bsSkinTabSheet1.Showing then
|
|
|
exit;
|
|
|
IF bsSkinTabSheet9.Showing then
|
|
|
exit;
|
|
|
IF bsSkinTabSheet10.Showing then
|
|
|
exit;
|
|
|
IF bsSkinTabSheet13.Showing then
|
|
|
exit;
|
|
|
IF bsSkinTabSheet11.Showing then
|
|
|
exit;
|
|
|
if not p_zhu.Active then
|
|
|
exit;
|
|
|
dxDBGrid2.Parent:=aa.ActivePage;
|
|
|
dxDBGrid2Column1.Caption:=aa.ActivePage.Caption;
|
|
|
|
|
|
p_sum.close;
|
|
|
p_sum.Parameters.ParamByName('SQLStr').Value:=
|
|
|
'select ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,count(ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as Ʊ<><C6B1>,sum(<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>, sum(<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) as <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,'
|
|
|
+'sum(ë<><C3AB><EFBFBD><EFBFBD>) as ë<><C3AB><EFBFBD><EFBFBD>,sum(<28>ƷѶ<C6B7>) as <20>ƷѶ<C6B7>, sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>, sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>, sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,'
|
|
|
+dxDBGrid2Column1.Caption+' as ͳ<>ƻ<EFBFBD>,'
|
|
|
+'(CASE WHEN isnull(SUM(<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>),0)=0 THEN '
|
|
|
+''''+'<27><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD>'+''''
|
|
|
+' ELSE ltrim(str(isnull(SUM(ë<><C3AB><EFBFBD><EFBFBD>),0)/isnull(SUM(<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>),0)*100,10,2))+'
|
|
|
+''''+'%'+''''+' END) AS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
+' from v_pin_dun_lv_total '
|
|
|
+rp_rp_seae_pin_str+' group by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
|
|
|
+dxDBGrid2Column1.Caption
|
|
|
+' order by '
|
|
|
+dxDBGrid2Column1.Caption;
|
|
|
p_sum.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_seae_pin.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD><CDB3>',2,nil,nil,nil,nil,p_zheng1,p_zhu1,p_fen1,p_dan1,p_seai1,p_sum1,nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_seae_pin.dxDBGridColumn23CustomDraw(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_seae_pin.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_seae_pin.dxDBGridColumn12CustomDraw(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_seae_pin.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_seae_pin.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_seae_pin.dxDBGrid2Column9CustomDraw(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_seae_pin.loadFindIni;
|
|
|
var
|
|
|
findini:tinifile ;
|
|
|
mysec,tmpname:string;
|
|
|
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
|
|
|
i:integer ;
|
|
|
begin
|
|
|
mysec:='1';
|
|
|
findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'rpseapinquery.ini');
|
|
|
try
|
|
|
canload:=findini.ReadBool(mysec,mysec,false);
|
|
|
bsSkinCheckRadioBox1.Checked:=canload ;
|
|
|
if canload then
|
|
|
begin
|
|
|
with bsSkinPanel1 do
|
|
|
for i:=0 to ControlCount-1 do
|
|
|
begin
|
|
|
tmpname:=Controls[i].Name ;
|
|
|
if Controls[i] is TComboBox then
|
|
|
(Controls[i] as TComboBox).Text:=findini.ReadString(mysec,TmpName,'') else
|
|
|
if Controls[i] is TwwDBLookupCombo then
|
|
|
(Controls[i] as TwwDBLookupCombo).Text:=findini.ReadString(mysec,TmpName,'') else
|
|
|
if Controls[i] is TEdit then
|
|
|
(Controls[i] as TEdit).Text:=findini.ReadString(mysec,TmpName,'') else
|
|
|
if Controls[i] is TwwDBDateTimePicker then
|
|
|
(Controls[i] as TwwDBDateTimePicker).Date:=strtodate(findini.ReadString(mysec,TmpName,'')) else
|
|
|
if Controls[i] is TRxDBLookupCombo then
|
|
|
(Controls[i] as TRxDBLookupCombo).Value:=findini.ReadString(mysec,TmpName,'') ;
|
|
|
end ;
|
|
|
end else
|
|
|
begin
|
|
|
end ;
|
|
|
finally
|
|
|
findini.free;
|
|
|
end ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_rp_seae_pin.writeFindIni;
|
|
|
var
|
|
|
findini:tinifile ;
|
|
|
mysec,tmpname:string;
|
|
|
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
|
|
|
i:integer ;
|
|
|
begin
|
|
|
canload:=bsSkinCheckRadioBox1.Checked ;
|
|
|
mysec:='1';
|
|
|
findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'rpseapinquery.ini');
|
|
|
try
|
|
|
findini.WriteBool(mysec,mysec,canload);
|
|
|
|
|
|
if canload then
|
|
|
begin
|
|
|
with bsSkinPanel1 do
|
|
|
for i:=0 to ControlCount-1 do
|
|
|
begin
|
|
|
tmpname:=Controls[i].Name ;
|
|
|
if Controls[i] is TComboBox then
|
|
|
findini.WriteString(mysec,TmpName,(Controls[i] as TComboBox).Text) else
|
|
|
if Controls[i] is TwwDBLookupCombo then
|
|
|
findini.WriteString(mysec,TmpName,(Controls[i] as TwwDBLookupCombo).Text) else
|
|
|
if Controls[i] is TEdit then
|
|
|
findini.WriteString(mysec,TmpName,(Controls[i] as TEdit).Text) else
|
|
|
if Controls[i] is TwwDBDateTimePicker then
|
|
|
findini.WriteString(mysec,TmpName,datetostr((Controls[i] as TwwDBDateTimePicker).Date)) else
|
|
|
if Controls[i] is TRxDBLookupCombo then
|
|
|
findini.writeString(mysec,TmpName,(Controls[i] as TRxDBLookupCombo).Value) ;
|
|
|
end ;
|
|
|
end ;
|
|
|
finally
|
|
|
findini.free;
|
|
|
end ;
|
|
|
end;
|
|
|
|
|
|
end.
|