unit u_op_seae_weborder; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, bsSkinCtrls, ExtCtrls, DB, ADODB, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ComCtrls, bsSkinTabs, RxLookup, StdCtrls, Mask, DBCtrls, wwdbdatetimepicker, wwdblook, Menus, dxDBTLCl, dxGrClms, bsdbctrls, XPMenu; type Tfrm_op_seae_weborder = class(TForm) Panel2: TPanel; bsSkinButton7: TbsSkinButton; bsSkinButton6: TbsSkinButton; bsSkinButton9: TbsSkinButton; bsSkinButton1: TbsSkinButton; bsSkinButton3: TbsSkinButton; bsSkinButton5: TbsSkinButton; bsSkinButton38: TbsSkinButton; Notebook1: TNotebook; t_op_seae: TADOQuery; t_op_seae1: TDataSource; dxDBGrid1: TdxDBGrid; dxDBGrid1Column4: TdxDBGridDateColumn; dxDBGrid1Column9: TdxDBGridMaskColumn; dxDBGrid1Column10: TdxDBGridMaskColumn; dxDBGrid1Column11: TdxDBGridMaskColumn; dxDBGrid1Column12: TdxDBGridDateColumn; dxDBGrid1Column13: TdxDBGridMaskColumn; dxDBGrid1Column14: TdxDBGridMaskColumn; dxDBGrid1Column15: TdxDBGridMaskColumn; dxDBGrid1Column16: TdxDBGridMaskColumn; dxDBGrid1Column17: TdxDBGridColumn; XPMenu1: TXPMenu; PopupMenu2: TPopupMenu; N10: TMenuItem; N11: TMenuItem; N14: TMenuItem; N13: TMenuItem; N12: TMenuItem; N15: TMenuItem; N16: TMenuItem; bsSkinPanel2: TbsSkinPanel; Label49: TLabel; wwDBDateTimePicker9: TwwDBDateTimePicker; wwDBDateTimePicker12: TwwDBDateTimePicker; Label52: TLabel; Label54: TLabel; RxDBLookupCombo2: TRxDBLookupCombo; bsSkinButton8: TbsSkinButton; bsSkinButton12: TbsSkinButton; t_op_seae_danwei: TADOQuery; t_op_seae_danwei1: TDataSource; d_onlineBooking: TADOQuery; dsrd_onlineBooking: TDataSource; dxDBGrid1Column23: TdxDBGridColumn; t_op_ctn: TADOQuery; t_op_ctn1: TDataSource; dxDBGrid1Column29: TdxDBGridColumn; dxDBGrid1Column21: TdxDBGridColumn; dxDBGrid1Column22: TdxDBGridColumn; dxDBGrid1Column24: TdxDBGridColumn; d_onlineBookingDSDesigner: TIntegerField; d_onlineBookingDSDesigner2: TStringField; d_onlineBookingDSDesigner3: TStringField; d_onlineBookingDSDesigner4: TStringField; d_onlineBookingDSDesigner5: TStringField; d_onlineBookingDSDesigner6: TDateTimeField; d_onlineBookingDSDesigner7: TStringField; d_onlineBookingDSDesigner8: TStringField; d_onlineBookingDSDesigner9: TStringField; d_onlineBookingDSDesigner10: TBooleanField; d_onlineBookingDSDesigner11: TStringField; d_onlineBookingDSDesigner12: TStringField; d_onlineBookingDSDesigner13: TStringField; d_onlineBookingDSDesigner14: TStringField; d_onlineBookingDSDesigner15: TStringField; d_onlineBookingDSDesigner16: TStringField; d_onlineBookingDSDesigner17: TStringField; d_onlineBookingDSDesigner18: TStringField; d_onlineBookingDSDesigner19: TStringField; d_onlineBookingDSDesigner20: TStringField; d_onlineBookingDSDesigner21: TStringField; d_onlineBookingDSDesigner22: TStringField; d_onlineBookingDSDesigner23: TStringField; d_onlineBookingDSDesigner24: TDateTimeField; d_onlineBookingDSDesigner25: TStringField; d_onlineBookingDSDesigner26: TStringField; d_onlineBookingDSDesigner27: TStringField; d_onlineBookingDSDesigner28: TStringField; d_onlineBookingDSDesigner29: TStringField; d_onlineBookingDSDesigner30: TStringField; d_onlineBookingDSDesigner31: TStringField; d_onlineBookingDSDesigner32: TDateTimeField; d_onlineBookingDSDesigner33: TStringField; d_onlineBookingDSDesigner34: TStringField; d_onlineBookingDSDesigner35: TStringField; d_onlineBookingDSDesigner36: TStringField; d_onlineBookingDSDesigner37: TStringField; d_onlineBookingDSDesigner38: TIntegerField; d_onlineBookingDSDesigner39: TStringField; d_onlineBookingDSDesigner40: TBCDField; d_onlineBookingDSDesigner41: TBCDField; d_onlineBookingDSDesigner1: TStringField; d_onlineBookingDSDesigner210: TStringField; d_onlineBookingDSDesigner310: TStringField; d_onlineBookingDSDesigner110: TIntegerField; d_onlineBookingDSDesigner211: TIntegerField; d_onlineBookingDSDesigner311: TIntegerField; d_onlineBookingDSDesigner42: TStringField; d_onlineBookingid: TAutoIncField; d_onlineBookingDSDesigner43: TIntegerField; d_onlineBookingDSDesigner44: TStringField; d_onlineBookingDSDesigner45: TStringField; d_onlineBookingDSDesigner46: TStringField; d_onlineBookingDSDesigner47: TStringField; d_onlineBookingDSDesigner48: TDateTimeField; d_onlineBookingDSDesigner49: TIntegerField; d_onlineBookingDSDesigner50: TStringField; d_onlineBookingDSDesigner51: TStringField; d_onlineBookingDSDesigner52: TStringField; d_onlineBookingDSDesigner53: TStringField; d_onlineBookingDSDesigner54: TStringField; d_onlineBookingDSDesigner55: TDateTimeField; d_onlineBookingDSDesigner56: TDateTimeField; d_onlineBookingDSDesigner57: TStringField; d_onlineBookingDSDesigner58: TStringField; d_onlineBookingDSDesigner59: TDateTimeField; d_onlineBookingDSDesigner60: TStringField; d_onlineBookingDSDesigner61: TStringField; d_onlineBookingDSDesigner62: TStringField; d_onlineBookingDSDesigner63: TStringField; d_onlineBookingDSDesigner64: TStringField; d_onlineBookingDSDesigner65: TStringField; d_onlineBookingDSDesigner66: TStringField; d_onlineBookingDSDesigner67: TStringField; d_onlineBookingDSDesigner68: TStringField; d_onlineBookingDSDesigner69: TStringField; d_onlineBookingDSDesigner70: TStringField; d_onlineBookingDSDesigner71: TStringField; d_onlineBookingDSDesigner72: TStringField; d_onlineBookingDSDesigner73: TStringField; d_onlineBookingDSDesigner74: TStringField; d_onlineBookingDSDesigner75: TDateTimeField; d_onlineBookingDSDesigner76: TStringField; d_onlineBookingDSDesigner77: TStringField; d_onlineBookingDSDesigner78: TStringField; d_onlineBookingDSDesigner79: TStringField; d_onlineBookingDSDesigner80: TStringField; d_onlineBookingDSDesigner81: TStringField; d_onlineBookingDSDesigner82: TStringField; d_onlineBookingDSDesigner83: TStringField; d_onlineBookingDSDesigner84: TStringField; d_onlineBookingDSDesigner85: TBooleanField; d_onlineBookingDSDesigner86: TBooleanField; d_onlineBookingDSDesigner87: TBooleanField; d_onlineBookingDSDesigner88: TBooleanField; d_onlineBookingDSDesigner89: TBooleanField; d_onlineBookingDSDesigner90: TDateTimeField; d_onlineBookingDSDesigner91: TStringField; d_onlineBookingDSDesigner92: TStringField; d_onlineBookingDSDesigner93: TStringField; d_onlineBookingDSDesigner94: TStringField; d_onlineBookingDSDesigner95: TStringField; d_onlineBookingDSDesigner96: TStringField; d_onlineBookingDSDesigner97: TStringField; d_onlineBookingDSDesigner98: TBooleanField; d_onlineBookingDSDesigner99: TDateTimeField; d_onlineBookingDSDesigner100: TBooleanField; d_onlineBookingDSDesigner101: TDateTimeField; d_onlineBookingDSDesigner102: TStringField; d_onlineBookingDSDesigner103: TStringField; d_onlineBookingDSDesigner104: TStringField; d_onlineBookingDSDesigner105: TStringField; d_onlineBookingDSDesigner106: TStringField; d_onlineBookingDSDesigner107: TStringField; d_onlineBookingDSDesigner108: TStringField; d_onlineBookingDSDesigner109: TStringField; d_onlineBookingDSDesigner111: TStringField; d_onlineBookingDSDesigner112: TStringField; d_onlineBookingDSDesigner113: TStringField; d_onlineBookingDSDesigner114: TIntegerField; d_onlineBookingDSDesigner115: TStringField; d_onlineBookingDSDesigner116: TBooleanField; d_onlineBookingDSDesigner117: TBooleanField; d_onlineBookingDSDesigner118: TBooleanField; d_onlineBookingDSDesigner119: TBooleanField; d_onlineBookingDSDesigner120: TStringField; d_onlineBookingDSDesigner121: TBooleanField; d_onlineBookingDSDesigner122: TDateTimeField; d_onlineBookingDSDesigner123: TBooleanField; d_onlineBookingDSDesigner124: TBooleanField; d_onlineBookingDSDesigner125: TDateTimeField; d_onlineBookingDSDesigner126: TDateTimeField; d_onlineBookingDSDesigner127: TStringField; d_onlineBookingDSDesigner128: TStringField; d_onlineBookingDSDesigner129: TStringField; d_onlineBookingDSDesigner130: TBooleanField; d_onlineBookingDSDesigner131: TStringField; d_onlineBookingDSDesigner132: TDateTimeField; d_onlineBookingDSDesigner133: TBCDField; d_onlineBookingDSDesigner134: TBCDField; d_onlineBookingDSDesigner135: TBCDField; d_onlineBookingDSDesigner136: TDateTimeField; d_onlineBookingDSDesigner137: TDateTimeField; d_onlineBookingDSDesigner138: TDateTimeField; d_onlineBookingDSDesigner139: TDateTimeField; d_onlineBookingDSDesigner140: TStringField; d_onlineBookingDSDesigner141: TStringField; d_onlineBookingDSDesigner142: TStringField; d_onlineBookingDSDesigner143: TBooleanField; d_onlineBookingDSDesigner144: TStringField; d_onlineBookingDSDesigner145: TStringField; d_onlineBookingDSDesigner146: TStringField; d_onlineBookingDSDesigner147: TStringField; d_onlineBookingDSDesigner148: TStringField; d_onlineBookingDSDesigner149: TStringField; d_onlineBookingDSDesigner150: TBCDField; d_onlineBookingDSDesigner151: TStringField; d_onlineBookingDSDesigner152: TStringField; d_onlineBookingDSDesigner153: TDateTimeField; d_onlineBookingDSDesigner154: TDateTimeField; d_onlineBookingDSDesigner155: TStringField; d_onlineBookingDSDesigner156: TDateTimeField; d_onlineBookingDSDesigner157: TDateTimeField; d_onlineBookingDSDesigner158: TDateTimeField; d_onlineBookingDSDesigner159: TDateTimeField; d_onlineBookingDSDesigner160: TStringField; d_onlineBookingDSDesigner161: TStringField; d_onlineBookingDSDesigner162: TStringField; d_onlineBookingDSDesigner163: TStringField; d_onlineBookingDSDesigner164: TStringField; d_onlineBookingDSDesigner165: TStringField; d_onlineBookingDSDesigner166: TStringField; d_onlineBookingDSDesigner167: TStringField; d_onlineBookingDSDesigner168: TBooleanField; d_onlineBookingDSDesigner169: TDateTimeField; d_onlineBookingDSDesigner170: TStringField; d_onlineBookingDSDesigner171: TStringField; d_onlineBookingDSDesigner172: TStringField; d_onlineBookingDSDesigner173: TStringField; d_onlineBookingDSDesigner174: TBooleanField; d_onlineBookingDSDesigner175: TStringField; bsSkinPanel1: TbsSkinPanel; dxDBGrid1Column18: TdxDBGridColumn; dxDBGrid1Column19: TdxDBGridColumn; dxDBGrid1Column20: TdxDBGridColumn; dxDBGrid1Column26: TdxDBGridColumn; dxDBGrid1Column25: TdxDBGridMemoColumn; dxDBGrid1Column27: TdxDBGridColumn; dxDBGrid1Column28: TdxDBGridColumn; dxDBGrid1Column30: TdxDBGridColumn; procedure bsSkinButton5Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Panel2Resize(Sender: TObject); procedure bsSkinButton7Click(Sender: TObject); procedure bsSkinButton6Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton9Click(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure bsSkinButton38Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure t_op_seaePostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); procedure bsSkinButton1Click(Sender: TObject); procedure bsSkinButton10Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N12Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure bsSkinButton8Click(Sender: TObject); procedure bsSkinButton12Click(Sender: TObject); procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char); procedure t_op_ctnAfterPost(DataSet: TDataSet); procedure dxDBGrid1Column29CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure d_onlineBookingDSDesignerGetText(Sender: TField; var Text: String; DisplayText: Boolean); procedure d_onlineBookingDSDesigner1GetText(Sender: TField; var Text: String; DisplayText: Boolean); procedure d_onlineBookingDSDesigner210GetText(Sender: TField; var Text: String; DisplayText: Boolean); procedure d_onlineBookingDSDesigner310GetText(Sender: TField; var Text: String; DisplayText: Boolean); private function GetCntr(Code:String):String; { Private declarations } public { Public declarations } end; var frm_op_seae_weborder: Tfrm_op_seae_weborder; implementation uses u_main,u_data_share, my_sys_function, u_sys_progress, u_op_seae_weborder_add, u_op_add_code, u_op_ctn; {$R *.dfm} function Tfrm_op_seae_weborder.GetCntr(Code:String):String; var aQuery:TAdoQuery; begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.Clear; SQL.Add('select 表现形式 from t_code_ctn where 代码='''+Code+''''); Open; Result:=FieldByName('表现形式').AsString; end; finally freeAndNil(aQuery); end; end; procedure Tfrm_op_seae_weborder.bsSkinButton5Click(Sender: TObject); begin close; end; procedure Tfrm_op_seae_weborder.FormClose(Sender: TObject; var Action: TCloseAction); begin savereggrid(dxdbgrid1,caption); frm_op_seae_weborder.Hide; frm_op_seae_weborder.ManualFloat(frm_op_seae_weborder.BoundsRect ); frm_main.freeTabs('frm_op_seae_weborder'); action:=cafree; frm_op_seae_weborder:=nil; end; procedure Tfrm_op_seae_weborder.Panel2Resize(Sender: TObject); var i:integer; begin i:=round(Panel2.Width/11); bsSkinButton7.Width:=i; bsSkinButton6.Width:=i; bsSkinButton9.Width:=i; bsSkinButton1.Width:=i; bsSkinButton3.Width:=i; bsSkinButton38.Width:=i; end; procedure Tfrm_op_seae_weborder.bsSkinButton7Click(Sender: TObject); begin table_Prior(t_op_seae); end; procedure Tfrm_op_seae_weborder.bsSkinButton6Click(Sender: TObject); begin table_next(t_op_seae); end; procedure Tfrm_op_seae_weborder.bsSkinButton2Click(Sender: TObject); begin table_post(t_op_seae); end; procedure Tfrm_op_seae_weborder.bsSkinButton9Click(Sender: TObject); begin sys_print('海运出口网上订舱',2,t_op_seae1,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil); end; procedure Tfrm_op_seae_weborder.bsSkinButton3Click(Sender: TObject); begin d_onlineBooking.Edit; d_onlineBooking['订舱状态']:=3; d_onlineBooking.Post; end; procedure Tfrm_op_seae_weborder.bsSkinButton38Click(Sender: TObject); var book1:Tbookmark; begin book1:=d_onlineBooking.GetBookmark; d_onlineBooking.Refresh; d_onlineBooking.GotoBookmark(book1); end; procedure Tfrm_op_seae_weborder.FormShow(Sender: TObject); begin if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); frm_sys_progress.bsSkinGauge1.ProgressText:='加载数据请等候。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=28; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; t_op_seae.Close; t_op_seae.open; d_onlineBooking.Close; d_onlineBooking.open; t_op_seae_danwei.open; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; loadreggrid(dxdbgrid1,false,caption); { if frm_data_share.t_code_ctn.locate('代码',trim(frm_data_share.t_code_ctn_de.fieldbyname('箱型1').asstring),[]) then dxdbgrid1.ColumnByFieldName('箱量1').Caption:= trim(frm_data_share.t_code_ctn.fieldbyname('表现形式').asstring); } frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; frm_sys_progress.close; frm_sys_progress:=nil; end; procedure Tfrm_op_seae_weborder.t_op_seaePostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); var str:widestring; begin if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then begin showmessage('数据已经被其它用户修改，当前修改不能保存'+#13#10+'请刷新数据后重新录入'); abort; end; end; procedure Tfrm_op_seae_weborder.bsSkinButton1Click(Sender: TObject); begin if t_op_seae=nil then exit; if d_onlineBooking=nil then exit; if (d_onlineBooking['订舱状态']=1) or (d_onlineBooking['订舱状态']=3) then begin MessageDlg('当前状态下不能接受订舱！', mtConfirmation, [mbYes],0); exit; end; if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; try frm_op_seae_weborder_add:=tfrm_op_seae_weborder_add.Create (self); frm_op_seae_weborder_add.data1.Enabled:=false; frm_op_seae_weborder_add.data1.DataSet:=t_op_seae; frm_op_seae_weborder_add.data1.Enabled:=true; frm_op_seae_weborder_add.data2.Enabled:=false; frm_op_seae_weborder_add.data2.DataSet:=d_onlineBooking; frm_op_seae_weborder_add.data2.Enabled:=true; frm_op_seae_weborder_add.data3.Enabled:=false; frm_op_seae_weborder_add.data3.DataSet:=t_op_ctn; frm_op_seae_weborder_add.data3.Enabled:=true; frm_op_seae_weborder_add.ShowModal; finally frm_op_seae_weborder_add.Free; frm_op_seae_weborder_add:=nil; end; end; procedure Tfrm_op_seae_weborder.bsSkinButton10Click(Sender: TObject); begin // query_seae(11,'0001'); end; procedure Tfrm_op_seae_weborder.N10Click(Sender: TObject); begin update_grid_view_no(dxdbgrid1); end; procedure Tfrm_op_seae_weborder.N14Click(Sender: TObject); begin update_grid_view_all(dxdbgrid1); end; procedure Tfrm_op_seae_weborder.N12Click(Sender: TObject); begin update_grid(dxdbgrid1,202); end; procedure Tfrm_op_seae_weborder.N16Click(Sender: TObject); begin grid_save_xls(dxdbgrid1); end; procedure Tfrm_op_seae_weborder.bsSkinButton8Click(Sender: TObject); VAR str:widestring; begin str:='where 进出口=''export'' and 海运空运=''sea'''; if RxDBLookupCombo2.DisplayValue<>''then str:=str+' and 委托单位='+''''+RxDBLookupCombo2.DisplayValues[1]+''''; if wwDBDateTimePicker9.text<>''then str:=str+' and 申请时间>='+''''+wwDBDateTimePicker9.text+''''; if wwDBDateTimePicker12.text<>''then str:=str+' and 申请时间<='+''''+wwDBDateTimePicker12.text+''''; d_onlineBooking.close; d_onlineBooking.sql.clear; d_onlineBooking.sql.add('select * from d_onlineBooking '+str+' order by 业务编号'); d_onlineBooking.open; // ShowMessage(d_onlineBooking.sql.Text); end; procedure Tfrm_op_seae_weborder.bsSkinButton12Click(Sender: TObject); begin RxDBLookupCombo2.ClearValue; wwDBDateTimePicker9.text:=''; wwDBDateTimePicker12.text:=''; end; procedure Tfrm_op_seae_weborder.RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char); begin // key_wwDBLookupCombo(Key,wwDBLookupCombo1); end; procedure Tfrm_op_seae_weborder.t_op_ctnAfterPost(DataSet: TDataSet); begin update_ctn(t_op_ctn); end; procedure Tfrm_op_seae_weborder.dxDBGrid1Column29CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if ANode.Strings[dxDBGrid1Column29.Index]='接受订舱' then AColor:=clgreen else if ANode.Strings[dxDBGrid1Column29.Index]='拒绝订舱' then AColor:=clred else AColor:=clWhite; AFont.Color:=clblack; end; procedure Tfrm_op_seae_weborder.d_onlineBookingDSDesignerGetText( Sender: TField; var Text: String; DisplayText: Boolean); begin if Sender.Value='0' then Text:='等待订舱' else if Sender.Value='3' then Text:='拒绝订舱' else Text:='接受订舱'; end; procedure Tfrm_op_seae_weborder.d_onlineBookingDSDesigner1GetText( Sender: TField; var Text: String; DisplayText: Boolean); begin if sender.DataSet['箱量1']<>0 then Text:=GetCntr(Sender.AsString)+'X'+sender.DataSet.fieldbyname('箱量1').asstring; end; procedure Tfrm_op_seae_weborder.d_onlineBookingDSDesigner210GetText( Sender: TField; var Text: String; DisplayText: Boolean); begin if sender.DataSet['箱量2']<>0 then Text:=GetCntr(Sender.AsString)+'X'+sender.DataSet.fieldbyname('箱量2').asstring; end; procedure Tfrm_op_seae_weborder.d_onlineBookingDSDesigner310GetText( Sender: TField; var Text: String; DisplayText: Boolean); begin if sender.DataSet['箱量3']<>0 then Text:=GetCntr(Sender.AsString)+'X'+sender.DataSet.fieldbyname('箱量3').asstring; end; end.