版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、仓库管理系统项目的建立这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程。由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式:E-mail luo.QQ: 1355044347最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码(11 )单击“登录”或单击“新用户”添加新用户进入如下主界面:建立工程1、创建标准EXE2、按“打开”3、添加MDI窗体一一打开4、编辑菜单在空白处右击一一点击“菜单编辑器”在“标题”里输入“系统”,在“名称”里输入“ SyS(注意此处不能为汉字)点击“下一个”再
2、点击“确定”退到 MDI界面点击“系统”一一“退出”如下,然后编写代码。代码如下:Private Sub Exit_Click() EndEnd Sub数据库的建立,用来存放用户信VB6.0中可以创建 Access数据库。如下建立一个“用户表”的数据库 息及一些出入库管理信息。如下图单击“外接程序”外琴程序 囱口创J辖刘再单击“可视化数据管理器”出现如图疔并归亳寓W工作宣日。LLi?S TlJ 想 除3L *JJ电)上项丁门Jarlrr- IJ IhitfeJM ij.1 划d . 丁“工 FllisCP点击“文件”一一“新建” “保存”出现如下图Microsoft AccessVersion
3、 2.0 MDB”输入数据库名,在数据窗口中右击一一“新建表”,最终如下女胖正军更五乒 WLlCf.隼防乳IM iMa 条E3*工卡表改置 H土n仔臣库户 UI憎庄归出人用 兽aa胃B往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍。登录界面窗口的建立最终界面如下:FM INiI ii*1、Adodcl的添加过程为:单击“工程”一一“部件”出现下图所示,选择“控件”下的Microsoft ADO Data Control 6.0(OLEDB ”单击“确定”在工具栏中会出现“”图标,单击它并拖动到相应位置即可。其它元件不在一一说明。2、本窗体代码如下:Private Sub Command1_
4、Click()登录”、“确定”按钮If Command1.Caption =确定And Command2.Caption = 取消Then如果为“确定”则添加新用户If Text1.Text = Then提示用户输入用户名MsgBox 请输入用户名!一 登录信息提示:Exit SubElseDim usename As String检测用户名是否已经存在Dim strS As Stringusename = Trim(Text1.Text)strS = select * from用户登录信息表 where 用户名=& usename & Adodc1.CommandType = adCmdTe
5、xtAdodc1.RecordSource = strSAdodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox 您输入的用户已存在!,,”登录提示信息:Text1.Text =Text2.Text =Text3.Text =Text1.SetFocusExit SubEnd IfEnd If提示用户密码不能为空If Text2.Text = ThenExit SubMsgBox 密码不能为空!, , 登录提示信息:Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请再次输入密码
6、!, , 登录提示信息:Text3.SetFocusExit SubEnd IfIf Text2.Text Text3.Text ThenMsgBox 两次输入的密码不一致, 请确认 !, , 登录提示信息:Text2.Text = Text3.Text = Text2.SetFocusExit SubElse添加新用户Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(用户名 ) = Trim(Text1.Text)Adodc1.Recordset.Fields(密码 ) = Trim(Text2.Text)Adodc1.Recordset.Upda
7、te)MsgBox ( 添加新用户成功,现在您可以登陆系统了!Label3.Visible = FalseText3.Visible = FalseCommand1.Caption = 登录 Command2.Caption = 退出 End IfElse“登录”按钮,用户登录Dim strSno As StringDim strSelect As StringstrSno = Trim(Text1.Text)检测用户名是否存在strSelect = select密码 from 用户登录信息表where 用户名 = & strSno & Adodc1.CommandType = adCmdTe
8、xtAdodc1.RecordSource = strSelectAdodc1.RefreshIf Adodc1.Recordset.EOF = True Then登录提示信息:MsgBox 用户名不存在,请重新输入!Text1.Text = Text2.Text = Text1.SetFocus检测密码是否正确“退出”或“取消”按钮“新用户”按钮End IfIf Adodc1.Recordset.Fields(密码 ) = Trim(Text2.Text) ThenForm1.HideUnload MeForm2.ShowMsgBox 登陆成功! , , 登录提示信息: ElseMsgBox
9、 密码不正确,请重新输入! , , 登录提示信息:Text2.Text = Text2.SetFocusEnd IfEnd IfEnd SubPrivate Sub Command2_Click()If Command2.Caption = 取消 ThenLabel3.Visible = FalseText3.Visible = FalseCommand1.Caption = 登录 Command2.Caption = 退出 Text1.Text = Text2.Text = Text1.SetFocusElseEnd Unload MeEnd IfEnd SubPrivate Sub Com
10、mand3_Click()Label3.Visible = TrueText3.Visible = TrueText1.Text = Text2.Text = Text3.Text = Command1.Caption = 确定 Command2.Caption = 取消 Text1.SetFocusEnd SubPrivate Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Label6.Visible = TrueEnd SubPrivate Sub Command3_
11、MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Label6.Visible = FalseEnd SubPrivate Sub Form_Load()Label3.Visible = FalseAdodc2.RecordSource = nText3.Visible = FalseEnd SubPrivate Sub Timer1_Timer()用来If Label4.Left + Label4.Width 0 Then左移Label4.Move Label4.Left - 80ElseLabel4.
12、Left = Form1.ScaleWidthEnd IfIf Label5.Left + Label5.Width 0 ThenLabel5.Move Label5.Left - 80ElseLabel5.Left = Form1.ScaleWidthEnd IfEnd Sub时间time1控件的time事件代码,显示向左移动的欢迎字幕当标签右边位置大于 0时,标签向否则标签从头开始主界面窗体如下:代码:Private Sub AddNew_Click()Frame1.Visible = TrueFrame2.Visible = FalsePrivate Sub CHKPMCHX_Click
13、()Frame2.Caption = 出库信息 Dim pm As StringDim n As Stringpm = InputBox( 产品名 , 请输入 , 0)n = select * from 出库表 where 品名 = & pm & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CHKXHCHX_Click()Frame2.Caption = 出库信息 Dim XH As StringDim n As StringXH = In
14、putBox( 产品型号 , 请输入 , 0)n = select * from 出库表 where 型号 = & XH & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd SubPrivate Sub CKCZ_Click()Form2.HideForm6.ShowEnd SubPrivate Sub CKJSHR_Click()Frame2.Caption = 出库信息 Dim JSHR As StringDim n As StringJSHR = InputBox( 经手人 , 请输入 , 0)
15、n = select * from 出库表 where 经手人 = & JSHR & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CKSHJ_Click()Frame2.Caption = 出库信息 Dim CHKRQ As StringDim n As StringCHKRQ = InputBox( 出库日期,格式为:月 / 日/年 如: 12/1/2011, 请输入 , 0)n = select * from 出库表 where 出库日
16、期 = & CHKRQ & Adodc2.CommandType = adCmdTextAdodc2.RefreshCall InitGrid1End SubPrivate Sub CKZCX_Click()Frame2.Caption = 出库信息 Dim ZB As StringZB = select * from 出库表 Adodc2.CommandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid1End SubPrivate Sub Command1_Click()If Text1.Text = Th
17、enMsgBox 请输入用户名! , , 登录信息提示: Exit SubElseDim usename As StringDim strS As Stringusename = Trim(Text1.Text)strS = select * from用户登录信息表where 用户名 = & usename & Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strSAdodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox 您输入的用户已存在 !, , 登录提示信息: Text1.T
18、ext = Text2.Text = Text3.Text = Text1.SetFocusExit SubEnd IfEnd IfIf Text2.Text = ThenMsgBox 密码不能为空!, , 登录提示信息: Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请再次输入密码!, , 登录提示信息: Text3.SetFocusExit SubEnd If提示用户输入用户名检测用户名是否已经存在提示用户密码不能为空If Text2.Text Text3.Text ThenMsgBox 两次输入的密码不一致, 请确认 !,
19、, 登录提示信息: Text2.Text = Text3.Text = Text2.SetFocusExit SubElseAdodc1.Recordset.AddNew添加新用户Adodc1.Recordset.Fields(用户名 ) = Trim(Text1.Text)Adodc1.Recordset.Fields(密码 ) = Trim(Text2.Text)Adodc1.Recordset.UpdateDim X As IntegerX = MsgBox( 成功添加新用户,是否要重新登录!, vbYesNo + vbQuestion + vbDefaultButton1, 提示信息
20、!)If X = vbYes ThenUnload MeForm3.ShowEnd IfMsgBox ( 成功添加新用户! )Label3.Visible = FalseText3.Visible = FalseCommand1.Caption = 登录 Command2.Caption = 退出 End IfFrame1.Visible = FalseFrame2.Visible = TrueText1.Text = Text2.Text = Text3.Text = Form3.ShowEnd SubPrivate Sub Command2_Click()Frame1.Visible =
21、FalseFrame2.Visible = TrueEnd SubPrivate Sub CXDL_Click()Form3.ShowUnload MeEnd SubPrivate Sub Exit_Click()EndUnload Form1Unload Form2Unload Form3Unload Form4Unload Form5Unload Form6Unload Form7Unload Form8End SubPrivate Sub Form_Load()TextUserName = Trim(Form1.Text1.Text)Unload Form1Frame1.Visible
22、= FalseCall InitGrid0Me.Height = MDIForm1.Height - 1060Me.Width = MDIForm1.Width - 560Me.Top = MDIForm1.TopMe.Left = MDIForm1.LeftEnd SubPrivate Sub GHCZ_Click()Form2.HideForm8.ShowEnd SubPrivate Sub GHPMCX_Click()Frame2.Caption = 归还信息 Dim pm As StringDim n As Stringpm = InputBox( 产品名 , 请输入 , 0)n =
23、select * from 归还表 where 品名 = & pm & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub GHRCX_Click()Frame2.Caption = 归还信息 Dim JCR As StringDim n As StringJCR = InputBox( 归还人 , 请输入 , 0)n = select * from 归还表 where 归还人 = & JCR & Adodc2.CommandType = adCm
24、dTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2Private Sub GHSJCX_Click()Frame2.Caption = 归还信息 Dim JCRQ As StringDim n As StringJCRQ = InputBox( 归还日期,格式为:月 / 日/ 年 如: 12/1/2011, 请输入 , 0)n = select * from 归还表 where 归还日期 = & JCRQ & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.Re
25、freshCall InitGrid2End SubPrivate Sub GHXHCX_Click()Frame2.Caption = 归还信息 Dim XH As StringDim n As StringXH = InputBox( 产品型号 , 请输入 , 0)n = select * from 归还表 where 型号 = & XH & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub GHZCX_Click()Frame2.Capti
26、on = 归还信息 Dim ZB As StringZB = select * from 归还表 Adodc2.CommandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCCZ_Click()Form2.HideForm7.ShowEnd SubPrivate Sub JCHPMCHX_Click()Frame2.Caption = 借出信息 Dim pm As StringDim n As Stringpm = InputBox( 产品名 , 请输入 , 0)n
27、 = select * from借出表 where 品名 = & pm & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCHXHCHX_Click()Frame2.Caption = 借出信息 Dim XH As StringDim n As StringXH = InputBox( 产品型号 , 请输入 , 0)n = select * from 借出表 where 型号 = & XH & Adodc2.CommandType = ad
28、CmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCRCX_Click()Frame2.Caption = 借出信息 Dim JCR As StringDim n As StringJCR = InputBox( 借出人 , 请输入 , 0)n = select * from 借出表 where 借出人 = & JCR & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End
29、 SubPrivate Sub JCSHJCX_Click()Frame2.Caption = 借出信息 Dim JCRQ As StringDim n As StringJCRQ = InputBox( 借出日期,格式为:月 / 日/ 年 如: 12/1/2011, 请输入 , 0)n = select * from 借出表 where 借出日期 = & JCRQ & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCZCX_Click()
30、Frame2.Caption = 借出信息 Dim ZB As StringZB = select * from 借出表 Adodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid2End SubPrivate Sub JSHRCHX_Click()Adodc2.CommandType = adCmdTextFrame2.Caption = 归还信息 Dim JSHR As StringDim n As StringJSHR = InputBox(经手人 , 请输入 , 0)n = select * from归还表 where 经手人 = & JSH
31、R & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JSHRCX_Click()Frame2.Caption = 借出信息 Dim JSHR As StringDim n As StringJSHR = InputBox(经手人 , 请输入 , 0)n = select * from借出表 where 经手人 = & JSHR & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAd
32、odc2.RefreshCall InitGrid2End SubPrivate Sub PMCX_Click()Frame2.Caption = 库存信息 Dim pm As StringDim n As String pm = InputBox( 产品名 , 请输入 , 0)n = select * from库存表 where 品名 = & pm & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid0End SubPrivate Sub RKCZ_Click() Form2.Hi
33、deForm5.ShowEnd SubPrivate Sub RKJSHR_Click()Frame2.Caption = 入库信息 Dim JSHR As StringDim n As StringJSHR = InputBox( 经手人 , 请输入 , 0)n = select * from 入库表 where 经手人 = & JSHR & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub RKPMCHX_Click()Frame2.Capt
34、ion = 入库信息 Dim pm As StringDim n As Stringpm = InputBox( 产品名 , 请输入 , 0)If Len(pm) 0 Thenn = select * from 入库表 where 品名 = & pm & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd IfCall InitGrid1End SubPrivate Sub RKSHJ_Click()Frame2.Caption = 入库信息 Dim RKRQ As StringDim n As Stri
35、ngRKRQ = InputBox( 入库日期,格式为:月 / 日/ 年 如: 12/1/2011, 请输入 , 0) n = select * from 入库表 where 入库日期 = & RKRQ & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub RKXHCHX_Click()Frame2.Caption = 入库信息 Dim XH As StringDim n As StringXH = InputBox( 产品型号 , 请输入 ,
36、0)If Len(XH) 0 Thenn = select * from 入库表 where 型号 = & XH & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd IfCall InitGrid1End SubPrivate Sub RKZCX_Click()Frame2.Caption = 入库信息 Dim ZB As StringZB = select * from 入库表 Adodc2.CommandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.
37、RefreshCall InitGrid1End SubPrivate Sub Timer1_Timer()当标签右边位置大于 0 时,标签向左If Label4.Left + Label4.Width 0 Then移Label4.Move Label4.Left - 80否则标签从头开始ElseLabel4.Left = Form2.ScaleWidthEnd IfIf Label5.Left + Label5.Width 0 ThenLabel5.Move Label5.Left - 80ElseLabel5.Left = Form2.ScaleWidthEnd IfIf Label6.L
38、eft + Label6.Width 0 ThenLabel6.Move Label6.Left - 80ElseLabel6.Left = Form2.ScaleWidthEnd IfIf Label7.Left + Label7.Width 0 ThenLabel7.Move Label7.Left - 80ElseLabel7.Left = Form2.ScaleWidthEnd IfEnd SubPrivate Sub XGMM_Click()Form2.HideForm4.ShowEnd SubPrivate Sub XHCX_Click()Frame2.Caption = 库存信息
39、Dim XH As StringDim n As StringXH = InputBox( 产品型号 , 请输入 , 0)If Len(XH) 0 Then And Val(XH) 0n = select * from库存表 where 型号 = & XH & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd IfCall InitGrid0End SubPrivate Sub ZB_Click()Frame2.Caption = 库存信息 Dim ZB As StringDim N As String
40、PM = InputBox( 产品名 , 请输入 , 0)ZB = select * from 库存表 where 品名 = & PM & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid0End SubPrivate Sub InitGrid0()With DataGrid1.Columns(0).Width = 1600.Columns(1).Width = 2200.Columns(2).Width = 2200.Columns(3).Width = 1000.Columns
41、(4).Width = 1000.Columns(5).Width = 4000End WithEnd SubPrivate Sub InitGrid1()With DataGrid1.Columns(0).Width = 800.Columns(1).Width = 1600.Columns(2).Width = 1600.Columns(3).Width = 800.Columns(4).Width = 800.Columns(5).Width = 1000.Columns(6).Width = 800.Columns(7).Width = 4000End WithEnd SubPriva
42、te Sub InitGrid2()With DataGridl.Columns(0).Caption =学号.Columns(1).Caption =课程名.Columns(2).Caption =学分.Columns(3).Caption =成绩设置DtgCond的列宽.Columns(0).Width = 800.Columns(1).Width = 1600.Columns(2).Width = 1600.Columns(3).Width = 800.Columns(4).Width = 800.Columns(5).Width = 800.Columns(6).Width = 100
43、0.Columns(7).Width = 800.Columns(8).Width = 4000End WithEnd Sub用户重新登录界面代码:Private Sub Command1_Click()Dim strSno As StringDim strSelect As String检测用户名是否存在strSno = Trim(Text1.Text)strSelect = select密码from 用户登录信息表 where 用户名=& strSno & Adodcl.CommandType = adCmdTextAdodcI.RecordSource = strSelectAdodcI
44、.RefreshIf Adodc1.Recordset.EOF = True ThenMsgBox Textl.Text =用户名不存在,请重新输入!登录提示信息:Text2.Text =Textl.SetFocusExit SubEnd IfIf Adodc1.Recordset.Fields(密码)=Trim(Text2.Text) Then检测密码是否正确Unload MeForm2.ShowMsgBox 登陆成功!一登录提示信息:ElseMsgBox 密码不正确,请重新输入!一 登录提示信息:Text2.Text =Text2.SetFocusEnd IfEnd SubPrivate
45、Sub Command2_Click()Unload MeForm2.ShowEnd Sub修改用户密码界面代码:Private Sub Command1_Click()If Trim(Text1.Text) Form2.TextUserName ThenMsgBox 用户名不正确,请确认!一信息提示!Text1.Text =Text1.SetFocusExit SubElseDim name As StringDim names As Stringname = Trim(Text1.Text)names = select * from 用户登录信息表where 用户名 = & name &
46、Adodc1.CommandType = adCmdTextAdodc1.RecordSource = namesAdodc1.RefreshIf Text2.Text = ThenMsgBox 请输入旧密码!, , 信息提示! Text2.SetFocusExit SubEnd IfIf Adodc1.Recordset.Fields( 密码 ) Trim(Text2.Text) ThenMsgBox 旧密码不正确,请确认 !, , 信息提示! Text2.Text = Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请输入新密码
47、!, , 信息提示! Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox 请再次输入新密码!, , 信息提示! Text4.SetFocusExit SubEnd IfIf Trim(Text3.Text) Trim(Text4.Text) ThenMsgBox 两次输入的新密码不一致!, , 信息提示! Text3.Text = Text4.Text = Text3.SetFocusExit SubElseAdodc1.Recordset.Fields( 密码 ) = Trim(Text3.Text)Adodc1.Recordset.
48、UpdateMsgBox ( 密码修改成功! )Unload MeForm2.ShowEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeForm2.ShowEnd Sub入库管理代码:Private Sub Command1_Click()If Textl.Text = And Text2.Text = ThenMsgBox “品名”和“型号”不能同时为空,必须输入其中一项 !,”提示信息Exit SubText1.SetFocusElseIf Text3.Text = And Text4.Text = Then提示信息MsgBox
49、请输入产品“数量”或“单位”之一Text3.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox 请经手人签名Text5.SetFocusExit SubEnd IfAdodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(Adodc1.Recordset.Fields(Adodc1.Recordset.Fields(Adodc1.Recordset.Fields(Adodc1.Recordset.Fields(Adodc1.Recordset.Fields(Adodc1.Records
50、et.Fields(,vbCritical,提示信息添加品名)=Trim(Text1.Text) 型号)=Trim(Text2.Text) 数量)=Trim(Text3.Text) 单位)=Trim(Text4.Text) 经手人)=Trim(Text5.Text) 入库日期)=Date 说明)=Trim(Text7.Text)Adodc1.Recordset.UpdateEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trim(Text1.Text)n = Val(Text3.Text)pms = select * from 库存表 where 品名 = & pm & Form2.Adodc2.CommandType = adCmdTextForm2.Adodc2.RecordSource = pmsForm2.Adodc2.RefreshIf For
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
评论
0/150
提交评论