hanxuntao
/
DONGSHENG6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '9abf05a513'
${ noResults }
DONGSHENG6/铁路运输业务/u_op_railway.pas

4237 lines
139 KiB
Plaintext
Raw Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

unit u_op_railway;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, ExtCtrls, XPMenu, Menus, DB, ADODB, dxExEdtr,
dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxCntner, RxLookup,
StdCtrls, Mask, DBCtrls, ComCtrls, bsSkinTabs, u_op_sate, u_fee,
wwdbdatetimepicker, wwdbedit, Wwdotdot, Wwdbcomb, u_op_letter_free,
wwdblook, bsdbctrls, Grids, DBGridEh, Wwdbigrd, Wwdbgrid, u_op_card,
bsSkinBoxCtrls,DateUtils, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, cxDBData, cxMaskEdit, cxCalendar,
cxTextEdit, cxGridDBTableView, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, DBGrids, DBCtrlsEh,IniFiles,ComObj;
type
Tfrm_op_railway = class(TForm)
Panel2: TPanel;
bsSkinButton7: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
Notebook1: TNotebook;
t_op_railway: TADOQuery;
t_op_railway1: TDataSource;
PopupMenu1: TPopupMenu;
t_ch_fee: TADOQuery;
XPMenu1: TXPMenu;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridDateColumn;
dxDBGrid1Column5: TdxDBGridDateColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column18: TdxDBGridMaskColumn;
dxDBGrid1Column22: TdxDBGridMaskColumn;
dxDBGrid1Column23: TdxDBGridMaskColumn;
dxDBGrid1Column24: TdxDBGridMaskColumn;
dxDBGrid1Column25: TdxDBGridDateColumn;
dxDBGrid1Column26: TdxDBGridMaskColumn;
dxDBGrid1Column19: TdxDBGridColumn;
bsSkinPanel1: TbsSkinPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label37: TLabel;
Label5: TLabel;
Label4: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit8: TDBEdit;
DBEdit4: TDBEdit;
RxDBLookupCombo1: TRxDBLookupCombo;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinTabSheet3: TbsSkinTabSheet;
fra_fee1: Tfra_fee;
fra_op_state1: Tfra_op_state;
dxDBGrid1Column27: TdxDBGridColumn;
Label65: TLabel;
DBEdit18: TDBEdit;
dxDBGrid1Column28: TdxDBGridColumn;
bsSkinButton13: TbsSkinButton;
Label41: TLabel;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
PopupMenu3: TPopupMenu;
N37: TMenuItem;
N38: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
RxDBLookupCombo31: TRxDBLookupCombo;
bsSkinTabSheet4: TbsSkinTabSheet;
fra_op_letter_free1: Tfra_op_letter_free;
N8: TMenuItem;
N9: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
dxDBGrid1Column29: TdxDBGridColumn;
bsSkinPanel2: TbsSkinPanel;
bsSkinDBText1: TbsSkinDBText;
N26: TMenuItem;
bsSkinSpeedButton1: TbsSkinSpeedButton;
bsSkinTabSheet7: TbsSkinTabSheet;
fra_op_card1: Tfra_op_card;
Label7: TLabel;
Label53: TLabel;
wwDBComboBox7: TwwDBComboBox;
Label8: TLabel;
DBEdit5: TDBEdit;
t_op_railway_fen1: TDataSource;
t_op_railway_fen: TADOQuery;
bsSkinScrollBox1: TbsSkinScrollBox;
bsSkinScrollBar1: TbsSkinScrollBar;
dxDBGrid1Column20: TdxDBGridColumn;
cxGrid1: TcxGrid;
cxGrid1DBBandedTableView1: TcxGridDBBandedTableView;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
cxStyle3: TcxStyle;
cxStyle4: TcxStyle;
cxStyle5: TcxStyle;
cxGrid1Level1: TcxGridLevel;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1DBTableView1DBColumn: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn2: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn3: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn4: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn5: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn6: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn7: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn8: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn9: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn10: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn11: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn12: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn13: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn14: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn15: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn16: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn17: TcxGridDBColumn;
cxGrid1Level2: TcxGridLevel;
v_op_railway_detail: TADOQuery;
v_op_railway_detail1: TDataSource;
bsSkinTabSheet6: TbsSkinTabSheet;
bsSkinPanel8: TbsSkinPanel;
bsSkinScrollBar2: TbsSkinScrollBar;
bsSkinScrollBox2: TbsSkinScrollBox;
Label34: TLabel;
Label164: TLabel;
Label110: TLabel;
Label35: TLabel;
Label98: TLabel;
Label99: TLabel;
Label100: TLabel;
Label101: TLabel;
Label102: TLabel;
Label103: TLabel;
Label105: TLabel;
Label106: TLabel;
Label107: TLabel;
Label108: TLabel;
Label57: TLabel;
Label58: TLabel;
Label59: TLabel;
RxDBLookupCombo16: TRxDBLookupCombo;
DBMemo3: TDBMemo;
RxDBLookupCombo11: TRxDBLookupCombo;
DBMemo18: TDBMemo;
RxDBLookupCombo17: TRxDBLookupCombo;
DBMemo4: TDBMemo;
DBEdit43: TDBEdit;
DBRichEdit2: TDBRichEdit;
DBEdit45: TDBEdit;
DBMemo6: TDBMemo;
DBMemo7: TDBMemo;
DBMemo8: TDBMemo;
DBRichEdit4: TDBRichEdit;
DBMemo9: TDBMemo;
DBEdit46: TDBEdit;
DBEdit47: TDBEdit;
DBMemo2: TDBMemo;
DBRichEdit1: TDBRichEdit;
DBMemo5: TDBMemo;
bsSkinPageControl2: TbsSkinPageControl;
tab1: TbsSkinTabSheet;
bsSkinPanel3: TbsSkinPanel;
bsSkinGroupBox10: TbsSkinGroupBox;
Label51: TLabel;
Label52: TLabel;
Label10: TLabel;
Label23: TLabel;
Label13: TLabel;
Label27: TLabel;
Label42: TLabel;
Label17: TLabel;
Label16: TLabel;
wwDBDateTimePicker12: TwwDBDateTimePicker;
wwDBComboBox2: TwwDBComboBox;
RxDBLookupCombo7: TRxDBLookupCombo;
wwDBComboBox3: TwwDBComboBox;
RxDBLookupCombo29: TRxDBLookupCombo;
RxDBLookupCombo30: TRxDBLookupCombo;
wwDBComboBox4: TwwDBComboBox;
bsSkinPanel4: TbsSkinPanel;
tab2: TbsSkinTabSheet;
t_op_railway2: TDataSource;
bsSkinPanel7: TbsSkinPanel;
dxDBGrid2: TdxDBGrid;
dxDBGrid2Column1: TdxDBGridColumn;
dxDBGrid2Column2: TdxDBGridColumn;
dxDBGrid2Column3: TdxDBGridColumn;
dxDBGrid2Column4: TdxDBGridColumn;
dxDBGrid2Column5: TdxDBGridColumn;
bsSkinButton36: TbsSkinButton;
bsSkinButton34: TbsSkinButton;
bsSkinButton33: TbsSkinButton;
bsSkinButton32: TbsSkinButton;
bsSkinButton31: TbsSkinButton;
dxDBGrid2Column6: TdxDBGridColumn;
dxDBGrid2Column7: TdxDBGridColumn;
dxDBGrid2Column8: TdxDBGridColumn;
dxDBGrid2Column9: TdxDBGridColumn;
dxDBGrid2Column10: TdxDBGridColumn;
dxDBGrid2Column11: TdxDBGridColumn;
bsSkinGroupBox2: TbsSkinGroupBox;
Label85: TLabel;
Label9: TLabel;
Label11: TLabel;
Label12: TLabel;
Label6: TLabel;
Label36: TLabel;
Label38: TLabel;
Label40: TLabel;
Label39: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
wwDBLookupCombo52: TwwDBLookupCombo;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
wwDBLookupCombo2: TwwDBLookupCombo;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
RxDBLookupCombo3: TRxDBLookupCombo;
RxDBLookupCombo4: TRxDBLookupCombo;
wwDBComboBox1: TwwDBComboBox;
DBEdit21: TDBEdit;
DBEdit81: TDBEdit;
wwDBLookupCombo61: TwwDBLookupCombo;
DBEdit82: TDBEdit;
DBEdit83: TDBEdit;
RxDBLookupCombo5: TRxDBLookupCombo;
DBEdit22: TDBEdit;
bsSkinGroupBox3: TbsSkinGroupBox;
Label22: TLabel;
Label15: TLabel;
Label18: TLabel;
Label26: TLabel;
Label60: TLabel;
Label61: TLabel;
wwDBDateTimePicker4: TwwDBDateTimePicker;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
wwDBDateTimePicker6: TwwDBDateTimePicker;
wwDBDateTimePicker5: TwwDBDateTimePicker;
wwDBDateTimePicker14: TwwDBDateTimePicker;
bsSkinGroupBox4: TbsSkinGroupBox;
Label14: TLabel;
Label19: TLabel;
Label25: TLabel;
Label20: TLabel;
Label21: TLabel;
Label50: TLabel;
Label24: TLabel;
Label95: TLabel;
DBEdit11: TDBEdit;
DBEdit15: TDBEdit;
wwDBDateTimePicker2: TwwDBDateTimePicker;
wwDBDateTimePicker3: TwwDBDateTimePicker;
DBEdit16: TDBEdit;
wwDBDateTimePicker11: TwwDBDateTimePicker;
wwDBLookupCombo5: TwwDBLookupCombo;
wwDBLookupCombo6: TwwDBLookupCombo;
DBEdit44: TDBEdit;
bsSkinGroupBox5: TbsSkinGroupBox;
Label104: TLabel;
Label56: TLabel;
DBRichEdit3: TDBRichEdit;
DBMemo1: TDBMemo;
dxDBGrid1Column21: TdxDBGridColumn;
cxGrid1DBTableView1DBColumn18: TcxGridDBColumn;
dxDBGrid2Column12: TdxDBGridColumn;
dxDBGrid2Column13: TdxDBGridColumn;
dxDBGrid2Column14: TdxDBGridColumn;
dxDBGrid2Column15: TdxDBGridColumn;
dxDBGrid2Column16: TdxDBGridColumn;
dxDBGrid2Column17: TdxDBGridColumn;
dxDBGrid2Column18: TdxDBGridColumn;
dxDBGrid2Column19: TdxDBGridColumn;
dxDBGrid2Column20: TdxDBGridColumn;
dxDBGrid2Column21: TdxDBGridColumn;
dxDBGrid2Column22: TdxDBGridColumn;
dxDBGrid2Column23: TdxDBGridColumn;
dxDBGrid2Column24: TdxDBGridColumn;
dxDBGrid2Column25: TdxDBGridColumn;
dxDBGrid2Column26: TdxDBGridColumn;
dxDBGrid2Column27: TdxDBGridColumn;
dxDBGrid2Column28: TdxDBGridColumn;
dxDBGrid2Column29: TdxDBGridColumn;
dxDBGrid2Column30: TdxDBGridColumn;
dxDBGrid2Column31: TdxDBGridColumn;
dxDBGrid2Column32: TdxDBGridColumn;
dxDBGrid2Column33: TdxDBGridColumn;
cxGrid1DBTableView3: TcxGridDBTableView;
cxGrid1DBTableView3DBColumn: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn1: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn2: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn3: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn4: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn5: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn6: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn7: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn8: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn9: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn10: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn11: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn12: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn13: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn14: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn15: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn16: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn17: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn18: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn19: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn20: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn21: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn22: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn23: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn24: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn25: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn26: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn27: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn28: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn29: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn30: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn31: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn32: TcxGridDBColumn;
cxStyleRepository2: TcxStyleRepository;
cxStyle6: TcxStyle;
cxStyle7: TcxStyle;
cxStyle8: TcxStyle;
cxStyle9: TcxStyle;
cxGrid1DBTableView1DBColumn19: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn20: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn21: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn22: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn23: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn24: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn25: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn26: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn27: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn28: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn29: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn30: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn31: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn32: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn33: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn34: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn35: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn36: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn37: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn38: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn39: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn40: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn41: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn42: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn43: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn44: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn45: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn46: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn47: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn48: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn33: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn34: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn35: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn40: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn41: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn42: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn43: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn36: TcxGridDBColumn;
cxGrid1DBTableView3DBColumn37: TcxGridDBColumn;
PopupMenu4: TPopupMenu;
N29: TMenuItem;
N28: TMenuItem;
N27: TMenuItem;
N61: TMenuItem;
N76: TMenuItem;
N77: TMenuItem;
N78: TMenuItem;
N79: TMenuItem;
N80: TMenuItem;
N30: TMenuItem;
N32: TMenuItem;
N33: TMenuItem;
N39: TMenuItem;
N40: TMenuItem;
N41: TMenuItem;
N42: TMenuItem;
Label55: TLabel;
wwDBDateTimePicker15: TwwDBDateTimePicker;
bsSkinButton38: TbsSkinButton;
cxGrid1DBTableView1DBColumn49: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn50: TcxGridDBColumn;
Label78: TLabel;
RxDBLookupCombo10: TRxDBLookupCombo;
cxGrid1DBTableView1DBColumn52: TcxGridDBColumn;
bsSkinButton14: TbsSkinButton;
dxDBGrid2Column34: TdxDBGridColumn;
dxDBGrid2Column35: TdxDBGridColumn;
dxDBGrid2Column36: TdxDBGridColumn;
dxDBGrid2Column37: TdxDBGridColumn;
dxDBGrid2Column38: TdxDBGridColumn;
bsSkinTabSheet8: TbsSkinTabSheet;
bsSkinButton12: TbsSkinButton;
bsSkinPanel5: TbsSkinPanel;
bsSkinComboBox1: TbsSkinComboBox;
bsSkinStdLabel1: TbsSkinStdLabel;
bsSkinButton16: TbsSkinButton;
bsSkinDateEdit1: TbsSkinDateEdit;
bsSkinStdLabel2: TbsSkinStdLabel;
bsSkinButton17: TbsSkinButton;
bsSkinButton15: TbsSkinButton;
dxDBGrid2Column39: TdxDBGridColumn;
DBComboBoxEh1: TDBComboBoxEh;
wwDBLookupCombo49: TwwDBLookupCombo;
Label125: TLabel;
Label113: TLabel;
wwDBDateTimePicker21: TwwDBDateTimePicker;
Label114: TLabel;
wwDBDateTimePicker22: TwwDBDateTimePicker;
Label115: TLabel;
DBEdit48: TDBEdit;
DBEdit49: TDBEdit;
Label116: TLabel;
bsSkinButton21: TbsSkinButton;
N25: TMenuItem;
N31: TMenuItem;
Label117: TLabel;
DBMemo11: TDBMemo;
DBEdit51: TDBEdit;
bsSkinButton18: TbsSkinButton;
bsSkinGroupBox6: TbsSkinGroupBox;
bsSkinButton19: TbsSkinButton;
bsSkinButton20: TbsSkinButton;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
bsSkinGroupBox1: TbsSkinGroupBox;
Label62: TLabel;
Label54: TLabel;
Label63: TLabel;
Label64: TLabel;
Label66: TLabel;
Label67: TLabel;
Label68: TLabel;
Label69: TLabel;
Label70: TLabel;
Label71: TLabel;
Label72: TLabel;
Label73: TLabel;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
Label80: TLabel;
Label81: TLabel;
Label83: TLabel;
Label84: TLabel;
Label86: TLabel;
Label87: TLabel;
Label88: TLabel;
Label89: TLabel;
Label90: TLabel;
Label91: TLabel;
Label92: TLabel;
Label93: TLabel;
Label94: TLabel;
Label96: TLabel;
Label97: TLabel;
Label109: TLabel;
Label111: TLabel;
Label112: TLabel;
DBMemo10: TDBMemo;
RxDBLookupCombo6: TRxDBLookupCombo;
wwDBLookupCombo1: TwwDBLookupCombo;
DBEdit14: TDBEdit;
wwDBDateTimePicker13: TwwDBDateTimePicker;
wwDBDateTimePicker16: TwwDBDateTimePicker;
wwDBDateTimePicker17: TwwDBDateTimePicker;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
RxDBLookupCombo9: TRxDBLookupCombo;
DBEdit26: TDBEdit;
DBEdit27: TDBEdit;
DBEdit28: TDBEdit;
DBEdit29: TDBEdit;
DBEdit30: TDBEdit;
DBEdit31: TDBEdit;
wwDBLookupCombo3: TwwDBLookupCombo;
DBEdit32: TDBEdit;
RxDBLookupCombo12: TRxDBLookupCombo;
DBEdit33: TDBEdit;
DBEdit34: TDBEdit;
DBEdit35: TDBEdit;
DBEdit36: TDBEdit;
wwDBDateTimePicker20: TwwDBDateTimePicker;
DBEdit37: TDBEdit;
DBEdit38: TDBEdit;
DBEdit39: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
RxDBLookupCombo14: TRxDBLookupCombo;
RxDBLookupCombo15: TRxDBLookupCombo;
DBEdit40: TDBEdit;
DBEdit41: TDBEdit;
RxDBLookupCombo18: TRxDBLookupCombo;
DBEdit42: TDBEdit;
bsSkinGroupBox7: TbsSkinGroupBox;
Label118: TLabel;
wwDBDateTimePicker23: TwwDBDateTimePicker;
Label119: TLabel;
wwDBDateTimePicker24: TwwDBDateTimePicker;
Label120: TLabel;
wwDBDateTimePicker25: TwwDBDateTimePicker;
Label121: TLabel;
wwDBDateTimePicker26: TwwDBDateTimePicker;
Label122: TLabel;
DBEdit50: TDBEdit;
Label123: TLabel;
wwDBDateTimePicker27: TwwDBDateTimePicker;
Label124: TLabel;
wwDBDateTimePicker28: TwwDBDateTimePicker;
RxDBLookupCombo19: TRxDBLookupCombo;
Label126: TLabel;
Label127: TLabel;
RxDBLookupCombo2: TRxDBLookupCombo;
Label128: TLabel;
wwDBDateTimePicker29: TwwDBDateTimePicker;
Label129: TLabel;
wwDBDateTimePicker30: TwwDBDateTimePicker;
Label130: TLabel;
DBEdit52: TDBEdit;
Label131: TLabel;
wwDBDateTimePicker31: TwwDBDateTimePicker;
Label132: TLabel;
wwDBDateTimePicker32: TwwDBDateTimePicker;
Label133: TLabel;
DBEdit53: TDBEdit;
Label134: TLabel;
wwDBDateTimePicker33: TwwDBDateTimePicker;
Label135: TLabel;
wwDBComboBox5: TwwDBComboBox;
Label136: TLabel;
wwDBDateTimePicker34: TwwDBDateTimePicker;
Label137: TLabel;
RxDBLookupCombo20: TRxDBLookupCombo;
Label138: TLabel;
wwDBDateTimePicker35: TwwDBDateTimePicker;
Label139: TLabel;
wwDBDateTimePicker36: TwwDBDateTimePicker;
Label140: TLabel;
wwDBDateTimePicker37: TwwDBDateTimePicker;
Label141: TLabel;
Label142: TLabel;
RxDBLookupCombo22: TRxDBLookupCombo;
DBEdit54: TDBEdit;
bsSkinExPanel1: TbsSkinExPanel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label48: TLabel;
Label49: TLabel;
Label79: TLabel;
Label82: TLabel;
Label143: TLabel;
DBEdit17: TDBEdit;
DBEdit19: TDBEdit;
wwDBDateTimePicker7: TwwDBDateTimePicker;
wwDBDateTimePicker8: TwwDBDateTimePicker;
DBEdit20: TDBEdit;
wwDBDateTimePicker9: TwwDBDateTimePicker;
wwDBDateTimePicker1: TwwDBDateTimePicker;
wwDBDateTimePicker10: TwwDBDateTimePicker;
wwDBDateTimePicker18: TwwDBDateTimePicker;
wwDBDateTimePicker19: TwwDBDateTimePicker;
DBEdit55: TDBEdit;
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
Label144: TLabel;
DBEdit56: TDBEdit;
Label145: TLabel;
DBEdit57: TDBEdit;
Label146: TLabel;
DBEdit58: TDBEdit;
dxDBGrid2Column40: TdxDBGridColumn;
cxGrid1DBTableView3DBColumn38: TcxGridDBColumn;
N43: TMenuItem;
N44: TMenuItem;
N45: TMenuItem;
N46: TMenuItem;
cxGrid1DBTableView1DBColumn51: TcxGridDBColumn;
Label147: TLabel;
DBEdit59: TDBEdit;
Label148: TLabel;
DBEdit60: TDBEdit;
Label149: TLabel;
DBEdit61: TDBEdit;
Label150: TLabel;
DBEdit62: TDBEdit;
cxGrid1DBTableView1DBColumn53: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn54: TcxGridDBColumn;
Label151: TLabel;
DBEdit63: TDBEdit;
bsSkinExPanel2: TbsSkinExPanel;
bsSkinGroupBox8: TbsSkinGroupBox;
bsSkinGroupBox9: TbsSkinGroupBox;
bsSkinGroupBox11: TbsSkinGroupBox;
Label152: TLabel;
wwDBLookupCombo4: TwwDBLookupCombo;
Label153: TLabel;
DBEdit64: TDBEdit;
Label154: TLabel;
DBEdit65: TDBEdit;
Label155: TLabel;
RxDBLookupCombo23: TRxDBLookupCombo;
Label156: TLabel;
wwDBDateTimePicker38: TwwDBDateTimePicker;
Label157: TLabel;
wwDBDateTimePicker39: TwwDBDateTimePicker;
wwDBLookupCombo7: TwwDBLookupCombo;
wwDBLookupCombo8: TwwDBLookupCombo;
Label158: TLabel;
Label159: TLabel;
Label163: TLabel;
RxDBLookupCombo26: TRxDBLookupCombo;
Label165: TLabel;
RxDBLookupCombo27: TRxDBLookupCombo;
DBMemo12: TDBMemo;
Label166: TLabel;
bsSkinButton22: TbsSkinButton;
Label167: TLabel;
wwDBDateTimePicker40: TwwDBDateTimePicker;
Label168: TLabel;
wwDBDateTimePicker41: TwwDBDateTimePicker;
Label169: TLabel;
wwDBLookupCombo9: TwwDBLookupCombo;
Label170: TLabel;
DBEdit67: TDBEdit;
Label160: TLabel;
Label161: TLabel;
Label162: TLabel;
wwDBDateTimePicker42: TwwDBDateTimePicker;
Label171: TLabel;
wwDBDateTimePicker43: TwwDBDateTimePicker;
Label172: TLabel;
DBEdit66: TDBEdit;
bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
Label173: TLabel;
wwDBDateTimePicker44: TwwDBDateTimePicker;
Label174: TLabel;
Label175: TLabel;
DBEdit68: TDBEdit;
RxDBLookupCombo25: TRxDBLookupCombo;
RxDBLookupCombo28: TRxDBLookupCombo;
RxDBLookupCombo32: TRxDBLookupCombo;
RxDBLookupCombo21: TRxDBLookupCombo;
cxGrid1DBTableView1DBColumn55: TcxGridDBColumn;
bsSkinButton23: TbsSkinButton;
DBComboBoxEh2: TDBComboBoxEh;
DBComboBoxEh3: TDBComboBoxEh;
bsSkinButton24: TbsSkinButton;
cxGrid1DBTableView1DBColumn56: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn57: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn58: TcxGridDBColumn;
N47: TMenuItem;
N48: TMenuItem;
wwDBLookupCombo10: TwwDBLookupCombo;
Label176: TLabel;
wwDBDateTimePicker45: TwwDBDateTimePicker;
Label177: TLabel;
bsSkinButton25: TbsSkinButton;
bsSkinPanel6: TbsSkinPanel;
bsSkinButton26: TbsSkinButton;
Label178: TLabel;
wwDBLookupCombo11: TwwDBLookupCombo;
Label179: TLabel;
wwDBLookupCombo12: TwwDBLookupCombo;
Label180: TLabel;
wwDBDateTimePicker46: TwwDBDateTimePicker;
Label181: TLabel;
wwDBLookupCombo13: TwwDBLookupCombo;
Label182: TLabel;
Label183: TLabel;
RxDBLookupCombo8: TRxDBLookupCombo;
Label184: TLabel;
bsSkinComboBox2: TbsSkinComboBox;
bsSkinStdLabel3: TbsSkinStdLabel;
bsSkinStdLabel4: TbsSkinStdLabel;
bsSkinDateEdit2: TbsSkinDateEdit;
bsSkinButton27: TbsSkinButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
p_op_gain: TADOQuery;
bsSkinButton28: TbsSkinButton;
OpenDialog1: TOpenDialog;
v_op_ctnmg_detail: TADOQuery;
t_op_ctnmg_status: TADOQuery;
t_ch_fee_audit: TADOQuery;
t_ch_fee_audit1: TDataSource;
DBEdit69: TDBEdit;
dxDBGrid2Column41: TdxDBGridColumn;
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure Panel2Resize(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure t_op_railwayBeforeEdit(DataSet: TDataSet);
procedure t_op_railwayBeforePost(DataSet: TDataSet);
procedure bsSkinButton10Click(Sender: TObject);
procedure dxDBGrid1Column3CustomDraw(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 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 DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo13KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2Change(Sender: TObject);
procedure DBEdit3Change(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 bsSkinButton13Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
procedure N9Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure t_op_railwayBeforeCancel(DataSet: TDataSet);
procedure N21Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure dxDBGrid1Column29CustomDraw(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 N26Click(Sender: TObject);
procedure RxDBLookupCombo16Change(Sender: TObject);
procedure RxDBLookupCombo17Change(Sender: TObject);
procedure RxDBLookupCombo16KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo17KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo16Enter(Sender: TObject);
procedure RxDBLookupCombo16Exit(Sender: TObject);
procedure bsSkinSpeedButton1Click(Sender: TObject);
procedure bsSkinPageControl1Change(Sender: TObject);
procedure RxDBLookupCombo11Change(Sender: TObject);
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure wwDBLookupCombo52Change(Sender: TObject);
procedure wwDBLookupCombo2Change(Sender: TObject);
procedure wwDBLookupCombo5Change(Sender: TObject);
procedure wwDBLookupCombo6Change(Sender: TObject);
procedure RxDBLookupCombo3Change(Sender: TObject);
procedure t_op_railway_fenAfterPost(DataSet: TDataSet);
procedure t_op_railway_fenAfterOpen(DataSet: TDataSet);
procedure cxGrid1DBTableView1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure wwDBComboBox4Change(Sender: TObject);
procedure dxDBGrid2DblClick(Sender: TObject);
procedure bsSkinButton32Click(Sender: TObject);
procedure t_op_railwayAfterOpen(DataSet: TDataSet);
procedure bsSkinButton33Click(Sender: TObject);
procedure bsSkinButton34Click(Sender: TObject);
procedure bsSkinButton31Click(Sender: TObject);
procedure t_op_railway_fenBeforeCancel(DataSet: TDataSet);
procedure t_op_railway_fenBeforePost(DataSet: TDataSet);
procedure N27Click(Sender: TObject);
procedure N76Click(Sender: TObject);
procedure N78Click(Sender: TObject);
procedure N80Click(Sender: TObject);
procedure N32Click(Sender: TObject);
procedure N41Click(Sender: TObject);
procedure N39Click(Sender: TObject);
procedure bsSkinButton38Click(Sender: TObject);
procedure wwDBComboBox2Change(Sender: TObject);
procedure wwDBLookupCombo1Change(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure fra_op_letter_free1bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton17Click(Sender: TObject);
procedure bsSkinButton16Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure bsSkinButton36Click(Sender: TObject);
procedure t_op_railwayBeforeDelete(DataSet: TDataSet);
procedure fra_fee1bsSkinButton8Click(Sender: TObject);
procedure RxDBLookupCombo1Change(Sender: TObject);
procedure Notebook1PageChanged(Sender: TObject);
procedure DBComboBoxEh1Change(Sender: TObject);
procedure DBComboBoxEh1DropDown(Sender: TObject);
procedure DBEdit49Change(Sender: TObject);
procedure bsSkinButton21Click(Sender: TObject);
procedure DBEdit50Change(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure DBEdit51Change(Sender: TObject);
procedure bsSkinButton19Click(Sender: TObject);
procedure bsSkinButton20Click(Sender: TObject);
procedure bsSkinButton18Click(Sender: TObject);
procedure RxDBLookupCombo4Change(Sender: TObject);
procedure t_op_railway_fenBeforeDelete(DataSet: TDataSet);
procedure N44Click(Sender: TObject);
procedure N46Click(Sender: TObject);
procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo2Enter(Sender: TObject);
procedure RxDBLookupCombo23Enter(Sender: TObject);
procedure RxDBLookupCombo23Exit(Sender: TObject);
procedure bsSkinButton22Click(Sender: TObject);
procedure DBEdit1Change(Sender: TObject);
procedure RxDBLookupCombo25Enter(Sender: TObject);
procedure RxDBLookupCombo25Exit(Sender: TObject);
procedure RxDBLookupCombo28Enter(Sender: TObject);
procedure RxDBLookupCombo28Exit(Sender: TObject);
procedure RxDBLookupCombo24Enter(Sender: TObject);
procedure RxDBLookupCombo24Exit(Sender: TObject);
procedure RxDBLookupCombo21Enter(Sender: TObject);
procedure RxDBLookupCombo21Exit(Sender: TObject);
procedure bsSkinButton23Click(Sender: TObject);
procedure DBComboBoxEh2DropDown(Sender: TObject);
procedure DBComboBoxEh3Change(Sender: TObject);
procedure bsSkinButton24Click(Sender: TObject);
procedure N48Click(Sender: TObject);
procedure bsSkinButton25Click(Sender: TObject);
procedure bsSkinButton27Click(Sender: TObject);
procedure bsSkinButton26Click(Sender: TObject);
procedure wwDBLookupCombo11Change(Sender: TObject);
procedure wwDBLookupCombo13Change(Sender: TObject);
procedure bsSkinButton28Click(Sender: TObject);
private
// procedure update_railctn(table:Tadoquery);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Letter_flag:integer;
procedure t_raildatecharge(Sender:TField);
procedure t_railfcdatechange(Sender:TField);
procedure t_railkgscharge(Sender:TField);
{ Private declarations }
public
{ Public declarations }
function getband(bandid:integer):boolean ;
procedure setconcolor;
end;
var
frm_op_railway: Tfrm_op_railway;
railwayopen:boolean;
implementation
uses u_main, my_sys_function, u_data_share, u_sys_progress,
u_op_date_change, u_op_railway_add,u_op_railwayctn_history,
u_ch_fee_zhupiao, u_op_letter, u_op_givectn_add, u_sys_grid_cx,
u_op_railway_batchfee;
{$R *.dfm}
{
procedure Tfrm_op_railway.update_railctn(table:Tadoquery);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
var
ctn_string:widestring;
bok:Tbookmark;
pkgs:integer;
kgs,cbm:double;
begin
pkgs:=0;
kgs:=0;
cbm:=0;
if table.IsEmpty then
begin
try
table.DataSource.DataSet.Edit;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>1']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>2']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>3']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>4']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>5']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>6']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>7']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>8']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>9']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>10']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
table.DataSource.DataSet['<27><>TEU']:=0;
table.DataSource.DataSet['<27><>װ<EFBFBD><D7B0>']:='';
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
table.DataSource.DataSet.post;
except
showmessage('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
abort;
end;
end
else
begin
frm_main.t_sum_ctn.close;
frm_main.t_sum_ctn.open;
bok:=table.GetBookmark;
try
table.DataSource.DataSet.Edit;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>1']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>2']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>3']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>4']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>5']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>6']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>7']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>8']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>9']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>10']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
table.DataSource.DataSet['<27><>TEU']:=0;
table.DataSource.DataSet['<27><>װ<EFBFBD><D7B0>']:='';
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
table.first;
while not table.eof do
begin
if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring<>'' then begin
if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>1').asstring then
begin
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>1']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>1']+1;
// table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
end
else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>2').asstring then
begin
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>2']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>2']+1;
// table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
end
else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>3').asstring then
begin
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>3']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>3']+1;
// table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
end
else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>4').asstring then
begin
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>4']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>4']+1;
// table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
end
else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>5').asstring then
begin
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>5']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>5']+1;
// table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
end
else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>6').asstring then
begin
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>6']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>6']+1;
// table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
end
else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>7').asstring then
begin
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>7']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>7']+1;
// table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
end
else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>8').asstring then
begin
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>8']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>8']+1;
// table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
end
else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>9').asstring then
begin
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>9']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>9']+1;
// table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
end
else if table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring=frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>10').asstring then
begin
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>10']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>10']+1;
// table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
end
else
begin
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=table.DataSource.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+1;
// table.DataSource.DataSet['<27><>TEU']:=table.DataSource.DataSet['<27><>TEU']+table.fieldbyname('TEU').asinteger;
end;
if not frm_main.t_sum_ctn.locate('<27><><EFBFBD><EFBFBD>',table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring,[]) then
begin
frm_main.t_sum_ctn.insert;
frm_main.t_sum_ctn['<27><><EFBFBD><EFBFBD>']:=table.fieldbyname('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>').asstring;
frm_main.t_sum_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=table.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
frm_main.t_sum_ctn['<27><><EFBFBD><EFBFBD>']:=1;
frm_main.t_sum_ctn.post;
end
else
begin
frm_main.t_sum_ctn.edit;
frm_main.t_sum_ctn['<27><><EFBFBD><EFBFBD>']:=frm_main.t_sum_ctn['<27><><EFBFBD><EFBFBD>']+1;
frm_main.t_sum_ctn.post;
end;
end;
pkgs:=pkgs+table.fieldbyname('<27><><EFBFBD><EFBFBD>').AsInteger;
kgs:=kgs+table.fieldbyname('<27><><EFBFBD><EFBFBD>').Asfloat;
cbm:=cbm+table.fieldbyname('<27><><EFBFBD><EFBFBD>').Asfloat;
table.next;
end;
ctn_string:='';
if not frm_main.t_sum_ctn.IsEmpty then begin
frm_main.t_sum_ctn.first;
while not frm_main.t_sum_ctn.eof do
begin
if ctn_string='' then
begin
ctn_string:=frm_main.t_sum_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'*'+frm_main.t_sum_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end
else
begin
ctn_string:=ctn_string+' '+frm_main.t_sum_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'*'+frm_main.t_sum_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
frm_main.t_sum_ctn.next;
end;
end;
table.DataSource.DataSet['<27><>װ<EFBFBD><D7B0>']:=ctn_string;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=pkgs;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=kgs;
table.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=cbm;
table.DataSource.DataSet.post;
except
showmessage('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
table.GotoBookmark(bok);
abort;
end;
table.GotoBookmark(bok);
end;
end;
}
procedure Tfrm_op_railway.bsSkinButton7Click(Sender: TObject);
begin
table_Prior(TAdoQuery(t_op_railway1.DataSet));
end;
procedure Tfrm_op_railway.bsSkinButton6Click(Sender: TObject);
begin
table_next(TAdoQuery(t_op_railway1.DataSet));
end;
procedure Tfrm_op_railway.bsSkinButton2Click(Sender: TObject);
begin
table_post(TAdoQuery(t_op_railway1.DataSet));
table_post(TAdoQuery(t_op_railway_fen1.DataSet));
end;
procedure Tfrm_op_railway.bsSkinButton4Click(Sender: TObject);
begin
if t_op_railway.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>·<EFBFBD><C2B7>Ʊ'then
begin
if not t_op_railway_fen.IsEmpty then
begin
showmessage('<27><>·<EFBFBD><C2B7>Ʊ<EFBFBD><C6B1><EFBFBD>ڷ<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
t_ch_fee.close;
t_ch_fee.Parameters[0].value:=t_op_railway1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_ch_fee.open;
if not t_ch_fee.IsEmpty then
begin
showmessage('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
table_delete(TAdoQuery(t_op_railway1.DataSet));
end;
procedure Tfrm_op_railway.bsSkinButton3Click(Sender: TObject);
begin
table_cancel(TAdoQuery(t_op_railway1.DataSet));
end;
procedure Tfrm_op_railway.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_railway.FormClose(Sender: TObject;
var Action: TCloseAction);
var
seabandini:tinifile ;
begin
seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'GroupBoxVisible.ini');
try
seabandini.Writebool('railway','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϢROLL',bsSkinExPanel1.RollState);
finally
freeandnil(seabandini);
end;
savecxgridview(cxGrid1DBTableView1,'cx'+caption+'1');
savecxgridview(cxGrid1DBTableView3,'cx'+caption+'3');
savereggrid(dxdbgrid1,caption);
savereggrid(dxdbgrid2,caption+'2');
savewwgrid(fra_fee1.wwDBGrid1,'<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
savewwgrid(fra_fee1.wwDBGrid2,'<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
railwayopen:=false;
frm_op_railway.Hide;
frm_op_railway.ManualFloat(frm_op_railway.BoundsRect );
frm_main.freeTabs('frm_op_railway');
if assigned(frm_op_letter) then
frm_op_letter.close;
action:=cafree;
frm_op_railway:=nil;
end;
procedure Tfrm_op_railway.FormShow(Sender: TObject);
var
seabandini:tinifile ;
begin
bsSkinPanel5.Visible:=false;
if not ASSIGNED(frm_sys_progress) then
frm_sys_progress:=tfrm_sys_progress.Create(self);
frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ򡣡<C8BA><F2A1A3A1><EFBFBD>';
frm_sys_progress.Show;
Notebook1.PageIndex:=0;
frm_sys_progress.bsSkinGauge1.MaxValue:=16;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
frm_sys_progress.Update;
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
DBEdit8.Width:=110;
bsSkinSpeedButton1.Visible:=false;
if frm_data_share.t_sys_noset.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6>༭').AsBoolean then begin
DBEdit8.ReadOnly:=false;
end else begin
DBEdit8.ReadOnly:=true;
end;
end else if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
DBEdit8.Width:=90;
bsSkinSpeedButton1.Visible:=true;
if frm_data_share.t_sys_noset.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6>༭').AsBoolean then begin
DBEdit8.ReadOnly:=false;
end else begin
DBEdit8.ReadOnly:=true;
end;
end else if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD><D6B6>༭' then begin
DBEdit8.ReadOnly:=false;
DBEdit8.Width:=110;
bsSkinSpeedButton1.Visible:=false;
end;
t_op_railway.Close;
t_op_railway.SQL.clear;
if strtobool(get_parameters_value(132,'true')) then begin
t_op_railway.SQL.Add('select top 100 * from t_op_railway where <20><><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> and '
+'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''
+' or <20><><EFBFBD><EFBFBD>Ա='+''''+employee+''''
+' or <20>ͷ<EFBFBD>Ա='+''''+employee+''''+')'
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC');
end else begin
t_op_railway.SQL.Add('select * from t_op_railway where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+' SUBSTRING(CONVERT(char(15),<2C>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>,111),1,7)='''+FormatDateTime('YYYY',Date)+'/'+FormatDateTime('MM',Date)+''' and '
+open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' order by <20>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD> DESC');
end;
t_op_railway.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
fra_op_letter_free1.op_type.Text:='<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>';
fra_op_letter_free1.t_op_letter.DataSource:=t_op_railway1;
fra_op_letter_free1.t_op_letter.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
fra_op_letter_free1.t_op_letter_free_detail.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_op_railway_fen.open;
t_ch_fee_audit.Open;
v_op_railway_detail.close;
v_op_railway_detail.sql.text:='select * from t_op_railway where <20><><EFBFBD><EFBFBD><><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD> in (select top 1000 '
+' <20><><EFBFBD><EFBFBD> from t_op_railway where 1=1 and '
+'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''
+' or <20><><EFBFBD><EFBFBD>Ա='+''''+employee+''''
+' or <20>ͷ<EFBFBD>Ա='+''''+employee+''''+')) order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
v_op_railway_detail.open;
loadreggrid(dxdbgrid1,false,caption);
loadreggrid(dxdbgrid2,false,caption+'2');
loadcxgridview(cxGrid1DBTableView1,'cx'+caption+'1');
loadcxgridview(cxGrid1DBTableView3,'cx'+caption+'3');
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if if_open('297') or if_open('298') then
begin
fra_fee1.edit_type.text:='6';
fra_fee1.edit_data.text:='0006';
fra_fee1.edit_report.text:='<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>';
fra_fee1.t_ch_accept.DataSource:=t_op_railway1;
if strtobool(get_parameters_value(150,'false')) then
fra_fee1.bsSkinPanel3.Visible:=true;
fra_fee1.DBEdit48.DataSource:=t_op_railway1;
fra_fee1.DBEdit43.DataSource:=t_op_railway1;
if if_open('297') then
begin
fra_fee1.t_ch_accept.DataSource:=t_op_railway1;
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('209')=false) then
begin
fra_fee1.t_ch_accept.close;
fra_fee1.t_ch_accept.SQL.Clear;
fra_fee1.t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_accept.open;
fra_fee1.a_shen_delete.open;
fra_fee1.a_shen_modify_old.open;
fra_fee1.a_shen_modify_new.open;
fra_fee1.Panel3.visible:=true;
end
else
fra_fee1.Panel3.visible:=false;
if if_open('298') then
begin
fra_fee1.t_ch_pay.DataSource:=t_op_railway1;
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('209')=false) then
begin
fra_fee1.t_ch_pay.close;
fra_fee1.t_ch_pay.SQL.Clear;
fra_fee1.t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_pay.open;
fra_fee1.p_shen_delete.open;
fra_fee1.p_shen_modify_old.open;
fra_fee1.p_shen_modify_new.open;
fra_fee1.Panel1.visible:=true;
end
else
fra_fee1.Panel1.visible:=false;
if fra_fee1.Panel1.visible and
fra_fee1.Panel3.visible then
begin
if if_open('228') then begin
fra_fee1.Panel8.Visible:=true;
fra_fee1.Panel8.Height:=20;
end else
fra_fee1.Panel8.Visible:=false;
fra_fee1.t_op_gain.DataSource:=t_op_railway1;
fra_fee1.t_op_gain.open;
fra_fee1.t_op_gain_main.DataSource:=t_op_railway1;
fra_fee1.t_op_gain_main.open;
fra_fee1.Panel9.Visible:=false;
end
else
begin
fra_fee1.Panel8.Visible:=false;
end;
end
else
begin
fra_fee1.Visible:=false;
end;
loadwwgrid(fra_fee1.wwDBGrid1,'<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
loadwwgrid(fra_fee1.wwDBGrid2,'<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
fra_op_state1.edit_state.text:='6';
fra_op_state1.t_op_state.DataSource:=t_op_railway1;
fra_op_state1.t_op_state.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
fra_op_card1.t_op_card.DataSource:=t_op_railway1;
fra_op_card1.t_op_card.open;
frm_data_share.t_crm_client.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_weituo.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_shiper.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_shouhuo.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_source.requery;
if not frm_data_share.t_code_railport.Active then
frm_data_share.t_code_railport.open
else
frm_data_share.t_code_railport.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_sys_employee.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_code.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_fee.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not frm_data_share.t_code_railwayctnsource.Active then
frm_data_share.t_code_railwayctnsource.open;
if not frm_data_share.t_code_railwaypath.Active then
frm_data_share.t_code_railwaypath.open;
frm_data_share.t_code_currency.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
bsSkinTabSheet2.TabVisible:=if_open('297') or if_open('298');
seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'GroupBoxVisible.ini');
try
bsSkinCheckRadioBox1.Checked:=seabandini.ReadBool('railway','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',true);
bsSkinCheckRadioBox2.Checked:=seabandini.ReadBool('railway','ɽ<>ڿڰ<DABF><DAB0><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ת<EFBFBD><D7AA>Ϣ',true);
bsSkinCheckRadioBox3.Checked:=seabandini.ReadBool('railway','<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',true);
bsSkinCheckRadioBox4.Checked:=seabandini.ReadBool('railway','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',true);
bsSkinCheckRadioBox5.Checked:=seabandini.ReadBool('railway','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϢROLL',true);
finally
freeandnil(seabandini);
end;
railwayopen:=true;
frm_sys_progress.close;
frm_sys_progress:=nil;
end;
procedure Tfrm_op_railway.bsSkinButton11Click(Sender: TObject);
var
answer:TModalResult;
begin
if bsSkinButton11.Caption='<27>༭<EFBFBD>޸<EFBFBD>' then
begin
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
wwDBComboBox4.OnChange(nil);
DBEdit51.OnChange(nil);
Exit;
end;
if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>' then
begin
if (t_op_railway.State=dsinsert)or(t_op_railway.State=dsedit) then
BEGIN
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>޸ģ<DEB8><C4A3>Ƿ񱣴棿',mtWarning,mbYesNoCancel,0);
if answer=mrYes then
begin
t_op_railway.post;
end;
if answer=mrNo then
begin
t_op_railway.cancel;
end;
if answer=mrCancel then
begin
exit;
end;
END;
Notebook1.PageIndex:=0;
bsSkinButton11.Caption:='<27>༭<EFBFBD>޸<EFBFBD>';
end;
if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ' then
begin
if (t_op_railway_fen.State=dsinsert)or(t_op_railway_fen.State=dsedit) then
BEGIN
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>޸ģ<DEB8><C4A3>Ƿ񱣴棿',mtWarning,mbYesNoCancel,0);
if answer=mrYes then
begin
t_op_railway_fen.post;
end;
if answer=mrNo then
begin
t_op_railway_fen.cancel;
end;
if answer=mrCancel then
begin
exit;
end;
END;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
try
t_op_railway1.Enabled:=false;
t_op_railway1.DataSet:=t_op_railway;
finally
t_op_railway1.Enabled:=true;
end;
Notebook1.PageIndex:=1;
exit;
end;
end;
procedure Tfrm_op_railway.bsSkinButton8Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton8.ClientToScreen(Point(0,bsSkinButton8.Height));
PopupMenu1.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_railway.Panel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel2.Width/14);
bsSkinButton7.Width:=i;
bsSkinButton6.Width:=i;
bsSkinButton9.Width:=i;
bsSkinButton10.Width:=i;
bsSkinButton1.Width:=i;
bsSkinButton11.Width:=i;
bsSkinButton8.Width:=i;
bsSkinButton2.Width:=i;
bsSkinButton4.Width:=i;
bsSkinButton3.Width:=i;
bsSkinButton38.Width:=i;
bsSkinButton12.Width:=i;
bsSkinButton23.Width:=i;
bsSkinButton13.Left:=Panel2.Width-bsSkinButton13.Width-20;
end;
procedure Tfrm_op_railway.bsSkinButton1Click(Sender: TObject);
begin
if t_op_railway1.DataSet=nil then
exit;
if (t_op_railway1.DataSet.State=dsinsert)or(t_op_railway1.DataSet.State=dsedit) then
t_op_railway1.DataSet.post;
try
frm_op_railway_add:=Tfrm_op_railway_add.Create (self);
if not t_op_railway1.DataSet.IsEmpty then
begin
frm_op_railway_add.shiptype:='';
frm_op_railway_add.bstype:='';
frm_op_railway_add.PNO:='';
frm_op_railway_add.shiptype:=t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').AsString;
frm_op_railway_add.bstype:=t_op_railway1.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').AsString;
frm_op_railway_add.PNO:=t_op_railway1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
end;
if t_op_railway1.DataSet=t_op_railway then
begin
frm_op_railway_add.data1.Enabled:=false;
frm_op_railway_add.data1.DataSet:=t_op_railway;
frm_op_railway_add.data1.Enabled:=true;
frm_op_railway_add_num:=1;
end
else
begin
frm_op_railway_add.data1.Enabled:=false;
frm_op_railway_add.data1.DataSet:=t_op_railway_fen;
frm_op_railway_add.data1.Enabled:=true;
frm_op_railway_add.bsSkinCheckRadioBox6.Checked:=true;
frm_op_railway_add.bsSkinCheckRadioBox1.Enabled:=false;
frm_op_railway_add.bsSkinCheckRadioBox5.Enabled:=false;
frm_op_railway_add.bsSkinCheckRadioBox6.Enabled:=false;
frm_op_railway_add_num:=2;
end;
if frm_op_railway_add.ShowModal<>mrCancel then begin
if not frm_op_railway.bsSkinTabSheet1.Showing then
frm_op_railway.bsSkinTabSheet1.Show;
end;
finally
frm_op_railway_add.Free;
end;
end;
procedure Tfrm_op_railway.t_op_railwayBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(Tadoquery(t_op_railway1.dataset),'0006');
end;
procedure Tfrm_op_railway.t_op_railwayBeforePost(DataSet: TDataSet);
var
opcomp:string;
begin
table_before_post(t_op_railway,'ί<>е<EFBFBD>λ');
table_before_post(t_op_railway,'<27><><EFBFBD><EFBFBD>Ա');
table_before_post(t_op_railway,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
// table_before_post(t_op_railway,'<27>ͷ<EFBFBD>Ա');
// table_before_post(t_op_airtruck,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
// table_before_post(t_op_airtruck,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
table_before_post(t_op_railway,'<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>');
// table_before_post(t_op_railway,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_railway,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
table_before_post(t_op_railway,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
table_before_post(t_op_railway,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if trim(t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>'' then
if not frm_data_share.t_sys_employee.Locate('<27><><EFBFBD><EFBFBD>',trim(t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring),[]) then
begin
showmessage('ϵͳ<CFB5>в<EFBFBD><D0B2><EFBFBD><EFBFBD>ڸ<EFBFBD><DAB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>˶<EFBFBD>');
abort;
end;
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
if t_op_railway.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>'])='') then begin
opcomp:= t_op_railway.FieldByName('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>').AsString;
if opcomp='' then
opcomp:=subComp;
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,opcomp,department,employee,t_op_railway['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,opcomp,department,employee,t_op_railway['<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>']);
end;
if (not t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').isnull) and (t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').value) then
if (t_op_railway.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
showmessage('<27>˽ӵ<CBBD><D3B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>ҵ<EFBFBD>񣡣<EFBFBD>');
abort;
end;
if op_empty('t_op_railway',t_op_railway) then
Abort;
if t_op_railway.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_railway.FieldByName('ί<>е<EFBFBD>λ').asstring then
begin
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_railway.FieldByName('ί<>е<EFBFBD>λ').asstring,[])then
begin
if frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>'then
begin
showmessage('<27><>ǰҵ<C7B0><D2B5>ί<EFBFBD>е<EFBFBD>λ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD>ٽ<EFBFBD><D9BD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>лָ<D0BB><D6B8>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
abort;
end;
end;
end;
if t_op_railway.State=dsinsert then
begin
if t_op_railway.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
begin
t_op_railway['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.RailWayBsNo,'RW'));
end;
t_op_railway['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_railway['<27><><EFBFBD><EFBFBD>'];
t_op_railway['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_railway['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
end;
if strtobool(get_parameters_value(45,'false')) then
begin
if (trim(t_op_railway.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='') or (t_op_railway.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_railway['ί<>б<EFBFBD>׼']:=t_op_railway['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_railway['ί<>б<EFBFBD>׼']:=t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>'];
end;
end
else
begin
t_op_railway['ί<>б<EFBFBD>׼']:=t_op_railway['<27><><EFBFBD><EFBFBD>'];
end;
// t_op_railway['upload']:=1;
end;
procedure Tfrm_op_railway.bsSkinButton10Click(Sender: TObject);
begin
query_railway(1,'0006');
end;
procedure Tfrm_op_railway.dxDBGrid1Column3CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid1Column3.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_railway.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
AColor:=dxgrid_color('<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_railway.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit2);
end;
procedure Tfrm_op_railway.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit3);
end;
procedure Tfrm_op_railway.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit4);
end;
procedure Tfrm_op_railway.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit4);
end;
procedure Tfrm_op_railway.RxDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo31);
end;
procedure Tfrm_op_railway.RxDBLookupCombo13KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit8);
end;
procedure Tfrm_op_railway.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
end;
procedure Tfrm_op_railway.wwDBDateTimePicker2KeyPress(Sender: TObject;
var Key: Char);
begin
if key = #13 then
begin
Key :=#0;
Perform(CM_DialogKey,VK_TAB,0);
end;
end;
procedure Tfrm_op_railway.wwDBDateTimePicker1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo7);
end;
procedure Tfrm_op_railway.RxDBLookupCombo11KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo18);
end;
procedure Tfrm_op_railway.RxDBLookupCombo7KeyPress(Sender: TObject;
var Key: Char);
begin
// key_wwDBLookupCombo(Key,wwDBLookupCombo10);
end;
procedure Tfrm_op_railway.DBEdit18KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
end;
procedure Tfrm_op_railway.DBEdit2Change(Sender: TObject);
begin
DBEdit2.Color:=dxgrid_color('<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>',DBEdit2.text);
end;
procedure Tfrm_op_railway.DBEdit3Change(Sender: TObject);
begin
DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text);
end;
procedure Tfrm_op_railway.N10Click(Sender: TObject);
begin
// cxGrid1DBTableView1.
cxGrid1DBTableView1.Columns[cxGrid1DBTableView1.DataController.FocusedRowIndex].Visible:=false;
// update_grid_view_no(dxdbgrid1);
// cxGrid1DBTableView1.CopyToClipboard(true);
end;
procedure Tfrm_op_railway.N14Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to cxGrid1DBTableView1.ColumnCount-1 do begin
cxGrid1DBTableView1.Columns[i].Visible:=true;
end;
// update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_op_railway.N12Click(Sender: TObject);
var i,j:integer ;
scaption:string ;
begin
inherited;
frm_sys_grid_cx:=Tfrm_sys_grid_cx.create(self);
frm_sys_grid_cx.CheckListBox1.Items.Clear ;
for i:=0 to cxGrid1DBTableView1.ColumnCount-1 do
begin
frm_sys_grid_cx.CheckListBox1.Items.Add(cxGrid1DBTableView1.Columns[i].Caption) ;
j:=frm_sys_grid_cx.CheckListBox1.Items.Count-1 ;
frm_sys_grid_cx.CheckListBox1.Checked[j]:=cxGrid1DBTableView1.Columns[i].Visible;
end ;
frm_sys_grid_cx.showmodal ;
if frm_sys_grid_cx.modalresult=mrok then
begin
cxGrid1DBTableView1.BeginUpdate ;
for i:=0 to cxGrid1DBTableView1.ColumnCount-1 do cxGrid1DBTableView1.Columns[i].Visible:=false ;
for i:=0 to frm_sys_grid_cx.CheckListBox1.Items.Count-1 do
begin
if frm_sys_grid_cx.CheckListBox1.Checked[i] then
begin
for j:=0 to cxGrid1DBTableView1.ColumnCount-1 do
begin
scaption:=frm_sys_grid_cx.CheckListBox1.items[i] ;
if cxGrid1DBTableView1.Columns[j].Caption=scaption then
cxGrid1DBTableView1.Columns[j].Visible:=true ;
end;
end ;
end ;
end ;
cxGrid1DBTableView1.EndUpdate ;
frm_sys_grid_cx.free ;
end;
procedure Tfrm_op_railway.N16Click(Sender: TObject);
begin
cxgrid_save_xls(cxGrid1);
end;
procedure Tfrm_op_railway.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_op_railway,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_railway.bsSkinButton13Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height));
PopupMenu3.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_railway.N17Click(Sender: TObject);
begin
t_op_railway.Close;
t_op_railway.SQL.clear;
t_op_railway.SQL.Add('select * from t_op_railway where '
+open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
+''''+'¼<><C2BC>״̬'+''''+') '
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_railway.open;
end;
procedure Tfrm_op_railway.N34Click(Sender: TObject);
begin
t_op_railway.Close;
t_op_railway.SQL.clear;
t_op_railway.SQL.Add('select * from t_op_railway where '
+open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+')) '
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_railway.open;
end;
procedure Tfrm_op_railway.N36Click(Sender: TObject);
begin
t_op_railway.Close;
t_op_railway.SQL.clear;
t_op_railway.SQL.Add('select * from t_op_railway where '
+open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+')) '
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_railway.open;
end;
procedure Tfrm_op_railway.N37Click(Sender: TObject);
begin
t_op_railway.Close;
t_op_railway.SQL.clear;
t_op_railway.SQL.Add('select * from t_op_railway where '
+open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1) '
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_railway.open;
end;
procedure Tfrm_op_railway.wwDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo16);
end;
procedure Tfrm_op_railway.N9Click(Sender: TObject);
begin
t_op_railway.Close;
t_op_railway.SQL.clear;
t_op_railway.SQL.Add('select * from t_op_railway where '
+open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_railway.open;
end;
procedure Tfrm_op_railway.N20Click(Sender: TObject);
begin
t_op_railway.Close;
t_op_railway.SQL.clear;
t_op_railway.SQL.Add('select * from t_op_railway where '
+open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_railway.open;
end;
procedure Tfrm_op_railway.t_op_railwayBeforeCancel(DataSet: TDataSet);
begin
delete_no(t_op_railway);
if t_op_railway.State=dsinsert then
if not t_op_railway.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_railway.N21Click(Sender: TObject);
begin
t_op_railway.Close;
t_op_railway.SQL.clear;
t_op_railway.SQL.Add('select * from t_op_railway where '
+open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee )'
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_railway.open;
end;
procedure Tfrm_op_railway.N24Click(Sender: TObject);
begin
t_op_railway.Close;
t_op_railway.SQL.clear;
t_op_railway.SQL.Add('select * from t_op_railway where '
+open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_railway.open;
end;
procedure Tfrm_op_railway.dxDBGrid1Column29CustomDraw(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 Trim(ANode.Strings[dxDBGrid1Column29.Index])='<27><><EFBFBD>ĵ<EFBFBD>' then
AColor:=clred;
AFont.Color:=clblack;
end;
procedure Tfrm_op_railway.N26Click(Sender: TObject);
begin
if t_op_railway.IsEmpty then
exit;
if not do_data('0006',t_op_railway.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_railway.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_railway.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_railway.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
,'','') then
begin
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
abort;
end;
if t_op_railway1.dataset.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊҵ<CEAA><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8>');
abort;
end;
if t_op_railway1=nil then
exit;
if (t_op_railway.State=dsinsert)or(t_op_railway.State=dsedit) then
t_op_railway.post;
try
frm_op_date_change:=tfrm_op_date_change.Create (self);
frm_op_date_change.DataSource1.Enabled:=false;
frm_op_date_change.DataSource1.DataSet:=t_op_railway1.DataSet;
frm_op_date_change.DataSource1.Enabled:=true;
frm_op_date_change.ShowModal;
finally
frm_op_date_change.Free;
frm_op_date_change:=nil;
end;
end;
procedure Tfrm_op_railway.RxDBLookupCombo16Change(Sender: TObject);
begin
if t_op_railway1.DataSet=nil then
exit;
if (t_op_railway1.DataSet.State=dsinsert)or(t_op_railway1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo16.DisplayValue<>'' then
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_railway.RxDBLookupCombo17Change(Sender: TObject);
begin
if t_op_railway1.DataSet=nil then
exit;
if (t_op_railway1.DataSet.State=dsinsert)or(t_op_railway1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo17.DisplayValue<>'' then
t_op_railway1.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_railway.RxDBLookupCombo16KeyPress(Sender: TObject;
var Key: Char);
begin
if key = #13 then
begin
Key :=#0;
Perform(CM_DialogKey,VK_TAB,0);
end;
end;
procedure Tfrm_op_railway.RxDBLookupCombo17KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo4);
end;
procedure Tfrm_op_railway.RxDBLookupCombo16Enter(Sender: TObject);
begin
RxLookupComboEnter(TRxDBLookupCombo(Sender));
if not do_data('0006',t_op_railway.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_railway.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_railway.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_railway.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
,'','') then
begin
RxDBLookupCombo1.Enabled:=false;
end
else
begin
RxDBLookupCombo1.Enabled:=true;
end;
end;
procedure Tfrm_op_railway.RxDBLookupCombo16Exit(Sender: TObject);
begin
RxLookupComboExit(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_railway.bsSkinSpeedButton1Click(Sender: TObject);
begin
if t_op_railway1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (t_op_railway1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']='') then begin
t_op_railway1.DataSet.edit;
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_railway1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,subComp,department,employee,t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_railway1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,subComp,department,employee,t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
end;
end;
procedure Tfrm_op_railway.bsSkinPageControl1Change(Sender: TObject);
var
inifile1:Tinifile;
begin
if not railwayopen then exit;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet1 then
begin
bsSkinGroupBox3.Visible:=bsSkinCheckRadioBox1.Checked;
bsSkinGroupBox4.Visible:=bsSkinCheckRadioBox2.Checked;
bsSkinGroupBox7.Visible:=bsSkinCheckRadioBox3.Checked;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet8 then
begin
if Letter_flag=0 then
begin
frm_op_letter:=tfrm_op_letter.Create (self);
frm_op_letter.bsTypeid:=1;
if t_op_railway1.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').AsString<>'<27><>·<EFBFBD><C2B7>Ʊ' then
frm_op_letter.t_op_letter.DataSource:=t_op_railway1
else frm_op_letter.t_op_letter.DataSource:=t_op_railway_fen1;
frm_op_letter.ManualDock(bsSkinTabSheet8,nil,alClient);
frm_op_letter.show;
Letter_flag:=1;
end;
exit;
end;
if bsSkinPageControl1.ActivePage<>bsSkinTabSheet1 then begin
if t_op_railway.State in [dsedit,dsinsert] then
t_op_railway.Post;
end else begin
t_op_railway.Refresh;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then
begin
if strtobool(get_parameters_value(190,'false')) then
begin
fra_fee1.bsSkinButton20.Visible:=true;
fra_fee1.bsSkinButton21.Visible:=true;
end
else
begin
fra_fee1.bsSkinButton20.Visible:=False;
fra_fee1.bsSkinButton21.Visible:=False;
end;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
if strtoint(get_parameters_value(197,'0'))<>0 then
fra_fee1.bsSkinComboBox1.ItemIndex:=strtoint(get_parameters_value(197,'0'))-1
else fra_fee1.bsSkinComboBox1.ItemIndex:=inifile1.ReadInteger('FEE','FEEVAT',0);
inifile1.Free;
end;
end;
procedure Tfrm_op_railway.RxDBLookupCombo11Change(Sender: TObject);
begin
if t_op_railway1.DataSet=nil then
exit;
if (t_op_railway1.DataSet.state=dsinsert)or(t_op_railway1.DataSet.state=dsedit)then
begin
if RxDBLookupCombo11.DisplayValue='' then
exit;
t_op_railway1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=t_op_railway1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+#13#10+frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_railway.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
Key :=#0;
Perform(CM_DialogKey,VK_TAB,0);
end;
end;
procedure Tfrm_op_railway.bsSkinButton9Click(Sender: TObject);
begin
sys_print('<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>',2,t_op_railway1,nil,nil,nil,t_op_railway_fen1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_railway.bsSkinButton15Click(Sender: TObject);
begin
// sys_print('<27><>·<EFBFBD><C2B7><EFBFBD>伯װ<E4BCAF>䵥<EFBFBD><E4B5A5>',2,t_op_railway1,nil,nil,nil,t_op_railway_fen1,nil,nil,nil,nil,nil,nil);
if (t_op_railway_fen.State=dsinsert)or(t_op_railway_fen.State=dsedit) then
t_op_railway_fen.post;
end;
procedure Tfrm_op_railway.N29Click(Sender: TObject);
begin
if t_op_railway_fen.IsEmpty then
exit;
t_op_railway_fen.edit;
t_op_railway_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_railway_fen['<27><><EFBFBD><EFBFBD>'];
t_op_railway_fen.post;
t_op_railway_fen.Requery();
end;
procedure Tfrm_op_railway.wwDBLookupCombo52Change(Sender: TObject);
begin
if (t_op_railway1.DataSet.state=dsinsert)or(t_op_railway1.DataSet.state=dsedit)then
begin
if wwDBLookupCombo52.text='' then
exit;
if frm_data_share.t_code_railport.locate('<27>ڰ<EFBFBD><DAB0><EFBFBD><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then begin
t_op_railway1.DataSet['<27><>վ']:=frm_data_share.t_code_railport['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_railway1.DataSet['<27><>վӢ<D5BE><D3A2>']:=frm_data_share.t_code_railport['Ӣ<><D3A2><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_railway.wwDBLookupCombo2Change(Sender: TObject);
begin
if (t_op_railway1.DataSet.state=dsinsert)or(t_op_railway1.DataSet.state=dsedit)then
begin
if wwDBLookupCombo2.text='' then
exit;
if frm_data_share.t_code_railport.locate('<27>ڰ<EFBFBD><DAB0><EFBFBD><EFBFBD><EFBFBD>',wwDBLookupCombo2.text,[]) then begin
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD>վ']:=frm_data_share.t_code_railport['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD>վӢ<D5BE><D3A2>']:=frm_data_share.t_code_railport['Ӣ<><D3A2><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_railway.wwDBLookupCombo5Change(Sender: TObject);
begin
if (t_op_railway1.DataSet.state=dsinsert)or(t_op_railway1.DataSet.state=dsedit)then
begin
if wwDBLookupCombo5.text='' then
exit;
if frm_data_share.t_code_railport.locate('<27>ڰ<EFBFBD><DAB0><EFBFBD><EFBFBD><EFBFBD>',wwDBLookupCombo5.text,[]) then begin
t_op_railway1.DataSet['<27><><EFBFBD>ڿڰ<DABF>']:=frm_data_share.t_code_railport['<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_railway.wwDBLookupCombo6Change(Sender: TObject);
begin
if (t_op_railway1.DataSet.state=dsinsert)or(t_op_railway1.DataSet.state=dsedit)then
begin
if wwDBLookupCombo6.text='' then
exit;
if frm_data_share.t_code_railport.locate('<27>ڰ<EFBFBD><DAB0><EFBFBD><EFBFBD><EFBFBD>',wwDBLookupCombo6.text,[]) then begin
t_op_railway1.DataSet['<27><>תվ']:=frm_data_share.t_code_railport['Ӣ<><D3A2><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_railway.RxDBLookupCombo3Change(Sender: TObject);
begin
if (t_op_railway1.DataSet.state=dsinsert)or(t_op_railway1.DataSet.state=dsedit)then
begin
if RxDBLookupCombo3.DisplayValue='' then
exit;
t_op_railway1.DataSet['<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>'];
t_op_railway1.DataSet['<27><>Ƥ<EFBFBD><C6A4>']:=frm_data_share.t_code_ctn['<27><>Ƥ<EFBFBD><C6A4>'];
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>'];
t_op_railway1.DataSet['<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>']:=frm_data_share.t_code_ctn['Ӣ<><D3A2>˵<EFBFBD><CBB5>'];
end;
end;
procedure Tfrm_op_railway.t_op_railway_fenAfterPost(DataSet: TDataSet);
var
book1:Tbookmark;
aQuery:TAdoQuery;
pkgs,kgs,cbm:double;
bsno:string;
begin
bsno:=dataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
sql.Add('select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_railway where װ<>˷<EFBFBD>ʽ=''<27><>·<EFBFBD><C2B7>Ʊ'' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+Dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
open;
pkgs:=fieldbyname('<27><><EFBFBD><EFBFBD>').AsFloat;
kgs:=fieldbyname('<27><><EFBFBD><EFBFBD>').AsFloat;
cbm:=fieldbyname('<27><><EFBFBD><EFBFBD>').AsFloat;
if not IsEmpty then begin
close;sql.clear;
sql.Add('update t_op_railway set <20><><EFBFBD><EFBFBD>='+floattostr(pkgs)+',<2C><><EFBFBD><EFBFBD>='+floattostr(kgs)+',<2C><><EFBFBD><EFBFBD>='+floattostr(cbm)+' where <20><><EFBFBD><EFBFBD>='''+Dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
ExecSQL;
t_op_railway.Refresh;
end;
end;
finally
FreeAndNil(aQuery);
dataset.Locate('<27><><EFBFBD><EFBFBD>',bsno,[]);
end;
{
book1:=v_op_railway_detail.GetBookmark;
// update_railctn(t_op_railway_fen);
v_op_railway_detail.Requery();
v_op_railway_detail.GotoBookmark(book1);
}
//ljp
end;
procedure Tfrm_op_railway.t_raildatecharge(Sender: TField);
begin
if sender.DataSet.State in [dsedit,dsinsert] then begin
if (not sender.DataSet.fieldbyname('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').IsNull) and (not sender.DataSet.fieldbyname('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').IsNull) then begin
sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=DaysBetween(sender.DataSet.fieldbyname('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').asdatetime,sender.DataSet.fieldbyname('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').asdatetime);
end;
end;
end;
procedure Tfrm_op_railway.t_railkgscharge(Sender: TField);
var
sl:tstringlist;
begin
if sender.DataSet.State in [dsedit,dsinsert] then begin
if (sender.DataSet.fieldbyname('<27><>Ƥ<EFBFBD><C6A4>').asfloat<>0) and (sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat<>0) then begin
sl:=TStringList.Create;
try
sl.Add(sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
sl.Add(sender.DataSet.fieldbyname('<27><>Ƥ<EFBFBD><C6A4>').asstring);
sl.Add('==========');
sl.Add(floattostr(sender.DataSet.fieldbyname('<27><>Ƥ<EFBFBD><C6A4>').asfloat+sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat)+'KGS');
sender.DataSet.fieldbyname('ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring:=sl.Text;
sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').Asstring:=change_qty(sender.DataSet.fieldbyname('<27><>Ƥ<EFBFBD><C6A4>').asfloat+sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat,false,true)+' <20><><EFBFBD><EFBFBD>';
finally
freeandnil(sl);
end;
end;
end;
end;
procedure Tfrm_op_railway.t_op_railway_fenAfterOpen(DataSet: TDataSet);
begin
dataset.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_railkgscharge;
dataset.FieldByName('<27><>Ƥ<EFBFBD><C6A4>').OnChange:=t_railkgscharge;
dataset.FieldByName('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').OnChange:=t_raildatecharge;
dataset.FieldByName('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').OnChange:=t_raildatecharge;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_railfcdatechange;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_railfcdatechange;
DBRichEdit3.DefAttributes.Size:=9;
DBRichEdit1.DefAttributes.Size:=9;
DBRichEdit2.DefAttributes.Size:=9;
DBRichEdit4.DefAttributes.Size:=9;
end;
procedure Tfrm_op_railway.cxGrid1DBTableView1CellClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
// bsSkinButton11.OnClick(sender);
end;
procedure Tfrm_op_railway.wwDBComboBox4Change(Sender: TObject);
begin
if t_op_railway1.DataSet=nil then
exit;
if wwDBComboBox4.text='<27><>·<EFBFBD><C2B7>Ʊ' then
begin
tab2.TabVisible:=true;
DBEdit10.ReadOnly:=true;
RxDBLookupCombo3.ReadOnly:=true;
RxDBLookupCombo4.ReadOnly:=true;
DBEdit21.ReadOnly:=true;
wwDBComboBox1.ReadOnly:=true;
DBEdit22.ReadOnly:=true;
DBEdit81.ReadOnly:=true;
wwDBLookupCombo61.ReadOnly:=true;
DBEdit82.ReadOnly:=true;
DBEdit83.ReadOnly:=true;
RxDBLookupCombo5.ReadOnly:=true;
DBEdit17.ReadOnly:=true;
DBEdit10.Color:=clBtnFace;
RxDBLookupCombo3.Color:=clBtnFace;
RxDBLookupCombo4.Color:=clBtnFace;
DBEdit21.Color:=clBtnFace;
wwDBComboBox1.Color:=clBtnFace;
DBEdit22.Color:=clBtnFace;
DBEdit81.Color:=clBtnFace;
wwDBLookupCombo61.Color:=clBtnFace;
DBEdit82.Color:=clBtnFace;
DBEdit83.Color:=clBtnFace;
RxDBLookupCombo5.Color:=clBtnFace;
DBEdit17.Color:=clBtnFace;
bsSkinButton14.Visible:=true;
bsSkinButton21.Enabled:=false;
// bsSkinPanel3.Parent:=bsSkinPageControl2;
end
else
begin
tab2.TabVisible:=false;
RxDBLookupCombo4.ReadOnly:=false;
DBEdit21.ReadOnly:=false;
wwDBComboBox1.ReadOnly:=false;
DBEdit22.ReadOnly:=false;
DBEdit81.ReadOnly:=false;
wwDBLookupCombo61.ReadOnly:=false;
DBEdit82.ReadOnly:=false;
DBEdit83.ReadOnly:=false;
RxDBLookupCombo5.ReadOnly:=false;
DBEdit17.ReadOnly:=false;
if RxDBLookupCombo4.text='<27><>˾<EFBFBD>Ա<EFBFBD><D4B1><EFBFBD>' then begin
DBEdit10.ReadOnly:=true;
DBEdit10.Color:=clBtnFace;
RxDBLookupCombo3.Color:=clBtnFace;
RxDBLookupCombo3.ReadOnly:=true;
bsSkinButton21.Enabled:=true;
end else if RxDBLookupCombo4.text='<27>ͻ<EFBFBD><CDBB>Ա<EFBFBD><D4B1><EFBFBD>' then begin
DBEdit10.ReadOnly:=false;
DBEdit10.Color:=clWindow;
RxDBLookupCombo3.Color:=clWindow;
RxDBLookupCombo3.ReadOnly:=false;
bsSkinButton21.Enabled:=false;
end else if RxDBLookupCombo4.text='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
DBEdit10.ReadOnly:=true;
DBEdit10.Color:=clBtnFace;
RxDBLookupCombo3.Color:=clBtnFace;
RxDBLookupCombo3.ReadOnly:=true;
bsSkinButton21.Enabled:=true;
end else begin
DBEdit10.ReadOnly:=false;
DBEdit10.Color:=clWindow;
RxDBLookupCombo3.Color:=clWindow;
RxDBLookupCombo3.ReadOnly:=false;
bsSkinButton21.Enabled:=false;
end;
if (trim(DBEdit51.text)='') or (trim(DBEdit51.text)='0') then
begin
DBEdit10.ReadOnly:=false;
DBEdit10.Color:=clWindow;
RxDBLookupCombo3.Color:=clWindow;
RxDBLookupCombo3.ReadOnly:=false;
end else begin
DBEdit10.ReadOnly:=true;
DBEdit10.Color:=clBtnFace;
RxDBLookupCombo3.Color:=clBtnFace;
RxDBLookupCombo3.ReadOnly:=true;
end;
RxDBLookupCombo4.Color:=clWindow;
DBEdit21.Color:=clWindow;
wwDBComboBox1.Color:=clWindow;
DBEdit22.Color:=clWindow;
DBEdit81.Color:=clWindow;
wwDBLookupCombo61.Color:=clWindow;
DBEdit82.Color:=clWindow;
DBEdit83.Color:=clWindow;
RxDBLookupCombo5.Color:=clWindow;
DBEdit17.Color:=clWindow;
bsSkinButton14.Visible:=false;
if (DBEdit69.Text<>'0') then begin
DBEdit10.ReadOnly:=true;
DBEdit10.Color:=clBtnFace;
bsSkinButton21.Enabled:=False;
end;
// bsSkinPanel3.Parent:=bsSkinScrollBox1;
end;
end;
procedure Tfrm_op_railway.dxDBGrid2DblClick(Sender: TObject);
begin
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
try
t_op_railway1.Enabled:=false;
t_op_railway1.DataSet:=t_op_railway_fen;
finally
t_op_railway1.Enabled:=true;
end;
end;
procedure Tfrm_op_railway.bsSkinButton32Click(Sender: TObject);
begin
if (t_op_railway.State=dsinsert)or(t_op_railway.State=dsedit) then
t_op_railway.post;
if (t_op_railway_fen.State=dsinsert)or(t_op_railway_fen.State=dsedit) then
t_op_railway_fen.post;
try
frm_op_railway_add:=tfrm_op_railway_add.Create (self);
if not t_op_railway1.DataSet.IsEmpty then
begin
frm_op_railway_add.shiptype:='';
frm_op_railway_add.BsType:=''; //<2F><>·<EFBFBD><C2B7>Ʊ
frm_op_railway_add.PNO:='';
frm_op_railway_add.shiptype:=t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').AsString;
frm_op_railway_add.BsType:='RAILHBL'; //<2F><>·<EFBFBD><C2B7>Ʊ
frm_op_railway_add.PNO:=t_op_railway1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
end;
frm_op_railway_add.data1.Enabled:=false;
frm_op_railway_add.data1.DataSet:=t_op_railway_fen;
frm_op_railway_add.data1.Enabled:=true;
frm_op_railway_add.bsSkinCheckRadioBox6.Checked:=true;
frm_op_railway_add.bsSkinCheckRadioBox1.Enabled:=false;
frm_op_railway_add.bsSkinCheckRadioBox5.Enabled:=false;
frm_op_railway_add_num:=3;
frm_op_railway_add.ShowModal;
finally
frm_op_railway_add.Free;
end;
end;
procedure Tfrm_op_railway.t_op_railwayAfterOpen(DataSet: TDataSet);
begin
dataset.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_railkgscharge;
dataset.FieldByName('<27><>Ƥ<EFBFBD><C6A4>').OnChange:=t_railkgscharge;
dataset.FieldByName('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').OnChange:=t_raildatecharge;
dataset.FieldByName('<27><>ɽ<EFBFBD><C9BD>ʱ<EFBFBD><CAB1>').OnChange:=t_raildatecharge;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_railfcdatechange;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_railfcdatechange;
DBRichEdit3.DefAttributes.Size:=9;
DBRichEdit1.DefAttributes.Size:=9;
DBRichEdit2.DefAttributes.Size:=9;
DBRichEdit4.DefAttributes.Size:=9;
end;
procedure Tfrm_op_railway.bsSkinButton33Click(Sender: TObject);
begin
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
try
t_op_railway1.Enabled:=false;
t_op_railway1.DataSet:=t_op_railway_fen;
finally
t_op_railway1.Enabled:=true;
end;
end;
procedure Tfrm_op_railway.bsSkinButton34Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton34.ClientToScreen(Point(0,bsSkinButton34.Height));
PopupMenu4.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_railway.bsSkinButton31Click(Sender: TObject);
begin
sys_print('<27><>·<EFBFBD><C2B7><EFBFBD>䵥֤',2,t_op_railway1,nil,nil,nil,t_op_railway_fen1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_railway.t_op_railway_fenBeforeCancel(DataSet: TDataSet);
begin
delete_no(t_op_railway_fen);
if t_op_railway_fen.State=dsinsert then
if not t_op_railway_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_railway_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_railway.t_op_railway_fenBeforePost(DataSet: TDataSet);
begin
table_before_post(t_op_railway_fen,'ί<>е<EFBFBD>λ');
table_before_post(t_op_railway_fen,'<27><><EFBFBD><EFBFBD>Ա');
table_before_post(t_op_railway_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
// table_before_post(t_op_railway_fen,'<27>ͷ<EFBFBD>Ա');
table_before_post(t_op_railway_fen,'<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>');
// table_before_post(t_op_railway_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_railway_fen,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
table_before_post(t_op_railway_fen,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
table_before_post(t_op_railway_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if op_empty('t_op_railway',t_op_railway_fen) then
abort;
if trim(t_op_railway_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>'' then
if not frm_data_share.t_sys_employee.Locate('<27><><EFBFBD><EFBFBD>',trim(t_op_railway_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring),[]) then
begin
showmessage('ϵͳ<CFB5>в<EFBFBD><D0B2><EFBFBD><EFBFBD>ڸ<EFBFBD><DAB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>˶<EFBFBD>');
abort;
end;
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
if t_op_railway_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_railway_fen['ί<>б<EFBFBD><D0B1><EFBFBD>'])='') then
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_railway_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,subComp,department,employee,t_op_railway_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_railway_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,subComp,department,employee,t_op_railway_fen['<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>']);
if (not t_op_railway_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').isnull) and (t_op_railway_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_railway_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').value) then
if (t_op_railway_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_railway_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
showmessage('<27>˷<EFBFBD><CBB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>ҵ<EFBFBD>񣡣<EFBFBD>');
abort;
end;
if t_op_railway_fen.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_railway_fen.FieldByName('ί<>е<EFBFBD>λ').asstring then
begin
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_railway_fen.FieldByName('ί<>е<EFBFBD>λ').asstring,[])then
begin
if frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>'then
begin
showmessage('<27><>ǰҵ<C7B0><D2B5>ί<EFBFBD>е<EFBFBD>λ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD>ٽ<EFBFBD><D9BD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>лָ<D0BB><D6B8>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
abort;
end;
end;
end;
if t_op_railway_fen.State=dsinsert then
begin
if t_op_railway_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
begin
t_op_railway_fen['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_railway_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.RailWayBsNo,'RW'));
end;
t_op_railway_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_railway['<27><><EFBFBD><EFBFBD>'];
t_op_railway_fen['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_railway_fen['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
end;
if strtobool(get_parameters_value(45,'false')) then
begin
if (trim(t_op_railway_fen.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='') or (t_op_railway_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_railway_fen['ί<>б<EFBFBD>׼']:=t_op_railway_Fen['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_railway_fen['ί<>б<EFBFBD>׼']:=t_op_railway_fen['ί<>б<EFBFBD><D0B1><EFBFBD>'];
end;
end
else
begin
t_op_railway_fen['ί<>б<EFBFBD>׼']:=t_op_railway_fen['<27><><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_railway.N27Click(Sender: TObject);
begin
if t_op_railway_fen.IsEmpty then
exit;
t_op_railway_fen.edit;
t_op_railway_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_railway_fen['<27><><EFBFBD><EFBFBD>'];
t_op_railway_fen['װ<>˷<EFBFBD>ʽ']:='<27><>·<EFBFBD><C2B7>Ʊ';
t_op_railway_fen.post;
t_op_railway_fen.Requery();
end;
procedure Tfrm_op_railway.N76Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid2);
end;
procedure Tfrm_op_railway.N78Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid2);
end;
procedure Tfrm_op_railway.N80Click(Sender: TObject);
begin
update_grid(dxdbgrid2,207);
end;
procedure Tfrm_op_railway.N32Click(Sender: TObject);
begin
if t_op_railway.IsEmpty then
exit;
if t_op_railway.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>·<EFBFBD><C2B7>Ʊ' then
exit;
if t_op_railway.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>·<EFBFBD><C2B7>Ʊ'then
begin
if not t_op_railway_fen.IsEmpty then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA>·<EFBFBD><C2B7>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
exit;
end;
end;
t_op_railway.edit;
t_op_railway['װ<>˷<EFBFBD>ʽ']:='<27><>·<EFBFBD><C2B7>Ʊ';
t_op_railway['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_railway['<27><><EFBFBD><EFBFBD>'];
t_op_railway.post;
end;
procedure Tfrm_op_railway.N41Click(Sender: TObject);
begin
if t_op_railway.IsEmpty then
exit;
if t_op_railway.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>·<EFBFBD><C2B7>Ʊ' then
exit;
t_op_railway.edit;
t_op_railway['װ<>˷<EFBFBD>ʽ']:='<27><>·<EFBFBD><C2B7>Ʊ';
t_op_railway['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_railway['<27><><EFBFBD><EFBFBD>'];
t_op_railway.post;
end;
procedure Tfrm_op_railway.N39Click(Sender: TObject);
begin
if t_op_railway.IsEmpty then
exit;
if t_op_railway.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>·<EFBFBD><C2B7>Ʊ' then
exit;
if t_op_railway.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><>·<EFBFBD><C2B7>Ʊ'then
begin
if not t_op_railway_fen.IsEmpty then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
exit;
end;
end;
t_op_railway.edit;
t_op_railway['װ<>˷<EFBFBD>ʽ']:='<27><>·<EFBFBD><C2B7>Ʊ';
t_op_railway['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_railway['<27><><EFBFBD><EFBFBD>'];
t_op_railway.post;
end;
procedure Tfrm_op_railway.bsSkinButton38Click(Sender: TObject);
var
book1:Tbookmark;
begin
if t_op_railway1.DataSet=nil then
exit;
book1:=t_op_railway1.DataSet.GetBookmark;
t_op_railway1.DataSet.Refresh;
t_op_railway1.DataSet.GotoBookmark(book1);
if t_op_railway_fen1.DataSet=nil then
exit;
book1:=t_op_railway_fen1.DataSet.GetBookmark;
t_op_railway_fen1.DataSet.Refresh;
t_op_railway_fen1.DataSet.GotoBookmark(book1);
end;
procedure Tfrm_op_railway.wwDBComboBox2Change(Sender: TObject);
begin
if t_op_railway1.DataSet=nil then
exit;
if wwDBComboBox2.text='<27><>ó' then
begin
bsSkinGroupBox2.Visible:=false;
bsSkinGroupBox3.Visible:=false;
bsSkinGroupBox4.Visible:=false;
bsSkinGroupBox5.Visible:=false;
bsSkinGroupBox7.Visible:=false;
bsSkinExPanel1.visible:=false;
bsSkinGroupBox1.Visible:=true;
end else begin
bsSkinGroupBox3.Visible:=bsSkinCheckRadioBox1.Checked;
bsSkinGroupBox4.Visible:=bsSkinCheckRadioBox2.Checked;
bsSkinGroupBox7.Visible:=bsSkinCheckRadioBox3.Checked;
bsSkinExPanel1.RollState:=bsSkinCheckRadioBox5.Checked;
bsSkinExPanel1.Visible:=bsSkinCheckRadioBox4.Checked;
bsSkinGroupBox2.Visible:=true;
bsSkinGroupBox5.Visible:=true;
bsSkinGroupBox1.Visible:=false;
end;
end;
procedure Tfrm_op_railway.wwDBLookupCombo1Change(Sender: TObject);
begin
if (t_op_railway1.DataSet.state=dsinsert)or(t_op_railway1.DataSet.state=dsedit)then
begin
if wwDBLookupCombo1.text='' then
exit;
if frm_data_share.t_code_railport.locate('<27>ڰ<EFBFBD><DAB0><EFBFBD><EFBFBD><EFBFBD>',wwDBLookupCombo1.text,[]) then begin
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD>վ']:=frm_data_share.t_code_railport['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD>վӢ<D5BE><D3A2>']:=frm_data_share.t_code_railport['Ӣ<><D3A2><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_railway.bsSkinButton14Click(Sender: TObject);
begin
if not (if_open('297') or if_open('298')) then
begin
showmessage('ע<>⣬<EFBFBD><E2A3AC><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
exit;
end;
if not assigned(frm_ch_fee_zhupiao) then
frm_ch_fee_zhupiao:=tfrm_ch_fee_zhupiao.Create (self);
frm_ch_fee_zhupiao.fra_fee_zhu1.fenpiao1.DataSet:=t_op_railway_fen;
with frm_ch_fee_zhupiao do
begin
if if_open('297') then
begin
fra_fee_zhu1.t_ch_accept.close;
fra_fee_zhu1.t_ch_accept.Parameters[1].value:=t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_ch_accept.open;
fra_fee_zhu1.zhupiao1.DataSet:=t_op_railway;
fra_fee_zhu1.dxDBGrid1.FullExpand;
fra_fee_zhu1.bsSkinPanel3.visible:=true;
end
else
fra_fee_zhu1.bsSkinPanel3.visible:=false;
if if_open('298') then
begin
fra_fee_zhu1.t_ch_pay.close;
fra_fee_zhu1.t_ch_pay.Parameters[1].value:=t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_ch_pay.open;
fra_fee_zhu1.zhupiao1.DataSet:=t_op_railway;
fra_fee_zhu1.dxDBGrid2.FullExpand;
fra_fee_zhu1.bsSkinPanel4.visible:=true;
end
else
fra_fee_zhu1.bsSkinPanel4.visible:=false;
if fra_fee_zhu1.bsSkinPanel3.visible and
fra_fee_zhu1.bsSkinPanel4.visible then
begin
fra_fee_zhu1.t_op_gain.close;
fra_fee_zhu1.t_op_gain.Parameters[1].value:=t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_op_gain.open;
fra_fee_zhu1.t_op_gain_fen.close;
fra_fee_zhu1.t_op_gain_fen.Parameters[1].value:=t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_op_gain_fen.open;
end
else
begin
fra_fee_zhu1.t_op_gain.close;
fra_fee_zhu1.t_op_gain_fen.close;
fra_fee_zhu1.bsSkinTabSheet2.TabVisible:=false;
end;
fra_fee_zhu1.dxDBGrid3.FullExpand;
end;
frm_ch_fee_zhupiao.ShowModal;
end;
procedure Tfrm_op_railway.fra_op_letter_free1bsSkinButton1Click(
Sender: TObject);
begin
fra_op_letter_free1.bsSkinButton1Click(Sender);
end;
procedure Tfrm_op_railway.bsSkinButton12Click(Sender: TObject);
begin
bsSkinPanel5.Visible:=true;
end;
procedure Tfrm_op_railway.bsSkinButton17Click(Sender: TObject);
begin
bsSkinPanel5.Visible:=False;
end;
procedure Tfrm_op_railway.bsSkinButton16Click(Sender: TObject);
var i :Integer;
yjid:array of string ;
val,fenbsno:string ;
aAdoUpdate : TADOQuery;
begin
setlength(yjid,cxGrid1DBTableView1.Controller.SelectedRowCount);
frm_op_railway.t_op_railway.DisableControls;
cxGrid1DBTableView1.BeginUpdate ;
aAdoUpdate :=CreateAdoQuery;
try
for i:=0 to cxGrid1DBTableView1.Controller.SelectedRowCount-1 do
begin //<2F><><EFBFBD><EFBFBD><EFBFBD>Ƶ<EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>
val:=cxGrid1DBTableView1.DataController.GetDisplayText(cxGrid1DBTableView1.Controller.SelectedRows[I].RecordIndex,0) ;
yjid[i]:=val ;
end; //<2F>õ<EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD>е<EFBFBD>ֵ
for i:=0 to high(yjid) do
begin
if t_op_railway.Locate('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',yjid[i],[]) then
begin
fenbsno:=t_op_railway.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
t_op_railway.Edit;
t_op_railway.FieldByName(bsSkinComboBox1.Text).Value:=FormatDateTime('YYYY-MM-DD',bsSkinDateEdit1.Date);
t_op_railway.Post;
end ;
with aAdoUpdate do
begin
Close;SQL.Clear;
SQL.Add('Update t_op_railway set '+bsSkinComboBox1.Text+'=:fieldValue');
SQL.Add('where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:bsno and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><3E><><EFBFBD><EFBFBD>');
Parameters.ParamByName('fieldValue').Value:=FormatDateTime('YYYY-MM-DD',bsSkinDateEdit1.Date);
Parameters.ParamByName('bsno').Value:=fenbsno;
ExecSQL;
end;
end ;
finally
cxGrid1DBTableView1.EndUpdate ;
bsSkinPanel5.Visible:=False;
FreeAndNil(aAdoUpdate);
frm_op_railway.t_op_railway.EnableControls;
end;
end;
procedure Tfrm_op_railway.FormCreate(Sender: TObject);
begin
Letter_flag:=0;
end;
procedure Tfrm_op_railway.bsSkinButton36Click(Sender: TObject);
begin
t_ch_fee.close;
t_ch_fee.Parameters[0].value:=t_op_railway_fen.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_ch_fee.open;
if not t_ch_fee.IsEmpty then
begin
showmessage('ע<><D7A2>!ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
table_delete(TAdoQuery(t_op_railway_fen1.DataSet));
end;
procedure Tfrm_op_railway.t_op_railwayBeforeDelete(DataSet: TDataSet);
var
aQuery,aQuery2:TADOQuery;
begin
op_befor_post(t_op_railway,'0006');
if t_op_railway.FieldByName('װ<>˷<EFBFBD>ʽ').asstring<>'<27><>·<EFBFBD><C2B7>Ʊ'then
if not t_op_railway.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>']);
if (t_op_railway.FieldByName('ctnid').AsString<>'') then begin
aQuery:=CreateAdoQuery;
aQuery2:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add(' delete from t_op_ctnmg_status where ctnid='+t_op_railway.FieldByName('ctnid').AsString+' and <20><>̬<EFBFBD><CCAC><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
ExecSQL;
aQuery2.SQL.Text:='select top 1 * from t_op_ctnmg_status where ctnid='+t_op_railway.FieldByName('ctnid').AsString+' order by <20><>̬ʱ<CCAC><CAB1> DESC ';
aQuery2.Open;
if aQuery2.IsEmpty then begin
Close;SQL.Clear;
SQL.Add(' update t_op_ctnmg_detail set <20><>ǰ<EFBFBD><C7B0>̬=''<27><><EFBFBD><EFBFBD>'',<2C><><EFBFBD><EFBFBD>=0,ί<>б<EFBFBD><D0B1><EFBFBD>='''',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='''' where ctnid='+t_op_railway.FieldByName('ctnid').AsString);
ExecSQL;
end else begin
Close;SQL.Clear;
SQL.Add(' update t_op_ctnmg_detail set <20><>ǰ<EFBFBD><C7B0>̬='''+aQuery2.fieldbyname('<27><>̬<EFBFBD><CCAC><EFBFBD><EFBFBD>').AsString+''',<2C><>̬ʱ<CCAC><CAB1>='''+aQuery2.fieldbyname('<27><>̬ʱ<CCAC><CAB1>').AsString+''',<2C><><EFBFBD><EFBFBD>=0,ί<>б<EFBFBD><D0B1><EFBFBD>='''',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='''' where ctnid='+t_op_railway.FieldByName('ctnid').AsString);
ExecSQL;
end;
end;
finally
FreeAndNil(aQuery);
FreeAndNil(aQuery2);
end;
end;
// delete_add(4,t_op_airi); 123
end;
procedure Tfrm_op_railway.fra_fee1bsSkinButton8Click(Sender: TObject);
begin
fra_fee1.bsSkinButton8Click(Sender);
end;
procedure Tfrm_op_railway.RxDBLookupCombo1Change(Sender: TObject);
begin
//ί<>е<EFBFBD>λ<EFBFBD><CEBB><EFBFBD>ĺ󣬸<C4BA><F3A3ACB8>ķ<EFBFBD><C4B7><EFBFBD><EFBFBD>ˡ<EFBFBD><CBA1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if t_op_railway1.DataSet=nil then
exit;
if t_op_railway1.DataSet.State in [dsinsert,dsEdit] then
begin
if frm_data_share.t_crm_client_weituo.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo1.DisplayValues[1],[])then
begin
if frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
begin
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
end;
if frm_data_share.t_crm_client_weituo.fieldbyname('<27>ͷ<EFBFBD>Ա').asstring<>''then
begin
t_op_railway1.DataSet['<27>ͷ<EFBFBD>Ա']:=frm_data_share.t_crm_client_weituo.fieldbyname('<27>ͷ<EFBFBD>Ա').asstring;
end;
// if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',t_op_railway1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,[]) then
// t_op_railway1.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_railway.setconcolor;
procedure consetcolor(fielname:String);
var
i:integer;
scolor:string;
begin
scolor:=get_parameters_value(144,'clInfoBk'); //
{
with tab1,bsSkinGroupBox10,bsSkinGroupBox2,bsSkinGroupBox3,bsSkinGroupBox9,bsSkinGroupBox4,bsSkinGroupBox1,bsSkinPanel3 do
begin
for i:=0 to ControlCount-1 do begin
if Controls[i] is TwwDBComboBox then
begin
if TwwDBComboBox(Controls[i]).DataField=fielname then
begin
TwwDBComboBox(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBLookupCombo then begin
if TwwDBLookupCombo(Controls[i]).DataField=fielname then
begin
TwwDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBEdit then begin
if TDBEdit(Controls[i]).DataField=fielname then
begin
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBDateTimePicker then begin
if TwwDBDateTimePicker(Controls[i]).DataField=fielname then
begin
TwwDBDateTimePicker(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBMemo then begin
if TDBMemo(Controls[i]).DataField=fielname then
begin
TDBMemo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TRxDBLookupCombo then begin
if TRxDBLookupCombo(Controls[i]).DataField=fielname then
begin
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end;
end;
end;
}
with bsSkinGroupBox1 do
begin
for i:=0 to ControlCount-1 do begin
if Controls[i] is TwwDBComboBox then
begin
if TwwDBComboBox(Controls[i]).DataField=fielname then
begin
TwwDBComboBox(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBLookupCombo then begin
if TwwDBLookupCombo(Controls[i]).DataField=fielname then
begin
TwwDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBEdit then begin
if TDBEdit(Controls[i]).DataField=fielname then
begin
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBDateTimePicker then begin
if TwwDBDateTimePicker(Controls[i]).DataField=fielname then
begin
TwwDBDateTimePicker(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBMemo then begin
if TDBMemo(Controls[i]).DataField=fielname then
begin
TDBMemo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TRxDBLookupCombo then begin
if TRxDBLookupCombo(Controls[i]).DataField=fielname then
begin
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end;
end;
end;
with bsSkinGroupBox2 do
begin
for i:=0 to ControlCount-1 do begin
if Controls[i] is TwwDBComboBox then
begin
if TwwDBComboBox(Controls[i]).DataField=fielname then
begin
TwwDBComboBox(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBLookupCombo then begin
if TwwDBLookupCombo(Controls[i]).DataField=fielname then
begin
TwwDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBEdit then begin
if TDBEdit(Controls[i]).DataField=fielname then
begin
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBDateTimePicker then begin
if TwwDBDateTimePicker(Controls[i]).DataField=fielname then
begin
TwwDBDateTimePicker(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBMemo then begin
if TDBMemo(Controls[i]).DataField=fielname then
begin
TDBMemo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TRxDBLookupCombo then begin
if TRxDBLookupCombo(Controls[i]).DataField=fielname then
begin
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end;
end;
end;
with bsSkinGroupBox3 do
begin
for i:=0 to ControlCount-1 do begin
if Controls[i] is TwwDBComboBox then
begin
if TwwDBComboBox(Controls[i]).DataField=fielname then
begin
TwwDBComboBox(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBLookupCombo then begin
if TwwDBLookupCombo(Controls[i]).DataField=fielname then
begin
TwwDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBEdit then begin
if TDBEdit(Controls[i]).DataField=fielname then
begin
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBDateTimePicker then begin
if TwwDBDateTimePicker(Controls[i]).DataField=fielname then
begin
TwwDBDateTimePicker(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBMemo then begin
if TDBMemo(Controls[i]).DataField=fielname then
begin
TDBMemo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TRxDBLookupCombo then begin
if TRxDBLookupCombo(Controls[i]).DataField=fielname then
begin
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end;
end;
end;
with bsSkinGroupBox4 do
begin
for i:=0 to ControlCount-1 do begin
if Controls[i] is TwwDBComboBox then
begin
if TwwDBComboBox(Controls[i]).DataField=fielname then
begin
TwwDBComboBox(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBLookupCombo then begin
if TwwDBLookupCombo(Controls[i]).DataField=fielname then
begin
TwwDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBEdit then begin
if TDBEdit(Controls[i]).DataField=fielname then
begin
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBDateTimePicker then begin
if TwwDBDateTimePicker(Controls[i]).DataField=fielname then
begin
TwwDBDateTimePicker(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBMemo then begin
if TDBMemo(Controls[i]).DataField=fielname then
begin
TDBMemo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TRxDBLookupCombo then begin
if TRxDBLookupCombo(Controls[i]).DataField=fielname then
begin
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end;
end;
end;
with bsSkinExPanel1 do
begin
for i:=0 to ControlCount-1 do begin
if Controls[i] is TwwDBComboBox then
begin
if TwwDBComboBox(Controls[i]).DataField=fielname then
begin
TwwDBComboBox(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBLookupCombo then begin
if TwwDBLookupCombo(Controls[i]).DataField=fielname then
begin
TwwDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBEdit then begin
if TDBEdit(Controls[i]).DataField=fielname then
begin
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBDateTimePicker then begin
if TwwDBDateTimePicker(Controls[i]).DataField=fielname then
begin
TwwDBDateTimePicker(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBMemo then begin
if TDBMemo(Controls[i]).DataField=fielname then
begin
TDBMemo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TRxDBLookupCombo then begin
if TRxDBLookupCombo(Controls[i]).DataField=fielname then
begin
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end;
end;
end;
with bsSkinGroupBox10 do
begin
for i:=0 to ControlCount-1 do begin
if Controls[i] is TwwDBComboBox then
begin
if TwwDBComboBox(Controls[i]).DataField=fielname then
begin
TwwDBComboBox(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBLookupCombo then begin
if TwwDBLookupCombo(Controls[i]).DataField=fielname then
begin
TwwDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBEdit then begin
if TDBEdit(Controls[i]).DataField=fielname then
begin
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TwwDBDateTimePicker then begin
if TwwDBDateTimePicker(Controls[i]).DataField=fielname then
begin
TwwDBDateTimePicker(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TDBMemo then begin
if TDBMemo(Controls[i]).DataField=fielname then
begin
TDBMemo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TRxDBLookupCombo then begin
if TRxDBLookupCombo(Controls[i]).DataField=fielname then
begin
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end;
end;
end;
with bsSkinPanel1 do begin
for i:=0 to ControlCount-1 do begin
if Controls[i] is TDBEdit then begin
if TDBEdit(Controls[i]).DataField=fielname then begin
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end else if Controls[i] is TRxDBLookupCombo then begin
if TRxDBLookupCombo(Controls[i]).DataField=fielname then begin
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
exit;
end;
end;
end;
end;
end;
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>ͬ<EFBFBD><CDAC>ɫ<EFBFBD><C9AB>ʾ
frm_data_share.t_code_empty.Filtered:=false;
frm_data_share.t_code_empty.Filter:='<27><>=''t_op_railway''';
frm_data_share.t_code_empty.Filtered:=true;
frm_data_share.t_code_empty.First;
while not frm_data_share.t_code_empty.Eof do
begin
if (frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>') or (frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>') then
begin
// ShowMessage(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring+t_op_railway1.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring);
if t_op_railway1.DataSet.FindField('װ<>˷<EFBFBD>ʽ')<>nil then begin
if pos('<27><>Ʊ',t_op_railway1.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring)>0 then begin
end else begin
consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
end;
end else begin
consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
end;
end
else
begin
consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
end;
frm_data_share.t_code_empty.next;
end;
end;
procedure Tfrm_op_railway.Notebook1PageChanged(Sender: TObject);
begin
if Notebook1.PageIndex<>0 then
begin
setconcolor;
end;
end;
procedure Tfrm_op_railway.DBComboBoxEh1Change(Sender: TObject);
begin
if t_op_railway1.DataSet=nil then
exit;
if (t_op_railway1.DataSet.state=dsinsert)or(t_op_railway1.DataSet.state=dsedit)then
begin
if DBComboBoxEh1.Text='' then
exit;
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',DBComboBoxEh1.Text,[]) then
t_op_railway1.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_railway.DBComboBoxEh1DropDown(Sender: TObject);
var AdoQuery1:TAdoQuery;
begin
DBComboBoxEh1.items.clear;
AdoQuery1:=CreateAdoQuery;
with AdoQuery1 do
try
Close;sql.Clear;
SQL.Add('select * from t_sys_employee where ״̬=''<27><>ְ''');
SQL.Add('Order by <20><><EFBFBD><EFBFBD>');
Open;first;
while not Eof do
begin
DBComboBoxEh1.Items.Add(AdoQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
Next;
end;
finally
Free;
end;
end;
procedure Tfrm_op_railway.DBEdit49Change(Sender: TObject);
begin
DBEdit49.Color:=dxgrid_color('<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>',DBEdit49.text);
end;
procedure Tfrm_op_railway.bsSkinButton21Click(Sender: TObject);
begin
try
frm_op_givectn_add:=tfrm_op_givectn_add.Create (self);
frm_op_givectn_add.DataSource1.dataset:=t_op_railway1.dataset;
frm_op_givectn_add.ShowModal;
finally
frm_op_givectn_add.Free;
frm_op_givectn_add:=nil;
end;
end;
procedure Tfrm_op_railway.DBEdit50Change(Sender: TObject);
begin
{
if t_op_railway1.DataSet=nil then
exit;
if Trim(DBEdit50.Text)='' then begin
DBEdit10.ReadOnly:=false;
DBEdit10.Color:=clWindow;
end else begin
DBEdit10.ReadOnly:=true;
DBEdit10.Color:=clBtnFace;
end;
}
end;
procedure Tfrm_op_railway.N31Click(Sender: TObject);
begin
if t_op_railway1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='' then begin
t_op_railway1.DataSet.edit;
t_op_railway1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_op_railway1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').asdatetime:=Date;
t_op_railway1.DataSet.post;
end else begin
ShowMessage('<27>˴<EFBFBD><CBB4><EFBFBD>״̬<D7B4>²<EFBFBD><C2B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡');
end;
end;
procedure Tfrm_op_railway.DBEdit51Change(Sender: TObject);
begin
if wwDBComboBox4.text<>'<27><>·<EFBFBD><C2B7>Ʊ' then begin
if (trim(DBEdit51.text)='') or (trim(DBEdit51.text)='0') then
begin
DBEdit10.ReadOnly:=false;
DBEdit10.Color:=clWindow;
RxDBLookupCombo3.Color:=clWindow;
RxDBLookupCombo3.ReadOnly:=false;
end else begin
DBEdit10.ReadOnly:=true;
DBEdit10.Color:=clBtnFace;
RxDBLookupCombo3.Color:=clWindow;
RxDBLookupCombo3.ReadOnly:=false;
end;
end;
end;
procedure Tfrm_op_railway.bsSkinButton19Click(Sender: TObject);
var
seabandini:tinifile ;
begin
seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'GroupBoxVisible.ini');
try
seabandini.Writebool('railway','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',bsSkinCheckRadioBox1.Checked);
seabandini.Writebool('railway','ɽ<>ڿڰ<DABF><DAB0><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>ת<EFBFBD><D7AA>Ϣ',bsSkinCheckRadioBox2.Checked);
seabandini.Writebool('railway','<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',bsSkinCheckRadioBox3.Checked);
seabandini.Writebool('railway','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',bsSkinCheckRadioBox4.Checked);
bsSkinGroupBox3.Visible:=bsSkinCheckRadioBox1.Checked;
bsSkinGroupBox4.Visible:=bsSkinCheckRadioBox2.Checked;
bsSkinGroupBox7.Visible:=bsSkinCheckRadioBox3.Checked;
bsSkinExPanel1.Visible:=bsSkinCheckRadioBox4.Checked;
t_op_railway1.DataSet.Edit;
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=bsSkinCheckRadioBox6.Checked;
t_op_railway1.DataSet['½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=bsSkinCheckRadioBox7.Checked;
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=bsSkinCheckRadioBox8.Checked;
t_op_railway1.DataSet.post;
if t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean
or t_op_railway1.DataSet.FieldByName('½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean
or t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
begin
bsSkinExPanel2.Visible:=true;
end
else
begin
bsSkinExPanel2.Visible:=false;
end;
if t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
begin
bsSkinGroupBox8.Visible:=true;
end
else
begin
bsSkinGroupBox8.Visible:=false;
end;
if t_op_railway1.DataSet.FieldByName('½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
begin
bsSkinGroupBox9.Visible:=true;
end
else
begin
bsSkinGroupBox9.Visible:=false;
end;
if t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
begin
bsSkinGroupBox11.Visible:=true;
end
else
begin
bsSkinGroupBox11.Visible:=false;
end;
finally
bsSkinGroupBox6.Visible:=false;
freeandnil(seabandini);
end;
end;
procedure Tfrm_op_railway.bsSkinButton20Click(Sender: TObject);
begin
bsSkinGroupBox6.Visible:=false;
end;
procedure Tfrm_op_railway.bsSkinButton18Click(Sender: TObject);
begin
bsSkinGroupBox6.Visible:=true;
bsSkinCheckRadioBox6.Checked:=t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean;
bsSkinCheckRadioBox7.Checked:=t_op_railway1.DataSet.FieldByName('½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean;
bsSkinCheckRadioBox8.Checked:=t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean;
end;
procedure Tfrm_op_railway.RxDBLookupCombo4Change(Sender: TObject);
begin
if RxDBLookupCombo4.text='<27><>˾<EFBFBD>Ա<EFBFBD><D4B1><EFBFBD>' then begin
DBEdit10.ReadOnly:=true;
DBEdit10.Color:=clBtnFace;
RxDBLookupCombo3.Color:=clBtnFace;
RxDBLookupCombo3.ReadOnly:=true;
bsSkinButton21.Enabled:=true;
end else if RxDBLookupCombo4.text='<27>ͻ<EFBFBD><CDBB>Ա<EFBFBD><D4B1><EFBFBD>' then begin
DBEdit10.ReadOnly:=false;
DBEdit10.Color:=clWindow;
RxDBLookupCombo3.Color:=clWindow;
RxDBLookupCombo3.ReadOnly:=false;
bsSkinButton21.Enabled:=false;
end else if RxDBLookupCombo4.text='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
DBEdit10.ReadOnly:=true;
DBEdit10.Color:=clBtnFace;
RxDBLookupCombo3.Color:=clBtnFace;
RxDBLookupCombo3.ReadOnly:=true;
bsSkinButton21.Enabled:=true;
end else begin
DBEdit10.ReadOnly:=false;
DBEdit10.Color:=clWindow;
RxDBLookupCombo3.Color:=clWindow;
RxDBLookupCombo3.ReadOnly:=false;
bsSkinButton21.Enabled:=false;
end;
end;
procedure Tfrm_op_railway.t_railfcdatechange(Sender: TField);
begin
if sender.DataSet.State in [dsedit,dsinsert] then begin
if (not sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull) and (not sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull) then begin
sender.DataSet.fieldbyname('<27>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD>').AsInteger:=DaysBetween(sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime,sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime)+1;
end;
end;
end;
procedure Tfrm_op_railway.t_op_railway_fenBeforeDelete(DataSet: TDataSet);
var
aQuery,aQuery2:TADOQuery;
begin
op_befor_post(t_op_railway_fen,'0006');
if (t_op_railway_fen.FieldByName('ctnid').AsString<>'') then begin
aQuery:=CreateAdoQuery;
aQuery2:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add(' delete from t_op_ctnmg_status where ctnid='+t_op_railway_fen.FieldByName('ctnid').AsString+' and <20><>̬<EFBFBD><CCAC><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
ExecSQL;
aQuery2.SQL.Text:='select top 1 * from t_op_ctnmg_status where ctnid='+t_op_railway_fen.FieldByName('ctnid').AsString+' order by <20><>̬ʱ<CCAC><CAB1> DESC ';
aQuery2.Open;
if aQuery2.IsEmpty then begin
Close;SQL.Clear;
SQL.Add(' update t_op_ctnmg_detail set <20><>ǰ<EFBFBD><C7B0>̬=''<27><><EFBFBD><EFBFBD>'',<2C><><EFBFBD><EFBFBD>=0,ί<>б<EFBFBD><D0B1><EFBFBD>='''',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='''' where ctnid='+t_op_railway_fen.FieldByName('ctnid').AsString);
ExecSQL;
end else begin
Close;SQL.Clear;
SQL.Add(' update t_op_ctnmg_detail set <20><>ǰ<EFBFBD><C7B0>̬='''+aQuery2.fieldbyname('<27><>̬<EFBFBD><CCAC><EFBFBD><EFBFBD>').AsString+''',<2C><>̬ʱ<CCAC><CAB1>='''+aQuery2.fieldbyname('<27><>̬ʱ<CCAC><CAB1>').AsString+''',<2C><><EFBFBD><EFBFBD>=0,ί<>б<EFBFBD><D0B1><EFBFBD>='''',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='''' where ctnid='+t_op_railway_fen.FieldByName('ctnid').AsString);
ExecSQL;
end;
end;
finally
FreeAndNil(aQuery);
FreeAndNil(aQuery2);
end;
end;
end;
procedure Tfrm_op_railway.N44Click(Sender: TObject);
var i :Integer;
yjid:array of string ;
val,fenbsno:string ;
can_do:boolean;
gdo,xdo:smallint;
begin
if t_op_railway1.DataSet.IsEmpty then
exit;
if (Notebook1.PageIndex=1) then begin
if not do_data('0006',t_op_railway1.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_railway1.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
,'no'
,'no') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
exit;
end;
if t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>״̬<D7B4><CCAC>');
exit;
end;
t_ch_fee.close;
t_ch_fee.Parameters[0].value:=t_op_railway1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_ch_fee.open;
can_do:=true;
t_ch_fee.first;
while not t_ch_fee.eof do
begin
if can_do then
begin
if (t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>еķ<D0B5><C4B7><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ܷ<EFBFBD><DCB7>÷<EFBFBD><C3B7>ʣ<EFBFBD>');
continue;;
end;
end;
t_ch_fee.next;
end;
if can_do then
begin
prnlist:=true;
try
t_op_railway1.DataSet.edit;
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
t_op_railway1.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if (gdo<>0) or (xdo<>0) then begin
if trim(t_op_railway1.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(t_op_railway1.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then begin
if t_op_railway1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_railway1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
end;
t_op_railway1.DataSet.post;
finally
prnlist:=false;
end;
end;
end else begin
setlength(yjid,cxGrid1DBTableView1.Controller.SelectedRowCount);
frm_op_railway.t_op_railway.DisableControls;
cxGrid1DBTableView1.BeginUpdate ;
try
for i:=0 to cxGrid1DBTableView1.Controller.SelectedRowCount-1 do
begin //<2F><><EFBFBD><EFBFBD><EFBFBD>Ƶ<EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>
val:=cxGrid1DBTableView1.DataController.GetDisplayText(cxGrid1DBTableView1.Controller.SelectedRows[I].RecordIndex,0) ;
yjid[i]:=val ;
end; //<2F>õ<EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD>е<EFBFBD>ֵ
for i:=0 to high(yjid) do
begin
if t_op_railway.Locate('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',yjid[i],[]) then
begin
if not do_data('0006',t_op_railway1.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_railway1.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
,'no'
,'no') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
continue;;
end;
if t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>״̬<D7B4><CCAC>');
continue;;
end;
t_ch_fee.close;
t_ch_fee.Parameters[0].value:=t_op_railway1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_ch_fee.open;
can_do:=true;
t_ch_fee.first;
while not t_ch_fee.eof do
begin
if can_do then
begin
if (t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>еķ<D0B5><C4B7><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ܷ<EFBFBD><DCB7>÷<EFBFBD><C3B7>ʣ<EFBFBD>');
continue;;
end;
end;
t_ch_fee.next;
end;
gdo:=strtoint(get_parameters_value(137,'0'));
xdo:=strtoint(get_parameters_value(138,'0'));
t_ch_fee.close;
if can_do then
begin
prnlist:=true;
try
t_op_railway1.DataSet.edit;
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
t_op_railway1.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if (gdo<>0) or (xdo<>0) then begin
if trim(t_op_railway1.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(t_op_railway1.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then begin
if t_op_railway1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_railway1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
end;
t_op_railway1.DataSet.post;
finally
prnlist:=false;
end;
end;
end ;
end ;
finally
cxGrid1DBTableView1.EndUpdate ;
bsSkinPanel5.Visible:=False;
frm_op_railway.t_op_railway.EnableControls;
end;
end;
end;
procedure Tfrm_op_railway.N46Click(Sender: TObject);
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>
if t_op_railway1.DataSet.IsEmpty then
exit;
if not do_data('0006',t_op_railway1.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_railway1.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
,'no'
,'no') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
exit;
end;
if t_op_railway1.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊҵ<CEAA><D2B5><EFBFBD><EFBFBD><EFBFBD>ʣ<EFBFBD>');
exit;
end;
try
t_op_railway1.DataSet.edit;
t_op_railway1.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_op_railway1.DataSet.post;
finally
end;
end;
procedure Tfrm_op_railway.RxDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo2);
end;
procedure Tfrm_op_railway.RxDBLookupCombo2Enter(Sender: TObject);
begin
RxLookupComboEnter(TRxDBLookupCombo(Sender));
end;
function Tfrm_op_railway.getband(bandid: integer): boolean;
begin
{
if bandid=1 then result:=band1 else
if bandid=2 then result:=band2 else
if bandid=3 then result:=band3 else
if bandid=4 then result:=band4 else
if bandid=5 then result:=band5 else
if bandid=6 then result:=band6 else
if bandid=7 then result:=band7 else
if bandid=8 then result:=band8 else
result:=true ;
}
end;
procedure Tfrm_op_railway.RxDBLookupCombo23Enter(Sender: TObject);
begin
RxLookupComboEnter(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_railway.RxDBLookupCombo23Exit(Sender: TObject);
begin
RxLookupComboExit(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_railway.bsSkinButton22Click(Sender: TObject);
begin
frm_main.view_momo(t_op_railway1,'<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>');
end;
procedure Tfrm_op_railway.DBEdit1Change(Sender: TObject);
begin
//
if t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean
or t_op_railway1.DataSet.FieldByName('½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean
or t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
begin
bsSkinExPanel2.Visible:=true;
end
else
begin
bsSkinExPanel2.Visible:=false;
end;
if t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
begin
bsSkinGroupBox8.Visible:=true;
end
else
begin
bsSkinGroupBox8.Visible:=false;
end;
if t_op_railway1.DataSet.FieldByName('½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
begin
bsSkinGroupBox9.Visible:=true;
end
else
begin
bsSkinGroupBox9.Visible:=false;
end;
if t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
begin
bsSkinGroupBox11.Visible:=true;
end
else
begin
bsSkinGroupBox11.Visible:=false;
end;
end;
procedure Tfrm_op_railway.RxDBLookupCombo25Enter(Sender: TObject);
begin
RxLookupComboEnter_Localport(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_railway.RxDBLookupCombo25Exit(Sender: TObject);
begin
RxLookupComboexit_Localport(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_railway.RxDBLookupCombo28Enter(Sender: TObject);
begin
RxLookupComboEnter_Localport(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_railway.RxDBLookupCombo28Exit(Sender: TObject);
begin
RxLookupComboexit_Localport(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_railway.RxDBLookupCombo24Enter(Sender: TObject);
begin
RxLookupComboEnter(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_railway.RxDBLookupCombo24Exit(Sender: TObject);
begin
RxLookupComboExit(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_railway.RxDBLookupCombo21Enter(Sender: TObject);
begin
RxLookupComboEnter(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_railway.RxDBLookupCombo21Exit(Sender: TObject);
begin
RxLookupComboExit(TRxDBLookupCombo(Sender));
end;
procedure Tfrm_op_railway.bsSkinButton23Click(Sender: TObject);
begin
// ShowMessage(IntToStr(frm_op_railway.cxGrid1DBTableView1.Controller.SelectedRowCount));
// ShowMessage(IntToStr(frm_op_railway.cxGrid1DBTableView3.Controller.SelectedRowCount));
// Exit;
try
frm_op_railway_batchfee:=tfrm_op_railway_batchfee.Create (self);
frm_op_railway_batchfee.yelx:='M';
frm_op_railway_batchfee.ShowModal;
finally
frm_op_railway_batchfee.Free;
frm_op_railway_batchfee:=nil;
end;
end;
procedure Tfrm_op_railway.DBComboBoxEh2DropDown(Sender: TObject);
var AdoQuery1:TAdoQuery;
begin
TDBComboBoxEh(Sender).items.clear;
AdoQuery1:=CreateAdoQuery;
with AdoQuery1 do
try
Close;sql.Clear;
SQL.Add('select * from t_sys_employee where ״̬=''<27><>ְ''');
SQL.Add('Order by <20><><EFBFBD><EFBFBD>');
Open;first;
while not Eof do
begin
TDBComboBoxEh(Sender).Items.Add(AdoQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
Next;
end;
finally
Free;
end;
end;
procedure Tfrm_op_railway.DBComboBoxEh3Change(Sender: TObject);
begin
if (t_op_railway.state=dsinsert)or(t_op_railway.state=dsedit)then
begin
if DBComboBoxEh3.text='' then
exit;
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',DBComboBoxEh3.text,[]) then
t_op_railway['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_railway.bsSkinButton24Click(Sender: TObject);
begin
try
frm_op_railway_batchfee:=tfrm_op_railway_batchfee.Create (self);
frm_op_railway_batchfee.yelx:='H';
frm_op_railway_batchfee.ShowModal;
finally
frm_op_railway_batchfee.Free;
frm_op_railway_batchfee:=nil;
end;
end;
procedure Tfrm_op_railway.N48Click(Sender: TObject);
var
i,gdo,xdo:Integer;
can_do:Boolean;
begin
if t_op_railway_fen1.DataSet.IsEmpty then
exit;
if dxDBGrid2.SelectedCount >= 1 then
begin
try
for i := 0 to dxDBGrid2.SelectedCount - 1 do
begin
t_op_railway_fen1.DataSet.GotoBookmark(pointer(dxDBGrid2.selectedrows[i]));
if not do_data('0006',t_op_railway_fen1.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_railway_fen1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_railway_fen1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_railway_fen1.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
,'no'
,'no') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
continue;;
end;
if t_op_railway_fen1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>״̬<D7B4><CCAC>');
continue;;
end;
t_ch_fee.close;
t_ch_fee.Parameters[0].value:=t_op_railway_fen1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_ch_fee.open;
can_do:=true;
t_ch_fee.first;
while not t_ch_fee.eof do
begin
if can_do then
begin
if (t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>еķ<D0B5><C4B7><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ܷ<EFBFBD><DCB7>÷<EFBFBD><C3B7>ʣ<EFBFBD>');
continue;;
end;
end;
t_ch_fee.next;
end;
gdo:=strtoint(get_parameters_value(137,'0'));
xdo:=strtoint(get_parameters_value(138,'0'));
t_ch_fee.close;
if can_do then
begin
prnlist:=true;
try
t_op_railway_fen1.DataSet.edit;
t_op_railway_fen1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
t_op_railway_fen1.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if (gdo<>0) or (xdo<>0) then begin
if trim(t_op_railway_fen1.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if t_op_railway_fen1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_railway_fen1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_railway_fen1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(t_op_railway_fen1.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then begin
if t_op_railway_fen1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_railway_fen1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_railway_fen1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
end;
t_op_railway_fen1.DataSet.post;
finally
prnlist:=false;
end;
end;
end ;
finally
// frm_op_railway.t_op_railway.EnableControls;
end;
end;
end;
procedure Tfrm_op_railway.bsSkinButton25Click(Sender: TObject);
begin
bsSkinPanel6.Visible:=true;
end;
procedure Tfrm_op_railway.bsSkinButton27Click(Sender: TObject);
begin
bsSkinPanel6.Visible:=false;
end;
procedure Tfrm_op_railway.bsSkinButton26Click(Sender: TObject);
var i :Integer;
yjid:array of string ;
val,fenbsno:string ;
aAdoUpdate : TADOQuery;
begin
if dxDBGrid2.SelectedCount < 1 then
begin
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD>޸ĵķ<C4B5>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
exit;
end; ;
aAdoUpdate :=CreateAdoQuery;
try
t_op_railway_fen.DisableControls;
for i := 0 to dxDBGrid2.SelectedCount - 1 do
begin
t_op_railway_fen.GotoBookmark(pointer(dxDBGrid2.selectedrows[i]));
with aAdoUpdate do
begin
Close;SQL.Clear;
SQL.Add('Update t_op_railway set <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=<3D>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ ');
if (bsSkinComboBox2.Text<>'') and (bsSkinDateEdit2.Text<>'') then
SQL.Add(', '+bsSkinComboBox2.Text+'='''+FormatDateTime('YYYY-MM-DD',bsSkinDateEdit2.Date)+'''');
if (wwDBLookupCombo11.Text<>'') then
SQL.Add(', <20><>վ<EFBFBD><D5BE><EFBFBD><EFBFBD>='''+wwDBLookupCombo11.Text+'''');
if (Edit1.Text<>'') then
SQL.Add(', <20><>վ='''+Edit1.Text+'''');
if (wwDBLookupCombo13.Text<>'') then
SQL.Add(', <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+wwDBLookupCombo13.Text+'''');
if (Edit2.Text<>'') then
SQL.Add(', <20><><EFBFBD><EFBFBD>վ='''+Edit2.Text+'''');
if (wwDBLookupCombo12.Text<>'') then
SQL.Add(', ʼ<><CABC>վ='''+wwDBLookupCombo12.Text+'''');
if (wwDBDateTimePicker46.Text<>'') then
SQL.Add(', ʼ<><CABC>վ<EFBFBD><D5BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+wwDBDateTimePicker46.Text+'''');
if (Edit3.Text<>'') then
SQL.Add(', Ʒ<><C6B7>='''+Edit3.Text+'''');
if (Edit4.Text<>'') and (Edit4.Text<>'0') then
SQL.Add(', <20><><EFBFBD><EFBFBD>='+Edit4.Text);
if (RxDBLookupCombo8.DisplayValue<>'') then
SQL.Add(', <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+RxDBLookupCombo8.DisplayValue);
SQL.Add('where <20><><EFBFBD><EFBFBD>=:bsno');
Parameters.ParamByName('bsno').Value:=t_op_railway_fen.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
ExecSQL;
end;
end;
t_op_railway_fen.Refresh();
finally
bsSkinPanel6.Visible:=False;
FreeAndNil(aAdoUpdate);
t_op_railway_fen.EnableControls;
end;
end;
procedure Tfrm_op_railway.wwDBLookupCombo11Change(Sender: TObject);
begin
if wwDBLookupCombo11.text='' then
exit;
if frm_data_share.t_code_railport.locate('<27>ڰ<EFBFBD><DAB0><EFBFBD><EFBFBD><EFBFBD>',wwDBLookupCombo11.text,[]) then begin
Edit1.Text:=frm_data_share.t_code_railport['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_railway.wwDBLookupCombo13Change(Sender: TObject);
begin
if wwDBLookupCombo13.text='' then
exit;
if frm_data_share.t_code_railport.locate('<27>ڰ<EFBFBD><DAB0><EFBFBD><EFBFBD><EFBFBD>',wwDBLookupCombo13.text,[]) then begin
Edit2.Text:=frm_data_share.t_code_railport['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_railway.bsSkinButton28Click(Sender: TObject);
var
Ext,adate,bsno,corp,vslvoy:String;
ExcelTemplet:Variant;
i,j:integer;
M,D,Y:Word;
imp:boolean;
begin
if OpenDialog1.Execute then begin
Ext:=lowercase(ExtractFileExt(OpenDialog1.FileName));
if (Ext='.xls') or (Ext='.xlsx') then begin
ExcelTemplet:= CreateOleObject('Excel.Application');
try
ExcelTemplet.Workbooks.Open(OpenDialog1.FileName);
frm_op_railway.t_op_railway_fen.DisableControls;
for i:=0 to frm_op_railway.dxDBGrid2.SelectedCount-1 do
begin
frm_op_railway.t_op_railway_fen.GotoBookmark(pointer(frm_op_railway.dxDBGrid2.selectedrows[i]));
if VartoStr(ExcelTemplet.ActiveSheet.Cells[I+2,1].Value)<>'' then begin
t_op_railway_fen.Edit;
t_op_railway_fen['<27><><EFBFBD><EFBFBD>']:=ExcelTemplet.ActiveSheet.Cells[I+2,1].Value;
t_op_railway_fen['<27><><EFBFBD><EFBFBD>']:=ExcelTemplet.ActiveSheet.Cells[I+2,2].Value;
t_op_railway_fen['<27><>Դ']:=ExcelTemplet.ActiveSheet.Cells[I+2,3].Value;
v_op_ctnmg_detail.Close;
v_op_ctnmg_detail.sql.text:='select * from v_op_ctnmg_detail where <20><>ǰ<EFBFBD><C7B0>̬=''<27><><EFBFBD><EFBFBD>'' and <20><><EFBFBD><EFBFBD>='''+vartostr(ExcelTemplet.ActiveSheet.Cells[I+2,1].Value)+'''';
v_op_ctnmg_detail.Open;
if not v_op_ctnmg_detail.IsEmpty then t_op_railway_fen['ctnid']:=t_op_railway_fen['ctnid'];
t_op_railway_fen.Post;
if not v_op_ctnmg_detail.IsEmpty then begin
v_op_ctnmg_detail.edit;
v_op_ctnmg_detail.FieldByName('<27><>ǰ<EFBFBD><C7B0>̬').AsString:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
v_op_ctnmg_detail.FieldByName('<27><>̬ʱ<CCAC><CAB1>').AsDateTime:=Date;
v_op_ctnmg_detail.FieldByName('<27><><EFBFBD><EFBFBD>').AsBoolean:=True;
v_op_ctnmg_detail.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring:=t_op_railway_fen.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring;
v_op_ctnmg_detail.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring:=t_op_railway_fen.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').asstring;;
v_op_ctnmg_detail.post;
t_op_ctnmg_status.Close;
t_op_ctnmg_status.Open;
t_op_ctnmg_status.Insert;
t_op_ctnmg_status['ctnid']:=v_op_ctnmg_detail['ctnid'];
t_op_ctnmg_status['<27><>̬<EFBFBD><CCAC><EFBFBD><EFBFBD>']:=v_op_ctnmg_detail['<27><>ǰ<EFBFBD><C7B0>̬'];
t_op_ctnmg_status['<27><>̬ʱ<CCAC><CAB1>']:=v_op_ctnmg_detail['<27><>̬ʱ<CCAC><CAB1>'];
t_op_ctnmg_status['״̬']:=v_op_ctnmg_detail['<27><>ǰ״̬'];
t_op_ctnmg_status['<27>ᵥ<EFBFBD><E1B5A5>']:=v_op_ctnmg_detail.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;
t_op_ctnmg_status['<27><><EFBFBD><EFBFBD>']:=v_op_ctnmg_detail['<27><><EFBFBD><EFBFBD>'];
t_op_ctnmg_status['<27><>ע']:=v_op_ctnmg_detail['<27><>ע'];
t_op_ctnmg_status['<27><><EFBFBD><EFBFBD>Ա']:=employee;
t_op_ctnmg_status['<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>']:=date;
t_op_ctnmg_status.Post;
end;
end;
end;
finally
ExcelTemplet.DisplayAlerts := false;//<2F>Ƿ<EFBFBD><C7B7><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>
ExcelTemplet.Quit;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD>
frm_op_railway.t_op_railway_fen.EnableControls;
end;
end;
end;
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɣ<EFBFBD>', mtConfirmation, [mbYes],0);
end;
end.
Reference in New Issue View Git Blame Copy Permalink