www.pudn.com > 档案管理系统源码VB.zip > frmDeleteGuest.frm
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmDeleteGuest
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
Caption = "请选择需要删除的客户"
ClientHeight = 6405
ClientLeft = 45
ClientTop = 330
ClientWidth = 5655
Icon = "frmDeleteGuest.frx":0000
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6405
ScaleWidth = 5655
ShowInTaskbar = 0 'False
Begin VB.Frame Frame1
Caption = "查询客户"
ForeColor = &H000000C0&
Height = 1245
Left = 135
TabIndex = 4
Top = 180
Width = 5385
Begin VB.CommandButton ExitB
Cancel = -1 'True
Caption = "关闭(&C)"
Height = 420
Left = 4005
TabIndex = 3
Top = 225
Width = 1185
End
Begin VB.CommandButton DeleteB
Caption = "删除(&D)"
Height = 420
Left = 2805
TabIndex = 2
Top = 225
Width = 1185
End
Begin VB.CommandButton SearchB
Caption = "查询(&F)"
Enabled = 0 'False
Height = 420
Left = 1605
TabIndex = 1
Top = 225
Width = 1185
End
Begin VB.TextBox Text1
Height = 300
Left = 180
MaxLength = 20
TabIndex = 0
Top = 780
Width = 5025
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "输入客户姓名"
ForeColor = &H00808000&
Height = 180
Left = 225
TabIndex = 6
Top = 435
Width = 1080
End
End
Begin ComctlLib.TreeView TreeView1
Height = 4755
Left = 150
TabIndex = 5
Top = 1500
Width = 5355
_ExtentX = 9446
_ExtentY = 8387
_Version = 327682
LabelEdit = 1
LineStyle = 1
Style = 7
ImageList = "ImageList"
Appearance = 1
End
Begin ComctlLib.ImageList ImageList
Left = -585
Top = 4455
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmDeleteGuest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim NodeX As Single
Dim DB As Database, Ef As Recordset, FG As Recordset, TempStr As String
Private Sub DeleteB_Click()
If TreeView1.Nodes(NodeX).Tag = "HEAD" Or TreeView1.Nodes(NodeX).Tag = "Type" Then Exit Sub
If TreeView1.SelectedItem.Text = "" Then Exit Sub
frmDeleteGuest.MousePointer = 11
Dim Ok As Integer
Ok = MsgBox("真的要删除[" & TreeView1.Nodes(NodeX).Parent.Text + "]中的[" + TreeView1.Nodes(NodeX).Text + "]吗？(Y/N)", vbYesNo + 16, "请确认")
If Ok = 7 Then
frmDeleteGuest.MousePointer = 0
Exit Sub
Else
TempStr = "文件姓名='" & TreeView1.Nodes(NodeX).Text & "'"
Set DB = OpenDatabase(Browser + "data\file.MDB", False, False, ConStr)
TempStr = "Delete * From Main Where " + TempStr
DB.Execute TempStr
DB.Close
TreeView1.Nodes.Remove (NodeX)
frmDeleteGuest.MousePointer = 0
Exit Sub
End If
frmDeleteGuest.MousePointer = 0
End Sub
Private Sub ExitB_Click()
Unload Me
End Sub
Private Sub Form_Load()
frmDeleteGuest.Left = (frmMain.Width - frmDeleteGuest.Width) / 2
frmDeleteGuest.Top = (frmMain.Height - frmDeleteGuest.Height) / 2 - 600
On Error GoTo NOFILE
ImageList.ListImages.Add 1, "Top", LoadPicture(Browser + "TOP.ICO")
ImageList.ListImages.Add 2, "Open", LoadPicture(Browser + "OPEN.ICO")
ImageList.ListImages.Add 3, "Select", LoadPicture(Browser + "SELECT.ICO")
ImageList.ListImages.Add 4, "HEAD", LoadPicture(Browser + "HEAD.ICO")
ImageList.ListImages.Add 5, "Boot", LoadPicture(Browser + "BOOT.ICO")
NodeX = 1
Dim NodeYsl As Node
Dim IntIndex As Single
TreeView1.Sorted = True
Set NodeYsl = TreeView1.Nodes.Add()
NodeYsl.Text = "文件目录树"
NodeYsl.Tag = "HEAD"
NodeYsl.Image = "HEAD"
TreeView1.LabelEdit = tvwManual
Set DB = OpenDatabase(Browser + "data\file.MDB", False, False, ConStr)
Set Ef = DB.OpenRecordset("Catalog", dbOpenDynaset)
Do Until Ef.EOF
Set NodeYsl = TreeView1.Nodes.Add(1, tvwChild)
NodeYsl.Text = Ef!Name
NodeYsl.Key = Ef!Name
NodeYsl.Tag = "Type"
NodeYsl.Image = "Top"
IntIndex = NodeYsl.Index
TempStr = "文件类型='" & Ef!Name & "'"
Set FG = DB.OpenRecordset("Select * From Main Where " & TempStr, dbOpenDynaset)
Do Until FG.EOF
Set NodeYsl = TreeView1.Nodes.Add(IntIndex, tvwChild)
NodeYsl.Text = FG!文件姓名
NodeYsl.Key = FG!文件姓名
NodeYsl.Tag = "Guest Name"
NodeYsl.Image = "Select"
FG.MoveNext
Loop
NodeYsl.Sorted = True
Ef.MoveNext
Loop
DB.Close
TreeView1.Nodes(1).Expanded = True
Exit Sub
NOFILE:
MsgBox "系统文件没有找到,请重新安装系统!", vbOKOnly + 64, "文件没找到"
End Sub
Private Sub SearchB_Click()
If Trim(Text1.Text) = "" Then Exit Sub
frmDeleteGuest.MousePointer = 11
Dim QueryString As String
QueryString = Trim(Text1.Text)
TreeView1.LabelEdit = tvwManual
For NodeX = 1 To TreeView1.Nodes.Count
If QueryString = TreeView1.Nodes(NodeX).Text Then
TreeView1.Nodes(NodeX).Parent.Expanded = True
TreeView1.SetFocus
TreeView1.Nodes(NodeX).Selected = True
Exit For
End If
Next
If NodeX > TreeView1.Nodes.Count Then
MsgBox "没有找到文件[" & QueryString & "],请再试试! ", vbOKOnly + 64, "没有找到"
Text1.SetFocus
End If
frmDeleteGuest.MousePointer = 0
End Sub
Private Sub Text1_Change()
If Trim(Text1.Text) = "" Then
SearchB.Enabled = False
Else
SearchB.Enabled = True
End If
End Sub
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
End If
End Sub
Private Sub TreeView1_Collapse(ByVal Node As ComctlLib.Node)
If Node.Tag = "HEAD" Then
Node.Image = "HEAD"
End If
If Node.Tag = "Type" Then
Node.Image = "Top"
End If
End Sub
Private Sub TreeView1_Expand(ByVal Node As ComctlLib.Node)
If Node.Tag = "HEAD" Then
Node.Image = "Boot"
End If
If Node.Tag = "Type" Then
Node.Image = "Open"
End If
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
NodeX = Node.Index
End Sub