frmcash.vb

用.net写的,不知道怎么样,各位看看再说吧.

        '
        Me.DataSet11.DataSetName = "DataSet2"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'frmCash
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(608, 397)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "frmCash"
        Me.Controls.SetChildIndex(Me.GroupBox1, 0)
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.dgdDetail, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public Overrides Sub Prepare()
        Me.Text = "收银退房"
        Me.Label1.Visible = False
        Me.Label2.Visible = False
        Me.Label3.Visible = False
        Me.txbThree.Visible = False
        Me.txbOne.Visible = False
        Me.txbTwo.Visible = False
        Me.ToolBar1.Buttons(4).Visible = False
        Me.ToolBar1.Buttons(5).Visible = False
        Me.ToolBar1.Buttons(6).Visible = False
        Me.ToolBar1.Buttons(7).Visible = False
        Me.ToolBar1.Buttons(8).Visible = False
    End Sub
    Public Overrides Sub LoadData()
        '清空DataSet11
        DataSet11.Clear()
        SqlConnection1.ConnectionString = DataBase.sConn
        Dim strSQL As String
        SqlDataAdapter1.SelectCommand.CommandText _
        = "SELECT 入住单号, 客房类型, 客房编号, 抵店时间, 离店时间, 入住价格, 加床价格, 预收款, 应收帐款, 结帐金额, 是否结帐, 结帐日期, 付款方式 FROM 入住单 "
        '根据查询条件重新填充DataSet11
        SqlDataAdapter1.Fill(DataSet11)
        dtData = DataSet11.Tables("入住单")
        bmData = Me.BindingContext(DataSet11, "入住单")
        If bmData.Count <> 0 Then
            bmData.Position = 0
        End If
    End Sub
    Public Overrides Sub SetDataGrid()
        LoadData()
        '定义一个DataGrid表样式
        Dim ts As New DataGridTableStyle
        Dim aColumnTextColumn As DataGridTextBoxColumn
        Dim numCols As Integer = dtData.Columns.Count
        Dim i As Integer
        For i = 0 To 11
            aColumnTextColumn = New DataGridTextBoxColumn
            aColumnTextColumn.MappingName = _
            dtData.Columns(i).ColumnName
            aColumnTextColumn.HeaderText = _
            dtData.Columns(i).ColumnName
            aColumnTextColumn.NullText = ""
            aColumnTextColumn.ReadOnly = True
            aColumnTextColumn.Width = 70
            ts.GridColumnStyles.Add(aColumnTextColumn)
        Next
        ts.AlternatingBackColor = Color.LightGray
        ts.AllowSorting = False
        ts.MappingName = dtData.TableName
        dgdList.TableStyles.Clear()
        dgdList.TableStyles.Add(ts)
        Dim dv As DataView = dtData.DefaultView
        dv.AllowNew = False
        dv.AllowDelete = False
        'dv.AllowEdit = False
        '设置数据源
        dgdList.DataSource = dtData.DefaultView
        bmData = Me.BindingContext(DataSet11, "入住单")
        lblCount.Text = "记录数:" + dtData.Rows.Count.ToString()
        SetData()
    End Sub
    Public Overrides Sub SetData()
        Me.txbRemailMoney.Text = dtData.Rows(bmData.Position)("结帐金额").ToString.Trim
        Dim db As DataBase = New DataBase
        Dim strSQL As String = "select * from 帐单明细 where 入住单号='"
        strSQL += dtData.Rows(bmData.Position)("入住单号") + "'"
        Dim dv As DataView = db.RunSelectSQL(strSQL)
        dv.AllowDelete = False
        dv.AllowEdit = False
        dv.AllowNew = False
        '定义一个DataGrid表样式
        Dim ts As New DataGridTableStyle
        Dim aColumnTextColumn As DataGridTextBoxColumn
        Dim numCols As Integer = dv.Table.Columns.Count
        Dim i As Integer
        For i = 0 To numCols - 1
            aColumnTextColumn = New DataGridTextBoxColumn
            aColumnTextColumn.MappingName = _
            dv.Table.Columns(i).ColumnName
            aColumnTextColumn.HeaderText = _
             dv.Table.Columns(i).ColumnName
            aColumnTextColumn.NullText = ""
            aColumnTextColumn.ReadOnly = True
            ts.GridColumnStyles.Add(aColumnTextColumn)
        Next
        ts.AlternatingBackColor = Color.LightGray
        ts.AllowSorting = False
        ts.MappingName = dv.Table.TableName
        dgdDetail.TableStyles.Clear()
        dgdDetail.TableStyles.Add(ts)
        dgdDetail.DataSource = dv
        db.Dispose()
    End Sub
    Private Sub btnPayMoney_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnPayMoney.Click
        '执行存储过程
        Dim db As DataBase = New DataBase
        db.RunDelOrInsSQL("exec sf_计算应收帐款 '" _
        + dtData.Rows(bmData.Position)("入住单号") + "'")
        db.Dispose()
        SetDataGrid()
    End Sub
    Private Sub btnOver_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnOver.Click
        Dim db As DataBase = New DataBase
        Dim strSQL As String = "exec sf_收银退房 '"
        strSQL += dtData.Rows(bmData.Position)("入住单号").ToString()
        strSQL += "','" + cbbPayWay.Text + "'"
        db.RunDelOrInsSQL(strSQL)
        db.Dispose()
        SetDataGrid()
    End Sub
End Class