fmchglogmngmain.dfm

代码变更管理工具。当对程序代码进行变更以后可以用改工具记录变更内容

object FmChgMngMain: TFmChgMngMain
  Left = 207
  Top = 141
  VertScrollBar.Style = ssFlat
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'FmChgMngMain'
  ClientHeight = 522
  ClientWidth = 631
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object grpSearchContent: TGroupBox
    Left = 8
    Top = 0
    Width = 617
    Height = 89
    TabOrder = 0
    object lblDevlpName: TLabel
      Left = 16
      Top = 16
      Width = 48
      Height = 13
      Caption = #24320#21457#32773#65306
    end
    object lblNotes: TLabel
      Left = 208
      Top = 56
      Width = 36
      Height = 13
      Caption = #20869#23481#65306
    end
    object lblBranch: TLabel
      Left = 24
      Top = 56
      Width = 36
      Height = 12
      Caption = #20998#25903#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object lblEndTime: TLabel
      Left = 376
      Top = 24
      Width = 24
      Height = 13
      Caption = #21040#65306
    end
    object btnSearch: TButton
      Left = 536
      Top = 40
      Width = 75
      Height = 25
      Caption = #24555#36895#26597#35810
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = btnSearchClick
    end
    object chkTime: TCheckBox
      Left = 208
      Top = 16
      Width = 65
      Height = 25
      Caption = #26102#38388#65306
      TabOrder = 1
      OnClick = chkTimeClick
    end
    object edtNotes: TEdit
      Left = 264
      Top = 56
      Width = 233
      Height = 21
      TabOrder = 2
      Text = 'edtNotes'
    end
    object cbbDevpName: TComboBox
      Left = 72
      Top = 16
      Width = 113
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
    end
    object cbbBranch: TComboBox
      Left = 72
      Top = 56
      Width = 113
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 4
    end
    object dtpStartTime: TDateTimePicker
      Left = 264
      Top = 16
      Width = 97
      Height = 21
      CalAlignment = dtaLeft
      Date = 39573.5392006597
      Time = 39573.5392006597
      DateFormat = dfShort
      DateMode = dmComboBox
      Enabled = False
      Kind = dtkDate
      ParseInput = False
      TabOrder = 5
    end
    object dtpEndTime: TDateTimePicker
      Left = 400
      Top = 16
      Width = 97
      Height = 21
      CalAlignment = dtaLeft
      Date = 39573.5392006597
      Time = 39573.5392006597
      DateFormat = dfShort
      DateMode = dmComboBox
      Enabled = False
      Kind = dtkDate
      ParseInput = False
      TabOrder = 6
    end
  end
  object btnAdd: TBitBtn
    Left = 542
    Top = 126
    Width = 83
    Height = 25
    Caption = #28155#21152
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = btnAddClick
  end
  object btnEdit: TBitBtn
    Left = 545
    Top = 198
    Width = 83
    Height = 25
    Caption = #32534#36753
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = btnEditClick
  end
  object btnDel: TBitBtn
    Left = 544
    Top = 270
    Width = 83
    Height = 25
    Caption = #21024#38500
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = btnDelClick
  end
  object btnExport: TBitBtn
    Left = 547
    Top = 350
    Width = 78
    Height = 25
    Caption = #23548#20986
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = btnExportClick
  end
  object btnClose: TButton
    Left = 544
    Top = 432
    Width = 81
    Height = 25
    Caption = #36864#20986
    TabOrder = 5
    OnClick = btnCloseClick
  end
  object dbgrdhDataDis: TDBGridEh
    Left = 8
    Top = 96
    Width = 521
    Height = 417
    DrawMemoText = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection]
    TabOrder = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = dbgrdhDataDisDblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ID'
        Footers = <>
        Width = 39
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = #31867#22411
        Footers = <>
        MaxWidth = 50
        MinWidth = 30
        Width = 30
      end
      item
        EditButtons = <>
        FieldName = #22995#21517
        Footers = <>
        Width = 48
      end
      item
        EditButtons = <>
        FieldName = #22791#27880
        Footers = <>
        Width = 203
      end
      item
        EditButtons = <>
        FieldName = #20998#25903
        Footers = <>
        Width = 65
      end
      item
        EditButtons = <>
        FieldName = #26102#38388
        Footers = <>
        Width = 96
      end>
  end
  object dsData: TDataSource
    Left = 576
    Top = 488
  end
end