unit u_info_yijian_manage;

interface

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

type
  Tfrm_info_yijian_manage = class(TForm)
    t_info_yijian: TADOQuery;
    t_info_yijian1: TDataSource;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridDateColumn;
    bsSkinButton5: TbsSkinButton;
    bsSkinGroupBox1: TbsSkinGroupBox;
    DBMemo1: TDBMemo;
    bsSkinButton1: TbsSkinButton;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinGroupBox1Resize(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_info_yijian_manage: Tfrm_info_yijian_manage;

implementation

uses u_main, my_sys_function;

{$R *.dfm}

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

procedure Tfrm_info_yijian_manage.FormShow(Sender: TObject);
begin
  t_info_yijian.open;
end;

procedure Tfrm_info_yijian_manage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_info_yijian_manage.Hide;
  frm_info_yijian_manage.ManualFloat(frm_info_yijian_manage.BoundsRect );
  frm_main.freeTabs('frm_info_yijian_manage');
  action:=cafree;
  frm_info_yijian_manage:=nil;
end;

procedure Tfrm_info_yijian_manage.bsSkinGroupBox1Resize(Sender: TObject);
begin
  bsSkinButton5.Left:=frm_info_yijian_manage.Width-bsSkinButton5.Width-2;
  bsSkinButton1.Left:=frm_info_yijian_manage.Width-bsSkinButton5.Width*2-6;
end;

procedure Tfrm_info_yijian_manage.bsSkinButton1Click(Sender: TObject);
begin
  table_delete(t_info_yijian);
end;

end.