ufrmmain.dfm

用delphi写的界面代码和功能代码分离程序

object frmMain: TfrmMain
  Left = 192
  Top = 114
  Width = 421
  Height = 325
  Caption = 'frmMain'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object ListView1: TListView
    Left = 22
    Top = 17
    Width = 353
    Height = 150
    Columns = <
      item
        Caption = 'ID'
      end
      item
        Caption = #22995#21517
        Width = 100
      end
      item
        Caption = #22995#21035
      end
      item
        Caption = #24180#40836
      end>
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnSelectItem = ListView1SelectItem
  end
  object btnModi: TBitBtn
    Left = 81
    Top = 184
    Width = 75
    Height = 25
    Caption = #20462#25913
    TabOrder = 1
    OnClick = btnModiClick
  end
  object btnAdd: TBitBtn
    Left = 161
    Top = 184
    Width = 75
    Height = 25
    Caption = #28155#21152
    TabOrder = 2
    OnClick = btnAddClick
  end
  object btnDel: TBitBtn
    Left = 241
    Top = 184
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 3
    OnClick = btnDelClick
  end
  object GroupBox1: TGroupBox
    Left = 22
    Top = 216
    Width = 353
    Height = 57
    Caption = #36890#36807#22995#21517#36827#34892#26597#25214
    TabOrder = 4
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 24
      Height = 12
      Caption = #22995#21517
    end
    object edtKey_Name: TEdit
      Left = 40
      Top = 20
      Width = 121
      Height = 20
      TabOrder = 0
    end
    object btnFind: TBitBtn
      Left = 192
      Top = 18
      Width = 75
      Height = 25
      Caption = #26597#25214
      TabOrder = 1
      OnClick = btnFindClick
    end
  end
end