网站地图
范文同学网


自动化 模具 机械 电子 通信 动画 英语范文 工程管理 金融范文 旅游管理 工业工程 生物工程 给排水范文 西门子PLC 历史学 三菱PLC
单片机 财务 会计 法律 行政 物理 物流范文 电子商务 制药工程 包装工程 土木工程 材料科学 汉语言范文 欧姆龙PLC 电压表 松下PLC
计算机 化工 数电 工商 食品 德语 国贸范文 人力资源 教育管理 交通工程 市场营销 印刷工程 机电一体化 数控范文 变电站 文化产业

  • 网站首页|
  • 文档范文|
  • 人工降重|
  • 职称文章发表|
  • 合作期刊|
  • 范文下载|
  • 计算机范文|
  • 外文翻译|
  • 免费范文|
  • 原创范文|
  • 开题报告

联系方式

当前位置:范文同学网 -> 免费范文 -> 计算机范文 -> 民兵信息管理系统(八)
计算机文章范文| ASP设计| Delphi| VB设计| JSP设计| ASP.NET| VB.NET| java设计| VC| pb| VS| dreamweaver| c#.net| vf| VC++| 计算机文档范文| 范文下载| 自动化范文
·电气自动化原创文章范文 ·学前教育专业原创文章范文 ·国际经济贸易原创文章范文 ·药学专业原创文章范文 ·英语专业原创文章范文 ·公共事业管理原创文章范文
·金融专业原创文章范文 ·广播电视编导原创文章范文 ·电子商务专业原创文章范文 ·法律专业原创文章范文 ·工商管理原创文章范文 ·汉语言文学原创文章范文
·人力资源管理原创文章范文 ·摄影专业原创文章范文 ·心理学专业原创文章范文 ·教育管理原创文章范文 ·市场营销原创文章范文 ·计算机专业原创文章范文
·物流管理专业原创文章范文 ·小学教育专业原创文章范文 ·行政管理专业原创文章范文 ·土木工程管理原创文章范文 ·财务会计专业原创文章范文 ·信息管理信息系统原创范文
·新闻学专业原创文章范文 ·眼视光技术原创文章范文 ·播音与主持原创文章范文 ·广告学专业原创文章范文 ·表演专业原创文章范文 ·动画专业原创文章范文
·视觉传达设计原创文章范文 ·数控技术专业原创文章范文 ·录音艺术原创文章范文 ·光机电应用技术原创范文 ·机电一体化原创文章范文 ·印刷技术专业原创文章范文
·动漫设计与制作原创范文 ·软件技术专业原创文章范文 ·书法学专业原创文章范文 ·应用电子技术原创文章范文 ·电子信息工程技术原创范文 ·机械专业原创文章范文
·酒店管理专业原创文章范文 ·旅游管理专业原创文章范文 ·文化产业管理专业原创范文 ·体育教育专业原创文章范文 ·通信工程专业原创文章范文 ·护理专业原创文章范文

原创文档范文 → 计算机专业原创文档范文 软件技术专业原创文档范文  现成文档范文 → 计算机文档范文

民兵信息管理系统(八)

本文ID:LW22352 ¥
End If … 以上这段代码是当进行民兵信息录入时没有输入民兵所属的行政单位编码或没有输入基层单位编码,部队名称编码时都会弹出一个对话框予以相应提示。因为,这些是民兵个人的基本信息是不允许空的。这也是在进行需求分析时,用户要求的(录入的民兵基本信息不能为空)。 If Len(Text1.Text) <> 3 Then '如输入..

 End If
 …
 以上这段代码是当进行民兵信息录入时没有输入民兵所属的行政单位编码或没有输入基层单位编码,部队名称编码时都会弹出一个对话框予以相应提示。因为,这些是民兵个人的基本信息是不允许空的。这也是在进行需求分析时,用户要求的(录入的民兵基本信息不能为空)。
 If Len(Text1.Text) <> 3 Then      '如输入数据不符合要求则提示
    MsgBox "请输入建制编号3位", vbInformation + vbOKOnly, "提示"
    Text1.SetFocus
    Exit Sub
 End If
 …
 以上这段代码是检验输入的信息是否符合要求,这里的民兵建制编号3位,连队编号2位,排编号2位,班编号2位,个人编号2位,如果输入的这些编号没有达到这个要求,会给出信息提示,以帮助操作人员及时发现问题的所在并予以更正。
 If Text6.Text = "" Then
    MsgBox "请输入姓名", vbInformation + vbOKOnly, "提示"
    Text6.SetFocus
    Exit Sub
 End If
 …
 以上这段代码是逐一检验输入的的内容不能是空的。
 下面的这部分代码是完成唯一性检验,当输入的个人编码已存在于某条记录时,显示该记录并提示信息(因个人编码的唯一性),否则,会成功将这条记录添加到数据库中,并提示“信息录入成功!”
 Adodc1.RecordSource = "select * from 民兵信息录入 where 个人编码 ='" & Trim(DataCombo3.Text + Text1.Text + Text2.Text + Text3.Text + Text4.Text + Text5.Text) & "' "     '唯一性检验
 Set DataGrid1.DataSource = Adodc1
 Adodc1.Refresh
 If Not (Adodc1.Recordset.EOF) And Not (Adodc1.Recordset.BOF) Then
    MsgBox "该个人编码已存在表中所示的记录中,个人编码不能重复,请核查后再输!", vbInformation + vbOKOnly, "提示"
    Exit Sub   '当输入的个人编码已存在于某条记录时,显示该记录并提示信息(因个人编码的唯一性)
 说明:
 如果在设计状态没有为打开数据库控件的有关属性全部赋值,或当RecordSource在运行时被改变后,必须使用数据控件的Refresh方法激活这些变化。在录入民兵个人基本信息时,采用AddNew方法在记录集中增加新记录。增加记录的步骤为:
 (1)调用AddNew方法。
 (2)给各字段赋值。给字段赋值格式为:Recordset.Fields(”字段名”)=值。
 (3)调用Update方法,确定所做的添加,将缓冲区内的数据写入数据库。
 注意:如果使用AddNew方法添加新的记录,但是没有使用Update方法而移动到其他记录,或者关闭记录集,那么所做的输入将全部丢失,而且没有任何警告。当调用Update方法写入记录后,记录指针自动返回到添加新记录前的位置上,而不显示新记录。为此,可在调用Update方法后,使用MoveLast方法将记录指针再次移到新记录上。
 下面这部分代码是在经过检验后,没有发现准备录入的民兵个人编码与表中的其他个人编码重复时,便将这些信息作为一条新记录存入到数据库中的民兵信息录入表中去。
 Adodc1.Recordset.AddNew      '添加新记录
 Adodc1.Recordset("个人编码") = DataCombo3.Text + Text1.Text + Text2.Text + Text3.Text + Text4.Text + Text5.Text
 Adodc1.Recordset("行政编码") = DataCombo1.Text
 Adodc1.Recordset("单位编码") = DataCombo2.Text
 …
 Adodc1.RecordSource = "select * from 民兵信息录入"      '查看记录集
 Set DataGrid1.DataSource = Adodc1
 Adodc1.Refresh
 说明:在录入中的个人编码是由部队编码:6位、建制编号 3位、连队编号 2位、排编号 2位、班编号 2位、个人编号 2位共17位组成。在这里个人编码是主键,因此,当输入的个人编码已存在于某条记录时,显示该记录并提示信息(因个人编码的唯一性)。
 在这里用到了DataGrid控件来显示录入的民兵信息和其它记录信息, 下面对其用法予以简要介绍,DataGrid 控件是一种类似于电子数据表的绑定控件,可以显示一系列行和列来表示 Recordset 对象的记录和字段。还可以使用 DataGrid 来创建一个允许最终用户阅读和写入到绝大多数数据库的应用程序。DataGrid 控件可以在设计时快速进行配置,只需少量代码或无需代码。当在设计时设置了DataGrid 控件的 DataSource 属性后,就会用数据源的记录集来自动填充该控件,以及自动设置该控件的列标头。
 在该窗体(frmMbxxlr)【修改】按钮的Click事件中输入如下代码:
 Private Sub Command4_Click()    '修改模块
 Command1.Enabled = True     '完成“修改”后恢复“录入”按钮和“删除”按钮为可用按钮
 Command3.Enabled = True
If MsgBox("你确认要修改该记录吗?", vbQuestion + vbOKCancel, "记录修改") = vbOK Then
 Adodc1.Recordset.Delete      '删除原记录
 Adodc1.Recordset.Update
 Adodc1.Recordset.AddNew      '将修改后的记录添加入库
 Adodc1.Recordset("个人编码") = DataCombo3.Text + Text1.Text + Text2.Text + Text3.Text + Text4.Text + Text5.Text
 Adodc1.Recordset("行政编码") = DataCombo1.Text
 Adodc1.Recordset("单位编码") = DataCombo2.Text
 …
 Adodc1.Recordset.Update
 MsgBox "修改成功!", vbInformation + vbOKOnly
 Adodc1.Recordset.MoveLast
 …
 在修改某条记录时,先双击该条记录,将这条记录的信息回显到相应的文本框中,在要修改的地方进行修改后,单击该窗体(frmMbxxlr)【修改】按钮。这时便执行以上代码。确认修改之后,它会先删除原先错

首页 上一页 5 6 7 8 9 10 11 下一页 尾页 8/11/11

民兵信息管理系统(八)相关范文
上一篇:进销存系统管理 下一篇:基于WebQuest的建构-探究教学模..
点击查看关于 民兵 信息 管理系统 的相关范文题目 【返回顶部】
精彩推荐
电气工程自动化原创范文  电子商务原创文章范文
人力资源专业原创文章范文 土木工程原创文章范文
工商管理专业原创范文    药学专业原创范文
汉语言文学专业原创范文  会计专业原创文章范文
计算机技术原创文章范文  金融学原创文章范文
法学专业原创文章范文   市场营销专业原创范文
信息管理专业原创文章范文 学前教育专业原创范文
公共事业管理专业原创范文 英语专业原创范文
教育管理专业原创范文   行政管理专业原创范文
热门范文

关于我们 | 联系方式 | 范文说明 | 网站地图 | 免费获取 | 钻石会员 | 硕士文章范文


范文同学网提供文档范文,原创文章范文,网站永久域名www.lunwentongxue.com ,lunwentongxue-范文同学网拼音首字母组合

本站部分文章来自网友投稿上传,如发现侵犯了您的版权,请联系指出,本站及时确认并删除  E-mail: 17304545@qq.com

Copyright@ 2009-2024 范文同学网 版权所有