unit u_info_yijian;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, ExtCtrls, StdCtrls, DB, ADODB;

type
  Tfrm_info_yijian = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton5: TbsSkinButton;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Memo1: TMemo;
    bsSkinButton1: TbsSkinButton;
    Label1: TLabel;
    t_info_yijian: TADOQuery;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_info_yijian: Tfrm_info_yijian;

implementation

uses u_main;

{$R *.dfm}

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

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

procedure Tfrm_info_yijian.bsSkinButton1Click(Sender: TObject);
begin
  if trim(Memo1.text)=''then
    exit;
  t_info_yijian.insert;
  t_info_yijian['意见内容']:=trim(Memo1.text);
  t_info_yijian['反馈日期']:=now;
  t_info_yijian.post;
  showmessage('意见反馈成功！！');
  Memo1.text:='';
end;

end.