unit u_code_ctn;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, BusinessSkinForm, dxDBTLCl, dxGrClms, dxDBGrid, dxTL,
  dxDBCtrl, dxCntner, bsSkinCtrls, StdCtrls, RxLookup, Grids, Wwdbigrd,
  Wwdbgrid, wwdblook, DB, ADODB, Mask, wwdbedit, Wwdotdot, Wwdbcomb,
  ExtCtrls;

type
  Tfrm_code_ctn = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    wwDBGrid2: TwwDBGrid;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBComboBox1: TwwDBComboBox;
    p_ctn_seae_update: TADOStoredProc;
    p_ctn_seai_update: TADOStoredProc;
    Panel1: TPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    Panel2: TPanel;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    RxDBLookupCombo24: TRxDBLookupCombo;
    Label68: TLabel;
    RxDBLookupCombo1: TRxDBLookupCombo;
    Label1: TLabel;
    RxDBLookupCombo2: TRxDBLookupCombo;
    Label2: TLabel;
    RxDBLookupCombo3: TRxDBLookupCombo;
    Label3: TLabel;
    RxDBLookupCombo4: TRxDBLookupCombo;
    Label4: TLabel;
    RxDBLookupCombo5: TRxDBLookupCombo;
    Label5: TLabel;
    RxDBLookupCombo6: TRxDBLookupCombo;
    Label6: TLabel;
    RxDBLookupCombo7: TRxDBLookupCombo;
    Label7: TLabel;
    RxDBLookupCombo8: TRxDBLookupCombo;
    Label8: TLabel;
    RxDBLookupCombo9: TRxDBLookupCombo;
    Label9: TLabel;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_code_ctn: Tfrm_code_ctn;

implementation

uses u_data_share, my_sys_function, u_main;

{$R *.dfm}

procedure Tfrm_code_ctn.FormShow(Sender: TObject);
begin
  frm_data_share.t_code_ctn.requery;
  frm_data_share.t_code_ctn_de.requery;
  frm_data_share.t_code_ctn_kind.requery;
end;

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

procedure Tfrm_code_ctn.bsSkinButton1Click(Sender: TObject);
begin
  frm_data_share.t_code_ctn.Insert;
end;

procedure Tfrm_code_ctn.bsSkinButton2Click(Sender: TObject);
begin
  table_post(frm_data_share.t_code_ctn);
end;

procedure Tfrm_code_ctn.bsSkinButton4Click(Sender: TObject);
begin
  table_delete(frm_data_share.t_code_ctn);
end;

procedure Tfrm_code_ctn.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(frm_data_share.t_code_ctn);
end;

procedure Tfrm_code_ctn.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=frm_close_query(frm_data_share.t_code_ctn);
end;

procedure Tfrm_code_ctn.bsSkinButton8Click(Sender: TObject);
begin
  if frm_data_share.t_code_ctn_de.state=dsedit then
    frm_data_share.t_code_ctn_de.post;
  p_ctn_seae_update.ExecProc;
  p_ctn_seai_update.ExecProc;
  SHOWMESSAGE('保存更新成功！！');
end;

procedure Tfrm_code_ctn.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //SendMsg_gonggao('58','');
end;

end.