⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 untrecievefdbill.~pas

📁 是分布式粮库程序,是采用Delphi实现的
💻 ~PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
        exit;
      end;
    finally
      QryCX.Close;
      QryCX.Free;
    end;
  end;
end;

procedure TFrmRecieveFdBill.DBLkpCmbxSiteExit(Sender: TObject);
begin
  inherited;
  {if DBLkpCmbxSite.Text='' then
  begin
    Showmessage('库点号不能为空，请输入！');
    DBLkpCmbxSite.SetFocus;
    exit;
  end;
  QrySql.Edit;
  DBLkpCmbxDepot.Field.AsInteger:=-1;
  DBLkpCmbxPosition.Field.AsInteger:=-1;}
end;

procedure TFrmRecieveFdBill.DBLkpCmbxDepotExit(Sender: TObject);
begin
  inherited;
  {if DBLkpCmbxDepot.Text='' then
  begin
    Showmessage('仓库号不能为空，请输入！');
    DBLkpCmbxDepot.SetFocus;
    exit;
  end;
  QrySql.Edit;
  DBLkpCmbxPosition.Field.AsInteger:=-1;}
end;

procedure TFrmRecieveFdBill.DBLkpCmbxPositionExit(Sender: TObject);
begin
  inherited;
  {if DBLkpCmbxPosition.Text='' then
  begin
    Showmessage('货位号不能为空，请输入！');
    DBLkpCmbxPosition.SetFocus;
    exit;
  end; }
end;

procedure TFrmRecieveFdBill.QrySQLAfterScroll(DataSet: TDataSet);
begin
  inherited;
  //if QryFoodStyle.FieldByName('Food_style').AsString='大豆' then
  if QrySQL.FieldByName('IN_FOOD').AsString='大豆' then
    begin
    LblItem1.Enabled:=true;
    DBEditItem1.Enabled:=true;
    LblItem1.Caption:='纯粮率：';
    LblItem2.Enabled:=false;
    LblItem3.Enabled:=false;
    LblItem4.Enabled:=false;
    LblItem5.Enabled:=false;
    LblFqFat.Enabled:=false;
    DBEditItem2.Enabled:=false;
    DBEditItem3.Enabled:=false;
    DBEditItem4.Enabled:=false;
    DBEditItem5.Enabled:=false;
    DBEditFqFat.Enabled:=false;
    end;
  //if QryFoodStyle.FieldByName('Food_style').AsString='大米' then
  if (QrySQL.FieldByName('IN_FOOD').AsString='标一粳米')
     or (QrySQL.FieldByName('IN_FOOD').AsString='晚籼米')
     or (QrySQL.FieldByName('IN_FOOD').AsString='早籼米')
     or (QrySQL.FieldByName('IN_FOOD').AsString='粳米') then
    begin
    LblItem1.Enabled:=false;
    DBEditItem1.Enabled:=false;
    LblItem2.Enabled:=true;
    DBEditItem2.Enabled:=true;
    LblItem5.Enabled:=true;
    LblItem5.Caption:='稻谷率：';
    DBEditItem5.Enabled:=true;
    LblItem3.Enabled:=false;
    LblItem4.Enabled:=false;
    DBEditItem3.Enabled:=false;
    DBEditItem4.Enabled:=false;
    LblFqFat.Enabled:=false;
    DBEditFqFat.Enabled:=false;
    end;
  //if QryFoodStyle.FieldByName('Food_style').AsString='小麦' then
  if (QrySQL.FieldByName('IN_FOOD').AsString='小麦')
     or (QrySQL.FieldByName('IN_FOOD').AsString='国产小麦')
     or (QrySQL.FieldByName('IN_FOOD').AsString='进口小麦')
     or (QrySQL.FieldByName('IN_FOOD').AsString='大麦') then
    begin
    LblItem1.Enabled:=false;
    DBEditItem1.Enabled:=false;
    LblItem2.Enabled:=true;
    DBEditItem2.Enabled:=true;
    LblItem5.Enabled:=true;
    LblItem5.Caption:='容重：';
    DBEditItem5.Enabled:=true;
    LblItem3.Enabled:=false;
    LblItem4.Enabled:=false;
    DBEditItem3.Enabled:=false;
    DBEditItem4.Enabled:=false;
    LblFqFat.Enabled:=false;
    DBEditFqFat.Enabled:=false;
    end;
  //if QryFoodStyle.FieldByName('Food_style').AsString='玉米' then
  if QrySQL.FieldByName('IN_FOOD').AsString='玉米' then
    begin
    LblItem1.Enabled:=true;
    DBEditItem1.Enabled:=true;
    LblItem1.Caption:='纯粮率：';
    LblItem2.Enabled:=true;
    LblItem3.Enabled:=false;
    LblItem4.Enabled:=false;
    LblItem5.Enabled:=false;
    DBEditItem2.Enabled:=true;
    DBEditItem3.Enabled:=false;
    DBEditItem4.Enabled:=false;
    DBEditItem5.Enabled:=false;
    LblFqFat.Enabled:=false;
    DBEditFqFat.Enabled:=false;
    end;
  //if QryFoodStyle.FieldByName('Food_style').AsString='稻谷' then
  if (QrySQL.FieldByName('IN_FOOD').AsString='优质早籼谷')
     or (QrySQL.FieldByName('IN_FOOD').AsString='东北粳谷')
     or (QrySQL.FieldByName('IN_FOOD').AsString='晚粳谷')
     or (QrySQL.FieldByName('IN_FOOD').AsString='晚籼谷')
     or (QrySQL.FieldByName('IN_FOOD').AsString='早籼谷') then
    begin
    LblItem1.Enabled:=true;
    DBEditItem1.Enabled:=true;
    LblItem1.Caption:='黄粒：';
    LblItem2.Enabled:=true;
    LblItem3.Enabled:=true;
    LblItem4.Enabled:=true;
    LblItem5.Enabled:=true;
    LblItem5.Caption:='出糙率：';
    DBEditItem2.Enabled:=true;
    DBEditItem3.Enabled:=true;
    DBEditItem4.Enabled:=true;
    DBEditItem5.Enabled:=true;
    LblFqFat.Enabled:=true;
    DBEditFqFat.Enabled:=true;
    end;
  //if QryFoodStyle.FieldByName('Food_style').AsString='油' then
  if (QrySQL.FieldByName('IN_FOOD').AsString='二级菜油')
     or (QrySQL.FieldByName('IN_FOOD').AsString='四级菜油') then
    begin
    LblItem1.Enabled:=true;
    DBEditItem1.Enabled:=true;
    LblItem1.Caption:='酸价：';
    LblItem2.Enabled:=false;
    LblItem3.Enabled:=false;
    LblItem4.Enabled:=false;
    LblItem5.Enabled:=false;
    LblItem5.Caption:='高过氧化值：';
    DBEditItem2.Enabled:=false;
    DBEditItem3.Enabled:=false;
    DBEditItem4.Enabled:=false;
    DBEditItem5.Enabled:=false;
    LblFqFat.Enabled:=false;
    DBEditFqFat.Enabled:=false;
    end;

end;

procedure TFrmRecieveFdBill.DBEditQuantityEnter(Sender: TObject);
begin
  inherited;
  OldQuantity:= DBEditQuantity.Field.AsFloat;
  //showmessage(floattostr(oldquantity));
end;

procedure TFrmRecieveFdBill.DBEditNotyItemExit(Sender: TObject);
//var
  //TblCX: TTable;
begin
  inherited;
 { if DBEditNotyItem.Text <> '' then
  begin
    try
      TblCX:=TTable.Create(nil);
      TblCX.DatabaseName := 'LYDB';
      TblCX.TableName := 'ENT_NOTY_ITEM';
      TblCX.Filter := 'NOTY_ITEM_ID='''+TRIM(DBEditNotyItem.Text)+'''';
      TblCX.Filtered := true;
      TblCX.Active := true;
      if TblCX.RecordCount=0 then
        begin
        showmessage('无此通知单，请重新输入！');
        DBEditNotyItem.Text := '';
        exit;
        end;
      //if TblCX.RecordCount>1 then
       // begin
       // showmessage('存在重复的移库单！');
       // DBEditNotyItem.Text := '';
        //DBEditNotyItem.SetFocus;
        //exit;
       // end;
    finally
      TblCX.Active:=false;
      TblCX.Free;
    end;
  end; }
end;

procedure TFrmRecieveFdBill.DBEdit22Enter(Sender: TObject);
begin
  inherited;
  Old_new:= DBEdit22.Field.Asinteger;
end;

procedure TFrmRecieveFdBill.DBEdit23Enter(Sender: TObject);
begin
  inherited;
  Old_old:= DBEdit23.Field.Asinteger;
end;

procedure TFrmRecieveFdBill.DBEditmiscEnter(Sender: TObject);
begin
  inherited;
  Old_misc:= DBEditmisc.Field.Asinteger;
end;

procedure TFrmRecieveFdBill.DBEdtTornEnter(Sender: TObject);
begin
  inherited;
  Old_torn:= DBEdttorn.Field.Asinteger;
end;

procedure TFrmRecieveFdBill.DBEdtKnitEnter(Sender: TObject);
begin
  inherited;
  Old_knit:= DBEdtknit.Field.Asinteger;
end;

procedure TFrmRecieveFdBill.DBEdit22Exit(Sender: TObject);
var
  R_new: integer;
begin
  inherited;
  if DBEditR_new.Text='' then
    R_new:=0
  else
    R_new := strToInt(DBEditR_new.Text);
  DBEditR_new.Text := intToStr(R_new+DBEdit22.Field.AsInteger-Old_new);
end;

procedure TFrmRecieveFdBill.DBEdit23Exit(Sender: TObject);
var
  R_old: integer;
begin
  inherited;
  if DBEditR_old.Text='' then
    R_old:=0
  else
    R_old := strToInt(DBEditR_old.Text);
  DBEditR_old.Text := intToStr(R_old+DBEdit23.Field.AsInteger-Old_old);
end;

procedure TFrmRecieveFdBill.DBEditmiscExit(Sender: TObject);
var
  R_misc: integer;
begin
  inherited;
  if DBEditR_misc.Text='' then
    R_misc:=0
  else
    R_misc := strToInt(DBEditR_misc.Text);
  DBEditR_misc.Text := intToStr(R_misc+DBEditmisc.Field.AsInteger-Old_misc);
end;



procedure TFrmRecieveFdBill.DBEdtTornExit(Sender: TObject);
var
  R_torn: integer;
begin
  inherited;
  if DBEditR_torn.Text='' then
    R_torn:=0
  else
    R_torn := strToInt(DBEditR_torn.Text);
  DBEditR_torn.Text := intToStr(R_torn+DBEdttorn.Field.AsInteger-Old_torn);
end;


procedure TFrmRecieveFdBill.DBEdtKnitExit(Sender: TObject);
var
  R_knit: integer;
begin
  inherited;
  if DBEditR_knit.Text='' then
    R_knit:=0
  else
    R_knit := strToInt(DBEditR_knit.Text);
  DBEditR_knit.Text := intToStr(R_knit+DBEdtknit.Field.AsInteger-Old_knit);
end;


procedure TFrmRecieveFdBill.FormCreate(Sender: TObject);
begin
  inherited;
  QrySql.Active:=false;
  QrySql.Filter:='Unit_id=' + IntToStr(Global.g_user.UnitID);
  QrySql.Filtered:=true;
  QrySql.Active:=true;
end;

procedure TFrmRecieveFdBill.QrySQLIN_TIMESetText(Sender: TField;
  const Text: String);
begin
  inherited;
  if DBEditInTime.Text<>'    -  -  ' then
    try
      Sender.AsDateTime:=strtodate(DBEditInTime.EditText);
    except
      Application.MessageBox(PChar(DBEditInTime.EditText+'不是有效的日期!'),'错误',mb_Ok+mb_IconError);
      abort;
    end
  else
    Sender.Clear;
end;

procedure TFrmRecieveFdBill.QrySQLARRIVAL_TIMESetText(Sender: TField;
  const Text: String);
begin
  inherited;
  if DBEditArrivalTime.Text<>'    -  -  ' then
    try
      Sender.AsDateTime:=strtodate(DBEditArrivalTime.EditText);
    except
      Application.MessageBox(PChar(DBEditArrivalTime.EditText+'不是有效的日期!'),'错误',mb_Ok+mb_IconError);
      abort;
    end
  else
    Sender.Clear;
end;

procedure TFrmRecieveFdBill.DBCmbxSiteDropDown(Sender: TObject);
var
  i:integer;
begin
  inherited;
  DBCmbxSite.Items.Clear;
  QrySite.Close;
  QrySite.SQL.Clear;
  QrySite.SQL.Text:='select site_name,site_id,Unit_id from ent_site where UNIT_ID='+inttostr(Global.g_user.UnitID);
  QrySite.Open;
  if QrySite.RecordCount>0 then
    begin
      QrySite.First;
      for i:=0 to QrySite.RecordCount-1 do
        begin
          DBCmbxSite.Items.Add(QrySite.FieldByName('site_name').asString);
          StId[i]:=QrySite.FieldByName('site_id').asInteger;
          QrySite.Next;
        end;
    end;
  DBCmbxDepot.ItemIndex:=-1;
  DBCmbxPosition.ItemIndex:=-1;
end;

procedure TFrmRecieveFdBill.DBCmbxSiteExit(Sender: TObject);
var
  i,j:integer;
begin
  inherited;
  try
    DBEdtStId.Field.AsInteger:=StId[DBCmbxSite.ItemIndex];
  except
    exit;
  end;
  DBEdtDptId.Field.AsInteger:=-1;
  DBEdtPstnId.Field.AsInteger:=-1;
end;

procedure TFrmRecieveFdBill.DBCmbxDepotDropDown(Sender: TObject);
var
  i:integer;
begin
  inherited;
  if DBEdtStId.Field.AsInteger>0 then
  begin
    DBCmbxDepot.Items.Clear;
    QryDepot.Close;
    QryDepot.SQL.Clear;
    QryDepot.SQL.Text:='select Depot_name,Depot_id,Unit_id,site_id from ent_Depot_info where Unit_id='+inttostr(Global.g_user.UnitID)
                      +' and Site_id='+inttoStr(DBEdtStId.Field.AsInteger);
    QryDepot.Open;
    if QryDepot.RecordCount>0 then
      begin
        QryDepot.First;
        for i:=0 to QryDepot.RecordCount-1 do
          begin
            DBCmbxDepot.Items.Add(QryDepot.FieldByName('Depot_name').asString);
            DptId[i]:=QryDepot.FieldByName('Depot_id').asInteger;
            QryDepot.Next;
          end;
       end;
    DBCmbxPosition.ItemIndex:=-1;
  end
  else
  begin
    showmessage('请选择库点！');
    DBCmbxSite.SetFocus;
  end;
end;

procedure TFrmRecieveFdBill.DBCmbxDepotExit(Sender: TObject);
begin
  inherited;
  try
    DBEdtDptId.Field.AsInteger:=DptId[DBCmbxDepot.ItemIndex];
  except
    exit;
  end;
  DBEdtPstnid.Field.AsInteger:=-1;
end;

procedure TFrmRecieveFdBill.DBCmbxPositionExit(Sender: TObject);
begin
  inherited;
  try
    DBEdtPstnId.Field.AsInteger:=PstnId[DBCmbxPosition.ItemIndex];
  except
    exit;
  end;
end;

procedure TFrmRecieveFdBill.DBCmbxPositionDropDown(Sender: TObject);
var
  i:integer;
begin
  inherited;
  if (DBEdtStId.Field.AsInteger>0) and (DBEdtDptid.Field.AsInteger>0) then
  begin
    DBCmbxPosition.Items.Clear;
    QryPosition.Close;
    QryPosition.SQL.Clear;
    QryPosition.SQL.Text:='select name,FOODPOSITION_ID,DEPOT_ID,Unit_id,site_id from ent_fdPosition_info where Unit_id='+inttostr(Global.g_user.UnitID)
                      +' and Site_id='+inttoStr(DBEdtStId.Field.AsInteger)
                      +' and Depot_id='+inttostr(DBEdtDptId.Field.AsInteger);
    QryPosition.Open;
    if QryPosition.RecordCount>0 then
      begin
        QryPosition.First;
        for i:=0 to QryPosition.RecordCount-1 do
          begin
            DBCmbxPosition.Items.Add(QryPosition.FieldByName('name').asString);
            PstnId[i]:=QryPosition.FieldByName('FOODPOSITION_ID').asInteger;
            QryPosition.Next;
          end;
      end;
  end;

  if DBEdtStId.Field.AsInteger<0 then
    begin
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -