unit1.dfm

记录程序记录的程序源码

object Form1: TForm1
  Left = -4
  Top = -4
  Width = 1032
  Height = 776
  Caption = '程序记录 V0.92'
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00CCCC
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC999CCCCCCC
    CCCCCCCCCCC99CCCCCCCCCCC99CCCC9999CCCCCCCCCC9CCCCCCCCCCCC9CCC9CC
    CC9CCCCCC99C99CCCCCCCCCCC9CCC9CCCC9CCC9999CCCC9CCCCC999CC9CCC99C
    CCCCCCC99CCCCC99CCCC9CCCC9CCCC9CCCCCCCCC9CCCCC99CCCC9CCCC9CCCC99
    CCCCCCCCC9CCC9CC9CC99CCCC9CCCCC9CCCCCCCCC9CC99CC9CC9CCCCC9CCCCCC
    9CCCC99999C99CCC9CC9CCCCCCCCCCCCCCCCCCCCCCCCCCCCC9C9CCCC9CCCCCCC
    CCCCCCCCCCCCCCCCC9C99CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC9CCCC99
    999999999999999999999999999CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC9CCCCCC
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    CCCCCCCCCCCCCCCCCCCCCCCCFFFFCCFCCFFCCCCCCCCCCCCCCCCCFCCCFFFFCCFC
    CFCCCCFFFCCCCCCCFFFCFCCCFCFCCCFCCFCCCFFCCCCFFFFCFCFCFFCCFCFCCCFC
    FFCCCFFFFCFFCCCCFCFCFFCCFFFCCCFFFCCCCFCCFCCFCCCCFFFCFCFCCCFCCCFF
    FFCCCFFFFCCCFFFCCCCCCCCCCCFCCCFCCFFCCCCCCCCCCCCCCCCCCCCCCCFCCCFC
    CCFCCCCCCCCCCCCCCCCCCCCCCCFCCCFCCCFCCCCCCCCCCCCCCCCCCCCCCCFCCCFF
    FFFCCCCCCCCCCCCCCCCCCCCCCCFCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC0000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 209
    Top = 34
    Width = 6
    Height = 672
    Cursor = crHSplit
    MinSize = 7
    OnMoved = FormResize
    OnPaint = FormResize
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 1024
    Height = 34
    AutoSize = True
    ButtonHeight = 30
    ButtonWidth = 31
    Caption = 'ToolBar1'
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    Images = ImageList1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object ToolButton3: TToolButton
      Left = 0
      Top = 0
      Width = 6
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton1: TToolButton
      Left = 6
      Top = 0
      Hint = '导入数据'
      Caption = 'ToolButton1'
      ImageIndex = 1
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 37
      Top = 0
      Hint = '导出数据'
      Caption = 'ToolButton2'
      Enabled = False
      ImageIndex = 0
      OnClick = ToolButton2Click
    end
    object ToolButton4: TToolButton
      Left = 68
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton5: TToolButton
      Left = 76
      Top = 0
      Hint = '添加记录'
      Caption = 'ToolButton5'
      ImageIndex = 7
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 107
      Top = 0
      Hint = '修改记录'
      Caption = 'ToolButton6'
      ImageIndex = 8
      OnClick = ToolButton6Click
    end
    object ToolButton7: TToolButton
      Left = 138
      Top = 0
      Hint = '删除记录'
      Caption = 'ToolButton7'
      Enabled = False
      ImageIndex = 6
      OnClick = ToolButton7Click
    end
    object ToolButton8: TToolButton
      Left = 169
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object ComboBox1: TComboBox
      Left = 177
      Top = 3
      Width = 176
      Height = 23
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 15
      MaxLength = 50
      ParentFont = False
      TabOrder = 0
      OnKeyUp = ComboBox1KeyUp
    end
    object ToolButton9: TToolButton
      Left = 353
      Top = 0
      Hint = '查找记录'
      Caption = 'ToolButton9'
      ImageIndex = 2
      OnClick = ToolButton9Click
    end
    object ToolButton10: TToolButton
      Left = 384
      Top = 0
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object ToolButton11: TToolButton
      Left = 392
      Top = 0
      Hint = '执行操作'
      Caption = 'ToolButton11'
      ImageIndex = 9
      OnClick = ToolButton11Click
    end
    object ToolButton14: TToolButton
      Left = 423
      Top = 0
      Width = 8
      Caption = 'ToolButton14'
      ImageIndex = 9
      Style = tbsSeparator
    end
    object ToolButton12: TToolButton
      Left = 431
      Top = 0
      Hint = '关于程式'
      Caption = 'ToolButton12'
      ImageIndex = 4
      OnClick = ToolButton12Click
    end
    object ToolButton13: TToolButton
      Left = 462
      Top = 0
      Width = 8
      Caption = 'ToolButton13'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object ComboBox2: TComboBox
      Left = 470
      Top = 4
      Width = 107
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clOlive
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 1
      Text = '从标题中检索'
      Items.Strings = (
        '从标题中检索'
        '从全文中检索')
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 34
    Width = 209
    Height = 672
    Align = alLeft
    DataSource = DataSource1
    FixedColor = clSilver
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgIndicator, dgColLines, dgRowLines]
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'Name'
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 215
    Top = 34
    Width = 809
    Height = 672
    Align = alClient
    Color = clSilver
    TabOrder = 2
    object DBEdit1: TDBEdit
      Left = 3
      Top = 2
      Width = 277
      Height = 21
      DataField = 'Name'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object DBMemo1: TDBMemo
      Left = 3
      Top = 26
      Width = 357
      Height = 296
      DataField = 'Text'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 1
    end
    object DBCheckBox1: TDBCheckBox
      Left = 280
      Top = 3
      Width = 73