utablefield.dfm

这个程序软件很不错很不错的

inherited frmtablefield: Tfrmtablefield
  Left = 238
  Top = 148
  ActiveControl = Edit1
  BorderStyle = bsDialog
  Caption = #25968#25454#34920#37197#32622
  ClientHeight = 460
  ClientWidth = 568
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 14
    Top = 21
    Width = 41
    Height = 12
    AutoSize = False
    Caption = #34920#21517#31216
  end
  object Button4: TButton
    Left = 410
    Top = 16
    Width = 70
    Height = 25
    Caption = #30830#23450
    TabOrder = 0
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 480
    Top = 16
    Width = 70
    Height = 25
    Caption = #36864#20986
    TabOrder = 1
    OnClick = Button5Click
  end
  object Edit1: TEdit
    Left = 62
    Top = 19
    Width = 134
    Height = 20
    TabOrder = 2
  end
  object GroupBox1: TGroupBox
    Left = 12
    Top = 48
    Width = 546
    Height = 401
    Caption = #23383#27573#20449#24687
    TabOrder = 3
    object Grid: TDBGridEh
      Left = 2
      Top = 14
      Width = 542
      Height = 385
      Align = alClient
      Ctl3D = True
      DataSource = dsgrid
      FixedColor = 12835543
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      ParentCtl3D = False
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      TitleLines = 2
      OnGetCellParams = GridGetCellParams
      OnKeyDown = GridKeyDown
      Columns = <
        item
          EditButtons = <>
          FieldName = 'fid'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'ftablename'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'ffieldname'
          Footers = <>
          Title.Caption = #23383#27573#21517#31216
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'ffielddesc'
          Footers = <>
          Title.Caption = #25551#36848
          Width = 100
        end
        item
          AlwaysShowEditButton = True
          AutoDropDown = True
          DropDownBox.ColumnDefValues.EndEllipsis = True
          DropDownBox.ColumnDefValues.ToolTips = True
          DropDownBox.Options = [dlgColumnResizeEh, dlgColLinesEh, dlgRowLinesEh, dlgAutoSortMarkingEh, dlgMultiSortMarkingEh]
          DropDownBox.UseMultiTitle = True
          DropDownRows = 8
          DropDownShowTitles = True
          DropDownSizing = True
          EditButtons = <>
          FieldName = 'ftype'
          Footers = <>
          Title.Caption = #31867#22411
          Width = 120
        end
        item
          EditButtons = <>
          FieldName = 'ffieldtype'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'ffieldlong'
          Footers = <>
          Title.Caption = #38271#24230
        end
        item
          EditButtons = <>
          FieldName = 'fisnull'
          Footers = <>
          Title.Caption = #31354#21542
        end
        item
          EditButtons = <>
          FieldName = 'fdefaultvalue'
          Footers = <>
          Title.Caption = #40664#35748#20540
        end
        item
          EditButtons = <>
          FieldName = 'fisvisible'
          Footers = <>
          Title.Caption = #26174#31034
        end>
    end
  end
  object Button1: TButton
    Left = 208
    Top = 16
    Width = 70
    Height = 25
    Caption = #21047#26032
    TabOrder = 4
    OnClick = Button1Click
  end
  object dsgrid: TDataSource
    DataSet = Qbaseinfo
    Left = 160
    Top = 160
  end
  object Qbaseinfo: TADOQuery
    CacheSize = 1000
    Connection = DataM.AdoConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    MarshalOptions = moMarshalModifiedOnly
    Parameters = <
      item
        Name = 'ftablename'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select * from ttablefield where ftablename=:ftablename')
    Left = 143
    Top = 144
    object Qbaseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object Qbaseinfoftablename: TWideStringField
      FieldName = 'ftablename'
    end
    object Qbaseinfoffieldname: TWideStringField
      FieldName = 'ffieldname'
    end
    object Qbaseinfoffielddesc: TWideStringField
      FieldName = 'ffielddesc'
      Size = 32
    end
    object Qbaseinfoftype: TStringField
      FieldKind = fkLookup
      FieldName = 'ftype'
      LookupDataSet = Qfieldtype
      LookupKeyFields = 'fid'
      LookupResultField = 'ffieldtype'
      KeyFields = 'ffieldtype'
      Lookup = True
    end
    object Qbaseinfoffieldtype: TIntegerField
      FieldName = 'ffieldtype'
    end
    object Qbaseinfoffieldlong: TWideStringField
      FieldName = 'ffieldlong'
      Size = 8
    end
    object Qbaseinfofisnull: TBooleanField
      FieldName = 'fisnull'
    end
    object Qbaseinfofdefaultvalue: TWideStringField
      FieldName = 'fdefaultvalue'
      Size = 8
    end
    object Qbaseinfofisvisible: TBooleanField
      FieldName = 'fisvisible'
    end
  end
  object Qfieldtype: TADOQuery
    CacheSize = 1000
    Connection = DataM.AdoConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    MarshalOptions = moMarshalModifiedOnly
    Parameters = <>
    SQL.Strings = (
      'select * from tfieldtype order by fid')
    Left = 319
    Top = 144
    object Qfieldtypefid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
    end
    object Qfieldtypeffieldtype: TWideStringField
      FieldName = 'ffieldtype'
    end
  end
end