VFP5.0以后版本数据库的存储过程

neil 2000-03-17 12:58:00
VFP5.0以后版本数据库的存储过程该如何写?在程序里又该如何调用呢?怎样才能用存储过程来优化VFP程序呢?能给个简单的示例吗?谢谢。
...全文
87 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
vf6.0,要考二级没系统的下哈 Microsoft Visual FoxPro 6.0 for Windows 的常见问题 这些是有关 Microsoft Visual FoxPro 最常见的问题。在您求助 Microsoft 产品支持服务之前,请先查阅这张列表。 若想打印这些附注,请从“文件”菜单中选择“打印”命令。此文档分为以下四部分: --------------------------------------------------------------------- 部分 1. 技术支持与市场 部分 2. Visual FoxPro 6.0 新增功能 部分 3. 从其他版本的 FoxPro 和 Visual FoxPro 中移植 部分 4. Visual FoxPro 常见问题 --------------------------------------------------------------------- 部分 1. 技术支持与市场 问题 1-1: 从何处可以获得产品的更新版本? 答案: 在 Visual FoxPro 的 Web 站点上即可获得产品的更新信息,其中包括有关 Service Pack 和更新的示例、向导及其他代码的信息,该站点的网址为: www.microsoft.com/vfoxpro 请定期查看该网站,以便下载产品的最新版本。 问题 1-2: 从何处可以得到有关 Visual FoxPro 的详细资料? 答案: 通过 Microsoft Visual FoxPro Web 站点是随时获得各种最新产品发布信息的最佳途径。在此站点上不仅有新的产品公告,而且还提供了产品的更新信息、技术文章、白皮书、专业开发人员设计的优秀示例、会议公告、以及与其他许多 FoxPro web 站点的各种链接。 问题 1-3: 如何获得技术支持,以及如何报告软件错误? 答案: Microsoft Visual FoxPro Web 站点已经链接到了多种联机支持选项,其中包括覆盖面广阔的有关所有产品 Microsoft Knowledge Base(Microsoft 知识库)。您还可以阅读一份有关常见问题的清单。除联机支持之外,还可以直接通过电话获得技术支持。“帮助”菜单中的选项可列出技术支持的电话号码。这些电话号码也可用于报告产品中的错误。 问题 1-4. 什么是 Knowledge Base?如何使用它? 答案: Knowledge Base 是内容广泛的论文集,覆盖了如何使用产品的各种特性、已知的软件错误及其解决方案或回避的方法、以及其他有助于使用各种 Microsoft 产品的有用信息。通过以下站点可访问整个 Knowledge Base: support.microsoft.com 问题 1-5: 是否会有 Visual FoxPro 6.0a? 答案: Microsoft 公司一向承诺为用户提供高质量的产品。如果确实需要,我们将提供 Visual FoxPro 6.0 的错误修订版。但是,修订版不会使用 6.0a 版的形式。Visual FoxPro 6.0 中任何错误的修正都将包含在 Visual Studio Service Pack 中。同时还会在 Visual FoxPro 的 www.microsoft.com/vfoxpro 或 Visual Studio 的www.microsoft.com/vstudio 的 Web 站点上发布修订公告。 问题 1-6: Microsoft 公司为应用程序的开发提供了一些优秀的解决方案。怎样才能知道应该向客户推荐和使用哪种产品? 答案: 在选择适用某项任务的产品时,需要考虑多方面的因素。Microsoft Visual FoxPro web 站点上有一份优秀的策略背景论文,它比较了 Visual FoxPro、Visual Basic、SQL Server 和 Access 等 Microsoft 产品之间的不同。 问题 1-7: 哪里可以找到 Visual FoxPro 的使用示例? 答案: Visual FoxPro 6.0 产品中带有丰富的示例,其中有一些是针对 6.0 版特有功能的新示例。与 Visual FoxPro 以前的版本不同,这些示例将与所有 Visual Studio 示例安装在一起。您必须运行 MSDN Library 的“自定义”安装来安装这些示例。在 Visual FoxPro 中可使用新的 HOME(2) 函数方便地找到已安装示例的位置。 除了产品中所自带的示例外,Microsoft Visual FoxPro web 站点还将经常提供新的示例。
介绍数据类型   表中的每一个字段由于其数据代表的意义的不同,因而都有特定的数据类型,例如:编号、姓名、出生年月三个字段的类型是各不相同的,在Visual FoxPro中,分别是用数值型(或整型)、字符型、日期型来表示的。熟悉各种数据类型可以帮助我们更快更好地对表进行操作。Visual FoxPro 6.0 表中的数据类型及简单的说明如下: 字符型:用于包含字母、汉字、数字型文本、符号、标点等一种或几种的字段,其中的数字一般不是用来进行数学计算的,如电话号码、姓名、地址。 货币型:货币单位,最多可有四位小数,如果小数部分超过四位则将通过四舍五入只保留四位,如商品价格。 数值型:整数或小数。如:成绩、年龄、 订货数量。如果有小数,需要指定小数位数,小数点包含在字段宽度中,占一个字节。它还支持十六进制数值。 浮点型:同数值型。 整 型:不带小数点的数值。 日期型:用来存放日期数值,Visual FoxPro 6.0(5.0)支持2000年型的日期数值。格式为:月/日/年。如:04/28/97。其中的年份如果输入97,则系统默认为1997,将光标条移到表中该字段时就会显示“04/28/1997”,如果输入小于48的数(如45)则系统默认为2045,因此,最好输入完整的年份。 日期时间型:格式为:月/日/年 时:分:秒 AM或PM。如:04/28/97 06:26:00 AM。 双精度型:双精度数值,如实验所要求的高精度数据。 逻辑型:当存储的数据只有两种可能时使用,用True(.T.)和False(.F.)表示。如:是否结婚。 备注型:又称内存型,它的长度随输入数据的长度而定,它的存储和表中其他数据是分开的,存放在扩展名为.FPT的文件中。 通用型:可以链接或嵌入OLE对象,如由其他应用程序创建的电子表格、WORD文档、图片。当链接OLE对象时,表中只包含指向数据的链接和创建OLE对象的应用程序的链接;当嵌入OLE对象时,表中包含OLE对象复件及指向创建此OLE对象应用程序的链接。 另外还有字符型(二进制)和备注型(二进制):前者同“字符型”相同,但是当代码页更改时字符值不变;后者同“备注型”相同,但是当代码页更改时备注不变。本课程中不涉及这两种类型,这里不做介绍。  1.2 使用“表设计器”创建表 使用“表设计器”可以方便、直接地创建表,我们既可以通过“项目管理器”的“数据”选项卡使用“表设计器”创建;也可以从“文件”菜单中使用“表设计器”创建。前一种方法在以后创建“项目管理器”时再介绍,这里仅介绍从“文件”菜单中创建表。  1.2.1 创建表结构 操作步骤:  从“文件”菜单中选择“新建”。出现如下对话框: 在复选框中选取“表”。  2、选取“新建文件”按钮,在“输入表名”中输入我们要建的表名,例如“职工表”,选取“保存”按钮。即出现表设计器:  这里有三个选项卡:“字段”、“索引”和“表”,默认的是“字段”选项卡。  3、从第一行开始依次输入(或选择): 在“字段名”选项卡中键入字段名。 在“类型”区域中,选择列表中的某一字段类型。注意,字段的数据类型应与将要存储在其中的信息类型相匹配 在“宽度”列中,设置以字符为单位的列宽,使字段的宽度足够容纳将要显示的信息内容。注意,一个汉字需占两个字符。 如果“类型”是“数值型”或“浮点型”,请设置“小数位数”框中的小数点位数。 如果希望为字段添加索引,就在“索引”列中选择一种排序方式。 如果想让字段接受 null 值,选中“NULL”。NULL无明确的值,它不等同于零或空格。一个 NULL 值不能认为比某个值(包括另一个 NULL 值)大或小,相等或不同。 字段名前的双向箭头表明是当前行。一行各项目之间用Tab键移动。  4、表的结构设置完毕后, 选取“确定”按钮,这时会出现一个选择框,询问“现在输入数据吗?”。此时,可以选择是立即开始输入记录,还是在以后准备好所有记录后再打开表进行输入。   1.2.2 在表中添加记录 1、在“文件”菜单中选择“打开”。  2、从“搜寻”下拉框中选择文件所在目录,从“文件类型”下拉框中选择“表”,即出现该目录下所有的表。如下图:  3、选择“职工表.dbf”,点取确定按钮。 4、从“显示”菜单“中选择“浏览”。如图:  5、这时出现“职工表”浏览窗口,并且“显示”菜单的内容发生变化,如下图,选择“追加方式”。  6、在“浏览”窗口中输入新的记录。当输入内容满一个字段时,光标会自动跳到下一个字段。内容不满时,用Tab键或回车键将光标移到下一字段。 7、当编辑备注型(memo)字段时,将光标条移到memo上,双击它或按Ctrl+Home键就可进入memo字段的输入窗口进行输入、修改。完成后,单击窗口上的关闭按钮“X”或按Ctrl+w可以保存并关闭窗口。如不想保存,则按Esc键或Ctrl +Q。  8、进入通用型(gen)字段与备注型方法相同。进入编辑窗口后,打开“编辑”菜单,选择“插入对象”进入插入对象窗口。选择“新建”可以创建多种格式的图象。我们选择“由文件创建”,在“文件”框中输入插入对象的文件名,包括路径。   如果选择“链接”则只存储该图象的链接,而不把整个图象包括进通用型字段中。如果选择“显示为图标”则可以用图标表示插入的图象对象。这里我们两者都不选择。   按“确定”按钮,即完成照片的插入。  9、为方便输入,也可以从“显示”菜单中选择“编辑”来切换到“编辑”方式。在“编辑”方式下,列名显示在窗口的左边。   这样,一个表就创建完成了。这个表称为自由表。之所以称它自由表,是指它是孤立存在的,和其他表没有发生联系,既不能控制其他表,也不被其他表控制。它独立存在于任何数据库之外。   还可以在 Visual FoxPro 中创建另一种表--数据库表,它是数据库的一部分。我们将在数据库一课中讲到。 1.3 使用“表向导”创建表   创建新表还可以借助于“表向导”。利用“表向导”,可以随时创建新表。向导会提出一系列的问题,并根据回答建立一个表。这里只把步骤说一下,不详细介绍了。 步骤: 从“文件”菜单中选择“新建”。 选择“表”。 选择“表向导”按钮。如本节图一所示。 按照向导屏幕的指示进行操作。 也可以用其他方法使用“表向导”,例如:在“项目管理器”中使用。 返回 下一节 电脑报首页 网络学院首页
第 1 页 (共 8 页) 学习中心_________ 姓 名_____________ 学 号 西安电子科技大学网络与继续教育学院 《数据库应用系统》全真试题 (闭卷 90 分钟) 题号 一 二 三 四 五 总分 题分 30 30 4 12 24 得分 一、 选择一个正确的答案填空: (15*2=30 分) 1、___________ 不可以作为查询和视图的输出类型。 A、自由表 B、表单 C、临时表 D、数组 2、创建数据库后,系统自动生成扩展名为 ________ 的三个文件。 A、 .SCX、.SCT、.SPX B、 .DBC、.DCT、.DCX C、 .PJX、.PJT、.RPJ D、 .DBF、.DBT、.FPT 3、建立两张表之间的临时关系时,必须设置的是___________。 A、主表的主索引 B、主表的主索引和子表的主控索引 C、子表的主控索引 D、主表的主控索引和子表的主控索引 4、以下的四组函数,返回值的数据类型是一致的_____。 第 2 页 (共 8 页) A、DTOC(DATE()), DATE(), YEAR(DATE()) B、LEN("VFP 5.0"),CTOD("5/20/2006"), SPACE(8) C、EOF( ) , RECOUNT( ) , DBC( ) D、STR("3.14",3,1), DTOC(DATE()), SUBSTR("ABCD",3,1) 5、在命令窗口中执行了命令 X=100 后,则默认该变量的作用域是 _________。 A、全局 B、局部 C、私有 D、不定 6.VFP 是一种 ________ 模型的数据库管理系统。 A、层次 B、网络 C、对象 D、关系 7.VFP 系统环境下,运行表单的命令为_______。 A、DO FORM <表单名> B、REPORT FORM <表单名> C、DO <表单名> D、只能在项目管理器中运行 8.要求一个表中的数值型字段数据精度具有 3 位小数,则该字段的宽度 至少定义为_________ 。 A、4 位 B、5 位 C、6 位 D、12 位 9.由计算机、操作系统、DBMS、数据库、应用程序等组成的整体称为 ___________。 A、数据库应用系统 B、数据库管理系统 C、文件系统 D、软件系统 10.创建数据库后,系统自动生成扩展名为 ________ 的三个文件。 A、 .SCX、.SCT、.SPX B、 .DBC、.DCT、.DCX C、 .PJX、.PJT、.RPJ D、 .DBF、.DBT、.FPT 11. 在 Visual FoxPro 中创建含备注字段的表和表的结构复合索引文件后, 第 3 页 (共 8 页) 系统自动生成的三个文件的扩展名为 ___________ 。 A、.PJX、.PJT、.PRG B、.DBF、.CDX、.FPT C、.FPT、.FRX、.FXP D、.DBC、.DCT、.DCX 12.有关查询与视图,下列说法中不正确的是______。 A、查询是只读型数据,而视图可以更新数据源 B、查询可以更新源数据,视图也有此功能 C、视图具有许多数据库表的必性,利用视图可以创建查询和视图 D、视图可以更新源表中的数据,存在于数据库中 13. 在 Visual FoxPro 中,关于查询和视图的正确描述是 A、查询是一个预先定义好的 SQL SELECT 语句文件 B、视图是一个预先定义好的 SQL SELECT 语句文件 C、查询和视图是同一种文件,只是名称不同 D、查询和视图都是一个存储数据的表 14.下列说法中正确的是___________。 A、视图文件的扩展名.vcx B、查询文件中保存的是查询的结果 C、查询设计器实质上是 SELECT-SQL 命令的可视化设计方法 D、查询是基于表的并且是可更新的数据集合 15、如果一个数据库表的 append 触发器设置为.F.,则不允许对该表作 _________的操作。 A、修改记录 B、删除记录 C、增加记录 D、显示记录 二、填空题: (15*2=30 分) 1.打开一张空表,在不移动记录指针的情况下,函数 BOF()的值是 ;函数 EOF()的值是 。如果打开的表中有一条记录, 第 4 页 (共 8 页) 在不移动记录指针的情况下,函数 BOF()的值是 ;函数 EOF() 的值是 ;函数 RECNO()的值是 。 2. 已知 Y="1",Z="2",X12="good",则表达式 X&Y&Z 的值为 。 3.学生表(XS.DBF)的表结构为:学号(XH,C,8),姓名(XM,C,8), 性别(XB,C,2)班级(BJ,C,6),写出用 Insert 命令向 XS 表添加一条 新记录,记录内容为: XH XM XB
******* 导出到excel EXEC master..xp_cmdshell 'bcp SettleDB.dbo.shanghu out c:\temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""' /*********** 导入Excel SELECT * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0', 'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions /*动态文件名 declare @fn varchar(20),@s varchar(1000) set @fn = 'c:\test.xls' set @s ='''Microsoft.Jet.OLEDB.4.0'', ''Data Source="'+@fn+'";User ID=Admin;Password=;Extended properties=Excel 5.0''' set @s = 'SELECT * FROM OpenDataSource ('+@s+')...sheet1$' exec(@s) */ SELECT cast(cast(科目编号 as numeric(10,2)) as nvarchar(255))+' ' 转换后的别名 FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0', 'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions /********************** EXCEL导到远程SQL insert OPENDATASOURCE( 'SQLOLEDB', 'Data Source=远程ip;User ID=sa;Password=密码' ).库名.dbo.表名 (列名1,列名2) SELECT 列名1,列名2 FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0', 'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions /** 导入文本文件 EXEC master..xp_cmdshell 'bcp dbname..tablename in c:\DT.txt -c -Sservername -Usa -Ppassword' /** 导出文本文件 EXEC master..xp_cmdshell 'bcp dbname..tablename out c:\DT.txt -c -Sservername -Usa -Ppassword' 或 EXEC master..xp_cmdshell 'bcp "Select * from dbname..tablename" queryout c:\DT.txt -c -Sservername -Usa -Ppassword' 导出到TXT文本,用逗号分开 exec master..xp_cmdshell 'bcp "库名..表名" out "d:\tt.txt" -c -t ,-U sa -P password' BULK INSERT 库名..表名 FROM 'c:\test.txt' WITH ( FIELDTERMINATOR = ';', ROWTERMINATOR = '\n' ) --/* dBase IV文件 select * from OPENROWSET('MICROSOFT.JET.OLEDB.4.0' ,'dBase IV;HDR=NO;IMEX=2;DATABASE=C:\','select * from [客户资料4.dbf]') --*/ --/* dBase III文件 select * from OPENROWSET('MICROSOFT.JET.OLEDB.4.0' ,'dBase III;HDR=NO;IMEX=2;DATABASE=C:\','select * from [客户资料3.dbf]') --*/ --/* FoxPro 数据库 select * from openrowset('MSDASQL', 'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:\', 'select * from [aa.DBF]') --*/ /**************导入DBF文件****************/ select * from openrowset('MSDASQL', 'Driver=Microsoft Visual FoxPro Driver; SourceDB=e:\VFP98\data; SourceType=DBF', 'select * from customer where country != "USA" order by country') go /***************** 导出到DBF ***************/ 如果要导出数据到已经生成结构(即现存的)FOXPRO表中,可以直接用下面的SQL语句 insert into openrowset('MSDASQL', 'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:\', 'select * from [aa.DBF]') select * from 表 说明: SourceDB=c:\ 指定foxpro表所在的文件夹 aa.DBF 指定foxpro表的文件名. /*************导出到Access********************/ insert into openrowset('Microsoft.Jet.OLEDB.4.0', 'x:\A.mdb';'admin';'',A表) select * from 数据库名..B表 /*************导入Access********************/ insert into B表 selet * from openrowset('Microsoft.Jet.OLEDB.4.0', 'x:\A.mdb';'admin';'',A表) 文件名为参数 declare @fname varchar(20) set @fname = 'd:\test.mdb' exec('SELECT a.* FROM opendatasource(''Microsoft.Jet.OLEDB.4.0'', '''+@fname+''';''admin'';'''', topics) as a ') SELECT * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0', 'Data Source="f:\northwind.mdb";Jet OLEDB:Database Password=123;User ID=Admin;Password=;')...产品 ********************* 导入 xml 文件 DECLARE @idoc int DECLARE @doc varchar(1000) --sample XML document SET @doc =' Customer was very satisfied Important Happy Customer. ' -- Create an internal representation of the XML document. EXEC sp_xml_preparedocument @idoc OUTPUT, @doc -- Execute a SELECT statement using OPENXML rowset provider. SELECT * FROM OPENXML (@idoc, '/root/Customer/Order', 1) WITH (oid char(5), amount float, comment ntext 'text()') EXEC sp_xml_removedocument @idoc ??????? /**********************Excel导到Txt****************************************/ 想用 select * into opendatasource(...) from opendatasource(...) 实现将一个Excel文件内容导入到一个文本文件 假设Excel中有两列,第一列为姓名,第二列为很行帐号(16位) 且银行帐号导出到文本文件后分两部分,前8位和后8位分开。 邹健: 如果要用你上面的语句插入的话,文本文件必须存在,而且有一行:姓名,银行账号1,银行账号2 然后就可以用下面的语句进行插入 注意文件名和目录根据你的实际情况进行修改. insert into opendatasource('MICROSOFT.JET.OLEDB.4.0' ,'Text;HDR=Yes;DATABASE=C:\' )...[aa#txt] --,aa#txt) --*/ select 姓名,银行账号1=left(银行账号,8),银行账号2=right(银行账号,8) from opendatasource('MICROSOFT.JET.OLEDB.4.0' ,'Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\a.xls' --,Sheet1$) )...[Sheet1$] 如果你想直接插入并生成文本文件,就要用bcp declare @sql varchar(8000),@tbname varchar(50) --首先将excel表内容导入到一个全局临时表 select @tbname='[##temp'+cast(newid() as varchar(40))+']' ,@sql='select 姓名,银行账号1=left(银行账号,8),银行账号2=right(银行账号,8) into '+@tbname+' from opendatasource(''MICROSOFT.JET.OLEDB.4.0'' ,''Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\a.xls'' )...[Sheet1$]' exec(@sql) --然后用bcp从全局临时表导出到文本文件 set @sql='bcp "'+@tbname+'" out "c:\aa.txt" /S"(local)" /P"" /c' exec master..xp_cmdshell @sql --删除临时表 exec('drop table '+@tbname) /********************导整个数据库*********************************************/ 用bcp实现的存储过程 /* 实现数据导入/导出的存储过程 根据不同的参数,可以实现导入/导出整个数据库/单个表 调用示例: --导出调用示例 ----导出单个表 exec file2table 'zj','','','xzkh_sa..地区资料','c:\zj.txt',1 ----导出整个数据库 exec file2table 'zj','','','xzkh_sa','C:\docman',1 --导入调用示例 ----导入单个表 exec file2table 'zj','','','xzkh_sa..地区资料','c:\zj.txt',0 ----导入整个数据库 exec file2table 'zj','','','xzkh_sa','C:\docman',0 */ if exists(select 1 from sysobjects where name='File2Table' and objectproperty(id,'IsProcedure')=1) drop procedure File2Table go create procedure File2Table @servername varchar(200) --服务器名 ,@username varchar(200) --用户名,如果用NT验证方式,则为空'' ,@password varchar(200) --密码 ,@tbname varchar(500) --数据库.dbo.表名,如果不指定:.dbo.表名,则导出数据库的所有用户表 ,@filename varchar(1000) --导入/导出路径/文件名,如果@tbname参数指明是导出整个数据库,则这个参数是文件存放路径,文件名自动用表名.txt ,@isout bit --1为导出,0为导入 as declare @sql varchar(8000) if @tbname like '%.%.%' --如果指定了表名,则直接导出单个表 begin set @sql='bcp '+@tbname +case when @isout=1 then ' out ' else ' in ' end +' "'+@filename+'" /w' +' /S '+@servername +case when isnull(@username,'')='' then '' else ' /U '+@username end +' /P '+isnull(@password,'') exec master..xp_cmdshell @sql end else begin --导出整个数据库,定义游标,取出所有的用户表 declare @m_tbname varchar(250) if right(@filename,1)'\' set @filename=@filename+'\' set @m_tbname='declare #tb cursor for select name from '+@tbname+'..sysobjects where xtype=''U''' exec(@m_tbname) open #tb fetch next from #tb into @m_tbname while @@fetch_status=0 begin set @sql='bcp '+@tbname+'..'+@m_tbname +case when @isout=1 then ' out ' else ' in ' end +' "'+@filename+@m_tbname+'.txt " /w' +' /S '+@servername +case when isnull(@username,'')='' then '' else ' /U '+@username end +' /P '+isnull(@password,'') exec master..xp_cmdshell @sql fetch next from #tb into @m_tbname end close #tb deallocate #tb end go /************* Oracle **************/ EXEC sp_addlinkedserver 'OracleSvr', 'Oracle 7.3', 'MSDAORA', 'ORCLDB' GO delete from openquery(mailser,'select * from yulin') select * from openquery(mailser,'select * from yulin') update openquery(mailser,'select * from yulin where id=15')set disorder=555,catago=888 insert into openquery(mailser,'select disorder,catago from yulin')values(333,777) 补充: 对于用bcp导出,是没有字段名的. 用openrowset导出,需要事先建好表. 用openrowset导入,除ACCESS及EXCEL外,均不支持非本机数据导入

34,576

社区成员

发帖
与我相关
我的任务
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧