frm_k_qjdjpas.dfm

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

      Left = 31
      Top = 63
      Width = 16
      Height = 16
      Caption = #21040
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object qqyy: TEdit
      Left = 600
      Top = 59
      Width = 188
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object qqbh: TComboBox
      Left = 399
      Top = 59
      Width = 117
      Height = 24
      ItemHeight = 16
      TabOrder = 1
    end
    object yhbh: TEdit
      Left = 398
      Top = 21
      Width = 116
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imClose
      ParentFont = False
      TabOrder = 2
      OnEnter = yhbhEnter
      OnKeyPress = yhbhKeyPress
    end
    object Rg1: TRadioButton
      Left = 543
      Top = 24
      Width = 53
      Height = 18
      Caption = #38598#20307
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object bmmc: TEdit
      Left = 600
      Top = 21
      Width = 188
      Height = 24
      ReadOnly = True
      TabOrder = 4
    end
    object Rg2: TRadioButton
      Left = 307
      Top = 24
      Width = 90
      Height = 18
      Caption = #29992#25143#32534#21495#65306
      Checked = True
      TabOrder = 5
      TabStop = True
    end
    object ksrq: TDateTimePicker
      Left = 75
      Top = 24
      Width = 106
      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 = 6
    end
    object jsrq: TDateTimePicker
      Left = 75
      Top = 59
      Width = 106
      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 = 7
    end
    object Panel1: TPanel
      Left = 184
      Top = 54
      Width = 120
      Height = 29
      BevelInner = bvLowered
      BiDiMode = bdRightToLeft
      ParentBiDiMode = False
      TabOrder = 8
      object rbnsj2: TRadioButton
        Left = 7
        Top = 7
        Width = 48
        Height = 18
        Caption = #19978#21320
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object rbnsj3: TRadioButton
        Left = 55
        Top = 7
        Width = 60
        Height = 18
        Caption = #19979#21320
        Checked = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        TabStop = True
      end
    end
    object Panel4: TPanel
      Left = 184
      Top = 20
      Width = 120
      Height = 31
      BevelInner = bvLowered
      BiDiMode = bdRightToLeft
      ParentBiDiMode = False
      TabOrder = 9
      object RadioButton2: TRadioButton
        Left = 7
        Top = 7
        Width = 59
        Height = 18
        Caption = #19978#21320
        Checked = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        TabStop = True
      end
      object RadioButton5: TRadioButton
        Left = 55
        Top = 7
        Width = 50
        Height = 18
        Caption = #19979#21320
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object rbnsj1: TRadioButton
        Left = 141
        Top = 10
        Width = 57
        Height = 18
        Caption = #25972#22825
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 24
    Top = 16
    Width = 81
    Height = 25
    Caption = #30331#35760
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 208
    Top = 16
    Width = 75
    Height = 25
    Caption = #26597#35810
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 120
    Top = 16
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 4
    OnClick = BitBtn3Click
  end
  object D5_qqjl: TDataSource
    DataSet = Q5_qqjl
    Left = 483
    Top = 17
  end
  object Dyhxx: TDataSource
    DataSet = Qyhxx
    Left = 371
    Top = 16
  end
  object Qyhxx: TADOQuery
    Connection = WindData.AdoConn
    Parameters = <>
    SQL.Strings = (
      'select yhbh,yhxm from zx_s_yhxx  order by yhbh')
    Left = 336
    Top = 16
    object Qyhxxyhbh: TStringField
      DisplayLabel = #29992#25143#32534#21495
      FieldName = 'yhbh'
    end
    object Qyhxxyhxm: TStringField
      DisplayLabel = #29992#25143#22995#21517
      FieldName = 'yhxm'
    end
  end
  object Q5_qqjl: TADOQuery
    Connection = WindData.AdoConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from vkq_qjjl where 1<2')
    Left = 440
    Top = 16
  end
  object pkq_A_qjdj: TADOStoredProc
    Connection = WindData.AdoConn
    ProcedureName = 'pkq_A_qjdj'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@sType'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1
        Value = Null
      end
      item
        Name = '@Params'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ksrq'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@jsrq'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@ksrqlb'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@jsrqlb'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@sjlb'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@qqbh'
        Attributes = [paNullable]
        DataType = ftString
        Size = 2
        Value = Null
      end
      item
        Name = '@qqyy'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end
      item
        Name = '@Retmsg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 100
        Value = Null
      end>
    Left = 536
    Top = 16
  end
end