?? frmbilllist.vb
字號:
Public Class frmBillList
Inherits System.Windows.Forms.Form
Private dvMasterList As DataView
Private dvDetailList As DataView
'用于判斷增項后保存還是修改后保存
'bAdd = True 為增項后保存
Private bAdd As Boolean = True
'bLevel = false 為添加子項 bLevel = true 為添加同級項
Private bLevel As Boolean = False
#Region " Windows 窗體設計器生成的代碼 "
Public Sub New()
MyBase.New()
'該調用是 Windows 窗體設計器所必需的。
InitializeComponent()
'在 InitializeComponent() 調用之后添加任何初始化
End Sub
'窗體重寫 dispose 以清理組件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗體設計器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下過程是 Windows 窗體設計器所必需的
'可以使用 Windows 窗體設計器修改此過程。
'不要使用代碼編輯器修改它。
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents tbbModify As System.Windows.Forms.ToolBarButton
Friend WithEvents tbbDel As System.Windows.Forms.ToolBarButton
Friend WithEvents tbbSave As System.Windows.Forms.ToolBarButton
Friend WithEvents tbbExit As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
Friend WithEvents grbSearch As System.Windows.Forms.GroupBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btnSearch As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents dgdDetail As System.Windows.Forms.DataGrid
Friend WithEvents tbbNewSub As System.Windows.Forms.ToolBarButton
Friend WithEvents tbbNewSame As System.Windows.Forms.ToolBarButton
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents TextBox10 As System.Windows.Forms.TextBox
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents btnOpen As System.Windows.Forms.Button
Friend WithEvents trvList As System.Windows.Forms.TreeView
Friend WithEvents txbSPY As System.Windows.Forms.TextBox
Friend WithEvents txbSName As System.Windows.Forms.TextBox
Friend WithEvents txbSID As System.Windows.Forms.TextBox
Friend WithEvents txbCheckDate As System.Windows.Forms.TextBox
Friend WithEvents txbRate As System.Windows.Forms.TextBox
Friend WithEvents txbDepot As System.Windows.Forms.TextBox
Friend WithEvents txbWorkShop As System.Windows.Forms.TextBox
Friend WithEvents txbCode As System.Windows.Forms.TextBox
Friend WithEvents txbCount As System.Windows.Forms.TextBox
Friend WithEvents txbPID As System.Windows.Forms.TextBox
Friend WithEvents txbName As System.Windows.Forms.TextBox
Friend WithEvents txbId As System.Windows.Forms.TextBox
Friend WithEvents tbbCancel As System.Windows.Forms.ToolBarButton
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmBillList))
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.tbbNewSub = New System.Windows.Forms.ToolBarButton
Me.tbbModify = New System.Windows.Forms.ToolBarButton
Me.tbbDel = New System.Windows.Forms.ToolBarButton
Me.tbbSave = New System.Windows.Forms.ToolBarButton
Me.tbbExit = New System.Windows.Forms.ToolBarButton
Me.ToolBar1 = New System.Windows.Forms.ToolBar
Me.tbbNewSame = New System.Windows.Forms.ToolBarButton
Me.tbbCancel = New System.Windows.Forms.ToolBarButton
Me.grbSearch = New System.Windows.Forms.GroupBox
Me.Label3 = New System.Windows.Forms.Label
Me.txbSPY = New System.Windows.Forms.TextBox
Me.txbSName = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.txbSID = New System.Windows.Forms.TextBox
Me.btnSearch = New System.Windows.Forms.Button
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.trvList = New System.Windows.Forms.TreeView
Me.GroupBox3 = New System.Windows.Forms.GroupBox
Me.btnOpen = New System.Windows.Forms.Button
Me.TextBox10 = New System.Windows.Forms.TextBox
Me.Label13 = New System.Windows.Forms.Label
Me.txbCheckDate = New System.Windows.Forms.TextBox
Me.Label12 = New System.Windows.Forms.Label
Me.txbRate = New System.Windows.Forms.TextBox
Me.Label11 = New System.Windows.Forms.Label
Me.txbDepot = New System.Windows.Forms.TextBox
Me.Label10 = New System.Windows.Forms.Label
Me.txbWorkShop = New System.Windows.Forms.TextBox
Me.Label9 = New System.Windows.Forms.Label
Me.txbCode = New System.Windows.Forms.TextBox
Me.Label8 = New System.Windows.Forms.Label
Me.txbCount = New System.Windows.Forms.TextBox
Me.Label7 = New System.Windows.Forms.Label
Me.txbPID = New System.Windows.Forms.TextBox
Me.Label6 = New System.Windows.Forms.Label
Me.txbName = New System.Windows.Forms.TextBox
Me.Label5 = New System.Windows.Forms.Label
Me.txbId = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.dgdDetail = New System.Windows.Forms.DataGrid
Me.grbSearch.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.dgdDetail, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
'
'tbbNewSub
'
Me.tbbNewSub.ImageIndex = 4
Me.tbbNewSub.Text = "增子項"
Me.tbbNewSub.ToolTipText = "增子項"
'
'tbbModify
'
Me.tbbModify.ImageIndex = 5
Me.tbbModify.Text = "修改"
Me.tbbModify.ToolTipText = "修改"
'
'tbbDel
'
Me.tbbDel.ImageIndex = 6
Me.tbbDel.Text = "刪除"
Me.tbbDel.ToolTipText = "刪除"
'
'tbbSave
'
Me.tbbSave.Enabled = False
Me.tbbSave.ImageIndex = 7
Me.tbbSave.Text = "保存"
Me.tbbSave.ToolTipText = "保存"
'
'tbbExit
'
Me.tbbExit.ImageIndex = 9
Me.tbbExit.Text = "退出"
Me.tbbExit.ToolTipText = "退出"
'
'ToolBar1
'
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbNewSub, Me.tbbNewSame, Me.tbbModify, Me.tbbDel, Me.tbbSave, Me.tbbCancel, Me.tbbExit})
Me.ToolBar1.ButtonSize = New System.Drawing.Size(65, 35)
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.ImageList = Me.ImageList1
Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(696, 41)
Me.ToolBar1.TabIndex = 2
'
'tbbNewSame
'
Me.tbbNewSame.ImageIndex = 4
Me.tbbNewSame.Text = "增同級項"
Me.tbbNewSame.ToolTipText = "增同級項"
'
'tbbCancel
'
Me.tbbCancel.Enabled = False
Me.tbbCancel.ImageIndex = 8
Me.tbbCancel.Text = "取消"
'
'grbSearch
'
Me.grbSearch.Controls.Add(Me.Label3)
Me.grbSearch.Controls.Add(Me.txbSPY)
Me.grbSearch.Controls.Add(Me.txbSName)
Me.grbSearch.Controls.Add(Me.Label2)
Me.grbSearch.Controls.Add(Me.Label1)
Me.grbSearch.Controls.Add(Me.txbSID)
Me.grbSearch.Controls.Add(Me.btnSearch)
Me.grbSearch.Dock = System.Windows.Forms.DockStyle.Top
Me.grbSearch.Location = New System.Drawing.Point(0, 41)
Me.grbSearch.Name = "grbSearch"
Me.grbSearch.Size = New System.Drawing.Size(696, 39)
Me.grbSearch.TabIndex = 3
Me.grbSearch.TabStop = False
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(320, 16)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(56, 15)
Me.Label3.TabIndex = 6
Me.Label3.Text = "父項拼音"
'
'txbSPY
'
Me.txbSPY.Location = New System.Drawing.Point(376, 11)
Me.txbSPY.Name = "txbSPY"
Me.txbSPY.Size = New System.Drawing.Size(56, 21)
Me.txbSPY.TabIndex = 5
Me.txbSPY.Text = ""
'
'txbSName
'
Me.txbSName.Location = New System.Drawing.Point(248, 11)
Me.txbSName.Name = "txbSName"
Me.txbSName.Size = New System.Drawing.Size(56, 21)
Me.txbSName.TabIndex = 4
Me.txbSName.Text = ""
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(192, 16)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(56, 15)
Me.Label2.TabIndex = 3
Me.Label2.Text = "父項名稱"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(72, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(56, 15)
Me.Label1.TabIndex = 2
Me.Label1.Text = "父項編號"
'
'txbSID
'
Me.txbSID.Location = New System.Drawing.Point(128, 11)
Me.txbSID.Name = "txbSID"
Me.txbSID.Size = New System.Drawing.Size(56, 21)
Me.txbSID.TabIndex = 1
Me.txbSID.Text = ""
'
'btnSearch
'
Me.btnSearch.Location = New System.Drawing.Point(8, 11)
Me.btnSearch.Name = "btnSearch"
Me.btnSearch.Size = New System.Drawing.Size(40, 22)
Me.btnSearch.TabIndex = 0
Me.btnSearch.Text = "搜索"
'
'GroupBox1
'
Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Controls.Add(Me.trvList)
Me.GroupBox1.Controls.Add(Me.GroupBox3)
Me.GroupBox1.Location = New System.Drawing.Point(0, 72)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(696, 248)
Me.GroupBox1.TabIndex = 4
Me.GroupBox1.TabStop = False
'
'trvList
'
Me.trvList.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.trvList.ImageIndex = -1
Me.trvList.Location = New System.Drawing.Point(8, 10)
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -