frm_k_jbdjpas.dfm

来自「是一个用delphi设计的考勤系统」· DFM 代码 · 共 1,029 行 · 第 1/3 页

      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 387
      Top = 46
      Width = 80
      Height = 16
      Caption = #21152#29677#21407#22240#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 9
      Top = 46
      Width = 72
      Height = 16
      Caption = #32467#26463#26085#26399':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 197
      Top = 46
      Width = 80
      Height = 16
      Caption = #32467#26463#26102#38388#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object ksrq: TDateTimePicker
      Left = 78
      Top = 9
      Width = 107
      Height = 24
      Date = 36761.906077314800000000
      Time = 36761.906077314800000000
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnKeyPress = ksrqKeyPress
    end
    object kssj: TDateTimePicker
      Left = 268
      Top = 9
      Width = 92
      Height = 24
      Date = 36761.906077314800000000
      Time = 36761.906077314800000000
      DateMode = dmUpDown
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      Kind = dtkTime
      ParentFont = False
      TabOrder = 2
      OnKeyPress = kssjKeyPress
    end
    object Edit1: TEdit
      Left = 456
      Top = 41
      Width = 321
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object jsrq: TDateTimePicker
      Left = 78
      Top = 41
      Width = 107
      Height = 24
      Date = 36761.906077314800000000
      Time = 36761.906077314800000000
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnKeyPress = jsrqKeyPress
    end
    object jssj: TDateTimePicker
      Left = 268
      Top = 41
      Width = 92
      Height = 24
      Date = 36761.906077314800000000
      Time = 36761.906077314800000000
      DateMode = dmUpDown
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      Kind = dtkTime
      ParentFont = False
      TabOrder = 5
      OnKeyPress = jssjKeyPress
    end
    object Rg1: TRadioButton
      Left = 571
      Top = 12
      Width = 88
      Height = 18
      Caption = #37096#38376#21517#31216#65306
      Checked = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      TabStop = True
    end
    object Rg2: TRadioButton
      Left = 372
      Top = 12
      Width = 96
      Height = 18
      Caption = #29992#25143#32534#21495#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object bmmc: TEdit
      Left = 658
      Top = 10
      Width = 122
      Height = 21
      TabOrder = 8
    end
    object yhbh: TEdit
      Left = 458
      Top = 9
      Width = 109
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnEnter = yhbhEnter
      OnKeyPress = yhbhKeyPress
    end
  end
  object BitBtn2: TBitBtn
    Left = 208
    Top = 16
    Width = 75
    Height = 25
    Caption = #26597#35810
    TabOrder = 4
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 120
    Top = 16
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 5
    OnClick = BitBtn3Click
  end
  object BitBtn1: TBitBtn
    Left = 24
    Top = 16
    Width = 81
    Height = 25
    Caption = #30331#35760
    TabOrder = 6
    OnClick = BitBtn1Click
  end
  object D5_jbjl: TDataSource
    DataSet = qryjbjl
    Left = 341
    Top = 7
  end
  object Dyhxx: TDataSource
    DataSet = Qyhxx
    Left = 405
    Top = 7
  end
  object qryjbjl: TADOQuery
    Connection = WindData.AdoConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from vkq_jbjl where 1>2')
    Left = 312
    Top = 8
    object qryjbjlyhbh: TStringField
      DisplayLabel = #29992#25143#32534#21495
      FieldName = 'yhbh'
      Size = 10
    end
    object qryjbjljbksrq: TStringField
      DisplayLabel = #21152#29677#24320#22987#26085#26399
      FieldName = 'jbksrq'
      FixedChar = True
      Size = 10
    end
    object qryjbjljbkssj: TStringField
      DisplayLabel = #21152#29677#24320#22987#26102#38388
      FieldName = 'jbkssj'
      FixedChar = True
      Size = 8
    end
    object qryjbjljbjzrq: TStringField
      DisplayLabel = #21152#29677#25130#33267#26085#26399
      FieldName = 'jbjzrq'
      FixedChar = True
      Size = 10
    end
    object qryjbjljbjzsj: TStringField
      DisplayLabel = #21152#29677#25130#33267#26102#38388
      FieldName = 'jbjzsj'
      FixedChar = True
      Size = 8
    end
    object qryjbjljbyy: TStringField
      DisplayLabel = #21152#29677#21407#22240
      FieldName = 'jbyy'
      Size = 30
    end
    object qryjbjlyhxm: TStringField
      DisplayLabel = #29992#25143#22995#21517
      FieldName = 'yhxm'
    end
  end
  object Qyhxx: TADOQuery
    Connection = WindData.AdoConn
    Parameters = <>
    SQL.Strings = (
      'select yhbh,yhxm from zx_s_yhxx'
      '  order by yhbh')
    Left = 440
    Top = 8
  end
  object pkq_A_jbjl: TADOStoredProc
    Connection = WindData.AdoConn
    ProcedureName = 'pkq_A_jbjl'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@cs'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1
        Value = Null
      end
      item
        Name = '@csz'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ksrq'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@kssj'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = Null
      end
      item
        Name = '@jsrq'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@jssj'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = Null
      end
      item
        Name = '@jbyy'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end
      item
        Name = '@Retmsg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 100
        Value = Null
      end>
    Left = 376
    Top = 8
  end
end