unit u_op_piliang_seae;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, BusinessSkinForm, dxExEdtr, dxDBTLCl, dxGrClms,
  dxDBGrid, dxTL, dxDBCtrl, dxCntner, DB, ADODB, StdCtrls,
  wwdbdatetimepicker;

type
  Tfrm_op_piliang_seae = class(TForm)
    bsSkinPanel1: TbsSkinPanel;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column7: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridDateColumn;
    dxDBGrid1Column19: TdxDBGridMaskColumn;
    dxDBGrid1Column20: TdxDBGridMaskColumn;
    dxDBGrid1TEU: TdxDBGridMaskColumn;
    dxDBGrid1Column63: TdxDBGridMaskColumn;
    dxDBGrid1Column64: TdxDBGridMaskColumn;
    dxDBGrid1Column65: TdxDBGridDateColumn;
    dxDBGrid1Column66: TdxDBGridMaskColumn;
    dxDBGrid1Column67: TdxDBGridMaskColumn;
    t_op_seae1: TDataSource;
    t_op_seae: TADOStoredProc;
    t_op: TDataSource;
    bsSkinButton5: TbsSkinButton;
    Label3: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    Label1: TLabel;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    bsSkinButton8: TbsSkinButton;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_piliang_seae: Tfrm_op_piliang_seae;

implementation

uses u_main, my_sys_function;

{$R *.dfm}

procedure Tfrm_op_piliang_seae.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_op_piliang_seae.bsSkinButton8Click(Sender: TObject);
var
  book1:Tbookmark;
begin
  book1:=t_op.DataSet.GetBookmark;
  t_op_seae.First;
  while not t_op_seae.Eof do begin
    if t_op.DataSet.Locate('编号',t_op_seae.fieldbyname('编号').AsString,[]) then begin
      t_op.DataSet.edit;
      if wwDBDateTimePicker1.Text<>'' then
      t_op.DataSet.FieldByName('开船日期').Value:=wwDBDateTimePicker1.Date;
      if wwDBDateTimePicker2.Text<>'' then
      t_op.DataSet.FieldByName('预抵日期').Value:=wwDBDateTimePicker2.Date;
      t_op.DataSet.Post;
    end;
{
    t_op_seae.edit;
    if wwDBDateTimePicker1.Text<>'' then
    t_op_seae.FieldByName('开船日期').Value:=wwDBDateTimePicker1.Date;
    if wwDBDateTimePicker2.Text<>'' then
    t_op_seae.FieldByName('预抵日期').Value:=wwDBDateTimePicker2.Date;
    t_op_seae.Post;
 }
    t_op_seae.Next;
  end;
  t_op.DataSet.GotoBookmark(book1);
  showmessage('修改完成！');
end;

end.