unitqrycondition.~pas

仓储系统

unit UnitQryCondition;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, _GClass, AbCBitBt, Grids, DBGrids, RXCtrls, ExtCtrls,
  ComCtrls, DB, ADODB;

type
  TfrmQryCondi = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    Panel3: TPanel;
    lab1: TLabel;
    RxLabel1: TRxLabel;
    RxLabel7: TRxLabel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    TabSheet2: TTabSheet;
    Panel4: TPanel;
    Panel6: TPanel;
    Label7: TLabel;
    RxLabel2: TRxLabel;
    RxLabel8: TRxLabel;
    DBGrid2: TDBGrid;
    TabSheet3: TTabSheet;
    Panel7: TPanel;
    Panel9: TPanel;
    lab2: TLabel;
    RxLabel3: TRxLabel;
    RxLabel9: TRxLabel;
    DBGrid3: TDBGrid;
    Panel8: TPanel;
    TabSheet5: TTabSheet;
    Panel13: TPanel;
    Panel15: TPanel;
    Label17: TLabel;
    RxLabel5: TRxLabel;
    RxLabel11: TRxLabel;
    DBGrid5: TDBGrid;
    Panel14: TPanel;
    TabSheet6: TTabSheet;
    Panel16: TPanel;
    Panel18: TPanel;
    Lab6: TLabel;
    RxLabel6: TRxLabel;
    RxLabel12: TRxLabel;
    DBGrid6: TDBGrid;
    Panel17: TPanel;
    Panel5: TPanel;
    Gb_NameCodeType: TGroupBox;
    btnQuery5: TAbColBitBtn;
    btnPrint5: TAbColBitBtn;
    btnExit5: TAbColBitBtn;
    edtBm: TEdit;
    cbbBm: TComboBox;
    cbbMc: TComboBox;
    edtMc: TEdit;
    cbxMc: TCheckBox;
    cbxBm: TCheckBox;
    cbbGg: TComboBox;
    edtGg: TEdit;
    cbxGg: TCheckBox;
    GroupBox7: TGroupBox;
    btnQuery4: TAbColBitBtn;
    btnPrint4: TAbColBitBtn;
    btnExit4: TAbColBitBtn;
    Gb_Price: TGroupBox;
    btnQuery3: TAbColBitBtn;
    btnPrint3: TAbColBitBtn;
    btnExit3: TAbColBitBtn;
    edtHsj_1: TEdit;
    cbbHsj_1: TComboBox;
    gb_2: TGroupBox;
    rbAnd_2: TRadioButton;
    rbOr_2: TRadioButton;
    cbbHsj_2: TComboBox;
    edtHsj_2: TEdit;
    cbGx_2: TCheckBox;
    Gb_Num: TGroupBox;
    btnQuery2: TAbColBitBtn;
    btnPrint2: TAbColBitBtn;
    btnExit2: TAbColBitBtn;
    edtNum_1: TEdit;
    cbbNum_1: TComboBox;
    gb_1: TGroupBox;
    rbAnd_1: TRadioButton;
    rbOr_1: TRadioButton;
    cbbNum_2: TComboBox;
    edtNum_2: TEdit;
    cbGx_1: TCheckBox;
    GroupBox1: TGroupBox;
    btnQuery1: TAbColBitBtn;
    btnPrint1: TAbColBitBtn;
    btnExit1: TAbColBitBtn;
    cbbKw_1: TComboBox;
    rb_1: TRadioButton;
    rb_2: TRadioButton;
    qry_4: TADOQuery;
    ds_4: TDataSource;
    cbbKf_5: TComboBox;
    cbxKf_5: TCheckBox;
    cbxKf_2: TCheckBox;
    cbbKf_2: TComboBox;
    cbbKf_3: TComboBox;
    cbxKf_3: TCheckBox;
    cbbKf_4: TComboBox;
    cbxKf_4: TCheckBox;
    cbbkf_1: TComboBox;
    cbxKf_1: TCheckBox;
    cbxKw_1: TCheckBox;
    qry_1: TADOQuery;
    qry_2: TADOQuery;
    qry_3: TADOQuery;
    qry_5: TADOQuery;
    ds_1: TDataSource;
    ds_2: TDataSource;
    ds_3: TDataSource;
    ds_5: TDataSource;
    TabSheet4: TTabSheet;
    Panel10: TPanel;
    GroupBox4: TGroupBox;
    cbbLb: TComboBox;
    Panel11: TPanel;
    Panel12: TPanel;
    Label2: TLabel;
    Label15: TLabel;
    btnQuery6: TAbColBitBtn;
    AbColBitBtn2: TAbColBitBtn;
    AbColBitBtn3: TAbColBitBtn;
    ds_6: TDataSource;
    cbxKf_6: TCheckBox;
    cbbKf_6: TComboBox;
    RxLabel4: TRxLabel;
    DBGrid4: TDBGrid;
    qry_6: TADOQuery;
    procedure btnQuery4Click(Sender: TObject);
    procedure cbGx_1Click(Sender: TObject);
    procedure cbGx_2Click(Sender: TObject);
    procedure cbxBmClick(Sender: TObject);
    procedure cbxMcClick(Sender: TObject);
    procedure cbxGgClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnQuery3Click(Sender: TObject);
    procedure cbxKf_3Click(Sender: TObject);
    procedure cbxKf_1Click(Sender: TObject);
    procedure cbxKf_2Click(Sender: TObject);
    procedure cbxKf_4Click(Sender: TObject);
    procedure cbxKf_5Click(Sender: TObject);
    procedure cbxKw_1Click(Sender: TObject);
    procedure btnQuery2Click(Sender: TObject);
    procedure btnQuery5Click(Sender: TObject);
    procedure btnQuery6Click(Sender: TObject);
    procedure cbxKf_6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnExit2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    listKf,listKfmc:array of string;
    listLb,listLbmc:array of string;
    function logicconv(str:string):string;
  end;

var
  frmQryCondi: TfrmQryCondi;

implementation

uses UnitDm;

{$R *.dfm}

function TfrmQryCondi.logicconv(str:string):string;
begin
   if str='包涵' then result:='like';
   if str='等于' then result:='=';
   if str='大于' then result:='>';
   if str='小于' then result:='<';
   if str='大于等于' then result:='>=';
   if str='小于等于' then result:='<=';
   if str='不等于' then result:='<>';
end;

procedure TfrmQryCondi.btnQuery4Click(Sender: TObject);
begin
  if cbxKf_4.Checked=true then
  begin
    cbbKf_4.Enabled:=true;
    if cbbKf_4.ItemIndex=-1 then
    begin
      cbbKf_4.SetFocus;
      exit;
    end;
  end else
  begin
    cbbKf_4.Enabled:=false;
  end;
  //
  if rb_1.Checked=true then
  begin
    with qry_4 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from mate_basic where mate_quality=''01'' ');
      open;
    end;
    RxLabel11.Caption:=inttostr(qry_4.RecordCount)+' 条';
  end else
  begin
    with qry_4 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from mate_basic where mate_quality=''02'' ');
      open;
    end;
    RxLabel11.Caption:=inttostr(qry_4.RecordCount)+' 条';
  end;
end;

procedure TfrmQryCondi.cbGx_1Click(Sender: TObject);
begin
  if cbGx_1.Checked=true then
  begin
    gb_1.Enabled:=true;
    cbbNum_2.Enabled:=true;
    edtNum_2.Enabled:=true;
  end else
  begin
    gb_1.Enabled:=false;
    cbbNum_2.Enabled:=false;
    edtNum_2.Enabled:=false;
  end;
end;

procedure TfrmQryCondi.cbGx_2Click(Sender: TObject);
begin
  if cbGx_2.Checked=true then
  begin
    gb_2.Enabled:=true;
    cbbHsj_2.Enabled:=true;
    edtHsj_2.Enabled:=true;
  end else
  begin
    gb_2.Enabled:=false;
    cbbHsj_2.Enabled:=false;
    edtHsj_2.Enabled:=false;
  end;
end;

procedure TfrmQryCondi.cbxBmClick(Sender: TObject);
begin
  if cbxBm.Checked=true then
  begin
    cbbBm.Enabled:=true;
    edtBm.Enabled:=true;
  end else
  begin
    cbbBm.Enabled:=false;
    edtBm.Enabled:=false;
  end;
end;

procedure TfrmQryCondi.cbxMcClick(Sender: TObject);
begin
  if cbxMc.Checked=true then
  begin
    cbbMc.Enabled:=true;
    edtMc.Enabled:=true;
  end else
  begin
    cbbMc.Enabled:=false;
    edtMc.Enabled:=false;
  end;
end;

procedure TfrmQryCondi.cbxGgClick(Sender: TObject);
begin
  if cbxGg.Checked=true then
  begin
    cbbGg.Enabled:=true;
    edtGg.Enabled:=true;
  end else
  begin
    cbbGg.Enabled:=false;
    edtGg.Enabled:=false;
  end;
end;

procedure TfrmQryCondi.FormCreate(Sender: TObject);
var
  i:integer;
begin
  //添加库房代码
  pagecontrol1.ActivePage:=tabsheet1;
  tabsheet1.Visible:=false;

  //
  with dm.qry_Kf do
  begin
    close;
    sql.Clear;
    sql.add('select * from StoreRoom order by Storeroom_zip');
    open;
  end;
  setlength(listKf,dm.qry_Kf.recordcount);
  setlength(listKfmc,dm.qry_Kf.recordcount);
  cbbKf_1.Items.clear;

  cbbkf_1.items.add('全部');
  cbbkf_2.items.add('全部');
  cbbkf_3.items.add('全部');
  cbbkf_4.items.add('全部');
  cbbkf_5.items.add('全部');

  for i:=0 to dm.qry_Kf.recordcount - 1 do
  begin
    listKf[i]:=dm.qry_Kf.fieldbyname('Storeroom_zip').asstring;
    listKfmc[i]:=dm.qry_Kf.fieldbyname('Storeroom_name').asstring;
    cbbKf_1.items.Add(listKf[i]+' '+listKfmc[i]);
    cbbKf_2.items.Add(listKf[i]+' '+listKfmc[i]);
    cbbKf_3.items.Add(listKf[i]+' '+listKfmc[i]);
    cbbKf_4.items.Add(listKf[i]+' '+listKfmc[i]);
    cbbKf_5.items.Add(listKf[i]+' '+listKfmc[i]);
    dm.qry_Kf.next;
  end;
  //添加物料类别代码
  with dm.qry_MateClass do
  begin
    close;
    sql.Clear;
    sql.add('select * from MateClass order by MClass_No');
    open;
  end;
  setlength(listLb,dm.qry_MateClass.recordcount);
  setlength(listLbmc,dm.qry_MateClass.recordcount);
  cbbLb.Items.clear;
  for i:=0 to dm.qry_MateClass.recordcount - 1 do
  begin
    listLb[i]:=dm.qry_MateClass.fieldbyname('MClass_No').asstring;
    listLbmc[i]:=dm.qry_MateClass.fieldbyname('MClass_Name').asstring;
    cbbLb.items.Add(listLb[i]+' '+listLbmc[i]);
    dm.qry_MateClass.next;
  end;


  //添加库位代码,库位代码的添加要在库房代码的基础上添加，首先检查前一个组合框是否存在
{  with dm.qry_Kw do
  begin
    close;
    sql.add('select * from StorePosition order by Storeroom_zip');
    open;
  end;
  setlength(listKw,dm.qry_Kw.recordcount)
  ;
  setlength(listKwmc,dm.qry_Kw.recordcount);
  cbbKw.Items.clear;
  for i:=0 to dm.qry_Kw.recordcount - 1 do
  begin
    listKw[i]:=dm.qry_Kw.fieldbyname('Storeplace_zip').asstring;
    listKwmc[i]:=dm.qry_Kw.fieldbyname('Storeplace_name').asstring;
    cbbKw.items.Add(listKw[i]+' '+listKwmc[i]);
    dm.qry_Kw.next;
  end;       }
end;

procedure TfrmQryCondi.btnQuery3Click(Sender: TObject);
var
  str,strsql:string;
begin
  if cbxKf_3.Checked=true then
  begin
    cbbKf_3.Enabled:=true;
    if cbbKf_3.ItemIndex=-1 then
    begin
      cbbKf_3.SetFocus;
      exit;
    end;
  end else
  begin
    cbbKf_3.Enabled:=false;
  end;
  //
  if cbbHsj_1.ItemIndex=-1 then
  begin
    cbbHsj_1.SetFocus;
    exit;
  end;
  //
  if edtHsj_1.text='' then
  begin
    edtHsj_1.setfocus;
    exit;
  end;
  //
  if cbGx_2.Checked=true then
  begin
    if rbAnd_2.Checked then
       str:='and'
    else