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_airtruck2.pas

2866 lines
104 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.

unit u_op_airtruck2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, ExtCtrls, Menus, DB, ADODB, RxLookup,
StdCtrls, Mask, DBCtrls, ComCtrls, bsSkinTabs, u_fee,
wwdbdatetimepicker, wwdbedit, Wwdotdot, Wwdbcomb,
wwdblook, bsdbctrls, Grids, DBGridEh, Wwdbigrd, Wwdbgrid, IniFiles,
cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
cxGrid, DBGrids, cxMaskEdit, cxCalendar, cxCheckBox,
cxDBLookupComboBox, cxDropDownEdit,
cxCalc, dxExEdtr, dxDBTLCl, dxTL, dxDBCtrl, dxCntner, dxDBTL, u_op_sate,
DBCtrlsEh, bsSkinBoxCtrls, RXDBCtrl, wwcheckbox, ToolEdit;
type
Tfrm_op_airtruck2 = class(TForm)
Panel2: TPanel;
bsSkinButton7: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButtonmtz: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
Notebook1: TNotebook;
t_op_airtruck: TADOQuery;
t_op_airtruck1: TDataSource;
PopupMenu1: TPopupMenu;
N31: TMenuItem;
t_ch_fee: TADOQuery;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinButton13: TbsSkinButton;
PopupMenu3: TPopupMenu;
N37: TMenuItem;
N38: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
t_op_airtruckdetailprn1: TDataSource;
bsSkinPanel4: TbsSkinPanel;
Label116: TLabel;
Label130: TLabel;
Label131: TLabel;
Edit1: TEdit;
Edit4: TEdit;
Edit2: TEdit;
bsSkinButton44: TbsSkinButton;
bsSkinGroupBox2: TbsSkinGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label37: TLabel;
Label5: TLabel;
Label38: TLabel;
Label4: TLabel;
Label36: TLabel;
Label65: TLabel;
Label41: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit8: TDBEdit;
DBEdit4: TDBEdit;
RxDBLookupCombo1: TRxDBLookupCombo;
DBEdit7: TDBEdit;
DBEdit18: TDBEdit;
Label96: TLabel;
Label97: TLabel;
Label25: TLabel;
Label23: TLabel;
Label19: TLabel;
Label16: TLabel;
DBEdit30: TDBEdit;
DBEdit31: TDBEdit;
wwDBDateTimePicker2: TwwDBDateTimePicker;
RxDBLookupCombo8: TRxDBLookupCombo;
RxDBLookupCombo12: TRxDBLookupCombo;
DBEdit14: TDBEdit;
Label31: TLabel;
DBEdit16: TDBEdit;
DBEdit17: TDBEdit;
Label29: TLabel;
Label32: TLabel;
t_crm_client_linkman: TADOQuery;
Label6: TLabel;
DBEdit5: TDBEdit;
bsSkinPageControl3: TbsSkinPageControl;
pagesheetfp: TbsSkinTabSheet;
Panel1: TPanel;
bsSkinButton17: TbsSkinButton;
bsSkinButton19: TbsSkinButton;
bsSkinButton20: TbsSkinButton;
DBComboBox1: TDBComboBox;
RxDBLookupCombo2: TRxDBLookupCombo;
t_op_airtruckdetail: TADOQuery;
t_op_airtruckdetail1: TDataSource;
bsSkinButton3: TbsSkinButton;
t_op_airtruckdetailDSDesigner: TStringField;
t_op_airtruckdetailDSDesigner2: TStringField;
t_op_airtruckdetailLOT: TStringField;
t_op_airtruckdetailDSDesigner3: TStringField;
t_op_airtruckdetailDSDesigner4: TStringField;
t_op_airtruckdetailDSDesigner5: TStringField;
t_op_airtruckdetailDSDesigner6: TStringField;
t_op_airtruckdetailDSDesigner7: TStringField;
t_op_airtruckdetailDSDesigner8: TDateTimeField;
t_op_airtruckdetailDSDesigner9: TIntegerField;
t_op_airtruckdetailDSDesigner10: TStringField;
t_op_airtruckdetailDSDesigner11: TStringField;
t_op_airtruckdetailDSDesigner12: TStringField;
t_op_airtruckdetailDSDesigner13: TStringField;
t_op_airtruckdetailDSDesigner14: TStringField;
t_op_airtruckdetailDSDesigner15: TStringField;
t_op_airtruckdetailDSDesigner16: TStringField;
t_op_airtruckdetailDSDesigner17: TStringField;
t_op_airtruckdetailDSDesigner23: TDateTimeField;
t_op_airtruckdetailDSDesigner24: TDateTimeField;
t_op_airtruckdetailDSDesigner25: TStringField;
t_op_airtruckdetailDSDesigner27: TStringField;
t_op_airtruckdetailDSDesigner30: TStringField;
t_op_airtruckdetailDSDesigner31: TIntegerField;
t_op_airtruckdetailDSDesigner32: TBCDField;
t_op_airtruckdetailDSDesigner33: TBCDField;
t_op_airtruckdetailDSDesigner34: TStringField;
t_op_airtruckdetailDSDesigner35: TStringField;
t_op_airtruckdetailDSDesigner36: TDateTimeField;
t_op_airtruckdetailDSDesigner37: TStringField;
t_op_airtruckdetailDSDesigner38: TStringField;
t_op_airtruckdetailDSDesigner39: TStringField;
t_op_airtruckdetailDSDesigner40: TStringField;
t_op_airtruckdetailDSDesigner41: TStringField;
t_op_airtruckdetailDSDesigner42: TStringField;
t_op_airtruckdetailDSDesigner43: TBooleanField;
t_op_airtruckdetailDSDesigner44: TDateTimeField;
t_op_airtruckdetailDSDesigner45: TStringField;
t_op_airtruckdetailDSDesigner46: TStringField;
t_op_airtruckdetailDSDesigner47: TStringField;
t_op_airtruckdetailDSDesigner48: TStringField;
t_op_airtruckdetailDSDesigner49: TIntegerField;
t_op_airtruckdetailDSDesigner50: TStringField;
t_op_airtruckdetailDSDesigner57: TStringField;
t_op_airtruckdetailDSDesigner58: TStringField;
t_op_airtruckdetailDSDesigner59: TStringField;
t_op_airtruckdetailDSDesigner60: TBooleanField;
t_op_airtruckdetailDSDesigner61: TStringField;
t_op_airtruckdetailDSDesigner62: TStringField;
t_op_airtruckdetailDSDesigner63: TStringField;
t_op_airtruckdetailDSDesigner72: TStringField;
t_op_airtruckdetailDSDesigner79: TDateTimeField;
t_op_airtruckdetailDSDesigner80: TBooleanField;
t_op_airtruckdetailDSDesigner81: TStringField;
t_op_airtruckdetailDSDesigner82: TStringField;
t_op_airtruckdetailDSDesigner86: TStringField;
t_op_airtruckdetailDSDesigner87: TStringField;
t_op_airtruckdetailDSDesigner88: TDateTimeField;
t_op_airtruckdetailDSDesigner89: TStringField;
t_op_airtruckdetailDSDesigner90: TBooleanField;
t_op_airtruckdetailDSDesigner91: TBooleanField;
t_op_airtruckdetailDSDesigner92: TStringField;
t_op_airtruckdetailDSDesigner93: TStringField;
t_op_airtruckdetailDSDesigner94: TIntegerField;
t_op_airtruckdetailDSDesigner95: TStringField;
t_op_airtruckdetailDSDesigner96: TStringField;
t_op_airtruckdetailDSDesigner97: TBCDField;
t_op_airtruckdetailDSDesigner98: TBCDField;
t_op_airtruckdetailDSDesigner99: TBCDField;
t_op_airtruckdetailDSDesigner100: TBCDField;
t_op_airtruckdetailDSDesigner101: TBCDField;
t_op_airtruckdetailDSDesigner102: TStringField;
t_op_airtruckdetailDSDesigner103: TIntegerField;
t_op_airtruckdetailDSDesigner104: TStringField;
bsSkinButton15: TbsSkinButton;
t_op_airtruckdetailDSDesigner18: TBooleanField;
bsSkinButtonsuo: TbsSkinButton;
dxDBTreeList1: TdxDBTreeList;
dxDBTreeList1Column1: TdxDBTreeListMaskColumn;
dxDBTreeList1Column2: TdxDBTreeListMaskColumn;
dxDBTreeList1LOT: TdxDBTreeListMaskColumn;
dxDBTreeList1Column4: TdxDBTreeListMaskColumn;
dxDBTreeList1Column5: TdxDBTreeListMaskColumn;
dxDBTreeList1Column6: TdxDBTreeListMaskColumn;
dxDBTreeList1Column7: TdxDBTreeListMaskColumn;
dxDBTreeList1Column8: TdxDBTreeListMaskColumn;
dxDBTreeList1Column9: TdxDBTreeListDateColumn;
dxDBTreeList1Column10: TdxDBTreeListMaskColumn;
dxDBTreeList1Column11: TdxDBTreeListMaskColumn;
dxDBTreeList1Column12: TdxDBTreeListMaskColumn;
dxDBTreeList1Column13: TdxDBTreeListMaskColumn;
dxDBTreeList1Column14: TdxDBTreeListMaskColumn;
dxDBTreeList1Column15: TdxDBTreeListMaskColumn;
dxDBTreeList1Column16: TdxDBTreeListMaskColumn;
dxDBTreeList1Column17: TdxDBTreeListMaskColumn;
dxDBTreeList1Column18: TdxDBTreeListMaskColumn;
dxDBTreeList1Column19: TdxDBTreeListMaskColumn;
dxDBTreeList1Column20: TdxDBTreeListMaskColumn;
dxDBTreeList1Column21: TdxDBTreeListMaskColumn;
dxDBTreeList1Column22: TdxDBTreeListMaskColumn;
dxDBTreeList1Column23: TdxDBTreeListMaskColumn;
dxDBTreeList1Column24: TdxDBTreeListDateColumn;
dxDBTreeList1Column25: TdxDBTreeListDateColumn;
dxDBTreeList1Column26: TdxDBTreeListMaskColumn;
dxDBTreeList1Column27: TdxDBTreeListMaskColumn;
dxDBTreeList1Column28: TdxDBTreeListMaskColumn;
dxDBTreeList1Column29: TdxDBTreeListMaskColumn;
dxDBTreeList1Column30: TdxDBTreeListMaskColumn;
dxDBTreeList1Column31: TdxDBTreeListMaskColumn;
dxDBTreeList1Column32: TdxDBTreeListMaskColumn;
dxDBTreeList1Column33: TdxDBTreeListCurrencyColumn;
dxDBTreeList1Column34: TdxDBTreeListCurrencyColumn;
dxDBTreeList1Column35: TdxDBTreeListMaskColumn;
dxDBTreeList1Column36: TdxDBTreeListMaskColumn;
dxDBTreeList1Column37: TdxDBTreeListDateColumn;
dxDBTreeList1Column38: TdxDBTreeListMaskColumn;
dxDBTreeList1Column39: TdxDBTreeListMaskColumn;
dxDBTreeList1Column40: TdxDBTreeListMaskColumn;
dxDBTreeList1Column41: TdxDBTreeListMaskColumn;
dxDBTreeList1BGS: TdxDBTreeListMaskColumn;
dxDBTreeList1SA: TdxDBTreeListMaskColumn;
dxDBTreeList1Column44: TdxDBTreeListMaskColumn;
dxDBTreeList1Column45: TdxDBTreeListMaskColumn;
dxDBTreeList1Column46: TdxDBTreeListMaskColumn;
dxDBTreeList1Column47: TdxDBTreeListMaskColumn;
dxDBTreeList1Column48: TdxDBTreeListMaskColumn;
dxDBTreeList1Column49: TdxDBTreeListMaskColumn;
dxDBTreeList1Column50: TdxDBTreeListMaskColumn;
dxDBTreeList1Column51: TdxDBTreeListMaskColumn;
dxDBTreeList1Column52: TdxDBTreeListMaskColumn;
dxDBTreeList1Column53: TdxDBTreeListMaskColumn;
dxDBTreeList1Column54: TdxDBTreeListCheckColumn;
dxDBTreeList1Column55: TdxDBTreeListDateColumn;
dxDBTreeList1Column56: TdxDBTreeListMaskColumn;
dxDBTreeList1Column57: TdxDBTreeListMaskColumn;
dxDBTreeList1Column58: TdxDBTreeListMaskColumn;
dxDBTreeList1Column59: TdxDBTreeListMaskColumn;
dxDBTreeList1Column60: TdxDBTreeListMaskColumn;
dxDBTreeList1Column61: TdxDBTreeListMaskColumn;
dxDBTreeList1Column62: TdxDBTreeListCheckColumn;
dxDBTreeList1Column63: TdxDBTreeListCheckColumn;
dxDBTreeList1Column64: TdxDBTreeListDateColumn;
dxDBTreeList1Column65: TdxDBTreeListCheckColumn;
dxDBTreeList1Column66: TdxDBTreeListMaskColumn;
dxDBTreeList1Column67: TdxDBTreeListDateColumn;
dxDBTreeList1Column68: TdxDBTreeListMaskColumn;
dxDBTreeList1Column69: TdxDBTreeListMaskColumn;
dxDBTreeList1Column70: TdxDBTreeListMaskColumn;
dxDBTreeList1Column71: TdxDBTreeListCheckColumn;
dxDBTreeList1Column72: TdxDBTreeListMaskColumn;
dxDBTreeList1Column73: TdxDBTreeListMaskColumn;
dxDBTreeList1Column74: TdxDBTreeListMaskColumn;
dxDBTreeList1upload: TdxDBTreeListMaskColumn;
dxDBTreeList1HY: TdxDBTreeListMaskColumn;
dxDBTreeList1Column77: TdxDBTreeListMaskColumn;
dxDBTreeList1Column78: TdxDBTreeListMaskColumn;
dxDBTreeList1Column79: TdxDBTreeListMaskColumn;
dxDBTreeList1Column80: TdxDBTreeListMaskColumn;
dxDBTreeList1Column81: TdxDBTreeListMaskColumn;
dxDBTreeList1Column82: TdxDBTreeListMaskColumn;
dxDBTreeList1Column83: TdxDBTreeListMaskColumn;
dxDBTreeList1Column84: TdxDBTreeListMaskColumn;
dxDBTreeList1Column85: TdxDBTreeListDateColumn;
dxDBTreeList1Column86: TdxDBTreeListDateColumn;
dxDBTreeList1Column87: TdxDBTreeListMaskColumn;
dxDBTreeList1Column88: TdxDBTreeListMaskColumn;
dxDBTreeList1Column89: TdxDBTreeListMaskColumn;
dxDBTreeList1Column90: TdxDBTreeListMaskColumn;
dxDBTreeList1Column91: TdxDBTreeListMaskColumn;
dxDBTreeList1Column92: TdxDBTreeListMaskColumn;
dxDBTreeList1Column93: TdxDBTreeListMaskColumn;
dxDBTreeList1Column94: TdxDBTreeListMaskColumn;
dxDBTreeList1Column95: TdxDBTreeListDateColumn;
dxDBTreeList1Column96: TdxDBTreeListDateColumn;
dxDBTreeList1Column97: TdxDBTreeListCheckColumn;
dxDBTreeList1Column98: TdxDBTreeListMaskColumn;
dxDBTreeList1Column99: TdxDBTreeListMaskColumn;
dxDBTreeList1Column100: TdxDBTreeListMaskColumn;
dxDBTreeList1Column101: TdxDBTreeListMaskColumn;
dxDBTreeList1Column102: TdxDBTreeListMaskColumn;
dxDBTreeList1Column103: TdxDBTreeListMaskColumn;
dxDBTreeList1Column104: TdxDBTreeListMaskColumn;
dxDBTreeList1Column105: TdxDBTreeListDateColumn;
dxDBTreeList1Column106: TdxDBTreeListMaskColumn;
dxDBTreeList1Column107: TdxDBTreeListCheckColumn;
dxDBTreeList1Column108: TdxDBTreeListCheckColumn;
dxDBTreeList1Column109: TdxDBTreeListMaskColumn;
dxDBTreeList1Column110: TdxDBTreeListMaskColumn;
dxDBTreeList1Column111: TdxDBTreeListMaskColumn;
dxDBTreeList1Column112: TdxDBTreeListMaskColumn;
dxDBTreeList1Column113: TdxDBTreeListMaskColumn;
dxDBTreeList1Column114: TdxDBTreeListCurrencyColumn;
dxDBTreeList1Column115: TdxDBTreeListCurrencyColumn;
dxDBTreeList1Column116: TdxDBTreeListCurrencyColumn;
dxDBTreeList1Column117: TdxDBTreeListCurrencyColumn;
dxDBTreeList1Column118: TdxDBTreeListCurrencyColumn;
dxDBTreeList1Column119: TdxDBTreeListMaskColumn;
dxDBTreeList1Column120: TdxDBTreeListMaskColumn;
dxDBTreeList1Column121: TdxDBTreeListMaskColumn;
bsSkinTabSheet2: TbsSkinTabSheet;
fra_op_state1: Tfra_op_state;
bsSkinTabSheet3: TbsSkinTabSheet;
fra_fee2: Tfra_fee;
DBEdit9: TDBEditEh;
bsSkinTabSheet4: TbsSkinTabSheet;
fra_fee1: Tfra_fee;
Splitter1: TSplitter;
Panel3: TPanel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
Label7: TLabel;
Label8: TLabel;
RxDBLookupCombo3: TRxDBLookupCombo;
Label9: TLabel;
DBEdit6: TDBEdit;
Label10: TLabel;
DBEdit10: TDBEdit;
Label11: TLabel;
DBEdit11: TDBEdit;
Label12: TLabel;
DBEdit12: TDBEdit;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
DBEdit13: TDBEdit;
DBEdit15: TDBEdit;
Label17: TLabel;
Label18: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label24: TLabel;
Label26: TLabel;
Label27: TLabel;
RxDBLookupCombo10: TRxDBLookupCombo;
RxDBLookupCombo14: TRxDBLookupCombo;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBDateEdit1: TDBDateEdit;
RxDBLookupCombo9: TRxDBLookupCombo;
Label28: TLabel;
Label30: TLabel;
qryjcz: TADOQuery;
dsrjcz: TDataSource;
qryjczfid: TAutoIncField;
qryjczDSDesigner: TStringField;
qryjczDSDesigner2: TBCDField;
qryjczDSDesigner3: TBCDField;
qryjczDSDesigner4: TBCDField;
qryjczDSDesigner5: TIntegerField;
Panel4: TPanel;
bsSkinButton12: TbsSkinButton;
btndelete: TbsSkinButton;
btnpost: TbsSkinButton;
btncancel: TbsSkinButton;
qryjczsum: TADOQuery;
Panelfenpiao: TPanel;
bsSkinButtontt: TbsSkinButton;
bsSkinButtonprint: TbsSkinButton;
bsSkinButton16: TbsSkinButton;
bsSkinButton18: TbsSkinButton;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGrid2DBTableView1: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
cxGrid2DBTableView1fid: TcxGridDBColumn;
cxGrid2DBTableView1DBColumn: TcxGridDBColumn;
cxGrid2DBTableView1DBColumn1: TcxGridDBColumn;
cxGrid2DBTableView1DBColumn2: TcxGridDBColumn;
cxGrid2DBTableView1DBColumn3: TcxGridDBColumn;
cxGrid2DBTableView1DBColumn4: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
cxGrid1DBTableView1LOT: 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;
cxGrid1DBTableView1DBColumn42: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn43: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn44: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn45: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn46: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn47: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn48: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn49: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn50: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn51: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn52: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn53: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn54: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn55: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn56: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn57: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn58: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn59: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn60: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn61: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn62: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn63: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn64: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn65: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn66: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn67: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn68: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn69: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn70: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn71: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn72: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn73: TcxGridDBColumn;
Label33: TLabel;
Label34: TLabel;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
Label35: TLabel;
DBEdit23: TDBEdit;
bsSkinTabSheet5: TbsSkinTabSheet;
Panel5: TPanel;
bsSkinButtonfind: TbsSkinButton;
bsSkinButton25: TbsSkinButton;
bsSkinButton26: TbsSkinButton;
bsSkinButton27: TbsSkinButton;
bsSkinButton28: TbsSkinButton;
Panel6: TPanel;
cxGrid3: TcxGrid;
cxGridDBTableViewfind: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridDBColumn22: TcxGridDBColumn;
cxGridDBColumn23: TcxGridDBColumn;
cxGridDBColumn24: TcxGridDBColumn;
cxGridDBColumn25: TcxGridDBColumn;
cxGridDBColumn26: TcxGridDBColumn;
cxGridDBColumn27: TcxGridDBColumn;
cxGridDBColumn28: TcxGridDBColumn;
cxGridDBColumn29: TcxGridDBColumn;
cxGridDBColumn30: TcxGridDBColumn;
cxGridDBColumn31: TcxGridDBColumn;
cxGridDBColumn32: TcxGridDBColumn;
cxGridDBColumn33: TcxGridDBColumn;
cxGridDBColumn34: TcxGridDBColumn;
cxGridDBColumn35: TcxGridDBColumn;
cxGridDBColumn36: TcxGridDBColumn;
cxGridDBColumn37: TcxGridDBColumn;
cxGridDBColumn38: TcxGridDBColumn;
cxGridDBColumn39: TcxGridDBColumn;
cxGridDBColumn40: TcxGridDBColumn;
cxGridDBColumn41: TcxGridDBColumn;
cxGridDBColumn42: TcxGridDBColumn;
cxGridDBColumn43: TcxGridDBColumn;
cxGridDBColumn44: TcxGridDBColumn;
cxGridDBColumn45: TcxGridDBColumn;
cxGridDBColumn46: TcxGridDBColumn;
cxGridDBColumn47: TcxGridDBColumn;
cxGridDBColumn48: TcxGridDBColumn;
cxGridDBColumn49: TcxGridDBColumn;
cxGridDBColumn50: TcxGridDBColumn;
cxGridDBColumn51: TcxGridDBColumn;
cxGridDBColumn52: TcxGridDBColumn;
cxGridDBColumn53: TcxGridDBColumn;
cxGridDBColumn54: TcxGridDBColumn;
cxGridDBColumn55: TcxGridDBColumn;
cxGridDBColumn56: TcxGridDBColumn;
cxGridDBColumn57: TcxGridDBColumn;
cxGridDBColumn58: TcxGridDBColumn;
cxGridDBColumn59: TcxGridDBColumn;
cxGridDBColumn60: TcxGridDBColumn;
cxGridDBColumn61: TcxGridDBColumn;
cxGridDBColumn62: TcxGridDBColumn;
cxGridDBColumn63: TcxGridDBColumn;
cxGridDBColumn64: TcxGridDBColumn;
cxGridDBColumn65: TcxGridDBColumn;
cxGridDBColumn66: TcxGridDBColumn;
cxGridDBColumn67: TcxGridDBColumn;
cxGridDBColumn68: TcxGridDBColumn;
cxGridDBColumn69: TcxGridDBColumn;
cxGridDBColumn70: TcxGridDBColumn;
cxGridDBColumn71: TcxGridDBColumn;
cxGridDBColumn72: TcxGridDBColumn;
cxGridDBColumn73: TcxGridDBColumn;
cxGridDBColumn74: TcxGridDBColumn;
cxGridDBColumn75: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Splitter2: TSplitter;
t_op_airtruckdetailfind: TADOQuery;
t_op_airtruckdetailfind1: TDataSource;
fra_fee3: Tfra_fee;
t_op_airtruckdetailfindDSDesigner: TStringField;
t_op_airtruckdetailfindDSDesigner2: TStringField;
t_op_airtruckdetailfindLOT: TStringField;
t_op_airtruckdetailfindDSDesigner3: TStringField;
t_op_airtruckdetailfindDSDesigner4: TStringField;
t_op_airtruckdetailfindDSDesigner5: TStringField;
t_op_airtruckdetailfindDSDesigner6: TStringField;
t_op_airtruckdetailfindDSDesigner7: TStringField;
t_op_airtruckdetailfindDSDesigner8: TDateTimeField;
t_op_airtruckdetailfindDSDesigner9: TIntegerField;
t_op_airtruckdetailfindDSDesigner10: TStringField;
t_op_airtruckdetailfindDSDesigner11: TStringField;
t_op_airtruckdetailfindDSDesigner12: TStringField;
t_op_airtruckdetailfindDSDesigner13: TStringField;
t_op_airtruckdetailfindDSDesigner14: TStringField;
t_op_airtruckdetailfindDSDesigner15: TStringField;
t_op_airtruckdetailfindDSDesigner16: TStringField;
t_op_airtruckdetailfindDSDesigner17: TStringField;
t_op_airtruckdetailfindDSDesigner18: TStringField;
t_op_airtruckdetailfindDSDesigner19: TStringField;
t_op_airtruckdetailfindDSDesigner20: TStringField;
t_op_airtruckdetailfindDSDesigner21: TStringField;
t_op_airtruckdetailfindDSDesigner22: TStringField;
t_op_airtruckdetailfindDSDesigner23: TDateTimeField;
t_op_airtruckdetailfindDSDesigner24: TDateTimeField;
t_op_airtruckdetailfindDSDesigner25: TStringField;
t_op_airtruckdetailfindDSDesigner26: TStringField;
t_op_airtruckdetailfindDSDesigner27: TStringField;
t_op_airtruckdetailfindDSDesigner28: TStringField;
t_op_airtruckdetailfindDSDesigner29: TStringField;
t_op_airtruckdetailfindDSDesigner30: TStringField;
t_op_airtruckdetailfindDSDesigner31: TIntegerField;
t_op_airtruckdetailfindDSDesigner32: TBCDField;
t_op_airtruckdetailfindDSDesigner33: TBCDField;
t_op_airtruckdetailfindDSDesigner34: TStringField;
t_op_airtruckdetailfindDSDesigner35: TStringField;
t_op_airtruckdetailfindDSDesigner36: TDateTimeField;
t_op_airtruckdetailfindDSDesigner37: TStringField;
t_op_airtruckdetailfindDSDesigner38: TStringField;
t_op_airtruckdetailfindDSDesigner39: TStringField;
t_op_airtruckdetailfindDSDesigner40: TStringField;
t_op_airtruckdetailfindBGS: TStringField;
t_op_airtruckdetailfindSA: TStringField;
t_op_airtruckdetailfindDSDesigner41: TStringField;
t_op_airtruckdetailfindDSDesigner42: TStringField;
t_op_airtruckdetailfindBGS2: TStringField;
t_op_airtruckdetailfindSA2: TStringField;
t_op_airtruckdetailfindBGS3: TStringField;
t_op_airtruckdetailfindBGS4: TStringField;
t_op_airtruckdetailfindBGS5: TStringField;
t_op_airtruckdetailfindSA3: TStringField;
t_op_airtruckdetailfindSA4: TStringField;
t_op_airtruckdetailfindSA5: TStringField;
t_op_airtruckdetailfindDSDesigner43: TBooleanField;
t_op_airtruckdetailfindDSDesigner44: TDateTimeField;
t_op_airtruckdetailfindDSDesigner45: TStringField;
t_op_airtruckdetailfindDSDesigner46: TStringField;
t_op_airtruckdetailfindDSDesigner47: TStringField;
t_op_airtruckdetailfindDSDesigner48: TStringField;
t_op_airtruckdetailfindDSDesigner49: TIntegerField;
t_op_airtruckdetailfindDSDesigner50: TStringField;
t_op_airtruckdetailfindDSDesigner51: TBooleanField;
t_op_airtruckdetailfindDSDesigner52: TBooleanField;
t_op_airtruckdetailfindDSDesigner53: TDateTimeField;
t_op_airtruckdetailfindDSDesigner54: TBooleanField;
t_op_airtruckdetailfindDSDesigner55: TStringField;
t_op_airtruckdetailfindDSDesigner56: TDateTimeField;
t_op_airtruckdetailfindDSDesigner57: TStringField;
t_op_airtruckdetailfindDSDesigner58: TStringField;
t_op_airtruckdetailfindDSDesigner59: TStringField;
t_op_airtruckdetailfindDSDesigner60: TBooleanField;
t_op_airtruckdetailfindDSDesigner61: TStringField;
t_op_airtruckdetailfindDSDesigner62: TStringField;
t_op_airtruckdetailfindDSDesigner63: TStringField;
t_op_airtruckdetailfindupload: TSmallintField;
t_op_airtruckdetailfindHY: TStringField;
t_op_airtruckdetailfindHY2: TStringField;
t_op_airtruckdetailfindHY3: TStringField;
t_op_airtruckdetailfindHY4: TStringField;
t_op_airtruckdetailfindHY5: TStringField;
t_op_airtruckdetailfindDSDesigner64: TStringField;
t_op_airtruckdetailfindDSDesigner65: TStringField;
t_op_airtruckdetailfindDSDesigner66: TStringField;
t_op_airtruckdetailfindDSDesigner67: TStringField;
t_op_airtruckdetailfindDSDesigner68: TDateTimeField;
t_op_airtruckdetailfindDSDesigner69: TDateTimeField;
t_op_airtruckdetailfindDSDesigner70: TStringField;
t_op_airtruckdetailfindDSDesigner71: TStringField;
t_op_airtruckdetailfindDSDesigner72: TStringField;
t_op_airtruckdetailfindDSDesigner73: TStringField;
t_op_airtruckdetailfindDSDesigner74: TStringField;
t_op_airtruckdetailfindDSDesigner75: TStringField;
t_op_airtruckdetailfindDSDesigner76: TStringField;
t_op_airtruckdetailfindDSDesigner77: TStringField;
t_op_airtruckdetailfindDSDesigner78: TDateTimeField;
t_op_airtruckdetailfindDSDesigner79: TDateTimeField;
t_op_airtruckdetailfindDSDesigner80: TBooleanField;
t_op_airtruckdetailfindDSDesigner81: TStringField;
t_op_airtruckdetailfindDSDesigner82: TStringField;
t_op_airtruckdetailfindDSDesigner83: TStringField;
t_op_airtruckdetailfindDSDesigner84: TStringField;
t_op_airtruckdetailfindDSDesigner85: TStringField;
t_op_airtruckdetailfindDSDesigner86: TStringField;
t_op_airtruckdetailfindDSDesigner87: TStringField;
t_op_airtruckdetailfindDSDesigner88: TDateTimeField;
t_op_airtruckdetailfindDSDesigner89: TStringField;
t_op_airtruckdetailfindDSDesigner90: TBooleanField;
t_op_airtruckdetailfindDSDesigner91: TBooleanField;
t_op_airtruckdetailfindDSDesigner92: TStringField;
t_op_airtruckdetailfindDSDesigner93: TStringField;
t_op_airtruckdetailfindDSDesigner94: TIntegerField;
t_op_airtruckdetailfindDSDesigner95: TStringField;
t_op_airtruckdetailfindDSDesigner96: TStringField;
t_op_airtruckdetailfindDSDesigner97: TBCDField;
t_op_airtruckdetailfindDSDesigner98: TBCDField;
t_op_airtruckdetailfindDSDesigner99: TBCDField;
t_op_airtruckdetailfindDSDesigner100: TBCDField;
t_op_airtruckdetailfindDSDesigner101: TBCDField;
t_op_airtruckdetailfindDSDesigner102: TStringField;
t_op_airtruckdetailfindDSDesigner103: TIntegerField;
t_op_airtruckdetailfindDSDesigner104: TStringField;
RxDBLookupCombo4: TRxDBLookupCombo;
RxDBLookupCombo5: TRxDBLookupCombo;
cxGrid2DBTableView1DBColumn5: TcxGridDBColumn;
Label39: TLabel;
bsbtnrefresh: TbsSkinButton;
qryjczDSDesigner6: TFloatField;
chlautocal: TwwCheckBox;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
t_op_airtruckdetailfindpr: TADOQuery;
StringField1: TStringField;
StringField2: TStringField;
StringField3: TStringField;
StringField4: TStringField;
StringField5: TStringField;
StringField6: TStringField;
StringField7: TStringField;
StringField8: TStringField;
DateTimeField1: TDateTimeField;
IntegerField1: TIntegerField;
StringField9: TStringField;
StringField10: TStringField;
StringField11: TStringField;
StringField12: TStringField;
StringField13: TStringField;
StringField14: TStringField;
StringField15: TStringField;
StringField16: TStringField;
StringField17: TStringField;
StringField18: TStringField;
StringField19: TStringField;
StringField20: TStringField;
StringField21: TStringField;
DateTimeField2: TDateTimeField;
DateTimeField3: TDateTimeField;
StringField22: TStringField;
StringField23: TStringField;
StringField24: TStringField;
StringField25: TStringField;
StringField26: TStringField;
StringField27: TStringField;
IntegerField2: TIntegerField;
BCDField1: TBCDField;
BCDField2: TBCDField;
StringField28: TStringField;
StringField29: TStringField;
DateTimeField4: TDateTimeField;
StringField30: TStringField;
StringField31: TStringField;
StringField32: TStringField;
StringField33: TStringField;
StringField34: TStringField;
StringField35: TStringField;
StringField36: TStringField;
StringField37: TStringField;
StringField38: TStringField;
StringField39: TStringField;
StringField40: TStringField;
StringField41: TStringField;
StringField42: TStringField;
StringField43: TStringField;
StringField44: TStringField;
StringField45: TStringField;
BooleanField1: TBooleanField;
DateTimeField5: TDateTimeField;
StringField46: TStringField;
StringField47: TStringField;
StringField48: TStringField;
StringField49: TStringField;
IntegerField3: TIntegerField;
StringField50: TStringField;
BooleanField2: TBooleanField;
BooleanField3: TBooleanField;
DateTimeField6: TDateTimeField;
BooleanField4: TBooleanField;
StringField51: TStringField;
DateTimeField7: TDateTimeField;
StringField52: TStringField;
StringField53: TStringField;
StringField54: TStringField;
BooleanField5: TBooleanField;
StringField55: TStringField;
StringField56: TStringField;
StringField57: TStringField;
SmallintField1: TSmallintField;
StringField58: TStringField;
StringField59: TStringField;
StringField60: TStringField;
StringField61: TStringField;
StringField62: TStringField;
StringField63: TStringField;
StringField64: TStringField;
StringField65: TStringField;
StringField66: TStringField;
DateTimeField8: TDateTimeField;
DateTimeField9: TDateTimeField;
StringField67: TStringField;
StringField68: TStringField;
StringField69: TStringField;
StringField70: TStringField;
StringField71: TStringField;
StringField72: TStringField;
StringField73: TStringField;
StringField74: TStringField;
DateTimeField10: TDateTimeField;
DateTimeField11: TDateTimeField;
BooleanField6: TBooleanField;
StringField75: TStringField;
StringField76: TStringField;
StringField77: TStringField;
StringField78: TStringField;
StringField79: TStringField;
StringField80: TStringField;
StringField81: TStringField;
DateTimeField12: TDateTimeField;
StringField82: TStringField;
BooleanField7: TBooleanField;
BooleanField8: TBooleanField;
StringField83: TStringField;
StringField84: TStringField;
IntegerField4: TIntegerField;
StringField85: TStringField;
StringField86: TStringField;
BCDField3: TBCDField;
BCDField4: TBCDField;
BCDField5: TBCDField;
BCDField6: TBCDField;
BCDField7: TBCDField;
StringField87: TStringField;
IntegerField5: TIntegerField;
StringField88: TStringField;
t_op_airtruckdetailfindpr1: TDataSource;
bsSkinButtonCreateFee: TbsSkinButton;
DBMemo19: TDBMemo;
Label111: TLabel;
bsSkinButton21: TbsSkinButton;
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure Panel2Resize(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure t_op_airtruckBeforeEdit(DataSet: TDataSet);
procedure t_op_airtruckBeforePost(DataSet: TDataSet);
procedure RxDBLookupCombo12Change(Sender: TObject);
procedure RxDBLookupCombo8Change(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure t_op_airtruckBeforeDelete(DataSet: TDataSet);
procedure t_op_airtruckBeforeCancel(DataSet: TDataSet);
procedure N21Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
procedure bsSkinButton16Click(Sender: TObject);
procedure t_op_airtruckdetailAfterInsert(DataSet: TDataSet);
procedure bsSkinButton23Click(Sender: TObject);
procedure bsSkinButton24Click(Sender: TObject);
procedure t_op_airtruckdetailAfterPost(DataSet: TDataSet);
procedure t_op_airtruckdetailBeforeInsert(DataSet: TDataSet);
procedure bsSkinPageControl1Change(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton44Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure fra_fee1bsSkinButton2Click(Sender: TObject);
procedure fra_fee1bsSkinButton20Click(Sender: TObject);
procedure fra_fee1bsSkinButton9Click(Sender: TObject);
procedure t_op_airtruckdetailBeforeDelete(DataSet: TDataSet);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo12KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit90000KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo1Change(Sender: TObject);
procedure Notebook1PageChanged(Sender: TObject);
procedure t_op_airtruckdetailDSDesigner32Change(Sender: TField);
procedure bsSkinButton17Click(Sender: TObject);
procedure bsSkinButtonmtzClick(Sender: TObject);
procedure bsSkinButtonsuoClick(Sender: TObject);
procedure t_op_airtruckdetail1DataChange(Sender: TObject;
Field: TField);
procedure dxDBTreeList1CustomDrawCell(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxTreeListColumn; ASelected, AFocused,
ANewItemRow: Boolean; var AText: String; var AColor: TColor;
AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton12Click(Sender: TObject);
procedure btndeleteClick(Sender: TObject);
procedure btnpostClick(Sender: TObject);
procedure btncancelClick(Sender: TObject);
procedure qryjczBeforeEdit(DataSet: TDataSet);
procedure qryjczAfterPost(DataSet: TDataSet);
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
procedure chlautocalKeyPress(Sender: TObject; var Key: Char);
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
procedure qryjczAfterInsert(DataSet: TDataSet);
procedure t_op_airtruckdetailBeforeEdit(DataSet: TDataSet);
procedure fra_fee1bsSkinButton3Click(Sender: TObject);
procedure bsSkinBtnpriorClick(Sender: TObject);
procedure bsSkinBtnnextClick(Sender: TObject);
procedure cxGrid1DBTableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure bsSkinButtonttClick(Sender: TObject);
procedure bsSkinButtonprintClick(Sender: TObject);
procedure DBEdit19KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit20KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo10KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit21KeyPress(Sender: TObject; var Key: Char);
procedure DBDateEdit1KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo14KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit22KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo9KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit23KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButtonfindClick(Sender: TObject);
procedure bsSkinButton25Click(Sender: TObject);
procedure bsSkinButton27Click(Sender: TObject);
procedure bsSkinButton28Click(Sender: TObject);
procedure bsSkinButton26Click(Sender: TObject);
procedure RxDBLookupCombo10Enter(Sender: TObject);
procedure RxDBLookupCombo10Exit(Sender: TObject);
procedure RxDBLookupCombo4Enter(Sender: TObject);
procedure RxDBLookupCombo4Exit(Sender: TObject);
procedure fra_fee3bsSkinButton1Click(Sender: TObject);
procedure qryjczBeforePost(DataSet: TDataSet);
procedure bsbtnrefreshClick(Sender: TObject);
procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButtonCreateFeeClick(Sender: TObject);
procedure bsSkinButton21Click(Sender: TObject);
private
t_op_airtruckdetailno,
t_op_airtruckdetailhyno:integer ;
findfpwidth,mxfpwidth:integer ;
function getheight:integer ;
function saveheight:integer ;
procedure Datasetjzccharge(Sender: TField);//<2F>շѽ<D5B7><D1BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
procedure getweight ;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
procedure Opendetail ;
procedure fenpiaofind ; //<2F><>Ʊ<EFBFBD><C6B1>ѯ
procedure createFee(bianhao,cust,feename,custtype,priceunit,feetype:string;QUANTITY:Double);
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_airtruck2: Tfrm_op_airtruck2;
airtruckopen:boolean;
implementation
uses u_main,my_sys_function, u_op_airtruck_add2, u_data_share,
u_op_date_change, u_sys_tab_sort, u_op_airtruck_query2, u_sys_grid_cx,
u_ch_fee_zhupiao, u_op_airtruckdetailfind;
{$R *.dfm}
procedure Tfrm_op_airtruck2.bsSkinButton4Click(Sender: TObject);
begin
t_ch_fee.close;
t_ch_fee.Parameters[0].value:=t_op_airtruck.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;
t_op_airtruck.Delete;
end;
procedure Tfrm_op_airtruck2.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_airtruck2.FormClose(Sender: TObject;
var Action: TCloseAction);
var str:string ;
begin
saveheight ;
if not DirectoryExists(ExtractFilePath(Application.ExeName)+'gridini') then
CreateDir(ExtractFilePath(Application.ExeName)+'gridini');
str:=ExtractFilePath(application.ExeName)+'gridini\'+caption+'2'+'.ini' ;
dxDBTreeList1.SaveToIniFile(str);
// savewwgrid(wwDBGrid1,'<27><><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD>Ʊ');
savecxgridview(cxGrid1DBTableView1,CAPTION+'3') ; //<2F><><EFBFBD><EFBFBD>cxgrid<69>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ <20><><EFBFBD>ݿ<EFBFBD>
savecxgridview(cxGridDBTableViewfind,CAPTION+'4') ; //<2F><><EFBFBD><EFBFBD>cxgrid<69>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ <20><><EFBFBD>ݿ<EFBFBD>
savewwgrid(fra_fee1.wwDBGrid1,'<27><><EFBFBD>ܳ<EFBFBD>Ӧ<EFBFBD><D3A6>');
savewwgrid(fra_fee1.wwDBGrid2,'<27><><EFBFBD>ܳ<EFBFBD>Ӧ<EFBFBD><D3A6>');
savewwgrid(fra_fee2.wwDBGrid1,'<27><><EFBFBD>ܳ<EFBFBD>Ӧ<EFBFBD><D3A6>2');
savewwgrid(fra_fee2.wwDBGrid2,'<27><><EFBFBD>ܳ<EFBFBD>Ӧ<EFBFBD><D3A6>2');
savewwgrid(fra_fee3.wwDBGrid1,'<27><><EFBFBD>ܳ<EFBFBD>Ӧ<EFBFBD><D3A6>3');
savewwgrid(fra_fee3.wwDBGrid2,'<27><><EFBFBD>ܳ<EFBFBD>Ӧ<EFBFBD><D3A6>3');
airtruckopen:=false;
frm_op_airtruck2.Hide;
frm_op_airtruck2.ManualFloat(frm_op_airtruck2.BoundsRect );
frm_main.freeTabs('frm_op_airtruck2');
action:=cafree;
frm_op_airtruck2:=nil;
end;
procedure Tfrm_op_airtruck2.FormShow(Sender: TObject);
var inifile1,seabandini:Tinifile;
sl:TStrings;
j,n,i:integer;
str:string ;
begin
Notebook1.PageIndex:=0;
Notebook1.Align:=alClient;
if not DirectoryExists(ExtractFilePath(Application.ExeName)+'gridini') then
CreateDir(ExtractFilePath(Application.ExeName)+'gridini');
str:=ExtractFilePath(application.ExeName)+'gridini\'+caption+'2'+'.ini' ;
dxDBTreeList1.Repaint ;
dxDBTreeList1.LoadFromIniFile(str);
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
DBEdit8.Width:=110;
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;
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;
end;
t_op_airtruck.Close;
t_op_airtruck.SQL.clear; // // isnull(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'''+''')<><3E><><EFBFBD><EFBFBD> and'
t_op_airtruck.SQL.Add('select top 50 * from t_op_airtruck where'
+'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''
+' or <20><><EFBFBD><EFBFBD>Ա='+''''+employee+''''
+' or <20>ͷ<EFBFBD>Ա='+''''+employee+''''+')'
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC');
t_op_airtruck.open;
t_op_airtruckdetail.open ;
qryjcz.Open ;
if if_open('353') or if_open('354') then
begin
fra_fee1.edit_type.text:='5';
fra_fee1.edit_data.text:='0005';
fra_fee1.edit_report.text:='<27><><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD><EFBFBD><EFBFBD>';
fra_fee1.t_ch_accept.DataSource:=t_op_airtruckdetail1;
if strtobool(get_parameters_value(150,'false')) then
fra_fee1.bsSkinPanel3.Visible:=true;
fra_fee1.DBEdit48.DataSource:=t_op_airtruckdetail1;
if if_open('353') then
begin
fra_fee1.t_ch_accept.DataSource:=t_op_airtruckdetail1;
if (strtobool(get_parameters_value(153,'false'))=true) then begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('351')=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('351')=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('354') then
begin
fra_fee1.t_ch_pay.DataSource:=t_op_airtruckdetail1;
if (strtobool(get_parameters_value(153,'false'))=true) then begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('351')=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('351')=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('352') 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_airtruckdetail1;
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;
if if_open('353') or if_open('354') then
begin
fra_fee2.edit_type.text:='5';
fra_fee2.edit_data.text:='0005';
fra_fee2.edit_report.text:='<27><><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD><EFBFBD><EFBFBD>';
fra_fee2.t_ch_accept.DataSource:=t_op_airtruck1;
if strtobool(get_parameters_value(150,'false')) then
fra_fee2.bsSkinPanel3.Visible:=true;
fra_fee2.DBEdit48.DataSource:=t_op_airtruck1;
if if_open('353') then
begin
fra_fee2.t_ch_accept.DataSource:=t_op_airtruck1;
if (strtobool(get_parameters_value(153,'false'))=true) then begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('351')=false) then
begin
fra_fee2.t_ch_accept.close;
fra_fee2.t_ch_accept.SQL.Clear;
fra_fee2.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_fee2.t_ch_accept.close;
fra_fee2.t_ch_accept.SQL.Clear;
fra_fee2.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_fee2.t_ch_accept.open;
end else begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('351')=false) then
begin
fra_fee2.t_ch_accept.close;
fra_fee2.t_ch_accept.SQL.Clear;
fra_fee2.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_fee2.t_ch_accept.open;
end;
fra_fee2.a_shen_delete.open;
fra_fee2.a_shen_modify_old.open;
fra_fee2.a_shen_modify_new.open;
fra_fee2.Panel3.visible:=true;
end
else
fra_fee2.Panel3.visible:=false;
if if_open('354') then
begin
fra_fee2.t_ch_pay.DataSource:=t_op_airtruck1;
if (strtobool(get_parameters_value(153,'false'))=true) then begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('351')=false) then
begin
fra_fee2.t_ch_pay.close;
fra_fee2.t_ch_pay.SQL.Clear;
fra_fee2.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_fee2.t_ch_pay.close;
fra_fee2.t_ch_pay.SQL.Clear;
fra_fee2.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_fee2.t_ch_pay.open;
end else begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('351')=false) then
begin
fra_fee2.t_ch_pay.close;
fra_fee2.t_ch_pay.SQL.Clear;
fra_fee2.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_fee2.t_ch_pay.open;
end;
fra_fee2.p_shen_delete.open;
fra_fee2.p_shen_modify_old.open;
fra_fee2.p_shen_modify_new.open;
fra_fee2.Panel1.visible:=true;
end
else
fra_fee2.Panel1.visible:=false;
if fra_fee2.Panel1.visible and
fra_fee2.Panel3.visible then
begin
if if_open('352') then begin
fra_fee2.Panel8.Visible:=true;
fra_fee2.Panel8.Height:=20;
end else
fra_fee2.Panel8.Visible:=false;
fra_fee2.t_op_gain.DataSource:=t_op_airtruck1;
fra_fee2.t_op_gain.open;
fra_fee2.Panel9.Visible:=false;
end
else
begin
fra_fee2.Panel8.Visible:=false;
end;
end
else
begin
fra_fee2.Visible:=false;
end;
/// fra_fee3
t_op_airtruckdetailfind.Open ;
if if_open('353') or if_open('354') then
begin
fra_fee3.edit_type.text:='5';
fra_fee3.edit_data.text:='0005';
fra_fee3.edit_report.text:='<27><><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD><EFBFBD><EFBFBD>';
fra_fee3.t_ch_accept.DataSource:=t_op_airtruckdetailfind1;
if strtobool(get_parameters_value(150,'false')) then
fra_fee3.bsSkinPanel3.Visible:=true;
fra_fee3.DBEdit48.DataSource:=t_op_airtruckdetailfind1;
if if_open('353') then
begin
fra_fee3.t_ch_accept.DataSource:=t_op_airtruckdetailfind1;
if (strtobool(get_parameters_value(153,'false'))=true) then begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('351')=false) then
begin
fra_fee3.t_ch_accept.close;
fra_fee3.t_ch_accept.SQL.Clear;
fra_fee3.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_fee3.t_ch_accept.close;
fra_fee3.t_ch_accept.SQL.Clear;
fra_fee3.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_fee3.t_ch_accept.open;
end else begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('351')=false) then
begin
fra_fee3.t_ch_accept.close;
fra_fee3.t_ch_accept.SQL.Clear;
fra_fee3.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_fee3.t_ch_accept.open;
end;
fra_fee3.a_shen_delete.open;
fra_fee3.a_shen_modify_old.open;
fra_fee3.a_shen_modify_new.open;
fra_fee3.Panel3.visible:=true;
end
else
fra_fee3.Panel3.visible:=false;
if if_open('354') then
begin
fra_fee3.t_ch_pay.DataSource:=t_op_airtruckdetailfind1;
if (strtobool(get_parameters_value(153,'false'))=true) then begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('351')=false) then
begin
fra_fee3.t_ch_pay.close;
fra_fee3.t_ch_pay.SQL.Clear;
fra_fee3.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_fee3.t_ch_pay.close;
fra_fee3.t_ch_pay.SQL.Clear;
fra_fee3.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_fee3.t_ch_pay.open;
end else begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('351')=false) then
begin
fra_fee3.t_ch_pay.close;
fra_fee3.t_ch_pay.SQL.Clear;
fra_fee3.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_fee3.t_ch_pay.open;
end;
fra_fee3.p_shen_delete.open;
fra_fee3.p_shen_modify_old.open;
fra_fee3.p_shen_modify_new.open;
fra_fee3.Panel1.visible:=true;
end
else
fra_fee3.Panel1.visible:=false;
if fra_fee3.Panel1.visible and
fra_fee3.Panel3.visible then
begin
if if_open('352') then begin
fra_fee3.Panel8.Visible:=true;
fra_fee3.Panel8.Height:=20;
end else
fra_fee3.Panel8.Visible:=false;
fra_fee3.t_op_gain.DataSource:=t_op_airtruckdetailfind1;
fra_fee3.t_op_gain.open;
fra_fee3.Panel9.Visible:=false;
end
else
begin
fra_fee3.Panel8.Visible:=false;
end;
end
else
begin
fra_fee3.Visible:=false;
end;
fra_op_state1.edit_state.text:='4';
fra_op_state1.t_op_state.DataSource:=t_op_airtruck1;
fra_op_state1.t_op_state.open;
getheight ;
Panel3.Width:=mxfpwidth ;
Panel6.Width:=findfpwidth;
// DBEdit9.EditMask:=get_parameters_value(189,'');
// loadwwgrid(wwDBGrid1,'<27><><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD>Ʊ');
loadcxgridview(cxGrid1DBTableView1,CAPTION+'3') ;//<2F><>ȡCXGRID<49>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ <20><><EFBFBD>ݿ<EFBFBD>
Loadcxgridview(cxGridDBTableViewfind,CAPTION+'4') ; //
{
loadwwgrid(fra_fee1.wwDBGrid1,'<27><><EFBFBD>ܳ<EFBFBD>Ӧ<EFBFBD><D3A6>');
loadwwgrid(fra_fee1.wwDBGrid2,'<27><><EFBFBD>ܳ<EFBFBD>Ӧ<EFBFBD><D3A6>');
loadwwgrid(fra_fee2.wwDBGrid1,'<27><><EFBFBD>ܳ<EFBFBD>Ӧ<EFBFBD><D3A6>2');
loadwwgrid(fra_fee2.wwDBGrid2,'<27><><EFBFBD>ܳ<EFBFBD>Ӧ<EFBFBD><D3A6>2');
loadwwgrid(fra_fee3.wwDBGrid1,'<27><><EFBFBD>ܳ<EFBFBD>Ӧ<EFBFBD><D3A6>3');
loadwwgrid(fra_fee3.wwDBGrid2,'<27><><EFBFBD>ܳ<EFBFBD>Ӧ<EFBFBD><D3A6>3');
}
frm_data_share.t_crm_client.requery;
frm_data_share.t_crm_client_hangkong.requery;
frm_data_share.t_crm_client_baoguan.requery;
frm_data_share.t_crm_client_weituo.requery;
frm_data_share.t_crm_client_daili.requery;
frm_data_share.t_crm_client_shiper.requery;
frm_data_share.t_crm_client_shouhuo.requery;
frm_data_share.t_crm_client_tongzhi.requery;
frm_data_share.t_code_source.requery;
frm_data_share.t_sys_employee.requery;
frm_data_share.t_code_code.requery;
frm_data_share.t_code_fee.requery;
frm_data_share.t_code_currency.requery;
frm_data_share.t_code_port_air.requery;
airtruckopen:=true;
end;
procedure Tfrm_op_airtruck2.bsSkinButton11Click(Sender: TObject);
var
answer:TModalResult;
zhubianhao:string ;
begin
if bsSkinButton11.Caption='<27>༭<EFBFBD>޸<EFBFBD>' then
begin
zhubianhao:=t_op_airtruck.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString ;
t_op_airtruck.Locate('<27><><EFBFBD><EFBFBD>',zhubianhao,[]);
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end
else
begin
if (t_op_airtruck.State=dsinsert)or(t_op_airtruck.State=dsedit) then
BEGIN
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>޸ģ<DEB8><C4A3>Ƿ񱣴棿',mtWarning,mbYesNoCancel,0);
if answer=mrYes then
begin
t_op_airtruck.post;
end;
if answer=mrNo then
begin
t_op_airtruck.cancel;
end;
if answer=mrCancel then
begin
exit;
end;
END;
Notebook1.PageIndex:=0;
bsSkinButton11.Caption:='<27>༭<EFBFBD>޸<EFBFBD>';
end;
end;
procedure Tfrm_op_airtruck2.bsSkinButton8Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton8.ClientToScreen(Point(0,bsSkinButton8.Height));
PopupMenu1.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_airtruck2.Panel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel2.Width/13);
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;
bsSkinButton13.Left:=Panel2.Width-bsSkinButton13.Width-20;
end;
procedure Tfrm_op_airtruck2.bsSkinButton1Click(Sender: TObject);
begin
if (t_op_airtruck.State=dsinsert)or(t_op_airtruck.State=dsedit) then
t_op_airtruck.post;
try
frm_op_airtruck_add2:=tfrm_op_airtruck_add2.Create(self);
frm_op_airtruck_add2.data1.Enabled:=false;
frm_op_airtruck_add2.data1.DataSet:=t_op_airtruck;
frm_op_airtruck_add2.data1.Enabled:=true;
frm_op_airtruck_add2.ShowModal ;
finally
frm_op_airtruck_add2.Free;
end;
end;
procedure Tfrm_op_airtruck2.t_op_airtruckBeforeEdit(DataSet: TDataSet);
begin
// op_befor_post(t_op_airi,'0004');
end;
procedure Tfrm_op_airtruck2.t_op_airtruckBeforePost(DataSet: TDataSet);
begin
if trim(t_op_airtruck.FieldByName('ί<>е<EFBFBD>λ').asstring)='' then
raise exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1>棡');
table_before_post(t_op_airtruck,'<27><><EFBFBD><EFBFBD>Ա');
table_before_post(t_op_airtruck,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
// table_before_post(t_op_airtruck,'<27>ͷ<EFBFBD>Ա');
// table_before_post(t_op_airtruck,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
// table_before_post(t_op_airtruck,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
table_before_post(t_op_airtruck,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_airtruck,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
// table_before_post(t_op_airtruck,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
// table_before_post(t_op_airtruck,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if op_empty('t_op_airtruck',t_op_airtruck) then
abort;
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
if t_op_airtruck.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_airtruck['ί<>б<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_airtruck['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,subComp,department,employee,t_op_airtruck['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_airtruck['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,subComp,department,employee,t_op_airtruck['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
if t_op_airtruck.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_airtruck.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
if (t_op_airtruck.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_airtruck.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
showmessage('<27>˷<EFBFBD><CBB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>ҵ<EFBFBD>񣡣<EFBFBD>');
abort;
end;
if t_op_airtruck.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_airtruck.FieldByName('ί<>е<EFBFBD>λ').asstring then
begin
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_airtruck.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_airtruck.State=dsinsert then
begin
if t_op_airtruck.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
begin
t_op_airtruck['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_airtruck.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.AirTruckBsNo,'IT'));
t_op_airtruck['<27><><EFBFBD><EFBFBD>']:=get_id;
t_op_airtruck['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_airtruck['<27><><EFBFBD><EFBFBD>'];
end;
t_op_airtruck['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_airtruck['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
end;
if strtobool(get_parameters_value(43,'false')) then
begin
if (trim(t_op_airtruck.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='') or (t_op_airtruck.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_airtruck['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_airtruck['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_airtruck['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_airtruck['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
end;
end
else
begin
t_op_airtruck['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_airtruck['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(44,'false')) then
begin
if (trim(t_op_airtruck.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)='') or (t_op_airtruck.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_airtruck['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_airtruck['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_airtruck['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_airtruck['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
end;
end
else
begin
t_op_airtruck['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_airtruck['<27><><EFBFBD><EFBFBD>'];
end;
if strtobool(get_parameters_value(45,'false')) then
begin
if (trim(t_op_airtruck.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='') or (t_op_airtruck.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_airtruck['ί<>б<EFBFBD>׼']:=t_op_airtruck['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_airtruck['ί<>б<EFBFBD>׼']:=t_op_airtruck['ί<>б<EFBFBD><D0B1><EFBFBD>'];
end;
end
else
begin
t_op_airtruck['ί<>б<EFBFBD>׼']:=t_op_airtruck['<27><><EFBFBD><EFBFBD>'];
end;
// t_op_airtruck['upload']:=1;
end;
procedure Tfrm_op_airtruck2.RxDBLookupCombo12Change(Sender: TObject);
begin
if (t_op_airtruck.state=dsinsert)or(t_op_airtruck.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_airtruck['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end;
procedure Tfrm_op_airtruck2.RxDBLookupCombo8Change(Sender: TObject);
begin
if (t_op_airtruck.state=dsinsert)or(t_op_airtruck.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_airtruck['<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_airtruck2.N17Click(Sender: TObject);
begin
t_op_airtruck.Close;
t_op_airtruck.SQL.clear;
t_op_airtruck.SQL.Add('select * from t_op_airtruck where '
+open_data('0005','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
+''''+'¼<><C2BC>״̬'+''''+') '
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_airtruck.open;
end;
procedure Tfrm_op_airtruck2.N34Click(Sender: TObject);
begin
t_op_airtruck.Close;
t_op_airtruck.SQL.clear;
t_op_airtruck.SQL.Add('select * from t_op_airtruck where '
+open_data('0005','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+')) '
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_airtruck.open;
end;
procedure Tfrm_op_airtruck2.N36Click(Sender: TObject);
begin
t_op_airtruck.Close;
t_op_airtruck.SQL.clear;
t_op_airtruck.SQL.Add('select * from t_op_airtruck where '
+open_data('0005','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+')) '
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_airtruck.open;
end;
procedure Tfrm_op_airtruck2.N37Click(Sender: TObject);
begin
t_op_airtruck.Close;
t_op_airtruck.SQL.clear;
t_op_airtruck.SQL.Add('select * from t_op_airtruck where '
+open_data('000','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1) '
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_airtruck.open;
end;
procedure Tfrm_op_airtruck2.N9Click(Sender: TObject);
begin
t_op_airtruck.Close;
t_op_airtruck.SQL.clear;
t_op_airtruck.SQL.Add('select * from t_op_airtruck where '
+open_data('0005','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_airtruck.open;
end;
procedure Tfrm_op_airtruck2.N20Click(Sender: TObject);
begin
t_op_airtruck.Close;
t_op_airtruck.SQL.clear;
t_op_airtruck.SQL.Add('select * from t_op_airtruck where '
+open_data('0005','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_airtruck.open;
end;
procedure Tfrm_op_airtruck2.t_op_airtruckBeforeDelete(DataSet: TDataSet);
begin
if t_op_airtruckdetail.RecordCount>0 then raise exception.Create('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>');
op_befor_post(t_op_airtruck,'0005');
if not t_op_airtruck.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_airtruck['ί<>б<EFBFBD><D0B1><EFBFBD>']);
// delete_add(4,t_op_airi);
end;
procedure Tfrm_op_airtruck2.t_op_airtruckBeforeCancel(DataSet: TDataSet);
begin
delete_no(t_op_airtruck);
if t_op_airtruck.State=dsinsert then
if not t_op_airtruck.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
delwtno(t_op_airtruck['ί<>б<EFBFBD><D0B1><EFBFBD>']);
end;
procedure Tfrm_op_airtruck2.N21Click(Sender: TObject);
begin
t_op_airtruck.Close;
t_op_airtruck.SQL.clear;
t_op_airtruck.SQL.Add('select * from t_op_airtruck where '
+open_data('0005','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee )'
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_airtruck.open;
end;
procedure Tfrm_op_airtruck2.N24Click(Sender: TObject);
begin
t_op_airtruck.Close;
t_op_airtruck.SQL.clear;
t_op_airtruck.SQL.Add('select * from t_op_airtruck where '
+open_data('0005','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
t_op_airtruck.open;
end;
procedure Tfrm_op_airtruck2.N26Click(Sender: TObject);
begin
if t_op_airtruck.IsEmpty then
exit;
if not do_data('0005',t_op_airtruck.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
,t_op_airtruck.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
,t_op_airtruck.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_op_airtruck.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_airtruck.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_airtruck1=nil then
exit;
if (t_op_airtruck.State=dsinsert)or(t_op_airtruck.State=dsedit) then
t_op_airtruck.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_airtruck1.DataSet;
frm_op_date_change.DataSource1.Enabled:=true;
frm_op_date_change.ShowModal;
finally
frm_op_date_change.Free;
frm_op_date_change:=nil;
end;
end;
procedure Tfrm_op_airtruck2.bsSkinButton14Click(Sender: TObject);
begin
if not t_op_airtruck.Active then exit;
if t_op_airtruck.IsEmpty then exit;
if t_op_airtruckdetail.State in [dsedit,dsinsert] then
t_op_airtruckdetail.Post;
end;
procedure Tfrm_op_airtruck2.bsSkinButton15Click(Sender: TObject);
begin
t_op_airtruckdetail.Delete;
end;
procedure Tfrm_op_airtruck2.bsSkinButton16Click(Sender: TObject);
begin
t_op_airtruckdetail.Cancel;
end;
procedure Tfrm_op_airtruck2.t_op_airtruckdetailAfterInsert(
DataSet: TDataSet);
begin
t_op_airtruckdetail['<27><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>']:=0; //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
t_op_airtruckdetail['װ<>˷<EFBFBD>ʽ']:='<27><>Ʊ'; //<2F><><EFBFBD>ܳ<EFBFBD>
t_op_airtruckdetail['<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>']:='<27><><EFBFBD>ܻ<EFBFBD>'; //
t_op_airtruckdetail['LOT<4F><54>']:=t_op_airtruck['LOT<4F><54>']; //<2F><><EFBFBD>ܳ<EFBFBD>
t_op_airtruckdetail['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_airtruck['<27><><EFBFBD><EFBFBD>'];
t_op_airtruckdetail['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=t_op_airtruck['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'];
t_op_airtruckdetail['¼<><C2BC><EFBFBD><EFBFBD>']:=t_op_airtruck['¼<><C2BC><EFBFBD><EFBFBD>'];
t_op_airtruckdetail['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_airtruck['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_airtruckdetail['<27><><EFBFBD><EFBFBD>Ա']:=t_op_airtruck['<27><><EFBFBD><EFBFBD>Ա'];
t_op_airtruckdetail['<27>ͷ<EFBFBD>Ա']:=t_op_airtruck['<27>ͷ<EFBFBD>Ա'];
t_op_airtruckdetail['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=False;
t_op_airtruckdetail['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=true; //<2F>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>
t_op_airtruckdetail['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_airtruck['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
if t_op_airtruckdetail.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_airtruckdetail['ί<>б<EFBFBD><D0B1><EFBFBD>'])='') then
t_op_airtruckdetail['ί<>б<EFBFBD><D0B1><EFBFBD>']:=t_op_airtruck['ί<>б<EFBFBD><D0B1><EFBFBD>'];
if t_op_airtruckdetail.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_airtruckdetail.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
if t_op_airtruckdetail.State=dsinsert then
begin
if t_op_airtruckdetail.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
begin
t_op_airtruckdetail['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_airtruck.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.AirTruckBsNo,'IT'));
t_op_airtruckdetail['<27><><EFBFBD><EFBFBD>']:=get_id;
end;
t_op_airtruckdetail['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_airtruckdetail['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
end;
end;
procedure Tfrm_op_airtruck2.bsSkinButton23Click(Sender: TObject);
begin
if not t_op_airtruck.Active then exit;
if t_op_airtruck.IsEmpty then exit;
end;
procedure Tfrm_op_airtruck2.bsSkinButton24Click(Sender: TObject);
begin
if not t_op_airtruck.Active then exit;
if t_op_airtruck.IsEmpty then exit;
end;
procedure Tfrm_op_airtruck2.t_op_airtruckdetailAfterPost(DataSet: TDataSet);
var
aQuery:TAdoQuery;
pkgs,kgs,cbm:double;
begin
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_airtruck where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_op_airtruckdetail.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
sql.Add('and <20><><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
t_op_airtruck.Edit;
t_op_airtruck.fieldbyname('<27><><EFBFBD><EFBFBD>').AsFloat:=pkgs;
t_op_airtruck.fieldbyname('<27><><EFBFBD><EFBFBD>').AsFloat:=kgs;
t_op_airtruck.fieldbyname('<27><><EFBFBD><EFBFBD>').AsFloat:=cbm;
t_op_airtruck.post;
// close;sql.clear;
// sql.Add('update t_op_airtruck 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>').AsString+'''');
// ExecSQL;
end;
end;
finally
FreeAndNil(aQuery);
end;
// t_op_airtruck.Refresh ;
// wwDBGrid1.Refresh ;
end;
procedure Tfrm_op_airtruck2.t_op_airtruckdetailBeforeInsert(
DataSet: TDataSet);
begin
if t_op_airtruck.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_airtruck.State in [dsedit,dsinsert] then t_op_airtruck.Post ;
end;
procedure Tfrm_op_airtruck2.bsSkinPageControl1Change(Sender: TObject);
var inifile1:Tinifile;
begin
if not airtruckopen then exit;
if bsSkinPageControl1.ActivePage<>bsSkinTabSheet1 then begin
if t_op_airtruck.State in [dsedit,dsinsert] then
t_op_airtruck.Post;
end else begin
t_op_airtruck.Refresh;
end;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
if strtoint(get_parameters_value(197,'0'))<>0 then
fra_fee1.bsSkinComboBox1.ItemIndex:=strtoint(get_parameters_value(197,'0'))-1
else fra_fee1.bsSkinComboBox1.ItemIndex:=inifile1.ReadInteger('FEE','FEEVAT',0);
inifile1.Free;
end;
procedure Tfrm_op_airtruck2.bsSkinButton9Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>ܳ<EFBFBD>ҵ<EFBFBD><D2B5>',2,t_op_airtruck1,t_op_airtruckdetail1,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_airtruck2.bsSkinButton44Click(Sender: TObject);
var
str,airepsqlstr:widestring;
begin
//<2F><><EFBFBD>ݲ<EFBFBD>ѯ
str:='';
str:=query_tiaojian(1,str,'t_op_airtruck.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit1.text);
str:=query_tiaojian(1,str,'t_op_airtruck.ί<>б<EFBFBD><D0B1><EFBFBD>','ģ<><C4A3>',Edit4.text);
str:=query_tiaojian(1,str,'t_op_airtruck.LOT<4F><54>','ģ<><C4A3>',Edit2.text);
if trim(str)='' then
begin
str:='where '+open_data('0006','t_op_airtruck.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_airtruck.<2E><><EFBFBD><EFBFBD>Ա','t_op_airtruck.<2E>ͷ<EFBFBD>Ա','no','no');
end
else
begin
str:=str+' and '+open_data('0006','t_op_airtruck.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_airtruck.<2E><><EFBFBD><EFBFBD>Ա','t_op_airtruck.<2E>ͷ<EFBFBD>Ա','no','no');
end;
str:='select * from t_op_airtruck where <20><><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_airtruck '
+str+')';//;+default_sort(55,'t_op_airtruck','','desc');
if (not t_op_airtruck.IsEmpty) and (t_op_airtruck.sql.Text<>'') then
t_op_airtruck.close;
t_op_airtruck.sql.clear;
t_op_airtruck.sql.add(str);
t_op_airtruck.Open;
if t_op_airtruck.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_airtruck2.bsSkinButton2Click(Sender: TObject);
begin
table_post(t_op_airtruck);
end;
procedure Tfrm_op_airtruck2.fra_fee1bsSkinButton2Click(Sender: TObject);
begin
fra_fee1.bsSkinButton2Click(Sender);
end;
procedure Tfrm_op_airtruck2.fra_fee1bsSkinButton20Click(Sender: TObject);
begin
fra_fee1.bsSkinButton20Click(Sender);
end;
procedure Tfrm_op_airtruck2.fra_fee1bsSkinButton9Click(Sender: TObject);
begin
fra_fee1.bsSkinButton9Click(Sender);
end;
procedure Tfrm_op_airtruck2.t_op_airtruckdetailBeforeDelete(
DataSet: TDataSet);
begin
// if qryjcz.RecordCount>0 then raise exception.Create('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD>룡');
// if t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
// raise exception.Create('<27><><EFBFBD>Ƚ<EFBFBD><C8BD><EFBFBD>') ;
if t_op_airtruck.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><C9BE><EFBFBD><EFBFBD>');
abort;
end;
end;
procedure Tfrm_op_airtruck2.bsSkinButton7Click(Sender: TObject);
var ANode: TdxTreeListNode;
begin
ANode:=dxDBTreeList1.FocusedNode.GetPrevSibling;
if ANode=nil then exit ;
t_op_airtruck.Locate('<27><><EFBFBD><EFBFBD>',ANode.Strings[1],[]) ;
end;
procedure Tfrm_op_airtruck2.bsSkinButton6Click(Sender: TObject);
var ANode: TdxTreeListNode;
begin
ANode:=dxDBTreeList1.FocusedNode.GetNextSibling;
if ANode=nil then exit ;
t_op_airtruck.Locate('<27><><EFBFBD><EFBFBD>',ANode.Strings[1],[]) ;
end;
procedure Tfrm_op_airtruck2.bsSkinButton10Click(Sender: TObject);
begin
try
frm_op_airtruck_query2:=tfrm_op_airtruck_query2.Create (application);
airtruck_query_limited2:='no';
airtruck_query_table2:=1;
frm_op_airtruck_query2.ShowModal;
finally
frm_op_airtruck_query2.Free;
end;
end;
procedure Tfrm_op_airtruck2.bsSkinButton3Click(Sender: TObject);
begin
if t_op_airtruck.State in [dsedit,dsinsert] then t_op_airtruck.Cancel ;
end;
procedure Tfrm_op_airtruck2.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
end;
procedure Tfrm_op_airtruck2.wwDBDateTimePicker2KeyPress(Sender: TObject;
var Key: Char);
begin
DBComboBox1.SetFocus;
end;
procedure Tfrm_op_airtruck2.RxDBLookupCombo12KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo8);
end;
procedure Tfrm_op_airtruck2.RxDBLookupCombo8KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
end;
procedure Tfrm_op_airtruck2.RxDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit16);
end;
procedure Tfrm_op_airtruck2.DBEdit90000KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit7);
end;
procedure Tfrm_op_airtruck2.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit5);
end;
procedure Tfrm_op_airtruck2.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
end;
procedure Tfrm_op_airtruck2.DBEdit16KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit17);
end;
procedure Tfrm_op_airtruck2.DBComboBox1KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then RxDBLookupCombo12.SetFocus ;
end;
procedure Tfrm_op_airtruck2.Datasetjzccharge(Sender: TField);
var tjweight,jfweight:real ;
chang,kuan,gao,jian:real;
begin
{ if Sender.DataSet.IsEmpty then exit ;
if Sender.DataSet.state in [dsedit,dsinsert] then
begin
try
Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=nil;
tjweight:=s_w(strtoint(apointnum),
Sender.DataSet.fieldbyname('<27><>').asfloat
*(Sender.DataSet.fieldbyname('<27><>').asfloat)
*Sender.DataSet.fieldbyname('<27><>').asfloat
*Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat/100/100/100);
if Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat=0 then
Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat:=tjweight ;
if tjweight<s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat) then
tjweight:=s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat) ;
tjweight:=s_w(strtoint(apointnum),tjweight*167);
Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=tjweight ;
if tjweight>Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat then Sender.DataSet.FieldByName('<27>Ʒ<EFBFBD><C6B7><EFBFBD>').AsFloat:=tjweight
else Sender.DataSet.FieldByName('<27>Ʒ<EFBFBD><C6B7><EFBFBD>').AsFloat:=Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').AsFloat ;
finally
Sender.DataSet.FieldByName('<27><>').OnChange:=Datasetjzccharge;
Sender.DataSet.FieldByName('<27><>').OnChange:=Datasetjzccharge;
Sender.DataSet.FieldByName('<27><>').OnChange:=Datasetjzccharge;
Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=Datasetjzccharge;
Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=Datasetjzccharge;
end;
end;
}end;
procedure Tfrm_op_airtruck2.RxDBLookupCombo1Change(Sender: TObject);
begin
if t_op_airtruck1.DataSet=nil then exit;
if (t_op_airtruck1.DataSet.state=dsinsert)or(t_op_airtruck1.DataSet.state=dsedit)then
begin
t_crm_client_linkman.Close ;
t_crm_client_linkman.Parameters.ParamByName('khjc').Value:=RxDBLookupCombo1.Value ;
t_crm_client_linkman.Open ;
if t_crm_client_linkman.RecordCount>0 then
begin
t_crm_client_linkman.First ;
DBEdit16.Text:=t_crm_client_linkman.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString ;
DBEdit17.Text:=t_crm_client_linkman.fieldbyname('<27>ֻ<EFBFBD>').AsString ;
end ;
end ;
end;
procedure Tfrm_op_airtruck2.Notebook1PageChanged(Sender: TObject);
begin
if Notebook1.ActivePage='detail' then Opendetail
end;
procedure Tfrm_op_airtruck2.Opendetail;
begin
t_op_airtruckdetail.close ;
t_op_airtruckdetail.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_airtruck.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString ;
t_op_airtruckdetail.Open ;
qryjcz.Open ;
end;
procedure Tfrm_op_airtruck2.t_op_airtruckdetailDSDesigner32Change(
Sender: TField);
begin
Datasetjzccharge(sender) ;
end;
procedure Tfrm_op_airtruck2.bsSkinButton17Click(Sender: TObject);
begin
if not t_op_airtruck.Active then exit;
if t_op_airtruck.IsEmpty then exit;
if t_op_airtruck.State in [dsedit,dsinsert] then t_op_airtruck.Post ;
t_op_airtruckdetail.Insert;
end;
procedure Tfrm_op_airtruck2.bsSkinButtonmtzClick(Sender: TObject);
var i,j:integer ;
scaption:string ;
begin
frm_sys_grid_cx:=Tfrm_sys_grid_cx.create(application);
frm_sys_grid_cx.CheckListBox1.Items.Clear ;
for i:=0 to dxDBTreeList1.ColumnCount-1 do
begin
frm_sys_grid_cx.CheckListBox1.Items.Add(dxDBTreeList1.Columns[i].Caption) ;
j:=frm_sys_grid_cx.CheckListBox1.Items.Count-1 ;
frm_sys_grid_cx.CheckListBox1.Checked[j]:=dxDBTreeList1.Columns[i].Visible;
end ;
frm_sys_grid_cx.showmodal ;
if frm_sys_grid_cx.modalresult=mrok then
begin
dxDBTreeList1.BeginUpdate ;
for i:=0 to dxDBTreeList1.ColumnCount-1 do dxDBTreeList1.Columns[i].Visible:=false ;
for i:=0 to frm_sys_grid_cx.CheckListBox1.Items.Count-1 do
begin
if frm_sys_grid_cx.CheckListBox1.Checked[i] then
begin
for j:=0 to dxDBTreeList1.ColumnCount-1 do
begin
scaption:=frm_sys_grid_cx.CheckListBox1.items[i] ;
if dxDBTreeList1.Columns[j].Caption=scaption then
dxDBTreeList1.Columns[j].Visible:=true ;
end;
end ;
end ;
end ;
dxDBTreeList1.EndUpdate ;
frm_sys_grid_cx.free ;
end;
procedure Tfrm_op_airtruck2.bsSkinButtonsuoClick(Sender: TObject);
begin
t_op_airtruckdetail.edit ;
t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean:=not t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
t_op_airtruckdetail.Post ;
end;
procedure Tfrm_op_airtruck2.t_op_airtruckdetail1DataChange(Sender: TObject;
Field: TField);
begin
if t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then bsSkinButtonsuo.Caption:='<27><><EFBFBD><EFBFBD>'
else bsSkinButtonsuo.Caption:='<27><><EFBFBD><EFBFBD>' ;
cxGrid2DBTableView1.OptionsData.Editing:=not t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
cxGrid2DBTableView1.OptionsData.Deleting:=not t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
cxGrid2DBTableView1.OptionsData.Appending:=not t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
cxGrid2DBTableView1.OptionsData.Inserting:=not t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
RxDBLookupCombo3.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
DBEdit6.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
chlautocal.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
DBEdit11.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
DBEdit12.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
RxDBLookupCombo4.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
RxDBLookupCombo10.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
DBEdit21.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
DBDateEdit1.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
RxDBLookupCombo5.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
RxDBLookupCombo14.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
DBEdit22.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
RxDBLookupCombo9.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
bsSkinButton12.Enabled:=not t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
btndelete.Enabled:=not t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
DBEdit19.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
DBEdit20.ReadOnly:=t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean ;
end;
procedure Tfrm_op_airtruck2.dxDBTreeList1CustomDrawCell(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
var AText: String; var AColor: TColor; AFont: TFont;
var AAlignment: TAlignment; var ADone: Boolean);
begin
if ANode.HasChildren then AFont.Color:=clNavy ;
end;
function Tfrm_op_airtruck2.getheight: integer;
var str:string ;
inifile1:Tinifile;
begin
result:=900 ;
if not DirectoryExists(ExtractFilePath(Application.ExeName)+'gridini') then
CreateDir(ExtractFilePath(Application.ExeName)+'gridini');
str:=ExtractFilePath(application.ExeName)+'gridini\'+caption+'cxgrid'+'.ini' ;
try
inifile1:=Tinifile.Create(str);
mxfpwidth:=inifile1.readInteger('truckcxgrid1','cxgridheight',900);
findfpwidth:=inifile1.readInteger('truckcxgrid1','cxgridheight2',800);
inifile1.Free ;
except
end ;
end;
function Tfrm_op_airtruck2.saveheight: integer;
var str:string ;
inifile1:Tinifile;
begin
if not DirectoryExists(ExtractFilePath(Application.ExeName)+'gridini') then
CreateDir(ExtractFilePath(Application.ExeName)+'gridini');
str:=ExtractFilePath(application.ExeName)+'gridini\'+caption+'cxgrid'+'.ini' ;
try
inifile1:=Tinifile.Create(str);
inifile1.WriteInteger('truckcxgrid1','cxgridheight',Panel3.Width);
inifile1.WriteInteger('truckcxgrid1','cxgridheight2',Panel6.Width);
inifile1.Free ;
except
end ;
end;
procedure Tfrm_op_airtruck2.DBEdit12KeyPress(Sender: TObject;
var Key: Char);
begin
if (key<>#13)and(t_op_airtruckdetail.State in [dsedit,dsinsert]) then
begin
chlautocal.Checked:=false ;
end else
if key=#13 then
begin
getweight ;
DBEdit23.SetFocus ;
end ;
end;
procedure Tfrm_op_airtruck2.bsSkinButton12Click(Sender: TObject);
begin
if t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
raise exception.Create('<27><><EFBFBD>Ƚ<EFBFBD><C8BD><EFBFBD>');
qryjcz.Append ;
end;
procedure Tfrm_op_airtruck2.btndeleteClick(Sender: TObject);
begin
if t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
raise exception.Create('<27><><EFBFBD>Ƚ<EFBFBD><C8BD><EFBFBD>');
if MessageDlg('ȷ<><C8B7>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>ǰ<EFBFBD><C7B0><EFBFBD>룿',mtWarning,[mbyes,mbno],0)<>mryes then exit;
qryjcz.Delete ;
end;
procedure Tfrm_op_airtruck2.btnpostClick(Sender: TObject);
begin
if qryjcz.State in [dsinsert,dsedit] then qryjcz.Post ;
end;
procedure Tfrm_op_airtruck2.btncancelClick(Sender: TObject);
begin
if qryjcz.State in [dsinsert,dsedit] then qryjcz.Cancel ;
end;
procedure Tfrm_op_airtruck2.qryjczBeforeEdit(DataSet: TDataSet);
begin
if t_op_airtruck.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_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
raise exception.Create('<27><><EFBFBD>Ƚ<EFBFBD><C8BD><EFBFBD>') ;
end;
procedure Tfrm_op_airtruck2.qryjczAfterPost(DataSet: TDataSet);
var tjweight,jfweight:real ;
chang,kuan,gao,jian:real;
bianhao:string ;
begin
getweight;
end;
procedure Tfrm_op_airtruck2.DBEdit6KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then chlautocal.SetFocus ;
end;
procedure Tfrm_op_airtruck2.chlautocalKeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then DBEdit10.SetFocus ;
end;
procedure Tfrm_op_airtruck2.DBEdit11KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
begin
if not chlautocal.Checked then getweight;
DBEdit12.SetFocus ;
DBEdit12.SelectAll ;
end ;
end;
procedure Tfrm_op_airtruck2.getweight;
var tjweight,jfweight,grweight:real ; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>Ʒ<EFBFBD><C6B7><EFBFBD> ë<><C3AB>
chang,kuan,gao,jian,chima:real;
bianhao:string ;
begin
bianhao:=t_op_airtruckdetail.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring ;
tjweight:=0 ; jfweight:=0 ; grweight:=0 ;
if not qryjcz.Active then qryjcz.Open ;
if qryjcz.RecordCount<=0 then
begin
chang:=0;
kuan:=0;
gao:=0;
jian:=0;
chima:=0;
end
else
begin
qryjczsum.Close ;
qryjczsum.Open ;
if not qryjczsum.isempty then
begin
chang:=qryjczsum.fieldbyname('chang').AsFloat ;
kuan:=qryjczsum.fieldbyname('kuan').AsFloat ;
gao:=qryjczsum.fieldbyname('gao').AsFloat ;
jian:=qryjczsum.fieldbyname('jianshu').AsFloat ;
chima:=qryjczsum.fieldbyname('chima').AsFloat ;
end ;
end ;
t_op_airtruckdetail.Edit ;
t_op_airtruckdetail.FieldByName('<27><>').AsFloat:=chang;
t_op_airtruckdetail.FieldByName('<27><>').AsFloat:=kuan;
t_op_airtruckdetail.FieldByName('<27><>').AsFloat:=gao;
t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>').AsBoolean:=chlautocal.Checked;
if (chlautocal.Checked) then //<2F>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>
begin
tjweight:=s_w(strtoint(apointnum),chima);
t_op_airtruckdetail.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=chima;
t_op_airtruckdetail.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=jian;
end
else
begin
tjweight:=strtofloat(DBEdit12.text) ; // ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
end ;
grweight:=strtofloat(DBEdit11.text) ; // ë<><C3AB>
tjweight:=s_w(0,tjweight*167); // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
grweight:=s_w(0,grweight); // ë<><C3AB>
t_op_airtruckdetail.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=round(tjweight*100)/100 ;
if tjweight>grweight then //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> > ë<><C3AB>
t_op_airtruckdetail.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=round(tjweight*100)/100 // <20>˴<EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>ֶ<EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD>Բ<EFBFBD><D4B2><EFBFBD> fra_fee
else t_op_airtruckdetail.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=round(grweight*100)/100 ;
t_op_airtruckdetail.Post ;
t_op_airtruckdetail.Locate('<27><><EFBFBD><EFBFBD>',bianhao,[]);
end;
procedure Tfrm_op_airtruck2.qryjczAfterInsert(DataSet: TDataSet);
begin
qryjcz.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=t_op_airtruckdetail.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString ;
end;
procedure Tfrm_op_airtruck2.t_op_airtruckdetailBeforeEdit(
DataSet: TDataSet);
begin
// if t_op_airtruckdetail.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
// raise exception.Create('<27><><EFBFBD>Ƚ<EFBFBD><C8BD><EFBFBD>') ;
if t_op_airtruck.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;
end;
procedure Tfrm_op_airtruck2.fra_fee1bsSkinButton3Click(Sender: TObject);
begin
fra_fee1.bsSkinButton3Click(Sender);
end;
procedure Tfrm_op_airtruck2.bsSkinBtnpriorClick(Sender: TObject);
begin
t_op_airtruckdetail.Prior ;
end;
procedure Tfrm_op_airtruck2.bsSkinBtnnextClick(Sender: TObject);
begin
t_op_airtruckdetail.Next ;
end;
procedure Tfrm_op_airtruck2.cxGrid1DBTableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var js:boolean ;
begin
// if AViewInfo.Selected then exit ;
// js:=VarAsType(AViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1DBColumn73.Index],varboolean);
// if js then ACanvas.Canvas.Brush.Color := clYellow ;
end;
procedure Tfrm_op_airtruck2.bsSkinButtonttClick(Sender: TObject);
var i,j:integer ;
scaption:string ;
begin
frm_sys_grid_cx:=Tfrm_sys_grid_cx.create(application);
frm_sys_grid_cx.CheckListBox1.Items.Clear ;
for i:=0 to cxGrid1DBTableView1.ColumnCount-1 do
begin
frm_sys_grid_cx.CheckListBox1.Items.Add(cxGrid1DBTableView1.Columns[i].Caption) ;
j:=frm_sys_grid_cx.CheckListBox1.Items.Count-1 ;
frm_sys_grid_cx.CheckListBox1.Checked[j]:=cxGrid1DBTableView1.Columns[i].Visible;
end ;
frm_sys_grid_cx.showmodal ;
if frm_sys_grid_cx.modalresult=mrok then
begin
cxGrid1DBTableView1.BeginUpdate ;
for i:=0 to cxGrid1DBTableView1.ColumnCount-1 do cxGrid1DBTableView1.Columns[i].Visible:=false ;
for i:=0 to frm_sys_grid_cx.CheckListBox1.Items.Count-1 do
begin
if frm_sys_grid_cx.CheckListBox1.Checked[i] then
begin
for j:=0 to cxGrid1DBTableView1.ColumnCount-1 do
begin
scaption:=frm_sys_grid_cx.CheckListBox1.items[i] ;
if cxGrid1DBTableView1.Columns[j].Caption=scaption then
cxGrid1DBTableView1.Columns[j].Visible:=true ;
end;
end ;
end ;
end ;
cxGrid1DBTableView1.EndUpdate ;
frm_sys_grid_cx.free ;
end;
procedure Tfrm_op_airtruck2.bsSkinButtonprintClick(Sender: TObject);
begin
sys_print('<27><><EFBFBD>ܳ<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>Ʊ',2,t_op_airtruck1,t_op_airtruckdetail1,dsrjcz,nil,nil,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_airtruck2.DBEdit19KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then RxDBLookupCombo4.SetFocus ;
end;
procedure Tfrm_op_airtruck2.DBEdit20KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then DBEdit19.SetFocus ;
end;
procedure Tfrm_op_airtruck2.wwDBLookupCombo4KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then RxDBLookupCombo10.SetFocus ;
end;
procedure Tfrm_op_airtruck2.RxDBLookupCombo10KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then DBEdit21.SetFocus ;
end;
procedure Tfrm_op_airtruck2.DBEdit21KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then DBDateEdit1.SetFocus ;
end;
procedure Tfrm_op_airtruck2.DBDateEdit1KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then RxDBLookupCombo5.SetFocus ;
end;
procedure Tfrm_op_airtruck2.wwDBLookupCombo5KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then RxDBLookupCombo14.SetFocus ;
end;
procedure Tfrm_op_airtruck2.RxDBLookupCombo14KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then DBEdit22.SetFocus;
end;
procedure Tfrm_op_airtruck2.DBEdit22KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then RxDBLookupCombo9.SetFocus ;
end;
procedure Tfrm_op_airtruck2.RxDBLookupCombo9KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then cxGrid2.SetFocus ;
end;
procedure Tfrm_op_airtruck2.DBEdit23KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then DBEdit20.SetFocus ;
end;
procedure Tfrm_op_airtruck2.bsSkinButtonfindClick(Sender: TObject);
begin
fenpiaofind ;
end;
procedure Tfrm_op_airtruck2.fenpiaofind;
begin
frmairtruckdetailfind2:=Tfrmairtruckdetailfind2.create(self);
frmairtruckdetailfind2.Edit1.Text:=DBEdit5.Text ;
if frmairtruckdetailfind2.showmodal=mrok then
begin
with t_op_airtruckdetailfind,sql do
begin
close; clear;
add('select * from t_op_airtruck');
add('where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><3E><><EFBFBD><EFBFBD>');
if frmairtruckdetailfind2.RxDBLookupCombo3.value<>'' then
begin
add('and ί<>е<EFBFBD>λ=:wtdw');
parameters.ParamByName('wtdw').Value:=frmairtruckdetailfind2.RxDBLookupCombo3.value;
end ;
if frmairtruckdetailfind2.Edit1.Text<>'' then
begin
add('and LOT<4F><54> like :LOT');
parameters.ParamByName('LOT').Value:='%'+frmairtruckdetailfind2.Edit1.Text+'%';
end ;
if frmairtruckdetailfind2.RxDBLookupCombo1.Value<>'' then //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
add('and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_airtruck where ί<>е<EFBFBD>λ='''+frmairtruckdetailfind2.RxDBLookupCombo1.Value+''')');
end ;
if frmairtruckdetailfind2.wwDBDateTimePicker6.Text<>'' then //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
add('and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>=:date1');
parameters.ParamByName('date1').Value:=frmairtruckdetailfind2.wwDBDateTimePicker6.Date ;
end ;
if frmairtruckdetailfind2.wwDBDateTimePicker1.Text<>'' then //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
add('and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><=:date2');
parameters.ParamByName('date2').Value:=frmairtruckdetailfind2.wwDBDateTimePicker1.Date ;
end ;
open ;
end ;
end ;
frmairtruckdetailfind2.free ;
end;
procedure Tfrm_op_airtruck2.bsSkinButton25Click(Sender: TObject);
var i,j:integer ;
scaption:string ;
begin
frm_sys_grid_cx:=Tfrm_sys_grid_cx.create(application);
frm_sys_grid_cx.CheckListBox1.Items.Clear ;
for i:=0 to cxGridDBTableViewfind.ColumnCount-1 do
begin
frm_sys_grid_cx.CheckListBox1.Items.Add(cxGridDBTableViewfind.Columns[i].Caption) ;
j:=frm_sys_grid_cx.CheckListBox1.Items.Count-1 ;
frm_sys_grid_cx.CheckListBox1.Checked[j]:=cxGridDBTableViewfind.Columns[i].Visible;
end ;
frm_sys_grid_cx.showmodal ;
if frm_sys_grid_cx.modalresult=mrok then
begin
cxGridDBTableViewfind.BeginUpdate ;
for i:=0 to cxGridDBTableViewfind.ColumnCount-1 do cxGridDBTableViewfind.Columns[i].Visible:=false ;
for i:=0 to frm_sys_grid_cx.CheckListBox1.Items.Count-1 do
begin
if frm_sys_grid_cx.CheckListBox1.Checked[i] then
begin
for j:=0 to cxGridDBTableViewfind.ColumnCount-1 do
begin
scaption:=frm_sys_grid_cx.CheckListBox1.items[i] ;
if cxGridDBTableViewfind.Columns[j].Caption=scaption then
cxGridDBTableViewfind.Columns[j].Visible:=true ;
end;
end ;
end ;
end ;
cxGridDBTableViewfind.EndUpdate ;
frm_sys_grid_cx.free ;
end;
procedure Tfrm_op_airtruck2.bsSkinButton27Click(Sender: TObject);
begin
t_op_airtruckdetailfind.Prior ;
end;
procedure Tfrm_op_airtruck2.bsSkinButton28Click(Sender: TObject);
begin
t_op_airtruckdetailfind.Next ;
end;
procedure Tfrm_op_airtruck2.bsSkinButton26Click(Sender: TObject);
var
yjid:array of string ;
str:widestring;
i:integer;
val:string;
begin
setlength(yjid,cxGridDBTableViewfind.Controller.SelectedRowCount);
cxGridDBTableViewfind.BeginUpdate ;
try
for i:=0 to cxGridDBTableViewfind.Controller.SelectedRowCount-1 do
begin //<2F><><EFBFBD><EFBFBD><EFBFBD>Ƶ<EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>
val:=cxGridDBTableViewfind.DataController.GetDisplayText(cxGridDBTableViewfind.Controller.SelectedRows[I].RecordIndex,0) ;
yjid[i]:=val ;
end; //<2F>õ<EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD>е<EFBFBD>ֵ
for i:=0 to high(yjid) do
begin
if i=0 then
str:='('+''''+yjid[i]+''''
else
str:=str+','+''''+yjid[i]+'''';
end ;
str:=str+')';
finally
cxGridDBTableViewfind.EndUpdate ;
end;
t_op_airtruckdetailfindpr.close;
t_op_airtruckdetailfindpr.sql.clear;
t_op_airtruckdetailfindpr.sql.add(' select * from t_op_airtruck '
+'where <20><><EFBFBD><EFBFBD> in '+str);
t_op_airtruckdetailfindpr.open;
sys_print('<27><><EFBFBD>ܳ<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>Ʊ2',2,t_op_airtruckdetailfindpr1,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_airtruck2.RxDBLookupCombo10Enter(Sender: TObject);
begin
(sender as TRxDBLookupCombo).LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_airtruck2.RxDBLookupCombo10Exit(Sender: TObject);
begin
(sender as TRxDBLookupCombo).LookupDisplay:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_airtruck2.RxDBLookupCombo4Enter(Sender: TObject);
begin
(sender as TRxDBLookupCombo).LookupDisplay:='Ӣ<><D3A2><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_airtruck2.RxDBLookupCombo4Exit(Sender: TObject);
begin
(sender as TRxDBLookupCombo).LookupDisplay:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_airtruck2.fra_fee3bsSkinButton1Click(Sender: TObject);
begin
fra_fee3.bsSkinButton1Click(Sender);
end;
procedure Tfrm_op_airtruck2.qryjczBeforePost(DataSet: TDataSet);
begin
qryjcz.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=
qryjcz.fieldbyname('<27><>').AsFloat
*qryjcz.fieldbyname('<27><>').AsFloat
*qryjcz.fieldbyname('<27><>').AsFloat
*qryjcz.fieldbyname('<27><><EFBFBD><EFBFBD>').AsFloat/1000/1000 ;
end;
procedure Tfrm_op_airtruck2.bsbtnrefreshClick(Sender: TObject);
begin
qryjcz.Requery();
end;
procedure Tfrm_op_airtruck2.DBEdit10KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then DBEdit11.SetFocus ;
end;
procedure Tfrm_op_airtruck2.bsSkinButtonCreateFeeClick(Sender: TObject);
var
yjid:array of string ;
str:widestring;
i:integer;
val,hblno:string;
aQuery:TADOQuery;
begin
hblno:=trim(InputBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5>', '<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>', ''));
aQuery:=CreateAdoQuery;
setlength(yjid,cxGridDBTableViewfind.Controller.SelectedRowCount);
cxGridDBTableViewfind.BeginUpdate ;
try
for i:=0 to cxGridDBTableViewfind.Controller.SelectedRowCount-1 do
begin //<2F><><EFBFBD><EFBFBD><EFBFBD>Ƶ<EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>
val:=cxGridDBTableViewfind.DataController.GetDisplayText(cxGridDBTableViewfind.Controller.SelectedRows[I].RecordIndex,0) ;
if (t_op_airtruckdetailfind.Locate('<27><><EFBFBD><EFBFBD>',val,[])) then begin
createFee('<27><><EFBFBD><EFBFBD>',t_op_airtruckdetailfind.fieldbyname('ί<>е<EFBFBD>λ').asstring,'<27><><EFBFBD>ܷ<EFBFBD>','ί<>е<EFBFBD>λ','<27><><EFBFBD><EFBFBD>','<27><>',t_op_airtruckdetailfind.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
createFee('<27><><EFBFBD><EFBFBD>',t_op_airtruckdetailfind.fieldbyname('ί<>е<EFBFBD>λ').asstring,'<27><><EFBFBD>ط<EFBFBD>','ί<>е<EFBFBD>λ','<27><><EFBFBD><EFBFBD>','<27><>',t_op_airtruckdetailfind.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
createFee('<27><><EFBFBD><EFBFBD>',t_op_airtruckdetailfind.fieldbyname('ί<>е<EFBFBD>λ').asstring,'¼<><C2BC><EFBFBD><EFBFBD>','ί<>е<EFBFBD>λ','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>',t_op_airtruckdetailfind.fieldbyname('ί<>е<EFBFBD>λ').asstring,'<27><><EFBFBD>ط<EFBFBD>','ί<>е<EFBFBD>λ','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>',t_op_airtruckdetailfind.fieldbyname('ί<>е<EFBFBD>λ').asstring,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ί<>е<EFBFBD>λ','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>',t_op_airtruckdetailfind.fieldbyname('ί<>е<EFBFBD>λ').asstring,'<27><>װ<EFBFBD><D7B0>','ί<>е<EFBFBD>λ','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>',t_op_airtruckdetailfind.fieldbyname('ί<>е<EFBFBD>λ').asstring,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ί<>е<EFBFBD>λ','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>',t_op_airtruckdetailfind.fieldbyname('ί<>е<EFBFBD>λ').asstring,'˰<><CBB0>','ί<>е<EFBFBD>λ','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>',t_op_airtruckdetailfind.fieldbyname('ί<>е<EFBFBD>λ').asstring,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ί<>е<EFBFBD>λ','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>',t_op_airtruckdetailfind.fieldbyname('ί<>е<EFBFBD>λ').asstring,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ί<>е<EFBFBD>λ','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>','<27>ൺʢ<E0B5BA><CAA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD>ط<EFBFBD>','','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>','<27>ൺʢ<E0B5BA><CAA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','¼<><C2BC><EFBFBD><EFBFBD>','','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>','<27>ൺʢ<E0B5BA><CAA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','˰<><CBB0>','','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>','','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>','','<27><>װ<EFBFBD><D7B0>','','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>','','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>','<27>ൺʢ<E0B5BA><CAA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>','<27>ൺ<EFBFBD>Ͻ<EFBFBD>ķ','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','','<27><>Ʊ','<27><>',1);
createFee('<27><><EFBFBD><EFBFBD>','<27>ൺʢ<E0B5BA><CAA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD>ܷ<EFBFBD>','','<27><>Ʊ','<27><>',t_op_airtruckdetailfind.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
if (hblno<>'') then begin
aQuery.Close;
aQuery.SQL.Text:='update t_op_airtruck set <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='''+hblno+''' where <20><><EFBFBD><EFBFBD>='''+val+'''';
aQuery.ExecSQL;
end;
end;
end;
ShowMessage('<27><><EFBFBD>ɳɹ<C9B3><C9B9><EFBFBD>');
fra_fee3.t_ch_pay.Close;
fra_fee3.t_ch_accept.Close;
t_op_airtruckdetailfind.Requery();
fra_fee3.t_ch_pay.Open;
fra_fee3.t_ch_accept.Open;
finally
cxGridDBTableViewfind.EndUpdate ;
FreeAndNil(aQuery);
end;
end;
procedure Tfrm_op_airtruck2.createFee(bianhao, cust, feename, custtype,
priceunit,feetype: string; QUANTITY:Double);
begin
t_ch_fee.close;
t_ch_fee.Parameters[0].value:=t_op_airtruckdetailfind.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_ch_fee.open;
t_ch_fee.Insert;
t_ch_fee['<27><><EFBFBD><EFBFBD>']:=t_op_airtruckdetailfind.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_ch_fee['<27><><EFBFBD><EFBFBD>']:=feetype;
t_ch_fee['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
t_ch_fee['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_ch_fee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=feename;
t_ch_fee['<27><><EFBFBD>㵥λ']:=custtype;
t_ch_fee['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=cust;
t_ch_fee['<27><>׼']:=priceunit;
t_ch_fee['<27><><EFBFBD><EFBFBD>']:=QUANTITY;
t_ch_fee['<27>ұ<EFBFBD>']:='RMB';
t_ch_fee['<27><><EFBFBD><EFBFBD>']:=1;
t_ch_fee['<27><><EFBFBD><EFBFBD>']:=0;
t_ch_fee['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=0;
t_ch_fee['˰<><CBB0>']:=0;
t_ch_fee['˰<><CBB0>']:=0;
t_ch_fee['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=0;
t_ch_fee['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=0;
t_ch_fee['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>']:=0;
t_ch_fee['<27><><EFBFBD>񲻺<EFBFBD>˰<EFBFBD><CBB0>']:=0;
t_ch_fee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_ch_fee['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
t_ch_fee['<27><><EFBFBD>뿪Ʊ']:=0;
t_ch_fee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_ch_fee['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
t_ch_fee['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
t_ch_fee['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_ch_fee['<27>Ƿ<EFBFBD><C7B7>渶']:=0;
t_ch_fee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
t_ch_fee['Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>']:=0;
t_ch_fee['<27><><EFBFBD>ֳɱ<D6B3>']:=0;
t_ch_fee['˳<><CBB3>']:=t_ch_fee.RecordCount+1;
t_ch_fee['<27><><EFBFBD><EFBFBD>']:=0;
t_ch_fee.Post;
end;
procedure Tfrm_op_airtruck2.bsSkinButton21Click(Sender: TObject);
begin
frm_main.view_momo(t_op_airtruckdetail1,'<27><>ע');
end;
end.
Reference in New Issue View Git Blame Copy Permalink