untadjstattr.dfm

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

          Width = 137
          Height = 20
          DataField = 'FOODTYPE'
          DataSource = DataSource1
          Enabled = False
          KeyField = 'FOOD_TYPE'
          ListField = 'FOOD_TYPE'
          ListSource = DataSourceFood
          TabOrder = 15
        end
        object DBLkpCmbxOldAttr: TDBLookupComboBox
          Left = 88
          Top = 128
          Width = 137
          Height = 20
          DataField = 'ATTR'
          DataSource = DataSource1
          Enabled = False
          KeyField = 'ATTRIBUTE'
          ListField = 'ATTRIBUTE'
          ListSource = DataSourceAttr
          TabOrder = 16
        end
        object DBLkpCmbxNewAttr: TDBLookupComboBox
          Left = 88
          Top = 168
          Width = 137
          Height = 20
          DataField = 'NEW_ATTR'
          DataSource = DataSource1
          KeyField = 'ATTRIBUTE'
          ListField = 'ATTRIBUTE'
          ListSource = DataSourceAttr
          TabOrder = 17
        end
        object DBEditStatus: TDBEdit
          Left = 555
          Top = 167
          Width = 132
          Height = 20
          DataField = 'status'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 18
        end
      end
      inherited TabSheetQuery: TTabSheet
        inherited EdtTable: TEdit
          Text = 'ENT_ADJUST_ATTR'
        end
      end
    end
  end
  inherited Pnl2: TPanel
    Top = 294
    Height = 143
    inherited DBGrid1: TDBGrid
      Height = 141
    end
  end
  inherited QrySQL: TQuery
    Active = True
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from Ent_Adjust_attr')
    object QrySQLUNIT_ID: TIntegerField
      DisplayLabel = #20998#20844#21496#32534#21495
      FieldName = 'UNIT_ID'
      Origin = 'LYDB.Ent_Adjust_attr.UNIT_ID'
    end
    object QrySQLADJUST_ID: TStringField
      DisplayLabel = #24615#36136#35843#25972#32534#21495
      FieldName = 'ADJUST_ID'
      Origin = 'LYDB.Ent_Adjust_attr.ADJUST_ID'
      Size = 12
    end
    object QrySQLINSTACK_ID: TStringField
      DisplayLabel = #20837#24211#32534#21495
      FieldName = 'INSTACK_ID'
      Origin = 'LYDB.Ent_Adjust_attr.INSTACK_ID'
      Size = 12
    end
    object QrySQLSITE_ID: TIntegerField
      DisplayLabel = #24211#28857
      FieldName = 'SITE_ID'
      Origin = 'LYDB.Ent_Adjust_attr.SITE_ID'
    end
    object QrySQLDEPOT_ID: TIntegerField
      DisplayLabel = #20179#24211
      FieldName = 'DEPOT_ID'
      Origin = 'LYDB.Ent_Adjust_attr.DEPOT_ID'
    end
    object QrySQLFOODPOSITION_ID: TIntegerField
      DisplayLabel = #36135#20301
      FieldName = 'FOODPOSITION_ID'
      Origin = 'LYDB.Ent_Adjust_attr.FOODPOSITION_ID'
    end
    object QrySQLNEW_ATTR: TStringField
      DisplayLabel = #26032#24615#36136
      FieldName = 'NEW_ATTR'
      Origin = 'LYDB.Ent_Adjust_attr.NEW_ATTR'
      Size = 12
    end
    object QrySQLFOODTYPE: TStringField
      DisplayLabel = #21697#31181
      FieldName = 'FOODTYPE'
      Origin = 'LYDB.Ent_Adjust_attr.FOODTYPE'
      Size = 12
    end
    object QrySQLQUANTITY: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'QUANTITY'
      Origin = 'LYDB.Ent_Adjust_attr.QUANTITY'
      OnSetText = QrySQLQUANTITYSetText
    end
    object QrySQLDATETIME: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'DATETIME'
      Origin = 'LYDB.Ent_Adjust_attr.DATETIME'
      OnSetText = QrySQLDATETIMESetText
      EditMask = '!9999/99/99;1;_'
    end
    object QrySQLMANAGER: TStringField
      DisplayLabel = #20027#31649
      FieldName = 'MANAGER'
      Origin = 'LYDB.Ent_Adjust_attr.MANAGER'
      Size = 12
    end
    object QrySQLCLERK: TStringField
      DisplayLabel = #32463#21150#20154
      FieldName = 'CLERK'
      Origin = 'LYDB.Ent_Adjust_attr.CLERK'
      Size = 12
    end
    object QrySQLMEMO: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'MEMO'
      Origin = 'LYDB.Ent_Adjust_attr.MEMO'
      Size = 200
    end
    object QrySQLATTR: TStringField
      DisplayLabel = #26087#24615#36136
      FieldName = 'ATTR'
      Origin = 'LYDB.Ent_Adjust_attr.OLD_ATTR'
      Size = 12
    end
    object QrySQLAdjustor: TStringField
      DisplayLabel = #35843#25972#21592
      FieldName = 'Adjustor'
      Origin = 'LYDB.Ent_Adjust_attr.Adjustor'
      Size = 12
    end
    object QrySQLstatus: TIntegerField
      DisplayLabel = #29366#24577
      FieldName = 'status'
      Origin = 'LYDB.Ent_Adjust_attr.status'
    end
    object QrySQLCOM_FLAG: TIntegerField
      DisplayLabel = #36890#20449#26631#24535
      FieldName = 'COM_FLAG'
      Origin = 'LYDB.Ent_Adjust_attr.COM_FLAG'
    end
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update Ent_Adjust_attr'
      'set'
      '  UNIT_ID = :UNIT_ID,'
      '  ADJUST_ID = :ADJUST_ID,'
      '  INSTACK_ID = :INSTACK_ID,'
      '  SITE_ID = :SITE_ID,'
      '  DEPOT_ID = :DEPOT_ID,'
      '  FOODPOSITION_ID = :FOODPOSITION_ID,'
      '  ATTR = :ATTR,'
      '  NEW_ATTR = :NEW_ATTR,'
      '  FOODTYPE = :FOODTYPE,'
      '  QUANTITY = :QUANTITY,'
      '  DATETIME = :DATETIME,'
      '  MANAGER = :MANAGER,'
      '  CLERK = :CLERK,'
      '  Adjustor = :Adjustor,'
      '  status = :status,'
      '  MEMO = :MEMO,'
      '  COM_FLAG = :COM_FLAG'
      'where'
      '  UNIT_ID = :OLD_UNIT_ID and'
      '  ADJUST_ID = :OLD_ADJUST_ID')
    InsertSQL.Strings = (
      'insert into Ent_Adjust_attr'
      
        '  (UNIT_ID, ADJUST_ID, INSTACK_ID, SITE_ID, DEPOT_ID, FOODPOSITI' +
        'ON_ID, '
      
        '   ATTR, NEW_ATTR, FOODTYPE, QUANTITY, DATETIME, MANAGER, CLERK,' +
        ' Adjustor, '
      '   status, MEMO, COM_FLAG)'
      'values'
      
        '  (:UNIT_ID, :ADJUST_ID, :INSTACK_ID, :SITE_ID, :DEPOT_ID, :FOOD' +
        'POSITION_ID, '
      
        '   :ATTR, :NEW_ATTR, :FOODTYPE, :QUANTITY, :DATETIME, :MANAGER, ' +
        ':CLERK, '
      '   :Adjustor, :status, :MEMO, :COM_FLAG)')
    DeleteSQL.Strings = (
      'delete from Ent_Adjust_attr'
      'where'
      '  UNIT_ID = :OLD_UNIT_ID and'
      '  ADJUST_ID = :OLD_ADJUST_ID')
  end
  object TblUnit_Info: TTable
    Active = True
    DatabaseName = 'LYDB'
    Filter = 'Unit_id<>0'
    Filtered = True
    TableName = 'dbo.ENT_UNIT_INFO'
    Left = 456
  end
  object DataSourceUnit_info: TDataSource
    DataSet = TblUnit_Info
    Left = 504
  end
  object TblPosition: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_FDPOSITION_INFO'
    Left = 552
  end
  object DataSourcePosition: TDataSource
    DataSet = TblPosition
    Left = 600
  end
  object TblSite: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_SITE'
    Left = 648
  end
  object DataSourceSite: TDataSource
    DataSet = TblSite
    Left = 688
  end
  object TblDepot: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_DEPOT_INFO'
    Left = 728
  end
  object DataSourceDepot: TDataSource
    DataSet = TblDepot
    Left = 768
  end
  object TblFood: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_FOOD_TYPE'
    Left = 344
    Top = 32
  end
  object DataSourceFood: TDataSource
    DataSet = TblFood
    Left = 376
    Top = 32
  end
  object TblAttr: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_ATTRIBUTE'
    Left = 416
    Top = 32
  end
  object DataSourceAttr: TDataSource
    DataSet = TblAttr
    Left = 456
    Top = 32
  end
end