民兵信息管理系统_毕业论文范文网-论文范文

搜索高级搜索

原创毕业论文

民兵信息管理系统(八)

作者: 浏览:424次

免费专业论文
政治工作论文
计算机论文
营销专业论文
工程管理论文范文
医药医学论文范文
法律论文范文
生物专业论文
物理教学论文范文
人力资源论文范文
化学教学论文范文
电子专业论文范文
历史专业论文
电气工程论文
社会学专业论文
英语专业论文
行政管理论文范文
语文专业论文
电子商务论文范文
焊工钳工技师论文
社科文学论文
教育论文范文
数学论文范文
物流论文范文
建筑专业论文
食品专业论文
财务管理论文范文
工商管理论文范文
会计专业论文范文
专业论文格式
化工材料专业论文
英语教学专业论文
电子通信论文范文
旅游管理论文范文
环境科学专业论文
经济论文
人力资源论文范文
营销专业论文范文
财务管理论文范文
物流论文范文
财务会计论文范文
数学教育论文范文
数学与应用数学论文
电子商务论文范文
法律专业论文范文
工商管理论文范文
汉语言文学论文
计算机专业论文
教育管理论文范文
现代教育技术论文
小学教育论文范文
机械模具专业论文
报告,总结,申请书
心理学论文范文
学前教育论文范文

收费计算机专业论文范文

收费计算机专业论文
Delphi
ASP
VB
JSP
ASP.NET
VB.NET
java
VC
pb
VS
dreamweaver
c#.net
vf
VC++
计算机论文

毕业论文范文题目：民兵信息管理系统(八)，论文范文关键词：民兵信息管理系统(八)
民兵信息管理系统(八)毕业论文范文介绍开始：

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

以上为本篇毕业论文范文民兵信息管理系统(八)的介绍部分。

本论文在计算机论文栏目，由论文网(www.zjwd.net)整理,更多论文,请点论文范文查找