?? frmbuybook.vb
字號:
Public Class frmBuyBook Inherits 圖書管理系統(tǒng).frmBase#Region " Windows 窗體設(shè)計(jì)器生成的代碼 " Public Sub New() MyBase.New() '該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。 InitializeComponent() '在 InitializeComponent() 調(diào)用之后添加任何初始化 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 窗體設(shè)計(jì)器所必需的 Private components As System.ComponentModel.IContainer '注意: 以下過程是 Windows 窗體設(shè)計(jì)器所必需的 '可以使用 Windows 窗體設(shè)計(jì)器修改此過程。 '不要使用代碼編輯器修改它。 Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txbNumber As System.Windows.Forms.TextBox
Friend WithEvents txbBookNumber As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txbBookName As System.Windows.Forms.TextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txbSubscriber As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents txbCount As System.Windows.Forms.TextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents txbPrice As System.Windows.Forms.TextBox
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents txbContact As System.Windows.Forms.TextBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
Friend WithEvents DataSet11 As 圖書管理系統(tǒng).DataSet1
Friend WithEvents txbWorker As System.Windows.Forms.TextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents btnOpen As System.Windows.Forms.Button
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents btnSubmit As System.Windows.Forms.Button
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents tmDate As System.Windows.Forms.DateTimePicker
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmBuyBook))
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.tmDate = New System.Windows.Forms.DateTimePicker
Me.DataSet11 = New 圖書管理系統(tǒng).DataSet1
Me.Label13 = New System.Windows.Forms.Label
Me.btnOpen = New System.Windows.Forms.Button
Me.txbContact = New System.Windows.Forms.TextBox
Me.Label12 = New System.Windows.Forms.Label
Me.Label11 = New System.Windows.Forms.Label
Me.txbPrice = New System.Windows.Forms.TextBox
Me.Label10 = New System.Windows.Forms.Label
Me.txbCount = New System.Windows.Forms.TextBox
Me.Label9 = New System.Windows.Forms.Label
Me.txbWorker = New System.Windows.Forms.TextBox
Me.Label8 = New System.Windows.Forms.Label
Me.txbSubscriber = New System.Windows.Forms.TextBox
Me.Label7 = New System.Windows.Forms.Label
Me.txbBookName = New System.Windows.Forms.TextBox
Me.Label6 = New System.Windows.Forms.Label
Me.txbBookNumber = New System.Windows.Forms.TextBox
Me.Label5 = New System.Windows.Forms.Label
Me.txbNumber = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.btnSubmit = New System.Windows.Forms.Button
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.GroupBox1.SuspendLayout()
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Controls.Add(Me.tmDate)
Me.GroupBox1.Controls.Add(Me.Label13)
Me.GroupBox1.Controls.Add(Me.btnOpen)
Me.GroupBox1.Controls.Add(Me.txbContact)
Me.GroupBox1.Controls.Add(Me.Label12)
Me.GroupBox1.Controls.Add(Me.Label11)
Me.GroupBox1.Controls.Add(Me.txbPrice)
Me.GroupBox1.Controls.Add(Me.Label10)
Me.GroupBox1.Controls.Add(Me.txbCount)
Me.GroupBox1.Controls.Add(Me.Label9)
Me.GroupBox1.Controls.Add(Me.txbWorker)
Me.GroupBox1.Controls.Add(Me.Label8)
Me.GroupBox1.Controls.Add(Me.txbSubscriber)
Me.GroupBox1.Controls.Add(Me.Label7)
Me.GroupBox1.Controls.Add(Me.txbBookName)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.txbBookNumber)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.txbNumber)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Location = New System.Drawing.Point(0, 152)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(616, 120)
Me.GroupBox1.TabIndex = 4
Me.GroupBox1.TabStop = False
'
'tmDate
'
Me.tmDate.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "圖書征訂.訂購日期"))
Me.tmDate.Format = System.Windows.Forms.DateTimePickerFormat.Short
Me.tmDate.Location = New System.Drawing.Point(247, 80)
Me.tmDate.Name = "tmDate"
Me.tmDate.Size = New System.Drawing.Size(89, 21)
Me.tmDate.TabIndex = 21
'
'DataSet11
'
Me.DataSet11.DataSetName = "DataSet1"
Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(464, 20)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(144, 84)
Me.Label13.TabIndex = 19
Me.Label13.Text = "說明:填寫的的征訂記錄保存在""圖書征訂""表中,""是否驗(yàn)收""字段為0(false),單擊【提交征訂】按鈕,調(diào)用""sf_圖書征訂""存儲過程處理"
'
'btnOpen
'
Me.btnOpen.Image = CType(resources.GetObject("btnOpen.Image"), System.Drawing.Image)
Me.btnOpen.Location = New System.Drawing.Point(165, 31)
Me.btnOpen.Name = "btnOpen"
Me.btnOpen.Size = New System.Drawing.Size(27, 24)
Me.btnOpen.TabIndex = 18
'
'txbContact
'
Me.txbContact.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "圖書征訂.訂購者聯(lián)系方式"))
Me.txbContact.Location = New System.Drawing.Point(344, 80)
Me.txbContact.Name = "txbContact"
Me.txbContact.Size = New System.Drawing.Size(112, 21)
Me.txbContact.TabIndex = 17
Me.txbContact.Text = ""
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(342, 64)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(100, 16)
Me.Label12.TabIndex = 16
Me.Label12.Text = "訂購者聯(lián)系方式"
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(246, 64)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(56, 16)
Me.Label11.TabIndex = 14
Me.Label11.Text = "訂購日期"
'
'txbPrice
'
Me.txbPrice.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "圖書征訂.訂購單價(jià)"))
Me.txbPrice.Location = New System.Drawing.Point(168, 80)
Me.txbPrice.Name = "txbPrice"
Me.txbPrice.Size = New System.Drawing.Size(72, 21)
Me.txbPrice.TabIndex = 13
Me.txbPrice.Text = ""
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(168, 64)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(56, 16)
Me.Label10.TabIndex = 12
Me.Label10.Text = "訂購單價(jià)"
'
'txbCount
'
Me.txbCount.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "圖書征訂.訂購數(shù)量"))
Me.txbCount.Location = New System.Drawing.Point(88, 80)
Me.txbCount.Name = "txbCount"
Me.txbCount.Size = New System.Drawing.Size(72, 21)
Me.txbCount.TabIndex = 11
Me.txbCount.Text = ""
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(88, 64)
Me.Label9.Size = New System.Drawing.Size(56, 16)
Me.Label9.TabIndex = 10
Me.Label9.Text = "訂購數(shù)量"
'
'txbWorker
'
Me.txbWorker.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "圖書征訂.操作員"))
Me.txbWorker.Location = New System.Drawing.Point(8, 80)
Me.txbWorker.Name = "txbWorker"
Me.txbWorker.Size = New System.Drawing.Size(72, 21)
Me.txbWorker.TabIndex = 9
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -