unit u_op_seae_web_order; 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, u_op_sate, u_fee, u_op_card, Menus, dxDBTLCl, dxGrClms, bsdbctrls, XPMenu, wwdbedit, Wwdotdot, Wwdbcomb, Grids, Wwdbigrd, Wwdbgrid; type Tfrm_op_seae_web_order = class(TForm) Panel2: TPanel; bsSkinButton7: TbsSkinButton; bsSkinButton6: TbsSkinButton; bsSkinButton9: TbsSkinButton; bsSkinButton11: TbsSkinButton; bsSkinButton5: TbsSkinButton; bsSkinButton38: TbsSkinButton; Notebook1: TNotebook; t_op_seae: TADOQuery; t_op_seae1: TDataSource; bsSkinPanel1: TbsSkinPanel; XPMenu1: TXPMenu; PopupMenu2: TPopupMenu; N10: TMenuItem; N11: TMenuItem; N14: TMenuItem; N13: TMenuItem; N12: TMenuItem; N15: TMenuItem; N16: TMenuItem; bsSkinPanel2: TbsSkinPanel; Label47: TLabel; Label49: TLabel; wwDBDateTimePicker9: TwwDBDateTimePicker; Edit3: TEdit; wwDBDateTimePicker12: TwwDBDateTimePicker; Label52: TLabel; Label54: TLabel; RxDBLookupCombo2: TRxDBLookupCombo; bsSkinButton8: TbsSkinButton; bsSkinButton12: TbsSkinButton; bsSkinButton2: TbsSkinButton; bsSkinButton1: TbsSkinButton; Label45: TLabel; wwDBComboBox8: TwwDBComboBox; wwDBDateTimePicker11: TwwDBDateTimePicker; Label48: TLabel; wwDBDateTimePicker13: TwwDBDateTimePicker; Label50: TLabel; Panel1: TPanel; dxDBGrid1: TdxDBGrid; dxDBGrid1Column29: TdxDBGridColumn; dxDBGrid1Column4: TdxDBGridDateColumn; dxDBGrid1Column9: TdxDBGridMaskColumn; dxDBGrid1Column19: TdxDBGridColumn; dxDBGrid1Column20: TdxDBGridColumn; dxDBGrid1Column10: TdxDBGridMaskColumn; dxDBGrid1Column11: TdxDBGridMaskColumn; dxDBGrid1Column12: TdxDBGridDateColumn; dxDBGrid1Column13: TdxDBGridMaskColumn; dxDBGrid1Column14: TdxDBGridMaskColumn; dxDBGrid1Column15: TdxDBGridMaskColumn; dxDBGrid1Column16: TdxDBGridMaskColumn; dxDBGrid1Column17: TdxDBGridColumn; dxDBGrid1Column23: TdxDBGridColumn; dxDBGrid1Column26: TdxDBGridColumn; dxDBGrid1Column25: TdxDBGridMemoColumn; bsSkinPanel3: TbsSkinPanel; Label1: TLabel; DBEdit1: TDBEdit; Label2: TLabel; DBEdit2: TDBEdit; Label4: TLabel; DBEdit4: TDBEdit; Label3: TLabel; DBEdit3: TDBEdit; Label5: TLabel; DBEdit5: TDBEdit; Label6: TLabel; DBEdit6: TDBEdit; Label7: TLabel; DBEdit7: TDBEdit; DBEdit8: TDBEdit; Label8: TLabel; DBMemo3: TDBMemo; Label9: TLabel; Label10: TLabel; bsSkinPanel4: TbsSkinPanel; DBMemo1: TDBMemo; DBMemo4: TDBMemo; DBMemo5: TDBMemo; Label11: TLabel; Label12: TLabel; Label13: TLabel; DBMemo38: TDBMemo; Label14: TLabel; Label15: TLabel; DBMemo2: TDBMemo; DBEdit9: TDBEdit; Label16: TLabel; DBEdit10: TDBEdit; Label17: TLabel; Label18: TLabel; DBEdit11: TDBEdit; Label19: TLabel; DBEdit12: TDBEdit; Label21: TLabel; DBEdit14: TDBEdit; Label22: TLabel; DBEdit15: TDBEdit; Label23: TLabel; Label24: TLabel; DBEdit17: TDBEdit; wwDBComboBox15: TwwDBComboBox; Label20: TLabel; DBEdit13: TDBEdit; Label25: TLabel; DBEdit16: TDBEdit; Label26: TLabel; DBEdit18: TDBEdit; Label27: TLabel; DBEdit19: TDBEdit; Label28: TLabel; DBEdit20: TDBEdit; Label29: TLabel; DBEdit21: TDBEdit; Label30: TLabel; DBEdit22: TDBEdit; Label31: TLabel; DBEdit23: TDBEdit; wwDBGrid1: TwwDBGrid; t_op_ctn1: TDataSource; t_op_ctn: TADOQuery; Label32: TLabel; DBEdit24: TDBEdit; DBEdit25: TDBEdit; Label33: TLabel; Label34: TLabel; DBEdit26: TDBEdit; DBEdit27: TDBEdit; Label35: TLabel; Label36: TLabel; DBEdit28: TDBEdit; DBEdit29: TDBEdit; Label37: TLabel; Label38: TLabel; DBEdit30: TDBEdit; Label39: TLabel; DBEdit31: TDBEdit; DBEdit32: TDBEdit; Label40: TLabel; Label41: TLabel; DBEdit33: TDBEdit; DBEdit34: TDBEdit; Label42: TLabel; Label43: TLabel; DBEdit35: TDBEdit; Label44: TLabel; DBEdit36: TDBEdit; t_op_seae_insert: TADOQuery; t_op_seae_insert1: TDataSource; t_op_ctn_insert: TADOQuery; procedure bsSkinButton5Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Panel2Resize(Sender: TObject); procedure bsSkinButton7Click(Sender: TObject); procedure bsSkinButton6Click(Sender: TObject); procedure bsSkinButton9Click(Sender: TObject); procedure bsSkinButton11Click(Sender: TObject); procedure bsSkinButton38Click(Sender: TObject); procedure FormShow(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 Notebook1PageChanged(Sender: TObject); procedure RxDBLookupCombo5Enter(Sender: TObject); procedure RxDBLookupCombo5Exit(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); private { Private declarations } procedure setconcolor; //设置控件的颜色 public { Public declarations } end; var frm_op_seae_web_order: Tfrm_op_seae_web_order; implementation uses u_main,u_data_share, my_sys_function, u_sys_progress, u_op_seae_apply_add, u_op_add_code, u_op_date_change, u_op_ctn, u_op_seae_web_add; {$R *.dfm} procedure Tfrm_op_seae_web_order.setconcolor; begin end; procedure Tfrm_op_seae_web_order.bsSkinButton5Click(Sender: TObject); begin close; end; procedure Tfrm_op_seae_web_order.FormClose(Sender: TObject; var Action: TCloseAction); begin savereggrid(dxdbgrid1,caption); frm_op_seae_web_order.Hide; frm_op_seae_web_order.ManualFloat(frm_op_seae_web_order.BoundsRect ); frm_main.freeTabs('frm_op_seae_web_order'); action:=cafree; frm_op_seae_web_order:=nil; end; procedure Tfrm_op_seae_web_order.Panel2Resize(Sender: TObject); var i:integer; begin i:=round(Panel2.Width/12); bsSkinButton7.Width:=i; bsSkinButton6.Width:=i; bsSkinButton9.Width:=i; bsSkinButton1.Width:=i; bsSkinButton11.Width:=i; bsSkinButton2.Width:=i; bsSkinButton38.Width:=i; end; procedure Tfrm_op_seae_web_order.bsSkinButton7Click(Sender: TObject); begin table_Prior(t_op_seae); end; procedure Tfrm_op_seae_web_order.bsSkinButton6Click(Sender: TObject); begin table_next(t_op_seae); end; procedure Tfrm_op_seae_web_order.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_web_order.bsSkinButton11Click(Sender: TObject); var answer:TModalResult; begin if bsSkinButton11.Caption='编辑修改' then begin Notebook1.PageIndex:=1; bsSkinButton11.Caption:='返回列表'; end else begin if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then BEGIN answer:=messagedlg( '数据已经修改，是否保存？',mtWarning,mbYesNoCancel,0); if answer=mrYes then begin t_op_seae.post; end; if answer=mrNo then begin t_op_seae.cancel; end; if answer=mrCancel then begin exit; end; END; Notebook1.PageIndex:=0; bsSkinButton11.Caption:='编辑修改'; end; end; procedure Tfrm_op_seae_web_order.bsSkinButton38Click(Sender: TObject); var book1:Tbookmark; begin book1:=t_op_seae.GetBookmark; t_op_seae.Refresh; t_op_seae.GotoBookmark(book1); end; procedure Tfrm_op_seae_web_order.FormShow(Sender: TObject); begin Notebook1.PageIndex:=0; 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.SQL.clear; t_op_seae.SQL.Add('select B.*,case B.BSSTATUS when ''Create'' then ''录入'' when ''Confirm'' then ''已确认'' when ''Submit'' then ''提交订舱'''); t_op_seae.SQL.Add('when ''Back'' then ''驳回'' else '''' end BSSTATUSREF '); t_op_seae.SQL.Add(',u.EMAIL,u.TEL,u.[NAME] CUSTATTN,u.REC_BC_MAIL,CASE WHEN U.IS_ADMIN=1 THEN INFO_CLIENT ELSE (select info_client from SYS_USER where GID=U.PARENT_ID) END 委托单位'); t_op_seae.SQL.Add(' from OP_SEAE_ORDER B LEFT JOIN SYS_USER U ON (U.GID=B.USERID) where B.BSSTATUS<>''Create'' ' +' order by B.ETD DESC'); t_op_seae.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); 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_web_order.N10Click(Sender: TObject); begin update_grid_view_no(dxdbgrid1); end; procedure Tfrm_op_seae_web_order.N14Click(Sender: TObject); begin update_grid_view_all(dxdbgrid1); end; procedure Tfrm_op_seae_web_order.N12Click(Sender: TObject); begin update_grid(dxdbgrid1,101); end; procedure Tfrm_op_seae_web_order.N16Click(Sender: TObject); begin grid_save_xls(dxdbgrid1); end; procedure Tfrm_op_seae_web_order.bsSkinButton8Click(Sender: TObject); VAR str:widestring; begin if Edit3.text<>''then str:=str+' and MBLNO like '+''''+'%'+Edit3.text+'%'+''''; if RxDBLookupCombo2.DisplayValue<>''then str:=str+' and INFO_CLIENT='+''''+RxDBLookupCombo2.DisplayValues[1]+''''; if wwDBComboBox8.Value<>''then str:=str+' and BSSTATUS='+''''+wwDBComboBox8.Value+''''; if (wwDBDateTimePicker9.text<>'') OR (wwDBDateTimePicker12.text<>'') then BEGIN str:=str+' ORDNO IN (SELECT RELATIVE_ID FROM OP_STATUS_LOG WHERE [STATUS]=''OrderSubmit'' '; if wwDBDateTimePicker9.text<>''then str:=str+' and OP_TIME>='+''''+wwDBDateTimePicker9.text+''''; if wwDBDateTimePicker12.text<>''then str:=str+' and OP_TIME<='+''''+wwDBDateTimePicker12.text+' 23:59:59'' '; str:=str+' )'; END; if wwDBDateTimePicker13.text<>''then str:=str+' and ETD>='+''''+wwDBDateTimePicker13.text+''''; if wwDBDateTimePicker11.text<>''then str:=str+' and ETD<='+''''+wwDBDateTimePicker11.text+''''; t_op_seae.close; t_op_seae.sql.clear; t_op_seae.SQL.Add('select B.*,case B.BSSTATUS when ''Create'' then ''录入'' when ''Confirm'' then ''已确认'' when ''Submit'' then ''提交订舱'''); t_op_seae.SQL.Add('when ''Back'' then ''驳回'' else '''' end BSSTATUSREF '); t_op_seae.SQL.Add(',u.EMAIL,u.TEL,u.[NAME] CUSTATTN,u.REC_BC_MAIL,CASE WHEN U.IS_ADMIN=1 THEN INFO_CLIENT ELSE (select info_client from SYS_USER where GID=U.PARENT_ID) END 委托单位'); t_op_seae.SQL.Add(' from OP_SEAE_ORDER B LEFT JOIN SYS_USER U ON (U.GID=B.USERID) where B.BSSTATUS<>''Create'' ' +str +' order by B.ETD DESC'); t_op_seae.open; end; procedure Tfrm_op_seae_web_order.bsSkinButton12Click(Sender: TObject); begin Edit3.text:=''; RxDBLookupCombo2.ClearValue; wwDBDateTimePicker9.text:=''; wwDBDateTimePicker12.text:=''; wwDBDateTimePicker11.text:=''; wwDBDateTimePicker13.text:=''; end; procedure Tfrm_op_seae_web_order.Notebook1PageChanged(Sender: TObject); begin setconcolor; end; procedure Tfrm_op_seae_web_order.RxDBLookupCombo5Enter(Sender: TObject); begin TRxDBLookupCombo(Sender).LookupDisplay:='代码;姓名' ; end; procedure Tfrm_op_seae_web_order.RxDBLookupCombo5Exit(Sender: TObject); begin TRxDBLookupCombo(Sender).LookupDisplay:='姓名'; end; procedure Tfrm_op_seae_web_order.bsSkinButton2Click(Sender: TObject); begin if t_op_seae.FieldByName('BSSTATUSREF').AsString<>'提交订舱' then begin MessageDlg('当前状态不允许生成订舱！', mtConfirmation, [mbYes],0); exit; end; try frm_op_seae_web_add:=tfrm_op_seae_web_add.Create (self); frm_op_seae_web_add.data1.Enabled:=false; frm_op_seae_web_add.data1.DataSet:=t_op_seae_insert; frm_op_seae_web_add.data1.Enabled:=true; frm_op_seae_web_add.data2.Enabled:=false; frm_op_seae_web_add.data2.DataSet:=t_op_seae; frm_op_seae_web_add.data2.Enabled:=true; frm_op_seae_web_add.data3.Enabled:=false; frm_op_seae_web_add.data3.DataSet:=t_op_ctn_insert; frm_op_seae_web_add.data3.Enabled:=true; frm_op_seae_web_add.data4.Enabled:=false; frm_op_seae_web_add.data4.DataSet:=t_op_ctn; frm_op_seae_web_add.data4.Enabled:=true; frm_op_seae_web_add.ShowModal; finally frm_op_seae_web_add.Free; frm_op_seae_web_add:=nil; end; end; end.