hyqkcx.pas

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

unit hyqkcx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGridEh, StdCtrls, Buttons, ComCtrls;

type
  Thyqkcxfrm = class(TForm)
    GroupBox1: TGroupBox;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Edit2: TEdit;
    BitBtn3: TBitBtn;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1Enter(Sender: TObject);
    procedure DateTimePicker1Exit(Sender: TObject);
    procedure DateTimePicker2Enter(Sender: TObject);
    procedure DateTimePicker2Exit(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hyqkcxfrm: Thyqkcxfrm;

implementation
     uses data;
{$R *.dfm}

procedure Thyqkcxfrm.BitBtn1Click(Sender: TObject);
begin
    with dataman.vipQuery do
     begin
       close;
       sql.Clear;
       sql.Add('select * from hyxfview where 加入时间 between :sdate and :edate');
       parameters.ParamByName('sdate').Value:=datetimepicker1.Date;
       parameters.ParamByName('edate').Value:=datetimepicker2.Date;
       open;
     end;
end;

procedure Thyqkcxfrm.BitBtn2Click(Sender: TObject);
begin
    with dataman.vipQuery do
     begin
       if edit1.Text<>'' then
           begin
               edit2.Text:='';
               close;
               sql.Clear;
               sql.Add('select * from hyxfview where VIP卡号='''+edit1.text+'''');
               open;
           end
       else
        begin
         sql.Clear;
         sql.Add('select * from hyxfview where 会员姓名 like ''%'+edit1.text+'%''');
         open;
        end;
    end;
  edit1.Text:='';
  edit2.Text:='';
end;

procedure Thyqkcxfrm.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
with dbgrideh1 do
  begin
      Canvas.Pen.Mode:=pmmask;
          if gdSelected in State  then
            begin
              Canvas.Brush.Color:=clinfobk;
              Canvas.FillRect(Rect);
              Canvas.Font.Color:=clred;
              Canvas.Font.Style:=[fsBold];
            end;
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

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

procedure Thyqkcxfrm.FormActivate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
dataman.vipQuery.Active:=false;
end;

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

procedure Thyqkcxfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

procedure Thyqkcxfrm.DateTimePicker1Enter(Sender: TObject);
begin
DateTimePicker1.Color:=clSkyBlue;
end;

procedure Thyqkcxfrm.DateTimePicker1Exit(Sender: TObject);
begin
DateTimePicker1.color:=clWindow;
end;

procedure Thyqkcxfrm.DateTimePicker2Enter(Sender: TObject);
begin
DateTimePicker2.Color:=clSkyBlue;
end;

procedure Thyqkcxfrm.DateTimePicker2Exit(Sender: TObject);
begin
DateTimePicker2.color:=clWindow;
end;

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

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

procedure Thyqkcxfrm.Edit2Enter(Sender: TObject);
begin
   Edit2.Color:=clSkyBlue;
end;

procedure Thyqkcxfrm.Edit2Exit(Sender: TObject);
begin
Edit2.color:=clWindow;
end;

end.