📄 frmorganedit.frm
字号:
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
AutoSearchDelay = 2
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
DataMember = ""
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 0
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
End
Begin vsOcx6LibCtl.vsElastic vsElastic4This
Height = 735
Left = 4710
TabIndex = 14
TabStop = 0 'False
Top = 1950
Width = 4620
_ExtentX = 8149
_ExtentY = 1296
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Enabled = -1 'True
Appearance = 1
MousePointer = 0
_ConvInfo = -1
Version = 600
BackColor = -2147483633
ForeColor = -2147483630
FloodColor = 192
ForeColorDisabled= -2147483631
Caption = "单位级别："
Align = 0
Appearance = 1
AutoSizeChildren= 0
BorderWidth = 0
ChildSpacing = 0
Splitter = 0 'False
FloodDirection = 0
FloodPercent = 0
CaptionPos = 1
WordWrap = -1 'True
MaxChildSize = 0
MinChildSize = 0
TagWidth = 0
TagPosition = 0
Style = 1
TagSplit = 0 'False
PicturePos = 4
CaptionStyle = 0
ResizeFonts = 0 'False
GridRows = 0
GridCols = 0
_GridInfo = ""
Begin VB.OptionButton Option4Bureau
Caption = "局级"
Height = 255
Left = 180
TabIndex = 19
Top = 300
Width = 1035
End
Begin VB.OptionButton Option4Factory
Caption = "厂处级"
Height = 255
Left = 1500
TabIndex = 18
Top = 180
Width = 1035
End
Begin VB.OptionButton Option4Inc
Caption = "公司级"
Height = 255
Left = 3060
TabIndex = 17
Top = 180
Width = 975
End
Begin VB.OptionButton Option4BigBand
Caption = "大队级"
Height = 180
Left = 1500
TabIndex = 16
Top = 480
Width = 915
End
Begin VB.OptionButton Option4SmallBand
Caption = "小队级"
Height = 195
Left = 3060
TabIndex = 15
Top = 480
Width = 975
End
End
Begin VB.Label Label4OrganCode
Caption = "单位编号："
Height = 360
Left = 4710
TabIndex = 24
Top = 720
Width = 1515
End
Begin VB.Label Label4OrganName
Caption = "单位名称："
Height = 330
Left = 4710
TabIndex = 23
Top = 1140
Width = 1515
End
Begin VB.Label Label4OrganProperty
Caption = "单位性质："
Height = 360
Left = 4710
TabIndex = 22
Top = 300
Width = 1515
End
Begin VB.Label Label4OrganTelephone
Caption = "单位电话"
Height = 360
Left = 4710
TabIndex = 21
Top = 1530
Width = 1515
End
Begin VB.Label Label4OrganNote
Caption = "备注："
Height = 1800
Left = 4710
TabIndex = 20
Top = 2745
Width = 1515
End
End
End
Attribute VB_Name = "frmOrganEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m_oRs4This As New ADODB.Recordset
Dim m_oRs4Temp As New ADODB.Recordset
Dim m_strSQL As String
Dim m_strTemp As String
Dim lfor As Long
Dim bIsChange As Boolean
Dim m_str4Option() As String
Dim m_str4OptionName(4) As String
Private Sub Command4AddSame_Click()
Dim nd As VSFlexNode
Dim lTemp As Long
Dim TempNd As VSFlexNode
Dim iTemp As Long
Dim strTemp As String
With Me.VSFlexGrid4Organ
If .Row >= 0 Then
Set nd = .GetNode(.Row)
lTemp = .RowOutlineLevel(.Row)
nd.AddNode flexNTLastSibling, ""
m_strTemp = ""
For lfor = 0 To .Rows - 1
If .RowOutlineLevel(lfor) = lTemp Then
Set TempNd = .GetNode(lfor)
If TempNd = "" Then iTemp = iTemp + 1
If TempNd <> "" Then
If left(TempNd.Key, Len(TempNd.Key) - 3) Like left(nd.Key, Len(nd.Key) - 3) Then
If CDec(CheckZero(TempNd.Key)) > CDec(CheckZero(m_strTemp)) Then m_strTemp = TempNd.Key
End If
End If
End If
Next
If iTemp > 1 Then
.RemoveItem (.GetNodeRow(.Row, flexNTLastSibling))
MsgBox "请先保存后再增加", vbOKOnly, "警告"
Exit Sub
End If
Me.Command4Close.Enabled = False
.Row = .GetNodeRow(.Row, flexNTLastSibling)
.ShowCell .Row, 0
Me.Command4Close.Enabled = True
strTemp = left(m_strTemp, Len(m_strTemp) - 3) & String(3 - Len(CDec(right(m_strTemp, 3)) + 1), "0") & CDec(right(m_strTemp, 3)) + 1
GetOrganAddDelete strTemp
Text4OrganCode.text = m_strTemp
Text4OrganCode.Tag = C_Insert
Set nd = .GetNode(.Row)
nd.Key = Text4OrganCode.text
InitText
ClearOption
Me.Command4AddSame.Enabled = False
Me.Command4AddUnder.Enabled = False
Me.Text4OrganName.SetFocus
Else
MsgBox "请选择需增加的位置", vbOKOnly, "警告"
Exit Sub
End If
End With
End Sub
Private Sub Command4AddUnder_Click()
Dim nd As VSFlexNode
Dim ndEdit As VSFlexNode
Dim TempNd As VSFlexNode
Dim lTemp As Long
Dim iTemp As Long
Dim strTemp As String
If VSFlexGrid4Organ.Row = -1 Then
MsgBox "请选择需增加的位置", vbOKOnly, "警告"
Exit Sub
End If
Set ndEdit = VSFlexGrid4Organ.GetNode(VSFlexGrid4Organ.Row)
With Me.VSFlexGrid4Organ
m_strTemp = ""
Set nd = .GetNode(.Row)
lTemp = 1 + .RowOutlineLevel(.Row)
nd.AddNode flexNTLastChild, ""
For lfor = 1 To .Rows - 1
If .RowOutlineLevel(lfor) = lTemp Then
Set TempNd = .GetNode(lfor)
If TempNd = "" Then iTemp = iTemp + 1
If TempNd.Key <> "" Then
If left(TempNd.Key, Len(TempNd.Key) - 3) Like nd.Key Then
If CDec(CheckZero(TempNd.Key)) > CDec(CheckZero(m_strTemp)) Then m_strTemp = TempNd.Key
End If
End If
End If
Next
If iTemp > 1 Then
.RemoveItem (.GetNodeRow(.Row, flexNTLastChild))
MsgBox "请先保存后再增加", vbOKOnly, "警告"
Exit Sub
End If
Me.Command4Close.Enabled = False
.Row = .GetNodeRow(.Row, flexNTLastChild)
.ShowCell .Row, 0
Me.Command4Close.Enabled = True
If m_strTemp = "" Then
strTemp = nd.Key & String(2, "0") & "1"
GetOrganAddDelete strTemp
Text4OrganCode.text = m_strTemp
Else
strTemp = nd.Key & String(3 - Len(CDec(right(m_strTemp, 3)) + 1), "0") & CDec(CDec(right(m_strTemp, 3)) + 1)
GetOrganAddDelete strTemp
Text4OrganCode.text = m_strTemp
End If
Text4OrganCode.Tag = C_Insert
Set nd = .GetNode(.Row)
nd.Key = Text4OrganCode.text
Me.Command4AddSame.Enabled = False
Me.Command4AddUnder.Enabled = False
Me.Command4Save.Enabled = True
Command4Delete.Enabled = True
Me.Text4OrganName.SetFocus
'option
If .Cell(flexcpData, .GetNodeRow(.Row, flexNTParent)) = C_BUREAUE_LEVEL Then
Option4Bureau.Enabled = False
Option4Factory.Enabled = True
Option4Inc.Enabled = False
Option4BigBand.Enabled = False
Option4SmallBand.Enabled = False
Option4Factory.Value = True
ElseIf .Cell(flexcpData, .GetNodeRow(.Row, flexNTParent)) = C_FACTORY_LEVEL Then
Option4Bureau.Enabled = False
Option4Factory.Enabled = False
Option4Inc.Enabled = True
Option4BigBand.Enabled = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -