unttransfernotydispose.dfm

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

        ImageIndex = 2
        object DBGrdMasterAll: TDBGrid
          Left = 0
          Top = 0
          Width = 242
          Height = 546
          Align = alClient
          DataSource = DataSourceMaster
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDrawColumnCell = DBGrdMasterAllDrawColumnCell
          Columns = <
            item
              Expanded = False
              FieldName = 'AUTHORITY_NO'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOTY_NO'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOTY_ID'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'NOTY_TYPE'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'STATUS'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'UnitName'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PLAN_ID'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'COUNTERPART'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLERK'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MANAGER'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SIGN_DATE'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'START_TIME'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FINISH_TIME'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'INPUT_TIME'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MEMO'
              Visible = True
            end>
        end
      end
    end
  end
  object DataSourceMaster: TDataSource
    DataSet = TblMaster
    Left = 40
    Top = 104
  end
  object DataSourceItem: TDataSource
    DataSet = TblItem
    Left = 272
    Top = 296
  end
  object TblItem: TTable
    Active = True
    DatabaseName = 'LYDB'
    FieldDefs = <
      item
        Name = 'NOTY_ITEM_ID'
        Attributes = [faRequired]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'NOTY_ID'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'FOOD_TYPE'
        DataType = ftString
        Size = 12
      end
      item
        Name = 'ATTRIBUTE'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ATTACHMENT'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'SETTLEMENT'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'QUANTITY'
        DataType = ftFloat
      end
      item
        Name = 'COST'
        DataType = ftFloat
      end
      item
        Name = 'PRICE'
        DataType = ftFloat
      end
      item
        Name = 'STATUS'
        DataType = ftInteger
      end
      item
        Name = 'MEMO'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'COM_FLAG'
        DataType = ftInteger
      end
      item
        Name = 'depotname'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'foodposition'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'business_type'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'sitename'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <
      item
        Name = 'PK_ENT_NOTY_ITEM'
        Fields = 'NOTY_ITEM_ID'
        Options = [ixUnique]
      end>
    IndexFieldNames = 'NOTY_ID'
    MasterFields = 'NOTY_ID'
    MasterSource = DataSourceMaster
    StoreDefs = True
    TableName = 'dbo.ENT_NOTY_ITEM'
    Left = 312
    Top = 296
    object TblItemNOTY_ITEM_ID: TStringField
      DisplayLabel = #31227#21333#32454#30446#32534#21495
      FieldName = 'NOTY_ITEM_ID'
      Required = True
      Size = 12
    end
    object TblItemNOTY_ID: TIntegerField
      DisplayLabel = #36890#30693#21333#24207#21015#21495
      FieldName = 'NOTY_ID'
      Required = True
    end
    object TblItemSTATUS: TIntegerField
      DisplayLabel = #29366#24577
      FieldName = 'STATUS'
    end
    object TblItemFOOD_TYPE: TStringField
      DisplayLabel = #21697#31181
      FieldName = 'FOOD_TYPE'
      Size = 12
    end
    object TblItemQUANTITY: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'QUANTITY'
    end
    object TblItemPRICE: TFloatField
      DisplayLabel = #20215#26684
      FieldName = 'PRICE'
    end
    object TblItemCOST: TFloatField
      DisplayLabel = #25104#26412
      FieldName = 'COST'
    end
    object TblItemATTRIBUTE: TStringField
      DisplayLabel = #20648#22791#24615#36136
      FieldName = 'ATTRIBUTE'
    end
    object TblItemATTACHMENT: TStringField
      DisplayLabel = #24402#23646
      FieldName = 'ATTACHMENT'
    end
    object TblItemSETTLEMENT: TStringField
      DisplayLabel = #32467#31639#26041#24335
      FieldName = 'SETTLEMENT'
      FixedChar = True
    end
    object TblItembusiness_type: TStringField
      DisplayLabel = #19994#21153#31867#22411
      FieldName = 'business_type'
    end
    object TblItemMEMO: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'MEMO'
      Size = 200
    end
  end
  object TblUnit_info: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_UNIT_INFO'
    Left = 272
    Top = 8
  end
  object DataSourceUnit_info: TDataSource
    Left = 312
    Top = 8
  end
  object TblMaster: TTable
    Active = True
    AfterScroll = TblMasterAfterScroll
    DatabaseName = 'LYDB'
    Filter = 'NOTY_TYPE=2 '
    Filtered = True
    IndexFieldNames = 'NOTY_ID'
    TableName = 'dbo.ENT_NOTY'
    Left = 8
    Top = 104
    object TblMasterAUTHORITY_NO: TStringField
      DisplayLabel = #25209#20934#25991#21495
      FieldName = 'AUTHORITY_NO'
      Size = 12
    end
    object TblMasterNOTY_NO: TStringField
      DisplayLabel = #36890#30693#21333#32534#21495
      FieldName = 'NOTY_NO'
      Size = 12
    end
    object TblMasterNOTY_ID: TIntegerField
      DisplayLabel = #36890#30693#21333#24207#21015#21495
      FieldName = 'NOTY_ID'
      Required = True
    end
    object TblMasterNOTY_TYPE: TIntegerField
      DisplayLabel = #36890#30693#21333#31867#22411
      FieldName = 'NOTY_TYPE'
    end
    object TblMasterSTATUS: TIntegerField
      DisplayLabel = #29366#24577
      FieldName = 'STATUS'
    end
    object TblMasterUnitName: TStringField
      DisplayLabel = #31227#20986#21333#20301
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = TblUnit_info
      LookupKeyFields = 'UNIT_ID'
      LookupResultField = 'UNIT_NAME'
      KeyFields = 'UNIT_ID'
      Size = 100
      Lookup = True
    end
    object TblMasterPLAN_ID: TStringField
      DisplayLabel = #35745#21010#32534#21495
      FieldName = 'PLAN_ID'
      Size = 12
    end
    object TblMasterCOUNTERPART: TStringField
      DisplayLabel = #20379#36135#21333#20301
      FieldName = 'COUNTERPART'
      Size = 50
    end
    object TblMasterCLERK: TStringField
      DisplayLabel = #32463#21150#20154
      FieldName = 'CLERK'
      Size = 12
    end
    object TblMasterMANAGER: TStringField
      DisplayLabel = #23457#25209#20154
      FieldName = 'MANAGER'
      Size = 12
    end
    object TblMasterUNIT_ID: TIntegerField
      DisplayLabel = #31227#20986#21333#20301#32534#21495
      FieldName = 'UNIT_ID'
      Required = True
    end
    object TblMasterSIGN_DATE: TStringField
      DisplayLabel = #31614#21457#26085#26399
      FieldName = 'SIGN_DATE'
      Size = 10
    end
    object TblMasterSTART_TIME: TDateTimeField
      DisplayLabel = #24320#22987#26102#38388
      FieldName = 'START_TIME'
    end
    object TblMasterFINISH_TIME: TDateTimeField
      DisplayLabel = #32467#26463#26102#38388
      FieldName = 'FINISH_TIME'
    end
    object TblMasterINPUT_TIME: TDateTimeField
      DisplayLabel = #36755#21333#26102#38388
      FieldName = 'INPUT_TIME'
    end
    object TblMasterMEMO: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'MEMO'
      Size = 200
    end
    object TblMasterCOM_FLAG: TIntegerField
      DisplayLabel = #36890#35759#26631#24535
      FieldName = 'COM_FLAG'
    end
  end
end