frmbmsetup.frm

一个餐饮进销存系统 数据库要求：SQL Server 2000 系统要求：Windows操作系统； 安装程序以前

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmBMSETUP 
   Caption         =   "部门选择"
   ClientHeight    =   2628
   ClientLeft      =   3564
   ClientTop       =   3444
   ClientWidth     =   5880
   LinkTopic       =   "Form1"
   ScaleHeight     =   2628
   ScaleWidth      =   5880
   Begin VB.CommandButton cmdADDP 
      Caption         =   "添加部门"
      Height          =   375
      Left            =   4320
      TabIndex        =   3
      Top             =   480
      Width           =   1215
   End
   Begin VB.CommandButton cmdEnter 
      Caption         =   "确定"
      Height          =   375
      Left            =   4320
      TabIndex        =   2
      Top             =   1440
      Width           =   1215
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   4320
      TabIndex        =   1
      Top             =   1920
      Width           =   1215
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "删除部门"
      Height          =   375
      Left            =   4320
      TabIndex        =   0
      Top             =   960
      Width           =   1215
   End
   Begin MSComctlLib.TreeView TreeView1 
      Height          =   1932
      Left            =   120
      TabIndex        =   4
      Top             =   480
      Width           =   3972
      _ExtentX        =   7006
      _ExtentY        =   3408
      _Version        =   393217
      LineStyle       =   1
      Style           =   6
      BorderStyle     =   1
      Appearance      =   0
      MousePointer    =   1
   End
   Begin VB.Label Label1 
      Caption         =   "选择指定部门并确定，鼠标选定可以修改部门内容。"
      Height          =   372
      Left            =   120
      TabIndex        =   5
      Top             =   0
      Width           =   3972
   End
End
Attribute VB_Name = "frmBMSETUP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim parText As String
Private Sub cmdADDP_Click()
        Set nodX = TreeView1.Nodes.Add(, tvwChild)
        nodX.Key = GetRkno()
        nodX.Text = "新建类（点击鼠标修改）"
End Sub
Private Sub cmdCancel_Click()
    Unload Me
End Sub
Private Sub cmdDelete_Click()
    Dim nodX As Node
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    
    If Trim(parText) <> "" Then
        With TreeView1
            If MsgBox("是否删除" & .Nodes(parText).Text & "?", vbOKCancel, "警告") = vbOK Then
                txtSQL = "select * from dm_room where dm <> 'b' and bmdm = '" & Trim(.Nodes(parText).Key) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                If Not mrc.EOF Then
                    MsgBox "房台表中存在与" & mrc.Fields(3) & "相关的纪录，不能删除！", vbOKOnly + vbExclamation, "警告"
                    Exit Sub
                Else
                    txtSQL = "delete from dm_room where dm = 'b' and bmdm = '" & Trim(.Nodes(parText).Key) & "'"
                    Set mrc = ExecuteSQL(txtSQL, MsgText)
                    TreeView1.Nodes.Clear
                    ShowClass
                End If
            Else
                Exit Sub
            End If
        End With
    End If
End Sub
Private Sub cmdEnter_Click()
    If Not Trim(parText) = "" Then
        frmROOMSetup1.txtItem(2) = Trim(TreeView1.Nodes(parText).Text)
        frmROOMSetup1.txtItem(5) = Trim(parText)
        Unload Me
    End If
End Sub
Private Sub Form_Load()
   ShowClass
End Sub
Private Sub TreeView1_AfterLabelEdit(Cancel As Integer, NewString As String)
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    
    TreeView1.Nodes(parText).Text = NewString
        
    txtSQL = "select bmmc from dm_room where dm = 'b' and bmdm = '" & Trim(TreeView1.Nodes(parText).Key) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If Not mrc.EOF Then
            mrc.Fields(0) = NewString
            mrc.Update
            mrc.Close
    Else
        txtSQL = "insert dm_room (dm,bmdm,bmmc) values ('b','" & Trim(TreeView1.Nodes(parText).Key) & " ','" & Trim(NewString) & "')"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
    End If
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    parText = Node.Key
End Sub
Private Sub ShowClass()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    
    txtSQL = "select bmdm,bmmc from dm_room where dm = 'b'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    If Not mrc.EOF Then
        Do While Not mrc.EOF
            Set nodX = TreeView1.Nodes.Add(, tvwChild)
            nodX.Key = Trim(mrc.Fields(0))
            nodX.Text = Trim(mrc.Fields(1))
            mrc.MoveNext
        Loop
        mrc.Close
    End If
End Sub