tablefield.dfm

三层ERP系统 (SQL)

inherited frmtablefield: Tfrmtablefield
  Left = 198
  Top = 177
  ActiveControl = Edit1
  Caption = #31995#32113#34920#23383#27573#31649#29702
  ClientHeight = 430
  ClientWidth = 688
  Font.Height = -15
  OnCloseQuery = FormCloseQuery
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 15
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 42
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 14
      Top = 15
      Width = 30
      Height = 14
      AutoSize = False
      Caption = #34920#21517
    end
    object Edit1: TEdit
      Left = 49
      Top = 11
      Width = 123
      Height = 23
      TabOrder = 0
    end
    object Button1: TButton
      Left = 179
      Top = 9
      Width = 70
      Height = 25
      Caption = #30906#23450
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 250
      Top = 9
      Width = 97
      Height = 25
      Caption = #37325#26032#29983#25104
      TabOrder = 2
      OnClick = Button2Click
    end
    object Panel3: TPanel
      Left = 592
      Top = 2
      Width = 94
      Height = 38
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 3
      object btnExit: TButton
        Left = 12
        Top = 8
        Width = 75
        Height = 25
        Caption = #36864#20986
        TabOrder = 0
        OnClick = btnExitClick
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 389
    Width = 688
    Height = 41
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object btnModify: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 0
      OnClick = btnModifyClick
    end
    object btncancel: TButton
      Left = 84
      Top = 8
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 1
      OnClick = btncancelClick
    end
    object btnsave: TButton
      Left = 160
      Top = 8
      Width = 75
      Height = 25
      Caption = #23384#20786
      TabOrder = 2
      OnClick = btnsaveClick
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 42
    Width = 688
    Height = 347
    Align = alClient
    DataSource = DSbaseinfo
    FixedColor = 12835543
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -15
    FooterFont.Name = #32048#26126#39636
    FooterFont.Style = []
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -15
    TitleFont.Name = #32048#26126#39636
    TitleFont.Style = []
    OnGetCellParams = DBGridEh1GetCellParams
    OnKeyDown = DBGridEh1KeyDown
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'ftableName'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fname'
        Footers = <>
        Title.Caption = #23383#27573#21517#31281
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'ftype'
        Footers = <>
        Title.Caption = #39006#22411
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'flength'
        Footers = <>
        Title.Caption = #38263#24230
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'fisnullable'
        Footers = <>
        Title.Caption = #28858#31354
        Width = 50
      end
      item
        EditButtons = <>
        FieldName = 'fdesc'
        Footers = <>
        Title.Caption = #25551#36848
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'fisvisible'
        Footers = <>
        Title.Caption = #39023#31034
        Width = 50
      end>
  end
  object CDSBaseinfo: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 192
    Top = 184
    object CDSBaseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDSBaseinfoftableName: TWideStringField
      FieldName = 'ftableName'
      Visible = False
      Size = 28
    end
    object CDSBaseinfofname: TWideStringField
      FieldName = 'fname'
      ReadOnly = True
      Size = 30
    end
    object CDSBaseinfoftype: TWideStringField
      FieldName = 'ftype'
      ReadOnly = True
      Size = 32
    end
    object CDSBaseinfoflength: TIntegerField
      FieldName = 'flength'
      ReadOnly = True
    end
    object CDSBaseinfofisnullable: TBooleanField
      FieldName = 'fisnullable'
      ReadOnly = True
    end
    object CDSBaseinfofdesc: TWideStringField
      FieldName = 'fdesc'
      Size = 48
    end
    object CDSBaseinfofisvisible: TBooleanField
      FieldName = 'fisvisible'
    end
  end
  object DSbaseinfo: TDataSource
    DataSet = CDSBaseinfo
    OnStateChange = DSbaseinfoStateChange
    OnDataChange = DSbaseinfoDataChange
    Left = 216
    Top = 208
  end
end