站内搜索：

VB房屋销售管理系统(8)

来源：xiaoniu168.com 作者：本站原创添加时间：2012-02-05 点击数：19008

计算机毕业设计区域信息维护功能介绍：

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