udata.~dfm

学生信息管理系统

inherited FData: TFData
  Left = 153
  Top = 147
  Width = 783
  Height = 508
  Caption = 'FData'
  FormStyle = fsMDIChild
  OldCreateOrder = True
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 171
    Top = 43
    Height = 412
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 455
    Width = 775
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 775
    Height = 43
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 41
        Width = 771
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 758
      Height = 41
      ButtonHeight = 35
      ButtonWidth = 43
      Caption = 'ToolBar1'
      Images = FMain.ImageList
      ShowCaptions = True
      TabOrder = 0
      object Tool_add: TToolButton
        Left = 0
        Top = 2
        Action = A_add
      end
      object Tool_modify: TToolButton
        Left = 43
        Top = 2
        Action = A_modify
      end
      object Tool_save: TToolButton
        Left = 86
        Top = 2
        Action = A_save
      end
      object Tool_delete: TToolButton
        Left = 129
        Top = 2
        Action = A_delete
      end
      object Tool_cancel: TToolButton
        Left = 172
        Top = 2
        Action = A_cancel
      end
      object Tool_print: TToolButton
        Left = 215
        Top = 2
        Action = A_preview
      end
      object ToolButton7: TToolButton
        Left = 258
        Top = 2
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object Tool_prior: TToolButton
        Left = 266
        Top = 2
        Action = A_pr
      end
      object Tool_next: TToolButton
        Left = 309
        Top = 2
        Action = A_next
      end
      object ToolButton1: TToolButton
        Left = 352
        Top = 2
        Action = A_refresh
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 43
    Width = 171
    Height = 412
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 2
    object Shape1: TShape
      Left = 0
      Top = 0
      Width = 171
      Height = 412
      Align = alClient
    end
  end
  object Panel2: TPanel
    Left = 174
    Top = 43
    Width = 601
    Height = 412
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object DBGridEh: TDBGridEh
      Left = 0
      Top = 0
      Width = 601
      Height = 412
      Align = alClient
      DataSource = DataSource
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgMultiSelect]
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghTraceColSizing, dghDialogFind]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGridEhDblClick
    end
  end
  object ActionList: TActionList
    Images = FMain.ImageList
    Left = 144
    Top = 104
    object A_add: TAction
      Caption = #22686'  '#21152
      ImageIndex = 15
      ShortCut = 16449
      OnExecute = A_addExecute
    end
    object A_modify: TAction
      Caption = #20462' '#25913
      ImageIndex = 13
      ShortCut = 16453
      OnExecute = A_modifyExecute
    end
    object A_save: TAction
      Caption = #20445'  '#23384
      ImageIndex = 0
      ShortCut = 16467
      OnExecute = A_saveExecute
    end
    object A_delete: TAction
      Caption = #21024'  '#38500
      ImageIndex = 10
      ShortCut = 16452
      OnExecute = A_deleteExecute
    end
    object A_cancel: TAction
      Caption = #25764'  '#28040
      ImageIndex = 2
      ShortCut = 27
      OnExecute = A_cancelExecute
    end
    object A_preview: TAction
      Caption = #25171'  '#21360
      ImageIndex = 3
      OnExecute = A_previewExecute
    end
    object A_pr: TAction
      Caption = #19978#19968#26465
      ImageIndex = 7
      OnExecute = A_prExecute
    end
    object A_next: TAction
      Caption = #19979#19968#26465
      ImageIndex = 12
      OnExecute = A_nextExecute
    end
    object A_refresh: TAction
      Caption = #21047' '#26032
      ImageIndex = 22
      OnExecute = A_refreshExecute
    end
  end
  object ADOQuery: TADOQuery
    Connection = FMain.ADOConnection
    AfterOpen = ADOQueryAfterOpen
    OnCalcFields = ADOQueryCalcFields
    Parameters = <>
    Left = 224
    Top = 56
    object ADOQueryvxh: TIntegerField
      DisplayLabel = #24207#21495
      FieldKind = fkCalculated
      FieldName = 'vxh'
      Calculated = True
    end
  end
  object DataSource: TDataSource
    DataSet = ADOQuery
    OnStateChange = DataSourceStateChange
    Left = 260
    Top = 55
  end
  object PrintDBGridEh: TPrintDBGridEh
    DBGridEh = DBGridEh
    Options = []
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -11
    PageHeader.Font.Name = 'MS Sans Serif'
    PageHeader.Font.Style = []
    Units = MM
    Left = 212
    Top = 119
  end
end