uqualityquery.pas

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

         Label10.Caption := '容重,出糙率,稻谷粒, 高过氧化值(%)  ';
         DisableAll(True);
       end;
    end;
end;
procedure TFqualityquery.DisableAll(mode:boolean);
begin
        cmbMoisture.ItemIndex := 5;
        cmbMoisture.Enabled := mode;
        combobox2.ItemIndex :=5;
        combobox2.Enabled :=mode;

        cmbImpurity.ItemIndex := 5;
        cmbImpurity.Enabled := mode;
        combobox4.ItemIndex :=5;
        combobox4.Enabled :=mode;

        cmbitem1.ItemIndex := 5;
        cmbitem1.Enabled := mode;
        combobox5.ItemIndex :=5;
        combobox5.Enabled :=mode;

        cmbitem2.ItemIndex := 5;
        cmbitem2.Enabled := mode;
        combobox6.ItemIndex :=5;
        combobox6.Enabled :=mode;

        cmbitem3.ItemIndex := 5;
        cmbitem3.Enabled := mode;
        combobox7.ItemIndex :=5;
        combobox7.Enabled :=mode;

        cmbitem4.ItemIndex := 5;
        cmbitem4.Enabled := mode;
        combobox8.ItemIndex :=5;
        combobox8.Enabled :=mode;

        cmbitem5.ItemIndex := 5;
        cmbitem5.Enabled := mode;
        combobox3.ItemIndex :=5;
        combobox3.Enabled :=mode;

        EditItem1.Enabled := mode;
        EditItem2.Enabled := mode;
        EditItem3.Enabled := mode;
        edititem4.Enabled := mode;
        edititem5.Enabled := mode;

        edit2.Enabled :=mode;
        edit4.Enabled :=mode;
        edit5.Enabled :=mode;
        edit6.Enabled :=mode;
        edit7.Enabled :=mode;
end;

procedure Tfqualityquery.Reset;
begin
 if global.g_user.UnitID=0 then
  begin
  Unitquery.Open;
  dblookupcombobox1.KeyValue:=99999997;
  DBLookupComboBox2.Enabled:=false;
  end else
  begin
  dblookupcombobox1.KeyValue:= global.g_user.UnitID;
  unitquery.Open;
  dblookupcombobox1.Enabled :=false;
  sitequery.ParamByName('unitid').AsInteger :=dblookupcombobox1.KeyValue;
  sitequery.Open;
  end;

  DBLookupComboBox2.KeyValue:=99999998;
  DBLookupComboBox3.KeyValue:=99999999;
  DBLookupComboBox3.Enabled:=false;
  combobox1.Text:='';

  Foodquery.Open;
  DBLookupComboBox5.KeyValue :='不指定';

  ComboKind.Itemindex:=6;
  combokind.OnChange(combokind);
  ComboClass.Items.Clear;
  cmbMoisture.itemindex:=5;
  combobox2.ItemIndex :=5;
  cmbImpurity.itemindex:=5;
  combobox4.ItemIndex :=5;
  cmbitem1.itemindex:=5;
  combobox5.ItemIndex :=5;
  cmbitem2.itemindex:=5;
  combobox6.itemindex:=5;
  cmbitem3.itemindex:=5;
  combobox7.itemindex:=5;
  cmbitem4.ItemIndex :=5;
  combobox8.itemindex:=5;
  cmbitem5.ItemIndex :=5;
  combobox3.itemindex:=5;
  combobox9.ItemIndex :=5;
  combobox10.ItemIndex :=5;

//  Edit1.Text:='';
  EditMoisture.Text:='';
  EditImpurity.Text:='';
  EditItem1.Text:='';
  EditItem2.Text:='';
  EditItem3.Text:='';
  EditItem4.Text:='';
  edititem5.Text:='';
  edit1.Text :='';
  edit2.Text :='';
  edit3.Text :='';
  edit4.Text :='';
  edit5.Text :='';
  edit6.Text :='';
  edit7.Text :='';
  edit8.Text :='';
  edit9.Text :='';

    if global.g_user.UnitID =0 then
    s:=query2.SQL.Text
    else
    s:=query2.SQL.Text+' and ent_instack.unit_id='+inttostr(DBLookupComboBox1.KeyValue);

    Query1.SQL.Clear;
    Query1.SQL.Add(s+' order by ent_instack.unit_id,ent_instack.site_id,ent_instack.depot_id,ent_instack.foodposition_id');
    try
      Query1.Open;
    except
      Application.MessageBox('查询库存时出错!','系统错误',MB_OK+MB_ICONERROR);
      Exit;
    end;

end;
procedure TFqualityquery.FormCreate(Sender: TObject);
begin
  reset;
end;

procedure TFqualityquery.btnResetClick(Sender: TObject);
begin
  reset;
end;

procedure TFqualityquery.btnQueryClick(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 combobox1.Text <> '' then
     begin
     fdpidquery.ParamByName('unit_id').AsInteger :=dblookupcombobox1.KeyValue ;
     fdpidquery.ParamByName('site_id').AsInteger :=dblookupcombobox2.KeyValue ;
     fdpidquery.ParamByName('depot_id').AsInteger :=dblookupcombobox3.KeyValue ;
     fdpidquery.ParamByName('foodposition_name').AsString :=combobox1.Text ;
     fdpidquery.Close;
     fdpidquery.Open;
  //   if fdpidquery.RecordCount =1 then
     QueryItem:=QueryItem+'  and ent_instack.foodposition_id='+inttostr(fdpidquery.fieldbyname('foodposition_id').AsInteger ) ;
     end;
   // QueryItem:=QueryItem+' and ent_fdposition_info.name='''+edit1.Text+'''';
   if (DBLookupComboBox5.Text<>'') and (DBLookupComboBox5.KeyValue<>'不指定') then
    QueryItem:=QueryItem+' and ent_instack.in_food='''+DBLookupComboBox5.KeyValue+'''';

   if (combokind.Text<>'') and (combokind.Text<>'不指定') then
    Queryitem:=Queryitem+' and ent_food_type.food_style='''+combokind.Text+'''';
//  必须在ent_instack表中加入foodstyle字段，否则不能实现按货物类别查询
   if (ComboClass.Text<>'') and (comboclass.Text<>'不指定') then
    Queryitem:=Queryitem+' and fq_class='''+comboclass.Text+'''';

   if (Editmoisture.Text<>'') then
    case cmbmoisture.ItemIndex of
    0,5: QueryItem:=QueryItem+' and FQ_MOISTURE='+editmoisture.Text;
    1:   QueryItem:=QueryItem+' and FQ_MOISTURE>='+editmoisture.Text;
    2:   QueryItem:=QueryItem+' and FQ_MOISTURE<='+editmoisture.Text;
    3:   QueryItem:=QueryItem+' and FQ_MOISTURE>'+editmoisture.Text;
    4:   QueryItem:=QueryItem+' and FQ_MOISTURE<'+editmoisture.Text;
    end;
   if (Edit1.Text<>'') then
    case combobox2.ItemIndex of
    0,5: QueryItem:=QueryItem+' and FQ_MOISTURE='+edit1.Text;
    1:   QueryItem:=QueryItem+' and FQ_MOISTURE>='+edit1.Text;
    2:   QueryItem:=QueryItem+' and FQ_MOISTURE<='+edit1.Text;
    3:   QueryItem:=QueryItem+' and FQ_MOISTURE>'+edit1.Text;
    4:   QueryItem:=QueryItem+' and FQ_MOISTURE<'+edit1.Text;
    end;

   if (Editimpurity.Text<>'') then
    case cmbimpurity.ItemIndex of
    0,5: QueryItem:=QueryItem+' and FQ_IMPURITY='+Editimpurity.Text;
    1:   QueryItem:=QueryItem+' and FQ_IMPURITY>='+Editimpurity.Text;
    2:   QueryItem:=QueryItem+' and FQ_IMPURITY<='+Editimpurity.Text;
    3:   QueryItem:=QueryItem+' and FQ_IMPURITY>'+Editimpurity.Text;
    4:   QueryItem:=QueryItem+' and FQ_IMPURITY<'+Editimpurity.Text;
    end;
   if (edit3.Text <>'') then
    case combobox4.ItemIndex of
    0,5: QueryItem:=QueryItem+' and FQ_IMPURITY='+Edit3.Text;
    1:   QueryItem:=QueryItem+' and FQ_IMPURITY>='+Edit3.Text;
    2:   QueryItem:=QueryItem+' and FQ_IMPURITY<='+Edit3.Text;
    3:   QueryItem:=QueryItem+' and FQ_IMPURITY>'+Edit3.Text;
    4:   QueryItem:=QueryItem+' and FQ_IMPURITY<'+Edit3.Text;
    end;

   if (Edititem1.Text<>'') then
    case cmbitem1.ItemIndex of
    0,5: QueryItem:=QueryItem+' and fq_item1='+Edititem1.Text;
    1:   QueryItem:=QueryItem+' and fq_item1>='+Edititem1.Text;
    2:   QueryItem:=QueryItem+' and fq_item1<='+Edititem1.Text;
    3:   QueryItem:=QueryItem+' and fq_item1>'+Edititem1.Text;
    4:   QueryItem:=QueryItem+' and fq_item1<'+Edititem1.Text;
    end;
   if (edit4.Text <>'') then
    case combobox5.ItemIndex of
    0,5: QueryItem:=QueryItem+' and fq_item1='+Edit4.Text;
    1:   QueryItem:=QueryItem+' and fq_item1>='+Edit4.Text;
    2:   QueryItem:=QueryItem+' and fq_item1<='+Edit4.Text;
    3:   QueryItem:=QueryItem+' and fq_item1>'+Edit4.Text;
    4:  QueryItem:=QueryItem+' and fq_item1<'+Edit4.Text;
    end;

   if (Edititem2.Text<>'') then
    case cmbitem2.ItemIndex of
    0,5: QueryItem:=QueryItem+' and fq_item2='+Edititem2.Text;
    1:   QueryItem:=QueryItem+' and fq_item2>='+Edititem2.Text;
    2:   QueryItem:=QueryItem+' and fq_item2<='+Edititem2.Text;
    3:   QueryItem:=QueryItem+' and fq_item2>'+Edititem2.Text;
    4:   QueryItem:=QueryItem+' and fq_item2<'+Edititem2.Text;
    end;
   if (Edit5.Text<>'') then
    case combobox6.ItemIndex of
    0,5: QueryItem:=QueryItem+' and fq_item2='+Edit5.Text;
    1:   QueryItem:=QueryItem+' and fq_item2>='+Edit5.Text;
    2:   QueryItem:=QueryItem+' and fq_item2<='+Edit5.Text;
    3:   QueryItem:=QueryItem+' and fq_item2>'+Edit5.Text;
    4:   QueryItem:=QueryItem+' and fq_item2<'+Edit5.Text;
    end;

   if (Edititem3.Text<>'') then
    case cmbitem3.ItemIndex of
    0,5: QueryItem:=QueryItem+' and fq_item3='+Edititem3.Text;
    1:   QueryItem:=QueryItem+' and fq_item3>='+Edititem3.Text;
    2:   QueryItem:=QueryItem+' and fq_item3<='+Edititem3.Text;
    3:   QueryItem:=QueryItem+' and fq_item3>'+Edititem3.Text;
    4:   QueryItem:=QueryItem+' and fq_item3<'+Edititem3.Text;
    end;
   if (edit6.Text<>'') then
    case cmbitem3.ItemIndex of
    0,5: QueryItem:=QueryItem+' and fq_item3='+Edit6.Text;
    1:   QueryItem:=QueryItem+' and fq_item3>='+Edit6.Text;
    2:   QueryItem:=QueryItem+' and fq_item3<='+Edit6.Text;
    3:   QueryItem:=QueryItem+' and fq_item3>'+Edit6.Text;
    4:   QueryItem:=QueryItem+' and fq_item3<'+Edit6.Text;
    end;

   if (Edititem4.Text<>'') then
    case cmbitem4.ItemIndex of
    0,5: QueryItem:=QueryItem+' and fq_item4='+Edititem4.Text;
    1:   QueryItem:=QueryItem+' and fq_item4>='+Edititem4.Text;
    2:   QueryItem:=QueryItem+' and fq_item4<='+Edititem4.Text;
    3:   QueryItem:=QueryItem+' and fq_item4>'+Edititem4.Text;
    4:   QueryItem:=QueryItem+' and fq_item4<'+Edititem4.Text;
    end;
   if (edit7.Text <>'') then
    case combobox8.ItemIndex of
    0,5: QueryItem:=QueryItem+' and fq_item4='+Edit7.Text;
    1:   QueryItem:=QueryItem+' and fq_item4>='+Edit7.Text;
    2:   QueryItem:=QueryItem+' and fq_item4<='+Edit7.Text;
    3:   QueryItem:=QueryItem+' and fq_item4>'+Edit7.Text;
    4:   QueryItem:=QueryItem+' and fq_item4<'+Edit7.Text;
    end;

   if (Edititem5.Text<>'') then
    case cmbitem5.ItemIndex of
    0,5:  QueryItem:=QueryItem+' and fq_item5='+Edititem5.Text;
    1:    QueryItem:=QueryItem+' and fq_item5>='+Edititem5.Text;
    2:    QueryItem:=QueryItem+' and fq_item5<='+Edititem5.Text;
    3:    QueryItem:=QueryItem+' and fq_item5>'+Edititem5.Text;
    4:    QueryItem:=QueryItem+' and fq_item5<'+Edititem5.Text;
    end;
   if (Edit2.Text<>'') then
    case combobox3.ItemIndex of
    0,5:  QueryItem:=QueryItem+' and fq_item5='+Edit2.Text;
    1:    QueryItem:=QueryItem+' and fq_item5>='+Edit2.Text;
    2:    QueryItem:=QueryItem+' and fq_item5<='+Edit2.Text;
    3:    QueryItem:=QueryItem+' and fq_item5>'+Edit2.Text;
    4:    QueryItem:=QueryItem+' and fq_item5<'+Edit2.Text;
    end;
   if (Edit8.Text<>'') then
    case combobox9.ItemIndex of
    0,5:  QueryItem:=QueryItem+' and fq_fat='+Edit8.Text;
    1:    QueryItem:=QueryItem+' and fq_fat>='+Edit8.Text;
    2:    QueryItem:=QueryItem+' and fq_fat<='+Edit8.Text;
    3:    QueryItem:=QueryItem+' and fq_fat>'+Edit8.Text;
    4:    QueryItem:=QueryItem+' and fq_fat<'+Edit8.Text;
    end;
   if (Edit9.Text<>'') then
    case combobox10.ItemIndex of
    0,5:  QueryItem:=QueryItem+' and fq_fat='+Edit9.Text;
    1:    QueryItem:=QueryItem+' and fq_fat>='+Edit9.Text;
    2:    QueryItem:=QueryItem+' and fq_fat<='+Edit9.Text;
    3:    QueryItem:=QueryItem+' and fq_fat>'+Edit9.Text;
    4:    QueryItem:=QueryItem+' and fq_fat<'+Edit9.Text;
    end;

    query1.Active:=false;
    Query1.SQL.Clear;
   if QueryItem<>'' then
   Query1.SQL.Add(s+QueryItem+' order by ent_instack.unit_id,ent_instack.site_id,ent_instack.depot_id,ent_instack.foodposition_id') else
   query1.SQL.Add(s+' order by ent_instack.unit_id,ent_instack.site_id,ent_instack.depot_id,ent_instack.foodposition_id');

//     showmessage(query1.SQL.Text);
     try
       Query1.Active:=true;
     except
       Application.MessageBox('查询库存时出错!','系统错误',MB_OK+MB_ICONERROR);
       Exit;
     end;
end;

procedure TFqualityquery.cmbMoistureChange(Sender: TObject);
begin
     editmoisture.Text :='';
end;

procedure TFqualityquery.cmbImpurityChange(Sender: TObject);
begin
     editimpurity.Text :='';
end;

procedure TFqualityquery.cmbitem1Change(Sender: TObject);
begin
     edititem1.Text :='';
end;

procedure TFqualityquery.cmbitem2Change(Sender: TObject);
begin
     edititem2.Text :='';
end;

procedure TFqualityquery.cmbitem3Change(Sender: TObject);
begin
     edititem3.Text :='';
end;

procedure TFqualityquery.cmbitem4Change(Sender: TObject);
begin
     edititem4.Text :='';
end;

procedure TFqualityquery.cmbitem5Change(Sender: TObject);
begin
     edititem5.Text :='';
end;

procedure TFqualityquery.ComboBox2Change(Sender: TObject);
begin
   edit1.Text :='';
end;

procedure TFqualityquery.ComboBox4Change(Sender: TObject);
begin
   edit3.Text :='';
end;

procedure TFqualityquery.ComboBox5Change(Sender: TObject);
begin
   edit4.Text :='';
end;

procedure TFqualityquery.ComboBox6Change(Sender: TObject);
begin
   edit5.Text :='';
end;

procedure TFqualityquery.ComboBox7Change(Sender: TObject);
begin
   edit6.Text :='';
end;

procedure TFqualityquery.ComboBox8Change(Sender: TObject);
begin
   edit7.Text :='';
end;

procedure TFqualityquery.ComboBox3Change(Sender: TObject);
begin
   edit2.Text :='';
end;

procedure TFqualityquery.ComboBox9Change(Sender: TObject);
begin
   edit8.Text :='';
end;

procedure TFqualityquery.ComboBox10Change(Sender: TObject);
begin
   edit9.Text :='';
end;

procedure TFqualityquery.BitBtn1Click(Sender: TObject);
begin
   createreportquality;
end;

end.