unit u_seai_sf_status;

interface

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

type
  Tfrm_seai_sf_status = class(TForm)
    t_op_state: TADOQuery;
    t_op_state1: TDataSource;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridColumn;
    dxDBGrid1Column4: TdxDBGridColumn;
    dxDBGrid1Column5: TdxDBGridColumn;
    dxDBGrid1Column6: TdxDBGridColumn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dxDBGrid1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    bsno:string;
  end;

var
  frm_seai_sf_status: Tfrm_seai_sf_status;

implementation

uses u_op_seae_state_up;

{$R *.dfm}

procedure Tfrm_seai_sf_status.FormShow(Sender: TObject);
begin
  //
  t_op_state.Close;
  t_op_state.Open;
end;

procedure Tfrm_seai_sf_status.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
  frm_seai_sf_status:=nil;

end;

procedure Tfrm_seai_sf_status.dxDBGrid1Click(Sender: TObject);
begin
  if not assigned(frm_op_seae_state_up) then
    frm_op_seae_state_up:=tfrm_op_seae_state_up.Create (self);
    frm_op_seae_state_up.t_op_state.DataSource:=frm_seai_sf_status.t_op_state1;
    frm_op_seae_state_up.DBEdit8.DataSource:=frm_seai_sf_status.t_op_state1;
    frm_op_seae_state_up.DBEdit9.DataSource:=frm_seai_sf_status.t_op_state1;
  frm_op_seae_state_up.show;
//  frm_op_seae_state_up.Left:=bsSkinButton17.left+Notebook1.left+2;
//  frm_op_seae_state_up.top:=70+Notebook1.top;

end;

end.