ut_data.dfm

罗小平<<delphi精要>>一书源码

object FM_DATA: TFM_DATA
  Left = 193
  Top = 109
  Width = 800
  Height = 571
  Caption = 'FM_DATA'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object pEdit: TPanel
    Left = 0
    Top = 0
    Width = 792
    Height = 33
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
  end
  object pDataParent: TPanel
    Left = 0
    Top = 419
    Width = 792
    Height = 125
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object pData: TPanel
      Left = 0
      Top = 0
      Width = 674
      Height = 125
      Align = alClient
      BevelInner = bvLowered
      TabOrder = 0
    end
    object pDCParent: TPanel
      Left = 674
      Top = 0
      Width = 118
      Height = 125
      Align = alRight
      BevelInner = bvLowered
      TabOrder = 1
      object pDC: TPanel
        Left = 2
        Top = 2
        Width = 114
        Height = 121
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object pCommit: TPanel
          Left = 0
          Top = 0
          Width = 114
          Height = 121
          Align = alClient
          TabOrder = 1
          object bCommit: TBitBtn
            Left = 28
            Top = 30
            Width = 60
            Height = 23
            Caption = #30830' '#23450
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnClick = bCommitClick
          end
          object bCancle: TBitBtn
            Left = 28
            Top = 71
            Width = 60
            Height = 23
            Caption = #21462' '#28040
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = bCancleClick
          end
        end
        object pMod: TPanel
          Left = 0
          Top = 0
          Width = 114
          Height = 121
          Align = alClient
          TabOrder = 0
          object bAdd: TBitBtn
            Left = 28
            Top = 12
            Width = 60
            Height = 23
            Caption = #22686' '#21152
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnClick = bAddClick
          end
          object bModify: TBitBtn
            Left = 28
            Top = 49
            Width = 60
            Height = 23
            Caption = #20462' '#25913
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = bModifyClick
          end
          object bDelete: TBitBtn
            Left = 28
            Top = 88
            Width = 60
            Height = 23
            Caption = #21024' '#38500
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnClick = bDeleteClick
          end
        end
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 33
    Width = 792
    Height = 386
    Align = alClient
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
end