unitqrycondition.pas

仓储系统

   { if cboxkf2.text='全部' then
        strsql:='select a.材料编号,b.材料名称,e.库房名称,f.库位名称,a.单价,'+
                'a.库存数量,a.库存金额 from 材料库存表 a left outer join 材料档案表 b '+
                'on (a.材料编号=b.材料编号) left outer join 库房代码表 e on '+
                '(a.库房代码=e.库房代码) left outer join 库位代码表 f on '+
                '(a.库房代码+a.库位代码=f.库房代码+f.库位代码) '+
                ' where (a.单价'+
                  logicconv(cbox1.items[cbox1.itemindex])+edit1.text+') '+
                  str+' (a.单价'+logicconv(cbox2.items[cbox2.itemindex])+
                  edit2.text+') order by a.材料编号'
    else
    strsql:='select a.材料编号,b.材料名称,e.库房名称,f.库位名称,a.单价,'+
    'a.库存数量,a.库存金额 from 材料库存表 a left outer join 材料档案表 b '+
    'on (a.材料编号=b.材料编号) left outer join 库房代码表 e on '+
    '(a.库房代码=e.库房代码) left outer join 库位代码表 f on '+
    '(a.库房代码+a.库位代码=f.库房代码+f.库位代码) '+
     ' where (a.库房代码='''+listkf2[cboxkf2.itemindex-1]+''') and (a.单价'+
     logicconv(cbox1.items[cbox1.itemindex])+edit1.text+') '+
      str+' (a.单价'+logicconv(cbox2.items[cbox2.itemindex])+
      edit2.text+') order by a.材料编号';       }
      strsql:='select * from mate_basic          '+
         ' where (Mate_Price'+logicconv(cbbHsj_1.items[cbbHsj_1.itemindex])+edtHsj_1.text+')  '+
          str+' (Mate_Price'+logicconv(cbbHsj_2.items[cbbHsj_2.itemindex])+
          edtHsj_2.text+') order by mate_code ';

    with qry_3 do
    begin
      //查询选择了下面的数量关系后的数据库
      close;
      sql.Clear;
      sql.Add(strsql);
      open;
    end;
    RxLabel9.Caption:=inttostr(qry_3.RecordCount)+' 条';
  end else
  begin
   { if cbbKf_3.text='全部' then
       strsql:='select * from mate_basic where mate_price'+
                logicconv(cbbHsj_1.items[cbbHsj_1.itemindex])+edtHsj_1.text+') order by mate_code'
    else
       strsql:='select a.材料编号,b.材料名称,e.库房名称,f.库位名称,a.单价,'+
               'a.库存数量,a.库存金额 from 材料库存表 a left outer join 材料档案表 b '+
               'on (a.材料编号=b.材料编号) left outer join 库房代码表 e on '+
               '(a.库房代码=e.库房代码) left outer join 库位代码表 f on '+
               '(a.库房代码+a.库位代码=f.库房代码+f.库位代码) '+
               ' where (a.库房代码='''+listkf2[cboxkf2.itemindex-1]+''') and (a.单价'+
               logicconv(cbox1.items[cbox1.itemindex])+edit1.text+') order by a.材料编号';
    end;   }
   // strsql:=' select * from mate_basic    '+
   //         ' where mate_price logicconv(cbbHsj_1.items[cbbHsj_1.itemindex])+edtHsj_1.text+   '+
   //         ' order by mate_code ';
   strsql:='select * from mate_basic   '+                  //有问题
         ' where (Mate_Price'+logicconv(cbbHsj_1.items[cbbHsj_1.itemindex])+edtHsj_1.text+') order by mate_code ';

    with qry_3 do
    begin
      close;
      sql.clear;
      sql.add(strsql);
      open;
    end;
    RxLabel9.Caption:=inttostr(qry_3.RecordCount)+' 条';
  end;
end;

procedure TfrmQryCondi.cbxKf_3Click(Sender: TObject);
begin
  if cbxKf_3.Checked=true then
  begin
    cbbKf_3.Enabled:=true;
  end else
  begin
    cbbKf_3.Enabled:=false;
  end;
end;

procedure TfrmQryCondi.cbxKf_1Click(Sender: TObject);
begin
  if cbxKf_1.Checked=true then
  begin
    cbbKf_1.Enabled:=true;
  end else
  begin
    cbbKf_1.Enabled:=false;
  end;
end;

procedure TfrmQryCondi.cbxKf_2Click(Sender: TObject);
begin
  if cbxKf_2.Checked=true then
  begin
    cbbKf_2.Enabled:=true;
  end else
  begin
    cbbKf_2.Enabled:=false;
  end;
end;

procedure TfrmQryCondi.cbxKf_4Click(Sender: TObject);
begin
  if cbxKf_4.Checked=true then
  begin
    cbbKf_4.Enabled:=true;
  end else
  begin
    cbbKf_4.Enabled:=false;
  end;
end;

procedure TfrmQryCondi.cbxKf_5Click(Sender: TObject);
begin
  if cbxKf_5.Checked=true then
  begin
    cbbKf_5.Enabled:=true;
  end else
  begin
    cbbKf_5.Enabled:=false;
  end;
end;

procedure TfrmQryCondi.cbxKw_1Click(Sender: TObject);
begin
  if cbxKw_1.Checked=true then
  begin
    cbbKw_1.Enabled:=true;
  end else
  begin
    cbbKw_1.Enabled:=false;
  end;
end;

procedure TfrmQryCondi.btnQuery2Click(Sender: TObject);
var
  str,strsql:string;
begin
  if cbxKf_2.Checked=true then
  begin
    cbbKf_2.Enabled:=true;
    if cbbKf_2.ItemIndex=-1 then
    begin
      cbbKf_2.SetFocus;
      exit;
    end;
  end else
  begin
    cbbKf_2.Enabled:=false;
  end;
  //
  if cbbNum_1.ItemIndex=-1 then    //数量关系要输入条件
  begin
    cbbNum_1.SetFocus;
    exit;
  end;
  if edtNum_1.text='' then
  begin
    edtNum_1.setfocus;
    exit;
  end;
  //
  if cbGx_1.Checked=true then    //选择了关系后的查询数据集
  begin
    if rbAnd_1.Checked then
    begin
       str:='and';
    end else
    begin
       str:='or';
    end;
    //
    if cbbNum_2.ItemIndex=-1 then
    begin
      cbbNum_2.SetFocus;
      exit;
    end;
    if edtNum_2.text='' then
    begin
      edtNum_2.setfocus;
      exit;
    end;
    //
    strsql:='select * from mate_basic          '+
         ' where (Stoc_Amount'+logicconv(cbbNum_1.items[cbbNum_1.itemindex])+edtNum_1.text+')  '+
          str+' (Stoc_Amount'+logicconv(cbbNum_2.items[cbbNum_2.itemindex])+
          edtNum_2.text+') order by mate_code ';

    with qry_2 do
    begin
      //查询选择了下面的数量关系后的数据库
      close;
      sql.Clear;
      sql.Add(strsql);
      open;
    end;
    RxLabel8.Caption:=inttostr(qry_2.RecordCount)+' 条';

  end else
  begin
    strsql:='select * from mate_basic          '+
         ' where (Stoc_Amount'+logicconv(cbbNum_1.items[cbbNum_1.itemindex])+edtNum_1.text+') order by mate_code ';

    with qry_2 do
    begin
      //查询选择了下面的数量关系后的数据库
      close;
      sql.Clear;
      sql.Add(strsql);
      open;
    end;
    RxLabel8.Caption:=inttostr(qry_2.RecordCount)+' 条';
  end;
end;

procedure TfrmQryCondi.btnQuery5Click(Sender: TObject);
var
  str,strsql:string;
begin
  if cbxKf_5.Checked=true then
  begin
    cbbKf_5.Enabled:=true;
    if cbbKf_5.ItemIndex=-1 then
    begin
      cbbKf_5.SetFocus;
      exit;
    end;
  end else
  begin
    cbbKf_5.Enabled:=false;
  end;
  //选择物料编码核对框
  if cbxBm.Checked=true  then
  begin
    if cbbBm.ItemIndex=-1 then    //核算价关系要输入条件
    begin
      cbbBm.SetFocus;
      exit;
    end;
    if edtBm.text='' then
    begin
      edtBm.setfocus;
      exit;
    end;
    //
    strsql:='select * from mate_basic            '+
         ' where (Mate_code='''+edtBm.text+''')  ';
    with qry_5 do
    begin
      close;
      sql.Clear;
      sql.Add(strsql);
      open;
    end;
    RxLabel12.Caption:=inttostr(qry_5.RecordCount)+' 条';
  end;
  //选择物料名称核对框
  if cbxMc.Checked=true  then
  begin
    if cbbMc.ItemIndex=-1 then
    begin
      cbbMc.SetFocus;
      exit;
    end;
    if edtMc.text='' then
    begin
      edtMc.setfocus;
      exit;
    end;
    //
    str:='select * from mate_basic        '+
         ' where (Mate_name='''+edtMc.text+''')  ';
    with qry_5 do
    begin
      close;
      sql.Clear;
      sql.Add(strsql);
      open;
    end;
    RxLabel12.Caption:=inttostr(qry_5.RecordCount)+' 条';
  end;
  //选择规格型号核对框
  if cbxGg.Checked=true  then
  begin
    if cbbGg.ItemIndex=-1 then
    begin
      cbbGg.SetFocus;
      exit;
    end;
    if edtGg.text='' then
    begin
      edtGg.setfocus;
      exit;
    end;
    //
    str:='select * from mate_basic           '+
         'where (Mate_Type='''+edtGg.text+''')  ';
    with qry_5 do
    begin
      close;
      sql.Clear;
      sql.Add(strsql);
      open;
    end;
    RxLabel12.Caption:=inttostr(qry_5.RecordCount)+' 条';
  end;
  //下面的代码是想将多条件查询集成起来，可省去上面的代码
  //选择任一对话框时的组合条件
{  Sqlselect:='select * from mate_basic';
  sqlwhere:='where ';
  //Sqlwhere:='where (kfno='''+listkf[cbbKf_4.itemindex-1]+''') and ';       //初始化
  Sqlwhere:='(kfno='''+listkf[cbbKf_4.itemindex-1]+''') ';       //初始化
  //Sqlgroup:='Order by mate_code';

  if cbBm.Checked=true then
  begin
    Sqlwhere:=sqlwhere+'(mate_code='''+edtBm.text+''') and ';
  end;
{  if cbMc.Checked=true then
  begin
    Sqlwhere:=sqlwhere+'(mate_name='''+edtMc.text+''') and ';
  end;  }
{  if cbGg.Checked=true then
  begin
    Sqlwhere:=sqlwhere+'(mate_type='''+edtGg.text+''') and ';
  end;     }
  //
{  if copy(sqlwhere,length(sqlwhere)-3,3)='and' then
  begin
    sqlwhere:=copy(sqlwhere,1,length(sqlwhere)-4);
  end;  }
//判断sqlwhere语句的最后5个字符是否为where,是就将它裁掉
{  if copy(sqlwhere,length(sqlwhere)-5,5)='where' then
  begin
    sqlwhere:=copy(sqlwhere,1,length(sqlwhere)-6);
  end;   }
  //执行查询
{  with qry_mb_5 do
  begin
    Close;
    SQL.Clear;
    //SQL.Add(sqlselect+sqlwhere);
    SQL.Add(sqlselect+Sqlwhere);
    open;
  end;         }
end;

procedure TfrmQryCondi.cbxKf_6Click(Sender: TObject);
begin
  if cbxKf_6.Checked=true then
  begin
    cbbKf_6.Enabled:=true;
  end else
  begin
    cbbKf_6.Enabled:=false;
  end;
end;

procedure TfrmQryCondi.btnQuery6Click(Sender: TObject);
var
  str,strsql:string;
begin
  if cbxKf_6.Checked=true then
  begin
    cbbKf_6.Enabled:=true;
    if cbbKf_6.ItemIndex=-1 then
    begin
      cbbKf_6.SetFocus;
      exit;
    end;
  end else
  begin
    cbbKf_6.Enabled:=false;
  end;
  //
  if cbbLb.text='' then
  begin

  end else
  begin
    strsql:='select * from mate_Basic where (mate_class='''+listLb[cbbLb.itemindex]+''')';

    with qry_6 do
    begin
      close;
      sql.Clear;
      sql.Add(strsql);
      open;
    end;
    RxLabel4.Caption:=inttostr(qry_6.RecordCount)+' 条';
  end;
end;

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

procedure TfrmQryCondi.btnExit2Click(Sender: TObject);
begin
  close;
end;

end.