form6.vb

家庭财务程序开发系统

        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet11"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.DataSet11.Namespace = "http://www.tempuri.org/DataSet11.xsd"
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(168, 296)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(40, 24)
        Me.Button6.TabIndex = 30
        Me.Button6.Text = "选择"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(88, 296)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.ReadOnly = True
        Me.TextBox2.Size = New System.Drawing.Size(72, 20)
        Me.TextBox2.TabIndex = 29
        Me.TextBox2.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 328)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(64, 16)
        Me.Label3.TabIndex = 28
        Me.Label3.Text = "项目名称"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(32, 296)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(32, 16)
        Me.Label2.TabIndex = 27
        Me.Label2.Text = "日期"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(264, 296)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(32, 16)
        Me.Label1.TabIndex = 26
        Me.Label1.Text = "金额"
        '
        'TextBox1
        '
        Me.TextBox1.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.TextBox1.Location = New System.Drawing.Point(320, 296)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(72, 20)
        Me.TextBox1.TabIndex = 25
        Me.TextBox1.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(264, 328)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(32, 16)
        Me.Label4.TabIndex = 33
        Me.Label4.Text = "数量"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(320, 328)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(72, 20)
        Me.TextBox3.TabIndex = 32
        Me.TextBox3.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(264, 360)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(32, 16)
        Me.Label5.TabIndex = 35
        Me.Label5.Text = "单位"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(320, 360)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.ReadOnly = True
        Me.TextBox4.Size = New System.Drawing.Size(72, 20)
        Me.TextBox4.TabIndex = 34
        Me.TextBox4.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(264, 392)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(32, 16)
        Me.Label6.TabIndex = 37
        Me.Label6.Text = "单价"
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(320, 392)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.ReadOnly = True
        Me.TextBox5.Size = New System.Drawing.Size(72, 20)
        Me.TextBox5.TabIndex = 36
        Me.TextBox5.Text = ""
        '
        'MonthCalendar1
        '
        Me.MonthCalendar1.Location = New System.Drawing.Point(16, 120)
        Me.MonthCalendar1.Name = "MonthCalendar1"
        Me.MonthCalendar1.TabIndex = 38
        Me.MonthCalendar1.Visible = False
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(32, 360)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(32, 16)
        Me.Label7.TabIndex = 40
        Me.Label7.Text = "类型"
        '
        'TextBox6
        '
        Me.TextBox6.Location = New System.Drawing.Point(88, 360)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.ReadOnly = True
        Me.TextBox6.Size = New System.Drawing.Size(72, 20)
        Me.TextBox6.TabIndex = 39
        Me.TextBox6.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(32, 392)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(32, 16)
        Me.Label8.TabIndex = 42
        Me.Label8.Text = "备注"
        '
        'TextBox7
        '
        Me.TextBox7.Location = New System.Drawing.Point(88, 392)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.Size = New System.Drawing.Size(160, 20)
        Me.TextBox7.TabIndex = 41
        Me.TextBox7.Text = ""
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand2
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand2
        Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Outgoing", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("项目名称", "项目名称"), New System.Data.Common.DataColumnMapping("匹配码", "匹配码"), New System.Data.Common.DataColumnMapping("类型", "类型"), New System.Data.Common.DataColumnMapping("单位", "单位")})})
        '
        'OleDbInsertCommand2
        '
        Me.OleDbInsertCommand2.CommandText = "INSERT INTO Outgoing(单位, 类型, 匹配码, 项目名称) VALUES (?, ?, ?, ?)"
        Me.OleDbInsertCommand2.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("单位", System.Data.OleDb.OleDbType.VarWChar, 5, "单位"))
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("类型", System.Data.OleDb.OleDbType.VarWChar, 10, "类型"))
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("匹配码", System.Data.OleDb.OleDbType.VarWChar, 10, "匹配码"))
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("项目名称", System.Data.OleDb.OleDbType.VarWChar, 15, "项目名称"))
        '
        'OleDbSelectCommand2
        '
        Me.OleDbSelectCommand2.CommandText = "SELECT 单位, 类型, 匹配码, 项目名称 FROM Outgoing"
        Me.OleDbSelectCommand2.Connection = Me.OleDbConnection1
        '
        'Form6
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(642, 458)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label8, Me.TextBox7, Me.Label7, Me.TextBox6, Me.MonthCalendar1, Me.Label6, Me.TextBox5, Me.Label5, Me.TextBox4, Me.Label4, Me.TextBox3, Me.ComboBox1, Me.Button6, Me.TextBox2, Me.Label3, Me.Label2, Me.Label1, Me.TextBox1, Me.Button5, Me.Button4, Me.Button3, Me.Button2, Me.Button1, Me.DataGrid1})
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
        Me.Name = "Form6"
        Me.Text = "Form6"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Outgoingtable1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    '进入Form的事件
    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '设置Textbox和ComboBox
        TextBox1.Enabled = False
        TextBox3.Enabled = False
        TextBox7.Enabled = False
        ComboBox1.Enabled = False
        '填充DataSet
        OleDbDataAdapter1.Fill(DataSet11)
        outgoingtable.Fill(Outgoingtable1)
        '设置按钮
        dobutton(1, 1, 1, 0, 0)
    End Sub
    '当DataGrid当前单元格变化的时候响应事件
    Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
        '设置按钮
        dobutton(1, 1, 1, 0, 0)
        '设置各个TextBox和ComboBox的内容
        TextBox7.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)
        TextBox5.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1)
        TextBox4.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 2)
        TextBox1.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3)
        TextBox6.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 4)
        TextBox2.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 5)
        TextBox3.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 6)
        ComboBox1.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 7)
        '设置Textbox和ComboBox
        TextBox1.Enabled = False
        TextBox3.Enabled = False
        TextBox7.Enabled = False