uplancase.dfm

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

inherited FrmPlanCase: TFrmPlanCase
  Top = 151
  Caption = #35745#21010#32534#36753#31383#21475
  FormStyle = fsNormal
  KeyPreview = True
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  inherited PnlTop: TPanel
    inherited PageControl1: TPageControl
      inherited TabSheetEdit: TTabSheet
        object Label26: TLabel [0]
          Left = 32
          Top = 128
          Width = 57
          Height = 13
          AutoSize = False
          Caption = #36135#29289#21517#31216
        end
        object Label27: TLabel [1]
          Left = 32
          Top = 176
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #36135#29289#25968#37327
        end
        object Label28: TLabel [2]
          Left = 317
          Top = 32
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #24320#22987#26085#26399
        end
        object Label29: TLabel [3]
          Left = 317
          Top = 80
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #32467#26463#26085#26399
        end
        object Label30: TLabel [4]
          Left = 317
          Top = 128
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #21046#21333#26085#26399
        end
        object Label31: TLabel [5]
          Left = 317
          Top = 176
          Width = 57
          Height = 13
          AutoSize = False
          Caption = #35745' '#21010' '#21592
        end
        object Label32: TLabel [6]
          Left = 608
          Top = 32
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #22791'    '#27880
        end
        inherited LblKey: TLabel
          Left = 32
          Top = 32
          Width = 48
          Caption = #35745#21010#32534#21495
        end
        object Label25: TLabel [8]
          Left = 32
          Top = 80
          Width = 72
          Height = 12
          Caption = #35745#21010#19979#21457#20844#21496
        end
        inherited BitBtnSave: TBitBtn
          Left = 888
          Font.Height = -15
          ParentFont = False
          TabOrder = 10
        end
        inherited BitBtnNew: TBitBtn
          Left = 888
          TabOrder = 9
        end
        inherited BitBtnDelete: TBitBtn
          Left = 888
          Font.Height = -15
          ParentFont = False
          TabOrder = 11
        end
        inherited BitBtnRefresh: TBitBtn
          Left = 888
          TabOrder = 12
        end
        inherited BitBtnCancel: TBitBtn
          Left = 888
          Font.Height = -15
          ParentFont = False
          TabOrder = 13
        end
        inherited DBEditKey: TDBEdit
          Left = 112
          Top = 28
          Width = 145
          DataField = 'PLAN_ID'
          TabOrder = 0
          OnExit = DBEditKeyExit
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 112
          Top = 124
          Width = 145
          Height = 20
          DataField = 'FOOD_TYPE'
          DataSource = DataSource1
          KeyField = 'FOOD_TYPE'
          ListField = 'FOOD_TYPE'
          ListSource = DataSource2
          TabOrder = 2
        end
        object DBEdit2: TDBEdit
          Left = 111
          Top = 172
          Width = 145
          Height = 20
          DataField = 'PLAN_QUANTITY'
          DataSource = DataSource1
          TabOrder = 3
        end
        object DBMemo1: TDBMemo
          Left = 608
          Top = 64
          Width = 233
          Height = 129
          DataField = 'MEMO'
          DataSource = DataSource1
          TabOrder = 8
        end
        object DBLookupComboBox2: TDBLookupComboBox
          Left = 385
          Top = 172
          Width = 145
          Height = 20
          DataField = 'CLERK'
          DataSource = DataSource1
          KeyField = 'NAME'
          ListField = 'NAME'
          ListSource = DataSource3
          TabOrder = 7
        end
        object DBEditStartDate: TDBEdit
          Left = 385
          Top = 28
          Width = 145
          Height = 20
          DataField = 'START_TIME'
          DataSource = DataSource1
          MaxLength = 10
          TabOrder = 4
          OnExit = DBEditStartDateExit
        end
        object DBEditEndDate: TDBEdit
          Left = 385
          Top = 76
          Width = 145
          Height = 20
          DataField = 'FINISH_TIME'
          DataSource = DataSource1
          MaxLength = 10
          TabOrder = 5
          OnExit = DBEditEndDateExit
        end
        object DBEditMakeDate: TDBEdit
          Left = 385
          Top = 124
          Width = 145
          Height = 20
          DataField = 'MAKE_TIME'
          DataSource = DataSource1
          MaxLength = 10
          TabOrder = 6
        end
        object DBLkpCmbxUnitName: TDBLookupComboBox
          Left = 112
          Top = 75
          Width = 145
          Height = 20
          DataField = 'UNIT_ID'
          DataSource = DataSource1
          KeyField = 'UNIT_ID'
          ListField = 'UNIT_NAME'
          ListSource = DataSource4
          TabOrder = 1
          OnExit = DBLkpCmbxUnitNameExit
        end
      end
      inherited TabSheetQuery: TTabSheet
        inherited EdtTable: TEdit
          Text = 'ENT_PLAN_CASE'
        end
      end
    end
  end
  inherited Pnl2: TPanel
    inherited DBGrid1: TDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'PLAN_ID'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'UNIT_ID'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PLAN_QUANTITY'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FOOD_TYPE'
          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 = 'MAKE_TIME'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CLERK'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MEMO'
          Visible = True
        end>
    end
  end
  inherited QrySQL: TQuery
    Active = True
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ENT_PLAN_CASE')
    object QrySQLPLAN_ID: TStringField
      DisplayLabel = #35745#21010#32534#21495
      FieldName = 'PLAN_ID'
      Origin = 'LYDB.ENT_PLAN_CASE.PLAN_ID'
      Size = 12
    end
    object QrySQLPLAN_QUANTITY: TFloatField
      DisplayLabel = #35745#21010#25968#37327
      FieldName = 'PLAN_QUANTITY'
      Origin = 'LYDB.ENT_PLAN_CASE.PLAN_QUANTITY'
      OnSetText = QrySQLPLAN_QUANTITYSetText
    end
    object QrySQLCLERK: TStringField
      DisplayLabel = #35745#21010#21592
      FieldName = 'CLERK'
      Origin = 'LYDB.ENT_PLAN_CASE.CLERK'
      Size = 12
    end
    object QrySQLMEMO: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'MEMO'
      Origin = 'LYDB.ENT_PLAN_CASE.MEMO'
      Size = 200
    end
    object QrySQLCOM_FLAG: TIntegerField
      DisplayLabel = #36890#35759#26631#24535
      FieldName = 'COM_FLAG'
      Origin = 'LYDB.ENT_PLAN_CASE.COM_FLAG'
    end
    object QrySQLFOOD_TYPE: TStringField
      DisplayLabel = #36135#29289#21517#31216
      FieldName = 'FOOD_TYPE'
      Origin = 'LYDB.ENT_PLAN_CASE.FOOD_TYPE'
      Size = 12
    end
    object QrySQLUNIT_ID: TIntegerField
      DisplayLabel = #19979#21457#20998#20844#21496#32534#21495
      FieldName = 'UNIT_ID'
      Origin = 'LYDB.ENT_PLAN_CASE.UNIT_ID'
    end
    object QrySQLSTART_TIME: TDateTimeField
      DisplayLabel = #24320#22987#26102#38388
      FieldName = 'START_TIME'
      Origin = 'LYDB.ENT_PLAN_CASE.START_TIME'
      OnSetText = QrySQLSTART_TIMESetText
      EditMask = '!9999/99/99;1;_'
    end
    object QrySQLFINISH_TIME: TDateTimeField
      DisplayLabel = #32467#26463#26102#38388
      FieldName = 'FINISH_TIME'
      Origin = 'LYDB.ENT_PLAN_CASE.FINISH_TIME'
      OnSetText = QrySQLFINISH_TIMESetText
      EditMask = '!9999/99/99;1;_'
    end
    object QrySQLMAKE_TIME: TDateTimeField
      DisplayLabel = #21046#21333#26102#38388
      FieldName = 'MAKE_TIME'
      Origin = 'LYDB.ENT_PLAN_CASE.MAKE_TIME'
      OnSetText = QrySQLMAKE_TIMESetText
      EditMask = '!9999/99/99;1;_'
    end
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update ENT_PLAN_CASE'
      'set'
      '  PLAN_ID = :PLAN_ID,'
      '  PLAN_QUANTITY = :PLAN_QUANTITY,'
      '  CLERK = :CLERK,'
      '  START_TIME = :START_TIME,'
      '  FINISH_TIME = :FINISH_TIME,'
      '  MAKE_TIME = :MAKE_TIME,'
      '  MEMO = :MEMO,'
      '  COM_FLAG = 1,'
      '  FOOD_TYPE=:FOOD_TYPE'
      'where'
      '  PLAN_ID = :OLD_PLAN_ID')
    InsertSQL.Strings = (
      'insert into ENT_PLAN_CASE'
      
        '  (UNIT_ID,PLAN_ID, PLAN_QUANTITY, CLERK, START_TIME, FINISH_TIM' +
        'E, MAKE_TIME, MEMO, '
      '   COM_FLAG,FOOD_TYPE)'
      'values'
      
        '  (:UNIT_ID,:PLAN_ID, :PLAN_QUANTITY, :CLERK, :START_TIME, :FINI' +
        'SH_TIME, :MAKE_TIME, '
      '   :MEMO, 1,:FOOD_TYPE)')
    DeleteSQL.Strings = (
      'delete from ENT_PLAN_CASE'
      'where'
      '  PLAN_ID = :OLD_PLAN_ID')
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_FOOD_TYPE'
    Left = 224
    Top = 48
    object Table1FOOD_TYPE: TStringField
      FieldName = 'FOOD_TYPE'
      Required = True
      Size = 12
    end
    object Table1MEMO: TStringField
      FieldName = 'MEMO'
      Size = 200
    end
    object Table1COM_FLAG: TIntegerField
      FieldName = 'COM_FLAG'
    end
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 272
    Top = 48
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_USER'
    Left = 320
    Top = 40
  end
  object DataSource3: TDataSource
    DataSet = Table2
    Left = 368
    Top = 40
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'LYDB'
    Filter = 'Unit_id<>0'
    Filtered = True
    TableName = 'dbo.ENT_UNIT_INFO'
    Left = 112
    Top = 48
  end
  object DataSource4: TDataSource
    DataSet = Table3
    Left = 152
    Top = 48
  end
  object qryTemp: TQuery
    Left = 408
  end
end