📄 form1.vb
字号:
'MsgBox(typestr)
TextBox5.Text = typestr
' MsgBox(TreeView1.SelectedNode.Text)
type22()
Catch ex As Exception
End Try
End Sub
Public Sub type22()
Try
'这里问题大着呢?????????????????????????????????????????
If TreeView1.SelectedNode.Text = TextBox1.Text.Trim Then
MsgBox(TreeView1.SelectedNode.Text)
MsgBox(TextBox1.Text.Trim)
Else
'
Dim conn11 As New SqlConnection
Dim comm11 As New SqlCommand
Dim ds11 As New DataSet
Dim ada11 As New SqlDataAdapter
myConnStr = connstr()
conn11 = New SqlConnection(myConnStr)
conn11.Open()
TextBox1.Text = TreeView1.SelectedNode.Text
Dim t3 As String
t3 = TextBox5.Text + "%"
TextBox4.Text = t3
comm11 = New SqlCommand("select * from T_ASSET_MAIN where ASSET_CODE like '" + TextBox4.Text.Trim + "'", conn11)
Dim i11 As Integer
i11 = comm11.ExecuteNonQuery()
ada11.SelectCommand = comm11
conn11.Close()
ds11.Clear()
ada11.Fill(ds11, "T_ASSET_MAIN")
assentTable = ds11.Tables("T_ASSET_MAIN")
For i = 0 To assentTable.Rows.Count - 1
If assentTable.Rows.Item(i).Item(2).Trim <> Me.TreeView1.SelectedNode.Text Then
ListView1.Items.Clear()
Dim ii As Integer
For ii = 0 To (assentTable.Rows.Count - 1)
Select Case CInt(assentTable.Rows.Item(ii).Item(11))
Case 1
strAssetType = "空闲"
Case 2
strAssetType = "使用"
Case 3
strAssetType = "报废"
Case 4
strAssetType = "转出"
End Select
Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"" + assentTable.Rows.Item(ii).Item(0).ToString + "", "" + assentTable.Rows.Item(ii).Item(1).ToString + "", "" + assentTable.Rows.Item(ii).Item(2).ToString + "", "" + assentTable.Rows.Item(ii).Item(3).ToString + "", "" + assentTable.Rows.Item(ii).Item(4).ToString + "", "" + assentTable.Rows.Item(ii).Item(5).ToString + "", "" + assentTable.Rows.Item(ii).Item(6).ToString + "", "" + assentTable.Rows.Item(ii).Item(7).ToString + "", "" + assentTable.Rows.Item(ii).Item(8).ToString + "", "" + assentTable.Rows.Item(ii).Item(9).ToString + "", "" + assentTable.Rows.Item(ii).Item(10).ToString + "", strAssetType, "" + assentTable.Rows.Item(ii).Item(12).ToString + ""}, -1)
Me.ListView1.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1})
Next
Else
If assentTable.Rows.Item(i).Item(1) = Me.TreeView1.SelectedNode.Text Then
Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"" + assentTable.Rows.Item(i).Item(0).ToString + "", "" + assentTable.Rows.Item(i).Item(1).ToString + "", "" + assentTable.Rows.Item(i).Item(2).ToString + "", "" + assentTable.Rows.Item(i).Item(3).ToString + "", "" + assentTable.Rows.Item(i).Item(4).ToString + "", "" + assentTable.Rows.Item(i).Item(5).ToString + "", "" + assentTable.Rows.Item(i).Item(6).ToString + "", "" + assentTable.Rows.Item(i).Item(7).ToString + "", "" + assentTable.Rows.Item(i).Item(8).ToString + "", "" + assentTable.Rows.Item(i).Item(9).ToString + "", "" + assentTable.Rows.Item(i).Item(10).ToString + "", strAssetType, "" + assentTable.Rows.Item(i).Item(12).ToString + ""}, -1)
Me.ListView1.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem2})
End If
End If
i = i + 1
Next
End If
Catch ex As Exception
End Try
StatusBarPanel3.Text = " 当前共有记录：" & i
End Sub
Public Sub trv()
Try
Dim conn11 As New SqlConnection
Dim comm11 As New SqlCommand
Dim ds11 As New DataSet
Dim ada11 As New SqlDataAdapter
myConnStr = connstr()
conn11 = New SqlConnection(myConnStr)
conn11.Open()
TextBox1.Text = TreeView1.SelectedNode.Text
comm11 = New SqlCommand("select * from T_ASSET_MAIN where USE_DEP='" + TextBox1.Text + "' Or ASSET_TYPE = '" + TextBox2.Text + "'or ASSET_CODE='" + TextBox2.Text + "'", conn11)
Dim i11 As Integer
i11 = comm11.ExecuteNonQuery()
ada11.SelectCommand = comm11
conn11.Close()
ds11.Clear()
ada11.Fill(ds11, "T_ASSET_MAIN")
assentTable = ds11.Tables("T_ASSET_MAIN")
For i = 0 To assentTable.Rows.Count - 1
If assentTable.Rows.Item(i).Item(2).Trim <> Me.TreeView1.SelectedNode.Text Then
ListView1.Items.Clear()
Dim ii As Integer
For ii = 0 To (assentTable.Rows.Count - 1)
Select Case CInt(assentTable.Rows.Item(ii).Item(11))
Case 1
strAssetType = "空闲"
Case 2
strAssetType = "使用"
Case 3
strAssetType = "报废"
Case 4
strAssetType = "转出"
End Select
Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"" + assentTable.Rows.Item(ii).Item(0).ToString + "", "" + assentTable.Rows.Item(ii).Item(1).ToString + "", "" + assentTable.Rows.Item(ii).Item(2).ToString + "", "" + assentTable.Rows.Item(ii).Item(3).ToString + "", "" + assentTable.Rows.Item(ii).Item(4).ToString + "", "" + assentTable.Rows.Item(ii).Item(5).ToString + "", "" + assentTable.Rows.Item(ii).Item(6).ToString + "", "" + assentTable.Rows.Item(ii).Item(7).ToString + "", "" + assentTable.Rows.Item(ii).Item(8).ToString + "", "" + assentTable.Rows.Item(ii).Item(9).ToString + "", "" + assentTable.Rows.Item(ii).Item(10).ToString + "", strAssetType, "" + assentTable.Rows.Item(ii).Item(12).ToString + ""}, -1)
Me.ListView1.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1})
Next
Else
If assentTable.Rows.Item(i).Item(1) = Me.TreeView1.SelectedNode.Text Then
Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"" + assentTable.Rows.Item(i).Item(0).ToString + "", "" + assentTable.Rows.Item(i).Item(1).ToString + "", "" + assentTable.Rows.Item(i).Item(2).ToString + "", "" + assentTable.Rows.Item(i).Item(3).ToString + "", "" + assentTable.Rows.Item(i).Item(4).ToString + "", "" + assentTable.Rows.Item(i).Item(5).ToString + "", "" + assentTable.Rows.Item(i).Item(6).ToString + "", "" + assentTable.Rows.Item(i).Item(7).ToString + "", "" + assentTable.Rows.Item(i).Item(8).ToString + "", "" + assentTable.Rows.Item(i).Item(9).ToString + "", "" + assentTable.Rows.Item(i).Item(10).ToString + "", strAssetType, "" + assentTable.Rows.Item(i).Item(12).ToString + ""}, -1)
Me.ListView1.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem2})
End If
End If
i = i + 1
Next
Catch ex As Exception
MsgBox("Form1 TreeView1_AfterSelect() error")
End Try
StatusBarPanel3.Text = "当前共有记录:" & i
End Sub
Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
If MenuItem16.Checked = True Then
StatusBar1.Visible = False
Me.ListView1.Size = New System.Drawing.Size(872, 620)
Me.TreeView1.Size = New System.Drawing.Size(152, 620)
MenuItem16.Checked = False
Else
StatusBar1.Visible = True
Me.ListView1.Size = New System.Drawing.Size(872, 576)
Me.TreeView1.Size = New System.Drawing.Size(152, 576)
MenuItem16.Checked = True
End If
End Sub
Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
If MenuItem17.Checked = True Then
TreeView1.Visible = False
Me.ListView1.Location = New System.Drawing.Point(4, 72)
Me.ListView1.Size = New System.Drawing.Size(1015, 576)
MenuItem17.Checked = False
Else
TreeView1.Visible = True
Me.ListView1.Location = New System.Drawing.Point(152, 72)
Me.ListView1.Size = New System.Drawing.Size(872, 576)
MenuItem17.Checked = True
End If
End Sub
' -------------用户管理模块------------------
Private Sub MenuItem31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem31.Click
Dim adduser As New AddUser
adduser.Show()
End Sub
Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
Dim ObjChangPassword As New ChangPassword
ObjChangPassword.Show()
End Sub
Private Sub MenuItem34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem34.Click
Dim ObjChangType As New ChangType
ObjChangType.Show()
End Sub
Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click
Dim ObjChangUserType As New ChangUserType
ObjChangUserType.Show()
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
System.Diagnostics.Process.Start("Counter.exe")
End Sub
Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
'System.Diagnostics.Process.Start("property_Man.exe")
Dim ObjAssetCount As New AssetCount
ObjAssetCount.Show()
End Sub
Private Sub MenuItemDelet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemDelet.Click
If MenuItem17.Checked = True Then
TreeView1.Visible = False
Me.ListView1.Location = New System.Drawing.Point(4, 72)
Me.ListView1.Size = New System.Drawing.Size(1015, 576)
MenuItem17.Checked = False
Else
TreeView1.Visible = True
Me.ListView1.Location = New System.Drawing.Point(152, 72)
Me.ListView1.Size = New System.Drawing.Size(872, 576)
MenuItem17.Checked = True
End If
End Sub
Private Sub MenuItem36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem36.Click
If MenuItem16.Checked = True Then
StatusBar1.Visible = False
Me.ListView1.Size = New System.Drawing.Size(872, 620)
Me.TreeView1.Size = New System.Drawing.Size(152, 620)
MenuItem16.Checked = False
Else
StatusBar1.Visible = True
Me.ListView1.Size = New System.Drawing.Size(872, 576)
Me.TreeView1.Size = New System.Drawing.Size(152, 576)
MenuItem16.Checked = True
End If
End Sub
Private Sub MenuItemAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemAdd.Click
Dim ObjAddClass As New AddClass
'If falg = 0 Then
' ObjNoteHeader.MdiParent = Me
'ObjNoteHeader.Show()
ObjAddClass.Show()
' End If
falg = 1
End Sub
Private Sub MenuItemOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemOut.Click
Dim ObjAddDepartment As New AddDepartment
' If falg = 0 Then
' ObjNoteHeader.MdiParent = Me
'ObjNoteHeader.Show()
ObjAddDepartment.Show()
' End If
falg = 1
End Sub
Private Sub MenuItem39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem39.Click
Dim ObjAssetCR As New AssetCR
ObjAssetCR.Show()
End Sub
Private Sub MenuItem41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem41.Click
Dim ObjScrapCR As New ScrapCR
ObjScrapCR.Show()
End Sub
Private Sub MenuItem42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem42.Click
Dim ObjTransferCR As New TransferCR
ObjTransferCR.Show()
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -