frmhuajia.vb

一个医院管理系统

        Me.Label3.Size = New System.Drawing.Size(56, 15)
        Me.Label3.TabIndex = 13
        Me.Label3.Text = "性　　别"
        '
        'grbtwo
        '
        Me.grbtwo.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.grbtwo.Controls.Add(Me.Label15)
        Me.grbtwo.Controls.Add(Me.txbMXId)
        Me.grbtwo.Controls.Add(Me.Label14)
        Me.grbtwo.Controls.Add(Me.btnDel)
        Me.grbtwo.Controls.Add(Me.btnSave)
        Me.grbtwo.Controls.Add(Me.btnAdd)
        Me.grbtwo.Controls.Add(Me.Label13)
        Me.grbtwo.Controls.Add(Me.txbPrice)
        Me.grbtwo.Controls.Add(Me.Label12)
        Me.grbtwo.Controls.Add(Me.txbUnit)
        Me.grbtwo.Controls.Add(Me.Label11)
        Me.grbtwo.Controls.Add(Me.txbGuiGe)
        Me.grbtwo.Controls.Add(Me.Label10)
        Me.grbtwo.Controls.Add(Me.txbMName)
        Me.grbtwo.Controls.Add(Me.Label9)
        Me.grbtwo.Controls.Add(Me.txbMMoney)
        Me.grbtwo.Controls.Add(Me.Label8)
        Me.grbtwo.Controls.Add(Me.txbNumber)
        Me.grbtwo.Controls.Add(Me.Label7)
        Me.grbtwo.Controls.Add(Me.txbPY)
        Me.grbtwo.Controls.Add(Me.dgdList)
        Me.grbtwo.Location = New System.Drawing.Point(0, 96)
        Me.grbtwo.Name = "grbtwo"
        Me.grbtwo.Size = New System.Drawing.Size(608, 232)
        Me.grbtwo.TabIndex = 17
        Me.grbtwo.TabStop = False
        Me.grbtwo.Text = "划价明细"
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(184, 29)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(32, 15)
        Me.Label15.TabIndex = 64
        Me.Label15.Text = "编号"
        '
        'txbMXId
        '
        Me.txbMXId.Location = New System.Drawing.Point(216, 24)
        Me.txbMXId.Name = "txbMXId"
        Me.txbMXId.ReadOnly = True
        Me.txbMXId.Size = New System.Drawing.Size(56, 21)
        Me.txbMXId.TabIndex = 65
        Me.txbMXId.Text = ""
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(120, 28)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(56, 16)
        Me.Label14.TabIndex = 63
        Me.Label14.Text = "回车确认"
        '
        'btnDel
        '
        Me.btnDel.Location = New System.Drawing.Point(552, 55)
        Me.btnDel.Name = "btnDel"
        Me.btnDel.Size = New System.Drawing.Size(41, 23)
        Me.btnDel.TabIndex = 62
        Me.btnDel.Text = "删除"
        '
        'btnSave
        '
        Me.btnSave.Location = New System.Drawing.Point(504, 55)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(41, 23)
        Me.btnSave.TabIndex = 61
        Me.btnSave.Text = "修改"
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(528, 23)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.Size = New System.Drawing.Size(41, 23)
        Me.btnAdd.TabIndex = 60
        Me.btnAdd.Text = "添加"
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(16, 60)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(32, 15)
        Me.Label13.TabIndex = 24
        Me.Label13.Text = "单价"
        '
        'txbPrice
        '
        Me.txbPrice.Location = New System.Drawing.Point(56, 56)
        Me.txbPrice.Name = "txbPrice"
        Me.txbPrice.ReadOnly = True
        Me.txbPrice.Size = New System.Drawing.Size(56, 21)
        Me.txbPrice.TabIndex = 25
        Me.txbPrice.Text = ""
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(400, 60)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(32, 15)
        Me.Label12.TabIndex = 22
        Me.Label12.Text = "单位"
        '
        'txbUnit
        '
        Me.txbUnit.Location = New System.Drawing.Point(432, 56)
        Me.txbUnit.Name = "txbUnit"
        Me.txbUnit.ReadOnly = True
        Me.txbUnit.Size = New System.Drawing.Size(56, 21)
        Me.txbUnit.TabIndex = 23
        Me.txbUnit.Text = ""
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(400, 29)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(32, 15)
        Me.Label11.TabIndex = 20
        Me.Label11.Text = "规格"
        '
        'txbGuiGe
        '
        Me.txbGuiGe.Location = New System.Drawing.Point(432, 24)
        Me.txbGuiGe.Name = "txbGuiGe"
        Me.txbGuiGe.ReadOnly = True
        Me.txbGuiGe.Size = New System.Drawing.Size(56, 21)
        Me.txbGuiGe.TabIndex = 21
        Me.txbGuiGe.Text = ""
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(288, 29)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(32, 15)
        Me.Label10.TabIndex = 18
        Me.Label10.Text = "名称"
        '
        'txbMName
        '
        Me.txbMName.Location = New System.Drawing.Point(320, 24)
        Me.txbMName.Name = "txbMName"
        Me.txbMName.ReadOnly = True
        Me.txbMName.Size = New System.Drawing.Size(72, 21)
        Me.txbMName.TabIndex = 19
        Me.txbMName.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(288, 60)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(32, 15)
        Me.Label9.TabIndex = 16
        Me.Label9.Text = "金额"
        '
        'txbMMoney
        '
        Me.txbMMoney.Location = New System.Drawing.Point(320, 56)
        Me.txbMMoney.Name = "txbMMoney"
        Me.txbMMoney.ReadOnly = True
        Me.txbMMoney.Size = New System.Drawing.Size(72, 21)
        Me.txbMMoney.TabIndex = 17
        Me.txbMMoney.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(184, 60)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(32, 15)
        Me.Label8.TabIndex = 14
        Me.Label8.Text = "数量"
        '
        'txbNumber
        '
        Me.txbNumber.Location = New System.Drawing.Point(216, 56)
        Me.txbNumber.Name = "txbNumber"
        Me.txbNumber.Size = New System.Drawing.Size(56, 21)
        Me.txbNumber.TabIndex = 15
        Me.txbNumber.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(16, 29)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(32, 15)
        Me.Label7.TabIndex = 12
        Me.Label7.Text = "拼音"
        '
        'txbPY
        '
        Me.txbPY.Location = New System.Drawing.Point(56, 24)
        Me.txbPY.Name = "txbPY"
        Me.txbPY.Size = New System.Drawing.Size(56, 21)
        Me.txbPY.TabIndex = 13
        Me.txbPY.Text = ""
        '
        'dgdList
        '
        Me.dgdList.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.dgdList.CaptionVisible = False
        Me.dgdList.DataMember = ""
        Me.dgdList.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgdList.Location = New System.Drawing.Point(3, 88)
        Me.dgdList.Name = "dgdList"
        Me.dgdList.Size = New System.Drawing.Size(602, 136)
        Me.dgdList.TabIndex = 2
        '
        'frmHuaJia
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(608, 333)
        Me.Controls.Add(Me.grbtwo)
        Me.Controls.Add(Me.GroupBox1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmHuaJia"
        Me.Text = "门诊划价管理"
        Me.GroupBox1.ResumeLayout(False)
        Me.grbtwo.ResumeLayout(False)
        CType(Me.dgdList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
   
    Private Sub InitDataTalbe()
        '初始化数据表dtDetail
        Me.dtDetail = New DataTable
        '向数据表添加以下列
        dtDetail.Columns.Add("编号")
        dtDetail.Columns.Add("名称")
        dtDetail.Columns.Add("规格")
        dtDetail.Columns.Add("单位")
        dtDetail.Columns.Add("单价")
        dtDetail.Columns.Add("数量")
        dtDetail.Columns.Add("金额")
        dtDetail.Columns.Add("拼音码")
        '设置DataGrid样式
        Dim ts As New DataGridTableStyle
        Dim aColumnTextColumn As DataGridTextBoxColumn
        Dim numCols As Integer = dtDetail.Columns.Count
        Dim i As Integer
        For i = 0 To numCols - 1
            aColumnTextColumn = New DataGridTextBoxColumn
            aColumnTextColumn.MappingName = _
            dtDetail.Columns(i).ColumnName
            aColumnTextColumn.HeaderText = _
            dtDetail.Columns(i).ColumnName
            aColumnTextColumn.NullText = ""