dccxunt.pas

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

unit dccxunt;

interface

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

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

var
  dccxfrm: Tdccxfrm;

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

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

end;

procedure Tdccxfrm.BitBtn2Click(Sender: TObject);
begin
    with dataman.dcQuery do
     begin
       close;
       sql.Clear;
       sql.Add('select 货物条形码,单价,数量,金额 from moveout where 出货单据号 like '''+edit1.text+'''');
       open;
     end;
end;

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

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

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

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

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

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

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

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

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

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

procedure Tdccxfrm.BitBtn4Click(Sender: TObject);
var
fd:textfile;
dcfile,dc,shpname:string;
begin
    try
       dcfile:=ExtractFilePath(Application.ExeName)+'moveout.txt';
       AssignFile(fd,dcfile);
       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));
       dc:=stringOfChar(' ',(32-Length('牧羊人服饰'+formatdatetime('yyyy"年"mm"月"dd"日"',date)+'调出清单')) div 2)+'牧羊人服饰'+formatdatetime('yyyy"年"mm"月"dd"日"',date)+'调出清单';
       write(fd,dc+chr(10));
       writeln(fd,'--------------------------------');
             //  12345678901234567890123456789012
       write(fd,'货物条形码     数量 零售价  金额'+chr(10));
       write(fd,'--------------------------------');
       dataman.dcQuery.First;
         while not dataman.dcQuery.Eof do
           begin
            write(fd,(dbgrideh1.DataSource.DataSet.FieldByName('货物条形码').Value):15);
            write(fd,(dbgrideh1.DataSource.DataSet.FieldByName('单价').Value):5);
            write(fd,(dbgrideh1.DataSource.DataSet.FieldByName('数量').Value):4);
            write(fd,(dbgrideh1.DataSource.DataSet.FieldByName('金额').Value):5);
            write(fd,chr(10));
            dataman.dcQuery.Next;
          end;
            Writeln(fd,'              ');
            write(fd,'-------------------------------');
            Writeln(fd,'              ');
            Writeln(fd,'              ');
            Writeln(fd,'              ');
            Writeln(fd,'              ');
            Writeln(fd,'              ');
            Writeln(fd,'              ');
            CloseFile(fd);
            PrintFile(dcfile);
    except
     abort;
    end;
end;

end.