spxsphbunt.pas

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

unit spxsphbunt;

interface

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

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

var
  xsphbfrm: Txsphbfrm;

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

procedure Txsphbfrm.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 Txsphbfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
xsphbfrm:=nil;
xsphbfrm.Free;
end;

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

procedure Txsphbfrm.BitBtn2Click(Sender: TObject);
begin
 if combobox1.text='' then exit;
  with dataman.vipQuery do
   begin
    close;
    sql.Clear;
    sql.Add('select top '+trim(edit5.Text)+'货物条形码,sum(数量) as 销售数量,sum(总额) as 销售总额 from sell');
    sql.Add('where substring(销售编号,4,6) between :sdate and :edate group by 货物条形码');
    if combobox1.Text='金额从大到小'  then
     sql.Add('order by 销售总额 DESC')
    else
     sql.Add('order by 销售总额 ASC');
    parameters.ParamByName('sdate').Value:=formatdatetime('yymmdd',datetimepicker1.date);
    parameters.ParamByName('edate').Value:=formatdatetime('yymmdd',datetimepicker2.date);
    open;
   end;
end;

procedure Txsphbfrm.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,'货物条形码     销售数量 销售总额'+chr(10));
         write(fd,'--------------------------------');
         dataman.vipQuery.First;
         while not dataman.vipQuery.Eof do
           begin
            write(fd,dbgrideh1.DataSource.DataSet.FieldByName('货物条形码').Value:15);
            write(fd,inttostr(dbgrideh1.DataSource.DataSet.FieldByName('销售数量').Value):8);
            write(fd,floattostr(dbgrideh1.DataSource.DataSet.FieldByName('销售总额').Value):9);
            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 Txsphbfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

procedure Txsphbfrm.FormActivate(Sender: TObject);
begin
dataman.vipQuery.Active:=false;
end;

procedure Txsphbfrm.DateTimePicker1Exit(Sender: TObject);
begin
DateTimePicker1.Color:=clWindow;
end;

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

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

procedure Txsphbfrm.DateTimePicker2Exit(Sender: TObject);
begin
DateTimePicker2.Color:=clWindow;
end;

procedure Txsphbfrm.ComboBox1Exit(Sender: TObject);
begin
ComboBox1.Color:=clWindow;
end;

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

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

procedure Txsphbfrm.Edit5Exit(Sender: TObject);
begin
Edit5.Color:=clWindow;
end;

end.