如何分部分对同一条记录进行修改?急需.

jinke 2000-05-31 07:44:00
1.先用ADDNEW 的方法在REPORTINFO 的数据库报表中增加一条记录,
(FIELDS: CUSTNO,REPORTNO,REPORTNAME,REPORTKIND,WRITER),
数据库中已经有一条记录:
custno = 1
reportno 空
REPORTNAME 空
REPORTKIND 空
WRITER 空

然后按“增加”按钮
代码如下:
Data1.Recordset.Sort = "custno"
Data1.Recordset.MoveLast
newid = Data1.Recordset.Fields("custno") + 1
Data1.Recordset.AddNew
Data1.Recordset.Fields("custno") = newid
Data1.Recordset.Fields("reportname") = str03
Data1.Recordset.Fields("writer") = Text4.Text
Data1.Recordset.Update
Data1.Recordset.MoveLast '记录需要重新定位
Unload Me

2.然后按“保存”按钮,执行如下代码

Data1.Recordset.Sort = "custno"
Data1.Recordset.MoveLast
Data1.Recordset.Edit
Data1.Recordset.Fields("reportno") = str04
Data1.Recordset.Fields("reportkind") = str04 & str07
Data1.Recordset.Update

结果:
第一次记录可以按正常结果被记录数据库,(对应各字段),
但重新按“增加”按钮,先增加一条记录,在custno,reportname,writer中
输入数据,再按“保存”按钮,此时数据却没有写进第三条记录的对应字段中
。急需。

分析:
第二次保存,数据却写到第一次增加的记录中,记录定位不正确,请教
如何解决,上面代码哪儿有问题。
另CUSTNO 是唯一的,用整数,是否可以求的CUSTNO的MAX来定位记录。
...全文
101 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
mxp 2000-06-01
  • 打赏
  • 举报
回复
Data1没能刷新,定位在前一条了,新加的没得到,保存前加一句:
Data1.Recordset.Sort = "custno"
Data1.Recordset.Requery '添加纪录刷新,或采用Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.Edit
Data1.Recordset.Fields("reportno") = str04
Data1.Recordset.Fields("reportkind") = str04 & str07
Data1.Recordset.Update
Asima 2000-06-01
  • 打赏
  • 举报
回复
第一段代码中去掉
Data1.Recordset.Fields("writer") = Text4.Text
试试看
Asima 2000-06-01
  • 打赏
  • 举报
回复
你一定是将Text4和数据库建立了关联
问题就在这里
Data1.Recordset.MoveLast
Data1.Recordset.AddNew
Data1.Recordset.Update
都会将数据库更新,
也就是说text4中的内容将替代数据库当前纪录的与之关联的字段的值
     软件工程上机实验要求      利用一种高级语言或数据库程序设计语言,依照所学的软件工程理论设计一个小型软件。要求:   1.大作业在教学17周结束前完成后提交。   2.设计过程原则上要求进行,每组一个题目(各组自定)。每组最多不超过3人,组内不同的学生可工不同,内容不能完全雷同。   3.有详细、完整的文档资料。包括以下内容:      可行性研究报告;     需求规格说明书;     设计说明书(由于编写的是小型软件,故只写概要设计说明书);      用户操作手册;     测试计划;      测试析报告;      软件开发总结报告。   4.有系统设计代码(其中代码注释不少于代码的30%),系统运行说明。   5.软件工程设计题目示例:        题目一 “教务管理系统之子系统——系内课程安排”   1.系统简介    每学期的期中,学院教务处别向各个系发出下学期的教学计划,包   括课程名、课时、班级类别(本科、专科、高职)、班号等;系教学主管人员根据教学任务和要求给出各课程的相关限制(如:任课教师职称、和班数、最高周学时数等);任课教师自报本人授课计划,经所在教研室协调确认,将教学计划上交系主管教学计划的主任,批准后上报学院教务处,最终有教务处给出下学期全系教师的教学任务书。   假设上述排课过程全部为人工操作,现要求改造为能利用计算机实现的自动处理过程。   1. 限定条件   (1)每位教师的主讲门数不超过2门/学期:讲师以下职称的教师不能承担系定主课的主讲任务。   (2)系级干部的主讲课时不能超过4学时/周。   (3)本学期出现严重教学事故的教师不能承担下学期的主讲任务。   (4)本系统的输入项至少应包含3个:教务处布置的教学计划、系教师自报的讲课计划和系定的有关讲课限制条件。   (5)本系统的输出项至少应包含2个:教务处最终下达的全系教师教学任务书和系各教学班一学期的课程表(可不包含上课地点)。       题目二、“学校教材订购系统”   1、 系统简介   本系统可细化为两个子系统:销售系统和采购系统   销售系统的工作过程为:首先由教师或学生提交购书单,经教材发行人员审核是有效购书单后,开发票、登记并返给教师或学生领书单,教师或学生即可去书库领书。   采购系统的主要工作过程为:若是脱销教材,则登记缺书,发缺书单给书库采购人员;一旦新书入库后,即发进书通知给教材发行人员   以上的功能要求在计算机上实现。   2、 技术要求和限制条件   (1) 当书库中的各种书籍数量发生变化(包括领书和进书时),都应修改相关的书库记录,如库存表或进/出库表。   (2) 在实现上述销售和采购的工作过程时,需考虑有关单据的合法性验证   (3) 系统的外部项至少包含三个:教师、学生和教材工作人员。   (4) 系统的相关数据存储至少包含6个:购书表、库存表、缺书登记表、待购教材表、进/出库表。       题目三、“机票预订系统”   1、系统简介   航空公司为给旅客乘机提供方便,需开发一机票预定系统。各旅行社把预定机票的旅客信息(姓名、性别、工作单位、身份证号码、旅行时间、旅行目的地等)输入到该系统,系统为旅客安排航班。当旅客交付了预定金后,系统印出取票通知和帐单给旅客,旅客在飞机起飞的前一天凭取票通知和帐单交款取票,系统核对无误即印出机票给旅客。此外航空公司为随时掌握各航向飞机的乘载情况,需定期进行查询统计,以便适当调整。   2、 技术要求及限定条件   (1)在析系统功能时要考虑有关证件的合法性验证(如身份证、取票通知、交款发票等)。   (2)对于本系统还应补充以下功能:    (1) 旅客延误了取票时间的处理    (2) 班机取消后的处理    (3) 旅客临时更改机票班次的处理   (3) 系统的外部项至少包含三个:旅客、旅行社和航空公司。       题目四:“学校内部工资管理系统”   1、 系统简介   假设学校共有教职工约1000人,10个行政部门和8个系部。每个月20日前各部门(包括系、部)要将出勤情况上报人事处,23日前人事处将出勤工资、奖金及扣款清单送财务处。财务处于每月月底将教职工的工资表做好并将数据送银行。每月初(3日前)将工资条发给各单位。若有员工调入、调出、校内调动、离退休等数据变化,则由人事处通知相关部门和财务处。   2、 技术要求及限定条件   (1) 本系统的数据存储至少包含:工资表、部门汇总表、扣税款表、银行发放表   (2) 除人事处、财务处外,其他只能部门和系部名称可简化,如系1,系2…..等   (3) 工资、奖金、扣款细节可由学生自定       题目五、“实验室设备管理系统”   1
10kV配电线路巡检系统的数据库管理系统研究 【摘要】: 输配电线路的到位巡检是保证电力系统安全运行的重要条件之一。目前巡检工作的效率 和巡检质量以及管理能力存在很多不足,是我们急需解决的问题。文章对在主机上建立 相应的管理数据库、计算机与便携设备通信等进行了研究,规范了巡检作业,为企业提 供了一套可操作的科学管理系统。 【关键词】:巡检管理系统; 数据库; 通信    数据库是系统管理软件的数据基础,可以根据数据组织方式为几种类型,主要有索 引顺序访问方法文件系统、网络模型数据库、层结构数据库以及关联式数据库等。这 些不同类型的数据库不仅在数据管理及访问方面有所差异,而且呈现给用户与设计者的 概念模型也不同。近年来,关联式概念模型已成为数据库程序设计的标准。关联式模型 本身具有强大的功能,提供了结构化查询语言,它的标准界面通用于各种不同格式的数 据库工具与产品。本设计的数据库选择了Microsoft的Access。 一、数据库管理系统结构设计 主机的数据库管理系统采用可视化编程语言VB 6.0编制。设计包括系统管理,信息管理、数据库管理、帮助四个模块。该巡检系统管理 软件的功能结构如图1。 本设计的关联数据库由5个数据表和2个查询表组成:工程师数据表、杆塔设置数据表 、巡检员数据表、巡检计划数据表、巡检信息数据表、以及查询表EveryTable、查询表 ChooseTable。其中前四个数据表可以由管理员通过本系统软件操作界面的下拉式菜单( 用户管理、塔(杆)基本信息设置、巡检员信息管理、巡检计划管理)或直接调用Acce ss进行记录的增减、更改操作,对于没有操作权限的其他操作人员,无法执行此操作。 二、各数据表的设计 1. 工程师数据表设计 工程师数据表用于存放工程师的姓名、密码及其操作权限。该数据表的每个记录设计 为三个字段,即name、password和purview。name字段为工程师的真实姓名,占8个字符 宽度。password字段为该工程师的密码;purview字段存放对管理软件的操作权限。此数 据表设计目的是针对不同的工程师具有不同的管理权限。 2. 杆塔设置数据表设计 该表的每一条记录设计为五个字段:id字段为主关键词,记录内容为巡检重要地段的 序列号,占有10个字符宽度;line_name和tower两个字段别存放序列号相对应的线路 名称和塔号;latitude和longtitude的两个字段的内容为相应于巡检地段的GPS地理数据 (北纬、东经)。在本设计中,便携设备通过通讯座标将地理数据上传到数据库来查询巡 检地段的序列号。 3. 巡检员数据表设计 巡检员数据表用于存放输电线路巡检人员的信息。其per_id字段为巡检人员的数字代 码;per_name字段为巡检人员的真实姓名,占8个字符宽度。此数据表设计的目的是为了 查询巡检结果时确定具体的巡检人员。每次上传到上位机的其实是巡检人员的代码(即 身份序列号),在调用巡检信息查询模块时,用SQL结构化语言,利用该数据表两个字段 的关联性确定具体的巡检人员,并进行显示。 4. 巡检计划数据表设计 巡检是一项重复性比较高的工作,在日常的巡检工作中,通常按地段的重要程度以及 遭受破坏的难易程度,需要对不同巡检地段制定不同的巡检时间,为此制定了巡检计划 数据表。巡检计划数据表每一条记录包括两个字段:plan_id和plan_date。plan_id字段 为计划巡检地段的序列号;plan_date字段存放计划日期,记录的数据格式为短日期形式 (如2008-4-30)。 5. 巡检信息数据表设计 该表用来存放每次巡检员通过便携设备收集的现场输电线路信息以及巡检员的姓名和 巡检的具体操作时间。该数据表的四个字段real_name、real_id、real_date、real_ti me、real_fault别存放由便携设备上传得到的巡检员的姓名、所巡检的具体地段、巡 检时间、巡检缺陷。其中real_id为主关键词。 三、数据查询表设计 文章使用了两个查询表,可以在查询结果中再次查询,简化了查询操作。这两个查询 表独立于上述所介绍的数据表,建立两个单独开的表,通过准则来查询数据表中特殊 的记录。 1. EveryTable查询表设计 EveryTable查询表中SQL查询采用联合查询,其定义如下:SELECT 巡检计划表.plan_id, plan_date, 巡检信息表. real_id, real_date, real_time, real_name, real_fault FROM巡检计划表 LEFT JOIN 巡检信息表 ON 巡检计划表.plan_id=巡检信息表. real_id UNION SELECT 巡检计划表. plan_id, plan_da
微服务是什么?微服务是用于构建应用程序的架构风格,一个大的系统可由一个或者多个微服务组成,微服务架构可将应用拆成多个核心功能,每个功能都被称为一项服务,可以单独构建和部署,这意味着各项服务在工作和出现故障的时候不会相互影响。为什么要用微服务?单体架构下的所有代码模块都耦合在一起,代码量大,维护困难,想要更新一个模块的代码,也可能会影响其他模块,不能很好的定制化代码。微服务中可以有java编写、有Python编写的,他们都是靠restful架构风格统一成一个系统的,所以微服务本身与具体技术无关、扩展性强。大型电商平台微服务功能图为什么要将SpringCloud项目部署到k8s平台?SpringCloud只能用在SpringBoot的java环境中,而kubernetes可以适用于任何开发语言,只要能被放进docker的应用,都可以在kubernetes上运行,而且更轻量,更简单。SpringCloud很多功能都跟kubernetes重合,比如服务发现,负载均衡,配置管理,所以如果把SpringCloud部署到k8s,那么很多功能可以直接使用k8s原生的,减少复杂度。Kubernetes作为成熟的容器编排工具,在国内外很多公司、世界500强等企业已经落地使用,很多中小型公司也开始把业务迁移到kubernetes中。kubernetes已经成为互联网行业急需的人才,很多企业都开始引进kubernetes技术人员,实现其内部的自动化容器云平台的建设。对于开发、测试、运维、架构师等技术人员来说k8s已经成为的一项重要的技能,下面列举了国内外在生产环境使用kubernetes的公司: 国内在用k8s的公司:阿里巴巴、百度、腾讯、京东、360、新浪、头条、知乎、华为、小米、富士康、移动、银行、电网、阿里云、青云、时速云、腾讯、优酷、抖音、快手、美团等国外在用k8s的公司:谷歌、IBM、丰田、iphone、微软、redhat等整个K8S体系涉及到的技术众多,包括存储、网络、安全、监控、日志、DevOps、微服务等,很多刚接触K8S的初学者,都会感到无从下手,为了能让大家系统地学习,克服这些技术难点,推出了这套K8S架构师课程。Kubernetes的发展前景 kubernetes作为炙手可热的技术,已经成为云计算领域获取高薪要掌握的重要技能,在招聘网站搜索k8s,薪资水平也非常可观,为了让大家能够了解k8s目前的薪资布情况,下面列举一些K8S的招聘截图: 讲师介绍:  先超容器云架构师、IT技术架构师、DevOps工程师,曾就职于世界500强上市公司,拥有多年一线运维经验,主导过上亿流量的pv项目的架构设计和运维工作;具有丰富的在线教育经验,对课程一直在改进和提高、不断的更新和完善、开发更多的企业实战项目。所教学员遍布京东、阿里、百度、电网等大型企业和上市公司。课程学习计划 学习方式:视频录播+视频回放+全套源码笔记 教学服务:模拟面试、就业指导、岗位内推、一对一答疑、远程指导 VIP终身服务:一次购买,终身学习课程亮点:1. 学习方式灵活,不占用工作时间:可在电脑、手机观看,随时可以学习,不占用上班时间2.老师答疑及时:老师24小时在线答疑3. 知识点覆盖全、课程质量高4. 精益求精、不断改进根据学员要求、随时更新课程内容5. 适合范围广,不管你是0基础,还是拥有工作经验均可学习:0基础1-3年工作经验3-5年工作经验5年以上工作经验运维、开发、测试、产品、前端、架构师其他行业转行做技术人员均可学习课程项目截图   课程大纲 k8s+SpringCloud全栈技术:基于世界500强的企业实战课程-大纲第一章 开班仪式老师自我介绍、课程大纲介绍、行业背景、发展趋势、市场行情、课程优势、薪资水平、给大家的职业规划、课程学习计划、岗位内推第二章 kubernetes介绍Kubernetes简介kubernetes起源和发展kubernetes优点kubernetes功能kubernetes应用领域:在大数据、5G、区块链、DevOps、AI等领域的应用第三章  kubernetes中的资源对象最小调度单元Pod标签Label和标签选择器控制器Replicaset、Deployment、Statefulset、Daemonset等四层负载均衡器Service第四章 kubernetes架构和组件熟悉谷歌的Borg架构kubernetes单master节点架构kubernetes多master节点高可用架构kubernetes多层架构设计原理kubernetes API介绍master(控制)节点组件:apiserver、scheduler、controller-manager、etcdnode(工作)节点组件:kube-proxy、coredns、calico附加组件:prometheus、dashboard、metrics-server、efk、HPA、VPA、Descheduler、Flannel、cAdvisor、Ingress     Controller。第五章 部署多master节点的K8S高可用集群(kubeadm)第六章 带你体验kubernetes可视化界面dashboard在kubernetes中部署dashboard通过token令牌登陆dashboard通过kubeconfig登陆dashboard限制dashboard的用户权限在dashboard界面部署Web服务在dashboard界面部署redis服务第七章 资源清单YAML文件编写技巧编写YAML文件常用字段,YAML文件编写技巧,kubectl explain查看帮助命令,手把手教你创建一个Pod的YAML文件第八章 通过资源清单YAML文件部署tomcat站点编写tomcat的资源清单YAML文件、创建service发布应用、通过HTTP、HTTPS访问tomcat第九章  kubernetes Ingress发布服务Ingress和Ingress Controller概述Ingress和Servcie关系安装Nginx Ingress Controller安装Traefik Ingress Controller使用Ingress发布k8s服务Ingress代理HTTP/HTTPS服务Ingress实现应用的灰度发布-可按百比、按流量发第十章 私有镜像仓库Harbor安装和配置Harbor简介安装HarborHarbor UI界面使用上传镜像到Harbor仓库从Harbor仓库下载镜像第十一章 微服务概述什么是微服务?为什么要用微服务?微服务的特性什么样的项目适合微服务?使用微服务需要考虑的问题常见的微服务框架常见的微服务框架对比析第十二章 SpringCloud概述SpringCloud是什么?SpringCloud和SpringBoot什么关系?SpringCloud微服务框架的优缺点SpringCloud项目部署到k8s的流程第十三章 SpringCloud组件介绍服务注册与发现组件Eureka客户端负载均衡组件Ribbon服务网关Zuul熔断器HystrixAPI网关SpringCloud Gateway配置中心SpringCloud Config第十四章 将SpringCloud项目部署到k8s平台的注意事项如何进行服务发现?如何进行配置管理?如何进行负载均衡?如何对外发布服务?k8s部署SpringCloud项目的整体流程第十五章 部署MySQL数据库MySQL简介MySQL特点安装部署MySQL在MySQL数据库导入数据对MySQL数据库授权第十六章 将SpringCLoud项目部署到k8s平台SpringCloud的微服务电商框架安装openjdk和maven修改源代码、更改数据库连接地址通过Maven编译、构建、打包源代码在k8s中部署Eureka组件在k8s中部署Gateway组件在k8s中部署前端服务在k8s中部署订单服务在k8s中部署产品服务在k8s中部署库存服务第十七章 微服务的扩容和缩容第十八章 微服务的全链路监控什么是全链路监控?为什么要进行全链路监控?全链路监控能解决哪些问题?常见的全链路监控工具:zipkin、skywalking、pinpoint全链路监控工具对比析第十九章 部署pinpoint服务部署pinpoint部署pinpoint agent在k8s中重新部署带pinpoint agent的产品服务在k8s中重新部署带pinpoint agent的订单服务在k8s中重新部署带pinpoint agent的库存服务在k8s中重新部署带pinpoint agent的前端服务在k8s中重新部署带pinpoint agent的网关和eureka服务Pinpoint UI界面使用第二十章 基于Jenkins+k8s+harbor等构建企业级DevOps平台第二十一章 基于Promethues+Alert+Grafana搭建企业级监控系统第二十二章 部署智能化日志收集系统EFK 

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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