lyunt.pas

商品销售系统完全的功能SQL和JAVA

unit lyunt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  Tdyyjxfrm = class(TForm)
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dyyjxfrm: Tdyyjxfrm;

implementation
       uses data;
{$R *.dfm}

procedure Tdyyjxfrm.BitBtn3Click(Sender: TObject);
begin
  if memo1.Lines[0]='' then
   begin
     Messagedlg('是否不留言?',mtconfirmation,[mbOK],0);
     close;
   end
else
close;
end;

procedure Tdyyjxfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
dyyjxfrm:=nil;
dyyjxfrm.Free;
end;

procedure Tdyyjxfrm.BitBtn2Click(Sender: TObject);
begin
memo1.Lines.Clear;
end;

procedure Tdyyjxfrm.BitBtn1Click(Sender: TObject);
begin
 try
    with  dataman.vipQuery do
     begin
      close;
      sql.Clear;
      sql.Add('insert into ly values(:ldate,:lmenb,:lcon)');
      parameters.ParamByName('ldate').Value:=now();
      parameters.ParamByName('lmenb').Value:=trim(edit1.Text);
      parameters.ParamByName('lcon').Value:=memo1.Text;
      execsql;
     end;
     showmessage('留言成功！');
 except
   begin
   abort;
   showmessage('留言失败！请重新再来！');
   end;
 end;
end;

procedure Tdyyjxfrm.FormActivate(Sender: TObject);
begin
edit1.Text:='';
memo1.Lines.Clear;
memo1.SetFocus;
end;

procedure Tdyyjxfrm.Edit1Enter(Sender: TObject);
begin
Edit1.Color:=clSkyBlue;
end;

procedure Tdyyjxfrm.Edit1Exit(Sender: TObject);
begin
Edit1.color:=clWindow;
end;

end.