unttransferstore.dfm

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

          Enabled = False
          KeyField = 'UNIT_ID'
          ListField = 'UNIT_NAME'
          ListSource = DataSourceUnit
          TabOrder = 23
        end
        object DBLkpCmbxRecieve: TDBLookupComboBox
          Left = 96
          Top = 194
          Width = 137
          Height = 20
          DataField = 'RECIEVER'
          DataSource = DataSource1
          Enabled = False
          KeyField = 'UNIT_ID'
          ListField = 'UNIT_NAME'
          ListSource = DataSourceUnit
          TabOrder = 5
        end
        object DBLookupComboBox3: TDBLookupComboBox
          Left = 340
          Top = 12
          Width = 137
          Height = 20
          DataField = 'FOODTYPE'
          DataSource = DataSource1
          Enabled = False
          KeyField = 'FOOD_TYPE'
          ListField = 'FOOD_TYPE'
          ListSource = DataSourceFood
          TabOrder = 6
        end
        object DBEditNotyQuantity: TDBEdit
          Left = 340
          Top = 120
          Width = 137
          Height = 20
          DataField = 'NOTY_QUANTITY'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 9
        end
        object DBEdtInClerk: TDBEdit
          Left = 340
          Top = 156
          Width = 137
          Height = 20
          DataField = 'CLERK'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 10
        end
        object DBEdtOutClerk: TDBEdit
          Left = 340
          Top = 193
          Width = 137
          Height = 20
          DataField = 'OPERATE'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 11
        end
        object DBLookupComboBox4: TDBLookupComboBox
          Left = 340
          Top = 84
          Width = 137
          Height = 20
          DataField = 'NOTY_FOODTYPE'
          DataSource = DataSource1
          Enabled = False
          KeyField = 'FOOD_TYPE'
          ListField = 'FOOD_TYPE'
          ListSource = DataSourceFood
          TabOrder = 8
        end
        object BitBtnSlctNotyItem: TBitBtn
          Left = 213
          Top = 85
          Width = 19
          Height = 19
          Enabled = False
          TabOrder = 3
          OnClick = BitBtnSlctNotyItemClick
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            777777777777777777777077777C77C77C777007777777777777770077777777
            777777700770000777777777000777707777777770777777077777770777F777
            7077777707F77F7770777777077F77F7707777777077F7770777777777077770
            7777777777700007777777777777777777777777777777777777}
        end
        object DBEditUnitID: TDBEdit
          Left = 96
          Top = 12
          Width = 137
          Height = 20
          DataField = 'UNIT_ID'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 0
        end
      end
      inherited TabSheetQuery: TTabSheet
        inherited EdtTable: TEdit
          Text = 'Ent_TR_CASE'
        end
      end
    end
  end
  inherited Pnl2: TPanel
    Top = 291
    Width = 999
    Height = 146
    inherited DBGrid1: TDBGrid
      Width = 997
      Height = 144
    end
  end
  inherited PnlBottom: TPanel
    Width = 999
  end
  inherited QrySQL: TQuery
    Active = True
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from Ent_TR_CASE')
    object QrySQLCASE_ID: TStringField
      DisplayLabel = #31227#24211#21333#32534#21495
      FieldName = 'CASE_ID'
      Origin = 'LYDB."dbo.ENT_TR_CASE".CASE_ID'
      Size = 12
    end
    object QrySQLNOTY_ITEM_ID: TStringField
      DisplayLabel = #36890#30693#21333#32454#30446
      FieldName = 'NOTY_ITEM_ID'
      Origin = 'LYDB."dbo.ENT_TR_CASE".NOTY_ITEM_ID'
      Size = 12
    end
    object QrySQLNOTY_FOODTYPE: TStringField
      DisplayLabel = #36890#30693#21697#31181
      FieldName = 'NOTY_FOODTYPE'
      Origin = 'LYDB."dbo.ENT_TR_CASE".NOTY_FOODTYPE'
    end
    object QrySQLNOTY_QUANTITY: TFloatField
      DisplayLabel = #36890#30693#25968#37327
      FieldName = 'NOTY_QUANTITY'
      Origin = 'LYDB."dbo.ENT_TR_CASE".NOTY_QUANTITY'
    end
    object QrySQLFOODTYPE: TStringField
      DisplayLabel = #23454#25910#21697#31181
      FieldName = 'FOODTYPE'
      Origin = 'LYDB."dbo.ENT_TR_CASE".FOODTYPE'
    end
    object QrySQLQUANTITY: TFloatField
      DisplayLabel = #23454#25910#25968#37327
      FieldName = 'QUANTITY'
      Origin = 'LYDB."dbo.ENT_TR_CASE".QUANTITY'
    end
    object QrySQLOUT_CHECK: TStringField
      DisplayLabel = #20986#24211#23457#26680
      FieldName = 'OUT_CHECK'
      Origin = 'LYDB.Ent_TR_CASE.OUT_CHECK'
      FixedChar = True
      Size = 10
    end
    object QrySQLIN_CHECK: TStringField
      DisplayLabel = #20837#24211#23457#26680
      FieldName = 'IN_CHECK'
      Origin = 'LYDB.Ent_TR_CASE.IN_CHECK'
      FixedChar = True
      Size = 10
    end
    object QrySQLDATETIME: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'DATETIME'
      Origin = 'LYDB.Ent_TR_CASE.NOTY_ITEM_ID'
      OnSetText = QrySQLDATETIMESetText
      EditMask = '!9999/99/99;1;_'
    end
    object QrySQLCLERK: TStringField
      DisplayLabel = #31227#20837#32463#21150#20154
      FieldName = 'CLERK'
      Origin = 'LYDB."dbo.ENT_TR_CASE".CLERK'
      Size = 12
    end
    object QrySQLOPERATE: TStringField
      DisplayLabel = #31227#20986#32463#21150#20154
      FieldName = 'OPERATE'
      Origin = 'LYDB."dbo.ENT_TR_CASE".OPERATE'
      Size = 12
    end
    object QrySQLUNIT_ID: TIntegerField
      DisplayLabel = #31227#20986#21333#20301
      FieldName = 'UNIT_ID'
      Origin = 'LYDB.Ent_TR_CASE.DATETIME'
    end
    object QrySQLRECIEVER: TIntegerField
      DisplayLabel = #31227#20837#21333#20301
      FieldName = 'RECIEVER'
      Origin = 'LYDB.Ent_TR_CASE.SUPPLYER'
    end
    object QrySQLCOM_FLAG: TIntegerField
      DisplayLabel = #36890#35759#26631#24535
      FieldName = 'COM_FLAG'
      Origin = 'LYDB.Ent_TR_CASE.COM_FLAG'
    end
    object QrySQLMEMO: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'MEMO'
      Origin = 'LYDB.Ent_TR_CASE.MEMO'
      Size = 200
    end
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update Ent_TR_CASE'
      'set'
      '  CASE_ID = :CASE_ID,'
      '  NOTY_ITEM_ID = :NOTY_ITEM_ID,'
      '  DATETIME = :DATETIME,'
      '  UNIT_ID = :UNIT_ID,'
      '  RECIEVER = :RECIEVER,'
      '  NOTY_FOODTYPE = :NOTY_FOODTYPE,'
      '  NOTY_QUANTITY = :NOTY_QUANTITY,'
      '  FOODTYPE = :FOODTYPE,'
      '  QUANTITY = :QUANTITY,'
      '  CLERK = :CLERK,'
      '  OPERATE = :OPERATE,'
      '  OUT_CHECK = :OUT_CHECK,'
      '  IN_CHECK = :IN_CHECK,'
      '  MEMO = :MEMO,'
      '  COM_FLAG = :COM_FLAG'
      'where'
      '  CASE_ID = :OLD_CASE_ID and'
      '  UNIT_ID = :OLD_UNIT_ID')
    InsertSQL.Strings = (
      'insert into Ent_TR_CASE'
      
        '  (CASE_ID, NOTY_ITEM_ID, DATETIME, UNIT_ID, RECIEVER, NOTY_FOOD' +
        'TYPE, NOTY_QUANTITY, '
      
        '   FOODTYPE, QUANTITY, CLERK, OPERATE, OUT_CHECK, IN_CHECK, MEMO' +
        ', COM_FLAG)'
      'values'
      
        '  (:CASE_ID, :NOTY_ITEM_ID, :DATETIME, :UNIT_ID, :RECIEVER, :NOT' +
        'Y_FOODTYPE, '
      
        '   :NOTY_QUANTITY, :FOODTYPE, :QUANTITY, :CLERK, :OPERATE, :OUT_' +
        'CHECK, '
      '   :IN_CHECK, :MEMO, :COM_FLAG)')
    DeleteSQL.Strings = (
      'delete from Ent_TR_CASE'
      'where'
      '  CASE_ID = :OLD_CASE_ID and'
      '  UNIT_ID = :OLD_UNIT_ID ')
  end
  object TblUnit: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_UNIT_INFO'
    Left = 408
  end
  object DataSourceUnit: TDataSource
    DataSet = TblUnit
    Left = 448
  end
  object DataSourceFood: TDataSource
    DataSet = TblFood
    Left = 520
  end
  object TblFood: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_FOOD_TYPE'
    Left = 480
  end
end