- 1、本文档共9页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
vb2010实验报告三--完整单据的设计
软件开发环境与工具
实验报告
实验三
实验题目: 完整单据的设计
实验类型: 验证性
指导老师:王琦
实验地点:软件实验室一
专业班级: 计算机科学与技术系班
姓名学号:
2013年 11月 25日
一、实验题目
完整单据的设计
二、实验目的
通过本次实验,了解单据的类型及重要性,掌握两种单据的设计及制作方 法,特别是单据中的编码以及状态的控制,为课程设计做准备。
三、实验要求
实验功能要求:
1、实现单据的新增、修改、删除、浏览、审核、弃审等功能。
2、对单据的编码及状态要进行控制。
3、用.NET分层架构设计。
4、单据的具体内容自定
四、实验内容
1、新建数据库为dan ju;
建立三张表user, code, dj
user表内容如下:
code表内容如下:
dj表内容如下:
B.实验代码
1)登陆时所需代码
Dim o As New myData.clsUser
Dim k As New DataGridView
Public s As String
Private Sub Button1_Click(…) Handles Btodl.Click
Dim dr As SqlClient.SqlDataReader
Dim yn, ym As String
yn = Trim(Me.Txtyh.Text)
ym = Me.Txtmm.Text
dr = o.getall2dr(yn)
If dr.Read Then
If CInt(dr.Item(ymm)) = Trim(ym) Then
MsgBox(登录成功)
s = Me.Txtyh.Text
Me.Hide()
单据表.Show()
Else
MsgBox(密码错误)
End If
Else
MsgBox(该用户不存在)
End If
2)单据功能模块代码
Dim o As New myData.clsUser
Dim p As Integer = 0
Dim s As String
Dim dv As New DataView
Dim index As Integer
’窗体载入数据初始化
Me.Txtboss.Text = frmdl.s
Me.Txtdate.Text = Format(Now, yyyy-MM-dd)
Dim ds As New DataSet
ds = o.getall2ds()
Me.DataGridView1.DataSource = ds.Tables(0).DefaultView
Me.TextBox1.Text = DateTimePicker.Value
’数据插入
Dim ds As DataSet
ds = o.insert(Trim(Me.Txtnum.Text), Me.Txtdate.Text, Me.Txtconsumer.Text, Me.Cbxmk.Text, CStr(Me.Txtmoney.Text), p)
ds.Tables.Clear()
ds = o.getall2ds()
Me.DataGridView1.DataSource = ds.Tables(0)
’数据删除
Dim ds As DataSet
ds = o.delete(Trim(Me.Txtsc.Text))
ds.Tables.Clear()
ds = o.getall2ds()
Me.DataGridView1.DataSource = ds.Tables(0)
’数据查询
Dim ds As DataSet
ds = o.getall2ds(Trim(Me.Txtcx.Text))
ds.Tables.Clear()
ds = o.getall2ds(Trim(Me
您可能关注的文档
最近下载
- 2024年新高考全国二卷英语试卷及答案解析 .pdf
- 成语接龙上韩兴娥.pdf
- 娃哈哈集团管理与营销中存在的主要问题工商管理学毕业论文.doc
- 2024首届全国红旗杯班组长大赛题库及答案(第4001-6000题).docx VIP
- 婚礼费用支出清单.xlsx VIP
- 2024首届全国红旗杯班组长大赛题库及答案 (1一2000题).docx VIP
- 2023年新改版青岛版(六三制)六年级下册科学全册知识点科学全册知识点.docx
- 2024年全国卷Ⅰ英语高考试题(含答案).pdf VIP
- 2024首届全国红旗杯班组长大赛题库及答案(2001-4000题).docx VIP
- 《社会福利思想》全套课件(完整版).ppt
文档评论(0)