u_form_select.dfm

超信人力资源管理系统,一个用Delphi编写的人事管理系统

object F_Form_Select: TF_Form_Select
  Left = 342
  Top = 163
  Width = 507
  Height = 373
  Caption = #31383#20307#36873#25321
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 499
    Height = 41
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 13
      Width = 97
      Height = 13
      AutoSize = False
      Caption = #35831#36755#20837#31383#20307#26631#39064
    end
    object Edit1: TEdit
      Left = 120
      Top = 10
      Width = 105
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnKeyDown = Edit1KeyDown
    end
    object BTN_find: TBitBtn
      Left = 248
      Top = 8
      Width = 75
      Height = 25
      Caption = #26597#25214
      TabOrder = 1
      OnClick = BTN_findClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33033333333333333F7F3333333333333000333333333333F777333333333333
        000333333333333F777333333333333000333333333333F77733333333333300
        033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
        33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
        3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
        33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
        333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
        333333773FF77333333333370007333333333333777333333333}
      NumGlyphs = 2
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 41
    Width = 499
    Height = 305
    Align = alClient
    DataSource = DS_main
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    SumList.Active = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGridEh1DblClick
    OnDrawColumnCell = DBGridEh1DrawColumnCell
    Columns = <
      item
        EditButtons = <>
        FieldName = 'Formname'
        Footer.Value = #24635#35760#24405#25968#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Width = 95
      end
      item
        EditButtons = <>
        FieldName = 'Caption'
        Footer.ValueType = fvtCount
        Footers = <>
        Width = 115
      end
      item
        EditButtons = <>
        FieldName = 'Formstyle'
        Footers = <>
        Width = 258
      end>
  end
  object Q_main: TADOQuery
    Connection = DM.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select  * from TB_Form')
    Left = 376
    Top = 136
    object Q_mainSID: TGuidField
      FieldName = 'SID'
      FixedChar = True
      Size = 38
    end
    object Q_mainFormname: TStringField
      DisplayLabel = #31383#20307#21517#31216
      FieldName = 'Formname'
      Size = 50
    end
    object Q_mainCaption: TStringField
      DisplayLabel = #31383#20307#26631#39064
      FieldName = 'Caption'
      Size = 50
    end
    object Q_mainFormstyle: TStringField
      DisplayLabel = #31383#20307#27169#24335
      FieldName = 'Formstyle'
      Size = 50
    end
    object Q_mainWidth: TIntegerField
      FieldName = 'Width'
    end
    object Q_mainHeight: TIntegerField
      FieldName = 'Height'
    end
    object Q_mainFormLeft: TIntegerField
      FieldName = 'FormLeft'
    end
    object Q_mainFormTop: TIntegerField
      FieldName = 'FormTop'
    end
    object Q_mainMain_table: TStringField
      FieldName = 'Main_table'
      Size = 50
    end
    object Q_mainDetail_table: TStringField
      FieldName = 'Detail_table'
      Size = 50
    end
    object Q_mainKey_Field: TStringField
      FieldName = 'Key_Field'
      Size = 50
    end
  end
  object DS_main: TDataSource
    DataSet = Q_main
    Left = 384
    Top = 88
  end
end