unttablefield.dfm

车辆管理系统

inherited frmTableField: TfrmTableField
  Left = 111
  Top = 88
  Caption = 'TableField '
  ClientHeight = 373
  ClientWidth = 754
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 754
    Height = 332
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 754
      Height = 41
      Align = alTop
      BevelInner = bvLowered
      TabOrder = 0
      object TableName: TLabel
        Left = 217
        Top = 12
        Width = 69
        Height = 16
        Caption = 'TableName:'
      end
      object Label1: TLabel
        Left = 17
        Top = 12
        Width = 56
        Height = 16
        Caption = 'DBName:'
      end
      object buttonOk: TButton
        Left = 432
        Top = 8
        Width = 75
        Height = 25
        Action = acok
        TabOrder = 1
      end
      object buttonnewly: TButton
        Left = 512
        Top = 8
        Width = 75
        Height = 25
        Action = acnewly
        TabOrder = 2
      end
      object Button3: TButton
        Left = 592
        Top = 8
        Width = 75
        Height = 25
        Action = TableRecombine
        TabOrder = 3
      end
      object edit1: TComboBox
        Left = 296
        Top = 10
        Width = 130
        Height = 24
        Style = csDropDownList
        DropDownCount = 28
        ItemHeight = 16
        TabOrder = 0
      end
      object edit2: TComboBox
        Left = 80
        Top = 10
        Width = 130
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        TabOrder = 4
        OnChange = edit2Change
      end
      object Button1: TButton
        Left = 672
        Top = 8
        Width = 75
        Height = 25
        Action = acExit
        TabOrder = 5
      end
    end
    object GridTable: TDBGridEh
      Left = 0
      Top = 41
      Width = 754
      Height = 291
      Align = alClient
      DataSource = DSBaseinfo
      FixedColor = 12835543
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = 'Arial'
      FooterFont.Style = []
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDialogFind]
      SortLocal = True
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      OnGetCellParams = GridTableGetCellParams
      OnKeyDown = GridTableKeyDown
      OnTitleClick = GridTableTitleClick
      Columns = <
        item
          EditButtons = <>
          FieldName = 'fid'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'ftableName'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'fname'
          Footers = <>
          Title.Caption = 'FieldName'
          Width = 120
        end
        item
          EditButtons = <>
          FieldName = 'ftype'
          Footers = <>
          Title.Caption = 'Type'
          Width = 150
        end
        item
          EditButtons = <>
          FieldName = 'flength'
          Footers = <>
          Title.Caption = 'Length'
        end
        item
          EditButtons = <>
          FieldName = 'fisnullable'
          Footers = <>
          Title.Caption = 'Null'
        end
        item
          EditButtons = <>
          FieldName = 'fdesc'
          Footers = <>
          Title.Caption = 'Description'
          Width = 200
        end
        item
          EditButtons = <>
          FieldName = 'fisvisible'
          Footers = <>
          Title.Caption = 'Visible'
          Width = 50
        end>
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 332
    Width = 754
    Height = 41
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 1
    object Button4: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Action = acAdd
      TabOrder = 0
    end
    object Button5: TButton
      Left = 88
      Top = 8
      Width = 75
      Height = 25
      Action = adEdit
      TabOrder = 1
    end
    object Button6: TButton
      Left = 168
      Top = 8
      Width = 75
      Height = 25
      Action = acDelete
      TabOrder = 2
    end
    object Button7: TButton
      Left = 248
      Top = 8
      Width = 75
      Height = 25
      Action = acSave
      TabOrder = 3
    end
    object Button8: TButton
      Left = 328
      Top = 8
      Width = 75
      Height = 25
      Action = acCancel
      TabOrder = 4
    end
  end
  object Baseinfo: TADOQuery
    CacheSize = 1000
    Connection = DmServer.AdoConMain
    LockType = ltBatchOptimistic
    BeforePost = BaseinfoBeforePost
    Parameters = <>
    Left = 168
    Top = 96
    object Baseinfofid: TAutoIncField
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object BaseinfoftableName: TWideStringField
      FieldName = 'ftableName'
      Visible = False
      Size = 28
    end
    object Baseinfofname: TWideStringField
      FieldName = 'fname'
      ReadOnly = True
      Size = 30
    end
    object Baseinfoftype: TWideStringField
      FieldName = 'ftype'
      ReadOnly = True
      Size = 32
    end
    object Baseinfoflength: TIntegerField
      FieldName = 'flength'
      ReadOnly = True
    end
    object Baseinfofisnullable: TBooleanField
      FieldName = 'fisnullable'
      ReadOnly = True
    end
    object Baseinfofdesc: TWideStringField
      FieldName = 'fdesc'
      Size = 48
    end
    object Baseinfofisvisible: TBooleanField
      FieldName = 'fisvisible'
    end
  end
  object DSBaseinfo: TDataSource
    DataSet = Baseinfo
    OnStateChange = DSBaseinfoStateChange
    OnDataChange = DSBaseinfoDataChange
    Left = 184
    Top = 112
  end
  object ActionList1: TActionList
    Left = 256
    Top = 112
    object acAdd: TAction
      Caption = 'Add'
      OnExecute = acAddExecute
    end
    object adEdit: TAction
      Caption = 'Edit'
      OnExecute = adEditExecute
    end
    object acDelete: TAction
      Caption = 'Delete'
      OnExecute = acDeleteExecute
    end
    object acSave: TAction
      Caption = 'Save'
      OnExecute = acSaveExecute
    end
    object acCancel: TAction
      Caption = 'Cancel'
      OnExecute = acCancelExecute
    end
    object acExit: TAction
      Caption = 'Exit'
      OnExecute = acExitExecute
    end
    object acok: TAction
      Caption = 'OK'
      OnExecute = acokExecute
    end
    object acnewly: TAction
      Caption = 'Newly'
      OnExecute = acnewlyExecute
    end
    object TableRecombine: TAction
      Caption = 'Recombine'
      OnExecute = TableRecombineExecute
    end
  end
end