计算机毕业设计区域信息维护功能介绍：
5.3 frmQy（区域信息维护）
此模块用于维护区域信息，宝库保存、删除和取消按钮。如图所示：
|
以下是引用片段：
其主要代码实现如下：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
'提示信息
If Me.Text1(1).Text = "" Then
MsgBox "区域名称不能为空"
Exit Sub
End If
If GetSql("select * from 区域 where 区域名称='" & Me.Text1(1).Text & "'").RecordCount > 0 Then
MsgBox "区域名称名称重复!"
Exit Sub
End If
'保存区域信息
Call SetSql("insert into 区域(区域名称) values('" & Me.Text1(1).Text & "')")
Case 2
'删除区域信息
If GetSql("select * from 客户登记 where 区域编号=" & Me.Text1(1).Tag).RecordCount > 0 Then
MsgBox "当前区域被使用!"
Exit Sub
End If
If GetSql("select * from 房屋登记 where 区域编号=" & Me.Text1(1).Tag).RecordCount > 0 Then
MsgBox "当前区域被使用!"
Exit Sub
End If
Call SetSql("delete from 区域 where 区域编号=" & Me.Text1(1).Tag)
Case 3
Unload Me
End Select
Call initTable
End Sub
Public Sub initTable()
'显示列表的样式和标题
'将查询到的区域信息显示在列表中
'1
Dim arrName()
arrName = Array("区域编号", "区域名称")
Dim arrColwidth()
arrColwidth = Array(0, ddd.Width - 300)
Me.ddd.Cols = 2
ddd.Rows = 2
Dim i As Long
For i = 0 To ddd.Cols - 1
ddd.ColWidth(i) = arrColwidth(i)
ddd.TextMatrix(0, i) = arrName(i)
ddd.TextMatrix(1, i) = ""
Next
ddd.Rows = 31
Call UpdateDDD(ddd, GetSql("SELECT 区域编号,区域名称 from 区域 "))
Me.Text1(1).Text = ""
Me.Text1(1).Tag = ""
End Sub
|
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第9页为计算机毕业论文购房登记模块介绍......