queryckjhunit.pas

一个用delphi 开发的商场销售系统 涵盖很多功能

unit QueryckjhUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QueryBassUnit, DB, DBTables, StdCtrls, ComCtrls, Buttons, Grids,
  DBGrids, ExtCtrls;

type
  TQueryckjhForm = class(TQueryBassForm)
    procedure FormCreate(Sender: TObject);
    procedure SB_queryClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SB_printClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QueryckjhForm: TQueryckjhForm;

implementation

uses FunctionUnit, MainUnit, PrintckjhUnit, PrintBassUnit;

{$R *.dfm}

procedure TQueryckjhForm.FormCreate(Sender: TObject);
begin
  inherited;
  self.Caption := '仓库进货统计';
  with query_temp do
  begin
    close;
    sql.Clear;
    sql.Text := 'select name from depot where type="内部"';
    open;
    CB_depot.Items.Clear;
    CB_depot.Style := csDropDownList;
    while not eof do
    begin
      CB_depot.Items.add(fieldbyname('name').asstring);
      next;
    end;
    close;
  end;

end;

procedure TQueryckjhForm.SB_queryClick(Sender: TObject);
begin
  inherited;
  if not Checkrights(USERRIGHTS, '查看') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  with query_data do
  begin
    close;
    sql.Clear;
    sql.Text := ' SELECT Depot.NAME Depotname,Stockrecord.MYDATE,goods.NAME goodsname,'
      + ' goods.TYPE, goods.UNIT, (Stockrecord.NUMBER) NUMBER,(Stockrecord.PRICE) JHDJ,'
      + ' ( Stockrecord.NUMBER * Stockrecord.PRICE  ) PRICE,Stockrecord.MEMO'
      + ' FROM Stockrecord'
      + ' INNER JOIN Depot ON  (Stockrecord.DEPOTID = Depot.ID)'
      + ' INNER JOIN goods'
      + ' ON  (Stockrecord.GOODSID = goods.ID)'
      + ' WHERE (DEPOT.type="内部")'
      + ' AND (Stockrecord.mydate>="' + formatdatetime('yyyy-mm-dd', DTP_begin.DateTime) + '")'
      + ' AND (Stockrecord.mydate<="' + formatdatetime('yyyy-mm-dd', dtp_end.DateTime) + '")'
      + ' UNION ALL'
      + ' SELECT Depot.NAME Depotname,Threcord.MYDATE,goods.NAME goodsname,'
      + ' goods.TYPE, goods.UNIT, (0-Threcord.NUMBER) NUMBER,(Threcord.PRICE) JHDJ,'
      + ' ( (0 - Threcord.NUMBER) * Threcord.PRICE  ) PRICE,Threcord.MEMO'
      + ' FROM Threcord'
      + ' INNER JOIN Depot ON  (Threcord.DEPOTID = Depot.ID)'
      + ' INNER JOIN goods'
      + ' ON  (Threcord.GOODSID = goods.ID)'
      + ' WHERE (DEPOT.type="内部")'
      + ' AND (Threcord.mydate>="' + formatdatetime('yyyy-mm-dd', DTP_begin.DateTime) + '")'
      + ' AND (Threcord.mydate<="' + formatdatetime('yyyy-mm-dd', dtp_end.DateTime) + '")'
      + ' ORDER BY Depot.NAME,MYDATE';
    try
      open;
    except
      messagedlg(Errormsg0001 + '0010+0012+0020+0025', mtError, [mbok], 0);
      close;
    end;
  end;
end;

procedure TQueryckjhForm.FormShow(Sender: TObject);
begin
  inherited;
  SB_query.Click;
end;

procedure TQueryckjhForm.SB_printClick(Sender: TObject);
begin
  inherited;
  try
    Application.CreateForm(TPrintckjhForm, PrintckjhForm);
    Application.CreateForm(TprintBassForm, printBassForm);
  except
    messagedlg(Errormsg0011, mtError, [mbok], 0);
    exit;
  end;
  PrintckjhForm.QuickRep_ckjhmx.preview;
  PrintckjhForm.Free;
  printBassForm.Free;
end;

end.