hanxuntao
/
DS6JIEFENG
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 '48f045977c'
${ noResults }
DS6JIEFENG/网上订舱/u_op_seae_web_order.pas

445 lines
13 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
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; //<2F><><EFBFBD>ÿؼ<C3BF><D8BC><EFBFBD><EFBFBD><EFBFBD>ɫ
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('<27><><EFBFBD>˳<EFBFBD><CBB3>ڱ<EFBFBD><DAB1>ر<EFBFBD><D8B1><EFBFBD>',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='<27>鿴' then
begin
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end
else
begin
Notebook1.PageIndex:=0;
bsSkinButton11.Caption:='<27>鿴';
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:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ򡣡<C8BA><F2A1A3A1><EFBFBD>';
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;
//ί<>б<EFBFBD><D0B1>Ŵ<EFBFBD><C5B4><EFBFBD>
t_op_seae.Close;
t_op_seae.SQL.clear;
t_op_seae.SQL.Add('select B.*,case B.BSSTATUS when ''Create'' then ''¼<><C2BC>'' when ''Confirm'' then ''<27><>ȷ<EFBFBD><C8B7>'' when ''Submit'' then ''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''');
t_op_seae.SQL.Add('when ''Back'' then ''<27><><EFBFBD><EFBFBD>'' 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 ί<>е<EFBFBD>λ');
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 ''¼<><C2BC>'' when ''Confirm'' then ''<27><>ȷ<EFBFBD><C8B7>'' when ''Submit'' then ''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''');
t_op_seae.SQL.Add('when ''Back'' then ''<27><><EFBFBD><EFBFBD>'' 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 ί<>е<EFBFBD>λ');
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:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD>' ;
end;
procedure Tfrm_op_seae_web_order.RxDBLookupCombo5Exit(Sender: TObject);
begin
TRxDBLookupCombo(Sender).LookupDisplay:='<27><><EFBFBD><EFBFBD>';
end;
procedure Tfrm_op_seae_web_order.bsSkinButton2Click(Sender: TObject);
begin
if t_op_seae.FieldByName('BSSTATUSREF').AsString<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>' then
begin
MessageDlg('<27><>ǰ״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɶ<EFBFBD><C9B6>գ<EFBFBD>', 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.