📄 inqure.dfm

📁 职工信息管理系统的源代码
💻 DFM
字号:
object inqure1: Tinqure1
  Left = 173
  Top = 54
  BorderIcons = [biMinimize, biMaximize]
  BorderStyle = bsToolWindow
  Caption = #26597#35810
  ClientHeight = 307
  ClientWidth = 628
  Color = 12442079
  TransparentColor = True
  TransparentColorValue = clMoneyGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 384
    Top = 208
    Width = 217
    Height = 49
    Caption = #26597#35810#26041#24335
    Color = 5046272
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenu
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    object RadioButton3: TRadioButton
      Left = 16
      Top = 24
      Width = 97
      Height = 17
      Caption = #31934#30830#26597#35810
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMenu
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = RadioButton3Click
    end
    object RadioButton4: TRadioButton
      Left = 120
      Top = 24
      Width = 113
      Height = 17
      Caption = #27169#31946#26597#35810
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMenu
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = RadioButton4Click
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 208
    Width = 201
    Height = 49
    BiDiMode = bdRightToLeftNoAlign
    Caption = #25490#24207
    Color = 5046272
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenu
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = []
    ParentBiDiMode = False
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    object RadioButton1: TRadioButton
      Left = 8
      Top = 24
      Width = 97
      Height = 17
      Caption = #22995#21517
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMenu
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 104
      Top = 24
      Width = 97
      Height = 17
      Caption = #32534#21495
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMenu
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = RadioButton2Click
    end
  end
  object DBGrid4: TDBGrid
    Left = 432
    Top = 120
    Width = 105
    Height = 41
    Color = 11010048
    Ctl3D = False
    DataSource = DataSource4
    FixedColor = clGradientActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clCaptionText
    Font.Height = -11
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid3: TDBGrid
    Left = 536
    Top = 120
    Width = 89
    Height = 41
    Color = 11010048
    Ctl3D = False
    DataSource = DataSource3
    FixedColor = clGradientActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clHighlightText
    Font.Height = -11
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid2: TDBGrid
    Left = 3
    Top = 0
    Width = 625
    Height = 120
    Color = 11010048
    Ctl3D = False
    DataSource = DataSource2
    FixedColor = clGradientActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clCaptionText
    Font.Height = -11
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 120
    Width = 433
    Height = 41
    Color = 11010048
    Ctl3D = False
    DataSource = DataSource1
    FixedColor = clGradientActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object button2: TBitBtn
    Left = 32
    Top = 271
    Width = 75
    Height = 25
    Hint = #35831#21333#20987#24110#21161#20013#30340#26377#20851'"'#32844#24037#31649#29702'"'#25353#38062
    Caption = #24110#21161
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = Button2Click
    Kind = bkHelp
  end
  object button3: TBitBtn
    Left = 527
    Top = 272
    Width = 75
    Height = 25
    Caption = #36864#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    OnClick = Button3Click
    Kind = bkClose
  end
  object button1: TBitBtn
    Left = 256
    Top = 224
    Width = 75
    Height = 25
    Caption = #26597#35810
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    OnClick = Button1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
      33333333333F8888883F33330000324334222222443333388F3833333388F333
      000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
      F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
      223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
      3338888300003AAAAAAA33333333333888888833333333330000333333333333
      333333333333333333FFFFFF000033333333333344444433FFFF333333888888
      00003A444333333A22222438888F333338F3333800003A2243333333A2222438
      F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
      22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
      33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
      3333333333338888883333330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object DataSource2: TDataSource
    DataSet = zgb
    Left = 208
    Top = 264
  end
  object zgb: TTable
    TableName = 'zgb.DB'
    Left = 160
    Top = 256
    object zgbBDEDesigner: TStringField
      FieldName = #32844#24037#32534#21495
    end
    object zgbBDEDesigner2: TStringField
      FieldName = #22995#21517
    end
    object zgbBDEDesigner3: TStringField
      FieldName = #24615#21035
      Size = 2
    end
    object zgbDate: TDateField
      DisplayLabel = #20986#29983#26085#26399
      FieldName = 'Date'
    end
    object zgbBDEDesigner4: TStringField
      FieldName = #37096#38376#21495
      Visible = False
      Size = 3
    end
    object zgbBDEDesigner5: TStringField
      FieldName = #32844#31216
    end
  end
  object DataSource4: TDataSource
    DataSet = zc
    Left = 360
    Top = 64
  end
  object zc: TTable
    DatabaseName = 'c:\dd'
    IndexFieldNames = #32844#31216
    MasterFields = #32844#31216
    MasterSource = DataSource2
    TableName = 'zc.db'
    Left = 272
    Top = 48
    object zcBDEDesigner: TStringField
      FieldName = #32844#31216
    end
    object zcBDEDesigner2: TStringField
      FieldName = #22522#26412#24037#36164
    end
  end
  object DataSource1: TDataSource
    DataSet = gzb
    Left = 112
    Top = 264
  end
  object gzb: TTable
    DatabaseName = 'c:\dd'
    IndexFieldNames = #32844#24037#32534#21495
    MasterFields = #32844#24037#32534#21495
    MasterSource = DataSource2
    TableName = 'gzb.db'
    Left = 48
    Top = 256
    object gzbBDEDesigner: TStringField
      FieldName = #32844#24037#32534#21495
    end
    object gzbBDEDesigner2: TStringField
      FieldName = #30719#24037
      Size = 8
    end
    object gzbBDEDesigner3: TStringField
      FieldName = #36831#21040
      Size = 2
    end
    object gzbBDEDesigner4: TStringField
      FieldName = #20107#20551
      Size = 2
    end
    object gzbBDEDesigner5: TStringField
      FieldName = #22870#37329
      Size = 2
    end
  end
  object chang: TTable
    TableName = 'chang.db'
    Left = 424
    Top = 248
    object changSj: TFloatField
      FieldName = 'Sj'
    end
    object changKg: TFloatField
      FieldName = 'Kg'
    end
    object changCd: TFloatField
      FieldName = 'Cd'
    end
  end
  object DataSource3: TDataSource
    DataSet = bmb
    Left = 280
    Top = 264
  end
  object bmb: TTable
    IndexFieldNames = #37096#38376#21495
    MasterFields = #37096#38376#21495
    MasterSource = DataSource2
    TableName = 'bmb.db'
    Left = 360
    Top = 264
    object bmbBDEDesigner: TStringField
      FieldName = #37096#38376#21495
      Visible = False
      Size = 3
    end
    object bmbBDEDesigner2: TStringField
      FieldName = #37096#38376#21517#31216
    end
  end
end
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -