|
|
unit u_info_price_port;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, bsdbctrls, Grids, Wwdbigrd, Wwdbgrid,
|
|
|
BusinessSkinForm, DB, ADODB, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb,
|
|
|
wwdblook;
|
|
|
|
|
|
type
|
|
|
Tfrm_info_price_port = class(TForm)
|
|
|
wwDBGrid1: TwwDBGrid;
|
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
|
wwDBLookupCombo52: TwwDBLookupCombo;
|
|
|
t_price_port: TADOQuery;
|
|
|
ds_price_port1: TDataSource;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton4: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
t_price_portDSDesigner: TStringField;
|
|
|
t_price_portDSDesigner2: TStringField;
|
|
|
ds_vessel_lines1: TDataSource;
|
|
|
t_vessel_lines: TADOQuery;
|
|
|
t_price_portDSDesigner3: TStringField;
|
|
|
t_price_portDSDesigner4: TSmallintField;
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure t_price_portBeforePost(DataSet: TDataSet);
|
|
|
procedure t_price_portDSDesigner2Change(Sender: TField);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_info_price_port: Tfrm_info_price_port;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, u_data_share, u_info_price_managelist, my_sys_function;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_info_price_port.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
if not t_price_port.Active then t_price_port.Open;
|
|
|
if not t_vessel_lines.Active then t_vessel_lines.Open;
|
|
|
|
|
|
if not frm_data_share.t_code_disport.Active then frm_data_share.t_code_disport.Open;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_port.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
t_price_port.Edit;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_port.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
t_price_port.Insert;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_port.bsSkinButton4Click(Sender: TObject);
|
|
|
begin
|
|
|
if MessageDlg('ȷʵҪɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,mbYesNoCancel,0)=mrYes then
|
|
|
t_price_port.Delete;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_port.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_port.t_price_portBeforePost(DataSet: TDataSet);
|
|
|
begin
|
|
|
table_before_post(t_price_port,'<27>ۿڴ<DBBF><DAB4><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_port.t_price_portDSDesigner2Change(
|
|
|
Sender: TField);
|
|
|
begin
|
|
|
if (t_price_port.state=dsinsert)or(t_price_port.state=dsedit) then
|
|
|
begin
|
|
|
if not frm_data_share.t_code_disport.IsEmpty then
|
|
|
if frm_data_share.t_code_disport.locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',t_price_port['<27>ۿ<EFBFBD><DBBF><EFBFBD><EFBFBD><EFBFBD>'],[]) then
|
|
|
begin
|
|
|
t_price_port['<27>ۿڴ<DBBF><DAB4><EFBFBD>']:=frm_data_share.t_code_disport.fieldbyname('EDI<44><49><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|