uqtfld_lr.dfm

工廠倉庫管理系統

      OnChange = DBEdit1Change
    end
    object DBEdit2: TDBEdit
      Left = 280
      Top = 48
      Width = 121
      Height = 24
      DataField = #39046#26009#21333#21495
      DataSource = DataSource2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
    end
    object DBEdit3: TDBEdit
      Left = 456
      Top = 48
      Width = 121
      Height = 24
      DataField = #24037#21333#21495#30721
      DataSource = DataSource2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object DBEdit4: TDBEdit
      Left = 640
      Top = 48
      Width = 129
      Height = 24
      DataField = #21457#26009#20154
      DataSource = DataSource2
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 4
    end
    object DBEdit7: TDBEdit
      Left = 640
      Top = 96
      Width = 129
      Height = 24
      DataField = #39046#26009#20154
      DataSource = DataSource2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 5
    end
    object DBMemo1: TDBMemo
      Left = 64
      Top = 96
      Width = 337
      Height = 25
      DataField = #22791#27880
      DataSource = DataSource2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 6
    end
    object DBEdit8: TDBEdit
      Left = 776
      Top = 40
      Width = 89
      Height = 24
      DataField = #26085#26399
      DataSource = DataSource2
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      Visible = False
    end
    object DBComboBox1: TDBComboBox
      Left = 640
      Top = 72
      Width = 129
      Height = 24
      DataField = #39046#26009#37096#38376
      DataSource = DataSource2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      ReadOnly = True
      TabOrder = 8
    end
    object DBComboBox2: TDBComboBox
      Left = 456
      Top = 72
      Width = 121
      Height = 24
      DataField = #21378#21035
      DataSource = DataSource2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      ReadOnly = True
      TabOrder = 9
    end
    object DBEdit5: TDBEdit
      Left = 64
      Top = 72
      Width = 337
      Height = 24
      DataField = #24037#31243#21333#21495
      DataSource = DataSource2
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 10
    end
    object dtprq: TRzDBDateTimePicker
      Left = 456
      Top = 96
      Width = 121
      Height = 24
      Date = 39153.459989351850000000
      Time = 39153.459989351850000000
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      DataField = #21457#26009#26085#26399
      DataSource = DataSource2
      ReadOnly = True
    end
    object DBEdit6: TDBEdit
      Left = 784
      Top = 72
      Width = 49
      Height = 21
      DataField = #21457#26009#26085#26399
      DataSource = DataSource2
      TabOrder = 12
      Visible = False
    end
    object DBEdit14: TDBEdit
      Left = 440
      Top = 112
      Width = 41
      Height = 21
      DataField = #21457#26009#31867#21035
      DataSource = DataSource2
      TabOrder = 13
      Visible = False
    end
  end
  object ADOQuery1: TADOQuery
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from view_shd')
    Left = 496
    Top = 216
  end
  object ADOQuery2: TADOQuery
    Parameters = <>
    Left = 608
    Top = 272
  end
  object ADOQuery3: TADOQuery
    Parameters = <>
    Left = 584
    Top = 208
  end
  object PopupMenu1: TPopupMenu
    Left = 512
    Top = 288
    object N1: TMenuItem
      Caption = #21024#38500#35760#24405
      ShortCut = 46
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #22686#21152#35760#24405
      ShortCut = 112
      OnClick = N2Click
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 560
    Top = 240
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 608
    Top = 304
  end
  object ADOQuery4: TADOQuery
    Parameters = <>
    Left = 288
    Top = 208
  end
  object frReport1: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    Left = 408
    Top = 224
    ReportForm = {18000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = ADOQuery1
    Left = 520
    Top = 336
  end
  object frDBDataSet2: TfrDBDataSet
    DataSet = ADOQuery5
    Left = 360
    Top = 272
  end
  object ADOQuery5: TADOQuery
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'fldh'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 13
        Value = Null
      end>
    SQL.Strings = (
      'select fldh as '#21457#26009#21333#21495',lldh as '#39046#26009#21333#21495',llr as '#39046#26009#20154',djr as '#21457#26009#20154','
      
        'gdhm as '#24037#21333#21495#30721',ylbm as '#29992#26009#37096#38376',srrq as '#26085#26399',bz as '#22791#27880' from fld_main wher' +
        'e fldh=:fldh'
      ' ')
    Left = 432
    Top = 264
  end
end