📄 frmmainbrow.frm
字号:
Height = 255
Left = 0
TabIndex = 11
Top = 0
Width = 2055
End
End
Begin MSComctlLib.StatusBar sbStatusBar
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 13
Top = 5490
Width = 9855
_ExtentX = 17383
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 1
Object.Width = 11748
Text = "状态 "
TextSave = "状态 "
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 2
TextSave = "99-10-18"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 2
TextSave = "11:10"
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
End
Begin VB.Image imgSplitter
Height = 4785
Left = 2040
MousePointer = 9 'Size W E
OLEDropMode = 1 'Manual
Top = 600
Width = 45
End
Begin VB.Label lblTitle
BorderStyle = 1 'Fixed Single
Caption = "人员:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 270
Index = 7
Left = 2100
TabIndex = 8
Tag = " 列表视图:"
Top = 0
Width = 3210
End
Begin VB.Label lblTitle
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "部门"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Index = 6
Left = 0
TabIndex = 7
Tag = " 树形视图:"
Top = 0
Width = 2010
End
Begin VB.Label lblTitle
BorderStyle = 1 'Fixed Single
Caption = "人员:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 270
Index = 5
Left = 2100
TabIndex = 6
Tag = " 列表视图:"
Top = 0
Width = 3210
End
Begin VB.Label lblTitle
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "部门"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Index = 4
Left = 0
TabIndex = 5
Tag = " 树形视图:"
Top = 0
Width = 2010
End
Begin VB.Label lblTitle
BorderStyle = 1 'Fixed Single
Caption = "人员:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 270
Index = 3
Left = 2100
TabIndex = 4
Tag = " 列表视图:"
Top = 0
Width = 3210
End
Begin VB.Label lblTitle
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "部门"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Index = 2
Left = 0
TabIndex = 3
Tag = " 树形视图:"
Top = 0
Width = 2010
End
Begin VB.Label lblTitle
BorderStyle = 1 'Fixed Single
Caption = "人员:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 270
Index = 1
Left = 2100
TabIndex = 2
Tag = " 列表视图:"
Top = 0
Width = 3210
End
Begin VB.Label lblTitle
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "部门"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Index = 0
Left = 0
TabIndex = 1
Tag = " 树形视图:"
Top = 0
Width = 2010
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
WindowList = -1 'True
Begin VB.Menu mnuExit
Caption = "关闭(&E)"
End
End
Begin VB.Menu mnuview
Caption = "视图(&V)"
Begin VB.Menu mnuchangyong
Caption = "常用(&C)"
End
Begin VB.Menu mnunochangyong
Caption = "不常用(&N)"
End
Begin VB.Menu mnudaihuo
Caption = "呆货(&D)"
End
End
Begin VB.Menu mnuBaseData
Caption = "基础数据(&D)"
Begin VB.Menu mnustuffclass
Caption = "货品种类增加(&S)"
End
Begin VB.Menu mnustuffdata
Caption = "货品资料增加(&D)"
End
Begin VB.Menu mnustuffbrow
Caption = "货品资料浏览(&B)"
End
End
Begin VB.Menu mnusystem
Caption = "系统维护(&S)"
Begin VB.Menu mnuBackDate
Caption = "数据备份(&D)"
End
Begin VB.Menu adga
Caption = "-"
End
Begin VB.Menu mnuuserpassword
Caption = "权限设置(&U)"
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu mnuHelpConcents
Caption = "目录(&C)"
End
Begin VB.Menu mnuconfiger
Caption = "屏幕参数"
End
Begin VB.Menu mnuscreen
Caption = "屏幕保护"
Shortcut = {F5}
End
Begin VB.Menu mnuhelpbar1
Caption = "-"
End
Begin VB.Menu mnuHelpAbout
Caption = "关于(&A)"
End
End
Begin VB.Menu ywj01
Caption = "ywj01"
Visible = 0 'False
Begin VB.Menu mnuadd
Caption = "增加新类别"
End
Begin VB.Menu mnuaddstuff
Caption = "增加新材料"
End
Begin VB.Menu mnudel
Caption = "删除"
End
End
Begin VB.Menu ywj02
Caption = "ywj02"
Visible = 0 'False
Begin VB.Menu menudel
Caption = "删除"
End
Begin VB.Menu menumodify
Caption = "修改"
End
End
End
Attribute VB_Name = "FrmMainBrow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private str As String
Private ids As String
Private Sub Form_Load()
Dim rst1 As New ADODB.Recordset
rst1.Open "select * from stuffclasstable order by fatherclass", GetConnect, adOpenForwardOnly, adLockReadOnly
Do Until rst1.EOF
If rst1![fatherclass] = 0 Then
tvTreeView.Nodes.Add , , "_" & Format(rst1![ID], "00000"), rst1![Name], 3, 4
Else
tvTreeView.Nodes.Add "_" & Format(rst1![fatherclass], "00000"), tvwChild, "_" & Format(rst1![ID], "00000"), rst1![Name], 3, 4
End If
rst1.MoveNext
Loop
rst1.Close
tvTreeView.Left = 20
tvTreeView.Top = 900
tvTreeView.Height = Me.Height + 700
lvListView.Top = 900
lvListView.Left = tvTreeView.Width + 50
lvListView.Height = Me.Height + 700
lvListView.Width = Me.Width
lvListView.ColumnHeaders.Clear
lvListView.ColumnHeaders.Add , , "材料代号", (lvListView.Width / 8) - 100
lvListView.ColumnHeaders.Add , , "助记码", (lvListView.Width / 8) - 100, lvwColumnCenter
lvListView.ColumnHeaders.Add , , "材料名称", (lvListView.Width / 8) + 300, lvwColumnCenter
lvListView.ColumnHeaders.Add , , "规格", (lvListView.Width / 8), lvwColumnCenter
lvListView.ColumnHeaders.Add , , "颜色", (lvListView.Width / 8), lvwColumnCenter
lvListView.ColumnHeaders.Add , , "单位", (lvListView.Width / 8) - 200, lvwColumnCenter
lvListView.ColumnHeaders.Add , , "货品类别", 0, lvwColumnCenter
lvListView.ColumnHeaders.Add , , "库存类别", 0, lvwColumnCenter
lvListView.ColumnHeaders.Add , , "初始库存", lvListView.Width / 8 - 200, lvwColumnRight
lvListView.ColumnHeaders.Add , , "厂商", (lvListView.Width / 8) + 100, lvwColumnCenter
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -