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

📄 untstack.pas

📁 是分布式粮库程序,是采用Delphi实现的
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
unit UntStack;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UnitStandard1, Mask, DBCtrls, DBTables, DB, Menus, ImgList,
  Grids, DBGrids, ComCtrls, StdCtrls, ExtCtrls, Buttons, ToolWin,Global;

type
  TFrmStack = class(TFrmStandard1)
    Label55: TLabel;
    DBEditUnitID: TDBEdit;
    Label30: TLabel;
    Label29: TLabel;
    DBEditQuantity: TDBEdit;
    Label33: TLabel;
    DBEdit12: TDBEdit;
    Label39: TLabel;
    DBEditStore: TDBEdit;
    Label45: TLabel;
    DBEdit4: TDBEdit;
    Label31: TLabel;
    DBEdit15: TDBEdit;
    Label57: TLabel;
    Label58: TLabel;
    Label47: TLabel;
    DBEdit1: TDBEdit;
    Label48: TLabel;
    DBEdit5: TDBEdit;
    GroupBox7: TGroupBox;
    Label43: TLabel;
    LblItem4: TLabel;
    LblItem3: TLabel;
    Label46: TLabel;
    LblItem1: TLabel;
    LblItem2: TLabel;
    Label51: TLabel;
    LblItem5: TLabel;
    DBEditFqClass: TDBEdit;
    DBEditMoisture: TDBEdit;
    DBEditItem1: TDBEdit;
    DBEditItem2: TDBEdit;
    DBEditItem3: TDBEdit;
    DBEditItem4: TDBEdit;
    DBEditImpurity: TDBEdit;
    DBEditItem5: TDBEdit;
    GroupBox6: TGroupBox;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label25: TLabel;
    Label44: TLabel;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdtTorn: TDBEdit;
    DBEdtKnit: TDBEdit;
    Label50: TLabel;
    DBMemo2: TDBMemo;
    QrySQLINSTACK_ID: TStringField;
    QrySQLCASE_ID: TStringField;
    QrySQLADJUST_ID: TStringField;
    QrySQLNOTY_ITEM_ID: TStringField;
    QrySQLNOTY_FOOD: TStringField;
    QrySQLFROM_STATION: TStringField;
    QrySQLFREIGHT_NUMBER: TStringField;
    QrySQLTO_STATION: TStringField;
    QrySQLFREIGHT: TFloatField;
    QrySQLIN_TIME: TDateTimeField;
    QrySQLIN_QUANTITY: TFloatField;
    QrySQLINTYPE: TStringField;
    QrySQLSTORAGE: TFloatField;
    QrySQLPRICE: TFloatField;
    QrySQLREAP_YEAR: TIntegerField;
    QrySQLPROD_AREA: TStringField;
    QrySQLNEW: TIntegerField;
    QrySQLOLD: TIntegerField;
    QrySQLMISC: TIntegerField;
    QrySQLTORN: TIntegerField;
    QrySQLKNIT: TIntegerField;
    QrySQLFQ_MOISTURE: TFloatField;
    QrySQLFQ_IMPURITY: TFloatField;
    QrySQLFQ_ITEM1: TFloatField;
    QrySQLFQ_ITEM2: TFloatField;
    QrySQLFQ_ITEM3: TFloatField;
    QrySQLFQ_ITEM5: TFloatField;
    QrySQLFQ_ITEM4: TFloatField;
    QrySQLFQ_CLASS: TStringField;
    QrySQLATTRIBUTE: TStringField;
    QrySQLMEMO: TStringField;
    QrySQLCOM_FLAG: TIntegerField;
    QrySQLNOTY_QUANTITY: TFloatField;
    QrySQLIN_FOOD: TStringField;
    QrySQLSUPPLYER: TStringField;
    QrySQLARRIVAL_TIME: TDateTimeField;
    QrySQLCLERK: TStringField;
    QrySQLMANAGER: TStringField;
    QrySQLATTACHMENT: TStringField;
    QrySQLR_NEW: TIntegerField;
    QrySQLR_OLD: TIntegerField;
    QrySQLR_MISC: TIntegerField;
    QrySQLR_TORN: TIntegerField;
    QrySQLR_KNIT: TIntegerField;
    QrySQLadjustor: TStringField;
    Label26: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label27: TLabel;
    Label28: TLabel;
    DBEdit6: TDBEdit;
    TblFood: TTable;
    DataSourceFood: TDataSource;
    DBLkpCmbxInFood: TDBLookupComboBox;
    TblAttribute: TTable;
    DataSourceAttribute: TDataSource;
    TblAtechment: TTable;
    DataSourceAtechmet: TDataSource;
    DBLkpCmbxAttribute: TDBLookupComboBox;
    DBLkpCmbxAtechment: TDBLookupComboBox;
    DataSourcePosition: TDataSource;
    DataSourceSite: TDataSource;
    DataSourceDepot: TDataSource;
    GroupBox8: TGroupBox;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    QryFoodStyle: TQuery;
    QrySQLSURPLUS: TFloatField;
    QrySite: TQuery;
    QryDepot: TQuery;
    QryPosition: TQuery;
    QrySQLname: TStringField;
    QrySQLdepot_name: TStringField;
    QrySQLsite_name: TStringField;
    QrySQLunit_name: TStringField;
    QrySQLUnit_id: TIntegerField;
    QrySQLsite_id: TIntegerField;
    QrySQLdepot_id: TIntegerField;
    QrySQLFOODPOSITION_ID: TIntegerField;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    procedure DBLkpCmbxInFoodClick(Sender: TObject);
    procedure QrySQLAfterScroll(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure BitBtnOKClick(Sender: TObject);
    procedure BitBtnAllClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmStack: TFrmStack;

implementation

{$R *.dfm}

procedure TFrmStack.DBLkpCmbxInFoodClick(Sender: TObject);
begin
  inherited;
  QryFoodStyle.Active:=false;
  QryFoodStyle.SQL.Clear;
  QryFoodStyle.SQL.Add('select * from ENT_FOOD_TYPE where FOOD_TYPE='''+DBLkpCmbxInFood.Text+'''');
  QryFoodStyle.Open;
  if QryFoodStyle.RecordCount<>1 then
    BEGIN
    showmessage('入库的品种不对！');
    exit;
    END;
  if QryFoodStyle.FieldByName('Food_style').AsString='大豆' then
    begin
    LblItem1.Enabled:=true;
    DBEditItem1.Enabled:=true;
    LblItem1.Caption:='纯粮率：';
    LblItem2.Enabled:=false;
    LblItem3.Enabled:=false;
    LblItem4.Enabled:=false;
    LblItem5.Enabled:=false;
    DBEditItem2.Enabled:=false;
    DBEditItem3.Enabled:=false;
    DBEditItem4.Enabled:=false;
    DBEditItem5.Enabled:=false;
    end;
  if QryFoodStyle.FieldByName('Food_style').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;
    end;
  if QryFoodStyle.FieldByName('Food_style').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;
    end;
  if QryFoodStyle.FieldByName('Food_style').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;
    end;
  if QryFoodStyle.FieldByName('Food_style').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;
    end;
  if QryFoodStyle.FieldByName('Food_style').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;
    end;
  DBEditFqClass.Field.AsString:='';
  DBEditImpurity.Field.AsFloat:=0;
  DBEditMoisture.Field.AsFloat:=0;
  DBEditItem1.Field.AsFloat:=0;
  DBEditItem2.Field.AsFloat:=0;
  DBEditItem3.Field.AsFloat:=0;
  DBEditItem4.Field.AsFloat:=0;
  DBEditItem5.Field.AsFloat:=0;
end;

procedure TFrmStack.QrySQLAfterScroll(DataSet: TDataSet);
begin
  inherited;
  {QryFoodStyle.Active:=false;
  QryFoodStyle.SQL.Clear;
  QryFoodStyle.SQL.Add('select * from ENT_FOOD_TYPE where FOOD_TYPE='''+QrySQL.FieldByName('IN_FOOD').AsString+'''');
  QryFoodStyle.Open;
  {if QryFoodStyle.RecordCount<>1 then
    BEGIN
    showmessage('入库的品种不对或您新增了一条入库记录，品种还未输入！');
    exit;
    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:=false;
    LblItem3.Enabled:=false;
    LblItem4.Enabled:=false;
    LblItem5.Enabled:=false;
    DBEditItem2.Enabled:=false;
    DBEditItem3.Enabled:=false;
    DBEditItem4.Enabled:=false;
    DBEditItem5.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='早籼米') 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;
    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;
    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;
    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;
    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:=false;
    LblItem3.Enabled:=false;
    LblItem4.Enabled:=false;
    LblItem5.Enabled:=false;
    LblItem5.Caption:='高过氧化值：';
    DBEditItem2.Enabled:=false;
    DBEditItem3.Enabled:=false;
    DBEditItem4.Enabled:=false;
    DBEditItem5.Enabled:=false;
    end;
end;

procedure TFrmStack.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 TFrmStack.BitBtnOKClick(Sender: TObject);
var
  SQLSlt,SQLWhr,SQLOrd,SQL1,SQL2,SQL3 : string;
  //i: integer;
  sFld1, sFld2, sFld3,InisFld1, InisFld2, InisFld3 : string;
  sOpr1, sOpr2, sOpr3 : string;
  sVal1, sVal2, sVal3 : string;
  sLog1, sLog2 : string;
  sOrdFld1,sOrdFld2,sOrdFld3: string;
begin
  //inherited;
  SQLSlt := 'select INSTACK_ID,CASE_ID,ADJUST_ID,NOTY_ITEM_ID,IN_FOOD,STORAGE,'+
            'R_NEW,R_OLD,R_MISC,R_TORN,R_KNIT,ATTACHMENT,ATTRIBUTE,'+
            'FQ_CLASS,FQ_MOISTURE,FQ_IMPURITY,FQ_ITEM1,FQ_ITEM2,FQ_ITEM3,'+
            'FQ_ITEM4,FQ_ITEM5,REAP_YEAR,PROD_AREA,FROM_STATION,FREIGHT_NUMBER,'+
            'TO_STATION,FREIGHT,ARRIVAL_TIME,NOTY_FOOD,NOTY_QUANTITY,IN_TIME,'+
            'IN_QUANTITY,INTYPE,PRICE,NEW,OLD,MISC,TORN,KNIT,SUPPLYER,CLERK,'+
            'MANAGER,adjustor,ENT_INSTACK.MEMO,ENT_INSTACK.COM_FLAG,SURPLUS,ENT_INSTACK.Unit_id,'+
            'ENT_INSTACK.site_id,ENT_INSTACK.depot_id,ENT_INSTACK.FOODPOSITION_ID,'+
            'ent_fdposition_info.name,ent_depot_info.depot_name,ent_site.site_name,'+
            'ent_unit_info.unit_name '+
         'from ent_instack,ent_fdposition_info,ent_depot_info,ent_site,ent_unit_info '+
         'where ( ent_instack.FOODPOSITION_ID*=ent_fdposition_info.FOODPOSITION_ID '+
                'and ent_instack.depot_id*=ent_fdposition_info.depot_id '+
                'and ent_instack.site_id*=ent_fdposition_info.site_id '+
                'and ent_instack.unit_id*=ent_fdposition_info.unit_id ) and '+
12

⌨️ 快捷键说明

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