unit u_op_msg_ydbg; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dxExEdtr, dxTL, dxDBCtrl, dxDBGrid, dxCntner, bsSkinCtrls, DB, ADODB; type Tfrm_op_msg_ydbg = class(TForm) t_op_msg_ydbg: TADOQuery; t_op_msg_ydbg1: TDataSource; bsSkinPanel2: TbsSkinPanel; bsSkinButton5: TbsSkinButton; bsSkinPanel1: TbsSkinPanel; dxDBGrid1: TdxDBGrid; dxDBGrid1Column1: TdxDBGridColumn; dxDBGrid1Column2: TdxDBGridColumn; dxDBGrid1Column3: TdxDBGridColumn; dxDBGrid1Column4: TdxDBGridColumn; dxDBGrid1Column5: TdxDBGridColumn; dxDBGrid1Column6: TdxDBGridColumn; dxDBGrid1Column7: TdxDBGridColumn; dxDBGrid1Column8: TdxDBGridColumn; dxDBGrid1Column10: TdxDBGridColumn; dxDBGrid1Column11: TdxDBGridColumn; procedure bsSkinButton5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var frm_op_msg_ydbg: Tfrm_op_msg_ydbg; implementation uses u_main; {$R *.dfm} procedure Tfrm_op_msg_ydbg.bsSkinButton5Click(Sender: TObject); begin close; end; end.