ustockquery.pas

是分布式粮库程序,是采用Delphi实现的

    else
    edit3.Enabled :=false;
    edit3.Text :='';
end;



procedure Tfstockquery.QueryBitBtnClick(Sender: TObject);
begin
    queryitem:='';
   if (DBLookupComboBox1.Text<>'') and (DBLookupComboBox1.KeyValue<>99999997) then
    QueryItem:=QueryItem+' and ent_instack.unit_id='+inttostr(DBLookupComboBox1.KeyValue);
   if (DBLookupComboBox2.Text<>'') and (DBLookupComboBox2.KeyValue<>99999998) then
    QueryItem:=QueryItem+' and ent_instack.site_id='+inttostr(DBLookupComboBox2.KeyValue);
   if (DBLookupComboBox3.Text<>'') and (DBLookupComboBox3.KeyValue<>99999999) then
    QueryItem:=QueryItem+' and ent_instack.depot_id='+inttostr(DBLookupComboBox3.KeyValue);
   if edit1.Text <> '' then
    QueryItem:=QueryItem+' and ent_fdposition_info.name='''+edit1.Text+'''';

   if CheckBox1.Checked=True then
    QueryItem:=QueryItem+' and in_time between '''+FormatDateTime('YYYY-MM-DD',DateTimePicker1.DateTime)+''' and '''+FormatDateTime('YYYY-MM-DD',DateTimePicker2.DateTime)+'''';
   if CheckBox2.Checked=True then
    QueryItem:=QueryItem+' and reap_year between '+ComboBox3.Text+' and '+ComboBox4.Text;
   if (DBLookupComboBox4.Text<>'') and (DBLookupComboBox4.KeyValue<>'不指定') then
    QueryItem:=QueryItem+' and attribute='''+DBLookupComboBox4.KeyValue+'''';
   if (DBLookupComboBox6.Text<>'') and (DBLookupComboBox6.KeyValue<>'不指定') then
    QueryItem:=QueryItem+' and attachment='''+DBLookupComboBox4.KeyValue+'''';

   if (DBLookupComboBox5.Text<>'') and (DBLookupComboBox5.KeyValue<>'不指定') then
    QueryItem:=QueryItem+' and in_food='''+DBLookupComboBox5.KeyValue+'''';
   if (Edit2.Text<>'') then
       if ((ComboBox1.ItemIndex=3) or (ComboBox1.ItemIndex=0)) then
             QueryItem:=QueryItem+' and storage='+edit2.Text
       else if ComboBox1.ItemIndex=1 then
             QueryItem:=QueryItem+' and storage>'+Edit2.Text
       else
             QueryItem:=QueryItem+' and storage<'+Edit2.Text;

   if (Edit3.Text<>'') then
       if ((ComboBox2.ItemIndex=3) or (ComboBox2.ItemIndex=0)) then
             QueryItem:=QueryItem+' and price='+edit3.Text
       else if ComboBox2.ItemIndex=1 then
             QueryItem:=QueryItem+' and price>'+Edit3.Text
       else
             QueryItem:=QueryItem+' and price<'+Edit3.Text;

   if edit4.Text <> '' then
    QueryItem:=QueryItem+' and prod_area='''+edit4.Text+'''';
//   if (ComboBox5.Text<>'') and (ComboBox5.Text <>'不指定') then
//    QueryItem:=QueryItem+' and fq_class='''+ComboBox5.text+'''';

//   if (Edit5.Text<>'') then
//       if ((ComboBox6.ItemIndex=3) or (ComboBox6.ItemIndex=0)) then
//             QueryItem:=QueryItem+' and FQ_MOISTURE='+edit5.Text
//       else if ComboBox6.ItemIndex=1 then
//             QueryItem:=QueryItem+' and FQ_MOISTURE>'+Edit5.Text
//       else
//             QueryItem:=QueryItem+' and FQ_MOISTURE<'+Edit5.Text;

//   if (Edit7.Text<>'') then
//       if ((ComboBox7.ItemIndex=3) or (ComboBox7.ItemIndex=0)) then
//             QueryItem:=QueryItem+' and FQ_IMPURITY='+edit7.Text
//       else if ComboBox7.ItemIndex=1 then
//             QueryItem:=QueryItem+' and FQ_IMPURITY>'+Edit7.Text
//       else
//             QueryItem:=QueryItem+' and FQ_IMPURITY<'+Edit7.Text;

//   if (Edit6.Text<>'') then
//       if ((ComboBox8.ItemIndex=3) or (ComboBox8.ItemIndex=0)) then
//             QueryItem:=QueryItem+' and FQ_ITEM2='+edit6.Text
//       else if ComboBox8.ItemIndex=1 then
//             QueryItem:=QueryItem+' and FQ_ITEM2>'+Edit6.Text
//       else
//            QueryItem:=QueryItem+' and FQ_ITEM2<'+Edit6.Text;

   StockQuery.SQL.Clear;
   if QueryItem<>'' then
   StockQuery.SQL.Add(s+QueryItem) else
   stockquery.SQL.Add(s);

     try
       StockQuery.Open;
     except
       Application.MessageBox('查询库存时出错!','系统错误',MB_OK+MB_ICONERROR);
       Exit;
     end;
end;

procedure Tfstockquery.EditBitBtnClick(Sender: TObject);
begin
    dblookupcombobox1.KeyValue :=99999997;
    dblookupcombobox2.KeyValue :=99999998;
    dblookupcombobox3.KeyValue :=99999999;
    edit1.Text :='';

    checkbox1.Checked :=false;
    checkbox2.Checked :=false;
    edit4.Text :='';
    dblookupcombobox4.KeyValue :='不指定';
    dblookupcombobox5.KeyValue :='不指定';
    dblookupcombobox6.KeyValue :='不指定';

    combobox1.ItemIndex:=3;
    edit2.Text :='';
    edit2.Enabled :=false;
    combobox2.ItemIndex:=3;
    edit3.Text :='';
    edit3.Enabled :=false;

end;

procedure Tfstockquery.BitBtn1Click(Sender: TObject);
var
  i,j,k:integer;
  PositionTempMax,PositionTempMin,PositionTempAvr,PositionTempTotal,DepotInTempAvr,DepotInTempTotal:double;
begin
  PositionTempMax:=-100;
  PositionTempMin:=100;
  PositionTempAvr:=0;
  PositionTempTotal:=0;
  DepotInTempAvr:=0;
  DepotInTempTotal:=0;
  j:=0;
  k:=0;
  if (StockQuery.FieldByName('foodPosition_id').IsNull)
     or (StockQuery.FieldByName('Depot_id').IsNull)
     or (StockQuery.FieldByName('Site_id').IsNull)
     or (StockQuery.FieldByName('Unit_id').IsNull) then
    begin
      showmessage('您选中的记录为空记录，或货位信息不全！，请重新选择！');
      exit;
    end;

  FrmTempResult:=TFrmTempResult.Create(fstockQuery);

  FrmTempResult.LblUnit.Caption:=IntToStr(StockQuery.FieldByName('Unit_id').AsInteger);
  FrmTempResult.LblSite.Caption:=IntToStr(StockQuery.FieldByName('Site_id').AsInteger);
  FrmTempResult.LblDepot.Caption:=IntToStr(StockQuery.FieldByName('Depot_id').AsInteger);
  FrmTempResult.LblPosition.Caption:=IntToStr(StockQuery.FieldByName('FoodPosition_id').AsInteger);
  
  FrmTempResult.TblTemp.Active:=false;
  FrmTempResult.TblTemp.Filtered:=false;
  FrmTempResult.TblTemp.Filter:='lkid='+intToStr(StockQuery.FieldByName('Unit_id').AsInteger)+
                                ' and kd='+intToStr(StockQuery.FieldByName('Site_id').AsInteger)+
                                ' and cf='+intToStr(StockQuery.FieldByName('Depot_id').AsInteger)+
                                ' and hw='+intToStr(StockQuery.FieldByName('FoodPosition_id').AsInteger);
  FrmTempResult.TblTemp.Filtered:=true;
  FrmTempResult.TblTemp.Active:=true;
  if FrmTempResult.TblTemp.RecordCount<1 then
    begin
      showmessage('没有相应的温湿度信息！');
      exit;
    end;
  FrmTempResult.TblTemp.First;
  for i:=1 to FrmTempResult.TblTemp.RecordCount do
    begin
      if (FrmTempResult.TblTemp.FieldByName('bz').AsInteger=2)then
        begin
          //showmessage('温度传感器：'+intToStr(FrmTempResult.TblTemp.FieldByName('tt').AsInteger)+'不正常！');
          FrmTempResult.TblTemp.Next;
          continue;
        end;
      if (FrmTempResult.TblTemp.FieldByName('bz').AsInteger=4) then
        begin
          //showmessage('室内温度传感器：'+intToStr(FrmTempResult.TblTemp.FieldByName('tt').AsInteger)+'不正常！');
          FrmTempResult.TblTemp.Next;
          continue;
        end;
      if (FrmTempResult.TblTemp.FieldByName('bz').AsInteger=6) then
        begin
         // showmessage('室外温度传感器不正常！');
         // FrmTempResult.LblDepotTempO.Caption:= '';
          FrmTempResult.TblTemp.Next;
          continue;
        end;
      if (FrmTempResult.TblTemp.FieldByName('bz').AsInteger=12) then
         begin
          //showmessage('湿度传感器不正常！');
          //FrmTempResult.LblMoisture.Caption:='';
          FrmTempResult.TblTemp.Next;
          continue;
        end;
      if FrmTempResult.TblTemp.FieldByName('bz').AsInteger=1 then   //货位温度
        begin
        PositionTempTotal:=PositionTempTotal+FrmTempResult.TblTemp.FieldByName('wsd').AsFloat;
        j:=j+1;
        if FrmTempResult.TblTemp.FieldByName('wsd').AsFloat>PositionTempMax then
          PositionTempMax:=FrmTempResult.TblTemp.FieldByName('wsd').AsFloat;
        if FrmTempResult.TblTemp.FieldByName('wsd').AsFloat<PositionTempMin then
          PositionTempMin:=FrmTempResult.TblTemp.FieldByName('wsd').AsFloat;
        end;
      if FrmTempResult.TblTemp.FieldByName('bz').AsInteger=3 then  //仓库室内温度
        begin
        DepotInTempTotal:=DepotInTempTotal+FrmTempResult.TblTemp.FieldByName('wsd').AsFloat;
        k:=k+1;
        end;
      if FrmTempResult.TblTemp.FieldByName('bz').AsInteger=5 then   //仓库室外温度
        FrmTempResult.LblDepotTempO.Caption:=floatToStr(FrmTempResult.TblTemp.FieldByName('wsd').AsFloat);
      if FrmTempResult.TblTemp.FieldByName('bz').AsInteger=11 then   //仓库湿度
        FrmTempResult.LblMoisture.Caption:=floatToStr(FrmTempResult.TblTemp.FieldByName('wsd').AsFloat);
      FrmTempResult.TblTemp.Next;
    end;
    if j<>0 then
      begin
      PositionTempAvr:=PositionTempTotal/j;
      FrmTempResult.LblPositionTempAvr.Caption:=FloatToStr(PositionTemPAvr);
      FrmTempResult.LblPositionTempMiN.Caption:=FloatToStr(PositionTemPMin);
      FrmTempResult.LblPositionTempMax.Caption:=FloatToStr(PositionTemPMax);
      end;
    {else
      begin
      showmessage('没有有效的货位温度信息！');
      FrmTempResult.LblPositionTempAvr.Caption:='';
      FrmTempResult.LblPositionTempMiN.Caption:='';
      FrmTempResult.LblPositionTempMax.Caption:='';
      end;  }
    if k<>0 then
      begin
      DepotInTempAvr:=DepotInTempTotal/k;
      FrmTempResult.LblDepotTempI.Caption:= FloatToStr(DepotInTemPAvr);
      end;
    //else
      //begin
      //showmessage('没有有效的仓库温度信息！！');
      //FrmTempResult.LblDepotTempI.Caption:='';
      //end;

   { if FrmTempResult.LblMoisture.Caption='' then
      showmessage('没有有效的仓库湿度信息！');
    if FrmTempResult.LblDepotTempO.Caption='' then
      showmessage('没有有效的库外温度信息！');
    if FrmTempResult.LblDepotTempI.Caption='' then
      showmessage('没有有效的库内温度信息！');
    if FrmTempResult.LblPositionTempMin.Caption='' then
      showmessage('没有有效货位温度信息！');  }

  FrmTempResult.ShowModal;

end;

end.