printxh.pas

产品信息系统!关于产品基础信息的系统!功能强大!

unit printxh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QueryBase, StdCtrls, Buttons, Grids, DBGridEh, ComCtrls,
  ExtCtrls, DB, ADODB, frxClass, frxDBSet, DBCtrls;

type
  Tfrmprintxh = class(TfrmQueryBase)
    Panel1: TPanel;
    cbb1: TComboBox;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    dtp1: TDateTimePicker;
    dtp2: TDateTimePicker;
    DBGridEh1: TDBGridEh;
    btnselect: TBitBtn;
    btnprint: TBitBtn;
    btnclose: TBitBtn;
    qry2: TADOQuery;
    qry1: TADOQuery;
    ds1: TDataSource;
    ds2: TDataSource;
    qry1xh2: TStringField;
    qry1sizes2: TStringField;
    qry1sh2: TStringField;
    qry2xh: TStringField;
    qry2sizes: TStringField;
    frxDBDataset1: TfrxDBDataset;
    frxDBDataset2: TfrxDBDataset;
    frxReport2: TfrxReport;
    frxReport1: TfrxReport;
    qry2sh: TStringField;
    DBMemo1: TDBMemo;
    Splitter1: TSplitter;
    qry1remark: TStringField;
    qry2remark: TMemoField;
    qry1sh_remark: TStringField;
    procedure btnselectClick(Sender: TObject);
    procedure btnprintClick(Sender: TObject);
    procedure btncloseClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmprintxh: Tfrmprintxh;

implementation
uses DataModule,Global ;
{$R *.dfm}

procedure Tfrmprintxh.btnselectClick(Sender: TObject);
begin
  inherited;
  if cbb1.Text='五金' then
  begin
    DBGridEh1.DataSource:=ds1;
    qry1.Close;
{    qry1.SQL.Clear;
    qry1.SQL.Add(' select * from  (select distinct a.xh,replace(a.sizes,''/'','''') sizes,b.fcolor sh from lh_fivemetals.dbo.orderdetail a ,lh_fivemetals.dbo.tcolor b where a.sh_remark=b.fsh and a. plan_amount<>0 and a.SaveDate>=:date1 and a.SaveDate<:date2 ) a  ');
    qry1.SQL.Add(' where ltrim(xh)+rtrim(ltrim(sizes))+rtrim(sh) not in  (select ltrim(xh)+rtrim(ltrim(sizes))+rtrim(plate) from   ');
    qry1.SQL.Add(' ccmodel_remark ) and a.xh not in (select xh from lh_fivemetals.dbo.orderdetail where xh like ''%+%'') order by a.xh '); }
    qry1.Parameters.ParamValues['date1']:=dtp1.DateTime;
    qry1.Parameters.ParamValues['date2']:=dtp2.DateTime;
    qry1.open;
  end;
  if cbb1.Text='合金' then
  begin
    DBGridEh1.DataSource:=ds2;
    qry2.Close;
{    qry2.SQL.Clear;
    qry2.SQL.Add(' select  * from  (select distinct a.xh,replace(a.sizes,''/'','''') sizes,b.fcolor sh from lh_alloy.dbo.orderdetail a ,lh_alloy.dbo.tcolor b where a.sh_remark=b.fsh and a. plan_amount<>0 and a.SaveDate>=:date1 and a.SaveDate<:date2  ) a  ');
    qry2.SQL.Add(' where ltrim(xh)+rtrim(ltrim(sizes))+rtrim(sh) not in  (select ltrim(xh)+rtrim(ltrim(sizes))+rtrim(plate) from   ');
    qry2.SQL.Add(' ccmodel_remark ) and a.xh not in (select xh from lh_alloy.dbo.orderdetail where xh like ''%+%'') order by a.xh ');  }
    qry2.Parameters.ParamValues['date1']:=dtp1.DateTime;
    qry2.Parameters.ParamValues['date2']:=dtp2.DateTime;
    qry2.open;
  end;
end;

procedure Tfrmprintxh.btnprintClick(Sender: TObject);
begin
  inherited;
  if cbb1.Text='五金' then
  frxReport1.ShowReport();
  if cbb1.Text='合金' then
  frxReport2.ShowReport();
end;

procedure Tfrmprintxh.btncloseClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tfrmprintxh.FormDestroy(Sender: TObject);
begin
  inherited;
  frmprintxh:=nil;
end;

procedure Tfrmprintxh.FormCreate(Sender: TObject);
begin
  inherited;
  dtp1.DateTime:=Now-1;
  dtp2.DateTime:=Now;
end;

end.