frmmodifyform.vb

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

		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"
		OpenDialog.OcxState = CType(resources.GetObject("OpenDialog.OcxState"), System.Windows.Forms.AxHost.State)
		Me.OpenDialog.Location = New System.Drawing.Point(8, 134)
		Me.OpenDialog.Name = "OpenDialog"
		Me._txtFields_4.AutoSize = False
		Me._txtFields_4.BackColor = System.Drawing.Color.White
		Me._txtFields_4.ForeColor = System.Drawing.Color.Black
		Me._txtFields_4.Size = New System.Drawing.Size(348, 19)
		Me._txtFields_4.Location = New System.Drawing.Point(103, 199)
		Me._txtFields_4.ReadOnly = True
		Me._txtFields_4.Maxlength = 25
		Me._txtFields_4.TabIndex = 4
		Me.ToolTip1.SetToolTip(Me._txtFields_4, "此项不能修改")
		Me._txtFields_4.AcceptsReturn = True
		Me._txtFields_4.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
		Me._txtFields_4.CausesValidation = True
		Me._txtFields_4.Enabled = True
		Me._txtFields_4.HideSelection = True
		Me._txtFields_4.Cursor = System.Windows.Forms.Cursors.IBeam
		Me._txtFields_4.MultiLine = False
		Me._txtFields_4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._txtFields_4.ScrollBars = System.Windows.Forms.ScrollBars.None
		Me._txtFields_4.TabStop = True
		Me._txtFields_4.Visible = True
		Me._txtFields_4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
		Me._txtFields_4.Name = "_txtFields_4"
		Me.lLeft_1.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me.lLeft_1.Visible = False
		Me.lLeft_1.Location = New System.Drawing.Point(360, 72)
		Me.lLeft_1.Width = 1
		Me.lLeft_1.Height = 22
		Me.lLeft_1.Name = "lLeft_1"
		Me.lTop_1.BackColor = System.Drawing.Color.White
		Me.lTop_1.Visible = False
		Me.lTop_1.Location = New System.Drawing.Point(360, 72)
		Me.lTop_1.Width = 21
		Me.lTop_1.Height = 1
		Me.lTop_1.Name = "lTop_1"
		Me.lRight_1.BackColor = System.Drawing.Color.White
		Me.lRight_1.Visible = False
		Me.lRight_1.Location = New System.Drawing.Point(381, 72)
		Me.lRight_1.Width = 1
		Me.lRight_1.Height = 21
		Me.lRight_1.Name = "lRight_1"
		Me.lBottom_1.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me.lBottom_1.Visible = False
		Me.lBottom_1.Location = New System.Drawing.Point(361, 93)
		Me.lBottom_1.Width = 20
		Me.lBottom_1.Height = 1
		Me.lBottom_1.Name = "lBottom_1"
		Me.lBottom.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me.lBottom.Visible = False
		Me.lBottom.Location = New System.Drawing.Point(333, 93)
		Me.lBottom.Width = 20
		Me.lBottom.Height = 1
		Me.lBottom.Name = "lBottom"
		Me.lRight.BackColor = System.Drawing.Color.White
		Me.lRight.Visible = False
		Me.lRight.Location = New System.Drawing.Point(353, 72)
		Me.lRight.Width = 1
		Me.lRight.Height = 21
		Me.lRight.Name = "lRight"
		Me.lTop.BackColor = System.Drawing.Color.White
		Me.lTop.Visible = False
		Me.lTop.Location = New System.Drawing.Point(332, 72)
		Me.lTop.Width = 21
		Me.lTop.Height = 1
		Me.lTop.Name = "lTop"
		Me.lLeft.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me.lLeft.Visible = False
		Me.lLeft.Location = New System.Drawing.Point(332, 72)
		Me.lLeft.Width = 1
		Me.lLeft.Height = 22
		Me.lLeft.Name = "lLeft"
		Me._lblLabels_0.Text = "档案名称:"
		Me._lblLabels_0.ForeColor = System.Drawing.Color.FromARGB(192, 0, 0)
		Me._lblLabels_0.Size = New System.Drawing.Size(54, 12)
		Me._lblLabels_0.Location = New System.Drawing.Point(29, 34)
		Me._lblLabels_0.TabIndex = 14
		Me._lblLabels_0.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me._lblLabels_0.BackColor = System.Drawing.Color.Transparent
		Me._lblLabels_0.Enabled = True
		Me._lblLabels_0.Cursor = System.Windows.Forms.Cursors.Default
		Me._lblLabels_0.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._lblLabels_0.UseMnemonic = True
		Me._lblLabels_0.Visible = True
		Me._lblLabels_0.AutoSize = True
		Me._lblLabels_0.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._lblLabels_0.Name = "_lblLabels_0"
		Me._lblLabels_1.Text = "文件名称:"
		Me._lblLabels_1.ForeColor = System.Drawing.Color.Black
		Me._lblLabels_1.Size = New System.Drawing.Size(54, 12)
		Me._lblLabels_1.Location = New System.Drawing.Point(29, 77)
		Me._lblLabels_1.TabIndex = 13
		Me._lblLabels_1.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me._lblLabels_1.BackColor = System.Drawing.Color.Transparent
		Me._lblLabels_1.Enabled = True
		Me._lblLabels_1.Cursor = System.Windows.Forms.Cursors.Default
		Me._lblLabels_1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._lblLabels_1.UseMnemonic = True
		Me._lblLabels_1.Visible = True
		Me._lblLabels_1.AutoSize = True
		Me._lblLabels_1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._lblLabels_1.Name = "_lblLabels_1"
		Me._lblLabels_2.Text = "档案说明:"
		Me._lblLabels_2.ForeColor = System.Drawing.Color.Black
		Me._lblLabels_2.Size = New System.Drawing.Size(54, 12)
		Me._lblLabels_2.Location = New System.Drawing.Point(29, 102)
		Me._lblLabels_2.TabIndex = 12
		Me._lblLabels_2.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me._lblLabels_2.BackColor = System.Drawing.Color.Transparent
		Me._lblLabels_2.Enabled = True
		Me._lblLabels_2.Cursor = System.Windows.Forms.Cursors.Default
		Me._lblLabels_2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._lblLabels_2.UseMnemonic = True
		Me._lblLabels_2.Visible = True
		Me._lblLabels_2.AutoSize = True
		Me._lblLabels_2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._lblLabels_2.Name = "_lblLabels_2"
		Me._lblLabels_7.Text = "档案类型:"
		Me._lblLabels_7.ForeColor = System.Drawing.Color.Black
		Me._lblLabels_7.Size = New System.Drawing.Size(54, 12)
		Me._lblLabels_7.Location = New System.Drawing.Point(30, 202)
		Me._lblLabels_7.TabIndex = 11
		Me._lblLabels_7.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me._lblLabels_7.BackColor = System.Drawing.Color.Transparent
		Me._lblLabels_7.Enabled = True
		Me._lblLabels_7.Cursor = System.Windows.Forms.Cursors.Default
		Me._lblLabels_7.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._lblLabels_7.UseMnemonic = True
		Me._lblLabels_7.Visible = True
		Me._lblLabels_7.AutoSize = True
		Me._lblLabels_7.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._lblLabels_7.Name = "_lblLabels_7"
		Me._lblLabels_3.Text = "参考说明:"
		Me._lblLabels_3.ForeColor = System.Drawing.Color.Black
		Me._lblLabels_3.Size = New System.Drawing.Size(54, 12)
		Me._lblLabels_3.Location = New System.Drawing.Point(29, 152)
		Me._lblLabels_3.TabIndex = 10
		Me._lblLabels_3.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me._lblLabels_3.BackColor = System.Drawing.Color.Transparent
		Me._lblLabels_3.Enabled = True
		Me._lblLabels_3.Cursor = System.Windows.Forms.Cursors.Default
		Me._lblLabels_3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._lblLabels_3.UseMnemonic = True
		Me._lblLabels_3.Visible = True
		Me._lblLabels_3.AutoSize = True
		Me._lblLabels_3.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._lblLabels_3.Name = "_lblLabels_3"
		Me._Line2_2.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
		Me._Line2_2.Visible = True
		Me._Line2_2.Location = New System.Drawing.Point(2, 2)
		Me._Line2_2.Width = 1
		Me._Line2_2.Height = 256
		Me._Line2_2.Name = "_Line2_2"
		Me._Line3_1.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
		Me._Line3_1.Visible = True
		Me._Line3_1.Location = New System.Drawing.Point(490, 1)
		Me._Line3_1.Width = 1
		Me._Line3_1.Height = 255
		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(489, 1)
		Me._Line2_1.Width = 1
		Me._Line2_1.Height = 257
		Me._Line2_1.Name = "_Line2_1"
		Me._Line1_3.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me._Line1_3.Visible = True
		Me._Line1_3.Location = New System.Drawing.Point(3, 257)
		Me._Line1_3.Width = 487
		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(2, 258)
		Me._Line1_2.Width = 487
		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 = 486
		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(1, 1)
		Me._Line1_0.Width = 489
		Me._Line1_0.Height = 1
		Me._Line1_0.Name = "_Line1_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(1, 1)
		Me._Line2_0.Width = 1
		Me._Line2_0.Height = 257
		Me._Line2_0.Name = "_Line2_0"
		Me.Controls.Add(Frame1)
		Me.Controls.Add(_Line2_2)
		Me.Controls.Add(_Line3_1)
		Me.Controls.Add(_Line2_1)
		Me.Controls.Add(_Line1_3)
		Me.Controls.Add(_Line1_2)
		Me.Controls.Add(_Line1_1)
		Me.Controls.Add(_Line1_0)
		Me.Controls.Add(_Line2_0)
		Me.Frame1.Controls.Add(picScan)
		Me.Frame1.Controls.Add(picEditFile)
		Me.Frame1.Controls.Add(ExitB)
		Me.Frame1.Controls.Add(SaveAdd)
		Me.Frame1.Controls.Add(_txtFields_0)
		Me.Frame1.Controls.Add(_txtFields_1)
		Me.Frame1.Controls.Add(_txtFields_2)
		Me.Frame1.Controls.Add(_txtFields_3)
		Me.Frame1.Controls.Add(Picture1)
		Me.Frame1.Controls.Add(OpenDialog)
		Me.Frame1.Controls.Add(_txtFields_4)
		Me.Frame1.Controls.Add(lLeft_1)
		Me.Frame1.Controls.Add(lTop_1)
		Me.Frame1.Controls.Add(lRight_1)
		Me.Frame1.Controls.Add(lBottom_1)
		Me.Frame1.Controls.Add(lBottom)
		Me.Frame1.Controls.Add(lRight)
		Me.Frame1.Controls.Add(lTop)
		Me.Frame1.Controls.Add(lLeft)
		Me.Frame1.Controls.Add(_lblLabels_0)
		Me.Frame1.Controls.Add(_lblLabels_1)
		Me.Frame1.Controls.Add(_lblLabels_2)
		Me.Frame1.Controls.Add(_lblLabels_7)
		Me.Frame1.Controls.Add(_lblLabels_3)
		Me.Picture1.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_2, CType(2, 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.lblLabels.SetIndex(_lblLabels_0, CType(0, Short))
		Me.lblLabels.SetIndex(_lblLabels_1, CType(1, Short))
		Me.lblLabels.SetIndex(_lblLabels_2, CType(2, Short))
		Me.lblLabels.SetIndex(_lblLabels_7, CType(7, Short))
		Me.lblLabels.SetIndex(_lblLabels_3, CType(3, Short))
		Me.txtFields.SetIndex(_txtFields_0, CType(0, Short))
		Me.txtFields.SetIndex(_txtFields_1, CType(1, Short))
		Me.txtFields.SetIndex(_txtFields_2, CType(2, Short))
		Me.txtFields.SetIndex(_txtFields_3, CType(3, Short))
		Me.txtFields.SetIndex(_txtFields_4, CType(4, Short))
		CType(Me.txtFields, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.lblLabels, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.Line3, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.Line2, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.Line1, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.OpenDialog, System.ComponentModel.ISupportInitialize).EndInit()
	End Sub
#End Region 
#Region "升级支持"
	Private Shared m_vb6FormDefInstance As frmModifyForm
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As frmModifyForm
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New frmModifyForm()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	Dim lShow, ChangeTrue, lShowS As Boolean
	
	Private Sub ExitB_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ExitB.Click
		
		Me.Close()
		
	End Sub
	
	Private Sub frmModifyForm_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		
		On Error Resume Next
		Me.Left = VB6.TwipsToPixelsX(Val(GetSetting(VB6.GetExeName(), "Modify", "Left")))
		Me.Top = VB6.TwipsToPixelsY(Val(GetSetting(VB6.GetExeName(), "Modify", "Top")))
		
		txtFields(4).Text = strFileType
		ChangeTrue = False
		Me.Text = "正在 [ " & strFileType & " ] 区，修改 [ " & strFileID & " ] 档案"
		'代入数据
		txtFields(0).Text = strFileID
		txtFields(1).Text = frmManager.DefInstance.txtFields(1).Text
		txtFields(2).Text = frmManager.DefInstance.txtFields(2).Text
		txtFields(3).Text = frmManager.DefInstance.txtFields(3).Text
		ChangeTrue = False : lShow = False : lShowS = False
		
	End Sub
	
	'UPGRADE_WARNING: Form 事件 frmModifyForm.Unload 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
	Private Sub frmModifyForm_Closed(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Closed
		
		
		SaveSetting(VB6.GetExeName(), "Modify", "Left", CStr(VB6.PixelsToTwipsX(Me.Left)))
		SaveSetting(VB6.GetExeName(), "Modify", "Top", CStr(VB6.PixelsToTwipsY(Me.Top)))
		
		Dim OK As Short
		If ChangeTrue = True Then
			OK = MsgBox("有修改记录，需要保存码？(Y/N)", MsgBoxStyle.YesNo + 32, "未保存")
			If OK = 7 Then
				Me.Close()
				Exit Sub
			Else
				'保存记录代码
				Call SaveAdd_Click(SaveAdd, New System.EventArgs())