addguesttype.vb

一个用vb开发的档案管理程序

		Me.Label1.Size = New System.Drawing.Size(108, 12)
		Me.Label1.Location = New System.Drawing.Point(11, 13)
		Me.Label1.TabIndex = 9
		Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label1.BackColor = System.Drawing.SystemColors.Control
		Me.Label1.Enabled = True
		Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label1.UseMnemonic = True
		Me.Label1.Visible = True
		Me.Label1.AutoSize = True
		Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label1.Name = "Label1"
		Me.AddB.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
		Me.AddB.Text = "添 加(&A)"
		Me.AddB.Size = New System.Drawing.Size(105, 22)
		Me.AddB.Location = New System.Drawing.Point(241, 16)
		Me.AddB.TabIndex = 3
		Me.AddB.BackColor = System.Drawing.SystemColors.Control
		Me.AddB.CausesValidation = True
		Me.AddB.Enabled = True
		Me.AddB.ForeColor = System.Drawing.SystemColors.ControlText
		Me.AddB.Cursor = System.Windows.Forms.Cursors.Default
		Me.AddB.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.AddB.TabStop = True
		Me.AddB.Name = "AddB"
		Me._Line3_1.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
		Me._Line3_1.Visible = True
		Me._Line3_1.Location = New System.Drawing.Point(361, 1)
		Me._Line3_1.Width = 1
		Me._Line3_1.Height = 215
		Me._Line3_1.Name = "_Line3_1"
		Me._Line2_1.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me._Line2_1.Visible = True
		Me._Line2_1.Location = New System.Drawing.Point(360, 1)
		Me._Line2_1.Width = 1
		Me._Line2_1.Height = 213
		Me._Line2_1.Name = "_Line2_1"
		Me._Line3_0.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
		Me._Line3_0.Visible = True
		Me._Line3_0.Location = New System.Drawing.Point(3, 2)
		Me._Line3_0.Width = 1
		Me._Line3_0.Height = 213
		Me._Line3_0.Name = "_Line3_0"
		Me._Line2_0.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me._Line2_0.Visible = True
		Me._Line2_0.Location = New System.Drawing.Point(2, 2)
		Me._Line2_0.Width = 1
		Me._Line2_0.Height = 213
		Me._Line2_0.Name = "_Line2_0"
		ImageList1.OcxState = CType(resources.GetObject("ImageList1.OcxState"), System.Windows.Forms.AxHost.State)
		Me.ImageList1.Location = New System.Drawing.Point(131, 157)
		Me.ImageList1.Name = "ImageList1"
		Me._Line1_3.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me._Line1_3.Visible = True
		Me._Line1_3.Location = New System.Drawing.Point(2, 215)
		Me._Line1_3.Width = 359
		Me._Line1_3.Height = 1
		Me._Line1_3.Name = "_Line1_3"
		Me._Line1_2.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
		Me._Line1_2.Visible = True
		Me._Line1_2.Location = New System.Drawing.Point(1, 216)
		Me._Line1_2.Width = 360
		Me._Line1_2.Height = 1
		Me._Line1_2.Name = "_Line1_2"
		Me._Line1_1.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
		Me._Line1_1.Visible = True
		Me._Line1_1.Location = New System.Drawing.Point(2, 2)
		Me._Line1_1.Width = 358
		Me._Line1_1.Height = 1
		Me._Line1_1.Name = "_Line1_1"
		Me._Line1_0.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me._Line1_0.Visible = True
		Me._Line1_0.Location = New System.Drawing.Point(2, 1)
		Me._Line1_0.Width = 358
		Me._Line1_0.Height = 1
		Me._Line1_0.Name = "_Line1_0"
		Me.Controls.Add(ExitB)
		Me.Controls.Add(DeleteB)
		Me.Controls.Add(cmdModify)
		Me.Controls.Add(ListView1)
		Me.Controls.Add(picDraw)
		Me.Controls.Add(Picture1)
		Me.Controls.Add(AddPicture)
		Me.Controls.Add(AddB)
		Me.Controls.Add(_Line3_1)
		Me.Controls.Add(_Line2_1)
		Me.Controls.Add(_Line3_0)
		Me.Controls.Add(_Line2_0)
		Me.Controls.Add(ImageList1)
		Me.Controls.Add(_Line1_3)
		Me.Controls.Add(_Line1_2)
		Me.Controls.Add(_Line1_1)
		Me.Controls.Add(_Line1_0)
		Me.AddPicture.Controls.Add(CancelRecord)
		Me.AddPicture.Controls.Add(SaveRecord)
		Me.AddPicture.Controls.Add(NewTypeName)
		Me.AddPicture.Controls.Add(Label1)
		Me.Line1.SetIndex(_Line1_3, CType(3, Short))
		Me.Line1.SetIndex(_Line1_2, CType(2, Short))
		Me.Line1.SetIndex(_Line1_1, CType(1, Short))
		Me.Line1.SetIndex(_Line1_0, CType(0, Short))
		Me.Line2.SetIndex(_Line2_1, CType(1, Short))
		Me.Line2.SetIndex(_Line2_0, CType(0, Short))
		Me.Line3.SetIndex(_Line3_1, CType(1, Short))
		Me.Line3.SetIndex(_Line3_0, CType(0, Short))
		CType(Me.Line3, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.Line2, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.Line1, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.ImageList1, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.ListView1, System.ComponentModel.ISupportInitialize).EndInit()
	End Sub
#End Region 
#Region "升级支持"
	Private Shared m_vb6FormDefInstance As frmCatalog
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As frmCatalog
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New frmCatalog()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	Dim GTN As String
	Dim NoChange As Boolean
	
	Private Sub AddB_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles AddB.Click
		
		DeleteB.Enabled = False
		ExitB.Enabled = False
		AddB.Enabled = False
		cmdModify.Enabled = False
		AddPicture.Visible = True
		picDraw.Visible = False
		NewTypeName.Focus()
		Label1.Text = "请输入新的档案类型"
		
	End Sub
	
	Private Sub AddB_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles AddB.MouseMove
		Dim Button As Short = eventArgs.Button \ &H100000
		Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
		Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
		Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
		
		GetStatus("添加新的档案类型")
		
	End Sub
	
	Private Sub CancelRecord_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CancelRecord.Click
		
		NewTypeName.Text = ""
		AddPicture.Visible = False
		picDraw.Visible = True
		DeleteB.Enabled = True
		ExitB.Enabled = True
		AddB.Enabled = True
		cmdModify.Enabled = True
		AddB.Focus()
		subPurView() '安装权限
		
	End Sub
	
	Private Sub CancelRecord_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles CancelRecord.MouseMove
		Dim Button As Short = eventArgs.Button \ &H100000
		Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
		Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
		Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
		
		GetStatus("放弃保存档案新类型")
		
	End Sub
	
	Private Sub cmdModify_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdModify.Click
		
		If GTN = "" Then
			MsgBox("请先选择一个档案类型，然后按修改按钮。     ", MsgBoxStyle.Information, "档案管理系统")
			Exit Sub
		End If
		'进行修改目录动作
		DeleteB.Enabled = False
		ExitB.Enabled = False
		AddB.Enabled = False
		AddPicture.Visible = True
		picDraw.Visible = False
		cmdModify.Enabled = False
		NewTypeName.Text = GTN
		NewTypeName.Focus()
		Label1.Text = "输入修改的档案类型"
		
	End Sub
	
	Private Sub cmdModify_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles cmdModify.MouseMove
		Dim Button As Short = eventArgs.Button \ &H100000
		Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
		Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
		Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
		
		GetStatus("修改左边选定的档案类型")
		
	End Sub
	
	Private Sub DeleteB_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles DeleteB.Click
		Dim ListIT As Object
		
		If GTN = "" Then
			MsgBox("请先选择一个档案类型，然后按删除按钮。     ", MsgBoxStyle.Exclamation, "档案管理系统")
			Exit Sub
		End If
		'进行删除目录动作
		Dim OK As Short
		OK = MsgBox("真的要删除[" & GTN & "]类型,及其所有文件吗？（Y/N）    ", MsgBoxStyle.YesNo + 16 + MsgBoxStyle.DefaultButton2, "确认")
		Dim EF As DAO.Recordset
		Dim DB As DAO.Database
		Dim tempStr As String
		If OK = 7 Then
			Exit Sub
		Else
			'删除代码
			ListView1.Visible = False
			ListView1.ListItems.Clear()
			DAODBEngine_definst.BeginTrans()
			DB = DAODBEngine_definst.OpenDatabase(ConData, False, False, ConStr)
			tempStr = "Delete * From Catalog Where Name='" & GTN & "'"
			DB.Execute(tempStr)
			tempStr = "Delete * From Detail Where Name='" & GTN & "'"
			DB.Execute(tempStr)
			DB.Close()
			DAODBEngine_definst.CommitTrans()
			DB = DAODBEngine_definst.OpenDatabase(ConData, False, False, ConStr)
			EF = DB.OpenRecordset("Catalog", DAO.RecordsetTypeEnum.dbOpenDynaset)
			Do Until EF.EOF
				ListIT = ListView1.ListItems.Add()
				'UPGRADE_WARNING: 未能解析对象 ListIT.Text 的默认属性。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
				ListIT.Text = EF.Fields("Name").Value
				'UPGRADE_WARNING: 未能解析对象 ListIT.Icon 的默认属性。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
				ListIT.Icon = "Top"
				'UPGRADE_WARNING: 未能解析对象 ListIT.Key 的默认属性。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
				ListIT.Key = EF.Fields("Name").Value
				EF.MoveNext()
			Loop 
			DB.Close()
			ListView1.Visible = True
			GTN = ""
		End If
		NoChange = True
		
	End Sub