民兵信息管理系统

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

民兵信息管理系统(八)