unit u_op_msg_bg;

interface

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

type
  Tfrm_op_msg_bg = class(TForm)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton5: TbsSkinButton;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridColumn;
    dxDBGrid1Column2: TdxDBGridColumn;
    dxDBGrid1Column3: TdxDBGridColumn;
    dxDBGrid1Column4: TdxDBGridColumn;
    dxDBGrid1Column5: TdxDBGridColumn;
    dxDBGrid1Column6: TdxDBGridColumn;
    dxDBGrid1Column7: TdxDBGridColumn;
    dxDBGrid1Column8: TdxDBGridColumn;
    dxDBGrid1Column10: TdxDBGridColumn;
    dxDBGrid1Column11: TdxDBGridColumn;
    t_op_msg_bg: TADOQuery;
    t_op_msg_bg1: TDataSource;
    dxDBGrid1Column12: TdxDBGridColumn;
    procedure bsSkinButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_msg_bg: Tfrm_op_msg_bg;

implementation

uses u_main;

{$R *.dfm}

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

end.