hyxfphunt.pas

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

unit hyxfphunt;

interface

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

type
  Thyxfphfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    BitBtn2: TBitBtn;
    Label5: TLabel;
    ComboBox1: TComboBox;
    Label6: TLabel;
    Edit5: TEdit;
    UpDown1: TUpDown;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Edit3Enter(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit4Enter(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
    procedure ComboBox1Enter(Sender: TObject);
    procedure ComboBox1Exit(Sender: TObject);
    procedure Edit5Enter(Sender: TObject);
    procedure Edit5Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hyxfphfrm: Thyxfphfrm;

implementation
      uses data,maind;
{$R *.dfm}

procedure Thyxfphfrm.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 Thyxfphfrm.BitBtn2Click(Sender: TObject);
begin
 if (edit3.Text='') or (edit4.Text='') or (combobox1.Text='') then exit;
 if strtofloat(edit3.Text)>strtofloat(edit4.Text) then
   begin
    messagedlg('对不起!消费额查询的两边输错了！',mtconfirmation,[mbok],0);
    exit;
   end;
  with dataman.vipQuery do
   begin
    close;
    sql.Clear;
    sql.Add('select top '+trim(edit5.Text)+' VIP卡号,会员姓名,打折比例,会员消费总金额,最近交易日,最近交易额 from hyxfview');
    sql.Add('where 会员消费总金额 between :sno and :eno');
    if combobox1.Text='金额从大到小' then
    sql.Add('order by  会员消费总金额 DESC')
    else
    sql.Add('order by  会员消费总金额 ASC');
    parameters.ParamByName('sno').Value:=strtofloat(trim(edit3.Text));
    parameters.ParamByName('eno').Value:=strtofloat(trim(edit4.Text));
    open;
   end;
end;

procedure Thyxfphfrm.BitBtn4Click(Sender: TObject);
begin
close;
end;

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

procedure Thyxfphfrm.FormActivate(Sender: TObject);
begin
edit3.Text:='';
edit4.Text:='';
edit3.SetFocus;
dataman.vipQuery.Active:=false;
end;

procedure Thyxfphfrm.BitBtn3Click(Sender: TObject);
var
fd:textfile;
hyfile,daysell,shpname:string;
begin
    try
       hyfile:=ExtractFilePath(Application.ExeName)+'hyxfqk.txt';
       AssignFile(fd,hyfile);
       Rewrite(fd);
       write(fd,chr(27)+chr(64));
       shpname:=stringofchar(' ',(32-Length(ini_load_shopname('打印参数','和祥店')))div 2)+ini_load_shopname('打印参数','和祥店');
       write(fd,shpname+chr(10));
       daysell:=stringOfChar(' ',(32-Length('牧羊人服饰会员消费排行榜')) div 2)+'牧羊人服饰会员消费排行榜';
       write(fd,daysell+chr(10));
       writeln(fd,'--------------------------------');
               //  12345678901234567890123456789012
         write(fd,'VIP卡号   姓名 打折比例 消费总额'+chr(10));
         write(fd,'--------------------------------');
         dataman.vipQuery.First;
         while not dataman.vipQuery.Eof do
           begin
            write(fd,dbgrideh1.DataSource.DataSet.FieldByName('VIP卡号').Value:11);
            write(fd,dbgrideh1.DataSource.DataSet.FieldByName('会员姓名').Value:-12);
            write(fd,floattostr(dbgrideh1.DataSource.DataSet.FieldByName('打折比例').Value):-12);
            write(fd,floattostr(dbgrideh1.DataSource.DataSet.FieldByName('会员消费总金额').Value):5);
            write(fd,chr(10));
            dataman.vipQuery.Next;
          end;
            Writeln(fd,'              ');
            write(fd,'-------------------------------');
            Writeln(fd,'              ');
            Writeln(fd,'              ');
            Writeln(fd,'              ');
            Writeln(fd,'              ');
            Writeln(fd,'              ');
            CloseFile(fd);
            PrintFile(hyfile);
    except
     abort;
    end;
end;

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

procedure Thyxfphfrm.Edit3Enter(Sender: TObject);
begin
Edit3.Color:=clSkyBlue;
end;

procedure Thyxfphfrm.Edit3Exit(Sender: TObject);
begin
Edit3.color:=clWindow;
end;

procedure Thyxfphfrm.Edit4Enter(Sender: TObject);
begin
Edit4.Color:=clSkyBlue;
end;

procedure Thyxfphfrm.Edit4Exit(Sender: TObject);
begin
Edit4.color:=clWindow;
end;

procedure Thyxfphfrm.ComboBox1Enter(Sender: TObject);
begin
 ComboBox1.Color:=clSkyBlue;
end;

procedure Thyxfphfrm.ComboBox1Exit(Sender: TObject);
begin
ComboBox1.color:=clWindow;
end;

procedure Thyxfphfrm.Edit5Enter(Sender: TObject);
begin
Edit5.Color:=clSkyBlue;
end;

procedure Thyxfphfrm.Edit5Exit(Sender: TObject);
begin
  Edit5.color:=clWindow
end;

end.