ckdyjlunt.pas

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

unit ckdyjlunt;

interface

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

type
  Tckdyjlfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(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 Edit1Exit(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ckdyjlfrm: Tckdyjlfrm;

implementation
     uses data;
{$R *.dfm}

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

procedure Tckdyjlfrm.FormActivate(Sender: TObject);
begin
edit1.Text:='';
dataman.vipQuery.Active:=false;
//postmessage(DateTimePicker1.handle,wm_keydown,VK_RIGHT,0);
//datetimepicker1.SetFocus
end;

procedure Tckdyjlfrm.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 Tckdyjlfrm.BitBtn1Click(Sender: TObject);
begin
  with  dataman.vipQuery do
   begin
    close;
    sql.Clear;
    sql.Add('select * from menlog where 上班日期 between :sdate and :edate');
    parameters.ParamByName('sdate').Value:=formatdatetime('yyyy年mm月dd日',datetimepicker1.Date);
    parameters.ParamByName('edate').Value:=formatdatetime('yyyy年mm月dd日',datetimepicker2.Date);
    open;
   end;
end;

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

procedure Tckdyjlfrm.BitBtn2Click(Sender: TObject);
begin
  with dataman.vipQuery do
   begin
    close;
    sql.Clear;
    sql.Add('select * from menlog where 员工编号='''+edit1.text+'''');
    open;
   end;
end;

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

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

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

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

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

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

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

end.