VB+Access学生公寓管理系统 第8页

4.4公寓管理

4.4.1学生请假

   学生请假与违规在一个公寓管理中是最常见的问题了，所以在此软件中加上了这两项功能。用它们可以随时记录请假记录。

①学生请假记录图片显示

图4.9学生请假效果图

② 界面制作与实现

    此界面主要是对学生请假记录做一个添加。利用它可以把学生的基本的请假资料保存起来。其中的日期是系统当前的日期，它是不可以进行更改的，然后在其它文本框中输入其它详细资料即可以。这里的添加操作用的是Adodc控件，所有的文本框在初始的时候没有同Adodc绑定，而是在代码中与数据库中表的字段进行的绑定，然后进行添加操作。这样做在使用的时候有很大的方便之处。第一是窗体在初始化时不会显示任何记录，不用设置文本框为空等一系列的操作。第二是当进行记录输入时，发现问题不用输入时，不按添加按钮记录就不会进行添加。注意的是，在添加前要确定所有的文本框都要进行详细填写，否则会提示输入详细信息。添加主要代码如下：

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Then

 MsgBox "请输入详细信息！", , "系统提示"

Else

With Adodc1

.Recordset.AddNew

.Recordset.Fields(0).Value = Text1.Text

.Recordset.Fields(1).Value = Text2.Text

.Recordset.Fields(2).Value = Text3.Text

.Recordset.Fields(3).Value = Text4.Text

.Recordset.Fields(4).Value = Text5.Text

.Recordset.Fields(5).Value = Text6.Text

.Recordset.Fields(6).Value = Text7.Text

.Recordset.Fields(7).Value = Text8.Text

.Recordset.Fields(8).Value = Text9.Text

.Recordset.Update

End With

Set main.DataGrid1.datasource = Adodc1

main.DataGrid1.Refresh

End If

4.4.2学生违规

①学生违规记录图片显示

图4.10学生违规效果图

此界面与上面的请假记录差不多。它主要是对学生的违规记录做一个添加。其中的日期也是系统当前的日期，它是不可以进行更改的，然后在其它文本框中输入其它详细资料即可以这里的违规操作用的也是Adodc控件，所有的文本框在初始的时候也没有同Adodc绑定，它也是在代码中与数据库中表的字段进行的绑定，然后进行添加操作。其它操作同上面基本是一致的，对于违规在主界面的左侧并没有快速显示操作，只可以用记录查看里面的违规查看进行选择查看。在这里所添写的记录也要全面一些，主要是为了以后查找更为方便，如果不全，系统会提示的！

②违规部分代码如下：

在load事件里对数据库链接的处理，以及日期文本框的设置，代码如下：

provider = "provider=Microsoft.jet.oledb.4.0"

datasource = "data source=" & App.Path & "\DB.mdb"

With Adodc1

.Mode = adModeReadWrite

.ConnectionString = provider & ";" & datasource

.CommandType = adCmdTable

.RecordSource = "qingjia"

.Refresh

End With

Text1.Text = Date

Text1.Enabled = False

确定无误后，进行添加，代码如下：

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Then

 MsgBox "请输入详细信息！", , "系统提示"

Else

With Adodc1

.Recordset.AddNew

.Recordset.Fields(0).Value = Text1.Text

.Recordset.Fields(1).Value = Text2.Text

.Recordset.Fields(2).Value = Text3.Text

.Recordset.Fields(3).Value = Text4.Text

.Recordset.Fields(4).Value = Text5.Text

.Recordset.Fields(5).Value = Text6.Text

.Recordset.Fields(6).Value = Text7.Text

.Recordset.Fields(7).Value = Text8.Text

.Recordset.Fields(8).Value = Text9.Text

.Recordset.Update

End With

Set main.DataGrid1.datasource = Adodc1

main.DataGrid1.Refresh

4.5卫生检查

公寓卫生可以说是一个公寓管理中最常见到的问题了。公寓卫生每天要清扫，寝室卫生每天要检查，但是如果这些都用纸来进行填写，一定会十分麻烦，且保存也不是十分方便，在一些评比中也会忙的很遭。所以在这个软件中编写了此功能。

4.5.1 公寓卫生添加效果图

图4.11公寓卫生添加效果图

①在这个界面中主要用到了文本框以及起到美观作用的frame控件。

日期已经设置成只读属性，检查记录的日期是不能随便改写的。公寓名称可以在下拉列表框中进行选择，如果在下拉列表框中没有发现，可以人工输入，但是要确定公寓名称的正确性。寝室名称需要自己输入。这里的卫生标准一共有五项可以填写，在每一项里已经基本设置了所不全标准的记录，你可以在下拉列表框中进行选择即可，但是如果没有你想输入的记录的话，你也可以自己输入。输入完成后，在减分后面的文本框中输入一共要对此寝室减掉的分数，单击得分后面的文本框会自动算出应该得到的分数。然后跟据得分的分数，你要选择该寝室的卫生等级，卫生等级为必选值且为固定值，正确的选择此项可以在主界面的左侧中快速对卫生等级进行查看。

②公寓选择栏中代码的实现：

Combo3.Clear

Dim I As Integer

I = 1

If Adodc1.Recordset.RecordCount <> 0 Then

Do While I < Adodc1.Recordset.RecordCount

    Combo3.AddItem (Adodc1.Recordset.Fields("公寓名称"))

    Adodc1.Recordset.MoveNext

    I = I + 1

Loop

End If

卫生选择栏中的代码实现基本同上，它也是一个表中的字段值！

Dim J As Integer

J = 1

If Adodc4.Recordset.RecordCount <> 0 Then

Do While J < Adodc4.Recordset.RecordCount

    Combo2.AddItem (Adodc4.Recordset.Fields("等级"))

    Adodc4.Recordset.MoveNext

    J = J + 1

Loop

End If

Combo2.Text = "优秀"

不合标准的卫生记录填写情况如下：

Combo4.AddItem ("门窗不干净")

Combo4.AddItem ("地面不干净")

Combo4.AddItem ("阳台不干净")

Combo4.AddItem ("床铺不整齐")

Combo4.AddItem ("不叠被")

Combo4.AddItem ("桌面不整齐")

Combo4.AddItem ("书柜摆放不整齐")

由于此窗体中涉及到公寓与寝室，在填写时要确定其名称的正确，所以在添加记录前要对它们进行检查，如发现不存在的记录，则显示提示。检查记录时用的是adodc中的find命令。类似于用户登录时的判断，同样记录的输入也要详细。代码如下：

Adodc1.Refresh

Adodc1.Recordset.Find "公寓名称='" & Combo3.Text & "'"

If Adodc1.Recordset.EOF = True Then

MsgBox "查无此公寓", , "提示"

Adodc1.Recordset.MoveFirst

Exit Sub

End If

Adodc3.Refresh

Adodc3.Recordset.Find "寝室='" & Text5.Text & "'"

If Adodc3.Recordset.EOF = True Then

MsgBox "查无此寝室", , "提示"

Adodc3.Recordset.MoveFirst

Exit Sub

End If

If Combo3.Text = "" Or Combo2.Text = "" Or Text5.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then

 MsgBox "请输入详细信息！", , "系统提示"

Else

确认一切无误后，开始对所填写记录进行添加并显示：

With Adodc2

.Recordset.AddNew

.Recordset.Fields(0).Value = Combo3.Text

.Recordset.Fields(1).Value = Text5.Text

.Recordset.Fields(2).Value = Combo4.Text

.Recordset.Fields(3).Value = Combo5.Text

.Recordset.Fields(4).Value = Combo6.Text

.Recordset.Fields(5).Value = Combo7.Text

.Recordset.Fields(6).Value = Combo8.Text

.Recordset.Fields(7).Value = Text2.Text

.Recordset.Fields(8).Value = Text3.Text

.Recordset.Fields(9).Value = Combo2.Text

.Recordset.Fields(10).Value = Text4.Text

.Recordset.Fields(11).Value = Text1.Text

.Recordset.Update

End With

Set main.DataGrid1.datasource = Adodc2

main.DataGrid1.Refresh

4.6 公寓资产

    公寓资产可以及时对公寓里进出财务进行统计，以免遗忘，造成不必要的损失或不必要的麻烦，它的实现方法基本同上面的卫生记录的添加，相对比来说比上面的简单一些。不足的是目前只做出了入库管理，对于出库记录还没有实现。

4.6.1公寓资产添加设置效果图

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 


VB+Access学生公寓管理系统 第8页下载如图片无法显示或论文不完整，请联系qq752018766