VB学生宿舍管理系统(六)

VB学生宿舍管理系统(六) nabled = False
 Text2.Enabled = False
 Text3.Enabled = False
 Text4.Enabled = False
 Option1.Value = False
 Option2.Value = False
 Option1.Enabled = False
 Option2.Enabled = False
 End If
4.3.2 公寓设置
 公寓设置可以说是本程序中一关键部分。因为所有的设置都在此进行。包括公寓添加、修改、删除。寝室的添加、修改、删除以及班级的添加、修改和删除操作。只有正确的对这些设置进行添加修改，才能输入正确的记录。这里主要涉及到的问题是datagrid的显示，以及treeview及时形成新的结构。还有一些就是对表记录的复杂操作。
在点击sstab各版的时候，要在这时重新生成寝室设置中的树型结构，
Select Case PreviousTab
       Case 0
       Call startree1
       Case 1
        Combo1.Clear
       Dim I As Integer
        I = 1
        If Adodc1.Recordset.RecordCount <> 0 Then
        Adodc1.Recordset.MoveFirst
        Do While I < Adodc1.Recordset.RecordCount
        Combo1.AddItem (Adodc1.Recordset.Fields("公寓名称"))
        Adodc1.Recordset.MoveNext
        I = I + 1
        Loop
        End If
       Call startree1
       Case 2
       Call startree1
End Select
End Sub
(1) 公寓设置
① 公寓设置效果图

图4.4公寓设置
② 界面制作与实现方法
 在这个界面中主要用到了一个Sstab控件与一个显示表中内容的Datagrid控件。以及起到美观作用的Frame控件。
 在右下角的文本框中可以输入想要添加的公寓名称。然后点击添加即可完成添加操作。Datagrid中会立即刷新显示更新内容。要修改某条记录时，要先对所要修改的记录进行选择，确认选择后，点击下面的修改按钮，会在下面的文本中显示出所要修改公寓的名称，此时即可输入要修改的名字。然后点击更新就会完成此操作。Datagrid也会即时更新其内容。删除操作更为简单，选择想要删除的公寓名称，点击删除，确认后完成此操作。但是删除后不会影响其它表中的数据。其它表的有关此公寓的信息还会存在。
 在进行所有操作前，先要确定数据库已连接。
 在添加前要判断所写公寓名称是否正确，即是否输入名称，该记录不能为空，不为空则对数据库表进行查找，判断当前输入记录是否已在表中存在，如果已存在，则会给出提示，不存在，添加成功。
Adodc1.Recordset.Find "公寓名称='" & Text2.Text & "'"
If Adodc1.Recordset.EOF = False Then
MsgBox "此公寓已存在", , "提示"
Adodc1.Recordset.MoveFirst
Exit Sub
End If
Text3.Text = ""
If Text2.Text = "" Then
MsgBox "输入所要添加公寓的名称", , "提示"
Exit Sub
End If
添加：
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("公寓名称") = Text2.Text
Adodc1.Recordset.Update
Adodc1.RecordSource = "gongyu"
Text2.Text = ""
Set DataGrid2.datasource = Adodc1
DataGrid2.Refresh

修改公寓名称：
If Text3.Text = "" Then
MsgBox "选择要修改的公寓", , "提示"
Exit Sub
End If
If Command12.Caption = "修改" Then
Text2.Text = Text3.Text
Label6.Caption = "输入想要修改的公寓名称"
Command12.Caption = "更新"
Command3.Enabled = False
Command7.Enabled = False
ElseIf Command12.Caption = "更新" Then
Command3.Enabled = True
Command7.Enabled = True
Label6.Caption = "输入想要添加的公寓名称"
Adodc1.Recordset.Fields("公寓名称") = Text2.Text
Adodc1.Recordset.Update
Adodc2.Recordset.ActiveConnection.Execute "update qinshi set 公寓名称='" & Text2.Text & "' where 公寓名称='" & Trim(Text3.Text) & "'"
Adodc2.Recordset.Update
Command12.Caption = "修改"
End If
Set DataGrid2.datasource = Adodc1
DataGrid2.Refresh
Adodc

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

VB学生宿舍管理系统(六)由毕业论文网（www.huoyuandh.com）会员上传。