cklyunt.pas

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

unit cklyunt;

interface

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

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

var
  cklyfrm: Tcklyfrm;

implementation
     uses data;
{$R *.dfm}

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

procedure Tcklyfrm.FormActivate(Sender: TObject);
begin
  with  dataman.vipQuery do
    begin
     close;
     sql.Clear;
     sql.Add('select DISTINCT 留言店员 from ly');
     open;
    end;
   combobox1.Clear;
   dataman.vipQuery.First;
   while not dataman.vipQuery.Eof do
     begin
       combobox1.Items.add(dataman.vipQuery.fieldbyname('留言店员').asstring);
       dataman.vipQuery.Next;
     end;
end;

procedure Tcklyfrm.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tcklyfrm.BitBtn2Click(Sender: TObject);
begin
if application.MessageBox('是否要删除留言?','关闭 确认',mb_YesNo + mb_IconWarning)=Id_Yes then
begin
  try
   with dataman.vipQuery do
    begin
     close;
     sql.Clear;
     sql.Add('delete ly  ');
     sql.Add('where 留言店员='''+combobox1.text+'''');
     execsql;
    end;
   except
    abort;
   end;
  close;
end;
end;

procedure Tcklyfrm.BitBtn1Click(Sender: TObject);
begin
  with dataman.vipQuery do
   begin
    close;
    sql.Clear;
    sql.Add('select 留言时间,留言内容 from ly where 留言店员='''+combobox1.text+'''');
    open;
   end;
 memo1.Clear;
 dataman.vipQuery.First;
 while not dataman.vipQuery.Eof do
  begin
   memo1.Lines.Add(dataman.vipQuery.fieldbyname('留言时间').AsString);
   memo1.Lines.Add(dataman.vipQuery.fieldbyname('留言内容').AsString);
   dataman.vipQuery.Next;
  end;
end;

end.