|
|
unit u_ch_check_check;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, dxExEdtr, dxDBTLCl, dxGrClms, dxDBGrid, dxTL,
|
|
|
dxDBCtrl, dxCntner, DB, ADODB, StdCtrls, DBCtrls, bsdbctrls, RxLookup,
|
|
|
Mask, ComCtrls, bsSkinTabs, Menus, XPMenu, kbmMemTable,
|
|
|
wwdbdatetimepicker;
|
|
|
|
|
|
type
|
|
|
Tfrm_ch_check_check = class(TForm)
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinNotebook1: TbsSkinNotebook;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridDateColumn;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
t_ch_check: TADOQuery;
|
|
|
t_ch_check1: TDataSource;
|
|
|
v_fee_do_seae: TADOQuery;
|
|
|
v_fee_do_seae1: TDataSource;
|
|
|
Label25: TLabel;
|
|
|
DBEdit14: TDBEdit;
|
|
|
Label17: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
Label12: TLabel;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
Label2: TLabel;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
Label3: TLabel;
|
|
|
DBEdit4: TDBEdit;
|
|
|
Label4: TLabel;
|
|
|
DBEdit2: TDBEdit;
|
|
|
DBEdit3: TDBEdit;
|
|
|
Label1: TLabel;
|
|
|
Label5: TLabel;
|
|
|
DBEdit6: TDBEdit;
|
|
|
Label18: TLabel;
|
|
|
DBEdit5: TDBEdit;
|
|
|
Label10: TLabel;
|
|
|
DBMemo1: TDBMemo;
|
|
|
Label6: TLabel;
|
|
|
DBEdit7: TDBEdit;
|
|
|
Label7: TLabel;
|
|
|
DBEdit8: TDBEdit;
|
|
|
Label8: TLabel;
|
|
|
DBEdit9: TDBEdit;
|
|
|
Label9: TLabel;
|
|
|
DBEdit10: TDBEdit;
|
|
|
Label11: TLabel;
|
|
|
DBMemo2: TDBMemo;
|
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
|
dxDBGrid1Column16: TdxDBGridColumn;
|
|
|
Label13: TLabel;
|
|
|
DBEdit11: TDBEdit;
|
|
|
v_fee_do_seai: TADOQuery;
|
|
|
v_fee_do_seai1: TDataSource;
|
|
|
v_fee_do_aire: TADOQuery;
|
|
|
v_fee_do_airi: TADOQuery;
|
|
|
v_fee_do_airi1: TDataSource;
|
|
|
v_fee_do_aire1: TDataSource;
|
|
|
XPMenu1: TXPMenu;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
PopupMenu3: TPopupMenu;
|
|
|
N17: TMenuItem;
|
|
|
N18: TMenuItem;
|
|
|
N34: TMenuItem;
|
|
|
N35: TMenuItem;
|
|
|
N36: TMenuItem;
|
|
|
N1: TMenuItem;
|
|
|
N6: TMenuItem;
|
|
|
N5: TMenuItem;
|
|
|
N4: TMenuItem;
|
|
|
v_fee_do_seae_sum: TADOQuery;
|
|
|
v_fee_do_seae_sum1: TDataSource;
|
|
|
v_fee_do_seai_sum: TADOQuery;
|
|
|
v_fee_do_seai_sum1: TDataSource;
|
|
|
v_fee_do_aire_sum: TADOQuery;
|
|
|
v_fee_do_aire_sum1: TDataSource;
|
|
|
v_fee_do_airi_sum: TADOQuery;
|
|
|
v_fee_do_airi_sum1: TDataSource;
|
|
|
bsSkinPageControl2: TbsSkinPageControl;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
dxDBGrid6: TdxDBGrid;
|
|
|
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn56: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn57: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn58: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn59: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn17: TdxDBGridColumn;
|
|
|
dxDBGridColumn18: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn60: TdxDBGridMaskColumn;
|
|
|
dxDBGrid6Column22: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn9: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn10: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn19: TdxDBGridColumn;
|
|
|
dxDBGridColumn4: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid11: TdxDBGrid;
|
|
|
dxDBGrid5Column4: TdxDBGridColumn;
|
|
|
dxDBGrid5Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid5Column2: TdxDBGridColumn;
|
|
|
dxDBGrid5Column5: TdxDBGridColumn;
|
|
|
dxDBGrid5Column6: TdxDBGridColumn;
|
|
|
dxDBGrid5Column3: TdxDBGridColumn;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
dxDBGrid3: TdxDBGrid;
|
|
|
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn5: TdxDBGridColumn;
|
|
|
dxDBGridColumn6: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn7: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn3: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn4: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn8: TdxDBGridColumn;
|
|
|
dxDBGridColumn9: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
|
|
|
dxDBGrid12: TdxDBGrid;
|
|
|
dxDBGrid6Column4: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn36: TdxDBGridColumn;
|
|
|
dxDBGrid6Column5: TdxDBGridColumn;
|
|
|
dxDBGrid6Column6: TdxDBGridColumn;
|
|
|
dxDBGridColumn43: TdxDBGridColumn;
|
|
|
bsSkinTabSheet5: TbsSkinTabSheet;
|
|
|
dxDBGrid4: TdxDBGrid;
|
|
|
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn10: TdxDBGridColumn;
|
|
|
dxDBGridColumn11: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
|
|
|
dxDBGrid8Column19: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn5: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn6: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn39: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn40: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn12: TdxDBGridColumn;
|
|
|
dxDBGridColumn13: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn41: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn42: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn43: TdxDBGridMaskColumn;
|
|
|
dxDBGrid13: TdxDBGrid;
|
|
|
dxDBGrid7Column4: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn44: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn37: TdxDBGridColumn;
|
|
|
dxDBGrid7Column5: TdxDBGridColumn;
|
|
|
dxDBGrid7Column6: TdxDBGridColumn;
|
|
|
dxDBGridColumn44: TdxDBGridColumn;
|
|
|
bsSkinTabSheet6: TbsSkinTabSheet;
|
|
|
dxDBGrid5: TdxDBGrid;
|
|
|
dxDBGridMaskColumn45: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn46: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn14: TdxDBGridColumn;
|
|
|
dxDBGridColumn15: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn16: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn7: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn8: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn38: TdxDBGridColumn;
|
|
|
dxDBGridColumn45: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn115: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn116: TdxDBGridMaskColumn;
|
|
|
dxDBGrid14: TdxDBGrid;
|
|
|
dxDBGrid8Column4: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn117: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn46: TdxDBGridColumn;
|
|
|
dxDBGrid8Column5: TdxDBGridColumn;
|
|
|
dxDBGrid8Column6: TdxDBGridColumn;
|
|
|
dxDBGridColumn47: TdxDBGridColumn;
|
|
|
dxDBGrid1Column17: TdxDBGridColumn;
|
|
|
dxDBGrid1Column18: TdxDBGridColumn;
|
|
|
bsSkinPanel4: TbsSkinPanel;
|
|
|
Label14: TLabel;
|
|
|
Label15: TLabel;
|
|
|
Label16: TLabel;
|
|
|
Label19: TLabel;
|
|
|
Label20: TLabel;
|
|
|
Label21: TLabel;
|
|
|
Label22: TLabel;
|
|
|
Label23: TLabel;
|
|
|
Label24: TLabel;
|
|
|
Label26: TLabel;
|
|
|
Label27: TLabel;
|
|
|
Label28: TLabel;
|
|
|
Label29: TLabel;
|
|
|
Label30: TLabel;
|
|
|
Label31: TLabel;
|
|
|
Label32: TLabel;
|
|
|
DBEdit12: TDBEdit;
|
|
|
DBEdit13: TDBEdit;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
|
DBEdit15: TDBEdit;
|
|
|
DBEdit16: TDBEdit;
|
|
|
DBEdit17: TDBEdit;
|
|
|
DBEdit18: TDBEdit;
|
|
|
DBEdit19: TDBEdit;
|
|
|
DBMemo3: TDBMemo;
|
|
|
DBEdit20: TDBEdit;
|
|
|
DBEdit21: TDBEdit;
|
|
|
DBEdit22: TDBEdit;
|
|
|
DBEdit23: TDBEdit;
|
|
|
DBMemo4: TDBMemo;
|
|
|
DBEdit24: TDBEdit;
|
|
|
t_ch_checkDSDesigner: TStringField;
|
|
|
t_ch_checkDSDesigner2: TStringField;
|
|
|
t_ch_checkDSDesigner3: TStringField;
|
|
|
t_ch_checkDSDesigner4: TStringField;
|
|
|
t_ch_checkDSDesigner5: TStringField;
|
|
|
t_ch_checkDSDesigner6: TBCDField;
|
|
|
t_ch_checkDSDesigner7: TBCDField;
|
|
|
t_ch_checkDSDesigner8: TBCDField;
|
|
|
t_ch_checkDSDesigner9: TStringField;
|
|
|
t_ch_checkDSDesigner10: TBooleanField;
|
|
|
t_ch_checkDSDesigner11: TStringField;
|
|
|
t_ch_checkDSDesigner12: TDateTimeField;
|
|
|
t_ch_checkDSDesigner13: TStringField;
|
|
|
t_ch_checkDSDesigner14: TDateTimeField;
|
|
|
t_ch_checkDSDesigner15: TStringField;
|
|
|
t_ch_checkDSDesigner16: TDateTimeField;
|
|
|
t_ch_checkDSDesigner17: TStringField;
|
|
|
t_ch_checkDSDesigner18: TStringField;
|
|
|
t_ch_checkDSDesigner19: TStringField;
|
|
|
t_ch_checkDSDesigner20: TStringField;
|
|
|
t_ch_checkDSDesigner21: TDateTimeField;
|
|
|
t_ch_checkDSDesigner22: TBCDField;
|
|
|
t_ch_checkDSDesigner23: TBCDField;
|
|
|
t_ch_checkField: TFloatField;
|
|
|
t_ch_checkField2: TFloatField;
|
|
|
dxDBGrid1Column19: TdxDBGridColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridColumn;
|
|
|
t_ch_checkDSDesigner24: TBooleanField;
|
|
|
bsSkinButton38: TbsSkinButton;
|
|
|
memtblprint: TkbmMemTable;
|
|
|
memtblprint1: TDataSource;
|
|
|
t_ch_checkDSDesigner25: TDateTimeField;
|
|
|
dxDBGrid1Column21: TdxDBGridColumn;
|
|
|
dxDBGrid1Column22: TdxDBGridColumn;
|
|
|
t_ch_checkDSDesigner26: TSmallintField;
|
|
|
bsSkinButton4: TbsSkinButton;
|
|
|
dxDBGrid1Column23: TdxDBGridColumn;
|
|
|
v_fee_do_airtruck: TADOQuery;
|
|
|
v_fee_do_airtruck1: TDataSource;
|
|
|
v_fee_do_airtruck_sum: TADOQuery;
|
|
|
v_fee_do_airtruck_sum1: TDataSource;
|
|
|
bsSkinTabSheet7: TbsSkinTabSheet;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGridColumn1: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn2: TdxDBGridColumn;
|
|
|
dxDBGridColumn3: TdxDBGridColumn;
|
|
|
dxDBGridColumn20: TdxDBGridColumn;
|
|
|
dxDBGridColumn21: TdxDBGridColumn;
|
|
|
dxDBGrid7: TdxDBGrid;
|
|
|
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn22: TdxDBGridColumn;
|
|
|
dxDBGridColumn23: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn61: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn24: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn1: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn63: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn64: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn26: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn65: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn66: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn67: TdxDBGridMaskColumn;
|
|
|
bsSkinTabSheet8: TbsSkinTabSheet;
|
|
|
dxDBGrid8: TdxDBGrid;
|
|
|
dxDBGridColumn25: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn62: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn27: TdxDBGridColumn;
|
|
|
dxDBGridColumn28: TdxDBGridColumn;
|
|
|
dxDBGridColumn29: TdxDBGridColumn;
|
|
|
dxDBGridColumn30: TdxDBGridColumn;
|
|
|
dxDBGrid9: TdxDBGrid;
|
|
|
dxDBGridMaskColumn68: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn69: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn70: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn71: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn72: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn31: TdxDBGridColumn;
|
|
|
dxDBGridColumn32: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn73: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn33: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn2: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn74: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn75: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn34: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn76: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn77: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn78: TdxDBGridMaskColumn;
|
|
|
v_fee_do_railway: TADOQuery;
|
|
|
v_fee_do_railway1: TDataSource;
|
|
|
v_fee_do_railway_sum: TADOQuery;
|
|
|
v_fee_do_railway_sum1: TDataSource;
|
|
|
Label121: TLabel;
|
|
|
DBEdit88: TDBEdit;
|
|
|
Label122: TLabel;
|
|
|
wwDBDateTimePicker4: TwwDBDateTimePicker;
|
|
|
DBEdit87: TDBEdit;
|
|
|
Label120: TLabel;
|
|
|
t_ch_checkDSDesigner27: TDateTimeField;
|
|
|
t_ch_checkDSDesigner28: TStringField;
|
|
|
t_ch_checkDSDesigner29: TStringField;
|
|
|
Label33: TLabel;
|
|
|
Label34: TLabel;
|
|
|
Label35: TLabel;
|
|
|
DBEdit25: TDBEdit;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
DBEdit26: TDBEdit;
|
|
|
dxDBGrid1Column24: TdxDBGridColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridColumn;
|
|
|
dxdbgrdclmndxDBGrid1Column26: TdxDBGridColumn;
|
|
|
dxDBGrid6Column23: TdxDBGridColumn;
|
|
|
dxDBGrid6Column24: TdxDBGridColumn;
|
|
|
dxDBGrid3Column23: TdxDBGridColumn;
|
|
|
dxDBGrid3Column24: TdxDBGridColumn;
|
|
|
dxDBGrid1Column27: TdxDBGridColumn;
|
|
|
t_ch_checkDSDesigner30: TStringField;
|
|
|
Label36: TLabel;
|
|
|
DBEdit27: TDBEdit;
|
|
|
bsSkinTabSheetttl: TbsSkinTabSheet;
|
|
|
dxDBGrid10: TdxDBGrid;
|
|
|
dxDBGridColumn35: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn79: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn39: TdxDBGridColumn;
|
|
|
dxDBGridColumn40: TdxDBGridColumn;
|
|
|
dxDBGridColumn41: TdxDBGridColumn;
|
|
|
dxDBGridColumn42: TdxDBGridColumn;
|
|
|
dxDBGrid15: TdxDBGrid;
|
|
|
dxDBGridMaskColumn80: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn81: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn82: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn83: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn84: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn48: TdxDBGridColumn;
|
|
|
dxDBGridColumn49: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn85: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn50: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn11: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn12: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn86: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn87: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn88: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn89: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn90: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn51: TdxDBGridColumn;
|
|
|
dxDBGridColumn52: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn91: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn92: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn93: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn94: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn53: TdxDBGridColumn;
|
|
|
dxDBGridColumn54: TdxDBGridColumn;
|
|
|
v_fee_do_bscard: TADOQuery;
|
|
|
v_fee_do_bscard1: TDataSource;
|
|
|
v_fee_do_bscard_sum: TADOQuery;
|
|
|
v_fee_do_bscard_sum1: TDataSource;
|
|
|
dxDBGrid15Column25: TdxDBGridColumn;
|
|
|
dxDBGrid15Column26: TdxDBGridColumn;
|
|
|
dxDBGrid15Column27: TdxDBGridCheckColumn;
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
|
procedure DBEdit1Change(Sender: TObject);
|
|
|
procedure dxDBGrid1Column2CustomDraw(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 bsSkinButton10Click(Sender: TObject);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure bsSkinPanel2Resize(Sender: TObject);
|
|
|
procedure bsSkinButton12Click(Sender: TObject);
|
|
|
procedure N17Click(Sender: TObject);
|
|
|
procedure N34Click(Sender: TObject);
|
|
|
procedure N36Click(Sender: TObject);
|
|
|
procedure N6Click(Sender: TObject);
|
|
|
procedure N4Click(Sender: TObject);
|
|
|
procedure dxDBGrid6DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid3DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid4DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid5DblClick(Sender: TObject);
|
|
|
procedure t_ch_checkCalcFields(DataSet: TDataSet);
|
|
|
procedure bsSkinButton38Click(Sender: TObject);
|
|
|
procedure bsSkinNotebook1PageChanged(Sender: TObject);
|
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
|
procedure dxDBGrid7DblClick(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
ch_check_check:boolean;
|
|
|
frm_ch_check_check: Tfrm_ch_check_check;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, u_ch_shen_query, my_sys_function, u_data_share, my_sys_chat;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_ch_check_check.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
ch_check_check:=false;
|
|
|
savereggrid(dxdbgrid1,caption+'1');
|
|
|
|
|
|
savereggrid(dxdbgrid3,caption+'3');
|
|
|
savereggrid(dxdbgrid4,caption+'4');
|
|
|
savereggrid(dxdbgrid5,caption+'5');
|
|
|
savereggrid(dxdbgrid6,caption+'6');
|
|
|
savereggrid(dxdbgrid7,caption+'7');
|
|
|
savereggrid(dxdbgrid9,caption+'9');
|
|
|
frm_ch_check_check.Hide;
|
|
|
frm_ch_check_check.ManualFloat(frm_ch_check_check.BoundsRect );
|
|
|
frm_main.freeTabs('frm_ch_check_check');
|
|
|
action:=cafree;
|
|
|
frm_ch_check_check:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinButton3.Caption='<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
if t_ch_check.IsEmpty then
|
|
|
exit;
|
|
|
bsSkinNotebook1.PageIndex:=1;
|
|
|
bsSkinButton3.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
bsSkinNotebook1.PageIndex:=0;
|
|
|
bsSkinButton3.Caption:='<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
table_Prior(t_ch_check);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
table_next(t_ch_check);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinButton9Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
strbs,strwt,strmb:WideString;
|
|
|
begin
|
|
|
//<2F><>ӡ<EFBFBD><D3A1><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD>б<EFBFBD>
|
|
|
memtblprint.close;
|
|
|
memtblprint.Open;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
sql.Add('select distinct ί<>б<EFBFBD><D0B1><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5> from v_op_bscard where <20><><EFBFBD><EFBFBD> in (select ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee_do where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+''')');
|
|
|
Open;
|
|
|
first;
|
|
|
while not eof do begin
|
|
|
if strwt='' then
|
|
|
strwt:=fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString
|
|
|
else
|
|
|
strwt:=strwt+'/'+fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
|
|
|
if strbs='' then
|
|
|
strbs:=fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
|
|
|
else
|
|
|
strbs:=strbs+'/'+fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
|
|
|
if strmb='' then
|
|
|
strmb:=fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString
|
|
|
else
|
|
|
strmb:=strmb+'/'+fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
|
|
|
Next;
|
|
|
end;
|
|
|
memtblprint.Edit;
|
|
|
memtblprint.fieldbyname('bsno').AsString:=strbs;
|
|
|
memtblprint.fieldbyname('wtno').AsString:=strwt;
|
|
|
memtblprint.fieldbyname('mblno').AsString:=strmb;
|
|
|
memtblprint.post;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
if StrToBool(get_parameters_value(85,'false')) then
|
|
|
begin
|
|
|
sys_print('ҵ<><D2B5>֧<EFBFBD><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',2,t_ch_check1,memtblprint1,nil,nil,v_fee_do_bscard1,v_fee_do_seai1,v_fee_do_aire1,v_fee_do_airi1,t_ch_check1,nil,nil);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
sys_print('ҵ<><D2B5>֧<EFBFBD><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',2,t_ch_check1,memtblprint1,nil,nil,v_fee_do_seae1,v_fee_do_seai1,v_fee_do_aire1,v_fee_do_airi1,t_ch_check1,nil,nil);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinNotebook1.PageIndex:=0;
|
|
|
t_ch_check.close;
|
|
|
t_ch_check.sql.Clear;
|
|
|
t_ch_check.sql.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in (''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'',''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'') ');
|
|
|
t_ch_check.sql.Add(' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no'));
|
|
|
t_ch_check.sql.Add('order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
t_ch_check.open;
|
|
|
|
|
|
ch_check_check:=true;
|
|
|
|
|
|
loadreggrid(dxdbgrid1,false,caption+'1');
|
|
|
loadreggrid(dxdbgrid3,false,caption+'3');
|
|
|
loadreggrid(dxdbgrid4,false,caption+'4');
|
|
|
loadreggrid(dxdbgrid5,false,caption+'5');
|
|
|
loadreggrid(dxdbgrid6,false,caption+'6');
|
|
|
loadreggrid(dxdbgrid7,false,caption+'7');
|
|
|
loadreggrid(dxdbgrid9,false,caption+'9');
|
|
|
dxdbgrid1.ShowSummaryFooter:=true;
|
|
|
|
|
|
if StrToBool(get_parameters_value(83,'false')) then
|
|
|
begin
|
|
|
bsSkinPanel4.Visible:=true;
|
|
|
dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=False;
|
|
|
dxdbgrid1.ColumnByFieldName('ʵ<>ʽ<EFBFBD><CABD><EFBFBD>').Visible:=false;
|
|
|
dxdbgrid1.ColumnByFieldName('<27>鿪<EFBFBD><E9BFAA><EFBFBD><EFBFBD>').Visible:=False;
|
|
|
dxdbgrid1.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=false;
|
|
|
dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=false;
|
|
|
dxdbgrid1.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Visible:=True;
|
|
|
dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Visible:=True;
|
|
|
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
bsSkinPanel4.Visible:=False;
|
|
|
dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=True;
|
|
|
dxdbgrid1.ColumnByFieldName('ʵ<>ʽ<EFBFBD><CABD><EFBFBD>').Visible:=True;
|
|
|
dxdbgrid1.ColumnByFieldName('<27>鿪<EFBFBD><E9BFAA><EFBFBD><EFBFBD>').Visible:=True;
|
|
|
dxdbgrid1.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=True;
|
|
|
dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=True;
|
|
|
dxdbgrid1.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Visible:=False;
|
|
|
dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Visible:=False;
|
|
|
end;
|
|
|
if not if_open('343') then begin
|
|
|
bsSkinButton4.Visible:=false;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if StrToBool(get_parameters_value(85,'false')) then
|
|
|
begin
|
|
|
v_fee_do_bscard.open;
|
|
|
v_fee_do_bscard_sum.Open;
|
|
|
|
|
|
bsSkinTabSheet3.TabVisible:=false;
|
|
|
bsSkinTabSheet4.TabVisible:=false;
|
|
|
bsSkinTabSheet5.TabVisible:=false;
|
|
|
bsSkinTabSheet6.TabVisible:=false;
|
|
|
bsSkinTabSheet7.TabVisible:=false;
|
|
|
bsSkinTabSheet8.TabVisible:=false;
|
|
|
bsSkinTabSheet8.TabVisible:=false;
|
|
|
bsSkinTabSheetttl.TabVisible:=true;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
v_fee_do_seae.open;
|
|
|
v_fee_do_seai.open;
|
|
|
v_fee_do_aire.open;
|
|
|
v_fee_do_airi.open;
|
|
|
v_fee_do_airtruck.open;
|
|
|
v_fee_do_railway.open;
|
|
|
v_fee_do_seae_sum.Open;
|
|
|
v_fee_do_seai_sum.open;
|
|
|
v_fee_do_aire_sum.open;
|
|
|
v_fee_do_airi_sum.open;
|
|
|
v_fee_do_airtruck_sum.open;
|
|
|
v_fee_do_railway_sum.open;
|
|
|
|
|
|
bsSkinTabSheet3.TabVisible:=true;
|
|
|
bsSkinTabSheet4.TabVisible:=true;
|
|
|
bsSkinTabSheet5.TabVisible:=true;
|
|
|
bsSkinTabSheet6.TabVisible:=true;
|
|
|
bsSkinTabSheet7.TabVisible:=true;
|
|
|
bsSkinTabSheet8.TabVisible:=true;
|
|
|
bsSkinTabSheet8.TabVisible:=true;
|
|
|
bsSkinTabSheetttl.TabVisible:=false;
|
|
|
end;
|
|
|
|
|
|
{
|
|
|
bsSkinGroupBox1.Parent:=dxDBGrid1;
|
|
|
bsSkinGroupBox1.Left:=bsSkinPanel5.Width-150;
|
|
|
bsSkinGroupBox1.Top:=dxDBGrid1.Height-400;
|
|
|
|
|
|
|
|
|
bsSkinGroupBox1.Caption:=bsSkinGroupBox1.Parent.Name+' '+Floattostr(bsSkinGroupBox1.Left)+' '+Floattostr(bsSkinGroupBox1.Top);
|
|
|
}
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinButton11Click(Sender: TObject);
|
|
|
var aQuery:TAdoQuery;
|
|
|
begin
|
|
|
//<2F><>֧<D7BC><D6A7>
|
|
|
if t_ch_check.IsEmpty then
|
|
|
exit;
|
|
|
if (t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')or
|
|
|
(t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')then
|
|
|
begin
|
|
|
if (t_ch_check.FieldByName('֧<><D6A7><EFBFBD><EFBFBD>ʽ').asstring='<27>ֽ<EFBFBD>') then
|
|
|
begin
|
|
|
if not if_open('177') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
if StrToBool(get_parameters_value(323,'false')) then
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do
|
|
|
begin
|
|
|
close;sql.clear;
|
|
|
sql.Add('select ch_id,<2C><><EFBFBD><EFBFBD>״̬,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee where ch_id in ( select ch_id from t_ch_fee_do where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+''''+') and <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''');
|
|
|
open;
|
|
|
if not IsEmpty then
|
|
|
begin
|
|
|
first;
|
|
|
while not eof do
|
|
|
begin
|
|
|
if fieldbyname('<27><><EFBFBD><EFBFBD>״̬').Asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
edit;
|
|
|
fieldbyname('<27><><EFBFBD><EFBFBD>״̬').Asstring:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring:=employee;
|
|
|
fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').value:=now;
|
|
|
post;
|
|
|
end;
|
|
|
next;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
t_ch_check.Edit;
|
|
|
t_ch_check['<27><><EFBFBD><EFBFBD>״̬']:='<27><>֧<D7BC><D6A7>';
|
|
|
t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
|
|
|
t_ch_check.post;
|
|
|
t_ch_check.Refresh;
|
|
|
// Send_invocie_check_shen('<27><>֧<D7BC><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
|
|
|
// +',<2C>ͻ<EFBFBD>:'+t_ch_check.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,'034','20',t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
Send_invocie_check_check('<27><>֧<D7BC><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
|
|
|
+',<2C>ͻ<EFBFBD>:'+t_ch_check.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'26')
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧<D7BC><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinButton6Click(Sender: TObject);
|
|
|
var
|
|
|
str:string;
|
|
|
begin
|
|
|
if t_ch_check.IsEmpty then
|
|
|
exit;
|
|
|
if (t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><>֧<D7BC><D6A7>')or
|
|
|
(t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')then
|
|
|
begin
|
|
|
str:=trim(InputBox('<27><><EFBFBD><EFBFBD><EFBFBD>벵<EFBFBD><EBB2B5>ԭ<EFBFBD><D4AD>', '<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD>', ''));
|
|
|
if str=''then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
t_ch_check.Edit;
|
|
|
t_ch_check['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
|
|
|
t_ch_check['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=str;
|
|
|
t_ch_check['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
|
|
|
t_ch_check.post;
|
|
|
t_ch_check.Refresh;
|
|
|
Send_invocie_check_check('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
|
|
|
+',<2C>ͻ<EFBFBD>:'+t_ch_check.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'27')
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5>״̬<D7B4><CCAC><EFBFBD>ܲ<EFBFBD><DCB2>أ<EFBFBD><D8A3><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_ch_check.IsEmpty then
|
|
|
exit;
|
|
|
if (t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')or
|
|
|
(t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><>ֹ<EFBFBD><EFBFBD>')then
|
|
|
begin
|
|
|
t_ch_check.Edit;
|
|
|
t_ch_check['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
|
|
|
t_ch_check['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
|
|
|
t_ch_check.post;
|
|
|
t_ch_check.Refresh;
|
|
|
Send_invocie_check_check('<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
|
|
|
,t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'28');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8><C4A3><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinButton8Click(Sender: TObject);
|
|
|
begin
|
|
|
shen_modify_back(t_ch_check);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.DBEdit1Change(Sender: TObject);
|
|
|
begin
|
|
|
//״̬<D7B4><CCAC><EFBFBD><EFBFBD>ɫ
|
|
|
if (DBEdit1.Text='') or (DBEdit1.Text='<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>') or
|
|
|
(DBEdit1.Text='<27><><EFBFBD><EFBFBD>')then
|
|
|
DBEdit1.Color:=clwhite
|
|
|
else if (DBEdit1.Text='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') or (DBEdit1.Text='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
DBEdit1.Color:=clyellow
|
|
|
else if (DBEdit1.Text='<27><>ֹ<EFBFBD><EFBFBD>') or (DBEdit1.Text='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
DBEdit1.Color:=clred
|
|
|
else if (DBEdit1.Text='<27><>֧<D7BC><D6A7>') or (DBEdit1.Text='֧<><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
DBEdit1.Color:=$00DDF21C;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.dxDBGrid1Column2CustomDraw(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
|
|
|
//<2F>б<EFBFBD><D0B1><EFBFBD>ɫ
|
|
|
if (ANode.strings[dxDBGrid1Column2.Index]='<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>')or
|
|
|
(ANode.strings[dxDBGrid1Column2.Index]='<27><><EFBFBD><EFBFBD>') then
|
|
|
AColor :=clwhite
|
|
|
else if (ANode.strings[dxDBGrid1Column2.Index]='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')or
|
|
|
(ANode.strings[dxDBGrid1Column2.Index]='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
AColor :=clyellow
|
|
|
else if (ANode.strings[dxDBGrid1Column2.Index]='<27><>ֹ<EFBFBD><EFBFBD>')or
|
|
|
(ANode.strings[dxDBGrid1Column2.Index]='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')then
|
|
|
AColor :=clred
|
|
|
else if (ANode.strings[dxDBGrid1Column2.Index]='<27><>֧<D7BC><D6A7>')or
|
|
|
(ANode.strings[dxDBGrid1Column2.Index]='֧<><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
AColor :=$00DDF21C;
|
|
|
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_ch_shen_query:=tfrm_ch_shen_query.Create (self);
|
|
|
shen_query_type:=5;
|
|
|
shen_query_limited:='1003';
|
|
|
shen_query_op_limited:='no';
|
|
|
frm_ch_shen_query.ShowModal;
|
|
|
bsSkinNotebook1.PageIndex:=0;
|
|
|
|
|
|
finally
|
|
|
frm_ch_shen_query.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort(Column,t_ch_check,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinPanel2Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(bsSkinPanel2.Width/12);
|
|
|
bsSkinButton7.Width:=i;
|
|
|
bsSkinButton2.Width:=i;
|
|
|
bsSkinButton9.Width:=i;
|
|
|
bsSkinButton10.Width:=i;
|
|
|
bsSkinButton3.Width:=i;
|
|
|
bsSkinButton11.Width:=i;
|
|
|
bsSkinButton6.Width:=i;
|
|
|
bsSkinButton1.Width:=i;
|
|
|
bsSkinButton8.Width:=i;
|
|
|
bsSkinButton4.Width:=i;
|
|
|
bsSkinButton38.Width:=i;
|
|
|
bsSkinButton12.Left:=bsSkinPanel2.Width-bsSkinButton12.Width-20;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinButton12Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton12.ClientToScreen(Point(0,bsSkinButton12.Height));
|
|
|
PopupMenu3.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.N17Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_check.Close;
|
|
|
t_ch_check.SQL.clear;
|
|
|
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>'+''''
|
|
|
+') '
|
|
|
+' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_check.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.N34Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_check.Close;
|
|
|
t_ch_check.SQL.clear;
|
|
|
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''
|
|
|
+','+''''+'<27><>ֹ<EFBFBD><EFBFBD>'+''''+') '
|
|
|
+' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_check.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.N36Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_check.Close;
|
|
|
t_ch_check.SQL.clear;
|
|
|
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''
|
|
|
+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+') '
|
|
|
+' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_check.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.N6Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_check.Close;
|
|
|
t_ch_check.SQL.clear;
|
|
|
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><>֧<D7BC><D6A7>'+''''
|
|
|
+','+''''+'<27><>ֹ<EFBFBD><EFBFBD>'+''''+') '
|
|
|
+' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_check.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.N4Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_check.Close;
|
|
|
t_ch_check.SQL.clear;
|
|
|
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'֧<><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+') '
|
|
|
+' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_check.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.dxDBGrid6DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.dxDBGrid3DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.dxDBGrid4DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.dxDBGrid5DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.t_ch_checkCalcFields(DataSet: TDataSet);
|
|
|
begin
|
|
|
if dataset.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then begin
|
|
|
dataset.FieldByName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=0;
|
|
|
end else begin
|
|
|
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
|
|
|
dataset.FieldByName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=0;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinButton38Click(Sender: TObject);
|
|
|
var
|
|
|
book1:Tbookmark;
|
|
|
begin
|
|
|
if t_ch_check.IsEmpty then
|
|
|
exit;
|
|
|
if bsSkinNotebook1.PageIndex=0 then
|
|
|
begin
|
|
|
book1:=t_ch_check.GetBookmark;
|
|
|
t_ch_check.Requery;
|
|
|
t_ch_check.GotoBookmark(book1);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
book1:=t_ch_check.GetBookmark;
|
|
|
t_ch_check.Refresh;
|
|
|
t_ch_check.GotoBookmark(book1);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinNotebook1PageChanged(Sender: TObject);
|
|
|
begin
|
|
|
if not ch_check_check then exit;
|
|
|
if bsSkinNotebook1.PageIndex<>1 then exit;
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.bsSkinButton4Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
t_ch_check.Edit;
|
|
|
t_ch_check['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
|
|
|
t_ch_check.FieldByName('<27><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>').AsInteger:=0;
|
|
|
t_ch_check.post;
|
|
|
finally
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_check_check.dxDBGrid7DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(v_fee_do_airtruck.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|