p_xzsp.pas

超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统

unit P_xzsp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Buttons, SUIButton, SUIEdit, ComCtrls;

type
  Tf_xzsp = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    spxh: TsuiCheckBox;
    szmd: TsuiCheckBox;
    c: TsuiCheckBox;
    hcl: TsuiCheckBox;
    ysx: TsuiCheckBox;
    rkrq: TsuiCheckBox;
    espxh: TsuiEdit;
    ec: TsuiEdit;
    ehcl: TsuiEdit;
    eysx: TsuiEdit;
    eszmd: TsuiEdit;
    BitBtn2: TBitBtn;
    dt1: TDateTimePicker;
    dt2: TDateTimePicker;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure rkrqClick(Sender: TObject);
    procedure szmdClick(Sender: TObject);
    procedure spxhClick(Sender: TObject);
    procedure hclClick(Sender: TObject);
    procedure cClick(Sender: TObject);
    procedure ysxClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_xzsp: Tf_xzsp;

implementation

uses p_dm,p_gl;

{$R *.dfm}

procedure Tf_xzsp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tf_xzsp.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure Tf_xzsp.DBGrid1DblClick(Sender: TObject);
begin
  close;
end;

procedure Tf_xzsp.FormCreate(Sender: TObject);
begin
  with dm do
  begin
    dt1.Date:=now;
    dt2.Date:=now;
    query.SQL.Clear;
    query.SQL.Add('select * from kc_info,sp_info,spxh_info');
    query.SQL.Add('where kc_info.sph=sp_info.sph and spxh_info.xhh=sp_info.xhh and kc_info.sl>0');
    query.open;
  end;
end;

procedure Tf_xzsp.rkrqClick(Sender: TObject);
begin
  if rkrq.Checked then
  begin
    dt1.Enabled:=true;
    dt2.Enabled:=true;
  end else
  begin
    dt1.Enabled:=false;
    dt2.Enabled:=false;
  end;
end;

procedure Tf_xzsp.szmdClick(Sender: TObject);
begin
  if szmd.Checked then eszmd.Enabled:=true
  else eszmd.Enabled:=false;
end;

procedure Tf_xzsp.spxhClick(Sender: TObject);
begin
  if spxh.Checked then espxh.Enabled:=true
  else espxh.Enabled:=false;
end;

procedure Tf_xzsp.hclClick(Sender: TObject);
begin
  if hcl.Checked then ehcl.Enabled:=true
  else ehcl.Enabled:=false;
end;

procedure Tf_xzsp.cClick(Sender: TObject);
begin
  if c.Checked then ec.Enabled:=true
  else ec.Enabled:=false;
end;

procedure Tf_xzsp.ysxClick(Sender: TObject);
begin
  if ysx.Checked then eysx.Enabled:=true
  else eysx.Enabled:=false;
end;

procedure Tf_xzsp.BitBtn2Click(Sender: TObject);
begin
  with dm do
  begin
    query.SQL.Clear;
    query.SQL.Add('select * from kc_info,sp_info,spxh_info where kc_info.sph=sp_info.sph and spxh_info.xhh=sp_info.xhh and kc_info.sl>0');
    if rkrq.Checked then
    begin
       query.SQL.Add('and rkrq>=:dt1 and rkrq<=:dt2');
       query.Parameters.ParamValues['dt1']:=formatdatetime('yyyy.mm.dd',dt1.Date);
       query.Parameters.ParamValues['dt2']:=formatdatetime('yyyy.mm.dd',dt2.Date);
    end;
    if spxh.Checked then
    begin
      query.SQL.Add('and xhm like :xhm');
      query.Parameters.ParamValues['xhm']:=trim(espxh.text)+'%';
    end;
    if c.Checked then
    begin
      query.SQL.Add('and c=:c');
      if trim(ec.Text)='' then ec.Text:='0';
      query.Parameters.ParamValues['c']:=trim(ec.text);
    end;
    if hcl.Checked then
    begin
      query.SQL.Add('and hcl=:hcl');
      if trim(ehcl.Text)='' then ehcl.Text:='0';
      query.Parameters.ParamValues['hcl']:=trim(ehcl.text);
    end;
    if szmd.Checked then
    begin
      query.SQL.Add('and szmd like :szmd');
      query.Parameters.ParamValues['szmd']:=trim(eszmd.text)+'%';
    end;
    if ysx.Checked then
    begin
      query.SQL.Add('and ysx like :ysx');
      query.Parameters.ParamValues['ysx']:=trim(eysx.text)+'%';
    end;
    query.Open;
  end; //with .. end
end;

end.