_ Partial Class 業務銷售控制表 Inherits System.Windows.Forms.Form 'Form 覆寫 Dispose 以清除元件清單。 _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub '為 Windows Form 設計工具的必要項 Private components As System.ComponentModel.IContainer '注意: 以下為 Windows Form 設計工具所需的程序 '可以使用 Windows Form 設計工具進行修改。 '請勿使用程式碼編輯器進行修改。 _ Private Sub InitializeComponent() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.業務_dgv = New System.Windows.Forms.DataGridView() Me.人員_dgv = New System.Windows.Forms.DataGridView() Me.流水號_bt = New System.Windows.Forms.TextBox() Me.病歷號_tb = New System.Windows.Forms.TextBox() Me.看診日期_dtp = New System.Windows.Forms.DateTimePicker() Me.看診日期_lb = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.看診醫生_tb = New System.Windows.Forms.TextBox() Me.銷售人員_tb = New System.Windows.Forms.TextBox() Me.Label3 = New System.Windows.Forms.Label() Me.指定銷售_bt = New System.Windows.Forms.Button() Me.未指定_ch = New System.Windows.Forms.CheckBox() Me.未聯繫_ch = New System.Windows.Forms.CheckBox() Me.成功_ch = New System.Windows.Forms.CheckBox() Me.失誤_ch = New System.Windows.Forms.CheckBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.銷售取消_bt = New System.Windows.Forms.Button() Me.銷售成功_bt = New System.Windows.Forms.Button() Me.備註_tb = New System.Windows.Forms.TextBox() Me.Label4 = New System.Windows.Forms.Label() Me.治療建議_dgv = New System.Windows.Forms.DataGridView() Me.備註存檔_bt = New System.Windows.Forms.Button() CType(Me.業務_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() CType(Me.治療建議_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' '業務_dgv ' Me.業務_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.業務_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.業務_dgv.BackgroundColor = System.Drawing.Color.White Me.業務_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.業務_dgv.Location = New System.Drawing.Point(3, 54) Me.業務_dgv.Name = "業務_dgv" Me.業務_dgv.RowHeadersWidth = 5 Me.業務_dgv.RowTemplate.Height = 24 Me.業務_dgv.Size = New System.Drawing.Size(597, 613) Me.業務_dgv.TabIndex = 229 ' '人員_dgv ' DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.人員_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.人員_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.人員_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.人員_dgv.BackgroundColor = System.Drawing.Color.White Me.人員_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.人員_dgv.Location = New System.Drawing.Point(954, 54) Me.人員_dgv.Name = "人員_dgv" Me.人員_dgv.RowHeadersWidth = 5 Me.人員_dgv.RowTemplate.Height = 24 Me.人員_dgv.Size = New System.Drawing.Size(149, 613) Me.人員_dgv.TabIndex = 787 ' '流水號_bt ' Me.流水號_bt.Location = New System.Drawing.Point(28, 78) Me.流水號_bt.Name = "流水號_bt" Me.流水號_bt.Size = New System.Drawing.Size(100, 23) Me.流水號_bt.TabIndex = 792 ' '病歷號_tb ' Me.病歷號_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.病歷號_tb.Location = New System.Drawing.Point(64, 27) Me.病歷號_tb.Name = "病歷號_tb" Me.病歷號_tb.ReadOnly = True Me.病歷號_tb.Size = New System.Drawing.Size(92, 23) Me.病歷號_tb.TabIndex = 793 ' '看診日期_dtp ' Me.看診日期_dtp.CustomFormat = "yyyy/MM/dd" Me.看診日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom Me.看診日期_dtp.Location = New System.Drawing.Point(63, 3) Me.看診日期_dtp.Name = "看診日期_dtp" Me.看診日期_dtp.Size = New System.Drawing.Size(92, 23) Me.看診日期_dtp.TabIndex = 794 ' '看診日期_lb ' Me.看診日期_lb.AutoSize = True Me.看診日期_lb.Location = New System.Drawing.Point(5, 6) Me.看診日期_lb.Name = "看診日期_lb" Me.看診日期_lb.Size = New System.Drawing.Size(55, 16) Me.看診日期_lb.TabIndex = 795 Me.看診日期_lb.Text = "看診日期" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(5, 30) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(55, 16) Me.Label1.TabIndex = 796 Me.Label1.Text = "病 歷 號" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(161, 6) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(55, 16) Me.Label2.TabIndex = 797 Me.Label2.Text = "看診醫生" ' '看診醫生_tb ' Me.看診醫生_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.看診醫生_tb.Location = New System.Drawing.Point(222, 3) Me.看診醫生_tb.Name = "看診醫生_tb" Me.看診醫生_tb.ReadOnly = True Me.看診醫生_tb.Size = New System.Drawing.Size(92, 23) Me.看診醫生_tb.TabIndex = 798 ' '銷售人員_tb ' Me.銷售人員_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.銷售人員_tb.Location = New System.Drawing.Point(222, 27) Me.銷售人員_tb.Name = "銷售人員_tb" Me.銷售人員_tb.ReadOnly = True Me.銷售人員_tb.Size = New System.Drawing.Size(92, 23) Me.銷售人員_tb.TabIndex = 800 ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(161, 30) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(55, 16) Me.Label3.TabIndex = 799 Me.Label3.Text = "銷售人員" ' '指定銷售_bt ' Me.指定銷售_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.指定銷售_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.指定銷售_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.指定銷售_bt.Location = New System.Drawing.Point(665, 1) Me.指定銷售_bt.Name = "指定銷售_bt" Me.指定銷售_bt.Size = New System.Drawing.Size(50, 50) Me.指定銷售_bt.TabIndex = 801 Me.指定銷售_bt.Text = "指定銷售" Me.指定銷售_bt.UseVisualStyleBackColor = True ' '未指定_ch ' Me.未指定_ch.AutoSize = True Me.未指定_ch.Checked = True Me.未指定_ch.CheckState = System.Windows.Forms.CheckState.Checked Me.未指定_ch.ForeColor = System.Drawing.Color.Green Me.未指定_ch.Location = New System.Drawing.Point(6, 4) Me.未指定_ch.Name = "未指定_ch" Me.未指定_ch.Size = New System.Drawing.Size(110, 20) Me.未指定_ch.TabIndex = 802 Me.未指定_ch.Text = "未指定銷售人員" Me.未指定_ch.UseVisualStyleBackColor = True ' '未聯繫_ch ' Me.未聯繫_ch.AutoSize = True Me.未聯繫_ch.ForeColor = System.Drawing.Color.Green Me.未聯繫_ch.Location = New System.Drawing.Point(6, 30) Me.未聯繫_ch.Name = "未聯繫_ch" Me.未聯繫_ch.Size = New System.Drawing.Size(110, 20) Me.未聯繫_ch.TabIndex = 803 Me.未聯繫_ch.Text = "未聯繫客戶清單" Me.未聯繫_ch.UseVisualStyleBackColor = True ' '成功_ch ' Me.成功_ch.AutoSize = True Me.成功_ch.ForeColor = System.Drawing.Color.Green Me.成功_ch.Location = New System.Drawing.Point(122, 4) Me.成功_ch.Name = "成功_ch" Me.成功_ch.Size = New System.Drawing.Size(110, 20) Me.成功_ch.TabIndex = 804 Me.成功_ch.Text = "銷售成功的清單" Me.成功_ch.UseVisualStyleBackColor = True ' '失誤_ch ' Me.失誤_ch.AutoSize = True Me.失誤_ch.ForeColor = System.Drawing.Color.Green Me.失誤_ch.Location = New System.Drawing.Point(122, 30) Me.失誤_ch.Name = "失誤_ch" Me.失誤_ch.Size = New System.Drawing.Size(110, 20) Me.失誤_ch.TabIndex = 805 Me.失誤_ch.Text = "銷售取消的清單" Me.失誤_ch.UseVisualStyleBackColor = True ' 'Panel1 ' Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel1.Controls.Add(Me.備註存檔_bt) Me.Panel1.Controls.Add(Me.銷售取消_bt) Me.Panel1.Controls.Add(Me.銷售成功_bt) Me.Panel1.Controls.Add(Me.備註_tb) Me.Panel1.Controls.Add(Me.看診日期_lb) Me.Panel1.Controls.Add(Me.病歷號_tb) Me.Panel1.Controls.Add(Me.看診日期_dtp) Me.Panel1.Controls.Add(Me.Label1) Me.Panel1.Controls.Add(Me.Label2) Me.Panel1.Controls.Add(Me.指定銷售_bt) Me.Panel1.Controls.Add(Me.看診醫生_tb) Me.Panel1.Controls.Add(Me.銷售人員_tb) Me.Panel1.Controls.Add(Me.Label3) Me.Panel1.Controls.Add(Me.Label4) Me.Panel1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.Panel1.Location = New System.Drawing.Point(230, 0) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(873, 55) Me.Panel1.TabIndex = 806 ' '銷售取消_bt ' Me.銷售取消_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.銷售取消_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.銷售取消_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.銷售取消_bt.Location = New System.Drawing.Point(818, 1) Me.銷售取消_bt.Name = "銷售取消_bt" Me.銷售取消_bt.Size = New System.Drawing.Size(50, 50) Me.銷售取消_bt.TabIndex = 810 Me.銷售取消_bt.Text = "銷售取消" Me.銷售取消_bt.UseVisualStyleBackColor = True ' '銷售成功_bt ' Me.銷售成功_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.銷售成功_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.銷售成功_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.銷售成功_bt.Location = New System.Drawing.Point(767, 1) Me.銷售成功_bt.Name = "銷售成功_bt" Me.銷售成功_bt.Size = New System.Drawing.Size(50, 50) Me.銷售成功_bt.TabIndex = 809 Me.銷售成功_bt.Text = "銷售成功" Me.銷售成功_bt.UseVisualStyleBackColor = True ' '備註_tb ' Me.備註_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.備註_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.備註_tb.Location = New System.Drawing.Point(346, 3) Me.備註_tb.Multiline = True Me.備註_tb.Name = "備註_tb" Me.備註_tb.Size = New System.Drawing.Size(317, 47) Me.備註_tb.TabIndex = 807 ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(315, 6) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(31, 16) Me.Label4.TabIndex = 808 Me.Label4.Text = "備註" ' '治療建議_dgv ' Me.治療建議_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.治療建議_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.治療建議_dgv.BackgroundColor = System.Drawing.Color.White DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle2.SelectionBackColor = System.Drawing.Color.White DataGridViewCellStyle2.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.治療建議_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 Me.治療建議_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.White DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] Me.治療建議_dgv.DefaultCellStyle = DataGridViewCellStyle3 Me.治療建議_dgv.Location = New System.Drawing.Point(599, 54) Me.治療建議_dgv.Name = "治療建議_dgv" DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle4.SelectionBackColor = System.Drawing.Color.White DataGridViewCellStyle4.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.治療建議_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.治療建議_dgv.RowHeadersWidth = 5 Me.治療建議_dgv.RowTemplate.Height = 24 Me.治療建議_dgv.Size = New System.Drawing.Size(356, 613) Me.治療建議_dgv.TabIndex = 807 ' '備註存檔_bt ' Me.備註存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.備註存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.備註存檔_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.備註存檔_bt.Location = New System.Drawing.Point(716, 1) Me.備註存檔_bt.Name = "備註存檔_bt" Me.備註存檔_bt.Size = New System.Drawing.Size(50, 50) Me.備註存檔_bt.TabIndex = 811 Me.備註存檔_bt.Text = "備註存檔" Me.備註存檔_bt.UseVisualStyleBackColor = True ' '業務銷售控制表 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1106, 669) Me.Controls.Add(Me.人員_dgv) Me.Controls.Add(Me.治療建議_dgv) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.失誤_ch) Me.Controls.Add(Me.成功_ch) Me.Controls.Add(Me.未聯繫_ch) Me.Controls.Add(Me.未指定_ch) Me.Controls.Add(Me.業務_dgv) Me.Controls.Add(Me.流水號_bt) Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Margin = New System.Windows.Forms.Padding(4) Me.Name = "業務銷售控制表" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "業務銷售控制表" CType(Me.業務_dgv, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() CType(Me.治療建議_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 業務_dgv As DataGridView Friend WithEvents 人員_dgv As DataGridView Friend WithEvents 流水號_bt As TextBox Friend WithEvents 病歷號_tb As TextBox Friend WithEvents 看診日期_dtp As DateTimePicker Friend WithEvents 看診日期_lb As Label Friend WithEvents Label1 As Label Friend WithEvents Label2 As Label Friend WithEvents 看診醫生_tb As TextBox Friend WithEvents 銷售人員_tb As TextBox Friend WithEvents Label3 As Label Friend WithEvents 指定銷售_bt As Button Friend WithEvents 未指定_ch As CheckBox Friend WithEvents 未聯繫_ch As CheckBox Friend WithEvents 成功_ch As CheckBox Friend WithEvents 失誤_ch As CheckBox Friend WithEvents Panel1 As Panel Friend WithEvents 銷售取消_bt As Button Friend WithEvents 銷售成功_bt As Button Friend WithEvents 備註_tb As TextBox Friend WithEvents Label4 As Label Friend WithEvents 治療建議_dgv As DataGridView Friend WithEvents 備註存檔_bt As Button End Class