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 'master'
${ noResults }
DONGSHENG6/空运业务/u_op_aire - DX.pas

5306 lines
163 KiB
Plaintext
Raw Permalink 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.

{$INCLUDE t_main.inc}
unit u_op_aire;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, ExtCtrls, DB, ADODB, dxExEdtr, dxCntner, dxTL,
dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, RxLookup, StdCtrls, Mask, DBCtrls,
ComCtrls, bsSkinTabs, wwdblook, wwdbedit, Wwdotdot, Wwdbcomb,IniFiles,
wwdbdatetimepicker, u_fee, u_op_sate, Menus, XPMenu, u_op_letter_free,
bsdbctrls, DBCtrlsEh, Grids, DBGrids, u_op_card,shellapi,IdFTP,IdFTPCommon,
cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxDBData, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxGridCustomView, cxGrid;
type
Tfrm_op_aire = 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_aire: TADOQuery;
t_op_aire1: TDataSource;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridDateColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridDateColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridDateColumn;
dxDBGrid1Column17: TdxDBGridMaskColumn;
dxDBGrid1Column18: TdxDBGridMaskColumn;
dxDBGrid1Column20: TdxDBGridMaskColumn;
dxDBGrid1Column21: TdxDBGridMaskColumn;
dxDBGrid1Column25: TdxDBGridMaskColumn;
dxDBGrid1Column26: TdxDBGridMaskColumn;
dxDBGrid1Column27: TdxDBGridMaskColumn;
dxDBGrid1Column28: TdxDBGridMaskColumn;
dxDBGrid1Column29: TdxDBGridMaskColumn;
dxDBGrid1Column30: TdxDBGridDateColumn;
dxDBGrid1Column31: TdxDBGridColumn;
dxDBGrid1Column19: TdxDBGridColumn;
dxDBGrid1Column23: TdxDBGridColumn;
dxDBGrid1Column22: TdxDBGridColumn;
dxDBGrid1Column24: TdxDBGridColumn;
bsSkinPanel1: TbsSkinPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label37: TLabel;
Label5: TLabel;
Label38: TLabel;
Label4: TLabel;
Label36: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit8: TDBEdit;
DBEdit4: TDBEdit;
RxDBLookupCombo1: TRxDBLookupCombo;
DBEdit7: TDBEdit;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinTabSheet3: TbsSkinTabSheet;
Label122: TLabel;
bsSkinButton26: TbsSkinButton;
DBMemo33: TDBMemo;
Label121: TLabel;
bsSkinButton25: TbsSkinButton;
DBMemo34: TDBMemo;
DBMemo35: TDBMemo;
bsSkinButton24: TbsSkinButton;
Label123: TLabel;
Label6: TLabel;
bsSkinButton23: TbsSkinButton;
DBMemo1: TDBMemo;
Label25: TLabel;
wwDBDateTimePicker2: TwwDBDateTimePicker;
Label26: TLabel;
DBEdit13: TDBEdit;
wwDBComboBox7: TwwDBComboBox;
Label29: TLabel;
Label30: TLabel;
wwDBComboBox8: TwwDBComboBox;
Label31: TLabel;
wwDBComboBox9: TwwDBComboBox;
DBEdit15: TDBEdit;
Label33: TLabel;
DBEdit14: TDBEdit;
Label32: TLabel;
Label7: TLabel;
RxDBLookupCombo15: TRxDBLookupCombo;
Label9: TLabel;
RxDBLookupCombo6: TRxDBLookupCombo;
Label10: TLabel;
RxDBLookupCombo7: TRxDBLookupCombo;
Label85: TLabel;
Label86: TLabel;
bsSkinGroupBox1: TbsSkinGroupBox;
Label87: TLabel;
Label88: TLabel;
DBEdit22: TDBEdit;
wwDBDateTimePicker3: TwwDBDateTimePicker;
Label8: TLabel;
Label23: TLabel;
RxDBLookupCombo8: TRxDBLookupCombo;
Label164: TLabel;
RxDBLookupCombo11: TRxDBLookupCombo;
Label24: TLabel;
DBEdit17: TDBEdit;
Label96: TLabel;
DBEdit30: TDBEdit;
Label97: TLabel;
DBEdit31: TDBEdit;
Label98: TLabel;
DBEdit56: TDBEdit;
Label99: TLabel;
DBEdit57: TDBEdit;
Label100: TLabel;
DBEdit63: TDBEdit;
Label101: TLabel;
DBEdit70: TDBEdit;
Label102: TLabel;
DBEdit71: TDBEdit;
Label103: TLabel;
DBEdit72: TDBEdit;
Label104: TLabel;
DBEdit73: TDBEdit;
Label105: TLabel;
DBEdit74: TDBEdit;
Label106: TLabel;
DBEdit75: TDBEdit;
Label107: TLabel;
DBEdit76: TDBEdit;
Label108: TLabel;
DBEdit77: TDBEdit;
Label109: TLabel;
DBMemo17: TDBMemo;
Label110: TLabel;
DBMemo18: TDBMemo;
Label111: TLabel;
DBMemo19: TDBMemo;
fra_fee1: Tfra_fee;
t_ch_fee: TADOQuery;
PopupMenu1: TPopupMenu;
N31: TMenuItem;
XPMenu1: TXPMenu;
fra_op_state1: Tfra_op_state;
dxDBGrid1Column32: TdxDBGridColumn;
Label16: TLabel;
wwDBComboBox3: TwwDBComboBox;
Label65: TLabel;
DBEdit18: TDBEdit;
dxDBGrid1Column33: TdxDBGridColumn;
bsSkinButton13: TbsSkinButton;
Label27: TLabel;
RxDBLookupCombo29: TRxDBLookupCombo;
RxDBLookupCombo30: TRxDBLookupCombo;
Label42: 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;
bsSkinTabSheet4: TbsSkinTabSheet;
fra_op_letter_free1: Tfra_op_letter_free;
wwDBLookupCombo52: TwwDBLookupCombo;
wwDBLookupCombo2: TwwDBLookupCombo;
N8: TMenuItem;
N9: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
dxDBGrid1Column34: TdxDBGridColumn;
bsSkinPanel2: TbsSkinPanel;
bsSkinDBText2: TbsSkinDBText;
Label28: TLabel;
DBEdit5: TDBEdit;
N25: TMenuItem;
N26: TMenuItem;
dxDBGrid1Column35: TdxDBGridColumn;
t_op_aire_fen: TADOQuery;
t_op_aire2: TDataSource;
bsSkinTabSheet5: TbsSkinTabSheet;
Label43: TLabel;
wwDBComboBox2: TwwDBComboBox;
t_op_aire_fen1: TDataSource;
PopupMenu4: TPopupMenu;
N29: TMenuItem;
N28: TMenuItem;
N27: TMenuItem;
N61: TMenuItem;
N76: TMenuItem;
N77: TMenuItem;
N78: TMenuItem;
N30: TMenuItem;
N32: TMenuItem;
N33: TMenuItem;
N39: TMenuItem;
N40: TMenuItem;
N41: TMenuItem;
N42: TMenuItem;
N43: TMenuItem;
N44: TMenuItem;
bsSkinTabSheet6: TbsSkinTabSheet;
bsSkinPageControl2: TbsSkinPageControl;
bsskintabsheet_1: TbsSkinTabSheet;
Label34: TLabel;
Label35: TLabel;
Label39: TLabel;
Label40: TLabel;
RxDBLookupCombo16: TRxDBLookupCombo;
bsSkinButton27: TbsSkinButton;
DBMemo3: TDBMemo;
bsSkinButton28: TbsSkinButton;
RxDBLookupCombo17: TRxDBLookupCombo;
DBMemo4: TDBMemo;
RxDBLookupCombo18: TRxDBLookupCombo;
bsSkinButton29: TbsSkinButton;
DBMemo5: TDBMemo;
bsSkinButton30: TbsSkinButton;
RxDBLookupCombo19: TRxDBLookupCombo;
DBMemo6: TDBMemo;
bsSkinButton39: TbsSkinButton;
wwDBLookupCombo6: TwwDBLookupCombo;
wwDBLookupCombo7: TwwDBLookupCombo;
wwDBLookupCombo8: TwwDBLookupCombo;
wwDBLookupCombo9: TwwDBLookupCombo;
bsskintabsheet_2: TbsSkinTabSheet;
dxDBGrid2: TdxDBGrid;
dxDBGrid2Column1: TdxDBGridMaskColumn;
dxDBGrid2Column2: TdxDBGridMaskColumn;
dxDBGrid2Column3: TdxDBGridMaskColumn;
dxDBGrid2Column4: TdxDBGridMaskColumn;
dxDBGrid2Column5: TdxDBGridMaskColumn;
dxDBGrid2Column6: TdxDBGridMaskColumn;
dxDBGrid2Column7: TdxDBGridDateColumn;
dxDBGrid2Column8: TdxDBGridMaskColumn;
dxDBGrid2Column9: TdxDBGridMaskColumn;
dxDBGrid2Column10: TdxDBGridMaskColumn;
dxDBGrid2Column11: TdxDBGridColumn;
dxDBGrid2Column12: TdxDBGridColumn;
dxDBGrid2Column13: TdxDBGridMaskColumn;
dxDBGrid2Column14: TdxDBGridMaskColumn;
dxDBGrid2Column15: TdxDBGridMaskColumn;
dxDBGrid2Column16: TdxDBGridMaskColumn;
Panel1: TPanel;
bsSkinButton31: TbsSkinButton;
bsSkinButton32: TbsSkinButton;
bsSkinButton33: TbsSkinButton;
bsSkinButton34: TbsSkinButton;
bsSkinButton36: TbsSkinButton;
RxDBLookupCombo2: TRxDBLookupCombo;
wwDBLookupCombo10: TwwDBLookupCombo;
RxDBLookupCombo3: TRxDBLookupCombo;
wwDBLookupCombo11: TwwDBLookupCombo;
RxDBLookupCombo4: TRxDBLookupCombo;
wwDBLookupCombo12: TwwDBLookupCombo;
RxDBLookupCombo5: TRxDBLookupCombo;
wwDBLookupCombo13: TwwDBLookupCombo;
N45: TMenuItem;
N46: TMenuItem;
RxDBLookupCombo12: TRxDBLookupCombo;
Label19: TLabel;
Label41: TLabel;
RxDBLookupCombo31: TRxDBLookupCombo;
Label44: TLabel;
DBEdit9: TDBEditEh;
Label45: TLabel;
DBEdit10: TDBEdit;
Label46: TLabel;
DBEdit12: TDBEdit;
Label47: TLabel;
DBEdit19: TDBEdit;
Label48: TLabel;
DBEdit20: TDBEdit;
bsSkinPanel9: TbsSkinPanel;
Label116: TLabel;
Label130: TLabel;
Label131: TLabel;
Label132: TLabel;
Edit1: TEdit;
Edit4: TEdit;
Edit2: TEdit;
Edit3: TEdit;
bsSkinButton44: TbsSkinButton;
N47: TMenuItem;
N48: TMenuItem;
N49: TMenuItem;
N50: TMenuItem;
N51: TMenuItem;
N52: TMenuItem;
bsSkinButton38: TbsSkinButton;
bsSkinTabSheet7: TbsSkinTabSheet;
t_op_seae_danwei: TADOQuery;
t_op_seae_danwei1: TDataSource;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
Label58: TLabel;
Label59: TLabel;
Label60: TLabel;
Label61: TLabel;
Label165: TLabel;
Label166: TLabel;
Label167: TLabel;
Label62: TLabel;
Label63: TLabel;
Label64: TLabel;
Label66: TLabel;
Label67: TLabel;
Label68: TLabel;
Label69: TLabel;
wwDBLookupCombo14: TwwDBLookupCombo;
DBEdit21: TDBEdit;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
wwDBDateTimePicker6: TwwDBDateTimePicker;
DBEdit27: TDBEdit;
wwDBDateTimePicker7: TwwDBDateTimePicker;
DBEdit28: TDBEdit;
RxDBLookupCombo10: TRxDBLookupCombo;
DBMemo39: TDBMemo;
DBMemo2: TDBMemo;
DBMemo40: TDBMemo;
DBMemo41: TDBMemo;
DBMemo42: TDBMemo;
DBMemo7: TDBMemo;
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
wwDBDateTimePicker10: TwwDBDateTimePicker;
RxDBLookupCombo14: TRxDBLookupCombo;
RxDBLookupCombo20: TRxDBLookupCombo;
DBMemo8: TDBMemo;
DBEdit29: TDBEdit;
DBEdit32: TDBEdit;
bsSkinTabSheet8: TbsSkinTabSheet;
Label70: TLabel;
DBEdit33: TDBEdit;
bsSkinPanel3: TbsSkinPanel;
bsSkinGroupBox2: TbsSkinGroupBox;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
DBEdit6: TDBEdit;
wwDBDateTimePicker1: TwwDBDateTimePicker;
wwDBLookupCombo3: TwwDBLookupCombo;
bsSkinGroupBox4: TbsSkinGroupBox;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
DBEdit16: TDBEdit;
wwDBDateTimePicker5: TwwDBDateTimePicker;
wwDBLookupCombo4: TwwDBLookupCombo;
bsSkinGroupBox3: TbsSkinGroupBox;
Label14: TLabel;
Label15: TLabel;
Label18: TLabel;
DBEdit11: TDBEdit;
wwDBDateTimePicker4: TwwDBDateTimePicker;
wwDBLookupCombo5: TwwDBLookupCombo;
fra_op_card1: Tfra_op_card;
bsSkinGroupBox5: TbsSkinGroupBox;
Label72: TLabel;
DBEdit34: TDBEdit;
Label71: TLabel;
RxDBLookupCombo21: TRxDBLookupCombo;
DBEdit35: TDBEdit;
Label73: TLabel;
wwDBDateTimePicker8: TwwDBDateTimePicker;
Label74: TLabel;
Label75: TLabel;
DBEdit36: TDBEdit;
Label76: TLabel;
DBEdit37: TDBEdit;
t_code_trade: TADOQuery;
t_code_trade1: TDataSource;
Label77: TLabel;
RxDBLookupCombo22: TRxDBLookupCombo;
Label78: TLabel;
RxDBLookupCombo23: TRxDBLookupCombo;
DBEdit38: TDBEdit;
DBEdit39: TDBEdit;
DBEdit40: TDBEdit;
DBEdit41: TDBEdit;
DBEdit42: TDBEdit;
DBEdit43: TDBEdit;
DBEdit44: TDBEdit;
DBEdit45: TDBEdit;
DBEdit46: TDBEdit;
DBEdit47: TDBEdit;
DBEdit48: TDBEdit;
DBEdit49: TDBEdit;
DBEdit50: TDBEdit;
DBEdit51: TDBEdit;
DBEdit52: TDBEdit;
DBEdit53: TDBEdit;
Bevel1: TBevel;
Label79: TLabel;
Label80: TLabel;
Label81: TLabel;
Label82: TLabel;
Label83: TLabel;
Label84: TLabel;
Bevel2: TBevel;
Bevel3: TBevel;
Label89: TLabel;
DBMemo9: TDBMemo;
Label90: TLabel;
wwDBDateTimePicker9: TwwDBDateTimePicker;
Label91: TLabel;
wwDBDateTimePicker11: TwwDBDateTimePicker;
bsSkinPanel10: TbsSkinPanel;
lblhbl: TLabel;
wwDBLookupCombo15: TwwDBLookupCombo;
Label17: TLabel;
RxDBLookupCombo13: TRxDBLookupCombo;
Label92: TLabel;
DBEdit54: TDBEdit;
bsSkinSpeedButton1: TbsSkinSpeedButton;
bsSkinPanel4: TbsSkinPanel;
lblwt: TLabel;
bsSkinPanel12: TbsSkinPanel;
lbldc: TLabel;
wwDBComboBox1: TwwDBComboBox;
N53: TMenuItem;
EXCEL1: TMenuItem;
Label93: TLabel;
RxDBLookupCombo9: TRxDBLookupCombo;
Label94: TLabel;
RxDBLookupCombo24: TRxDBLookupCombo;
Label95: TLabel;
RxDBLookupCombo25: TRxDBLookupCombo;
Label112: TLabel;
RxDBLookupCombo26: TRxDBLookupCombo;
N54: TMenuItem;
N55: TMenuItem;
PopupMenu5: TPopupMenu;
N56: TMenuItem;
N57: TMenuItem;
N58: TMenuItem;
t_ch_client1: TDataSource;
t_ch_client: TADOQuery;
bsSkinPanel5: TbsSkinPanel;
DBMemo10: TDBMemo;
Label113: TLabel;
DBMemo11: TDBMemo;
Label114: TLabel;
Label115: TLabel;
DBMemo12: TDBMemo;
Label117: TLabel;
DBMemo13: TDBMemo;
dxDBGrid2Column17: TdxDBGridColumn;
dxDBGrid1Column36: TdxDBGridColumn;
dxDBGrid1Column37: TdxDBGridColumn;
dxDBGrid1Column38: TdxDBGridColumn;
wwDBComboBox4: TwwDBComboBox;
Label118: TLabel;
dxDBGrid1Column39: TdxDBGridCheckColumn;
bsSkinPanel6: TbsSkinPanel;
bsSkinButton14: TbsSkinButton;
bsSkinButton45: TbsSkinButton;
N59: TMenuItem;
N60: TMenuItem;
t_op_file: TADOQuery;
dsrFuJian: TDataSource;
bsSkinGroupBox13: TbsSkinGroupBox;
bsSkinPanel14: TbsSkinPanel;
bsSkinButton48: TbsSkinButton;
bsSkinButton49: TbsSkinButton;
bsSkinButton50: TbsSkinButton;
bsSkinButton51: TbsSkinButton;
dxDBGrid3: TdxDBGrid;
dxDBGrid2fid: TdxDBGridMaskColumn;
dxDBGrid2rl_id: TdxDBGridMaskColumn;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridColumn2: TdxDBGridColumn;
dxDBGridColumn3: TdxDBGridColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridColumn4: TdxDBGridColumn;
dxDBGridColumn5: TdxDBGridColumn;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Label119: TLabel;
DBEdit55: TDBEdit;
N63: TMenuItem;
dxDBGrid1Column40: TdxDBGridColumn;
Label213: TLabel;
RxDBLookupCombo57: TRxDBLookupCombo;
Label210: TLabel;
wwDBDateTimePicker18: TwwDBDateTimePicker;
wwDBDateTimePicker19: TwwDBDateTimePicker;
Label120: TLabel;
dxDBGrid1Column41: TdxDBGridColumn;
dxDBGrid1Column42: TdxDBGridColumn;
N64: TMenuItem;
N65: TMenuItem;
bsSkinTabSheet9: TbsSkinTabSheet;
dxDBGrid4: TdxDBGrid;
t_ch_fee_web_dr: TADOQuery;
t_ch_fee_webdr1: TDataSource;
dxDBGrid4Column1: TdxDBGridColumn;
dxDBGrid4Column2: TdxDBGridColumn;
dxDBGrid4Column3: TdxDBGridColumn;
dxDBGrid4Column4: TdxDBGridColumn;
dxDBGrid4Column5: TdxDBGridColumn;
dxDBGrid4Column6: TdxDBGridColumn;
dxDBGrid4Column7: TdxDBGridColumn;
dxDBGrid4Column8: TdxDBGridColumn;
dxDBGrid5: TdxDBGrid;
dxDBGridColumn6: TdxDBGridColumn;
dxDBGridColumn7: TdxDBGridColumn;
dxDBGridColumn8: TdxDBGridColumn;
dxDBGridColumn9: TdxDBGridColumn;
dxDBGridColumn10: TdxDBGridColumn;
dxDBGridColumn11: TdxDBGridColumn;
dxDBGridColumn12: TdxDBGridColumn;
dxDBGridColumn13: TdxDBGridColumn;
Splitter1: TSplitter;
t_ch_fee_web_cr: TADOQuery;
t_ch_fee_web_cr1: TDataSource;
t_ch_fee_web_sum: TADOQuery;
t_ch_fee_web_sum1: TDataSource;
dxDBGrid6: TdxDBGrid;
dxDBGridColumn14: TdxDBGridColumn;
dxDBGridColumn15: TdxDBGridColumn;
dxDBGridColumn16: TdxDBGridColumn;
bsSkinButton12: TbsSkinButton;
dxDBGrid1Column43: TdxDBGridColumn;
Label124: TLabel;
wwDBDateTimePicker12: TwwDBDateTimePicker;
N66: TMenuItem;
N67: TMenuItem;
N62: TMenuItem;
N68: TMenuItem;
N69: TMenuItem;
Label125: TLabel;
RxDBLookupCombo28: TRxDBLookupCombo;
N70: TMenuItem;
N71: TMenuItem;
N72: TMenuItem;
N73: TMenuItem;
v_op_aire_detail1: TDataSource;
v_op_aire_detail: TADOQuery;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGrid1Level2: TcxGridLevel;
cxGrid1DBTableView2: TcxGridDBTableView;
cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
cxGrid1DBTableView2DBColumn1: 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;
cxGrid1DBTableView1DBColumn18: TcxGridDBColumn;
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;
cxGrid1DBTableView2DBColumn2: TcxGridDBColumn;
cxGrid1DBTableView2DBColumn3: TcxGridDBColumn;
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 bsSkinButton9Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure Panel2Resize(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure t_op_aireBeforeDelete(DataSet: TDataSet);
procedure t_op_aireBeforePost(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 DBEdit8KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit22KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker5KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker4KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo15KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox7KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox8KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox9KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit72KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit73KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit74KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit75KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit76KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit77KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit30KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit31KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit56KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit57KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit63KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit70KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit71KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2Change(Sender: TObject);
procedure DBEdit3Change(Sender: TObject);
procedure RxDBLookupCombo12KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo29KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo30KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo12Change(Sender: TObject);
procedure RxDBLookupCombo8Change(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 N7Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker3KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char);
procedure N9Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure t_op_aireBeforeEdit(DataSet: TDataSet);
procedure t_op_airePostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure t_op_aireBeforeCancel(DataSet: TDataSet);
procedure N21Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure dxDBGrid1Column34CustomDraw(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 wwDBComboBox3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
procedure N26Click(Sender: TObject);
procedure wwDBComboBox2Change(Sender: TObject);
procedure dxDBGrid2DblClick(Sender: TObject);
procedure bsSkinButton32Click(Sender: TObject);
procedure bsSkinButton33Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure bsSkinButton34Click(Sender: TObject);
procedure N27Click(Sender: TObject);
procedure N76Click(Sender: TObject);
procedure N78Click(Sender: TObject);
procedure bsSkinButton36Click(Sender: TObject);
procedure N33Click(Sender: TObject);
procedure N40Click(Sender: TObject);
procedure N42Click(Sender: TObject);
procedure N44Click(Sender: TObject);
procedure t_op_aire_fenAfterInsert(DataSet: TDataSet);
procedure t_op_aire_fenBeforeCancel(DataSet: TDataSet);
procedure t_op_aire_fenBeforeDelete(DataSet: TDataSet);
procedure t_op_aire_fenBeforeEdit(DataSet: TDataSet);
procedure t_op_aire_fenBeforePost(DataSet: TDataSet);
procedure t_op_aire_fenPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure bsSkinPageControl1Change(Sender: TObject);
procedure t_op_aire1DataChange(Sender: TObject; Field: TField);
procedure RxDBLookupCombo16Change(Sender: TObject);
procedure RxDBLookupCombo17Change(Sender: TObject);
procedure RxDBLookupCombo18Change(Sender: TObject);
procedure RxDBLookupCombo19Change(Sender: TObject);
procedure wwDBLookupCombo6Change(Sender: TObject);
procedure wwDBLookupCombo6Enter(Sender: TObject);
procedure wwDBLookupCombo6Exit(Sender: TObject);
procedure wwDBLookupCombo7Change(Sender: TObject);
procedure wwDBLookupCombo7Enter(Sender: TObject);
procedure wwDBLookupCombo7Exit(Sender: TObject);
procedure wwDBLookupCombo8Change(Sender: TObject);
procedure wwDBLookupCombo8Enter(Sender: TObject);
procedure wwDBLookupCombo8Exit(Sender: TObject);
procedure wwDBLookupCombo9Change(Sender: TObject);
procedure wwDBLookupCombo9Enter(Sender: TObject);
procedure wwDBLookupCombo9Exit(Sender: TObject);
procedure RxDBLookupCombo2Change(Sender: TObject);
procedure RxDBLookupCombo3Change(Sender: TObject);
procedure RxDBLookupCombo4Change(Sender: TObject);
procedure RxDBLookupCombo5Change(Sender: TObject);
procedure wwDBLookupCombo10Change(Sender: TObject);
procedure wwDBLookupCombo10Exit(Sender: TObject);
procedure wwDBLookupCombo11Change(Sender: TObject);
procedure wwDBLookupCombo11Exit(Sender: TObject);
procedure wwDBLookupCombo12Change(Sender: TObject);
procedure wwDBLookupCombo12Exit(Sender: TObject);
procedure wwDBLookupCombo13Change(Sender: TObject);
procedure wwDBLookupCombo13Exit(Sender: TObject);
procedure N46Click(Sender: TObject);
procedure RxDBLookupCombo9KeyPress(Sender: TObject; var Key: Char);
procedure DBEditEh1KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo16Enter(Sender: TObject);
procedure RxDBLookupCombo17Enter(Sender: TObject);
procedure RxDBLookupCombo18Enter(Sender: TObject);
procedure RxDBLookupCombo19Enter(Sender: TObject);
procedure RxDBLookupCombo16Exit(Sender: TObject);
procedure RxDBLookupCombo17Exit(Sender: TObject);
procedure RxDBLookupCombo18Exit(Sender: TObject);
procedure RxDBLookupCombo19Exit(Sender: TObject);
procedure wwDBComboBox2KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo52Change(Sender: TObject);
procedure bsSkinButton44Click(Sender: TObject);
procedure N49Click(Sender: TObject);
procedure N50Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure N52Click(Sender: TObject);
procedure RxDBLookupCombo2Enter(Sender: TObject);
procedure RxDBLookupCombo3Enter(Sender: TObject);
procedure RxDBLookupCombo4Enter(Sender: TObject);
procedure RxDBLookupCombo5Enter(Sender: TObject);
procedure RxDBLookupCombo2Exit(Sender: TObject);
procedure RxDBLookupCombo3Exit(Sender: TObject);
procedure RxDBLookupCombo4Exit(Sender: TObject);
procedure RxDBLookupCombo5Exit(Sender: TObject);
procedure bsSkinButton38Click(Sender: TObject);
procedure wwDBComboBox8Change(Sender: TObject);
procedure DBEdit19KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit20KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit33KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker8KeyPress(Sender: TObject; var Key: Char);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure RxDBLookupCombo1Enter(Sender: TObject);
procedure RxDBLookupCombo6Enter(Sender: TObject);
procedure RxDBLookupCombo21Enter(Sender: TObject);
procedure RxDBLookupCombo1Exit(Sender: TObject);
procedure RxDBLookupCombo6Exit(Sender: TObject);
procedure RxDBLookupCombo21Exit(Sender: TObject);
procedure DBEdit36KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit37KeyPress(Sender: TObject; var Key: Char);
procedure t_op_aireAfterOpen(DataSet: TDataSet);
procedure RxDBLookupCombo11Change(Sender: TObject);
procedure wwDBLookupCombo14Change(Sender: TObject);
procedure DBEdit21KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo22KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo22Enter(Sender: TObject);
procedure RxDBLookupCombo23Enter(Sender: TObject);
procedure RxDBLookupCombo22Exit(Sender: TObject);
procedure RxDBLookupCombo23Exit(Sender: TObject);
procedure DBEdit38KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit39KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit44KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit45KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit50KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit51KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit40KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit41KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit46KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit47KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit52KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit53KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit42KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit43KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit48KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit49KeyPress(Sender: TObject; var Key: Char);
procedure Notebook1PageChanged(Sender: TObject);
procedure DBEdit7DblClick(Sender: TObject);
procedure DBEdit7Exit(Sender: TObject);
procedure wwDBLookupCombo15Change(Sender: TObject);
procedure wwDBLookupCombo15KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit54KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinSpeedButton1Click(Sender: TObject);
procedure DBEdit8DblClick(Sender: TObject);
procedure DBEdit54DblClick(Sender: TObject);
procedure DBEdit8Exit(Sender: TObject);
procedure DBEdit54Exit(Sender: TObject);
procedure bsSkinButton31Click(Sender: TObject);
procedure wwDBComboBox1DropDown(Sender: TObject);
procedure RxDBLookupCombo31Change(Sender: TObject);
procedure wwDBComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure EXCEL1Click(Sender: TObject);
procedure RxDBLookupCombo9Change(Sender: TObject);
procedure N55Click(Sender: TObject);
procedure N56Click(Sender: TObject);
procedure N58Click(Sender: TObject);
procedure t_op_aire_fenAfterPost(DataSet: TDataSet);
procedure RxDBLookupCombo16KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo17KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo18KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo19KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo9KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo13KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo10KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo12KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox4KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton14Click(Sender: TObject);
procedure bsSkinButton45Click(Sender: TObject);
procedure N60Click(Sender: TObject);
procedure bsSkinButton48Click(Sender: TObject);
procedure bsSkinButton49Click(Sender: TObject);
procedure bsSkinButton50Click(Sender: TObject);
procedure bsSkinButton51Click(Sender: TObject);
procedure t_op_fileBeforeEdit(DataSet: TDataSet);
procedure wwDBDateTimePicker3Change(Sender: TObject);
procedure fra_fee1bsSkinButton9Click(Sender: TObject);
procedure DBEdit31DblClick(Sender: TObject);
procedure N63Click(Sender: TObject);
procedure fra_op_letter_free1bsSkinButton1Click(Sender: TObject);
procedure DBEdit8Change(Sender: TObject);
procedure N65Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure N67Click(Sender: TObject);
procedure N69Click(Sender: TObject);
procedure RxDBLookupCombo28Enter(Sender: TObject);
procedure RxDBLookupCombo28Exit(Sender: TObject);
procedure RxDBLookupCombo28KeyPress(Sender: TObject; var Key: Char);
procedure N71Click(Sender: TObject);
procedure N73Click(Sender: TObject);
private
procedure t_billfeecharge(Sender: TField);
procedure t_billOTfeecharge(Sender: TField);
procedure t_billfeettlcharge(Sender: TField);
procedure t_billfeedecharge(Sender: TField);
procedure t_billfeededcharge(Sender:TField);
procedure setconcolor;
{ Private declarations }
public
airassup:boolean;
airepsqlstr:widestring;
procedure UpLoadPro(fname:string); //fname<6D><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
procedure DownLoadPro(fname:string); //<2F><><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF>ı<EFBFBD><C4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
{ Public declarations }
end;
var
frm_op_aire: Tfrm_op_aire;
frm_op_aire_create:boolean;
implementation
uses u_main, my_sys_function, u_op_aire_add, u_data_share, u_sys_progress,
u_ch_piliang_aire, u_op_date_change, u_op_add_aire, u_op_aire_assistant,u_crm_query,
{$IFDEF DLFENZHANG}u_op_seae_fenzhang,{$ENDIF} u_sys_tab_sort,
u_op_seae_excel, u_ch_fee_zhupiao, u_op_Air_Goods,
u_code_fee_project_localair, u_sys_dep_emp_module;
{$R *.dfm}
procedure Tfrm_op_aire.bsSkinButton7Click(Sender: TObject);
begin
if t_op_aire1.DataSet=nil then
exit;
if not t_op_aire1.DataSet.Bof then
t_op_aire1.DataSet.Prior;
end;
procedure Tfrm_op_aire.bsSkinButton6Click(Sender: TObject);
begin
if t_op_aire1.DataSet=nil then
exit;
if not t_op_aire1.DataSet.eof then
t_op_aire1.DataSet.next;
end;
procedure Tfrm_op_aire.bsSkinButton2Click(Sender: TObject);
begin
if t_op_aire1.DataSet=nil then
exit;
if (t_op_aire1.DataSet.State=dsinsert)or(t_op_aire1.DataSet.State=dsedit) then
t_op_aire1.DataSet.post;
end;
procedure Tfrm_op_aire.bsSkinButton4Click(Sender: TObject);
begin
//ɾ<><C9BE>ǰ<EFBFBD>ж<EFBFBD><D0B6>Ƿ<EFBFBD><C7B7>з<EFBFBD><D0B7>úͷ<C3BA>Ʊ
if t_op_aire1.DataSet=nil then
exit;
if t_op_aire1.DataSet.IsEmpty then
exit;
t_ch_fee.close;
t_ch_fee.Parameters[0].value:=t_op_aire1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_ch_fee.open;
if not t_ch_fee.IsEmpty then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if t_op_aire1.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_aire_fen.IsEmpty then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>ڷ<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
t_op_aire1.DataSet.delete;
end;
procedure Tfrm_op_aire.bsSkinButton3Click(Sender: TObject);
begin
if t_op_aire1.DataSet=nil then
exit;
if (t_op_aire1.DataSet.State=dsinsert)or(t_op_aire1.DataSet.State=dsedit) then
t_op_aire1.DataSet.cancel;
end;
procedure Tfrm_op_aire.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_aire.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption);
savereggrid(dxdbgrid2,caption+'2');
savewwgrid(fra_fee1.wwDBGrid1,'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>Ӧ<EFBFBD><D3A6>');
savewwgrid(fra_fee1.wwDBGrid2,'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>Ӧ<EFBFBD><D3A6>');
{$IFDEF DLFENZHANG}
if assigned(frm_op_seae_fenzhang) then
begin
FreeAndNil(frm_op_seae_fenzhang);
end;
{$ENDIF}
if assigned(frm_op_aire_assistant) then
frm_op_aire_assistant.close;
frm_op_aire.Hide;
frm_op_aire.ManualFloat(frm_op_aire.BoundsRect );
frm_main.freeTabs('frm_op_aire');
frm_op_aire_create:=false;
action:=cafree;
frm_op_aire:=nil;
end;
procedure Tfrm_op_aire.bsSkinButton9Click(Sender: TObject);
begin
if strtobool(get_parameters_value(308,'false')) then
begin
if (t_op_aire.FieldByName('װ<>˷<EFBFBD>ʽ').AsString='<27><><EFBFBD>˵<EFBFBD>Ʊ') or (t_op_aire.FieldByName('װ<>˷<EFBFBD>ʽ').AsString='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ') then
begin
InsertProjectFeeItems('<27><>','<27><><EFBFBD><EFBFBD>',t_op_aire1);
end
else
begin
if t_op_aire.FieldByName('<27>˷Ѹ<CBB7><D1B8>ʽ').AsString='PP' then
begin
if trim(t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='' then
begin
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4>벻<EFBFBD><EBB2BB>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD>',mtWarning,[mbyes],0);
Exit;
end;
end
else
if t_op_aire.FieldByName('<27>˷Ѹ<CBB7><D1B8>ʽ').AsString='CC' then
begin
if trim(t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='' then
begin
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EBB2BB>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD>',mtWarning,[mbyes],0);
Exit;
end;
end;
InsertProjectFeeItems('<27><>','<27>ֵ<EFBFBD>',t_op_aire1);
end;
end;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_aire1,nil,nil,nil,t_op_aire_fen1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_aire.FormShow(Sender: TObject);
var
inifile1,seabandini:Tinifile;
i,j,n:integer;
sl:TStrings;
begin
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;
frm_sys_progress.bsSkinGauge1.MaxValue:=20;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
frm_sys_progress.Update;
Notebook1.PageIndex:=0;
DBEdit9.EditMask:=get_parameters_value(189,'');
// ί<>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>
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_aire_fen.Close;
t_op_aire.Close;
t_op_aire.SQL.clear;
if strtobool(get_parameters_value(132,'true')) then begin
//<2F><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>50Ʊҵ<C6B1><D2B5>
t_op_aire.SQL.Add('select top 50 * from t_op_aire where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''
+' or <20><><EFBFBD><EFBFBD>Ա='+''''+employee+''''
+' or <20>ͷ<EFBFBD>Ա='+''''+employee+''''+')'
+default_sort(55,'t_op_aire','','desc'));
end else begin
//<2F><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>Ȩ<EFBFBD>޵ı<DEB5><C4B1><EFBFBD>ҵ<EFBFBD><D2B5>
t_op_aire.SQL.Add('select * from t_op_aire where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+' SUBSTRING(CONVERT(char(15),һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7)='''+FormatDateTime('YYYY',Date)+'/'+FormatDateTime('MM',Date)+''' and '
+open_data('0003','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+default_sort(55,'t_op_aire','','desc'));
end;
t_op_aire.open;
t_op_aire_fen.Open;
airepsqlstr:='';
v_op_aire_detail.close;
v_op_aire_detail.sql.text:='select * from t_op_aire where <20><><EFBFBD><EFBFBD><><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD> in (select top 1000 '
+' <20><><EFBFBD><EFBFBD> from t_op_aire 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_aire_detail.open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
fra_op_letter_free1.op_type.Text:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
fra_op_letter_free1.t_op_letter.DataSource:=t_op_aire1;
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;
loadreggrid(dxdbgrid1,false,caption);
loadreggrid(dxdbgrid2,false,caption+'2');
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:='3';
fra_fee1.edit_data.text:='0003';
fra_fee1.edit_report.text:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
fra_fee1.t_ch_accept.DataSource:=t_op_aire1;
if strtobool(get_parameters_value(150,'false')) then
fra_fee1.bsSkinPanel3.Visible:=true;
fra_fee1.DBEdit48.DataSource:=t_op_aire1;
if if_open('297') then
begin
fra_fee1.t_ch_accept.DataSource:=t_op_aire1;
if (strtobool(get_parameters_value(153,'false'))=true) then begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('208')=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) ) and '+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end else 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 '
+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_accept.open;
end else begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('208')=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;
end;
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_aire1;
if (strtobool(get_parameters_value(153,'false'))=true) then begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('208')=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) ) and '+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end else 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 '
+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_pay.open;
end else begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('208')=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;
end;
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_aire1;
fra_fee1.t_op_gain.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>˳<EFBFBD><CBB3><EFBFBD>Ӧ<EFBFBD><D3A6>');
loadwwgrid(fra_fee1.wwDBGrid2,'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>Ӧ<EFBFBD><D3A6>');
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if if_reg(195) then
begin
fra_op_state1.edit_state.text:='3';
fra_op_state1.t_op_state.DataSource:=t_op_aire1;
fra_op_state1.t_op_state.open;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
fra_op_card1.t_op_card.DataSource:=t_op_aire1;
fra_op_card1.t_op_card.open;
t_op_seae_danwei.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_hangkong.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_crm_client_baoguan.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_daili.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_crm_client_tongzhi.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_source.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;
frm_data_share.t_code_currency.requery;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_data_share.t_code_port_air.requery;
t_code_trade.Open;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_op_aire_create:=true;
bsSkinTabSheet2.TabVisible:=if_open('297') or if_open('298');
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
bsSkinPanel9.Visible:=inifile1.Readbool('other','aedisp',false);
if bsSkinPanel9.Visible then begin
bsSkinPanel9.Visible:=true;
bsSkinButton13.Top:=3+bsSkinPanel9.Height;
end;
inifile1.free;
seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'bandno.ini');
sl:=TStringList.Create;
try
seabandini.ReadSection('airexp',sl);
for j:=0 to sl.Count-1 do begin
n:=seabandini.Readinteger('airexp',sl[j],0);
for i:=0 to bsSkinPageControl1.PageCount-1 do begin
if bsSkinPageControl1.Pages[i].Name=sl[j] then begin
bsSkinPageControl1.Pages[i].PageIndex:=n;
end;
end;
end;
finally
freeandnil(seabandini);
freeandnil(sl);
end;
{$IFDEF DLFENZHANG}
if not if_reg(194) then begin
bsSkinTabSheet6.TabVisible:=false;
end;
{$ELSE}
bsSkinTabSheet6.TabVisible:=false;
{$ENDIF}
{$IFDEF ZTGENGZONG}
if not if_reg(195) then begin
bsSkinTabSheet3.TabVisible:=false;
end;
{$ELSE}
bsSkinTabSheet3.TabVisible:=false;
{$ENDIF}
if if_open('304') then
begin
bsSkinTabSheet6.TabVisible:=true;
end
else
begin
bsSkinTabSheet6.TabVisible:=false;
end;
if strtobool(get_parameters_value(196,'false')) then
begin
bsSkinTabSheet9.TabVisible:=True;
N63.Visible:=true;
N65.Visible:=true;
t_ch_fee_web_dr.Close;
t_ch_fee_web_dr.Open;
t_ch_fee_web_cr.Close;
t_ch_fee_web_cr.Open;
t_ch_fee_web_sum.Close;
t_ch_fee_web_sum.Open;
end
else
begin
bsSkinTabSheet9.TabVisible:=false;
N63.Visible:=false;
N65.Visible:=false;
t_ch_fee_web_dr.Close;
t_ch_fee_web_cr.Close;
t_ch_fee_web_sum.Close;
end;
if strtobool(get_parameters_value(143,'false')) then
begin
N54.Visible:=true;
N55.Visible:=true;
end
else
begin
N54.Visible:=FALSE;
N55.Visible:=FALSE;
end;
airassup:=false;
frm_sys_progress.close;
frm_sys_progress:=nil;
DBEdit9.SetFocus;
end;
procedure Tfrm_op_aire.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>';
wwDBComboBox2.OnChange(nil);
Exit;
end;
if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>' then
begin
if (t_op_aire.State=dsinsert)or(t_op_aire.State=dsedit) then
BEGIN
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>޸ģ<DEB8><C4A3>Ƿ񱣴棿',mtWarning,mbYesNoCancel,0);
if answer=mrYes then
begin
t_op_aire.post;
end;
if answer=mrNo then
begin
t_op_aire.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_aire_fen.State=dsinsert)or(t_op_aire_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_aire_fen.post;
end;
if answer=mrNo then
begin
t_op_aire_fen.cancel;
end;
if answer=mrCancel then
begin
exit;
end;
END;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
try
t_op_aire1.Enabled:=false;
t_op_aire1.DataSet:=t_op_aire;
finally
t_op_aire1.Enabled:=true;
end;
Notebook1.PageIndex:=1;
exit;
end;
end;
procedure Tfrm_op_aire.bsSkinButton8Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton8.ClientToScreen(Point(0,bsSkinButton8.Height));
PopupMenu1.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_aire.Panel2Resize(Sender: TObject);
var
i:integer;
begin
//<2F><>ť<EFBFBD><C5A5><EFBFBD><EFBFBD>
i:=round(Panel2.Width/12);
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;
bsSkinButton13.Left:=Panel2.Width-bsSkinButton13.Width-20;
end;
procedure Tfrm_op_aire.bsSkinButton1Click(Sender: TObject);
begin
//<2F><><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5>
if t_op_aire1.DataSet=nil then
exit;
if (t_op_aire1.DataSet.State=dsinsert)or(t_op_aire1.DataSet.State=dsedit) then
t_op_aire1.DataSet.post;
try
frm_op_aire_add:=tfrm_op_aire_add.Create (self);
if t_op_aire1.DataSet=t_op_aire then
begin
frm_op_aire_add.data1.Enabled:=false;
frm_op_aire_add.data1.DataSet:=t_op_aire;
frm_op_aire_add.data1.Enabled:=true;
frm_op_aire_add_num:=1;
end
else
begin
frm_op_aire_add.data1.Enabled:=false;
frm_op_aire_add.data1.DataSet:=t_op_aire_fen;
frm_op_aire_add.data1.Enabled:=true;
frm_op_aire_add.bsSkinCheckRadioBox3.Checked:=true;
frm_op_aire_add.bsSkinCheckRadioBox2.Enabled:=false;
frm_op_aire_add.bsSkinCheckRadioBox4.Enabled:=true;
frm_op_aire_add_num:=2;
end;
if frm_op_aire_add.ShowModal<>mrCancel then begin
if not frm_op_aire.bsSkinTabSheet1.Showing then
frm_op_aire.bsSkinTabSheet1.Show;
end;
finally
frm_op_aire_add.Free;
end;
end;
procedure Tfrm_op_aire.t_op_aireBeforeDelete(DataSet: TDataSet);
begin
op_befor_post(t_op_aire,'0003');
delete_add(3,t_op_aire);
if not t_op_aire.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_aire['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_aire.t_op_aireBeforePost(DataSet: TDataSet);
var
aQuery:TAdoQuery;
begin
//<2F><>Ϊ<EFBFBD><CEAA>
table_before_post(t_op_aire,'ί<>е<EFBFBD>λ');
{
table_before_post(t_op_aire,'<27><><EFBFBD><EFBFBD>Ա');
table_before_post(t_op_aire,'<27>ͷ<EFBFBD>Ա');
}
if not strtobool(get_parameters_value(308,'false')) then
begin
table_before_post(t_op_aire,'һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
{
table_before_post(t_op_aire,'һ<>̺<EFBFBD><CCBA><EFBFBD>');
table_before_post(t_op_aire,'ʼ<><CABC><EFBFBD><EFBFBD>');
table_before_post(t_op_aire,'Ŀ<>ĸ<EFBFBD>');
}
// table_before_post(t_op_aire,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
if pos('ָ<><D6B8>',t_op_aire.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString)>0 then begin
end else begin
table_before_post(t_op_aire,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_aire,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
end;
table_before_post(t_op_aire,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
//ί<>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if strtobool(get_parameters_value(185,'false')) then
begin
if frm_data_share.t_sys_noset.Locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ί<>б<EFBFBD><D0B1><EFBFBD>',[]) then
begin
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
if t_op_aire.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_aire.fieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString)='') then
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_aire['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(3,subComp,department,employee,t_op_aire['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_aire['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(3,subComp,department,employee,t_op_aire['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
end;
end
else
begin
if (trim(t_op_aire.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring)='<27><><EFBFBD><EFBFBD>') then
begin
end
else
begin
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
if t_op_aire.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_aire.fieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString)='') then
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_aire['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(3,subComp,department,employee,t_op_aire['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_aire['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(3,subComp,department,employee,t_op_aire['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
end;
end;
{
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
if t_op_aire.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_aire['ί<>б<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_aire['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(3,subComp,department,employee,t_op_aire['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_aire['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(3,subComp,department,employee,t_op_aire['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
}
if op_empty('t_op_aire',t_op_aire) then
Abort;
if not strtobool(get_parameters_value(308,'false')) then
begin
if t_op_aire.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_aire.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
if (t_op_aire.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_aire.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
showmessage('<27>˿<EFBFBD><CBBF><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;
end
else
begin
if t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').oldvalue<>t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').asdatetime then
if (t_op_aire.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').asdatetime) then begin
showmessage('<27>˿<EFBFBD><CBBF><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;
end;
if t_op_aire.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_aire.FieldByName('ί<>е<EFBFBD>λ').asstring then
begin
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_aire.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_aire.State=dsinsert then
begin
if t_op_aire.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
begin
t_op_aire['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.AirExpBsNo,'AE'));
t_op_aire['<27><><EFBFBD><EFBFBD>']:=get_id;
end;
t_op_aire['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_aire['<27><><EFBFBD><EFBFBD>'];
t_op_aire['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_aire['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
end;
t_op_aire['Ӣ<>ĺ<EFBFBD><C4BA><EFBFBD>']:=date_eng(t_op_aire.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
if strtobool(get_parameters_value(40,'false')) then
begin
if (trim(t_op_aire.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').asstring)='') or (t_op_aire.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ') or (t_op_aire.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_aire['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_aire['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_aire['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_aire['<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>'];
end;
end
else
begin
t_op_aire['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_aire['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(41,'false')) then
begin
if (trim(t_op_aire.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').asstring)='') or (t_op_aire.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_aire['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_aire['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_aire['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_aire['<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>'];
end;
end
else
begin
t_op_aire['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_aire['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(42,'false')) then
begin
if (trim(t_op_aire.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='') or (t_op_aire.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ') or (t_op_aire.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_aire['ί<>б<EFBFBD>׼']:=t_op_aire['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_aire['ί<>б<EFBFBD>׼']:=t_op_aire['ί<>б<EFBFBD><D0B1><EFBFBD>'];
end;
end
else
begin
t_op_aire['ί<>б<EFBFBD>׼']:=t_op_aire['<27><><EFBFBD><EFBFBD>'];
end;
//<2F><><EFBFBD>س߸<D8B3><DFB8>ĺ<EFBFBD><C4BA><EFBFBD><EFBFBD>»<EFBFBD><C2BB><EFBFBD><EFBFBD>ᵥ
try
if (not airassup) and (t_op_aire.State in [dsedit]) then
if (t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD>').Value<>t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD>').oldValue) or (t_op_aire.FieldByName('<27><>λ').Value<>t_op_aire.FieldByName('<27><>λ').oldValue)
or (VarToStr(t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD>').Value)<>VarToStr(t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD>').oldValue)) or (VarToStr(t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD>').Value)<>VarToStr(t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD>').oldValue)) then begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
close;sql.clear;
sql.Add('select count(<28><><EFBFBD><EFBFBD>) as count from t_op_aire_assistant where <20><><EFBFBD><EFBFBD>='''+t_op_aire['<27><><EFBFBD><EFBFBD>']+'''');
open;
if fieldbyname('count').AsInteger>0 then begin
if MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>ء<EFBFBD><D8A1><EFBFBD><EFBFBD>ѷ<EFBFBD><D1B7><EFBFBD><EFBFBD>ı<EFBFBD>,<2C>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>»<EFBFBD><C2BB><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5>',mtWarning,[mbYes,mbNo],0)=mrYes then begin
close;sql.clear;
sql.Add('update t_op_aire_assistant set <20><><EFBFBD><EFBFBD>='+t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+',');
sql.Add('<27><>λ='''+t_op_aire.FieldByName('<27><>λ').asstring+''',<2C><><EFBFBD><EFBFBD>='+t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+',');
sql.Add('<27><><EFBFBD><EFBFBD>='+t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD>').asstring);
sql.Add('where <20><><EFBFBD><EFBFBD>='''+t_op_aire['<27><><EFBFBD><EFBFBD>']+'''');
ExecSQL;
end;
end;
end;
finally
FreeAndNil(aQuery);
end;
end;
except
end;
//t_op_aire['Upload']:=1;
end;
procedure Tfrm_op_aire.bsSkinButton10Click(Sender: TObject);
begin
query_aire(1,'0003');
end;
procedure Tfrm_op_aire.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_aire.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>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_op_aire.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit2);
end;
procedure Tfrm_op_aire.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit3);
end;
procedure Tfrm_op_aire.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit4);
end;
procedure Tfrm_op_aire.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit18);
end;
procedure Tfrm_op_aire.RxDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo12);
end;
procedure Tfrm_op_aire.RxDBLookupCombo13KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit8);
end;
procedure Tfrm_op_aire.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
DBEdit9.SetFocus;
end;
end;
procedure Tfrm_op_aire.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit7);
end;
procedure Tfrm_op_aire.RxDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo10);
end;
procedure Tfrm_op_aire.RxDBLookupCombo3KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo11);
end;
procedure Tfrm_op_aire.RxDBLookupCombo4KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo12);
end;
procedure Tfrm_op_aire.RxDBLookupCombo5KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo13);
end;
procedure Tfrm_op_aire.DBEdit22KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo9);
end;
procedure Tfrm_op_aire.DBEdit16KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker5);
end;
procedure Tfrm_op_aire.wwDBDateTimePicker5KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo4);
end;
procedure Tfrm_op_aire.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker4);
end;
procedure Tfrm_op_aire.wwDBDateTimePicker4KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo5);
end;
procedure Tfrm_op_aire.DBEdit13KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
end;
procedure Tfrm_op_aire.wwDBDateTimePicker2KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox2);
end;
procedure Tfrm_op_aire.RxDBLookupCombo15KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox2);
end;
procedure Tfrm_op_aire.wwDBComboBox7KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit14);
end;
procedure Tfrm_op_aire.wwDBComboBox8KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit33);
end;
procedure Tfrm_op_aire.wwDBComboBox9KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit17);
end;
procedure Tfrm_op_aire.RxDBLookupCombo11KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo18);
end;
procedure Tfrm_op_aire.RxDBLookupCombo8KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo29);
end;
procedure Tfrm_op_aire.DBEdit14KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox8);
end;
procedure Tfrm_op_aire.DBEdit15KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox9);
end;
procedure Tfrm_op_aire.RxDBLookupCombo6KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo7);
end;
procedure Tfrm_op_aire.RxDBLookupCombo7KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox3);
end;
procedure Tfrm_op_aire.DBEdit72KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit75);
end;
procedure Tfrm_op_aire.DBEdit73KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit76);
end;
procedure Tfrm_op_aire.DBEdit74KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit77);
end;
procedure Tfrm_op_aire.DBEdit75KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit73);
end;
procedure Tfrm_op_aire.DBEdit76KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit74);
end;
procedure Tfrm_op_aire.DBEdit77KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit13);
end;
procedure Tfrm_op_aire.DBEdit17KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit30);
end;
procedure Tfrm_op_aire.DBEdit30KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit31);
end;
procedure Tfrm_op_aire.DBEdit31KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit56);
end;
procedure Tfrm_op_aire.DBEdit56KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit5);
end;
procedure Tfrm_op_aire.DBEdit57KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit63);
end;
procedure Tfrm_op_aire.DBEdit63KeyPress(Sender: TObject; var Key: Char);
var aAdoQuery:TAdoQuery;
s,corpName,portname:string;
begin
s:='';
if strtobool(get_parameters_value(308,'false')) then
begin
if Key=#13 then
begin
if (t_op_aire.FieldByName('Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>').AsString='') then
if Trim(s)='' then
s:='Ŀ<>ĸ<EFBFBD>'
else s:=s+' Ŀ<>ĸ<EFBFBD>';
if (t_op_aire.FieldByName('һ<>̺<EFBFBD><CCBA>չ<EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>').AsString='') then
if Trim(s)='' then
s:='<27><><EFBFBD>չ<EFBFBD>˾'
else s:=s+' <20><><EFBFBD>չ<EFBFBD>˾';
if Trim(s)<>'' then
begin
MessageDlg(s+'<27><><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD>',mtWarning,[mbyes],0);
Exit;
end;
if frm_data_share.t_crm_client_hangkong1.DataSet.Locate('<27><><EFBFBD><EFBFBD>',t_op_aire.FieldByName('һ<>̺<EFBFBD><CCBA>չ<EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>').AsString,[]) then
corpName:=frm_data_share.t_crm_client_hangkong1.DataSet.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString;
if frm_data_share.t_code_port_air1.DataSet.Locate('<27><><EFBFBD><EFBFBD>',t_op_aire.FieldByName('Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>').AsString,[]) then
portname:=frm_data_share.t_code_port_air1.DataSet.FieldByName('Ӣ<><D3A2><EFBFBD><EFBFBD>').AsString;
if (t_op_aire.FieldByName('װ<>˷<EFBFBD>ʽ').AsString='<27><><EFBFBD>˵<EFBFBD>Ʊ') or (t_op_aire.FieldByName('װ<>˷<EFBFBD>ʽ').AsString='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ') then
begin
t_op_aire.edit;
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1').Asstring:='<27><><EFBFBD>˷<EFBFBD>';
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1').AsFloat:=0;
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2').Asstring:='<27><><EFBFBD>շ<EFBFBD>';
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2').AsFloat:=0;
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3').Asstring:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3').AsFloat:=0;
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4').Asstring:='ȼ<>ͷ<EFBFBD>';
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4').AsFloat:=0;
end
else
begin
t_op_aire.edit;
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1').Asstring:='<27><><EFBFBD>˷<EFBFBD>';
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1').AsFloat:=0;
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2').Asstring:='<27><><EFBFBD>ͷ<EFBFBD>';
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2').AsFloat:=0;
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3').Asstring:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3').AsFloat:=0;
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4').Asstring:='<27><>װ<EFBFBD><D7B0>';
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4').AsFloat:=0;
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5').Asstring:='<27><><EFBFBD>ط<EFBFBD>';
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5').AsFloat:=0;
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6').Asstring:='<27><><EFBFBD>շ<EFBFBD>';
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6').AsFloat:=0;
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>7').Asstring:='ȼ<>ͷ<EFBFBD>';
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>7').AsFloat:=0;
end;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
if (t_op_aire.FieldByName('װ<>˷<EFBFBD>ʽ').AsString='<27><><EFBFBD>˵<EFBFBD>Ʊ') or (t_op_aire.FieldByName('װ<>˷<EFBFBD>ʽ').AsString='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ') then
begin
Close;sql.Clear;
SQL.Add('Select * from t_ch_project_localair');
SQL.Add('where <20><><EFBFBD>չ<EFBFBD>˾=:<3A><><EFBFBD>չ<EFBFBD>˾ and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD>''');
Parameters.ParamByName('<27><><EFBFBD>չ<EFBFBD>˾').Value:=corpName;
Open;First;
end
else
begin
Close;sql.Clear;
SQL.Add('Select * from t_ch_project_localair');
SQL.Add('where <20><><EFBFBD>չ<EFBFBD>˾=:<3A><><EFBFBD>չ<EFBFBD>˾ and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27>շ<EFBFBD>''');
if t_op_aire.FieldByName('<27>˷Ѹ<CBB7><D1B8>ʽ').AsString='PP' then
begin
if trim(t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='' then
begin
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4>벻<EFBFBD><EBB2BB>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD>',mtWarning,[mbyes],0);
Exit;
end;
end
else
if t_op_aire.FieldByName('<27>˷Ѹ<CBB7><D1B8>ʽ').AsString='CC' then
begin
if trim(t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD>').AsString)='' then
begin
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EBB2BB>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD>',mtWarning,[mbyes],0);
Exit;
end;
end;
Parameters.ParamByName('<27><><EFBFBD>չ<EFBFBD>˾').Value:=corpName;
Open;First;
end;
if IsEmpty then
begin
MessageDlg('<27><><EFBFBD>չ<EFBFBD>˾:'+corpName+' <20><><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD>ģ<EFBFBD><C4A3>,<2C><><EFBFBD><EFBFBD> ϵͳά<CDB3><CEAC>-><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-><3E><><EFBFBD>ں<EFBFBD><DABA>շ<EFBFBD><D5B7><EFBFBD><EFBFBD><EFBFBD>ά<EFBFBD><CEAC>',mtWarning,[mbyes],0);
Exit;
end;
{
if recordcount>=2 then
begin
MessageDlg('<27><><EFBFBD>չ<EFBFBD>˾:'+corpName+' <20><><EFBFBD>ڶ<EFBFBD><DAB6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>,<2C><><EFBFBD><EFBFBD> ϵͳά<CDB3><CEAC>-><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-><3E><><EFBFBD>ں<EFBFBD><DABA>շ<EFBFBD><D5B7><EFBFBD><EFBFBD><EFBFBD>ά<EFBFBD><CEAC>',mtWarning,[mbyes],0);
Exit;
end;
}
if recordcount=1 then
if (t_op_aire.FieldByName('װ<>˷<EFBFBD>ʽ').AsString='<27><><EFBFBD>˵<EFBFBD>Ʊ') or (t_op_aire.FieldByName('װ<>˷<EFBFBD>ʽ').AsString='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ') then
begin
InsertProjectFee(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger,'<27><>',FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,'<27><><EFBFBD><EFBFBD>',t_op_aire1);
end
else
begin
InsertProjectFee(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger,'<27><>',FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,'<27>ֵ<EFBFBD>',t_op_aire1);
end;
finally
Free;
end;
end;
end;
key_DBEdit(Key,DBEdit70);
end;
procedure Tfrm_op_aire.DBEdit70KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit71);
end;
procedure Tfrm_op_aire.DBEdit71KeyPress(Sender: TObject; var Key: Char);
begin
key_DBMemo(Key,DBMemo17);
end;
procedure Tfrm_op_aire.DBEdit18KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
end;
procedure Tfrm_op_aire.DBEdit2Change(Sender: TObject);
begin
DBEdit2.Color:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',DBEdit2.text);
end;
procedure Tfrm_op_aire.DBEdit3Change(Sender: TObject);
begin
DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text);
end;
procedure Tfrm_op_aire.RxDBLookupCombo12KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
begin
key:=#0;
DBEdit8.SetFocus;
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo29KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo30);
end;
procedure Tfrm_op_aire.RxDBLookupCombo30KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo6);
end;
procedure Tfrm_op_aire.RxDBLookupCombo12Change(Sender: TObject);
begin
if (t_op_aire.state=dsinsert)or(t_op_aire.state=dsedit)then
begin
if RxDBLookupCombo12.DisplayValue='' then
exit;
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo12.DisplayValue,[]) then
t_op_aire['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo8Change(Sender: TObject);
begin
if (t_op_aire.state=dsinsert)or(t_op_aire.state=dsedit)then
begin
if RxDBLookupCombo8.DisplayValue='' then
exit;
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo8.DisplayValue,[]) then
t_op_aire['<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_aire.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid1);
end;
procedure Tfrm_op_aire.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_op_aire.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,55);
end;
procedure Tfrm_op_aire.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_op_aire.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_op_aire,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_aire.bsSkinButton13Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height));
PopupMenu3.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_aire.N17Click(Sender: TObject);
begin
if (not t_op_aire.IsEmpty) and (t_op_aire.sql.Text<>'') then
airepsqlstr:=t_op_aire.sql.Text;
t_op_aire.Close;
t_op_aire.SQL.clear;
t_op_aire.SQL.Add('select * from t_op_aire where '
+open_data('0003','¼<><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>״̬'+''''+') '
+default_sort(55,'t_op_aire','','desc'));
t_op_aire.open;
end;
procedure Tfrm_op_aire.N34Click(Sender: TObject);
begin
if (not t_op_aire.IsEmpty) and (t_op_aire.sql.Text<>'') then
airepsqlstr:=t_op_aire.sql.Text;
t_op_aire.Close;
t_op_aire.SQL.clear;
t_op_aire.SQL.Add('select * from t_op_aire where '
+open_data('0003','¼<><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>'+''''+')) '
+default_sort(55,'t_op_aire','','desc'));
t_op_aire.open;
end;
procedure Tfrm_op_aire.N36Click(Sender: TObject);
begin
if (not t_op_aire.IsEmpty) and (t_op_aire.sql.Text<>'') then
airepsqlstr:=t_op_aire.sql.Text;
t_op_aire.Close;
t_op_aire.SQL.clear;
t_op_aire.SQL.Add('select * from t_op_aire where '
+open_data('0003','¼<><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>'+''''+')) '
+default_sort(55,'t_op_aire','','desc'));
t_op_aire.open;
end;
procedure Tfrm_op_aire.N37Click(Sender: TObject);
begin
if (not t_op_aire.IsEmpty) and (t_op_aire.sql.Text<>'') then
airepsqlstr:=t_op_aire.sql.Text;
t_op_aire.Close;
t_op_aire.SQL.clear;
t_op_aire.SQL.Add('select * from t_op_aire where '
+open_data('0003','¼<><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) '
+default_sort(55,'t_op_aire','','desc'));
t_op_aire.open;
end;
procedure Tfrm_op_aire.N7Click(Sender: TObject);
var
str:widestring;
begin
if t_op_aire.IsEmpty then
exit;
if if_open('297') and if_open('298') then
begin
if (t_op_aire.State=dsinsert)or(t_op_aire.State=dsedit) then
t_op_aire.post;
try
frm_ch_piliang_aire:=tfrm_ch_piliang_aire.Create (self);
t_op_aire.DisableControls;
t_op_aire.first;
while not t_op_aire.eof do
begin
if str='' then
str:=''''+t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
else
str:=str+','+''''+t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
t_op_aire.next;
end;
str:='('+str+')';
str:='select * from t_op_aire where <20><><EFBFBD><EFBFBD> in '+str+default_sort(55,'t_op_aire','','desc');
frm_ch_piliang_aire.t_op_aire.Parameters.ParamByName('SQLStr').value:=str;
frm_ch_piliang_aire.t_op_aire.open;
frm_ch_piliang_aire.ShowModal;
finally
t_op_aire.EnableControls;
frm_ch_piliang_aire.Free;
frm_ch_piliang_aire:=nil;
end;
end
else
begin
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
end;
end;
procedure Tfrm_op_aire.N3Click(Sender: TObject);
var
str:widestring;
begin
if t_op_aire.IsEmpty then
exit;
if if_open('297') and if_open('298') then
begin
if (t_op_aire.State=dsinsert)or(t_op_aire.State=dsedit) then
t_op_aire.post;
try
frm_ch_piliang_aire:=tfrm_ch_piliang_aire.Create (self);
str:='select * from t_op_aire where <20><><EFBFBD><EFBFBD>='
+''''+t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
frm_ch_piliang_aire.t_op_aire.Parameters.ParamByName('SQLStr').value:=str;
frm_ch_piliang_aire.t_op_aire.open;
frm_ch_piliang_aire.ShowModal;
finally
frm_ch_piliang_aire.Free;
frm_ch_piliang_aire:=nil;
end;
end
else
begin
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
end;
end;
procedure Tfrm_op_aire.N5Click(Sender: TObject);
var
str:widestring;
i:integer;
begin
if t_op_aire.IsEmpty then
exit;
if dxDBGrid1.SelectedCount<1 then
begin
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA>ӡ<EFBFBD><D3A1>ҵ<EFBFBD><D2B5><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if if_open('297') and if_open('298') then
begin
if (t_op_aire.State=dsinsert)or(t_op_aire.State=dsedit) then
t_op_aire.post;
try
frm_ch_piliang_aire:=tfrm_ch_piliang_aire.Create (self);
t_op_aire.DisableControls;
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_aire.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if str='' then
str:=''''+t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
else
str:=str+','+''''+t_op_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
end;
str:='('+str+')';
str:='select * from t_op_aire where <20><><EFBFBD><EFBFBD> in '+str+default_sort(55,'t_op_aire','','desc');
frm_ch_piliang_aire.t_op_aire.Parameters.ParamByName('SQLStr').value:=str;
frm_ch_piliang_aire.t_op_aire.open;
frm_ch_piliang_aire.ShowModal;
finally
t_op_aire.EnableControls;
frm_ch_piliang_aire.Free;
frm_ch_piliang_aire:=nil;
end;
end
else
begin
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo31KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox1);
end;
procedure Tfrm_op_aire.wwDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit10);
end;
procedure Tfrm_op_aire.wwDBLookupCombo52KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit19);
end;
procedure Tfrm_op_aire.wwDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker8);
end;
procedure Tfrm_op_aire.wwDBLookupCombo3KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit16);
end;
procedure Tfrm_op_aire.wwDBLookupCombo4KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit11);
end;
procedure Tfrm_op_aire.wwDBLookupCombo5KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit13);
end;
procedure Tfrm_op_aire.wwDBDateTimePicker3KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo2);
end;
procedure Tfrm_op_aire.wwDBDateTimePicker1KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo3);
end;
procedure Tfrm_op_aire.N9Click(Sender: TObject);
begin
if (not t_op_aire.IsEmpty) and (t_op_aire.sql.Text<>'') then
airepsqlstr:=t_op_aire.sql.Text;
t_op_aire.Close;
t_op_aire.SQL.clear;
t_op_aire.SQL.Add('select * from t_op_aire where '
+open_data('0003','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and not exists (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_op_aire.<2E><><EFBFBD><EFBFBD> and t_ch_fee.<2E><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+default_sort(55,'t_op_aire','','desc'));
t_op_aire.open;
end;
procedure Tfrm_op_aire.N20Click(Sender: TObject);
begin
if (not t_op_aire.IsEmpty) and (t_op_aire.sql.Text<>'') then
airepsqlstr:=t_op_aire.sql.Text;
t_op_aire.Close;
t_op_aire.SQL.clear;
t_op_aire.SQL.Add('select * from t_op_aire where '
+open_data('0003','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and not exists (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_op_aire.<2E><><EFBFBD><EFBFBD> and t_ch_fee.<2E><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+default_sort(55,'t_op_aire','','desc'));
t_op_aire.open;
end;
procedure Tfrm_op_aire.t_op_aireBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_aire,'0003');
end;
procedure Tfrm_op_aire.t_op_airePostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
var
str:widestring;
begin
if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>޸ģ<DEB8><C4A3><EFBFBD>ǰ<EFBFBD>޸IJ<DEB8><C4B2>ܱ<EFBFBD><DCB1><EFBFBD>'+#13#10+'<27><>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>');
abort;
end;
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_aire where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_aire['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
double_aire(str,1);
abort;
end;
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_aire where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_aire['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
double_aire(str,2);
abort;
end;
if pos('ί<>б<EFBFBD>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_aire where ί<>б<EFBFBD>׼='+''''+t_op_aire['ί<>б<EFBFBD>׼']+'''';
double_aire(str,3);
abort;
end;
end;
procedure Tfrm_op_aire.t_op_aireBeforeCancel(DataSet: TDataSet);
begin
delete_no(t_op_aire);
if t_op_aire.State=dsinsert then
if not t_op_aire.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_aire['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_aire.N21Click(Sender: TObject);
begin
if (not t_op_aire.IsEmpty) and (t_op_aire.sql.Text<>'') then
airepsqlstr:=t_op_aire.sql.Text;
t_op_aire.Close;
t_op_aire.SQL.clear;
t_op_aire.SQL.Add('select * from t_op_aire where '
+open_data('0003','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and not exists (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_op_aire.<2E><><EFBFBD><EFBFBD> )'
+default_sort(55,'t_op_aire','','desc'));
t_op_aire.open;
end;
procedure Tfrm_op_aire.N24Click(Sender: TObject);
begin
if (not t_op_aire.IsEmpty) and (t_op_aire.sql.Text<>'') then
airepsqlstr:=t_op_aire.sql.Text;
t_op_aire.Close;
t_op_aire.SQL.clear;
t_op_aire.SQL.Add('select * from t_op_aire where '
+open_data('0003','¼<><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>'+''''+')'
+default_sort(55,'t_op_aire','','desc'));
t_op_aire.open;
end;
procedure Tfrm_op_aire.dxDBGrid1Column34CustomDraw(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[dxDBGrid1Column34.Index])='<27><><EFBFBD>ĵ<EFBFBD>' then
AColor:=clred;
AFont.Color:=clblack;
end;
procedure Tfrm_op_aire.wwDBComboBox3KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo22);
end;
procedure Tfrm_op_aire.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit57);
end;
procedure Tfrm_op_aire.N26Click(Sender: TObject);
begin
if t_op_aire.IsEmpty then
exit;
if not do_data('0003',t_op_aire.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_aire.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
,'','') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
abort;
end;
if t_op_aire.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_aire1=nil then
exit;
if (t_op_aire.State=dsinsert)or(t_op_aire.State=dsedit) then
t_op_aire.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_aire1.DataSet;
frm_op_date_change.DataSource1.Enabled:=true;
frm_op_date_change.BSTYPE:='T_OP_AIRE';
frm_op_date_change.ShowModal;
finally
frm_op_date_change.Free;
frm_op_date_change:=nil;
end;
end;
procedure Tfrm_op_aire.wwDBComboBox2Change(Sender: TObject);
begin
// if t_op_aire1.DataSet=nil then
// exit;
if wwDBComboBox2.text='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ' then
begin
bsSkinPageControl2.Visible:=true;
bsSkinPanel6.Visible:=true;
if strtobool(get_parameters_value(131,'false')) then begin
end else begin
DBEdit7.Color:=clBtnFace;
DBEdit7.ReadOnly:=true;
end;
end
else
begin
bsSkinPageControl2.Visible:=false;
bsSkinPanel6.Visible:=false;
DBEdit7.Color:=clWindow;
DBEdit7.ReadOnly:=false;
end;
end;
procedure Tfrm_op_aire.dxDBGrid2DblClick(Sender: TObject);
begin
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
try
t_op_aire1.Enabled:=false;
t_op_aire1.DataSet:=t_op_aire_fen;
finally
t_op_aire1.Enabled:=true;
end;
end;
procedure Tfrm_op_aire.bsSkinButton32Click(Sender: TObject);
begin
if (t_op_aire.State=dsinsert)or(t_op_aire.State=dsedit) then
t_op_aire.post;
if (t_op_aire_fen.State=dsinsert)or(t_op_aire_fen.State=dsedit) then
t_op_aire_fen.post;
try
frm_op_aire_add:=tfrm_op_aire_add.Create (self);
frm_op_aire_add.data1.Enabled:=false;
frm_op_aire_add.data1.DataSet:=t_op_aire_fen;
frm_op_aire_add.data1.Enabled:=true;
frm_op_aire_add.bsSkinCheckRadioBox3.Checked:=true;
frm_op_aire_add.bsSkinCheckRadioBox2.Enabled:=false;
frm_op_aire_add.bsSkinCheckRadioBox4.Enabled:=true;
frm_op_aire_add_num:=3;
frm_op_aire_add.ShowModal;
finally
frm_op_aire_add.Free
end;
end;
procedure Tfrm_op_aire.bsSkinButton33Click(Sender: TObject);
begin
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
try
t_op_aire1.Enabled:=false;
t_op_aire1.DataSet:=t_op_aire_fen;
finally
t_op_aire1.Enabled:=true;
end;
end;
procedure Tfrm_op_aire.N29Click(Sender: TObject);
begin
if t_op_aire_fen.IsEmpty then
exit;
t_op_aire_fen.edit;
t_op_aire_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_aire_fen['<27><><EFBFBD><EFBFBD>'];
t_op_aire_fen.post;
t_op_aire_fen.Requery();
end;
procedure Tfrm_op_aire.bsSkinButton34Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton34.ClientToScreen(Point(0,bsSkinButton34.Height));
PopupMenu4.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_aire.N27Click(Sender: TObject);
begin
if t_op_aire_fen.IsEmpty then
exit;
t_op_aire_fen.edit;
t_op_aire_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_aire_fen['<27><><EFBFBD><EFBFBD>'];
t_op_aire_fen['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD>˵<EFBFBD>Ʊ';
t_op_aire_fen.post;
t_op_aire_fen.Requery();
end;
procedure Tfrm_op_aire.N76Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid2);
end;
procedure Tfrm_op_aire.N78Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid2);
end;
procedure Tfrm_op_aire.bsSkinButton36Click(Sender: TObject);
begin
if (t_op_aire_fen.State=dsinsert)or(t_op_aire_fen.State=dsedit) then
t_op_aire_fen.post;
end;
procedure Tfrm_op_aire.N33Click(Sender: TObject);
begin
if t_op_aire.IsEmpty then
exit;
if t_op_aire.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD>˵<EFBFBD>Ʊ' then
exit;
if t_op_aire.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_aire_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_aire.edit;
t_op_aire['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD>˵<EFBFBD>Ʊ';
t_op_aire['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_aire['<27><><EFBFBD><EFBFBD>'];
t_op_aire.post;
end;
procedure Tfrm_op_aire.N40Click(Sender: TObject);
begin
if t_op_aire.IsEmpty then
exit;
if t_op_aire.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ' then
exit;
t_op_aire.edit;
t_op_aire['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
t_op_aire['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_aire['<27><><EFBFBD><EFBFBD>'];
t_op_aire.post;
end;
procedure Tfrm_op_aire.N42Click(Sender: TObject);
begin
if t_op_aire.IsEmpty then
exit;
if t_op_aire.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD>˷<EFBFBD>Ʊ' then
exit;
if t_op_aire.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ'then
begin
if not t_op_aire_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_aire.edit;
t_op_aire['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD>˷<EFBFBD>Ʊ';
t_op_aire['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_aire['<27><><EFBFBD><EFBFBD>'];
t_op_aire.post;
end;
procedure Tfrm_op_aire.N44Click(Sender: TObject);
begin
if (t_op_aire.State=dsinsert)or(t_op_aire.State=dsedit) then
t_op_aire.post;
try
frm_op_add_aire:=tfrm_op_add_aire.Create (self);
frm_op_add_aire.ShowModal;
finally
frm_op_add_aire.Free;
end;
end;
procedure Tfrm_op_aire.t_op_aire_fenAfterInsert(DataSet: TDataSet);
begin
//<2F><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>
t_op_aire_fen['<27><><EFBFBD>չ<EFBFBD>˾']:=t_op_aire['<27><><EFBFBD>չ<EFBFBD>˾'];
t_op_aire_fen['ʼ<><CABC><EFBFBD><EFBFBD>']:=t_op_aire['ʼ<><CABC><EFBFBD><EFBFBD>'];
t_op_aire_fen['Ŀ<>ĸ<EFBFBD>']:=t_op_aire['Ŀ<>ĸ<EFBFBD>'];
t_op_aire_fen['һ<><D2BB>Ŀ<EFBFBD>ĸ<EFBFBD>']:=t_op_aire['һ<><D2BB>Ŀ<EFBFBD>ĸ<EFBFBD>'];
t_op_aire_fen['һ<>̺<EFBFBD><CCBA><EFBFBD>']:=t_op_aire['һ<>̺<EFBFBD><CCBA><EFBFBD>'];
t_op_aire_fen['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_aire['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_aire_fen['<27><><EFBFBD><EFBFBD>Ŀ<EFBFBD>ĸ<EFBFBD>']:=t_op_aire['<27><><EFBFBD><EFBFBD>Ŀ<EFBFBD>ĸ<EFBFBD>'];
t_op_aire_fen['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>']:=t_op_aire['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>'];
t_op_aire_fen['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_aire['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_aire_fen['<27><><EFBFBD><EFBFBD>Ŀ<EFBFBD>ĸ<EFBFBD>']:=t_op_aire['<27><><EFBFBD><EFBFBD>Ŀ<EFBFBD>ĸ<EFBFBD>'];
t_op_aire_fen['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>']:=t_op_aire['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>'];
t_op_aire_fen['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_aire['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_aire_fen['<27>ij<EFBFBD>Ŀ<EFBFBD>ĸ<EFBFBD>']:=t_op_aire['<27>ij<EFBFBD>Ŀ<EFBFBD>ĸ<EFBFBD>'];
t_op_aire_fen['<27>ij̺<C4B3><CCBA><EFBFBD>']:=t_op_aire['<27>ij̺<C4B3><CCBA><EFBFBD>'];
t_op_aire_fen['<27>ij̿<C4B3><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_aire['<27>ij̿<C4B3><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_aire_fen['Ӣ<>ĺ<EFBFBD><C4BA><EFBFBD>']:=t_op_aire['Ӣ<>ĺ<EFBFBD><C4BA><EFBFBD>'];
t_op_aire_fen['<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>']:=t_op_aire['<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>'];
end;
procedure Tfrm_op_aire.t_op_aire_fenBeforeCancel(DataSet: TDataSet);
begin
delete_no(t_op_aire_fen);
if t_op_aire_fen.State=dsinsert then
if not t_op_aire_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_aire_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_aire.t_op_aire_fenBeforeDelete(DataSet: TDataSet);
begin
op_befor_post(t_op_aire_fen,'0003');
delete_add(3,t_op_aire_fen);
if not t_op_aire_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_aire_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_aire.t_op_aire_fenBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_aire_fen,'0003');
end;
procedure Tfrm_op_aire.t_op_aire_fenBeforePost(DataSet: TDataSet);
begin
//<2F><>Ʊ<EFBFBD><C6B1>Ϊ<EFBFBD><CEAA><EFBFBD>ж<EFBFBD>
table_before_post(t_op_aire_fen,'ί<>е<EFBFBD>λ');
table_before_post(t_op_aire_fen,'<27><><EFBFBD><EFBFBD>Ա');
table_before_post(t_op_aire_fen,'<27>ͷ<EFBFBD>Ա');
table_before_post(t_op_aire_fen,'һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_aire_fen,'һ<>̺<EFBFBD><CCBA><EFBFBD>');
table_before_post(t_op_aire_fen,'ʼ<><CABC><EFBFBD><EFBFBD>');
table_before_post(t_op_aire_fen,'Ŀ<>ĸ<EFBFBD>');
table_before_post(t_op_aire_fen,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
if pos('ָ<><D6B8>',t_op_aire_fen.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString)>0 then begin
end else begin
table_before_post(t_op_aire_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_aire_fen,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
end;
table_before_post(t_op_aire_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
//ί<>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
if t_op_aire_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_aire_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_aire_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(3,subComp,department,employee,t_op_aire_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_aire_fen['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(3,subComp,department,employee,t_op_aire_fen['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
// op_empty('t_op_aire',t_op_aire_fen);
if t_op_aire_fen.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_aire_fen.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
if (t_op_aire_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_aire_fen.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
showmessage('<27>˿<EFBFBD><CBBF><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_aire_fen.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_aire_fen.FieldByName('ί<>е<EFBFBD>λ').asstring then
begin
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_aire_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_aire_fen.State=dsinsert then
begin
if t_op_aire_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
begin
t_op_aire_fen['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_aire_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.AirExpBsNo,'AE'));
t_op_aire_fen['<27><><EFBFBD><EFBFBD>']:=get_id;
end;
t_op_aire_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_aire['<27><><EFBFBD><EFBFBD>'];
t_op_aire_fen['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_aire_fen['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
end;
t_op_aire_fen['Ӣ<>ĺ<EFBFBD><C4BA><EFBFBD>']:=date_eng(t_op_aire_fen.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
t_op_aire_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_aire_fen['<27><><EFBFBD><EFBFBD>'];
if strtobool(get_parameters_value(41,'false')) then
begin
if (trim(t_op_aire_fen.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').asstring)='') or (t_op_aire_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_aire_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_aire_fen['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_aire_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=Logininfo.subcompcode+t_op_aire_fen['<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>'];
end;
end
else
begin
t_op_aire_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_aire_fen['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(42,'false')) then
begin
if (trim(t_op_aire_fen.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='') or (t_op_aire_fen.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_aire_fen['ί<>б<EFBFBD>׼']:=t_op_aire_fen['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_aire_fen['ί<>б<EFBFBD>׼']:=t_op_aire_fen['ί<>б<EFBFBD><D0B1><EFBFBD>'];
end;
end
else
begin
t_op_aire_fen['ί<>б<EFBFBD>׼']:=t_op_aire_fen['<27><><EFBFBD><EFBFBD>'];
end;
//t_op_aire_fen['Upload']:=1;
end;
procedure Tfrm_op_aire.t_op_aire_fenPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
var
str:widestring;
begin
if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>޸ģ<DEB8><C4A3><EFBFBD>ǰ<EFBFBD>޸IJ<DEB8><C4B2>ܱ<EFBFBD><DCB1><EFBFBD>'+#13#10+'<27><>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>');
abort;
end;
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_aire where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_aire_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
double_aire(str,1);
abort;
end;
if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_aire where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_aire_fen['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
double_aire(str,2);
abort;
end;
if pos('ί<>б<EFBFBD>׼',UpperCase(E.Message))<>0 then
begin
str:='select * from t_op_aire where ί<>б<EFBFBD>׼='+''''+t_op_aire_fen['ί<>б<EFBFBD>׼']+'''';
double_aire(str,3);
abort;
end;
end;
procedure Tfrm_op_aire.bsSkinPageControl1Change(Sender: TObject);
var
inifile1:Tinifile;
begin
//ҵ<><D2B5><EFBFBD>л<EFBFBD>
if frm_op_aire_create=false then
exit;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet5 then
begin
if not assigned(frm_op_aire_assistant) then
frm_op_aire_assistant:=tfrm_op_aire_assistant.Create (self);
frm_op_aire_assistant.t_op_aire_assistant.DataSource:=t_op_aire1;
frm_op_aire_assistant.t_op_aire_assistant.open;
frm_op_aire_assistant.ManualDock(bsSkinTabSheet5,nil,alClient);
frm_op_aire_assistant.show;
exit;
end;
{$IFDEF DLFENZHANG}
if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then
begin
if not assigned(frm_op_seae_fenzhang) then
begin
frm_op_seae_fenzhang:=tfrm_op_seae_fenzhang.Create (self);
end;
frm_op_seae_fenzhang.t_ch_fee_fenzhang.Close;
frm_op_seae_fenzhang.t_ch_fee.Close;
frm_op_seae_fenzhang.t_ch_fee_fenzhang.DataSource:=t_op_aire1;
frm_op_seae_fenzhang.t_ch_fee_fenzhang.open;
frm_op_seae_fenzhang.t_ch_fee_fenzhango.Close;
frm_op_seae_fenzhang.t_ch_fee_fenzhango.DataSource:=t_op_aire1;
frm_op_seae_fenzhang.t_ch_fee_fenzhango.open;
frm_op_seae_fenzhang.t_ch_fee.open;
frm_op_seae_fenzhang.t_op_fenzhang.DataSource:=t_op_aire1;
frm_op_seae_fenzhang.t_op_fenzhang.open;
frm_op_seae_fenzhang.t_op_seae_assistant.Close;
frm_op_seae_fenzhang.t_op_seae_assistant.sql.Text:='select * from t_op_seae_assistant where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> order by <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> ';
frm_op_seae_fenzhang.t_op_seae_assistant.DataSource:=t_op_aire1;
frm_op_seae_fenzhang.t_op_seae_assistant.Open;
frm_op_seae_fenzhang.t_ch_fee_pl.Close;
frm_op_seae_fenzhang.t_ch_fee_pl.DataSource:=t_op_aire1;
frm_op_seae_fenzhang.t_ch_fee_pl.open;
frm_op_seae_fenzhang.t_ch_fee_pl_detail.open;
frm_op_seae_fenzhang.t_ch_fee_pl_detailf.open;
frm_op_seae_fenzhang.t_ch_fee_cm.Close;
frm_op_seae_fenzhang.t_ch_fee_cm.DataSource:=t_op_aire1;
frm_op_seae_fenzhang.t_ch_fee_cm.open;
frm_op_seae_fenzhang.t_ch_fee_agentdc.Close;
frm_op_seae_fenzhang.t_ch_fee_agentdc.DataSource:=t_op_aire1;
frm_op_seae_fenzhang.t_ch_fee_agentdc.open;
frm_op_seae_fenzhang.t_ch_fee_agentdc_detail.Close;
frm_op_seae_fenzhang.t_ch_fee_agentdc_detail.DataSource:=frm_op_seae_fenzhang.t_ch_fee_agentdc1;
frm_op_seae_fenzhang.t_ch_fee_agentdc_detail.open;
frm_op_seae_fenzhang.ManualDock(bsSkinTabSheet6,nil,alClient);
frm_op_seae_fenzhang.show;
exit;
end;
if bsSkinPageControl1.ActivePage<>bsSkinTabSheet6 then
begin
if assigned(frm_op_seae_fenzhang) then
begin
FreeAndNil(frm_op_seae_fenzhang);
end;
end;
{$ENDIF}
if bsSkinPageControl1.ActivePage=bsSkinTabSheet8 then
begin
if not t_op_file.Active then
t_op_file.open;
end else begin
if t_op_file.State in [dsedit,dsinsert] then t_op_file.Post;
t_op_file.close;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then
begin
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;
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;
end;
end;
procedure Tfrm_op_aire.t_op_aire1DataChange(Sender: TObject;
Field: TField);
begin
{
if assigned(frm_op_seae_fenzhang) then
begin
frm_op_seae_fenzhang.t_ch_fee_fenzhang.Close;
frm_op_seae_fenzhang.t_ch_fee_fenzhang.open;
end;
}
end;
procedure Tfrm_op_aire.RxDBLookupCombo16Change(Sender: TObject);
begin
if (t_op_aire1.DataSet.State=dsinsert)or(t_op_aire1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo16.DisplayValue<>'' then
t_op_aire1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>˿<EFBFBD><CBBF>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo17Change(Sender: TObject);
begin
if (t_op_aire1.DataSet.State=dsinsert)or(t_op_aire1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo17.DisplayValue<>'' then
t_op_aire1.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>˿<EFBFBD><CBBF>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo18Change(Sender: TObject);
begin
if (t_op_aire1.DataSet.State=dsinsert)or(t_op_aire1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo18.DisplayValue<>'' then
t_op_aire1.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>˿<EFBFBD><CBBF>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo19Change(Sender: TObject);
begin
if (t_op_aire1.DataSet.State=dsinsert)or(t_op_aire1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo19.DisplayValue<>'' then
t_op_aire1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili.fieldbyname('<27><><EFBFBD>˿<EFBFBD><CBBF>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo6Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo6.text,[]) then
begin
t_op_aire1.DataSet.edit;
t_op_aire1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo6Enter(Sender: TObject);
begin
with frm_data_share do
begin
t_code_code.Filtered:=false;
t_code_code.Filter:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=1';
t_code_code.Filtered:=true;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo6Exit(Sender: TObject);
begin
wwDBLookupCombo6.Clear;
end;
procedure Tfrm_op_aire.wwDBLookupCombo7Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo7.text,[]) then
begin
t_op_aire1.DataSet.edit;
t_op_aire1.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo7Enter(Sender: TObject);
begin
with frm_data_share do
begin
t_code_code.Filtered:=false;
t_code_code.Filter:='<27>ջ<EFBFBD><D5BB><EFBFBD>=1';
t_code_code.Filtered:=true;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo7Exit(Sender: TObject);
begin
wwDBLookupCombo7.Clear;
end;
procedure Tfrm_op_aire.wwDBLookupCombo8Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo8.text,[]) then
begin
t_op_aire1.DataSet.edit;
t_op_aire1.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo8Enter(Sender: TObject);
begin
with frm_data_share do
begin
t_code_code.Filtered:=false;
t_code_code.Filter:='֪ͨ<CDA8><D6AA>=1';
t_code_code.Filtered:=true;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo8Exit(Sender: TObject);
begin
wwDBLookupCombo8.Clear;
end;
procedure Tfrm_op_aire.wwDBLookupCombo9Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo9.text,[]) then
begin
t_op_aire1.DataSet.edit;
t_op_aire1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo9Enter(Sender: TObject);
begin
with frm_data_share do
begin
t_code_code.Filtered:=false;
t_code_code.Filter:='<27><><EFBFBD><EFBFBD>=1';
t_code_code.Filtered:=true;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo9Exit(Sender: TObject);
begin
wwDBLookupCombo9.Clear;
end;
procedure Tfrm_op_aire.RxDBLookupCombo2Change(Sender: TObject);
begin
if (t_op_aire1.DataSet.State=dsinsert)or(t_op_aire1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo2.DisplayValue<>'' then
t_op_aire1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>˿<EFBFBD><CBBF>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo3Change(Sender: TObject);
begin
if (t_op_aire1.DataSet.State=dsinsert)or(t_op_aire1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo3.DisplayValue<>'' then
t_op_aire1.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>˿<EFBFBD><CBBF>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo4Change(Sender: TObject);
begin
if (t_op_aire1.DataSet.State=dsinsert)or(t_op_aire1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo4.DisplayValue<>'' then
t_op_aire1.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>˿<EFBFBD><CBBF>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo5Change(Sender: TObject);
begin
if (t_op_aire1.DataSet.State=dsinsert)or(t_op_aire1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo5.DisplayValue<>'' then
t_op_aire1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili.fieldbyname('<27><><EFBFBD>˿<EFBFBD><CBBF>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo10Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo10.text,[]) then
begin
t_op_aire1.DataSet.edit;
t_op_aire1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo10Exit(Sender: TObject);
begin
wwDBLookupCombo10.Clear;
end;
procedure Tfrm_op_aire.wwDBLookupCombo11Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo11.text,[]) then
begin
t_op_aire1.DataSet.edit;
t_op_aire1.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo11Exit(Sender: TObject);
begin
wwDBLookupCombo11.Clear;
end;
procedure Tfrm_op_aire.wwDBLookupCombo12Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo12.text,[]) then
begin
t_op_aire1.DataSet.edit;
t_op_aire1.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo12Exit(Sender: TObject);
begin
wwDBLookupCombo12.Clear;
end;
procedure Tfrm_op_aire.wwDBLookupCombo13Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo13.text,[]) then
begin
t_op_aire1.DataSet.edit;
t_op_aire1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo13Exit(Sender: TObject);
begin
wwDBLookupCombo13.Clear;
end;
procedure Tfrm_op_aire.N46Click(Sender: TObject);
begin
if (not t_op_aire.IsEmpty) and (t_op_aire.sql.Text<>'') then
airepsqlstr:=t_op_aire.sql.Text;
t_op_aire.Close;
t_op_aire.SQL.clear;
t_op_aire.SQL.Add('select * from t_op_aire where '
+open_data('0003','¼<><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><><3E><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD>='''+'<27><>'+''''+' )'
+default_sort(55,'t_op_aire','','desc'));
t_op_aire.open;
end;
procedure Tfrm_op_aire.RxDBLookupCombo9KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker3);
end;
procedure Tfrm_op_aire.DBEditEh1KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit7);
end;
procedure Tfrm_op_aire.RxDBLookupCombo16Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo16);
end;
procedure Tfrm_op_aire.RxDBLookupCombo17Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo17);
end;
procedure Tfrm_op_aire.RxDBLookupCombo18Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo18);
end;
procedure Tfrm_op_aire.RxDBLookupCombo19Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo19);
end;
procedure Tfrm_op_aire.RxDBLookupCombo16Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo16);
end;
procedure Tfrm_op_aire.RxDBLookupCombo17Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo17);
end;
procedure Tfrm_op_aire.RxDBLookupCombo18Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo18);
end;
procedure Tfrm_op_aire.RxDBLookupCombo19Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo19);
end;
procedure Tfrm_op_aire.wwDBComboBox2KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo15);
end;
procedure Tfrm_op_aire.wwDBLookupCombo52Change(Sender: TObject);
begin
if (t_op_aire1.DataSet.state=dsinsert)or(t_op_aire1.DataSet.state=dsedit)then
begin
if wwDBLookupCombo52.text='' then
exit;
if frm_data_share.t_code_port_air.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then begin
t_op_aire1.DataSet['ʼ<><CABC><EFBFBD><EFBFBD>']:=frm_data_share.t_code_port_air['Ӣ<><D3A2><EFBFBD><EFBFBD>'];
t_op_aire1.DataSet['ʼ<><CABC><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>']:=frm_data_share.t_code_port_air['<27><><EFBFBD><EFBFBD>'];
end;
end;
end;
procedure Tfrm_op_aire.bsSkinButton44Click(Sender: TObject);
var
str:widestring;
begin
//<2F><><EFBFBD>ݲ<EFBFBD>ѯ
str:='';
str:=query_tiaojian(1,str,'t_op_aire.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit1.text);
str:=query_tiaojian(1,str,'t_op_aire.ί<>б<EFBFBD><D0B1><EFBFBD>','ģ<><C4A3>',Edit4.text);
str:=query_tiaojian(1,str,'t_op_aire.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>','ģ<><C4A3>',Edit2.text);
str:=query_tiaojian(1,str,'t_op_aire.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>','ģ<><C4A3>',Edit3.text);
if trim(str)='' then
begin
str:='where '+open_data('0003','t_op_aire.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_aire.<2E><><EFBFBD><EFBFBD>Ա','t_op_aire.<2E>ͷ<EFBFBD>Ա','no','no');
end
else
begin
str:=str+' and '+open_data('0003','t_op_aire.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_aire.<2E><><EFBFBD><EFBFBD>Ա','t_op_aire.<2E>ͷ<EFBFBD>Ա','no','no');
end;
str:=query_tiaojian(1,str,'t_op_aire.ί<>е<EFBFBD>λ','<27><><EFBFBD><EFBFBD>',RxDBLookupCombo57.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_aire.һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>',wwDBDateTimePicker18.text);
str:=query_tiaojian(1,str,'t_op_aire.һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','С<><D0A1>',wwDBDateTimePicker19.text);
// str:='select * from t_op_aire where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and װ<>˷<EFBFBD>ʽ<>''<27><><EFBFBD><EFBFBD>'' '+' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_aire '
str:='select * from t_op_aire where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_aire '
+str+')'+default_sort(55,'t_op_aire','','desc');
if (not t_op_aire.IsEmpty) and (t_op_aire.sql.Text<>'') then
airepsqlstr:=t_op_aire.sql.Text;
t_op_aire.close;
t_op_aire.sql.clear;
t_op_aire.sql.add(str);
t_op_aire.Open;
if t_op_aire.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
procedure Tfrm_op_aire.N49Click(Sender: TObject);
var
inifile1:Tinifile;
begin
bsSkinPanel9.Visible:=true;
bsSkinButton13.Top:=3+bsSkinPanel9.Height;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteBool('other','aedisp',bsSkinPanel9.Visible);
inifile1.free;
end;
procedure Tfrm_op_aire.N50Click(Sender: TObject);
var
inifile1:Tinifile;
begin
bsSkinPanel9.Visible:=false;
bsSkinButton13.Top:=3;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteBool('other','aedisp',bsSkinPanel9.Visible);
inifile1.free;
end;
procedure Tfrm_op_aire.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
bsSkinButton44.OnClick(Sender);
end;
procedure Tfrm_op_aire.N52Click(Sender: TObject);
var
i,j,l:integer;
s:string;
seabandini:tinifile ;
begin
//ҳ<><D2B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
seabandini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'bandno.ini');
frm_sys_tab_sort:=tfrm_sys_tab_sort.create(self);
try
frm_sys_tab_sort.ListBox2.Clear;
for i:=0 to bsSkinPageControl1.PageCount-1 do begin
frm_sys_tab_sort.ListBox2.Items.Add(bsSkinPageControl1.Pages[i].Caption+':'+bsSkinPageControl1.Pages[i].Name);
end;
frm_sys_tab_sort.ShowModal;
if frm_sys_tab_sort.ModalResult=mrOk then begin
for j:=0 to frm_sys_tab_sort.ListBox2.Items.Count-1 do begin
s:=frm_sys_tab_sort.ListBox2.Items[j];
l:=pos(':',s)+1;
for i:=0 to bsSkinPageControl1.PageCount-1 do begin
if bsSkinPageControl1.Pages[i].Name=copy(s,l,length(s)-l+1) then begin
bsSkinPageControl1.Pages[i].PageIndex:=j;
seabandini.Writeinteger('airexp',copy(s,l,length(s)-l+1),j);
end;
end;
end;
end;
finally
FreeAndNil(frm_sys_tab_sort);
freeandnil(seabandini);
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo2Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo2);
end;
procedure Tfrm_op_aire.RxDBLookupCombo3Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo3);
end;
procedure Tfrm_op_aire.RxDBLookupCombo4Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo4);
end;
procedure Tfrm_op_aire.RxDBLookupCombo5Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo5);
end;
procedure Tfrm_op_aire.RxDBLookupCombo2Exit(Sender: TObject);
begin
RxLookupComboexit(RxDBLookupCombo2);
end;
procedure Tfrm_op_aire.RxDBLookupCombo3Exit(Sender: TObject);
begin
RxLookupComboexit(RxDBLookupCombo3);
end;
procedure Tfrm_op_aire.RxDBLookupCombo4Exit(Sender: TObject);
begin
RxLookupComboexit(RxDBLookupCombo4);
end;
procedure Tfrm_op_aire.RxDBLookupCombo5Exit(Sender: TObject);
begin
RxLookupComboexit(RxDBLookupCombo5);
end;
procedure Tfrm_op_aire.bsSkinButton38Click(Sender: TObject);
var
book1:Tbookmark;
begin
book1:=t_op_aire1.DataSet.GetBookmark;
t_op_aire1.DataSet.Refresh;
t_op_aire1.DataSet.GotoBookmark(book1);
end;
procedure Tfrm_op_aire.wwDBComboBox8Change(Sender: TObject);
begin
if not (t_op_aire1.dataset.State in [dsedit,dsinsert]) then exit;
if wwDBComboBox8.text='PP' then begin
t_op_aire1.dataset.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:='RMB';
t_op_aire1.dataset.FieldByName('<27><><EFBFBD>ѷ<EFBFBD>ʽ').AsString:='FREIGHT PREPAID';
end else if wwDBComboBox8.text='CC' then begin
t_op_aire1.dataset.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:='USD';
t_op_aire1.dataset.FieldByName('<27><><EFBFBD>ѷ<EFBFBD>ʽ').AsString:='FREIGHT COLLECT';
end;
end;
procedure Tfrm_op_aire.DBEdit19KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit20);
end;
procedure Tfrm_op_aire.DBEdit20KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo15);
end;
procedure Tfrm_op_aire.DBEdit10KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit12);
end;
procedure Tfrm_op_aire.DBEdit12KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit22);
end;
procedure Tfrm_op_aire.DBEdit33KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit15);
end;
procedure Tfrm_op_aire.wwDBDateTimePicker8KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo9);
end;
procedure Tfrm_op_aire.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose:=frm_close_query(fra_op_card1.t_op_card);
end;
procedure Tfrm_op_aire.RxDBLookupCombo1Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo1);
end;
procedure Tfrm_op_aire.RxDBLookupCombo6Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo6);
end;
procedure Tfrm_op_aire.RxDBLookupCombo21Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo21);
end;
procedure Tfrm_op_aire.RxDBLookupCombo1Exit(Sender: TObject);
begin
RxLookupComboexit(RxDBLookupCombo1);
end;
procedure Tfrm_op_aire.RxDBLookupCombo6Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo6);
end;
procedure Tfrm_op_aire.RxDBLookupCombo21Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo21);
end;
procedure Tfrm_op_aire.t_billfeecharge(Sender: TField);
begin
if sender.DataSet.State in [dsedit,dsinsert] then begin
if (not sender.DataSet.fieldbyname('<27>Ƽ<EFBFBD><C6BC><EFBFBD><EFBFBD><EFBFBD>').IsNull) and (not sender.DataSet.fieldbyname('<27>˼<EFBFBD>').IsNull) then
sender.DataSet.fieldbyname('<27>˷<EFBFBD>').Asfloat:=sender.DataSet.fieldbyname('<27>Ƽ<EFBFBD><C6BC><EFBFBD><EFBFBD><EFBFBD>').Asfloat*sender.DataSet.fieldbyname('<27>˼<EFBFBD>').Asfloat;
end;
end;
procedure Tfrm_op_aire.t_billfeedecharge(Sender: TField);
var
OT,YF,ZF:double;
begin
if sender.DataSet.State in [dsedit,dsinsert] then begin
if sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ԥ<EFBFBD><D4A4>').IsNull then
OT:=0
else
OT:=sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ԥ<EFBFBD><D4A4>').asfloat;
if sender.DataSet.fieldbyname('<27>˷<EFBFBD>Ԥ<EFBFBD><D4A4>').IsNull then
YF:=0
else
YF:=sender.DataSet.fieldbyname('<27>˷<EFBFBD>Ԥ<EFBFBD><D4A4>').asfloat;
if sender.DataSet.fieldbyname('<27>ӷ<EFBFBD>Ԥ<EFBFBD><D4A4>').IsNull then
ZF:=0
else
ZF:=sender.DataSet.fieldbyname('<27>ӷ<EFBFBD>Ԥ<EFBFBD><D4A4>').asfloat;
sender.DataSet.fieldbyname('<27>ϼ<EFBFBD>Ԥ<EFBFBD><D4A4>').Asfloat:=OT+YF+ZF;
end;
end;
procedure Tfrm_op_aire.DBEdit36KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit37);
end;
procedure Tfrm_op_aire.DBEdit37KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit72);
end;
procedure Tfrm_op_aire.t_op_aireAfterOpen(DataSet: TDataSet);
begin
dataset.FieldByName('<27>Ƽ<EFBFBD><C6BC><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_billfeecharge;
dataset.FieldByName('<27>˼<EFBFBD>').OnChange:=t_billfeecharge;
dataset.FieldByName('<27><><EFBFBD><EFBFBD>Ԥ<EFBFBD><D4A4>').OnChange:=t_billfeedecharge;
dataset.FieldByName('<27>˷<EFBFBD>Ԥ<EFBFBD><D4A4>').OnChange:=t_billfeedecharge;
dataset.FieldByName('<27>ӷ<EFBFBD>Ԥ<EFBFBD><D4A4>').OnChange:=t_billfeedecharge;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').OnChange:=t_billfeededcharge;
dataset.FieldByName('<27>˷ѵ<CBB7><D1B5><EFBFBD>').OnChange:=t_billfeededcharge;
dataset.FieldByName('<27>ӷѵ<D3B7><D1B5><EFBFBD>').OnChange:=t_billfeededcharge;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1').OnChange:=t_billOTfeecharge;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2').OnChange:=t_billOTfeecharge;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3').OnChange:=t_billOTfeecharge;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4').OnChange:=t_billOTfeecharge;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5').OnChange:=t_billOTfeecharge;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6').OnChange:=t_billOTfeecharge;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>7').OnChange:=t_billOTfeecharge;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>8').OnChange:=t_billOTfeecharge;
dataset.FieldByName('<27>ӷѸ<D3B7><D1B8>ʽ').OnChange:=t_billOTfeecharge;
dataset.FieldByName('<27>˷<EFBFBD>').OnChange:=t_billfeettlcharge;
dataset.FieldByName('<27>˷Ѹ<CBB7><D1B8>ʽ').OnChange:=t_billfeettlcharge;
end;
procedure Tfrm_op_aire.t_billfeededcharge(Sender: TField);
var
OT,YF,ZF:double;
begin
//<2F>ϼƵ<CFBC><C6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if sender.DataSet.State in [dsedit,dsinsert] then begin
if sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull then
OT:=0
else
OT:=sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat;
if sender.DataSet.fieldbyname('<27>˷ѵ<CBB7><D1B5><EFBFBD>').IsNull then
YF:=0
else
YF:=sender.DataSet.fieldbyname('<27>˷ѵ<CBB7><D1B5><EFBFBD>').asfloat;
if sender.DataSet.fieldbyname('<27>ӷѵ<D3B7><D1B5><EFBFBD>').IsNull then
ZF:=0
else
ZF:=sender.DataSet.fieldbyname('<27>ӷѵ<D3B7><D1B5><EFBFBD>').asfloat;
sender.DataSet.fieldbyname('<27>ϼƵ<CFBC><C6B5><EFBFBD>').Asfloat:=OT+YF+ZF;
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo11Change(Sender: TObject);
begin
if t_op_aire1.DataSet=nil then
exit;
if (t_op_aire1.DataSet.state=dsinsert)or(t_op_aire1.DataSet.state=dsedit)then
begin
if RxDBLookupCombo11.DisplayValue='' then
exit;
t_op_aire1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=t_op_aire1.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>'];
t_op_aire1.DataSet.fieldbyname('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring:=frm_data_share.t_code_goods['<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'];
// if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
// DBMemo39.Lines.Append(frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
// TMemoField(t_op_seae2.Fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')).
// :=frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo14Change(Sender: TObject);
var
aQuery:TAdoQuery;
begin
if (t_op_aire1.DataSet.State in [dsedit,dsinsert]) then begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('select <20><><EFBFBD>ر<EFBFBD><D8B1><EFBFBD> from t_crm_client where <20>ͻ<EFBFBD>ȫ<EFBFBD><C8AB> like ''%'+wwDBLookupCombo14.Text+'%'' or <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> like ''%'+wwDBLookupCombo14.Text+'%''');
Open;
if not IsEmpty then begin
if t_op_aire1.DataSet.FieldByName('<27><>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>').AsString='' then
t_op_aire1.DataSet.FieldByName('<27><>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>').AsString:=fieldbyname('<27><><EFBFBD>ر<EFBFBD><D8B1><EFBFBD>').AsString
end;
end;
finally
FreeAndNil(aQuery);
end;
end;
end;
procedure Tfrm_op_aire.DBEdit21KeyPress(Sender: TObject; var Key: Char);
var
aQuery:TAdoQuery;
begin
if (key=#13) and (t_op_aire1.DataSet.State in [dsedit,dsinsert]) and (t_op_aire1.DataSet.FieldByName('<27><>Ӫ<EFBFBD><D3AA>λ').AsString='') then begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('select <20>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>,<2C>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> from t_crm_client where <20><><EFBFBD>ر<EFBFBD><D8B1><EFBFBD>='''+DBEdit21.Text+'''');
Open;
if not IsEmpty then begin
if fieldbyname('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').AsString<>'' then
t_op_aire1.DataSet.FieldByName('<27><>Ӫ<EFBFBD><D3AA>λ').AsString:=fieldbyname('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').AsString
else
t_op_aire1.DataSet.FieldByName('<27><>Ӫ<EFBFBD><D3AA>λ').AsString:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString;
end;
end;
finally
FreeAndNil(aQuery);
end;
end;
end;
procedure Tfrm_op_aire.t_billfeettlcharge(Sender: TField);
begin
//<2F>˷<EFBFBD>Ԥ<EFBFBD><D4A4><EFBFBD>͵<EFBFBD><CDB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if sender.DataSet.FieldByName('<27>˷Ѹ<CBB7><D1B8>ʽ').AsString='' then exit;
if sender.DataSet.FieldByName('<27>˷<EFBFBD>').AsFloat=0 then exit;
if sender.DataSet.FieldByName('<27>˷Ѹ<CBB7><D1B8>ʽ').AsString='PP' then begin
sender.DataSet.FieldByName('<27>˷<EFBFBD>Ԥ<EFBFBD><D4A4>').AsFloat:=sender.DataSet.FieldByName('<27>˷<EFBFBD>').AsFloat;
sender.DataSet.FieldByName('<27>˷ѵ<CBB7><D1B5><EFBFBD>').AsFloat:=0;
end;
if sender.DataSet.FieldByName('<27>˷Ѹ<CBB7><D1B8>ʽ').AsString='CC' then begin
sender.DataSet.FieldByName('<27>˷<EFBFBD>Ԥ<EFBFBD><D4A4>').AsFloat:=0;
sender.DataSet.FieldByName('<27>˷ѵ<CBB7><D1B5><EFBFBD>').AsFloat:=sender.DataSet.FieldByName('<27>˷<EFBFBD>').AsFloat;
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo22KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo23);
end;
procedure Tfrm_op_aire.RxDBLookupCombo22Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo22);
end;
procedure Tfrm_op_aire.RxDBLookupCombo23Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo23);
end;
procedure Tfrm_op_aire.RxDBLookupCombo22Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo22);
end;
procedure Tfrm_op_aire.RxDBLookupCombo23Exit(Sender: TObject);
begin
RxLookupComboExit(RxDBLookupCombo23);
end;
procedure Tfrm_op_aire.DBEdit38KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit39);
end;
procedure Tfrm_op_aire.DBEdit39KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit44);
end;
procedure Tfrm_op_aire.DBEdit44KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit45);
end;
procedure Tfrm_op_aire.DBEdit45KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit50);
end;
procedure Tfrm_op_aire.DBEdit50KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit51);
end;
procedure Tfrm_op_aire.DBEdit51KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit40);
end;
procedure Tfrm_op_aire.DBEdit40KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit41);
end;
procedure Tfrm_op_aire.DBEdit41KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit46);
end;
procedure Tfrm_op_aire.DBEdit46KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit47);
end;
procedure Tfrm_op_aire.DBEdit47KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit52);
end;
procedure Tfrm_op_aire.DBEdit52KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit53);
end;
procedure Tfrm_op_aire.DBEdit53KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit42);
end;
procedure Tfrm_op_aire.DBEdit42KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit43);
end;
procedure Tfrm_op_aire.DBEdit43KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit48);
end;
procedure Tfrm_op_aire.DBEdit48KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit49);
end;
procedure Tfrm_op_aire.DBEdit49KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit36);
end;
procedure Tfrm_op_aire.t_billOTfeecharge(Sender: TField);
var
s:WideString;
begin
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><C3BC><EFBFBD>
if sender.DataSet.FieldByName('<27>ӷѸ<D3B7><D1B8>ʽ').AsString='' then exit;
if sender.DataSet.FieldByName('<27>ӷѸ<D3B7><D1B8>ʽ').AsString='PP' then begin
sender.DataSet.FieldByName('<27>ӷѵ<D3B7><D1B5><EFBFBD>').AsFloat:=0;
sender.DataSet.FieldByName('<27>ӷ<EFBFBD>Ԥ<EFBFBD><D4A4>').AsFloat:=sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1').AsFloat+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2').AsFloat
+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3').AsFloat+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4').AsFloat+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5').AsFloat
+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6').AsFloat+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>7').AsFloat+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>8').AsFloat;
end;
if sender.DataSet.FieldByName('<27>ӷѸ<D3B7><D1B8>ʽ').AsString='CC' then
begin
sender.DataSet.FieldByName('<27>ӷ<EFBFBD>Ԥ<EFBFBD><D4A4>').AsFloat:=0;
sender.DataSet.FieldByName('<27>ӷѵ<D3B7><D1B5><EFBFBD>').AsFloat:=sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1').AsFloat+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2').AsFloat
+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3').AsFloat+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4').AsFloat+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5').AsFloat
+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6').AsFloat+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>7').AsFloat+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>8').AsFloat;
end;
if (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1').AsFloat<>0) and (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1').Asstring<>'') then
S:=S+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1').Asstring+':'+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1').AsString+';';
if (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2').AsFloat<>0) and (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2').Asstring<>'') then
S:=S+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2').Asstring+':'+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2').AsString+';';
if (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3').AsFloat<>0) and (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3').Asstring<>'') then
S:=S+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3').Asstring+':'+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3').AsString+';';
if (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4').AsFloat<>0) and (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4').Asstring<>'') then
S:=S+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4').Asstring+':'+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4').AsString+';';
if (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5').AsFloat<>0) and (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5').Asstring<>'') then
S:=S+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5').Asstring+':'+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5').AsString+';';
if (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6').AsFloat<>0) and (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6').Asstring<>'') then
S:=S+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6').Asstring+':'+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6').AsString+';';
if (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>7').AsFloat<>0) and (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>7').Asstring<>'') then
S:=S+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>7').Asstring+':'+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>7').AsString+';';
if (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>8').AsFloat<>0) and (sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>8').Asstring<>'') then
S:=S+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>8').Asstring+':'+sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>8').AsString+';';
sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring:=S;
end;
procedure Tfrm_op_aire.setconcolor;
procedure consetcolor(fielname:String);
var
i:integer;
scolor:string;
begin
scolor:=get_parameters_value(144,'clInfoBk');
with bsSkinTabSheet1 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><EFBFBD>ɫ
frm_data_share.t_code_empty.Filtered:=false;
frm_data_share.t_code_empty.Filter:='<27><>=''t_op_aire''';
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
if t_op_aire1.DataSet.FindField('װ<>˷<EFBFBD>ʽ')<>nil then begin
if pos('<27><>Ʊ',t_op_aire1.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_aire.Notebook1PageChanged(Sender: TObject);
begin
setconcolor;
end;
procedure Tfrm_op_aire.DBEdit7DblClick(Sender: TObject);
begin
with frm_data_share.P_GetMaxHblno do begin
close;
Parameters.ParamByName('@hblhead').value:=DBEdit7.text+'%';
open;
if (not IsEmpty) and (FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString<>'') then begin
lblhbl.Caption:=FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
bsSkinPanel10.Visible:=true;
end;
end;
end;
procedure Tfrm_op_aire.DBEdit7Exit(Sender: TObject);
begin
bsSkinPanel10.Visible:=false;
end;
procedure Tfrm_op_aire.wwDBLookupCombo15Change(Sender: TObject);
begin
if (t_op_aire1.DataSet.state=dsinsert)or(t_op_aire1.DataSet.state=dsedit)then
begin
if wwDBLookupCombo15.text='' then
exit;
if frm_data_share.t_code_port_air.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo15.text,[]) then begin
t_op_aire1.DataSet['Ŀ<>ĸ<EFBFBD>']:=frm_data_share.t_code_port_air['Ӣ<><D3A2><EFBFBD><EFBFBD>'];
t_op_aire1.DataSet['Ŀ<>ĸ۹<C4B8><DBB9><EFBFBD>']:=frm_data_share.t_code_port_air['<27><><EFBFBD><EFBFBD>'];
end else begin
t_op_aire1.DataSet['Ŀ<>ĸ<EFBFBD>']:='';
t_op_aire1.DataSet['Ŀ<>ĸ۹<C4B8><DBB9><EFBFBD>']:='';
end;
end;
end;
procedure Tfrm_op_aire.wwDBLookupCombo15KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit10);
end;
procedure Tfrm_op_aire.DBEdit54KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo2);
end;
procedure Tfrm_op_aire.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit54);
end;
procedure Tfrm_op_aire.bsSkinSpeedButton1Click(Sender: TObject);
begin
if t_op_aire1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (t_op_aire1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']='') then begin
t_op_aire1.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_aire1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(3,subComp,department,employee,t_op_aire1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_aire1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(3,subComp,department,employee,t_op_aire1.DataSet['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
end;
end;
procedure Tfrm_op_aire.DBEdit8DblClick(Sender: TObject);
begin
with frm_data_share.P_GetMaxWTno do begin
close;
Parameters.ParamByName('@hblhead').value:=DBEdit8.text+'%';
open;
if (not IsEmpty) and (FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString<>'') then begin
lblwt.Caption:=FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
bsSkinPanel4.Visible:=true;
end;
end;
end;
procedure Tfrm_op_aire.DBEdit54DblClick(Sender: TObject);
begin
with frm_data_share.P_GetMaxDCno do begin
close;
Parameters.ParamByName('@hblhead').value:=DBEdit54.text+'%';
open;
if (not IsEmpty) and (FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString<>'') then begin
lbldc.Caption:=FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString;
bsSkinPanel12.Visible:=true;
end;
end;
end;
procedure Tfrm_op_aire.DBEdit8Exit(Sender: TObject);
begin
bsSkinPanel4.Visible:=false;
end;
procedure Tfrm_op_aire.DBEdit54Exit(Sender: TObject);
begin
bsSkinPanel12.Visible:=false;
end;
procedure Tfrm_op_aire.bsSkinButton31Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton31.ClientToScreen(Point(0,bsSkinButton31.Height));
PopupMenu5.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_aire.wwDBComboBox1DropDown(Sender: TObject);
var
aQuery:TAdoQuery;
begin
wwDBComboBox1.Items.Clear;
if t_op_aire1.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString='' then begin
exit;
end;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
close;sql.Clear;
sql.Add('select <20><>Դ<EFBFBD><D4B4>ϸ from t_code_source_dl where ҵ<><D2B5><EFBFBD><EFBFBD>Դ='''+t_op_aire1.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString+''' order by <20><>Դ<EFBFBD><D4B4>ϸ ');
open;
first;
while not eof do begin
wwDBComboBox1.Items.Add(FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString);
next;
end;
end;
finally
FreeAndNil(aQuery);
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo31Change(Sender: TObject);
begin
t_op_aire1.DataSet.FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString:='';
end;
procedure Tfrm_op_aire.wwDBComboBox1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo8);
end;
procedure Tfrm_op_aire.EXCEL1Click(Sender: TObject);
begin
if t_op_aire1.DataSet=nil then
exit;
if t_op_aire1.DataSet.IsEmpty then
exit;
if (t_op_aire1.DataSet.State=dsinsert)or(t_op_aire1.DataSet.State=dsedit) then
t_op_aire1.DataSet.post;
try
frm_op_seae_excel:=tfrm_op_seae_excel.Create (self);
frm_op_seae_excel.tradetype:='AIR';
frm_op_seae_excel.ShowModal;
finally
frm_op_seae_excel.Free;
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo9Change(Sender: TObject);
begin
if (t_op_aire1.DataSet.State=dsinsert)or(t_op_aire1.DataSet.State=dsedit)then
begin
if RxDBLookupCombo9.DisplayValue<>'' then
t_op_aire1.DataSet['<27><><EFBFBD>չ<EFBFBD>˾']:=frm_data_share.t_crm_client_hangkong.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_aire.N55Click(Sender: TObject);
var
can_do:boolean;
gdo,xdo:smallint;
begin
if t_op_aire1.DataSet=nil then
exit;
if t_op_aire1.DataSet.IsEmpty then
exit;
if not do_data('0003',t_op_aire1.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_aire1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_aire1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_aire1.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
,''
,'') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
abort;
end;
if t_op_aire1.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>');
abort;
end;
t_ch_fee.close;
t_ch_fee.Parameters[0].value:=t_op_aire1.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>');
exit;
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_aire1.DataSet.edit;
t_op_aire1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
t_op_aire1.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if (gdo<>0) or (xdo<>0) then begin
if trim(t_op_aire1.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if t_op_aire1.DataSet['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_aire1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_aire1.DataSet['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(t_op_aire1.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then begin
if t_op_aire1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
t_op_aire1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_aire1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
end;
t_op_aire1.DataSet.post;
finally
prnlist:=false;
end;
end;
end;
procedure Tfrm_op_aire.N56Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_aire1,nil,nil,nil,t_op_aire_fen1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_aire.N58Click(Sender: TObject);
var
str:widestring;
i:integer;
begin
if t_op_aire_fen.IsEmpty then
exit;
if dxDBGrid2.SelectedCount<1 then
begin
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA>ӡ<EFBFBD><D3A1>ҵ<EFBFBD><D2B5><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
try
t_op_aire_fen.DisableControls;
for i:=0 to dxDBGrid2.SelectedCount-1 do
begin
t_op_aire_fen.GotoBookmark(pointer(dxDBGrid2.selectedrows[i]));
if str='' then
str:=''''+t_op_aire_fen.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
else
str:=str+','+''''+t_op_aire_fen.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
end;
str:='('+str+')';
str:='select * from t_op_aire where <20><><EFBFBD><EFBFBD> in '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_ch_client.close;
t_ch_client.sql.text:=str;
t_ch_client.open;
finally
t_op_aire_fen.EnableControls;
end;
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_aire1,nil,nil,nil,t_ch_client1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_aire.t_op_aire_fenAfterPost(DataSet: TDataSet);
var
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_aire where װ<>˷<EFBFBD>ʽ=''<27><><EFBFBD>˷<EFBFBD>Ʊ'' 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_aire 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_aire.Refresh;
end;
end;
finally
FreeAndNil(aQuery);
dataset.Locate('<27><><EFBFBD><EFBFBD>',bsno,[]);
end;
}
end;
procedure Tfrm_op_aire.RxDBLookupCombo16KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo6);
end;
procedure Tfrm_op_aire.wwDBLookupCombo6KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo3);
end;
procedure Tfrm_op_aire.RxDBLookupCombo17KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo7);
end;
procedure Tfrm_op_aire.RxDBLookupCombo18KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo8);
end;
procedure Tfrm_op_aire.RxDBLookupCombo19KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo9);
end;
procedure Tfrm_op_aire.wwDBLookupCombo7KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo4);
end;
procedure Tfrm_op_aire.wwDBLookupCombo8KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo5);
end;
procedure Tfrm_op_aire.wwDBLookupCombo9KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo6);
end;
procedure Tfrm_op_aire.wwDBLookupCombo13KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo1);
end;
procedure Tfrm_op_aire.wwDBLookupCombo10KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo33);
end;
procedure Tfrm_op_aire.wwDBLookupCombo11KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo34);
end;
procedure Tfrm_op_aire.wwDBLookupCombo12KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo35);
end;
procedure Tfrm_op_aire.wwDBComboBox4KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo31);
end;
procedure Tfrm_op_aire.bsSkinButton14Click(Sender: TObject);
begin
if not (if_open('297') or if_open('298')) then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><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_aire_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_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_ch_accept.open;
fra_fee_zhu1.zhupiao1.DataSet:=t_op_aire;
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_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_ch_pay.open;
fra_fee_zhu1.zhupiao1.DataSet:=t_op_aire;
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_aire.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_aire.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_aire.bsSkinButton45Click(Sender: TObject);
var
tempstr:widestring;
begin
if airepsqlstr<>'' then begin
tempstr:=airepsqlstr;
t_op_aire.close;
if t_op_aire.sql.Text<>'' then
airepsqlstr:=t_op_aire.sql.Text;
t_op_aire.sql.clear;
t_op_aire.sql.add(tempstr);
t_op_aire.Open;
end;
end;
procedure Tfrm_op_aire.N60Click(Sender: TObject);
begin
//ǿ<>ƴ<EFBFBD>д
if t_op_aire1.dataset.state in [dsedit,dsinsert] then t_op_aire1.dataset.post;
if t_op_aire1.dataset.IsEmpty then exit;
t_op_aire1.DataSet.Edit;
t_op_aire1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('<27><>ͷ').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('<27><>ͷ').AsString);
t_op_aire1.DataSet.FieldByName('<27><>ע').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('<27><>ע').AsString);
t_op_aire1.DataSet.FieldByName('һ<>̺<EFBFBD><CCBA><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('һ<>̺<EFBFBD><CCBA><EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('һ<><D2BB>Ŀ<EFBFBD>ĸ<EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('һ<><D2BB>Ŀ<EFBFBD>ĸ<EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('ʼ<><CABC><EFBFBD><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('ʼ<><CABC><EFBFBD><EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('Ŀ<>ĸ<EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('Ŀ<>ĸ<EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('ʼ<><CABC><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('ʼ<><CABC><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('Ŀ<>ĸ۹<C4B8><DBB9><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('Ŀ<>ĸ۹<C4B8><DBB9><EFBFBD>').AsString);
t_op_aire1.DataSet.FieldByName('Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>').AsString:=UpperCase(t_op_aire1.DataSet.FieldByName('Ŀ<>ĸ۴<C4B8><DBB4><EFBFBD>').AsString);
t_op_aire1.DataSet.post;
end;
procedure Tfrm_op_aire.bsSkinButton48Click(Sender: TObject);
var
FileStream:TFileStream;
fsize:double;
begin
op_befor_post(t_op_aire,'0003');
if OpenDialog1.Execute then begin
FileStream:=TFileStream.Create(Opendialog1.FileName,fmopenRead); //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
try
fsize:=FileStream.size;
finally
freeandnil(FileStream);
end;
if fsize>500000 then begin
MessageDlg('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD>500K<30><4B><EFBFBD><EFBFBD>',mtWarning,[mbyes],0);
end else
UpLoadPro(Opendialog1.FileName);
end else exit ;
end;
procedure Tfrm_op_aire.bsSkinButton49Click(Sender: TObject);
begin
if SaveDialog1.Execute then begin
DownLoadPro(Savedialog1.FileName+t_op_file.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end else exit ;
end;
procedure Tfrm_op_aire.bsSkinButton50Click(Sender: TObject);
var
arr: array[0..MAX_PATH] of Char;
num: DWORD;
tmpfile:string ;
begin
try
GetTempPath(MAX_PATH, arr);
tmpfile:=arr+t_op_file.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring ;
DownLoadPro(tmpfile) ;
ShellExecute(Handle, nil, pchar(tmpfile), nil, nil, SW_NORMAL);
except
showmessage('<27><><EFBFBD>ܴ<EFBFBD><DCB4><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӵȴ<D3B5><C8B4><EFBFBD><EFBFBD><EFBFBD>');
end ;
end;
procedure Tfrm_op_aire.bsSkinButton51Click(Sender: TObject);
begin
op_befor_post(t_op_aire,'0003');
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
t_op_file.delete ;
end;
procedure Tfrm_op_aire.t_op_fileBeforeEdit(DataSet: TDataSet);
begin
op_befor_post(t_op_aire,'0003');
end;
procedure Tfrm_op_aire.DownLoadPro(fname: string);
const
MaxBufSize=$F000;
var
myfilename:string;//<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
myfileStream,exeBlobStream:TStream;
Count,BufSize,N: Integer;
Buffer:PChar;
begin
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;
frm_sys_progress.Update;
myfilename:=FName ;
with t_op_file do
begin
myfilename:=myfilename ; //+fieldbyname('<27><><EFBFBD><EFBFBD>').asstring ;
myfileStream :=TFileStream.Create(myfilename,fmCreate);//<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
try //SaveToStream(Stream);
ExeBlobStream:=CreateBlobStream(FieldByName('<27><><EFBFBD><EFBFBD>'),bmRead); //<2F><><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD>ȡ<EFBFBD>ü<EFBFBD>¼
Count:=0;
try
if Count=0 then
begin
ExeBlobStream.Position:=0;
Count:=ExeBlobStream.Size;//showmessage(inttostr(count));
end;
if Count>MaxBufSize then BufSize:=MaxBufSize else BufSize:=Count;
GetMem(Buffer,BufSize);
frm_sys_progress.bsSkinGauge1.MaxValue:=(Count div BufSize)+2;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
try
while Count<>0 do
begin
if Count>BufSize then N:=BufSize else N:=Count;
ExeBlobStream.ReadBuffer(Buffer^,N);//<2F><><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
MyFileStream.WriteBuffer(Buffer^,N);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><D0B4><EFBFBD>ļ<EFBFBD>
Dec(Count,N);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
end;
finally
FreeMem(Buffer,BufSize);
end;
finally
ExeBlobStream.Free;
end;
finally
myfileStream.Free;
end;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.close;
frm_sys_progress:=nil;
end;
procedure Tfrm_op_aire.UpLoadPro(fname: string);
const
BufSize=$F000;
var
Counter, N: Integer;
Buffer: PAnsiChar;
FieldStrm: TStream;
ExeFileStream:TFileStream;
size_tmp: Double;
filename,fileExt:string ;
begin
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;
frm_sys_progress.Update;
filename:=ExtractFileName(fname) ;
fileExt:=ExtractFileExt(filename) ;
ExeFileStream:=TFileStream.Create(fname,fmopenRead); //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
with t_op_file do
begin
Open;
append;
try
FieldStrm := CreateBlobStream(FieldByName('<27><><EFBFBD><EFBFBD>'),bmWrite);
GetMem(Buffer,BufSize);
try
Counter := ExeFileStream.Size;
size_tmp :=ExeFileStream.Size;
frm_sys_progress.bsSkinGauge1.MaxValue:=(Counter div BufSize)+2;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
while Counter<>0 do
begin
if Counter>BufSize then N :=BufSize else N:=Counter;
ExeFileStream.ReadBuffer(Buffer^,N);
FieldStrm.WriteBuffer(Buffer^, N);
Dec(Counter, N);
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
// Application.ProcessMessages;
end;
finally
FreeMem(Buffer,BufSize);
FieldStrm.Free;
end;
FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=filename;
FieldByName('<27><>С').AsFloat:=size_tmp;
FieldByName('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD>').AsDateTime:=now();
FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring:=employee;
FieldByName('<27><><EFBFBD><EFBFBD>').Asstring:=fileExt;
Post;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!','<27><>ʾ',MB_OK+MB_IconInformation);
finally
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.close;
frm_sys_progress:=nil;
ExeFileStream.Free;
end;
end;
end;
procedure Tfrm_op_aire.wwDBDateTimePicker3Change(Sender: TObject);
begin
if not wwDBDateTimePicker3.Focused then exit;
if (strtoint(get_parameters_value(158,'0'))=1) and (Trim(t_op_aire1.dataset.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD>ĵ<EFBFBD>') then
wwDBDateTimePicker3.ReadOnly:=true;
end;
procedure Tfrm_op_aire.fra_fee1bsSkinButton9Click(Sender: TObject);
begin
fra_fee1.bsSkinButton9Click(Sender);
end;
procedure Tfrm_op_aire.DBEdit31DblClick(Sender: TObject);
begin
if t_op_aire1.DataSet=nil then
exit;
if op_empty('t_op_aire',t_op_aire) then
begin
Exit;
end;
if (t_op_aire1.DataSet.State=dsinsert)then
t_op_aire1.DataSet.post;
if t_op_aire1.DataSet.IsEmpty then
exit;
try
frm_op_Air_Goods:=Tfrm_op_Air_Goods.Create (self);
frm_op_Air_Goods.t_op_Air_Goods.DataSource:=t_op_aire1;
frm_op_Air_Goods.ShowModal;
finally
frm_op_Air_Goods.Free;
end;
end;
procedure Tfrm_op_aire.N63Click(Sender: TObject);
var
i:integer;
aAdoQuery,aAdoQueryUpdate:TAdoQuery;
IdFTP1:TIdFTP;
str,str_file:widestring;
inifile1:Tinifile;
FTPHost,FTPUsername,FTPPassword,FTPPATH,ScriptPath:String;
begin
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;
frm_sys_progress.bsSkinGauge1.MaxValue:=dxDBGrid1.SelectedCount;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
frm_sys_progress.Update;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'Ftptrans.ini');
FTPHost:=inifile1.ReadString('BJHX','FTPHost','');
FTPUsername:=inifile1.ReadString('BJHX','FTPUsername','');
FTPPassword:=inifile1.ReadString('BJHX','FTPPassword','/');
FTPPATH:=inifile1.ReadString('BJHX','FTPPATH','');
if t_op_aire1.DataSet.IsEmpty then
exit;
if trim(FTPHost)='' then exit;
aAdoQueryUpdate:=CreateAdoQuery;
with aAdoQueryUpdate do
begin
close;
sql.clear;
Close;sql.Clear;
SQL.Add('update t_OP_aire set <20><><EFBFBD><EFBFBD>ƾ֤2=''<27><>''');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
end;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
begin
close;
sql.clear;
Close;sql.Clear;
SQL.Add('select t_OP_aire.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>,''<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'' as YWZL,t_OP_aire.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.* from t_ch_fee');
SQL.Add('left Join t_OP_aire on t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_OP_aire.<2E><><EFBFBD><EFBFBD>');
SQL.Add('where t_OP_aire.<2E><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and t_OP_aire.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><>''''');
SQL.Add('and t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> in (''<27>ൺ<EFBFBD><E0B5BA>Ѹ'', ''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѹ'')');
end;
try
IdFTP1:=TIdFTP.Create(application);
with idftp1 do
begin
Host:=FTPHost;
Username:=FTPUsername;
Password:=FTPPassword;
Connect;
end;
idftp1.ChangeDir(FTPPATH);
idftp1.TransferType:=ftBinary;
finally
end;
ScriptPath:=ExtractFilePath(ParamStr(0))+'FTPFILE\';
if not DirectoryExists(ScriptPath) then
CreateDir(ScriptPath);
t_op_aire1.DataSet.DisableControls;
if dxDBGrid1.SelectedCount>=1 then
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_aire1.DataSet.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; //4
aAdoQuery.Close;
aAdoQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_aire1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
aAdoQuery.Open;
aAdoQueryUpdate.Close;
aAdoQueryUpdate.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_aire1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
aAdoQueryUpdate.ExecSQL;
if not aAdoQuery.IsEmpty then
begin
aAdoQuery.SaveToFile(ScriptPath+aAdoQuery.FieldByName('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString+'.ds',pfADTG);
str_file:=aAdoQuery.FieldByName('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString+'.ds';
str:=ScriptPath+aAdoQuery.FieldByName('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString+'.ds';
if idftp1.Connected then
begin
idftp1.Put(str,str_file);
end;
end;
end;
try
finally
aAdoQueryUpdate.Free;
aAdoQuery.Free;
frm_sys_progress.close;
frm_sys_progress:=nil;
t_op_aire1.DataSet.EnableControls;
if idftp1.Connected then
idftp1.Disconnect;
end;
end;
procedure Tfrm_op_aire.fra_op_letter_free1bsSkinButton1Click(
Sender: TObject);
begin
fra_op_letter_free1.bsSkinButton1Click(Sender);
end;
procedure Tfrm_op_aire.DBEdit8Change(Sender: TObject);
var aList:TStringList;
begin
aList:=TStringList.Create;
try
aList.Text:=get_parameters_value(186,'false');
if aList.IndexOf('ί<>б<EFBFBD><D0B1><EFBFBD>')>=0 then
begin
if IsInvoiceExist(t_op_aire1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString) then
begin
DBEdit8.ReadOnly:=True;
DBEdit8.Color:=clMoneyGreen;
end
else
begin
DBEdit8.ReadOnly:=false;
DBEdit8.Color:=clWindow;
end;
end;
finally
aList.free;
end;
end;
procedure Tfrm_op_aire.N65Click(Sender: TObject);
var
i:integer;
aAdoQuery,aAdoQueryUpdate:TAdoQuery;
IdFTP1:TIdFTP;
str,str_file:widestring;
inifile1:Tinifile;
FTPHost,FTPUsername,FTPPassword,FTPPATH,ScriptPath:String;
begin
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;
frm_sys_progress.bsSkinGauge1.MaxValue:=dxDBGrid1.SelectedCount;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
frm_sys_progress.Update;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'Ftptrans.ini');
FTPHost:=inifile1.ReadString('BJHX','FTPHost','');
FTPUsername:=inifile1.ReadString('BJHX','FTPUsername','');
FTPPassword:=inifile1.ReadString('BJHX','FTPPassword','/');
FTPPATH:=inifile1.ReadString('BJHX','FTPPATH2','');
if t_op_aire1.DataSet.IsEmpty then
exit;
if trim(FTPHost)='' then exit;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
begin
close;
sql.clear;
Close;sql.Clear;
SQL.Add('select t_OP_aire.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>,''<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'' as YWZL,t_OP_aire.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_ch_fee.* from t_ch_fee');
SQL.Add('left Join t_OP_aire on t_ch_fee.<2E><><EFBFBD><EFBFBD>=t_OP_aire.<2E><><EFBFBD><EFBFBD>');
SQL.Add('where t_OP_aire.<2E><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and t_OP_aire.<2E><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><>''''');
SQL.Add('and t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> not in (''<27>ൺ<EFBFBD><E0B5BA>Ѹ'', ''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѹ'')');
end;
try
IdFTP1:=TIdFTP.Create(application);
with idftp1 do
begin
Host:=FTPHost;
Username:=FTPUsername;
Password:=FTPPassword;
Connect;
end;
idftp1.ChangeDir(FTPPATH);
idftp1.TransferType:=ftBinary;
finally
end;
ScriptPath:=ExtractFilePath(ParamStr(0))+'FTPFILE\';
if not DirectoryExists(ScriptPath) then
CreateDir(ScriptPath);
t_op_aire1.DataSet.DisableControls;
if dxDBGrid1.SelectedCount>=1 then
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_aire1.DataSet.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; //4
if t_op_aire1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').AsString='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
aAdoQuery.Close;
aAdoQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_aire1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').Value;
aAdoQuery.Open;
if not aAdoQuery.IsEmpty then
begin
aAdoQuery.SaveToFile(ScriptPath+aAdoQuery.FieldByName('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString+'.ds',pfADTG);
str_file:=aAdoQuery.FieldByName('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString+'.ds';
str:=ScriptPath+aAdoQuery.FieldByName('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString+'.ds';
if idftp1.Connected then
begin
idftp1.Put(str,str_file);
end;
end;
end;
end;
try
finally
aAdoQueryUpdate.Free;
aAdoQuery.Free;
frm_sys_progress.close;
frm_sys_progress:=nil;
t_op_aire1.DataSet.EnableControls;
if idftp1.Connected then
idftp1.Disconnect;
end;
end;
procedure Tfrm_op_aire.Label4Click(Sender: TObject);
begin
try
frm_crm_query:=Tfrm_crm_query.Create(application);
frm_crm_query.DataSource1:=t_op_aire1;
frm_crm_query.Top:= Screen.height-750;
frm_crm_query.ShowModal;
finally
frm_crm_query.Free;
frm_crm_query:=nil;
end;
end;
procedure Tfrm_op_aire.bsSkinButton12Click(Sender: TObject);
var
i:integer;
aAdoQuery:TAdoQuery;
begin
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
close;
sql.clear;
Close;sql.Clear;
SQL.Add('select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD> from t_ch_fee');
SQL.Add('where <20><><EFBFBD><EFBFBD>=''<27><>'' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
SQL.Add('order by ˳<><CBB3>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
Open;First;
if isempty then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD>ý<EFBFBD><C3BD><EFBFBD>>¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>ȡ');
exit;
end;
i:=1;
while not Eof do
begin
if i<=8 then
begin
t_op_aire.edit;
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(i)).AsString:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
t_op_aire.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(i)).AsFloat:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
i:=i+1;
end;
Next;
end;
finally
if (t_op_aire.State=dsinsert)or(t_op_aire.State=dsedit) then
t_op_aire.post;
Free;
end;
end;
procedure Tfrm_op_aire.N67Click(Sender: TObject);
begin
try
if not assigned(frm_code_fee_project_localair) then
frm_code_fee_project_localair:=tfrm_code_fee_project_localair.Create (self);
frm_code_fee_project_localair.mbltype:='<27><><EFBFBD><EFBFBD>';
frm_code_fee_project_localair.ShowModal;
finally
frm_code_fee_project_localair.free;
frm_code_fee_project_localair:=nil;
end;
end;
procedure Tfrm_op_aire.N69Click(Sender: TObject);
begin
try
if not assigned(frm_code_fee_project_localair) then
frm_code_fee_project_localair:=tfrm_code_fee_project_localair.Create (self);
frm_code_fee_project_localair.mbltype:='<27>ֵ<EFBFBD>';
frm_code_fee_project_localair.ShowModal;
finally
frm_code_fee_project_localair.free;
frm_code_fee_project_localair:=nil;
end;
end;
procedure Tfrm_op_aire.RxDBLookupCombo28Enter(Sender: TObject);
begin
RxLookupComboEnter(RxDBLookupCombo28);
end;
procedure Tfrm_op_aire.RxDBLookupCombo28Exit(Sender: TObject);
begin
RxLookupComboexit(RxDBLookupCombo28);
end;
procedure Tfrm_op_aire.RxDBLookupCombo28KeyPress(Sender: TObject;
var Key: Char);
begin
// key_RxDBLookupCombo(Key,RxDBLookupCombo12);
end;
procedure Tfrm_op_aire.N71Click(Sender: TObject);
begin
try
frm_sys_dep_emp_module:=tfrm_sys_dep_emp_module.Create (self);
frm_sys_dep_emp_module.moduleNames:=frm_op_aire.caption;
frm_sys_dep_emp_module.ShowModal;
finally
frm_sys_dep_emp_module.Free;
loadreggrid(dxdbgrid1,true,caption);
end;
end;
procedure Tfrm_op_aire.N73Click(Sender: TObject);
begin
UpdateUpCase(t_op_aire1);
if assigned(frm_op_aire_assistant) then
UpdateUpCase(frm_op_aire_assistant.t_op_aire_assistant1);
end;
end.
Reference in New Issue View Git Blame Copy Permalink