main_xtwh_xtcsh.frm

小区物业管理系统,(vb6+SQLServer2000+使用说明)

      Width           =   8535
      Begin VB.CheckBox Chkfw 
         Caption         =   "房屋信息"
         Height          =   240
         Left            =   3330
         TabIndex        =   8
         Top             =   330
         Width           =   1080
      End
      Begin VB.CheckBox Chkdl 
         Caption         =   "大楼信息"
         Height          =   240
         Left            =   1770
         TabIndex        =   3
         Top             =   330
         Width           =   1125
      End
      Begin VB.CheckBox Chkxq 
         Caption         =   "小区信息"
         Height          =   225
         Left            =   210
         TabIndex        =   2
         Top             =   330
         Width           =   1110
      End
   End
   Begin VB.Image Image1 
      Height          =   270
      Left            =   90
      Picture         =   "main_xtwh_xtcsh.frx":1C7A
      Stretch         =   -1  'True
      Top             =   30
      Width           =   255
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "提示：初始化将清空所选项的数据"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   255
      Left            =   450
      TabIndex        =   0
      Top             =   60
      Width           =   3450
   End
End
Attribute VB_Name = "main_xtwh_xtcsh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Cnn As New ADODB.Connection    '声明一个Connection对象
Dim sql As String     '声明一个字符串变量

Private Sub CmdAll_Click()  '全选
    Chkbapb.Value = 1
    Chkcnf.Value = 1
    Chkdf.Value = 1
    Chkdl.Value = 1
    Chkfw.Value = 1
    Chkfwcx.Value = 1
    Chkfykm.Value = 1
    Chkmqf.Value = 1
    Chkqtf.Value = 1
    Chksf.Value = 1
    Chkwx.Value = 1
    Chkxq.Value = 1
    Chkxqbm.Value = 1
    Chkxqts.Value = 1
    Chkxqyg.Value = 1
    Chkyggz.Value = 1
    Chkyz.Value = 1
    Chkzx.Value = 1
    Chkqslx.Value = 1
    Chkwxd.Value = 1
End Sub

Private Sub Form_Load()
    CmdStart.Enabled = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Frm_main.Enabled = True
End Sub
Private Sub CmdStart_Click()  '开始
    Frame1.Enabled = True    ' 经营部
    Frame2.Enabled = True    '管理部
    Frame3.Enabled = True    '工程部
    Frame4.Enabled = True    '财务部
    Frame5.Enabled = True    '保安部
    Frame6.Enabled = True    '系统数据设定
    CmdCreat.Enabled = True  '初始化按钮可用
    CmdAll.Enabled = True    '全选按钮可用
End Sub
Private Sub CmdCreat_Click()     '清空选定表中的数据
    Frame1.Enabled = False    ' 经营部
    Frame2.Enabled = False    '管理部
    Frame3.Enabled = False    '工程部
    Frame4.Enabled = False    '财务部
    Frame5.Enabled = False    '保安部
    Frame6.Enabled = False    '系统数据设定
    CmdAll.Enabled = False    '全选按钮不可用
    CmdCreat.Enabled = False  '初始化按钮不可用
    CmdStart.Enabled = False  '开始按钮不可用
    Dim counter As Integer     '声明一个整型变量
    Dim workarea(5) As String     '声明数组
    ProgressBar1.Min = LBound(workarea)
    ProgressBar1.Max = UBound(workarea)
    'LBound 函数返回一个 Long 型数据，其值为指定数组维可用的最小下标。
    'UBound 函数返回一个 Long 型数据，其值为指定的数组维可用的最大下标。
    ProgressBar1.Visible = True
    '设置进度的值为Min
    ProgressBar1.Value = ProgressBar1.Min
    '在整个数组中循环
    If Chkbapb.Value = 0 And Chkcnf.Value = 0 And Chkdf.Value = 0 And Chkdl.Value = 0 And Chkfw.Value = 0 And Chkfwcx.Value = 0 And Chkfykm.Value = 0 And Chkmqf.Value = 0 And Chkqtf.Value = 0 And Chksf.Value = 0 And Chkwx.Value = 1 And Chkxq.Value = 0 And Chkxqbm.Value = 0 And Chkxqts.Value = 0 And Chkxqyg.Value = 0 And Chkyggz.Value = 0 And Chkyz.Value = 0 And Chkzx.Value = 0 And Chkqslx.Value = 0 Then
        MsgBox "请选择要初始化的数据!", , "系统提示"
    Else
        For counter = LBound(workarea) To UBound(workarea)
            'LBound 函数返回一个 Long 型数据，其值为指定数组维可用的最小下标。
            'UBound 函数返回一个 Long 型数据，其值为指定的数组维可用的最大下标。
            '设置数组中每项的初始值
            workarea(counter) = "initial value " & counter
            ProgressBar1.Value = counter
            Set Cnn = New ADODB.Connection
            Dim rs1 As New ADODB.Recordset
            If Chkxq.Value = 1 Then
                sql = "delete * from tab_xqinfo"   '清空小区信息表
                Set rs1 = ESQL(sql)
            End If
            If Chkdl.Value = 1 Then
                sql = "delete * from tab_dlinfo"   '清空大楼信息表
                Set rs1 = ESQL(sql)

            End If
            If Chkfw.Value = 1 Then
                sql = "delete * from tab_fwinfo"   '清空房屋信息表
                Set rs1 = ESQL(sql)

            End If
            If Chkyz.Value = 1 Then
                sql = "delete * from tab_yzinfo"    '清空业主信息表
                Set rs1 = ESQL(sql)

                sql = "delete * from tab_rkinfo"   '清空人口信息表
                Set rs1 = ESQL(sql)

                sql = "delete 户主姓名 from tab_fwinfo"    '清空房屋信息表中的户主姓名
                Set rs1 = ESQL(sql)

            End If
            If Chkxqts.Value = 1 Then
                sql = "delete * from tab_tsinfo"   '清空小区投诉表
                Set rs1 = ESQL(sql)

            End If
            If Chkxqyg.Value = 1 Then
                sql = "delete * from tab_yginfo"   '清空小区员工表
                Set rs1 = ESQL(sql)

            End If
            If Chkwxd.Value = 1 Then
                sql = "delete * from tab_zxgroup"   '清空装修队信息表
                Set rs1 = ESQL(sql)

            End If
            If Chkwx.Value = 1 Then
                sql = "delete * from tab_wxinfo"    '清空维修信息表
                Set rs1 = ESQL(sql)

            End If
            If Chkzx.Value = 1 Then
                sql = "delete * from tab_zxinfo"   '清空装修信息表
                Set rs1 = ESQL(sql)

            End If
            If Chksf.Value = 1 Then
                sql = "delete * from tab_smoney"   '清空水费信息表
                Set rs1 = ESQL(sql)

            End If
            If Chkdf.Value = 1 Then
                sql = "delete * from tab_dianmoney"   '清空电费信息表
                Set rs1 = ESQL(sql)

            End If
            If Chkmqf.Value = 1 Then
                sql = "delete * from tab_mqmoney"   '清空煤气费信息表
                Set rs1 = ESQL(sql)

            End If
            If Chkcnf.Value = 1 Then
                sql = "delete * from tab_cnmoney"   '清空采暖费信息表
                Set rs1 = ESQL(sql)

            End If
            If Chkqtf.Value = 1 Then
                sql = "delete * from tab_othermoney"   '清空其他费信息表
                Set rs1 = ESQL(sql)

            End If
            If Chkbapb.Value = 1 Then
                sql = "delete * from tab_pb"   '清空保安排班信息表
                Set rs1 = ESQL(sql)

            End If
            If Chkfwcx.Value = 1 Then
                sql = "delete * from tab_frontage"   '清空房屋朝向信息表
                Set rs1 = ESQL(sql)

            End If
            If Chkqslx.Value = 1 Then
                sql = "delete * from tab_qstype"   '清空权属类型表
                Set rs1 = ESQL(sql)

            End If
            If Chkxqbm.Value = 1 Then
                sql = "delete * from tab_bminfo"   '清空小区部门信息表
                Set rs1 = ESQL(sql)

            End If
            If Chkyggz.Value = 1 Then
                sql = "delete * from tab_gzinfo"   '清空员工工种信息表
                Set rs1 = ESQL(sql)

            End If
            If Chkfykm.Value = 1 Then
                sql = "delete 费用标准 from tab_kmsd"   '清空科目设定表中的费用标准
                Set rs1 = ESQL(sql)

            End If
        Next counter
        MsgBox "初始化完成!", , "系统提示"
        ProgressBar1.Visible = False
        CmdCreat.Enabled = False
        CmdStart.Enabled = False
        CmdAll.Enabled = False
    End If
End Sub
Private Sub CmdEnd_Click()   '退出
    Frm_main.Enabled = True
    Unload Me
End Sub