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.
127 lines
3.6 KiB
Plaintext
127 lines
3.6 KiB
Plaintext
unit u_op_seae_list_z;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
bsSkinCtrls, StdCtrls, Grids, dxExEdtr, dxCntner, dxTL, dxDBCtrl,
|
|
dxDBGrid, Menus, bsSkinMenus, DB, RxMemDS, Mask, DBCtrls,ADODB;
|
|
|
|
type
|
|
Tfra_op_seae_list_z = class(TFrame)
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
Label5: TLabel;
|
|
Label6: TLabel;
|
|
Label7: TLabel;
|
|
Label8: TLabel;
|
|
Label9: TLabel;
|
|
Label10: TLabel;
|
|
Label11: TLabel;
|
|
Label12: TLabel;
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
Label14: TLabel;
|
|
Label16: TLabel;
|
|
Label17: TLabel;
|
|
Label19: TLabel;
|
|
Label20: TLabel;
|
|
Label24: TLabel;
|
|
dxDBGrid1: TdxDBGrid;
|
|
dxDBGrid1Column1: TdxDBGridColumn;
|
|
dxDBGrid1Column2: TdxDBGridColumn;
|
|
dxDBGrid1Column4: TdxDBGridColumn;
|
|
bsSkinPopupMenu1: TbsSkinPopupMenu;
|
|
N1: TMenuItem;
|
|
N2: TMenuItem;
|
|
N3: TMenuItem;
|
|
t_op_seae_main: TRxMemoryData;
|
|
t_op_seae_main1: TDataSource;
|
|
DBEdit1: TDBEdit;
|
|
DBEdit2: TDBEdit;
|
|
DBEdit3: TDBEdit;
|
|
DBEdit4: TDBEdit;
|
|
DBEdit5: TDBEdit;
|
|
DBEdit6: TDBEdit;
|
|
DBEdit7: TDBEdit;
|
|
DBEdit8: TDBEdit;
|
|
DBEdit9: TDBEdit;
|
|
DBEdit10: TDBEdit;
|
|
DBEdit11: TDBEdit;
|
|
DBEdit12: TDBEdit;
|
|
DBEdit13: TDBEdit;
|
|
DBEdit14: TDBEdit;
|
|
DBEdit15: TDBEdit;
|
|
DBEdit16: TDBEdit;
|
|
DBEdit17: TDBEdit;
|
|
DBEdit18: TDBEdit;
|
|
t_op_seae_fen1: TDataSource;
|
|
t_op_seae_fen: TRxMemoryData;
|
|
procedure add_data(ado_query1:Tadoquery;ado_query2:Tadoquery);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses u_main;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfra_op_seae_list_z.add_data(ado_query1:Tadoquery;ado_query2:Tadoquery);
|
|
begin
|
|
t_op_seae_main.open;
|
|
t_op_seae_main.Insert;
|
|
t_op_seae_main['weituo_no']:=ado_query1['委托编号'];
|
|
t_op_seae_main['tidan']:=ado_query1['提单号'];
|
|
t_op_seae_main['zhuangyun']:=ado_query1['装运方式'];
|
|
t_op_seae_main['chuan']:=ado_query1['船名']+','+ado_query1['航次'];
|
|
t_op_seae_main['chuangong']:=ado_query1['船公司'];
|
|
t_op_seae_main['weituo']:=ado_query1['委托单位'];
|
|
t_op_seae_main['kaichuan']:=ado_query1['开船日期'];
|
|
t_op_seae_main['lanhuo']:=ado_query1['揽货人'];
|
|
t_op_seae_main['yewu_no']:=ado_query1['编号'];
|
|
t_op_seae_main['jizhuang']:=ado_query1['集装箱'];
|
|
t_op_seae_main['chima']:=ado_query1['尺码'];
|
|
t_op_seae_main['xiehuo']:=ado_query1['卸货港'];
|
|
t_op_seae_main['yewu_sate']:=ado_query1['业务状态'];
|
|
t_op_seae_main.post;
|
|
if ado_query1.fieldbyname('装运方式').asstring='拼箱主票' then
|
|
begin
|
|
t_op_seae_main.open;
|
|
ado_query2.First;
|
|
while not ado_query2.eof do
|
|
begin
|
|
t_op_seae_fen.Insert;
|
|
t_op_seae_fen['weituo_no']:=ado_query2['委托编号'];
|
|
t_op_seae_fen['tidan']:=ado_query2['提单号'];
|
|
t_op_seae_fen['zhuangyun']:=ado_query2['装运方式'];
|
|
t_op_seae_fen['chuan']:=ado_query2['船名']+','+ado_query2['航次'];
|
|
t_op_seae_fen['chuangong']:=ado_query2['船公司'];
|
|
t_op_seae_fen['weituo']:=ado_query2['委托单位'];
|
|
t_op_seae_fen['kaichuan']:=ado_query2['开船日期'];
|
|
t_op_seae_fen['lanhuo']:=ado_query2['揽货人'];
|
|
t_op_seae_fen['yewu_no']:=ado_query2['编号'];
|
|
t_op_seae_fen['jizhuang']:=ado_query2['集装箱'];
|
|
t_op_seae_fen['chima']:=ado_query2['尺码'];
|
|
t_op_seae_fen['xiehuo']:=ado_query2['卸货港'];
|
|
t_op_seae_fen['yewu_sate']:=ado_query2['业务状态'];
|
|
t_op_seae_fen.post;
|
|
ado_query2.next;
|
|
end;
|
|
bsSkinPanel1.Visible:=true;
|
|
bsSkinPanel2.Visible:=false;
|
|
end
|
|
else
|
|
begin
|
|
bsSkinPanel1.Visible:=false;
|
|
bsSkinPanel2.Visible:=true;
|
|
end;
|
|
end;
|
|
|
|
end.
|