frm_adduser.dfm

是一个用delphi设计的考勤系统

        884DC2A47AE9E9E9D7D7D7CBCBCBC3C3C300D4D4D4E5E5E5F7DBB2F4C179F3BD
        71F2BA69F2B661EBAE5C1912890000D10000D10000D10000D10000D10000D100
        00D10000D10000CC0702000C0602CE974AC6944CBE904EB98E52D3BD9CE5E5E5
        D4D4D4C9C9C9C2C2C200D1D1D1DFDFDFF3E6D4F4C37DF3BF75F2BB6DF2B8651B
        14A50000D10000D10000D10000D1EFAB4AEFAA470000D10000D10000D10000D1
        0000CC070200080300CA9851C39554C09558E5DACADFDFDFD1D1D1C7C7C7C2C2
        C200CDCDCDD9D9D9EAE9E7F7D3A0F3C179F3BD716750A50000D10000D10000D1
        0000CBF0AD4FF0AD4EF0AC4CF0AC4C0000D10000D10000D10000D10000D08361
        32D29F57CA9C5AD6B688E9E8E6D9D9D9CDCDCDC5C5C5C1C1C100C9C9C9D3D3D3
        E1E1E1F3E6D5F4C37EF3C077DDAC792019C30000D10000D1F1B259F1B056F0B0
        54F0AF52F0AF51F0AE520000D10101D10201AD553F75DEA85BD7A65DD3A562EA
        DECDE1E1E1D3D3D3C9C9C9C3C3C3C0C0C000C5C5C5CDCDCDD8D8D8E7E7E7F6E0
        C0F4C27CF3BF77D3A47D2019C3F2B865F2B661F2B45EF1B35AF0B257F0B258F1
        B258F1B25A0504CF936F8BEBB260E4AE63DEAC65EAD4B5E7E7E7D8D8D8CDCDCD
        C5C5C5C1C1C1C0C0C000C3C3C3C8C8C8D0D0D0DBDBDBEAE8E5F7DEBAF4C27CF3
        C077F3BE72F3BB6CF2B968F2B764F2B762F2B560F1B660F1B560F1B561F2B762
        F2B866F0B969EAB56BEFD5B1E9E7E4DBDBDBD0D0D0C8C8C8C3C3C3C1C1C1C0C0
        C000C1C1C1C4C4C4C9C9C9D1D1D1DCDCDCE9E8E6F5E2C6F4C37DF4C179F3BE74
        F3BD70F3BC6DF3BA6AF3B967F3B967F2B968F2BA69F2BA6AF3BC6DF3BE72F4DF
        C1E9E8E5DCDCDCD1D1D1C9C9C9C4C4C4C1C1C1C0C0C0C0C0C000C0C0C0C2C2C2
        C4C4C4CACACAD1D1D1DADADAE5E5E5F2E9DCF7D9B0F4C27BF4C078F3BF75F3BE
        72F3BE71F3BD6FF2BC70F3BD71F3BE73F7D7ABF1E8DBE5E5E5DADADAD1D1D1CA
        CACAC4C4C4C2C2C2C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C2C2C2C4C4C4C9C9
        C9CFCFCFD6D6D6DFDFDFE8E7E7F0EBE2F6E5CDF7D9AFF6CB8FF4C179F6CA8DF7
        D9ACF6E4CBF0EAE1E8E7E7DFDFDFD6D6D6CFCFCFC9C9C9C4C4C4C2C2C2C0C0C0
        C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C2C2C2C4C4C4C7C7C7CBCBCBD1
        D1D1D7D7D7DDDDDDE2E2E2E6E6E6E9E9E9EAEAEAE9E9E9E6E6E6E2E2E2DDDDDD
        D7D7D7D1D1D1CBCBCBC7C7C7C4C4C4C2C2C2C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C000C0C0C0C0C0C0C0C0C0C0C0C0C1C1C1C2C2C2C5C5C5C8C8C8CBCBCBCFCFCF
        D3D3D3D5D5D5D7D7D7D8D8D8D7D7D7D5D5D5D3D3D3CFCFCFCBCBCBC8C8C8C5C5
        C5C2C2C2C1C1C1C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000}
      OnClick = ChangeImg16Click
    end
    object LabelB17: TLabelB
      Left = 216
      Top = 212
      Width = 28
      Height = 14
      Cursor = crHandPoint
      Caption = #21462#28040
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnClick = ChangeImg16Click
    end
    object Edtyhm: TEdit
      Left = 79
      Top = 8
      Width = 161
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 30
      ParentFont = False
      TabOrder = 0
      OnKeyDown = EdtyhmKeyDown
    end
    object Edtmm: TEdit
      Left = 79
      Top = 33
      Width = 161
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 10
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 1
    end
    object Edtqrmm: TEdit
      Left = 79
      Top = 58
      Width = 161
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 10
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 2
    end
    object Edtbm: TEdit
      Left = 79
      Top = 83
      Width = 161
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 30
      ParentFont = False
      TabOrder = 3
    end
    object Edtlxdh: TEdit
      Left = 79
      Top = 108
      Width = 161
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      TabOrder = 4
      OnKeyPress = EdtlxdhKeyPress
    end
    object EdtEmail: TEdit
      Left = 79
      Top = 133
      Width = 161
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 50
      ParentFont = False
      TabOrder = 5
    end
    object CbGroup: TComboBox
      Left = 79
      Top = 158
      Width = 161
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 6
      OnKeyPress = CbGroupKeyPress
    end
  end
  inherited popSystemMenu: TPopupMenu
    Left = 80
  end
  object AdoStp: TADOStoredProc
    Connection = WindData.AdoConn
    ProcedureName = 'pUsr_A_AddUser;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@OptMode'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@UsrName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end
      item
        Name = '@UsrBm'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end
      item
        Name = '@UsrPhone'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@UsrEmail'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@UsrPassword'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@GroupName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end
      item
        Name = '@Retmsg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 50
        Value = Null
      end>
    Left = 112
    Top = 8
  end
end