unit u_op_seae_hpadd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, DB, ADODB, StdCtrls, RxLookup;

type
  Tfrm_op_seaehpadd = class(TForm)
    bsSkinButton3: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Qryhp: TADOQuery;
    dsrhp: TDataSource;
    RxDBLookupCombo6: TRxDBLookupCombo;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_seaehpadd: Tfrm_op_seaehpadd;

implementation

uses u_main, u_op_seae;

{$R *.dfm}

procedure Tfrm_op_seaehpadd.FormShow(Sender: TObject);
begin
  Qryhp.Open;
end;

procedure Tfrm_op_seaehpadd.bsSkinButton3Click(Sender: TObject);
begin
  frm_op_seae.t_op_seae_fen.Edit;
  frm_op_seae.t_op_seae_fen['分票编号']:=Qryhp['编号'];
  frm_op_seae.t_op_seae_fen['拼箱类型']:='合票分票';
  frm_op_seae.t_op_seae_fen.Post;
  Close;
end;

procedure Tfrm_op_seaehpadd.bsSkinButton2Click(Sender: TObject);
begin
  Close;
end;

end.