📄 uemployee_m.dfm

📁 程序採用了无状态连接池的三层结构
💻 DFM
字号:
inherited frmemployee_m: Tfrmemployee_m
  Left = 378
  Top = 221
  Caption = #21592#24037#36164#26009
  ClientHeight = 324
  ClientWidth = 387
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited GroupBox: TGroupBox
    Width = 289
    Height = 310
    TabOrder = 3
    inherited Label1: TLabel
      Top = 18
      Caption = #21592#24037#32534#30721
    end
    object Label2: TLabel [1]
      Left = 8
      Top = 41
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #21592#24037#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel [2]
      Left = 8
      Top = 256
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #22320#22336
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel [3]
      Left = 8
      Top = 65
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #32844#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel [4]
      Left = 8
      Top = 89
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #24615#21035
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel [5]
      Left = 8
      Top = 113
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #24180#40836
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel [6]
      Left = 8
      Top = 184
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #30005#35805
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel [7]
      Left = 8
      Top = 208
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #37096#38376
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel [8]
      Left = 8
      Top = 232
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #31867#21035
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel [9]
      Left = 8
      Top = 280
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #22791#27880
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel [10]
      Left = 4
      Top = 137
      Width = 71
      Height = 17
      AutoSize = False
      Caption = #24037#36164#35745#31639#26041#24335
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel [11]
      Left = 8
      Top = 161
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #22522#26412#24037#36164
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    inherited Edit1: TwwDBEdit
      Width = 89
      Height = 20
      DataField = 'fcode'
      DataSource = frmemployee.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Height = -12
      Font.Name = #23435#20307
      ParentFont = False
    end
    object wwDBEdit1: TwwDBEdit
      Left = 64
      Top = 40
      Width = 137
      Height = 20
      DataField = 'fname'
      DataSource = frmemployee.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit2: TwwDBEdit
      Left = 64
      Top = 256
      Width = 217
      Height = 20
      DataField = 'fadd'
      DataSource = frmemployee.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit3: TwwDBEdit
      Left = 64
      Top = 64
      Width = 121
      Height = 20
      DataField = 'fjob'
      DataSource = frmemployee.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit5: TwwDBEdit
      Left = 64
      Top = 112
      Width = 81
      Height = 20
      DataField = 'fold'
      DataSource = frmemployee.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit6: TwwDBEdit
      Left = 64
      Top = 184
      Width = 169
      Height = 20
      DataField = 'ftel'
      DataSource = frmemployee.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit9: TwwDBEdit
      Left = 64
      Top = 280
      Width = 217
      Height = 20
      DataField = 'fnote'
      DataSource = frmemployee.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 64
      Top = 88
      Width = 73
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        #36873#39033#9'8'#9#36873#39033#9#9)
      DataField = 'fsex'
      DataSource = frmemployee.DSbaseinfo
      LookupTable = CDSsex
      LookupField = #36873#39033
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 3
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBLookupCombo2: TwwDBLookupCombo
      Left = 64
      Top = 208
      Width = 121
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fname'#9'20'#9#21517#31216#9'F'
        'fcode'#9'12'#9#20195#30721#9'F')
      DataField = 'fdept'
      DataSource = frmemployee.DSbaseinfo
      LookupTable = CDSdept
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 8
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBLookupCombo3: TwwDBLookupCombo
      Left = 64
      Top = 232
      Width = 121
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fname'#9'20'#9#21517#31216#9'F'
        'fcode'#9'12'#9#20195#30721#9'F')
      DataField = 'ftype'
      DataSource = frmemployee.DSbaseinfo
      LookupTable = CDStype
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 9
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBEdit4: TwwDBEdit
      Left = 64
      Top = 160
      Width = 121
      Height = 20
      DataField = 'fwage'
      DataSource = frmemployee.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit7: TwwDBEdit
      Left = 79
      Top = 136
      Width = 164
      Height = 20
      DataField = 'fwagemeans'
      DataSource = frmemployee.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
  end
  inherited Button1: TButton
    Left = 304
    TabOrder = 0
  end
  inherited Button2: TButton
    Left = 304
    TabOrder = 1
  end
  inherited Button3: TButton
    Left = 304
    Top = 152
    TabOrder = 2
  end
  object CDSsex: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 152
    Top = 96
    object CDSsexField: TStringField
      DisplayWidth = 8
      FieldName = #36873#39033
      Size = 8
    end
  end
  object CDSdept: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 192
    Top = 168
    object CDSdeptfname: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'fname'
    end
    object CDSdeptfcode: TWideStringField
      DisplayLabel = #20195#30721
      DisplayWidth = 12
      FieldName = 'fcode'
      Size = 12
    end
    object CDSdeptfid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
  end
  object CDStype: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 200
    Top = 200
    object CDStypefname: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'fname'
    end
    object CDStypefcode: TWideStringField
      DisplayLabel = #20195#30721
      DisplayWidth = 12
      FieldName = 'fcode'
      Size = 12
    end
    object CDStypefid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
  end
end
⌨️ 快捷键说明

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