unoticequery.~dfm

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

      ParseInput = False
      TabOrder = 7
    end
    object CheckBox1: TCheckBox
      Left = 32
      Top = 112
      Width = 81
      Height = 17
      Caption = #20837#24211#26085#26399#65306
      TabOrder = 8
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 32
      Top = 136
      Width = 81
      Height = 17
      Caption = #36755#21333#26085#26399#65306
      TabOrder = 9
      OnClick = CheckBox2Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 169
    Width = 335
    Height = 290
    Align = alClient
    Anchors = [akLeft, akTop, akBottom]
    DataSource = notyDataSource
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'unit_name'
        Title.Caption = #20837#24211#21333#20301
        Width = 85
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'noty_id'
        Title.Caption = #36890#30693#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'plan_id'
        Title.Caption = #35745#21010#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'noty_no'
        Title.Caption = #36890#30693#21333#25991#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'authority_no'
        Title.Caption = #25209#20934#25991#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'noty_type'
        Title.Caption = #36890#30693#21333#31867#22411
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'counterpart'
        Title.Caption = #20379#36135#21333#20301
        Width = 86
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'start_time'
        Title.Caption = #20837#24211#24320#22987#26102#38388
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'finish_time'
        Title.Caption = #20837#24211#32467#26463#26102#38388
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'input_time'
        Title.Caption = #36755#21333#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'clerk'
        Title.Caption = #32463#21150#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'manager'
        Title.Caption = #23457#25209#20154
        Visible = True
      end>
  end
  object DateTimePicker3: TDateTimePicker
    Left = 120
    Top = 136
    Width = 89
    Height = 21
    CalAlignment = dtaLeft
    Date = 38077.3890427778
    Time = 38077.3890427778
    DateFormat = dfShort
    DateMode = dmComboBox
    Enabled = False
    Kind = dtkDate
    ParseInput = False
    TabOrder = 2
  end
  object DateTimePicker4: TDateTimePicker
    Left = 240
    Top = 136
    Width = 89
    Height = 21
    CalAlignment = dtaLeft
    Date = 38077.3890908912
    Time = 38077.3890908912
    DateFormat = dfShort
    DateMode = dmComboBox
    Enabled = False
    Kind = dtkDate
    ParseInput = False
    TabOrder = 3
  end
  object DBGrid2: TDBGrid
    Left = 335
    Top = 169
    Width = 353
    Height = 290
    Align = alRight
    DataSource = itemDataSource
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NOTY_ITEM_ID'
        Title.Caption = #32454#30446#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FOOD_TYPE'
        Title.Caption = #36135#29289#21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'QUANTITY'
        Title.Caption = #25968#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PRICE'
        Title.Caption = #21333#20215
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SETTLEMENT'
        Title.Caption = #20184#27454#26041#24335
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ATTRIBUTE'
        Title.Caption = #20648#22791#24615#36136
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ATTACHMENT'
        Title.Caption = #24402#23646
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'business_type'
        Title.Caption = #19994#21153#31867#22411
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sitename'
        Title.Caption = #24211#28857
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'depotname'
        Title.Caption = #20179#24211
        Visible = True
      end>
  end
  object unitDataSource: TDataSource
    DataSet = unitQuery
    Left = 144
    Top = 72
  end
  object notyQuery: TQuery
    AfterScroll = notyQueryAfterScroll
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select unit_name,noty_id,'
      '       plan_id,noty_no,noty_type,counterpart,authority_no,'
      '       start_time,finish_time,input_time,clerk,manager'
      'from ent_noty,ent_unit_info'
      'where ent_noty.unit_id*=ent_unit_info.unit_id')
    Left = 136
    Top = 296
  end
  object notyDataSource: TDataSource
    DataSet = notyQuery
    Left = 168
    Top = 296
  end
  object itemQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_noty_item'
      'where noty_id=:noty_id')
    Left = 408
    Top = 296
    ParamData = <
      item
        DataType = ftString
        Name = 'noty_id'
        ParamType = ptUnknown
      end>
  end
  object itemDataSource: TDataSource
    DataSet = itemQuery
    Left = 440
    Top = 296
  end
  object unitQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select unit_id,unit_name'
      'from ent_unit_info'
      'union  select unit_id=99999,unit_name='#39#19981#25351#23450#39)
    Left = 112
    Top = 72
  end
end