thcxunt.pas

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

unit thcxunt;

interface

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

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

var
  thcxfrm: Tthcxfrm;

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

procedure Tthcxfrm.BitBtn1Click(Sender: TObject);
begin
    with dataman.dbxQuery do
     begin
       close;
       sql.Clear;
       sql.Add('select withdraw.货物条形码,单价,数量,金额 from withdraw,withdrawm where withdraw.退货单据号=withdrawm.退货单据号  and 退货时间 between :sdate and :edate');
       parameters.ParamByName('sdate').Value:=datetimepicker1.Date;
       parameters.ParamByName('edate').Value:=datetimepicker2.Date;
       open;
     end;
end;

procedure Tthcxfrm.FormActivate(Sender: TObject);
begin
edit1.Text:='';
dataman.dbxQuery.Active:=false;
end;

procedure Tthcxfrm.BitBtn2Click(Sender: TObject);
begin

  if trim(edit1.Text)='' then exit;
    with dataman.dbxQuery do
     begin
       close;
       sql.Clear;
       sql.Add('select 货物条形码,单价,数量,金额 from withdraw where 退货单据号='''+edit1.text+'''');
       open;
     end;
     if dataman.dbxQuery.IsEmpty then
       showmessage(trim(edit1.Text)+'这个单据没有找到！');
end;

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

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

procedure Tthcxfrm.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 Tthcxfrm.BitBtn3Click(Sender: TObject);
var
thfile:textfile;
thtext,th,shpname:string;
begin
    try
       thtext:=ExtractFilePath(Application.ExeName)+'thcx.txt';
       AssignFile(thfile,thtext);
       Rewrite(thfile);
       write(thfile,chr(27)+chr(64));
       shpname:=stringofchar(' ',(32-Length(ini_load_shopname('打印参数','和祥店')))div 2)+ini_load_shopname('打印参数','和祥店');
       write(thfile,shpname+chr(10));
       Write(thfile,'退货时间：'+formatdatetime('yyyy"年"mm"月"dd"日"',datetimepicker1.Date)+'至'+formatdatetime('yyyy"年"mm"月"dd"日"',datetimepicker2.Date)+chr(10));
       th:=stringOfChar(' ',(32-Length('牧羊人服饰退货汇总')) div 2)+'牧羊人服饰退货汇总';
       write(thfile,th+chr(10));
       writeln(thfile,'--------------------------------');
               //  12345678901234567890123456789012
         write(thfile,'货物条形码 退货数量 货物价格 退货金额'+chr(10));
         write(thfile,'--------------------------------');
         dataman.dbxQuery.First;
         while not dataman.dbxQuery.Eof do
           begin
            write(thfile,(dbgrideh1.DataSource.DataSet.FieldByName('货物条形码').Value):15);
            write(thfile,(dbgrideh1.DataSource.DataSet.FieldByName('单价').Value):5);
            write(thfile,(dbgrideh1.DataSource.DataSet.FieldByName('数量').Value):4);
            write(thfile,(dbgrideh1.DataSource.DataSet.FieldByName('金额').Value):5);
            write(thfile,chr(10));
            dataman.dbxQuery.Next;
          end;
            Writeln(thfile,'              ');
            write(thfile,'-------------------------------');
            Writeln(thfile,'              ');
            Writeln(thfile,'              ');
            Writeln(thfile,'              ');
            Writeln(thfile,'              ');
            Writeln(thfile,'              ');
            CloseFile(thfile);
            PrintFile(thtext);
    except
     abort;
    end;
end;

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

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

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

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

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

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

end.