轻松搞定数据访问层[续1]

最新推荐文章于 2022-09-26 12:37:21 发布
最新推荐文章于 2022-09-26 12:37:21 发布
阅读量1.1k 收藏
点赞数
分类专栏： 数据访问层 文章标签： string function dataset object exception each
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/yuhonglai/article/details/54661
版权

' clsSQLBuilder

‘ By YuHonglai

‘ www.hahaIT.com

‘ hahasoft@msn.com

 

' Note:提供重载方法以指明表名称，默认情况下，是传入参数 o 的类型＋"tbl_",此时类名称必须是 clsXXX 的形式.

' 如：

' dim Rooms as new clsRooms

' SQLBuilder.Add(Rooms)

' 此时程序将把 clsRooms 转换成 tbl_Rooms,以操作数据库表 tbl_Rooms

' 如果类名称和数据库表名称不具有上述对应关系，请使用 Add(o,"TableName")形式的方法，以显示指定要操作的数据库表的名称

 

Public Class SQLBuilder

 

    ' 当要生成的SQL语句的 where 条件语句很复杂时，用该常量作为 Select 方法中 FindCondition(HashTable)

    ' Key,例如：要生成 where Birth<' 2000-4-4 ' and Birth>' 1980-1-1 ' 的复杂条件时，用以下方法:

    ' Dim h as new HashTable

    ' h.Add(ComplexSQL,"_Birth<' 2000-4-4 ' and _Birth>' 1980-1-1 '")

    ' 注意，Birth是实体类的属性名称，前面必须有一个下划线 "_"

    ' 处理时，程序将用实际数据库字段名称代替相应的 _Birth

 

    Public Const ComplexSQL As String = "@ComplexSQL"

 

    ' 根具实体类生成相应的 Insert ...SQL 语句

    ' 如果与数据库表名称对应的属性时 关键字段而且是自动增加值时(在DB.XML文件中seed的值为 1 )

    ' 那么该属相将忽略,不会出现在返回的 Insert... SQL语句中

    Public Overloads Shared Function Add(ByVal o As Object) As String

        Dim typeString As String = o.GetType.ToString

        Dim i As Int16

        i = typeString.IndexOf("cls") + 3

        typeString = "tbl_" & typeString.Substring(i, typeString.Length - i)

        Return Add(o, typeString)

    End Function

 

    Public Overloads Shared Function Add(ByVal o As Object, ByVal TableName As String) As String

        Try

            Dim outSQL As String

            Dim tmpString As String

 

            outSQL = "insert into [" & TableName & "]("

            tmpString = ""

 

            Dim dsDB As New DataSet

            dsDB.ReadXml(clsPersistant.DBConfigPath)

 

            Dim row As Data.DataRow

 

            For Each row In dsDB.Tables(TableName).Rows

                If row.Item("seed") & "" = "0" Then

                    outSQL = outSQL & row.Item("dbname") & ","

                    tmpString = tmpString & getS(row.Item("type")) & "@" & row.Item("dbname") & getS(row.Item("type")) & ","

                End If

            Next

            outSQL = outSQL.Substring(0, outSQL.Length - 1)

            tmpString = tmpString.Substring(0, tmpString.Length - 1)

            outSQL = outSQL & ") values (" & tmpString & ")"

 

            For Each row In dsDB.Tables(TableName).Rows

                If row.Item("seed") & "" <> "1" Then

                    ' tmpString = o.GetType.InvokeMember(row.Item("name"), Reflection.BindingFlags.GetField Or Reflection.BindingFlags.GetProperty, Nothing, o, New Object() {}) & ""

                    tmpString = CallByName(o, CType(row.Item("name"), String).Trim, CallType.Get) & ""

                    If tmpString = "True" Then

                        tmpString = "1"

                    ElseIf tmpString = "False" Then

                        tmpString = "0"

                    End If

                    outSQL = outSQL.Replace("@" & row.Item("dbname"), tmpString)

                End If

            Next

 

            Return outSQL.Trim

        Catch ex As Exception

            Throw ex

        End Try

    End Function

 

    ' 如 Add 方法，关键字段不会更新

    ' 而且关键字段会作为 update....where .... 的 where 的条件出现

    Public Overloads Shared Function Update(ByVal o As Object) As String

        Dim typeString As String = o.GetType.ToString

        Dim i As Int16

        i = typeString.IndexOf("cls") + 3

        typeString = "tbl_" & typeString.Substring(i, typeString.Length - i)

        Return Update(o, typeString)

    End Function

 

    Public Overloads Shared Function Update(ByVal o As Object, ByVal TableName As String) As String

        Try

            Dim outString As String = ""

            Dim tmpString As String

            outString = "update [" & TableName & "] set "

            tmpString = ""

            Dim whereString As String = ""

 

            Dim dsDB As New DataSet

            dsDB.ReadXml(clsPersistant.DBConfigPath)

 

            Dim row As Data.DataRow

 

            For Each row In dsDB.Tables(TableName).Rows

                If row.Item("key") & "" = "1" Then

                    whereString = whereString & row.Item("dbname") & "=" & getS(row.Item("type")) & "@" & row.Item("dbname") & getS(row.Item("type")) & " and "

                Else

                    tmpString = tmpString & row.Item("dbname") & "=" & getS(row.Item("type")) & "@" & row.Item("dbname") & getS(row.Item("type")) & ","

                End If

            Next

            If whereString.Trim = "" Then

                Throw New Exception("必须指定一个以上的主键!")

            End If

            tmpString = tmpString.Substring(0, tmpString.Length - 1)

            whereString = whereString.Substring(0, whereString.Length - 4)

            outString = outString & tmpString & " where " & whereString

 

            For Each row In dsDB.Tables(TableName).Rows

                ' tmpString = o.GetType.InvokeMember(row.Item("name"), Reflection.BindingFlags.GetField Or Reflection.BindingFlags.GetProperty, Nothing, o, New Object() {}) & ""

                tmpString = CallByName(o, CType(row.Item("name"), String).Trim, CallType.Get) & ""

                If tmpString = "True" Then

                    tmpString = "1"

                ElseIf tmpString = "False" Then

                    tmpString = "0"

                End If

                outString = outString.Replace("@" & row.Item("dbname"), tmpString)

            Next

 

            Return outString.Trim

        Catch ex As Exception

            Throw ex

        End Try

    End Function

 

    ' 更具对象的关键属性(与数据库表的关键字段对应)删除指定的记录

    ' 对象的其他属性将被忽略

    Public Overloads Shared Function Delete(ByVal o As Object) As String

        Dim typeString As String = o.GetType.ToString

        Dim i As Int16

        i = typeString.IndexOf("cls") + 3

        typeString = "tbl_" & typeString.Substring(i, typeString.Length - i)

        Return Delete(o, typeString)

    End Function

 

    Public Overloads Shared Function Delete(ByVal o As Object, ByVal TableName As String) As String

        Try

            Dim outString As String = ""

            Dim tmpString As String

            outString = "delete from [" & TableName & "] where "

            Dim whereString As String = ""

 

            Dim dsDB As New DataSet

            dsDB.ReadXml(clsPersistant.DBConfigPath)

 

            Dim row As Data.DataRow

 

            For Each row In dsDB.Tables(TableName).Rows

                If row.Item("key") & "" = "1" Then

                    whereString = whereString & row.Item("dbname") & "=" & getS(row.Item("type")) & "@" & row.Item("dbname") & getS(row.Item("type")) & " and "

                End If

            Next

            If whereString.Trim = "" Then

                Throw New Exception("必须指定一个以上的主键!")

            End If

 

            whereString = whereString.Substring(0, whereString.Length - 4)

            outString = outString & tmpString & whereString

 

            For Each row In dsDB.Tables(TableName).Rows

                If row.Item("key") & "" = "1" Then

                    ' tmpString = o.GetType.InvokeMember(row.Item("name"), Reflection.BindingFlags.GetField Or Reflection.BindingFlags.GetProperty, Nothing, o, New Object() {}) & ""

                    tmpString = CallByName(o, CType(row.Item("name"), String).Trim, CallType.Get) & ""

                    outString = outString.Replace("@" & row.Item("dbname"), tmpString)

                End If

            Next

 

            Return outString.Trim

        Catch ex As Exception

            Throw ex

        End Try

    End Function

 

    ' 更具对象的关键属性(与数据库表的关键字段对应)判断该对象是否存在于数据库中

    ' 对象的其他属性将被忽略

    Public Overloads Shared Function Exists(ByVal o As Object) As String

        Dim typeString As String = o.GetType.ToString

        Dim i As Int16

        i = typeString.IndexOf("cls") + 3

        typeString = "tbl_" & typeString.Substring(i, typeString.Length - i)

        Return Exists(o, typeString)

    End Function

 

    Public Overloads Shared Function Exists(ByVal o As Object, ByVal TableName As String) As String

        Try

            Dim outString As String

            outString = "select count(*) from [" & TableName & "] where "

 

            Dim tmpString As String

            Dim whereString As String = ""

 

            Dim dsDB As New DataSet

            dsDB.ReadXml(clsPersistant.DBConfigPath)

 

            Dim row As Data.DataRow

 

            For Each row In dsDB.Tables(TableName).Rows

                If row.Item("key") & "" = "1" Then

                    whereString = whereString & row.Item("dbname") & "=" & getS(row.Item("type")) & "@" & row.Item("dbname") & getS(row.Item("type")) & " and "

                End If

            Next

            If whereString.Trim = "" Then

                Throw New Exception("必须指定一个以上的主键!")

            End If

 

            whereString = whereString.Substring(0, whereString.Length - 4)

            outString = outString & tmpString & whereString

 

            For Each row In dsDB.Tables(TableName).Rows

                If row.Item("key") & "" = "1" Then

                    ' tmpString = o.GetType.InvokeMember(row.Item("name"), Reflection.BindingFlags.GetField Or Reflection.BindingFlags.GetProperty, Nothing, o, New Object() {}) & ""

                    tmpString = CallByName(o, CType(row.Item("name"), String).Trim, CallType.Get) & ""

                    outString = outString.Replace("@" & row.Item("dbname"), tmpString)

                End If

            Next

 

            Return outString.Trim

        Catch ex As Exception

            Throw ex

        End Try

    End Function

 

    ' 生成 First SQL语句

    Public Overloads Shared Function First(ByVal o As Object) As String

        Dim typeString As String = o.GetType.ToString

        Dim i As Int16

        i = typeString.IndexOf("cls") + 3

        typeString = "tbl_" & typeString.Substring(i, typeString.Length - i)

        Return First(typeString)

    End Function

 

    Public Overloads Shared Function First(ByVal TableName As String) As String

        Dim MoudleSQL As String

        MoudleSQL = "select * from [%TableName%] where [%key%] in(select Min([%key%]) from [%TableName%])"

 

        Dim key As String

        Dim dsDB As New DataSet

        dsDB.ReadXml(clsPersistant.DBConfigPath)

        Dim row As Data.DataRow

        For Each row In dsDB.Tables(TableName).Rows

            If row.Item("key") = "1" Then

                key = CType(row.Item("dbname"), String).Trim

                Exit For

            End If

        Next

 

        MoudleSQL = MoudleSQL.Replace("%TableName%", TableName)

        MoudleSQL = MoudleSQL.Replace("%key%", key)

        Return MoudleSQL

    End Function

 

    Public Overloads Shared Function Last(ByVal o As Object) As String

        Dim typeString As String = o.GetType.ToString

        Dim i As Int16

        i = typeString.IndexOf("cls") + 3

        typeString = "tbl_" & typeString.Substring(i, typeString.Length - i)

        Return Last(typeString)

    End Function

 

    Public Overloads Shared Function Last(ByVal TableName As String) As String

        Dim MoudleSQL As String

        MoudleSQL = "select * from [%TableName%] where [%key%] in(select Max([%key%]) from [%TableName%])"

 

        Dim key As String

        Dim dsDB As New DataSet

        dsDB.ReadXml(clsPersistant.DBConfigPath)

        Dim row As Data.DataRow

        For Each row In dsDB.Tables(TableName).Rows

            If row.Item("key") = "1" Then

                key = CType(row.Item("dbname"), String).Trim

                Exit For

            End If

        Next

 

        MoudleSQL = MoudleSQL.Replace("%TableName%", TableName)

        MoudleSQL = MoudleSQL.Replace("%key%", key)

        Return MoudleSQL

    End Function

 

    Public Overloads Shared Function Previous(ByVal o As Object) As String

        Dim typeString As String = o.GetType.ToString

        Dim i As Int16

        i = typeString.IndexOf("cls") + 3

        typeString = "tbl_" & typeString.Substring(i, typeString.Length - i)

        Return Previous(o, typeString)

    End Function

 

    Public Overloads Shared Function Previous(ByVal o As Object, ByVal TableName As String) As String

        Dim MoudleSQL As String

        MoudleSQL = "select * from [%TableName%] where [%key%] in(select Max([%key%]) from [%TableName%] where [%key%]<%keyValue%)"

 

        Dim key As String

        Dim propertyName As String

        Dim propertyValue As String

 

        Dim dsDB As New DataSet

        dsDB.ReadXml(clsPersistant.DBConfigPath)

        Dim row As Data.DataRow

        For Each row In dsDB.Tables(TableName).Rows

            If row.Item("key") = "1" Then

                key = CType(row.Item("dbname"), String).Trim

                propertyName = CType(row.Item("name"), String).Trim

                Exit For

            End If

        Next

        ' propertyValue = o.GetType.InvokeMember(propertyName, Reflection.BindingFlags.GetField Or Reflection.BindingFlags.GetProperty, Nothing, o, New Object() {}) & ""

        propertyValue = CallByName(o, propertyName, CallType.Get) & ""

 

        MoudleSQL = MoudleSQL.Replace("%TableName%", TableName)

        MoudleSQL = MoudleSQL.Replace("%key%", key)

        MoudleSQL = MoudleSQL.Replace("%keyValue%", propertyValue)

        Return MoudleSQL

    End Function

 

    Public Overloads Shared Function [Next](ByVal o As Object) As String

        Dim typeString As String = o.GetType.ToString

        Dim i As Int16

        i = typeString.IndexOf("cls") + 3

        typeString = "tbl_" & typeString.Substring(i, typeString.Length - i)

        Return [Next](o, typeString)

    End Function

 

    Public Overloads Shared Function [Next](ByVal o As Object, ByVal TableName As String) As String

        Dim MoudleSQL As String

        MoudleSQL = "select * from [%TableName%] where [%key%] in(select Min([%key%]) from [%TableName%] where [%key%]>%keyValue%)"

 

        Dim key As String

        Dim propertyName As String

        Dim propertyValue As String

 

        Dim dsDB As New DataSet

        dsDB.ReadXml(clsPersistant.DBConfigPath)

        Dim row As Data.DataRow

        For Each row In dsDB.Tables(TableName).Rows

            If row.Item("key") = "1" Then

                key = CType(row.Item("dbname"), String).Trim

                propertyName = CType(row.Item("name"), String).Trim

                Exit For

            End If

        Next

        ' propertyValue = o.GetType.InvokeMember(propertyName, Reflection.BindingFlags.GetField Or Reflection.BindingFlags.GetProperty, Nothing, o, New Object() {}) & ""

        propertyValue = CallByName(o, propertyName, CallType.Get) & ""

 

        MoudleSQL = MoudleSQL.Replace("%TableName%", TableName)

        MoudleSQL = MoudleSQL.Replace("%key%", key)

        MoudleSQL = MoudleSQL.Replace("%keyValue%", propertyValue)

        Return MoudleSQL

    End Function

 

    ' 见 public const ComplexSQL 的说明

    Public Shared Function [Select](ByVal FindCondition As Hashtable, ByVal TableName As String) As String

        Dim outSQL As String

        If FindCondition.Contains(ComplexSQL) Then  ' 处理复杂类型的 Where 从句

            outSQL = "select * from [" & TableName & "] where " & FindCondition(ComplexSQL)

            Dim row As Data.DataRow

            Dim dsDB As New DataSet

            dsDB.ReadXml(clsPersistant.DBConfigPath)

            For Each row In dsDB.Tables(TableName).Rows

                outSQL = outSQL.Replace("_" & CType(row.Item("name"), String).Trim, "[" & CType(row.Item("dbname"), String).Trim & "]")

            Next

        Else

            outSQL = "select * from [" & TableName & "] where "

            Dim whereString As String = ""

 

            Dim eachKey As Object

            For Each eachKey In FindCondition.Keys

                whereString = whereString & CType(eachKey, String) & "=" & getS(getTypeByName(TableName, CType(eachKey, String))) & FindCondition(eachKey) & getS(getTypeByName(TableName, CType(eachKey, String))) & " and "

            Next

            If whereString.Length = 0 Then

                whereString = "0=0"

            Else

                whereString = whereString.Substring(0, whereString.Length - 5)

            End If

            outSQL = outSQL & whereString

        End If

 

        Return outSQL

    End Function

 

    ' 返回指定的字段(数据库表字段的名称)的数据类型名称(VB数据类型)

    Private Shared Function getTypeByName(ByVal TableName As String, ByVal n As String) As String

        Dim outStr As String

        Dim dsDB As New Data.DataSet

        dsDB.ReadXml(clsPersistant.DBConfigPath)

        Dim eachRow As DataRow

        For Each eachRow In dsDB.Tables(TableName).Rows

            If CType(eachRow.Item("dbname"), String).Trim.ToLower = n.Trim.ToLower Then

                outStr = CType(eachRow.Item("type"), String).Trim.ToLower

                Exit For

            End If

        Next

        Return outStr

    End Function

 

    ' 根具数据类型名称，返回空或' SQL语句中数字和字符型是否被‘括起来

    Private Shared Function getS(ByVal t As String) As String

        Dim outString As String

        t = t.ToLower.Trim

        If t = "single" Or t = "int16" Or t = "int32" Or t = "int64" Or t = "double" Or t = "byte" Then

            outString = ""

            Return outString

        ElseIf t = "date" Or t = "string" Then

            outString = "'"

            Return outString

        End If

    End Function

 

End Class

 

yuhonglai
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
python链接数据库的报错——1045
qq_41856548的博客
05-14 3093
再pycharm中连接数据库报错import hashlib,os,requests,ast import pymysql from bs4 import BeautifulSoup #数据库链接 conn=pymysql.connect(host="localhost",port=3306,user="root",passwd="1820401746yuan.A",db="pm") cursor...
连接失败：(1045, “Access denied for user ‘root‘@‘localhost‘ (using password: YES)“)
weixin_63311205的博客
06-24 148
在Python脚本中，应该直接提供密码的字符串，而不是使用命令行提示符来输入密码。请确保在Python脚本中提供的密码与在MySQL命令行客户端中使用的密码完全一致。在尝试网上的各种解决办法皆无果后.........可以成功登录，但在Python脚本中使用。发现是这个问题:尽管在命令行中使用。时，密码可能需要不同的处理。
pymysql报1045错误
weixin_42586726的博客
09-26 9665
pymysql解决1045报错
python连接数据库mysql错误1045_Python无法连接MySQL数据库是什么原因？
weixin_39640573的博客
11-28 229
我想要使用Python来连接MySQL数据库，但是报了如下错误File "/usr/local/lib/python3.5/dist-packages/pymysql/__init__.py", line 94, in Connectreturn Connection(*args, **kwargs)File "/usr/local/lib/python3.5/dist-packages/pymy...
python:连接mysql出现1045或1698 "Access denied for user..."错误提示
weixin_42480489的博客
10-15 4396
环境：ubantu18.04,python3,jupyter notebook import pymysql conn = pymysql.connect(host=“127.0.0.1”,user=“root”,passwd=“123123”,db=“test_database”) 出现1045 &quot;Access denied for user等错误提示 解决问题 经分析，很可能是因为mysql ...
技巧20轻松搞定数据系列的名称共2页.pdf.zip
11-20
本资源“技巧20轻松搞定数据系列的名称共2页.pdf.zip”似乎提供了一个简洁的指南，旨在帮助用户更轻松地处理数据集中的列名或系列名称。这个压缩包包含一个PDF文件，可能涵盖了实用的方法和最佳实践，尽管具体的内容...
轻松搞定C++语言_C++_轻松搞定C++_
09-30
c++语言讲义，帮助你轻松搞定C++，欢迎大家下载
轻松搞定VMware虚拟机的数据恢复
09-30
本篇文章主要介绍了VMware虚拟机的数据恢复，也给大家做个参考。一起跟随小编过来看看吧
SQL Server数据汇总五招轻松搞定
12-15
本文我们将讨论如何使用GROUPBY子句来汇总数据。 使用单独列分组 GROUP BY子句通过设置分组条件来汇总数据，在第一个例子中，我在数据库AdventureWork2012中的表 Sales.SalesOrderDetail.中的一列上进行数据分组操作...
Python实现连接操作MySql数据库
热门推荐
让编程改变世界
01-10 3万+
在本文中介绍 Python3 使用PyMySQL连接数据库，并实现简单的增删改查。（注意是python3） 1、安装PyMySQL         PyMySQL 是在 Python3.x 版本中用于连接 MySQL 服务器的一个库，Python2中则使用mysqldb。PyMySQL 遵循 Python 数据库 API v2.0 规范，并包含了 pure-Python MyS
python连接mysql报错(1045, “Access denied for user ‘xx‘@‘xx‘ (using password：No)“)
weixin_45552310的博客
12-24 1205
做自动化需要加一个mysql数据库的连接，配置好数据库的连接信息后，运行python程序报如下错误 (1045, "Access denied for user 'xx'@'xx' (using password：No)") 但是用同样的配置信息，用MySQL Workbench客户端是可以成功连接的。原来配置的数据库连接也可以成功连接。 解决方法：重新安装pymysql模块 先运行pip uninstall pymysql进行卸载 >pip uninstall pymysql Found exis
python链接数据库的报错——1045如何解决？
marraybug的博客
12-12 1532
注：此文为转载文章，如有侵权，请告知将予以删除 转自：https://blog.csdn.net/qq_41856548/article/details/80314274   再pycharm中连接数据库报错   import hashlib,os,requests,ast import pymysql from bs4 import BeautifulSoup #数据库链接 conn...
Python连接mysql出现1045错误，Java（其他程序）连接正常。
zoe9698的博客
10-07 2378
出现这种情况，是因为用root用户连接了mysql，因为mysql和其他程序连接都是使用网络连接，所以，它把Python的连接当做了远程连接，远程连接不可以使用root。 解决方法：重新创建一个普通用户，赋予其权限，再次登陆即可。
python3连接Mysql时报错1045 using password : NO
github_38616039的博客
05-14 2126
        首先先确保是否是账号或密码输入错误，可通过CMD登录MYSQL，若确认账号密码无误后，用python连接还是报1045 using password : NO，可做一下修改：        由于mysql8.0和mysql5.7安装不一样,  默认安装是不允许pymysql连接的,要么重装把authentication选项页修改为非默认(没有叹号图片那个);        修改完成...
python连接数据库mysql错误1045,Python MySQL OperationalError：1045，“对用户root @'localhost'的访问被拒绝...
weixin_33377571的博客
12-01 351
I was trying to access the database from my python program by:db = mysql.connect(host = 'localhost', user = 'Max', passwd = 'maxkim', db = 'TESTDB')cursor = db.cursor()But, I get an error message in t...
python连接数据库mysql错误1045、手动登录可以_MySQL错误1045怎么解决
weixin_39581318的博客
12-01 1041
MySQL错误1045怎么解决错误代码 1045 Access denied for user 'root'@'localhost' (using password:YES)解决办法如下：重新设置root用户密码，在Windows平台下操作步骤如下：1、以系统管理员身份登录到系统；2、如果MySQL服务器正在运行，停止它。如果是作为Windows服务运行的服务器，进入服务管理器：开始菜单->...
2024-2025-1学期选课第一轮停开课程.xlsx
07-09
2024-2025-1学期选课第一轮停开课程.xlsx
go-proxy-bing基于New Bing的开源Bing AI源码，无需登录即可畅聊
最新发布
07-10
go-proxy-bing基于New Bing的开源Bing AI源码，无需登录即可畅聊
如何轻松搞定 Segmentation fault
07-21
要轻松搞定 Segmentation fault，你可以尝试以下几个步骤： 1. 检查代码：首先，仔细检查你的代码，看看是否有指针错误、数组越界等问题。确保你的代码没有访问无效内存地址的情况。 2. 调试工具：使用调试工具来...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值