下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB实验单据设计

VB实验单据设计.doc

VB实验单据设计

回忆就像无声电影_
2019-06-22 0人阅读 举报 0 0 暂无简介

简介:本文档为《VB实验单据设计doc》,可适用于IT/计算机领域

软件开发环境与工具实验报告实验三实验题目:单据设计         指导老师:***        专业班级:计算机科学与技术系**班姓  名:***年月日实验类型 验证          实验室 软件实验室一一、实验题目完整单据的设计二、实验目的掌握单据设计的基本流程了解一个单据要实现的基本功能(新增修改删除)利用三层架构思想及ADONTE技术实现程序要求、实验内容、设计单据展示页面。、利用工具栏添加功能键实现其相应的功能。、能够对单据进行的新增、编辑、保存等等。四、实验步骤、主页的设计代码PublicClassRKslDimappAsNewKuApplyClassDimdtsetAsDataSetDimdtsetAsDataSetDimdtsetlineAsDataSetDimcRowAsDataRowDimcRowAsDataRowDimstr()AsStringDimbiaojiAsStringDimjiluAsIntegerDimmaxAsIntegerPrivateSubToolListItemClicked(ByValsenderAsSystemObject,ByValeAsSystemWindowsFormsToolStripItemClickedEventArgs)HandlesToolListItemClickedSelectCaseeClickedItemTextCase"增加¨"MeBillsNameEnabled=TrueMeStorageIDEnabled=TrueMeCKNameEnabled=falseMeRUslEnabled=TrueMeZDNameEnabled=TrueMeSHNameEnabled=FalseMeTextIDEnabled=FalseMeSHNameEnabled=Falsebiaoji="增加¨"Case"删除"biaoji="删除"MeBillsNameEnabled=FalseMeStorageIDEnabled=FalseMeCKNameEnabled=FalseMeRUslEnabled=FalseMeSHNameEnabled=FalseMeTextIDEnabled=TrueMeSHNameEnabled=FalseCase("修改")biaoji="修改"MeBillsNameEnabled=TrueMeStorageIDEnabled=TrueMeCKNameEnabled=FalseMeRUslEnabled=TrueMeZDNameEnabled=TrueMeSHNameEnabled=FalseMeTextIDEnabled=TrueMeSHNameEnabled=FalseCase"查找"biaoji="查找"MeBillsNameEnabled=FalseMeStorageIDEnabled=FalseMeCKNameEnabled=FalseMeRUslEnabled=FalseMeZDNameEnabled=FalseMeTextIDEnabled=TrueMeSHNameEnabled=FalseCase"审查"biaoji="审查"MeBillsNameEnabled=FalseMeStorageIDEnabled=FalseMeCKNameEnabled=FalseMeRUslEnabled=FalseMeZDNameEnabled=FalseMeSHNameEnabled=TrueMeTextIDEnabled=TrueCase"首页"CallFirstRow()Case"上页"CallPreRow()Case"下页"CallNextRow()Case"末页"CallEndRow()EndSelectEndSubSubFirstRow()jilu=Mepage(jilu)EndSubSubPreRow()jilu=Mepage(jilu)EndSubSubNextRow()jilu=Mepage(jilu)EndSubSubEndRow()biaoji=dtsetTables()DefaultViewCountMepage(jilu)EndSubPrivateSubFormLoad(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesMyBaseLoaddtset=appfillDimiAsIntegeri=ForEachMecRowIndtsetTables()RowsMeStorageIDItemsAdd(cRow()ToString)str(i)=cRow()ToStringi=NextForEachMecRowIndtsetTables()RowsMeBillsNameItemsAdd(cRow()ToString""cRow()ToString)NextMeZDDateText=DateTodayYear()""DateTodayMonth()""DateTodayDay()""DateNowHour()""DateNowMinute()jilu=dtsetTables()DefaultViewCountmax=jiluMepage(jilu)EndSubPrivateSubStorageIDSelectedIndexChanged(ByValsenderAsSystemObject,ByValeAsSystemEventArgs)HandlesStorageIDSelectedIndexChangedMeCKNameText=str(MeStorageIDSelectedIndex)

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/8

VB实验单据设计

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利