dataform.dfm

骨灰盒规范化果腹

object fmData: TfmData
  Left = 192
  Top = 107
  Width = 439
  Height = 315
  Caption = '管理数据'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clNavy
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 19
    Width = 431
    Height = 250
    Align = alClient
    TabOrder = 0
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 318
      Height = 248
      Align = alClient
      TabOrder = 0
      object Label1: TLabel
        Left = 54
        Top = 6
        Width = 48
        Height = 12
        Caption = '信息类型'
      end
      object Label2: TLabel
        Left = 204
        Top = 3
        Width = 48
        Height = 12
        Caption = '文件类型'
      end
      object Label3: TLabel
        Left = 6
        Top = 66
        Width = 36
        Height = 12
        Caption = '关键字'
      end
      object Label4: TLabel
        Left = 207
        Top = 66
        Width = 48
        Height = 12
        Caption = '文件说明'
      end
      object DBText1: TDBText
        Left = 6
        Top = 24
        Width = 43
        Height = 17
        Alignment = taRightJustify
        DataField = 'ID'
        DataSource = DM.dsInfo
      end
      object Label6: TLabel
        Left = 153
        Top = 194
        Width = 48
        Height = 12
        Caption = '加入日期'
      end
      object clbKey: TCheckListBox
        Left = 6
        Top = 84
        Width = 193
        Height = 97
        Columns = 2
        ItemHeight = 12
        TabOrder = 0
      end
      object Button4: TButton
        Left = 36
        Top = 213
        Width = 75
        Height = 25
        Caption = '装入文件'
        TabOrder = 1
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 192
        Top = 213
        Width = 75
        Height = 25
        Caption = '查看文件'
        TabOrder = 2
        OnClick = Button5Click
      end
      object DBMemo1: TDBMemo
        Left = 204
        Top = 84
        Width = 109
        Height = 97
        DataField = '文件说明'
        DataSource = DM.dsInfo
        TabOrder = 3
      end
      object DBCheckBox1: TDBCheckBox
        Left = 7
        Top = 189
        Width = 97
        Height = 17
        Caption = '公开这条信息'
        DataField = '公开'
        DataSource = DM.dsInfo
        TabOrder = 4
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object DBEdit1: TDBEdit
        Left = 204
        Top = 189
        Width = 112
        Height = 20
        DataField = '加入日期'
        DataSource = DM.dsInfo
        TabOrder = 5
      end
      object DBcbInfoType: TDBComboBox
        Left = 51
        Top = 21
        Width = 145
        Height = 20
        DataField = '信息类型'
        DataSource = DM.dsInfo
        ItemHeight = 12
        TabOrder = 6
      end
      object DBcbFileType: TDBComboBox
        Left = 204
        Top = 21
        Width = 109
        Height = 20
        Style = csDropDownList
        DataField = '文件类型'
        DataSource = DM.dsInfo
        ItemHeight = 12
        TabOrder = 7
      end
    end
    object Panel4: TPanel
      Left = 319
      Top = 1
      Width = 111
      Height = 248
      Align = alRight
      TabOrder = 1
      object Label5: TLabel
        Left = 15
        Top = 12
        Width = 84
        Height = 12
        Caption = '到指定ID号记录'
      end
      object Button2: TButton
        Left = 12
        Top = 109
        Width = 90
        Height = 25
        Caption = '用户管理'
        TabOrder = 0
        OnClick = Button2Click
      end
      object BitBtn1: TBitBtn
        Left = 21
        Top = 195
        Width = 75
        Height = 25
        Caption = 'OK'
        ModalResult = 1
        TabOrder = 1
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object edID: TEdit
        Left = 12
        Top = 32
        Width = 90
        Height = 20
        TabOrder = 2
        OnChange = edIDChange
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 431
    Height = 19
    Align = alTop
    TabOrder = 1
    object DBNavigator1: TDBNavigator
      Left = 1
      Top = 1
      Width = 429
      Height = 18
      DataSource = DM.dsInfo
      Align = alClient
      Hints.Strings = (
        '最前记录'
        '前一记录'
        '后一记录'
        '最后记录'
        '插入记录'
        '删除记录'
        '编辑记录'
        '保存记录'
        '忽略编辑'
        '刷新数据')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object sb1: TStatusBar
    Left = 0
    Top = 269
    Width = 431
    Height = 19
    Panels = <
      item
        Text = '总记录数'
        Width = 60
      end
      item
        Width = 50
      end
      item
        Text = '当前记录'
        Width = 60
      end
      item
        Width = 50
      end
      item
        Text = '本程序由罗小飞（抱雪）设计'
        Width = 50
      end>
    SimplePanel = False
  end
  object od1: TOpenDialog
    Left = 88
    Top = 125
  end
end