|
|
unit u_ch_fee_modify_check;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, dxExEdtr, ADODB, DB, StdCtrls, DBCtrls, Mask, bsSkinCtrls,
|
|
|
RxLookup, wwdbdatetimepicker, dxDBTLCl, dxGrClms, dxDBGrid, dxTL,
|
|
|
dxDBCtrl, dxCntner, ComCtrls, bsSkinTabs, ExtCtrls, Grids, Wwdbigrd,
|
|
|
Wwdbgrid, wwdbedit, Wwdotdot, Wwdbcomb;
|
|
|
|
|
|
type
|
|
|
Tfrm_ch_fee_modify_check = class(TForm)
|
|
|
Panel1: TPanel;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
|
Label3: TLabel;
|
|
|
Label4: TLabel;
|
|
|
Label25: TLabel;
|
|
|
Label26: TLabel;
|
|
|
Label27: TLabel;
|
|
|
Label7: TLabel;
|
|
|
Label28: TLabel;
|
|
|
Label29: TLabel;
|
|
|
Label54: TLabel;
|
|
|
Label55: TLabel;
|
|
|
Label56: TLabel;
|
|
|
Label57: TLabel;
|
|
|
Edit4: TEdit;
|
|
|
Edit2: TEdit;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
RxDBLookupCombo6: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
wwDBDateTimePicker3: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker4: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker17: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker18: TwwDBDateTimePicker;
|
|
|
Edit9: TEdit;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
dxDBGrid3: TdxDBGrid;
|
|
|
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column15: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn1: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn2: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
|
|
|
bsSkinPanel4: TbsSkinPanel;
|
|
|
Label30: TLabel;
|
|
|
Label31: TLabel;
|
|
|
Label32: TLabel;
|
|
|
Label33: TLabel;
|
|
|
Label34: TLabel;
|
|
|
Label35: TLabel;
|
|
|
Label36: TLabel;
|
|
|
Label37: TLabel;
|
|
|
Label58: TLabel;
|
|
|
Label59: TLabel;
|
|
|
Label60: TLabel;
|
|
|
Label61: TLabel;
|
|
|
Edit1: TEdit;
|
|
|
Edit3: TEdit;
|
|
|
wwDBDateTimePicker5: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker6: TwwDBDateTimePicker;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
wwDBDateTimePicker7: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker8: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker19: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker20: TwwDBDateTimePicker;
|
|
|
Edit11: TEdit;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
dxDBGrid4: TdxDBGrid;
|
|
|
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid4Column13: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid4Column15: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn3: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn4: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
|
|
|
bsSkinPanel5: TbsSkinPanel;
|
|
|
Label38: TLabel;
|
|
|
Label39: TLabel;
|
|
|
Label40: TLabel;
|
|
|
Label41: TLabel;
|
|
|
Label42: TLabel;
|
|
|
Label43: TLabel;
|
|
|
Label44: TLabel;
|
|
|
Label45: TLabel;
|
|
|
Label62: TLabel;
|
|
|
Label63: TLabel;
|
|
|
Label64: TLabel;
|
|
|
Label65: TLabel;
|
|
|
Edit5: TEdit;
|
|
|
Edit6: TEdit;
|
|
|
wwDBDateTimePicker9: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker10: TwwDBDateTimePicker;
|
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
|
wwDBDateTimePicker11: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker12: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker21: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker22: TwwDBDateTimePicker;
|
|
|
Edit13: TEdit;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
dxDBGrid5: TdxDBGrid;
|
|
|
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid5Column13: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn1: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn5: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn6: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
|
|
|
bsSkinPanel6: TbsSkinPanel;
|
|
|
Label46: TLabel;
|
|
|
Label47: TLabel;
|
|
|
Label48: TLabel;
|
|
|
Label49: TLabel;
|
|
|
Label50: TLabel;
|
|
|
Label51: TLabel;
|
|
|
Label52: TLabel;
|
|
|
Label53: TLabel;
|
|
|
Label66: TLabel;
|
|
|
Label67: TLabel;
|
|
|
Label68: TLabel;
|
|
|
Label69: TLabel;
|
|
|
Edit7: TEdit;
|
|
|
Edit8: TEdit;
|
|
|
wwDBDateTimePicker13: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker14: TwwDBDateTimePicker;
|
|
|
RxDBLookupCombo7: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo8: TRxDBLookupCombo;
|
|
|
wwDBDateTimePicker15: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker16: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker23: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker24: TwwDBDateTimePicker;
|
|
|
Edit15: TEdit;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
p_seae: TADOStoredProc;
|
|
|
p_seae1: TDataSource;
|
|
|
t_ch_fee_modify: TADOQuery;
|
|
|
t_ch_fee_modify1: TDataSource;
|
|
|
p_seai: TADOStoredProc;
|
|
|
p_seai1: TDataSource;
|
|
|
p_aire: TADOStoredProc;
|
|
|
p_aire1: TDataSource;
|
|
|
p_airi: TADOStoredProc;
|
|
|
p_airi1: TDataSource;
|
|
|
a_shen_delete: TADOQuery;
|
|
|
a_shen_delete1: TDataSource;
|
|
|
a_shen_modify_old: TADOQuery;
|
|
|
a_shen_modify_old1: TDataSource;
|
|
|
a_shen_modify_new: TADOQuery;
|
|
|
a_shen_modify_new1: TDataSource;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
wwDBComboBox2: TwwDBComboBox;
|
|
|
wwDBComboBox3: TwwDBComboBox;
|
|
|
wwDBComboBox4: TwwDBComboBox;
|
|
|
Label70: TLabel;
|
|
|
RxDBLookupCombo9: TRxDBLookupCombo;
|
|
|
Label71: TLabel;
|
|
|
RxDBLookupCombo10: TRxDBLookupCombo;
|
|
|
Label73: TLabel;
|
|
|
RxDBLookupCombo11: TRxDBLookupCombo;
|
|
|
Label72: TLabel;
|
|
|
RxDBLookupCombo12: TRxDBLookupCombo;
|
|
|
Label74: TLabel;
|
|
|
RxDBLookupCombo13: TRxDBLookupCombo;
|
|
|
Label75: TLabel;
|
|
|
RxDBLookupCombo14: TRxDBLookupCombo;
|
|
|
Label76: TLabel;
|
|
|
RxDBLookupCombo15: TRxDBLookupCombo;
|
|
|
Label77: TLabel;
|
|
|
RxDBLookupCombo16: TRxDBLookupCombo;
|
|
|
Label78: TLabel;
|
|
|
RxDBLookupCombo17: TRxDBLookupCombo;
|
|
|
Label79: TLabel;
|
|
|
RxDBLookupCombo18: TRxDBLookupCombo;
|
|
|
Label80: TLabel;
|
|
|
RxDBLookupCombo19: TRxDBLookupCombo;
|
|
|
Label81: TLabel;
|
|
|
RxDBLookupCombo20: TRxDBLookupCombo;
|
|
|
Label82: TLabel;
|
|
|
RxDBLookupCombo21: TRxDBLookupCombo;
|
|
|
Label83: TLabel;
|
|
|
RxDBLookupCombo22: TRxDBLookupCombo;
|
|
|
Label84: TLabel;
|
|
|
RxDBLookupCombo23: TRxDBLookupCombo;
|
|
|
Label85: TLabel;
|
|
|
RxDBLookupCombo24: TRxDBLookupCombo;
|
|
|
a_shen_add: TADOQuery;
|
|
|
a_shen_add1: TDataSource;
|
|
|
bsSkinPageControl2: TbsSkinPageControl;
|
|
|
TabSheetDayModify: TbsSkinTabSheet;
|
|
|
TabSheetRModify: TbsSkinTabSheet;
|
|
|
bsSkinGroupBox1: TbsSkinGroupBox;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGrid2Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column5: TdxDBGridColumn;
|
|
|
dxDBGrid2Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column7: TdxDBGridDateColumn;
|
|
|
dxDBGrid2Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column9: TdxDBGridDateColumn;
|
|
|
a_modify_old: TbsSkinGroupBox;
|
|
|
Label8: TLabel;
|
|
|
Label9: TLabel;
|
|
|
Label10: TLabel;
|
|
|
Label11: TLabel;
|
|
|
Label12: TLabel;
|
|
|
Label13: TLabel;
|
|
|
Label14: TLabel;
|
|
|
Label15: TLabel;
|
|
|
Label1: TLabel;
|
|
|
Label2: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
DBEdit2: TDBEdit;
|
|
|
DBEdit3: TDBEdit;
|
|
|
DBEdit4: TDBEdit;
|
|
|
DBEdit5: TDBEdit;
|
|
|
DBEdit6: TDBEdit;
|
|
|
DBEdit7: TDBEdit;
|
|
|
DBEdit8: TDBEdit;
|
|
|
DBEdit35: TDBEdit;
|
|
|
DBEdit36: TDBEdit;
|
|
|
a_modify_new: TbsSkinGroupBox;
|
|
|
Label16: TLabel;
|
|
|
Label17: TLabel;
|
|
|
Label18: TLabel;
|
|
|
Label19: TLabel;
|
|
|
Label20: TLabel;
|
|
|
Label21: TLabel;
|
|
|
Label22: TLabel;
|
|
|
Label23: TLabel;
|
|
|
Label24: TLabel;
|
|
|
DBEdit9: TDBEdit;
|
|
|
DBEdit10: TDBEdit;
|
|
|
DBEdit11: TDBEdit;
|
|
|
DBEdit12: TDBEdit;
|
|
|
DBEdit13: TDBEdit;
|
|
|
DBEdit14: TDBEdit;
|
|
|
DBEdit15: TDBEdit;
|
|
|
DBEdit16: TDBEdit;
|
|
|
DBMemo3: TDBMemo;
|
|
|
a_delete: TbsSkinGroupBox;
|
|
|
DBMemo2: TDBMemo;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
Label5: TLabel;
|
|
|
Label6: TLabel;
|
|
|
DBEdit39: TDBEdit;
|
|
|
DBEdit40: TDBEdit;
|
|
|
DBEdit17: TDBEdit;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinButton4: TbsSkinButton;
|
|
|
a_modify_add: TbsSkinGroupBox;
|
|
|
Label86: TLabel;
|
|
|
Label87: TLabel;
|
|
|
Label88: TLabel;
|
|
|
Label89: TLabel;
|
|
|
Label90: TLabel;
|
|
|
Label91: TLabel;
|
|
|
Label92: TLabel;
|
|
|
Label93: TLabel;
|
|
|
Label94: TLabel;
|
|
|
Label95: TLabel;
|
|
|
DBEdit18: TDBEdit;
|
|
|
DBEdit19: TDBEdit;
|
|
|
DBEdit20: TDBEdit;
|
|
|
DBEdit21: TDBEdit;
|
|
|
DBEdit22: TDBEdit;
|
|
|
DBEdit23: TDBEdit;
|
|
|
DBEdit24: TDBEdit;
|
|
|
DBEdit25: TDBEdit;
|
|
|
DBEdit26: TDBEdit;
|
|
|
DBEdit27: TDBEdit;
|
|
|
bsSkinGroupBox2: TbsSkinGroupBox;
|
|
|
dxDBGrid6: TdxDBGrid;
|
|
|
dxDBGridColumn2: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn8: TdxDBGridDateColumn;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
Splitter1: TSplitter;
|
|
|
t_ch_fee_bsCardSum: TADOQuery;
|
|
|
dsrBsCardSum: TDataSource;
|
|
|
bsSkinPanel7: TbsSkinPanel;
|
|
|
bsSkinGroupBox3: TbsSkinGroupBox;
|
|
|
Splitter2: TSplitter;
|
|
|
bsSkinGroupBox4: TbsSkinGroupBox;
|
|
|
dxDBGrid7: TdxDBGrid;
|
|
|
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn3: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn7: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn9: TdxDBGridDateColumn;
|
|
|
dxDBGrid8: TdxDBGrid;
|
|
|
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn39: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn40: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn4: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn41: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn10: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn42: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn11: TdxDBGridDateColumn;
|
|
|
dsrmodify_old: TDataSource;
|
|
|
at_modify_old: TADOQuery;
|
|
|
dsrmodify_new: TDataSource;
|
|
|
at_modify_new: TADOQuery;
|
|
|
dxDBGrid7Column10: TdxDBGridColumn;
|
|
|
dxDBGrid7Column11: TdxDBGridColumn;
|
|
|
dxDBGrid8Column10: TdxDBGridColumn;
|
|
|
dxDBGrid8Column11: TdxDBGridColumn;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
dxDBGrid7Column12: TdxDBGridColumn;
|
|
|
dxDBGrid8Column12: TdxDBGridColumn;
|
|
|
Label96: TLabel;
|
|
|
RxDBLookupCombo25: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo26: TRxDBLookupCombo;
|
|
|
Label97: TLabel;
|
|
|
RxDBLookupCombo27: TRxDBLookupCombo;
|
|
|
Label98: TLabel;
|
|
|
RxDBLookupCombo28: TRxDBLookupCombo;
|
|
|
Label99: TLabel;
|
|
|
RxDBLookupCombo29: TRxDBLookupCombo;
|
|
|
Label100: TLabel;
|
|
|
Label101: TLabel;
|
|
|
wwDBComboBox5: TwwDBComboBox;
|
|
|
wwDBComboBox6: TwwDBComboBox;
|
|
|
Label102: TLabel;
|
|
|
RxDBLookupCombo30: TRxDBLookupCombo;
|
|
|
Label103: TLabel;
|
|
|
wwDBComboBox7: TwwDBComboBox;
|
|
|
Label104: TLabel;
|
|
|
RxDBLookupCombo31: TRxDBLookupCombo;
|
|
|
Label105: TLabel;
|
|
|
wwDBComboBox8: TwwDBComboBox;
|
|
|
Label106: TLabel;
|
|
|
RxDBLookupCombo32: TRxDBLookupCombo;
|
|
|
Label107: TLabel;
|
|
|
bsSkinPageControl3: TbsSkinPageControl;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
bskntbshttbl1: TbsSkinTabSheet;
|
|
|
bskntbshttbl2: TbsSkinTabSheet;
|
|
|
dxDBGrid9: TdxDBGrid;
|
|
|
dxDBGridMaskColumn43: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn5: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn44: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn45: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn12: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn13: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn46: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
|
|
|
v_op_modify: TADOQuery;
|
|
|
ds_op_modify1: TDataSource;
|
|
|
Label108: TLabel;
|
|
|
wwDBComboBox9: TwwDBComboBox;
|
|
|
wwDBComboBox10: TwwDBComboBox;
|
|
|
Label109: TLabel;
|
|
|
wwDBComboBox11: TwwDBComboBox;
|
|
|
Label110: TLabel;
|
|
|
wwDBComboBox12: TwwDBComboBox;
|
|
|
Label111: TLabel;
|
|
|
dxDBGrid7Column13: TdxDBGridCheckColumn;
|
|
|
dxDBGrid8Column13: TdxDBGridCheckColumn;
|
|
|
dxDBGrid9Column15: TdxDBGridColumn;
|
|
|
dxDBGrid9Column16: TdxDBGridColumn;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure Panel1Resize(Sender: TObject);
|
|
|
procedure bsSkinPageControl1Change(Sender: TObject);
|
|
|
procedure dxDBGrid1ColumnSorting(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 dxDBGrid2ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure DBEdit17Change(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
|
procedure dxDBGrid2Column2CustomDraw(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 bsSkinGroupBox1Resize(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_ch_fee_modify_check: Tfrm_ch_fee_modify_check;
|
|
|
ch_fee_modify_check:boolean;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, my_sys_function;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
frm_ch_fee_modify_check.Hide;
|
|
|
frm_ch_fee_modify_check.ManualFloat(frm_ch_fee_modify_check.BoundsRect );
|
|
|
frm_main.freeTabs('frm_ch_fee_modify_check');
|
|
|
ch_fee_modify_check:=false;
|
|
|
action:=cafree;
|
|
|
frm_ch_fee_modify_check:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.Showing then
|
|
|
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD><CDB3>',2,nil,nil,nil,nil,p_seae1,t_ch_fee_modify1,NIL,NIL,nil,nil,nil)
|
|
|
else if bsSkinTabSheet2.Showing then
|
|
|
sys_print('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD><CDB3>',2,nil,nil,nil,nil,p_seai1,t_ch_fee_modify1,NIL,NIL,nil,nil,nil)
|
|
|
else if bsSkinTabSheet3.Showing then
|
|
|
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD><CDB3>',2,nil,nil,nil,nil,p_aire1,t_ch_fee_modify1,NIL,NIL,nil,nil,nil)
|
|
|
else if bsSkinTabSheet4.Showing then
|
|
|
sys_print('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD><CDB3>',2,nil,nil,nil,nil,p_airi1,t_ch_fee_modify1,NIL,NIL,nil,nil,nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.bsSkinButton10Click(Sender: TObject);
|
|
|
var
|
|
|
str_bill,str_fee,str_fuhe,str_modify:widestring;
|
|
|
begin
|
|
|
if bsSkinTabSheet1.Showing then
|
|
|
begin
|
|
|
if Edit4.text<>''then begin
|
|
|
str_bill:=' where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+'''';
|
|
|
end;
|
|
|
if Edit2.text<>''then
|
|
|
begin
|
|
|
if str_bill='' then begin
|
|
|
str_bill:=' where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+'''';
|
|
|
end else begin
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+''''
|
|
|
end;
|
|
|
end;
|
|
|
if Edit9.text<>''then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit9.text+'%'+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit9.text+'%'+''''
|
|
|
end;
|
|
|
if RxDBLookupCombo25.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo25.DisplayValues[1]+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo25.DisplayValues[1]+'''';
|
|
|
end;
|
|
|
str_modify:=str_bill;
|
|
|
|
|
|
if wwDBDateTimePicker17.text<>'' then
|
|
|
begin
|
|
|
if str_bill='' then begin
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker17.text+'''';
|
|
|
str_modify:=' where <20>ɿ<EFBFBD><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker17.text+'''';
|
|
|
end else begin
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker17.text+'''';
|
|
|
str_modify:=str_modify+' and <20>ɿ<EFBFBD><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker17.text+'''';
|
|
|
end;
|
|
|
end;
|
|
|
if wwDBDateTimePicker18.text<>'' then
|
|
|
begin
|
|
|
if str_bill='' then begin
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker18.text+'''';
|
|
|
str_modify:=' where <20>ɿ<EFBFBD><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker18.text+'''';
|
|
|
end else begin
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker18.text+'''';
|
|
|
str_modify:=str_modify+' and <20>ɿ<EFBFBD><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker18.text+'''';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if RxDBLookupCombo9.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo9.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo9.DisplayValue+'''';
|
|
|
end;
|
|
|
|
|
|
if RxDBLookupCombo10.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then begin
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo10.DisplayValue+'''';
|
|
|
str_modify:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo10.DisplayValue+'''';
|
|
|
end else begin
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo10.DisplayValue+'''';
|
|
|
str_modify:=str_modify+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo10.DisplayValue+'''';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if RxDBLookupCombo11.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo11.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo11.DisplayValue+'''';
|
|
|
end;
|
|
|
|
|
|
if RxDBLookupCombo12.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>='+''''+RxDBLookupCombo12.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>='+''''+RxDBLookupCombo12.DisplayValue+'''';
|
|
|
end;
|
|
|
|
|
|
|
|
|
if RxDBLookupCombo1.DisplayValue<>'' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo1.DisplayValue+'''';
|
|
|
|
|
|
if RxDBLookupCombo6.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo6.DisplayValue+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo6.DisplayValue+'''';
|
|
|
end;
|
|
|
|
|
|
|
|
|
if wwDBDateTimePicker1.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker2.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
|
|
|
end;
|
|
|
|
|
|
if RxDBLookupCombo29.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo29.DisplayValues[1]+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo29.DisplayValues[1]+'''';
|
|
|
end;
|
|
|
|
|
|
if wwDBComboBox5.Text<>''then
|
|
|
begin
|
|
|
if wwDBComboBox5.text='û<><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+'''';
|
|
|
end else begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+'''';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if wwDBComboBox9.Text<>''then
|
|
|
begin
|
|
|
if wwDBComboBox9.text='û<>д<EFBFBD>ӡ' then begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ<>1'
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ<>1';
|
|
|
end else begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1'
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if wwDBDateTimePicker3.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker3.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker3.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker4.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker4.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker4.text+'''';
|
|
|
end;
|
|
|
|
|
|
if wwDBComboBox1.Text<>''then
|
|
|
begin
|
|
|
if wwDBComboBox1.text='û<>и<EFBFBD><D0B8><EFBFBD>' then
|
|
|
str_fuhe:=' t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in ('+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''
|
|
|
+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>' +''''+'))'
|
|
|
else
|
|
|
str_fuhe:=' t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in ('+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''
|
|
|
+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>' +''''+'))';
|
|
|
end;
|
|
|
|
|
|
if str_bill<>'' then
|
|
|
begin
|
|
|
if str_fee<>'' then
|
|
|
str_bill:=str_bill+' and t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view'+str_fee+')';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if str_fee<>'' then
|
|
|
str_bill:=' where t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view'+str_fee+')';
|
|
|
end;
|
|
|
if str_fuhe<>''then
|
|
|
begin
|
|
|
if str_bill<>'' then
|
|
|
str_bill:=str_bill+' and '+str_fuhe
|
|
|
else
|
|
|
str_bill:=' where '+str_fuhe;
|
|
|
end;
|
|
|
t_ch_fee_modify.close;
|
|
|
a_shen_delete.close;
|
|
|
a_shen_modify_old.close;
|
|
|
a_shen_modify_new.close;
|
|
|
a_shen_add.close;
|
|
|
|
|
|
t_ch_fee_bsCardSum.Close;
|
|
|
at_modify_old.Close;
|
|
|
at_modify_new.Close;
|
|
|
p_seae.close;
|
|
|
v_op_modify.Close;
|
|
|
p_seae.Parameters.ParamByName('SQLStr').value:=
|
|
|
'SELECT t_op_seae.*, v_ch_fee_modify_check_sum.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
|
|
|
+'FROM t_op_seae INNER JOIN '
|
|
|
+'v_ch_fee_modify_check_sum ON t_op_seae.<2E><><EFBFBD><EFBFBD> = v_ch_fee_modify_check_sum.<2E><><EFBFBD><EFBFBD> '+str_bill+default_sort(53,'t_op_seae','','desc');
|
|
|
p_seae.open;
|
|
|
t_ch_fee_modify.open;
|
|
|
a_shen_delete.open;
|
|
|
a_shen_modify_old.open;
|
|
|
a_shen_modify_new.open;
|
|
|
a_shen_add.open;
|
|
|
|
|
|
t_ch_fee_bsCardSum.Open;
|
|
|
at_modify_old.Open;
|
|
|
at_modify_new.Open;
|
|
|
v_op_modify.SQL.Clear;
|
|
|
v_op_modify.SQL.Text:='Select * from v_op_modify '+str_modify;
|
|
|
v_op_modify.Open;
|
|
|
|
|
|
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.Showing then
|
|
|
begin
|
|
|
if Edit1.text<>''then
|
|
|
str_bill:=' where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
|
|
|
if Edit3.text<>''then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+''''
|
|
|
end;
|
|
|
if Edit11.text<>''then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit11.text+'%'+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit11.text+'%'+''''
|
|
|
end;
|
|
|
|
|
|
if wwDBDateTimePicker19.text<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker19.text+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker19.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker20.text<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker20.text+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker20.text+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo13.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo13.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo13.DisplayValue+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo14.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo14.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo14.DisplayValue+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo15.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo15.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo15.DisplayValue+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo16.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>='+''''+RxDBLookupCombo16.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>='+''''+RxDBLookupCombo16.DisplayValue+'''';
|
|
|
end;
|
|
|
|
|
|
if RxDBLookupCombo26.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo26.DisplayValues[1]+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo26.DisplayValues[1]+'''';
|
|
|
end;
|
|
|
|
|
|
if RxDBLookupCombo30.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo30.DisplayValues[1]+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo30.DisplayValues[1]+'''';
|
|
|
end;
|
|
|
|
|
|
if wwDBComboBox6.Text<>''then
|
|
|
begin
|
|
|
if wwDBComboBox6.text='û<><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+'''';
|
|
|
end else begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+'''';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if wwDBComboBox10.Text<>''then
|
|
|
begin
|
|
|
if wwDBComboBox10.text='û<>д<EFBFBD>ӡ' then begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ<>1'
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ<>1';
|
|
|
end else begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1'
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if RxDBLookupCombo3.DisplayValue<>'' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo3.DisplayValue+'''';
|
|
|
if RxDBLookupCombo2.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo2.DisplayValue+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo2.DisplayValue+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker5.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker5.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker5.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker6.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker6.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker6.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker7.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker7.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker7.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker8.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker8.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker8.text+'''';
|
|
|
end;
|
|
|
|
|
|
if wwDBComboBox2.Text<>''then
|
|
|
begin
|
|
|
if wwDBComboBox2.text='û<>и<EFBFBD><D0B8><EFBFBD>' then
|
|
|
str_fuhe:=' t_op_seai.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in ('+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''
|
|
|
+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>' +''''+'))'
|
|
|
else
|
|
|
str_fuhe:=' t_op_seai.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in ('+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''
|
|
|
+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>' +''''+'))';
|
|
|
end;
|
|
|
|
|
|
if str_bill<>'' then
|
|
|
begin
|
|
|
if str_fee<>'' then
|
|
|
str_bill:=str_bill+' and t_op_seai.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view'+str_fee+')';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if str_fee<>'' then
|
|
|
str_bill:=' where t_op_seai.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view'+str_fee+')';
|
|
|
end;
|
|
|
if str_fuhe<>''then
|
|
|
begin
|
|
|
if str_bill<>'' then
|
|
|
str_bill:=str_bill+' and '+str_fuhe
|
|
|
else
|
|
|
str_bill:=' where '+str_fuhe;
|
|
|
end;
|
|
|
t_ch_fee_modify.close;
|
|
|
a_shen_delete.close;
|
|
|
a_shen_modify_old.close;
|
|
|
a_shen_modify_new.close;
|
|
|
a_shen_add.close;
|
|
|
|
|
|
t_ch_fee_bsCardSum.Close;
|
|
|
at_modify_old.Close;
|
|
|
at_modify_new.Close;
|
|
|
|
|
|
|
|
|
p_seai.close;
|
|
|
p_seai.Parameters.ParamByName('SQLStr').value:=
|
|
|
'SELECT t_op_seai.*, v_ch_fee_modify_check_sum.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
|
|
|
+'FROM t_op_seai INNER JOIN '
|
|
|
+'v_ch_fee_modify_check_sum ON t_op_seai.<2E><><EFBFBD><EFBFBD> = v_ch_fee_modify_check_sum.<2E><><EFBFBD><EFBFBD> '+str_bill+default_sort(54,'t_op_seai','','desc');
|
|
|
p_seai.open;
|
|
|
t_ch_fee_modify.open;
|
|
|
a_shen_delete.open;
|
|
|
a_shen_modify_old.open;
|
|
|
a_shen_modify_new.open;
|
|
|
a_shen_add.open;
|
|
|
|
|
|
t_ch_fee_bsCardSum.Open;
|
|
|
at_modify_old.Open;
|
|
|
at_modify_new.Open;
|
|
|
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.Showing then
|
|
|
begin
|
|
|
if Edit5.text<>''then
|
|
|
str_bill:=' where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit5.text+'%'+'''';
|
|
|
if Edit6.text<>''then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit6.text+'%'+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit6.text+'%'+''''
|
|
|
end;
|
|
|
if Edit13.text<>''then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit13.text+'%'+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit13.text+'%'+''''
|
|
|
end;
|
|
|
if wwDBDateTimePicker21.text<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker21.text+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker21.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker22.text<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker22.text+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker22.text+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo17.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo17.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo17.DisplayValue+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo18.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo18.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo18.DisplayValue+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo19.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo19.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo19.DisplayValue+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo20.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>='+''''+RxDBLookupCombo20.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>='+''''+RxDBLookupCombo20.DisplayValue+'''';
|
|
|
end;
|
|
|
|
|
|
if RxDBLookupCombo27.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo27.DisplayValues[1]+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo27.DisplayValues[1]+'''';
|
|
|
end;
|
|
|
|
|
|
if RxDBLookupCombo31.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo31.DisplayValues[1]+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo31.DisplayValues[1]+'''';
|
|
|
end;
|
|
|
|
|
|
if wwDBComboBox7.Text<>''then
|
|
|
begin
|
|
|
if wwDBComboBox7.text='û<><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+'''';
|
|
|
end else begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+'''';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if wwDBComboBox11.Text<>''then
|
|
|
begin
|
|
|
if wwDBComboBox11.text='û<>д<EFBFBD>ӡ' then begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ<>1'
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ<>1';
|
|
|
end else begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1'
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if RxDBLookupCombo5.DisplayValue<>'' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo5.DisplayValue+'''';
|
|
|
if RxDBLookupCombo4.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo4.DisplayValue+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo4.DisplayValue+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker9.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker9.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker9.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker10.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker10.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker10.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker11.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker11.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker11.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker12.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker12.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker12.text+'''';
|
|
|
end;
|
|
|
|
|
|
if wwDBComboBox3.Text<>''then
|
|
|
begin
|
|
|
if wwDBComboBox3.text='û<>и<EFBFBD><D0B8><EFBFBD>' then
|
|
|
str_fuhe:=' t_op_aire.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in ('+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''
|
|
|
+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>' +''''+'))'
|
|
|
else
|
|
|
str_fuhe:=' t_op_aire.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in ('+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''
|
|
|
+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>' +''''+'))';
|
|
|
end;
|
|
|
if str_bill<>'' then
|
|
|
begin
|
|
|
if str_fee<>'' then
|
|
|
str_bill:=str_bill+' and t_op_aire.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view'+str_fee+')';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if str_fee<>'' then
|
|
|
str_bill:=' where t_op_aire.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_ch_fee_modify'+str_fee+')';
|
|
|
end;
|
|
|
if str_fuhe<>''then
|
|
|
begin
|
|
|
if str_bill<>'' then
|
|
|
str_bill:=str_bill+' and '+str_fuhe
|
|
|
else
|
|
|
str_bill:=' where '+str_fuhe;
|
|
|
end;
|
|
|
t_ch_fee_modify.close;
|
|
|
a_shen_delete.close;
|
|
|
a_shen_modify_old.close;
|
|
|
a_shen_modify_new.close;
|
|
|
a_shen_add.close;
|
|
|
p_aire.close;
|
|
|
|
|
|
t_ch_fee_bsCardSum.Close;
|
|
|
at_modify_old.Close;
|
|
|
at_modify_new.Close;
|
|
|
|
|
|
p_aire.Parameters.ParamByName('SQLStr').value:=
|
|
|
'SELECT t_op_aire.*, v_ch_fee_modify_check_sum.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
|
|
|
+'FROM t_op_aire INNER JOIN '
|
|
|
+'v_ch_fee_modify_check_sum ON t_op_aire.<2E><><EFBFBD><EFBFBD> = v_ch_fee_modify_check_sum.<2E><><EFBFBD><EFBFBD> '+str_bill+' order by t_op_aire.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc';
|
|
|
p_aire.open;
|
|
|
t_ch_fee_modify.open;
|
|
|
a_shen_delete.open;
|
|
|
a_shen_modify_old.open;
|
|
|
a_shen_modify_new.open;
|
|
|
a_shen_add.open;
|
|
|
|
|
|
t_ch_fee_bsCardSum.Open;
|
|
|
at_modify_old.Open;
|
|
|
at_modify_new.Open;
|
|
|
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.Showing then
|
|
|
begin
|
|
|
if Edit7.text<>''then
|
|
|
str_bill:=' where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit7.text+'%'+'''';
|
|
|
if Edit8.text<>''then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit8.text+'%'+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit8.text+'%'+''''
|
|
|
end;
|
|
|
if Edit15.text<>''then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit15.text+'%'+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit15.text+'%'+''''
|
|
|
end;
|
|
|
if wwDBDateTimePicker23.text<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker23.text+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker23.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker24.text<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker24.text+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker24.text+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo21.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo21.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD>Ա='+''''+RxDBLookupCombo21.DisplayValue+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo22.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo22.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo22.DisplayValue+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo23.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo23.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo23.DisplayValue+'''';
|
|
|
end;
|
|
|
if RxDBLookupCombo24.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where <20><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>='+''''+RxDBLookupCombo24.DisplayValue+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and <20><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>='+''''+RxDBLookupCombo24.DisplayValue+'''';
|
|
|
end;
|
|
|
|
|
|
if RxDBLookupCombo28.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_bill='' then
|
|
|
str_bill:=' where ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo28.DisplayValues[1]+''''
|
|
|
else
|
|
|
str_bill:=str_bill+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo28.DisplayValues[1]+'''';
|
|
|
end;
|
|
|
|
|
|
if RxDBLookupCombo32.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo32.DisplayValues[1]+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo32.DisplayValues[1]+'''';
|
|
|
end;
|
|
|
|
|
|
if wwDBComboBox8.Text<>''then
|
|
|
begin
|
|
|
if wwDBComboBox8.text='û<><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+'''';
|
|
|
end else begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+'''';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if wwDBComboBox12.Text<>''then
|
|
|
begin
|
|
|
if wwDBComboBox12.text='û<>д<EFBFBD>ӡ' then begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ<>1'
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ<>1';
|
|
|
end else begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1'
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if RxDBLookupCombo8.DisplayValue<>'' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo8.DisplayValue+'''';
|
|
|
if RxDBLookupCombo7.DisplayValue<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo7.DisplayValue+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo7.DisplayValue+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker13.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker13.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker13.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker14.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker14.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker14.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker15.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker15.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker15.text+'''';
|
|
|
end;
|
|
|
if wwDBDateTimePicker16.text<>'' then
|
|
|
begin
|
|
|
if str_fee='' then
|
|
|
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker16.text+''''
|
|
|
else
|
|
|
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker16.text+'''';
|
|
|
end;
|
|
|
if wwDBComboBox4.Text<>''then
|
|
|
begin
|
|
|
if wwDBComboBox4.text='û<>и<EFBFBD><D0B8><EFBFBD>' then
|
|
|
str_fuhe:=' t_op_airi.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in ('+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''
|
|
|
+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>' +''''+'))'
|
|
|
else
|
|
|
str_fuhe:=' t_op_airi.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in ('+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''
|
|
|
+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>' +''''+'))';
|
|
|
end;
|
|
|
if str_bill<>'' then
|
|
|
begin
|
|
|
if str_fee<>'' then
|
|
|
str_bill:=str_bill+' and t_op_airi.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view'+str_fee+')';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if str_fee<>'' then
|
|
|
str_bill:=' where t_op_airi.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_ch_fee_modify'+str_fee+')';
|
|
|
end;
|
|
|
if str_fuhe<>''then
|
|
|
begin
|
|
|
if str_bill<>'' then
|
|
|
str_bill:=str_bill+' and '+str_fuhe
|
|
|
else
|
|
|
str_bill:=' where '+str_fuhe;
|
|
|
end;
|
|
|
t_ch_fee_modify.close;
|
|
|
a_shen_delete.close;
|
|
|
a_shen_modify_old.close;
|
|
|
a_shen_modify_new.close;
|
|
|
a_shen_add.close;
|
|
|
|
|
|
t_ch_fee_bsCardSum.Close;
|
|
|
at_modify_old.Close;
|
|
|
at_modify_new.Close;
|
|
|
|
|
|
p_airi.close;
|
|
|
p_airi.Parameters.ParamByName('SQLStr').value:=
|
|
|
'SELECT t_op_airi.*, v_ch_fee_modify_check_sum.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
|
|
|
+'FROM t_op_airi INNER JOIN '
|
|
|
+'v_ch_fee_modify_check_sum ON t_op_airi.<2E><><EFBFBD><EFBFBD> = v_ch_fee_modify_check_sum.<2E><><EFBFBD><EFBFBD> '+str_bill+' order by t_op_airi.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc';
|
|
|
p_airi.open;
|
|
|
t_ch_fee_modify.open;
|
|
|
a_shen_delete.open;
|
|
|
a_shen_modify_old.open;
|
|
|
a_shen_modify_new.open;
|
|
|
a_shen_add.open;
|
|
|
|
|
|
t_ch_fee_bsCardSum.Open;
|
|
|
at_modify_old.Open;
|
|
|
at_modify_new.Open;
|
|
|
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.Panel1Resize(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinPanel2.Left:=Panel1.Width-bsSkinPanel2.Width;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.bsSkinPageControl1Change(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
if ch_fee_modify_check then
|
|
|
begin
|
|
|
t_ch_fee_modify.close;
|
|
|
t_ch_fee_bsCardSum.Close;
|
|
|
p_seae.close;
|
|
|
p_seai.close;
|
|
|
p_aire.close;
|
|
|
p_airi.close;
|
|
|
if bsSkinTabSheet1.Showing then
|
|
|
begin
|
|
|
t_ch_fee_modify.DataSource:=p_seae1;
|
|
|
t_ch_fee_bsCardSum.DataSource:=p_seae1;
|
|
|
end
|
|
|
else if bsSkinTabSheet2.Showing then
|
|
|
begin
|
|
|
t_ch_fee_modify.DataSource:=p_seai1;
|
|
|
t_ch_fee_bsCardSum.DataSource:=p_seai1;
|
|
|
end
|
|
|
else if bsSkinTabSheet3.Showing then
|
|
|
begin
|
|
|
t_ch_fee_modify.DataSource:=p_aire1;
|
|
|
t_ch_fee_bsCardSum.DataSource:=p_aire1;
|
|
|
end
|
|
|
else if bsSkinTabSheet4.Showing then
|
|
|
begin
|
|
|
t_ch_fee_modify.DataSource:=p_airi1;
|
|
|
t_ch_fee_bsCardSum.DataSource:=p_airi1;
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.dxDBGrid3ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_seai,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.dxDBGrid4ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_aire,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.dxDBGrid5ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_airi,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.dxDBGrid2ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort(Column,t_ch_fee_modify,'FM_ID');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.DBEdit17Change(Sender: TObject);
|
|
|
begin
|
|
|
a_delete.Visible:=false;
|
|
|
a_delete.Align:=alNone;
|
|
|
a_modify_old.Visible:=false;
|
|
|
a_modify_old.Align:=alNone;
|
|
|
a_modify_new.Visible:=false;
|
|
|
a_modify_new.Align:=alNone;
|
|
|
a_modify_add.Visible:=false;
|
|
|
a_modify_add.Align:=alNone;
|
|
|
|
|
|
if t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>'then
|
|
|
begin
|
|
|
a_modify_old.Visible:=false;
|
|
|
a_modify_old.Align:=alNone;
|
|
|
a_modify_new.Visible:=false;
|
|
|
a_modify_new.Align:=alNone;
|
|
|
a_delete.Visible:=false;
|
|
|
a_delete.Align:=alNone;
|
|
|
a_modify_add.Visible:=true;
|
|
|
a_modify_add.Align:=alRight;
|
|
|
exit;
|
|
|
end;
|
|
|
if t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'then
|
|
|
begin
|
|
|
a_modify_old.Visible:=false;
|
|
|
a_modify_old.Align:=alNone;
|
|
|
a_modify_new.Visible:=false;
|
|
|
a_modify_new.Align:=alNone;
|
|
|
a_modify_add.Visible:=false;
|
|
|
a_modify_add.Align:=alNone;
|
|
|
a_delete.Visible:=true;
|
|
|
a_delete.Align:=alRight;
|
|
|
exit;
|
|
|
end;
|
|
|
if t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'then
|
|
|
begin
|
|
|
a_delete.Visible:=false;
|
|
|
a_delete.Align:=alNone;
|
|
|
a_modify_add.Visible:=false;
|
|
|
a_modify_add.Align:=alNone;
|
|
|
a_modify_new.Visible:=true;
|
|
|
a_modify_new.Align:=alRight;
|
|
|
a_modify_old.Visible:=true;
|
|
|
a_modify_old.Align:=alRight;
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
Edit1.Text:='';
|
|
|
Edit2.Text:='';
|
|
|
Edit3.Text:='';
|
|
|
Edit4.Text:='';
|
|
|
Edit5.Text:='';
|
|
|
Edit6.Text:='';
|
|
|
Edit7.Text:='';
|
|
|
Edit8.Text:='';
|
|
|
Edit9.Text:='';
|
|
|
Edit11.Text:='';
|
|
|
Edit13.Text:='';
|
|
|
Edit15.Text:='';
|
|
|
RxDBLookupCombo1.ClearValue;
|
|
|
RxDBLookupCombo2.ClearValue;
|
|
|
RxDBLookupCombo3.ClearValue;
|
|
|
RxDBLookupCombo4.ClearValue;
|
|
|
RxDBLookupCombo5.ClearValue;
|
|
|
RxDBLookupCombo6.ClearValue;
|
|
|
RxDBLookupCombo7.ClearValue;
|
|
|
RxDBLookupCombo8.ClearValue;
|
|
|
RxDBLookupCombo9.ClearValue;
|
|
|
RxDBLookupCombo10.ClearValue;
|
|
|
RxDBLookupCombo11.ClearValue;
|
|
|
RxDBLookupCombo12.ClearValue;
|
|
|
RxDBLookupCombo13.ClearValue;
|
|
|
RxDBLookupCombo14.ClearValue;
|
|
|
RxDBLookupCombo15.ClearValue;
|
|
|
RxDBLookupCombo16.ClearValue;
|
|
|
RxDBLookupCombo17.ClearValue;
|
|
|
RxDBLookupCombo18.ClearValue;
|
|
|
RxDBLookupCombo19.ClearValue;
|
|
|
RxDBLookupCombo20.ClearValue;
|
|
|
RxDBLookupCombo21.ClearValue;
|
|
|
RxDBLookupCombo22.ClearValue;
|
|
|
RxDBLookupCombo23.ClearValue;
|
|
|
RxDBLookupCombo24.ClearValue;
|
|
|
wwDBDateTimePicker1.Text:='';
|
|
|
wwDBDateTimePicker2.Text:='';
|
|
|
wwDBDateTimePicker3.Text:='';
|
|
|
wwDBDateTimePicker4.Text:='';
|
|
|
wwDBDateTimePicker5.Text:='';
|
|
|
wwDBDateTimePicker6.Text:='';
|
|
|
wwDBDateTimePicker7.Text:='';
|
|
|
wwDBDateTimePicker8.Text:='';
|
|
|
wwDBDateTimePicker9.Text:='';
|
|
|
wwDBDateTimePicker10.Text:='';
|
|
|
wwDBDateTimePicker11.Text:='';
|
|
|
wwDBDateTimePicker12.Text:='';
|
|
|
wwDBDateTimePicker13.Text:='';
|
|
|
wwDBDateTimePicker14.Text:='';
|
|
|
wwDBDateTimePicker15.Text:='';
|
|
|
wwDBDateTimePicker16.Text:='';
|
|
|
wwDBDateTimePicker17.Text:='';
|
|
|
wwDBDateTimePicker18.Text:='';
|
|
|
wwDBDateTimePicker19.Text:='';
|
|
|
wwDBDateTimePicker20.Text:='';
|
|
|
wwDBDateTimePicker21.Text:='';
|
|
|
wwDBDateTimePicker22.Text:='';
|
|
|
wwDBDateTimePicker23.Text:='';
|
|
|
wwDBDateTimePicker24.Text:='';
|
|
|
wwDBComboBox1.Text:='';
|
|
|
wwDBComboBox2.Text:='';
|
|
|
wwDBComboBox3.Text:='';
|
|
|
wwDBComboBox4.Text:='';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
ch_fee_modify_check:=true;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.bsSkinButton2Click(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
if t_ch_fee_modify.IsEmpty then
|
|
|
exit;
|
|
|
if dxDBGrid2.SelectedCount>=1 then
|
|
|
begin
|
|
|
for i:=0 to dxDBGrid2.SelectedCount-1 do
|
|
|
begin
|
|
|
t_ch_fee_modify.GotoBookmark(pointer(dxDBGrid2.selectedrows[i]));
|
|
|
if t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
|
|
|
begin
|
|
|
a_shen_delete.edit;
|
|
|
a_shen_delete['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
a_shen_delete.post;
|
|
|
end
|
|
|
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
a_shen_modify_old.edit;
|
|
|
a_shen_modify_old['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
a_shen_modify_old.post;
|
|
|
end
|
|
|
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>') then
|
|
|
begin
|
|
|
a_shen_add.edit;
|
|
|
a_shen_add['<27>Ƿ<C7B7>']:=1;
|
|
|
a_shen_add.post;
|
|
|
end
|
|
|
end;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
|
|
|
begin
|
|
|
a_shen_delete.edit;
|
|
|
a_shen_delete['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
a_shen_delete.post;
|
|
|
end
|
|
|
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
a_shen_modify_old.edit;
|
|
|
a_shen_modify_old['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
a_shen_modify_old.post;
|
|
|
end
|
|
|
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>') then
|
|
|
begin
|
|
|
a_shen_add.edit;
|
|
|
a_shen_add['<27>Ƿ<C7B7>']:=1;
|
|
|
a_shen_add.post;
|
|
|
end
|
|
|
end;
|
|
|
end;
|
|
|
t_ch_fee_modify.Requery();
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.bsSkinButton4Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_ch_fee_modify.IsEmpty then
|
|
|
exit;
|
|
|
t_ch_fee_modify.first;
|
|
|
while not t_ch_fee_modify.eof do
|
|
|
begin
|
|
|
if t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
|
|
|
begin
|
|
|
a_shen_delete.edit;
|
|
|
a_shen_delete['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
a_shen_delete.post;
|
|
|
end
|
|
|
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
a_shen_modify_old.edit;
|
|
|
a_shen_modify_old['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
a_shen_modify_old.post;
|
|
|
end
|
|
|
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>') then
|
|
|
begin
|
|
|
a_shen_add.edit;
|
|
|
a_shen_add['<27>Ƿ<C7B7>']:=1;
|
|
|
a_shen_add.post;
|
|
|
end
|
|
|
end;
|
|
|
t_ch_fee_modify.next;
|
|
|
end;
|
|
|
t_ch_fee_modify.Requery();
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_ch_fee_modify.IsEmpty then
|
|
|
exit;
|
|
|
if t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
|
|
|
begin
|
|
|
if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
|
|
|
begin
|
|
|
a_shen_delete.edit;
|
|
|
a_shen_delete['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>';
|
|
|
a_shen_delete.post;
|
|
|
end
|
|
|
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
a_shen_modify_old.edit;
|
|
|
a_shen_modify_old['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>';
|
|
|
a_shen_modify_old.post;
|
|
|
end
|
|
|
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>') then
|
|
|
begin
|
|
|
a_shen_add.edit;
|
|
|
a_shen_add['<27>Ƿ<C7B7>']:=0;
|
|
|
a_shen_add.post;
|
|
|
end
|
|
|
end;
|
|
|
t_ch_fee_modify.Requery();
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.dxDBGrid2Column2CustomDraw(
|
|
|
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 ANode.Strings[dxDBGrid2Column2.Index]='<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>' then
|
|
|
AColor:=$0040FF00
|
|
|
else
|
|
|
AColor:=clred;
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.bsSkinGroupBox1Resize(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinButton3.Left:=bsSkinGroupBox1.Width-97;
|
|
|
bsSkinButton4.Left:=bsSkinGroupBox1.Width-97*2;
|
|
|
bsSkinButton2.Left:=bsSkinGroupBox1.Width-97*3;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_modify_check.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.Showing then
|
|
|
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ø<EFBFBD><C3B8>ĵ<EFBFBD>1',2,p_seae1,nil,nil,nil,t_ch_fee_modify1,dsrBsCardSum,dsrmodify_old,dsrmodify_new,nil,nil,nil)
|
|
|
else if bsSkinTabSheet2.Showing then
|
|
|
sys_print('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>ø<EFBFBD><C3B8>ĵ<EFBFBD>1',2,p_seai1,nil,nil,nil,t_ch_fee_modify1,dsrBsCardSum,dsrmodify_old,dsrmodify_new,nil,nil,nil)
|
|
|
else if bsSkinTabSheet3.Showing then
|
|
|
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ø<EFBFBD><C3B8>ĵ<EFBFBD>1',2,p_aire1,nil,nil,nil,t_ch_fee_modify1,dsrBsCardSum,dsrmodify_old,dsrmodify_new,nil,nil,nil)
|
|
|
else if bsSkinTabSheet4.Showing then
|
|
|
sys_print('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>ø<EFBFBD><C3B8>ĵ<EFBFBD>1',2,p_airi1,nil,nil,nil,t_ch_fee_modify1,dsrBsCardSum,dsrmodify_old,dsrmodify_new,nil,nil,nil);
|
|
|
|
|
|
t_ch_fee_modify.first;
|
|
|
while not t_ch_fee_modify.eof do
|
|
|
begin
|
|
|
if t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><D7BC><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
|
|
|
begin
|
|
|
a_shen_delete.edit;
|
|
|
a_shen_delete['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=1;
|
|
|
a_shen_delete.post;
|
|
|
end
|
|
|
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
a_shen_modify_old.edit;
|
|
|
a_shen_modify_old['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=1;
|
|
|
a_shen_modify_old.post;
|
|
|
end
|
|
|
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><D7B7>') then
|
|
|
begin
|
|
|
a_shen_add.edit;
|
|
|
a_shen_add['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=1;
|
|
|
a_shen_add.post;
|
|
|
end
|
|
|
end;
|
|
|
t_ch_fee_modify.next;
|
|
|
end;
|
|
|
t_ch_fee_modify.Requery();
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|