hanxuntao
/
DONGSHENG6
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 'master'
${ noResults }
DONGSHENG6/海运业务/u_op_seae_vessel_change.~pas

543 lines
16 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
unit u_op_seae_vessel_change;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, ExtCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl,
dxDBGrid, DB, ADODB, dxDBTLCl, dxGrClms, wwdbdatetimepicker, Mask,
DBCtrls, StdCtrls, wwdblook, bsdbctrls, bsSkinBoxCtrls;
type
Tfrm_op_seae_vessel_change = class(TForm)
Panel2: TPanel;
bsSkinButton7: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
Notebook1: TNotebook;
dxDBGrid1: TdxDBGrid;
t_op_seae_vessel: TADOQuery;
t_op_seae_vessel1: TDataSource;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridDateColumn;
dxDBGrid1Column4: TdxDBGridDateColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridDateColumn;
dxDBGrid1Column8: TdxDBGridDateColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridDateColumn;
v_vessel_change: TADOQuery;
v_vessel_change1: TDataSource;
bsSkinPanel1: TbsSkinPanel;
dxDBGrid2: TdxDBGrid;
dxDBGrid2Column3: TdxDBGridMaskColumn;
dxDBGrid2Column4: TdxDBGridDateColumn;
dxDBGrid2Column5: TdxDBGridMaskColumn;
dxDBGrid2Column6: TdxDBGridMaskColumn;
dxDBGrid2Column7: TdxDBGridMaskColumn;
dxDBGrid2Column8: TdxDBGridMaskColumn;
dxDBGrid2Column10: TdxDBGridMaskColumn;
dxDBGrid2Column11: TdxDBGridMaskColumn;
dxDBGrid2Column12: TdxDBGridMaskColumn;
dxDBGrid2Column13: TdxDBGridDateColumn;
dxDBGrid2Column14: TdxDBGridDateColumn;
dxDBGrid2Column15: TdxDBGridMaskColumn;
dxDBGrid2Column16: TdxDBGridMaskColumn;
dxDBGrid2Column17: TdxDBGridMaskColumn;
dxDBGrid2Column18: TdxDBGridMaskColumn;
dxDBGrid2Column19: TdxDBGridMaskColumn;
dxDBGrid2Column20: TdxDBGridMaskColumn;
t_op_seae: TADOQuery;
t_op_seae_vessel_bill: TADOQuery;
p_update: TADOStoredProc;
bsSkinGroupBox1: TbsSkinGroupBox;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinDateEdit1: TbsSkinDateEdit;
Label8: TLabel;
wwDBLookupCombo2: TwwDBLookupCombo;
Label9: TLabel;
DBEdit4: TDBEdit;
bsSkinButton13: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
bsSkinGroupBox2: TbsSkinGroupBox;
Label125: TLabel;
Label126: TLabel;
Label15: TLabel;
Label25: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
wwDBLookupCombo49: TwwDBLookupCombo;
Button1: TButton;
DBEdit63: TDBEdit;
wwDBDateTimePicker2: TwwDBDateTimePicker;
wwDBDateTimePicker6: TwwDBDateTimePicker;
wwDBLookupCombo1: TwwDBLookupCombo;
Button2: TButton;
DBEdit1: TDBEdit;
wwDBDateTimePicker1: TwwDBDateTimePicker;
wwDBDateTimePicker3: TwwDBDateTimePicker;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
bsSkinButton8: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
DBMemo1: TDBMemo;
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
Label10: TLabel;
wwDBDateTimePicker4: TwwDBDateTimePicker;
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure t_op_seae_vesselBeforeEdit(DataSet: TDataSet);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure t_op_seae_vesselAfterInsert(DataSet: TDataSet);
procedure t_op_seae_vesselBeforePost(DataSet: TDataSet);
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure t_op_seae_vesselAfterScroll(DataSet: TDataSet);
procedure FormShow(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure Panel2Resize(Sender: TObject);
procedure dxDBGrid2ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure bsSkinButton13Click(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure wwDBLookupCombo2Change(Sender: TObject);
procedure DBEdit4Change(Sender: TObject);
private
{ Private declarations }
procedure UpdateHblFieldName(fldName,fldvalue,whereValue:string);
public
{ Public declarations }
end;
var
frm_op_seae_vessel_change: Tfrm_op_seae_vessel_change;
implementation
uses u_main, u_op_seae_vessel, my_sys_function;
{$R *.dfm}
procedure Tfrm_op_seae_vessel_change.UpdateHblFieldName(fldName,fldvalue,whereValue:string);
var aAdoQuery:TAdoQuery;
begin
aAdoQuery:=createAdoquery;
with aAdoQuery do
try
Close;Sql.Clear;
Sql.Add('update t_op_seae_assistant set '+fldName+' = '''+fldvalue+'''');
Sql.Add('Where <20><><EFBFBD><EFBFBD>='''+whereValue+'''');
Execsql;
finally
aAdoQuery.Free;
end;
end;
procedure Tfrm_op_seae_vessel_change.bsSkinButton7Click(Sender: TObject);
begin
table_Prior(t_op_seae_vessel);
end;
procedure Tfrm_op_seae_vessel_change.bsSkinButton6Click(Sender: TObject);
begin
table_next(t_op_seae_vessel);
end;
procedure Tfrm_op_seae_vessel_change.bsSkinButton2Click(Sender: TObject);
begin
table_post(t_op_seae_vessel);
end;
procedure Tfrm_op_seae_vessel_change.bsSkinButton3Click(Sender: TObject);
begin
table_cancel(t_op_seae_vessel);
end;
procedure Tfrm_op_seae_vessel_change.bsSkinButton4Click(Sender: TObject);
begin
if t_op_seae_vessel.IsEmpty then
exit;
if t_op_seae_vessel.FieldByName('<27>Ƿ<EFBFBD><C7B7>޸<EFBFBD>').asboolean then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
table_delete(t_op_seae_vessel);
end;
procedure Tfrm_op_seae_vessel_change.bsSkinButton11Click(Sender: TObject);
begin
if bsSkinButton11.Caption='<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>' then
begin
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end
else
begin
Notebook1.PageIndex:=0;
bsSkinButton11.Caption:='<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>';
end;
end;
procedure Tfrm_op_seae_vessel_change.bsSkinButton1Click(Sender: TObject);
begin
t_op_seae_vessel.insert;
Notebook1.PageIndex:=1;
end;
procedure Tfrm_op_seae_vessel_change.t_op_seae_vesselBeforeEdit(
DataSet: TDataSet);
begin
if not modify_all then
begin
if t_op_seae_vessel.FieldByName('<27>Ƿ<EFBFBD><C7B7>޸<EFBFBD>').asboolean then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
abort;
end;
end;
end;
procedure Tfrm_op_seae_vessel_change.Button1Click(Sender: TObject);
begin
if t_op_seae_vessel.IsEmpty then
exit;
if t_op_seae_vessel.FieldByName('<27>Ƿ<EFBFBD><C7B7>޸<EFBFBD>').asboolean then
exit;
try
frm_op_seae_vessel:=tfrm_op_seae_vessel.Create (self);
frm_op_seae_vessel.v_vessel_voyage.open;
frm_op_seae_vessel.wwIncrementalSearch1.Text:=wwDBLookupCombo49.text;
op_seae_vessel_num:=2;
frm_op_seae_vessel.ShowModal;
finally
frm_op_seae_vessel.Free;
frm_op_seae_vessel:=nil;
end;
end;
procedure Tfrm_op_seae_vessel_change.Button2Click(Sender: TObject);
begin
if t_op_seae_vessel.IsEmpty then
exit;
if t_op_seae_vessel.FieldByName('<27>Ƿ<EFBFBD><C7B7>޸<EFBFBD>').asboolean then
exit;
try
frm_op_seae_vessel:=tfrm_op_seae_vessel.Create (self);
frm_op_seae_vessel.v_vessel_voyage.open;
frm_op_seae_vessel.wwIncrementalSearch1.Text:=wwDBLookupCombo1.text;
op_seae_vessel_num:=3;
frm_op_seae_vessel.ShowModal;
finally
frm_op_seae_vessel.Free;
frm_op_seae_vessel:=nil;
end;
end;
procedure Tfrm_op_seae_vessel_change.t_op_seae_vesselAfterInsert(
DataSet: TDataSet);
begin
t_op_seae_vessel['<27>޸<EFBFBD><DEB8><EFBFBD>']:=employee;
t_op_seae_vessel['<27>޸<EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD>']:=date;
t_op_seae_vessel['<27>Ƿ<EFBFBD><C7B7>޸<EFBFBD>']:=0;
end;
procedure Tfrm_op_seae_vessel_change.t_op_seae_vesselBeforePost(
DataSet: TDataSet);
begin
table_before_post(t_op_seae_vessel,'<27>ɴ<EFBFBD><C9B4><EFBFBD>');
table_before_post(t_op_seae_vessel,'<27>ɺ<EFBFBD><C9BA><EFBFBD>');
table_before_post(t_op_seae_vessel,'<27>ɿ<EFBFBD><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_seae_vessel,'<27>´<EFBFBD><C2B4><EFBFBD>');
table_before_post(t_op_seae_vessel,'<27>º<EFBFBD><C2BA><EFBFBD>');
table_before_post(t_op_seae_vessel,'<27>¿<EFBFBD><C2BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae_vessel_change.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seae_vessel_change.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_op_seae_vessel_change.Hide;
frm_op_seae_vessel_change.ManualFloat(frm_op_seae_vessel_change.BoundsRect );
frm_main.freeTabs('frm_op_seae_vessel_change');
action:=cafree;
frm_op_seae_vessel_change:=nil;
end;
procedure Tfrm_op_seae_vessel_change.t_op_seae_vesselAfterScroll(
DataSet: TDataSet);
begin
if t_op_seae_vessel.FieldByName('<27>Ƿ<EFBFBD><C7B7>޸<EFBFBD>').asboolean then
begin
v_vessel_change1.Enabled:=false;
v_vessel_change1.DataSet:=v_vessel_change;
v_vessel_change1.Enabled:=true;
bsSkinButton8.Enabled:=false;
bsSkinButton9.Enabled:=false;
bsSkinButton12.Enabled:=true;
end
else
begin
t_op_seae.close;
v_vessel_change1.Enabled:=false;
v_vessel_change1.DataSet:=t_op_seae;
v_vessel_change1.Enabled:=true;
bsSkinButton8.Enabled:=true;
bsSkinButton9.Enabled:=true;
bsSkinButton12.Enabled:=false;
end;
end;
procedure Tfrm_op_seae_vessel_change.FormShow(Sender: TObject);
begin
Notebook1.PageIndex:=0;
bsSkinDateEdit1.Date:=Date;
t_op_seae_vessel.open;
v_vessel_change.open;
t_op_seae_vessel_bill.open;
end;
procedure Tfrm_op_seae_vessel_change.bsSkinButton8Click(Sender: TObject);
begin
if t_op_seae_vessel.IsEmpty then
exit;
if (t_op_seae_vessel.State=dsinsert)or(t_op_seae_vessel.State=dsedit)then
t_op_seae_vessel.post;
t_op_seae.close;
t_op_seae.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=wwDBLookupCombo49.text;
t_op_seae.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=DBEdit63.text;
t_op_seae.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').value:=wwDBDateTimePicker2.Date;
t_op_seae.open;
end;
procedure Tfrm_op_seae_vessel_change.bsSkinButton9Click(Sender: TObject);
begin
if not t_op_seae.Active then
exit;
if t_op_seae.IsEmpty then
exit;
if t_op_seae_vessel.IsEmpty then
exit;
if (t_op_seae_vessel.State=dsinsert)or(t_op_seae_vessel.State=dsedit)then
t_op_seae_vessel.post;
t_op_seae.first;
while not t_op_seae.eof do
begin
t_op_seae.edit;
t_op_seae['<27><><EFBFBD><EFBFBD>']:=t_op_seae_vessel['<27>´<EFBFBD><C2B4><EFBFBD>'];
t_op_seae['<27><><EFBFBD><EFBFBD>']:=t_op_seae_vessel['<27>º<EFBFBD><C2BA><EFBFBD>'];
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_vessel['<27>¿<EFBFBD><C2BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae['<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_vessel['<27>½ظ<C2BD><D8B8><EFBFBD><EFBFBD><EFBFBD>'];
t_op_seae['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=date_eng(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
UpdateHblFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',FormatDateTime('YYYY-MM-DD',t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime),t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
UpdateHblFieldName('Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>',t_op_seae['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>'],t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
UpdateHblFieldName('<27><><EFBFBD><EFBFBD>',t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
UpdateHblFieldName('<27><><EFBFBD><EFBFBD>',t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
if bsSkinDBCheckRadioBox2.Checked then begin
ins_op_seae_th('t_op_seae',t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,true,false);
// t_op_seae['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']:=t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']+'T';
updatesaleorderwt(t_op_seae['<27><><EFBFBD><EFBFBD>'],t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>'],1);
end;
t_op_seae.post;
t_op_seae_vessel_bill.insert;
t_op_seae_vessel_bill['VC_ID']:=t_op_seae_vessel['VC_ID'];
t_op_seae_vessel_bill['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
t_op_seae_vessel_bill.post;
t_op_seae.next;
end;
t_op_seae_vessel.edit;
t_op_seae_vessel['<27>Ƿ<EFBFBD><C7B7>޸<EFBFBD>']:=1;
t_op_seae_vessel.post;
v_vessel_change.Requery();
v_vessel_change1.Enabled:=false;
v_vessel_change1.DataSet:=v_vessel_change;
v_vessel_change1.Enabled:=true;
bsSkinButton8.Enabled:=false;
bsSkinButton9.Enabled:=false;
bsSkinButton12.Enabled:=true;
end;
procedure Tfrm_op_seae_vessel_change.bsSkinButton12Click(Sender: TObject);
var
str:widestring;
begin
if t_op_seae_vessel.IsEmpty then
exit;
try
str:='declare @vessel varchar(60),@voyage varchar(20),@kaichuan smalldatetime,@jiegang smalldatetime '
+' select @vessel=t_op_seae_vessel.<2E>ɴ<EFBFBD><C9B4><EFBFBD>,@voyage=t_op_seae_vessel.<2E>ɺ<EFBFBD><C9BA><EFBFBD>, '
+' @kaichuan=t_op_seae_vessel.<2E>ɿ<EFBFBD><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,@jiegang=t_op_seae_vessel.<2E>ɽظ<C9BD><D8B8><EFBFBD><EFBFBD><EFBFBD> '
+' from t_op_seae_vessel where t_op_seae_vessel.VC_ID='+t_op_seae_vessel.fieldbyname('VC_ID').asstring
+' update t_op_seae set <20><><EFBFBD><EFBFBD>=@vessel,<2C><><EFBFBD><EFBFBD>=@voyage,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=@kaichuan,<2C>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>=@jiegang '
+' where <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_seae_vessel_bill where VC_ID='
+t_op_seae_vessel.fieldbyname('VC_ID').asstring+')'
+' delete t_op_seae_vessel_bill where VC_ID='+t_op_seae_vessel.fieldbyname('VC_ID').asstring;
p_update.Parameters.ParamByName('SQLStr').value:=str;
p_update.ExecProc;
modify_all:=true;
t_op_seae_vessel.edit;
t_op_seae_vessel['<27>Ƿ<EFBFBD><C7B7>޸<EFBFBD>']:=0;
t_op_seae_vessel.Post;
t_op_seae.close;
v_vessel_change1.Enabled:=false;
v_vessel_change1.DataSet:=t_op_seae;
v_vessel_change1.Enabled:=true;
bsSkinButton8.Enabled:=true;
bsSkinButton9.Enabled:=true;
bsSkinButton12.Enabled:=false;
finally
modify_all:=false;
end;
end;
procedure Tfrm_op_seae_vessel_change.Panel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel2.Width/9);
bsSkinButton7.Width:=i;
bsSkinButton6.Width:=i;
bsSkinButton10.Width:=i;
bsSkinButton1.Width:=i;
bsSkinButton11.Width:=i;
bsSkinButton2.Width:=i;
bsSkinButton4.Width:=i;
bsSkinButton3.Width:=i;
end;
procedure Tfrm_op_seae_vessel_change.dxDBGrid2ColumnSorting(
Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,v_vessel_change,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae_vessel_change.bsSkinButton13Click(Sender: TObject);
begin
if t_op_seae_vessel.IsEmpty then
exit;
if (t_op_seae_vessel.State=dsinsert)or(t_op_seae_vessel.State=dsedit)then
begin
t_op_seae_vessel.FieldByName('<27>¿<EFBFBD><C2BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=wwDBDateTimePicker4.Date;
end
else
begin
t_op_seae_vessel.edit;
t_op_seae_vessel.FieldByName('<27>¿<EFBFBD><C2BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=wwDBDateTimePicker4.Date;
t_op_seae_vessel.post;
end;
{
if (t_op_seae_vessel.State=dsinsert)or(t_op_seae_vessel.State=dsedit)then
t_op_seae_vessel.post;
}
t_op_seae.close;
t_op_seae.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=wwDBLookupCombo49.text;
t_op_seae.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=DBEdit63.text;
t_op_seae.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').value:=wwDBDateTimePicker4.Date;
t_op_seae.open;
bsSkinCheckRadioBox1.Checked:=False;
end;
procedure Tfrm_op_seae_vessel_change.bsSkinButton14Click(Sender: TObject);
begin
if not t_op_seae.Active then
exit;
if t_op_seae.IsEmpty then
exit;
if t_op_seae_vessel.IsEmpty then
exit;
if (t_op_seae_vessel.State=dsinsert)or(t_op_seae_vessel.State=dsedit)then
t_op_seae_vessel.post;
t_op_seae.first;
while not t_op_seae.eof do
begin
if t_op_seae.FieldByName('ҵ<><D2B5>״̬').AsString<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
t_op_seae.edit;
if bsSkinCheckRadioBox1.Checked then
begin
if bsSkinDateEdit1.Date<>null then
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=StrToDateTime(FormatDateTime('YYYY-MM-DD',bsSkinDateEdit1.Date));
end;
t_op_seae.post;
end;
t_op_seae.next;
end;
t_op_seae_vessel.edit;
t_op_seae_vessel['<27>Ƿ<EFBFBD><C7B7>޸<EFBFBD>']:=1;
t_op_seae_vessel.post;
v_vessel_change.Requery();
end;
procedure Tfrm_op_seae_vessel_change.wwDBLookupCombo2Change(
Sender: TObject);
begin
wwDBLookupCombo1.Value:=wwDBLookupCombo2.Value;
end;
procedure Tfrm_op_seae_vessel_change.DBEdit4Change(Sender: TObject);
begin
DBEdit1.Text:=DBEdit4.Text;
end;
end.