Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Объектно-ориентированное программирование на языке Visual Basic 2008 в среде разработки Microsoft Visual Studio 2008 и .NET Framework. Часть 2. Учебно
.pdf
8 . ,
, 7 -
15
.
.
N 4 . M
16
, , . , . , .
.
, ,
.
17
, ,
100 .
. ,
, .
18
, , , .
. , , -
.
19
, , .
, , , .
:
20
1. - 5.
2. - 4 5.
3. – 3.
.
21
, , , .
,
.
.
, , , .
22
, .
n (n – ) : , , . .
23
,
, , , .
n . : ( -
24
), , , .
, .
n
. : , , ,
25
( ) .
.
n m -
26
. ,
.
81
m . 1 . , , , ,
27
. , .
n (
). , -
28
, , 3 , 2 0 .
.
100 . 3 . 5 ,
29
. , 3 , 10.
6 , .
30
, , .
. , .
.
.
,
, , , ,
, . schedule,
:
-
–
–
–
–
– .
.
.
Button, , , . Button .
BindingNavigator DataGridView.
82
,
, , ,
, .
Visual Studio. , C Access , ADO.NET Access.
Access
.
Access :
,
.
.
Micro-
soft Office Access 2007 , .5.5:
.5.5
83
Visual Basic 2008
Visual Basic 2008 .
Form2.
, Nv.
Project
Add Windows Form Project Add Class.
Button,
TextBox DateTimePicker .
.5.6:
.5.6
« 2»,
« ». ,
(.. ).
Dim st As New OleDb.OleDbCommand(" INSERT INTO
schedule(,,,,,,)
VALUES(7,'', 540,'', '',' ',' 9:30') ", connect)
6
7.
84
.
.5.7
.
.5.7
:
Public Class Form1
System.EventArgs) Handles Button1.Click
=Microsoft.Jet.OLEDB.4.0;data Source=c:\users\1840\desktop\base\bb.mdb;Jet OLEDB:Engine
Type=5")
schedule(,,,,,,) VALUES(7,'',
540,'', '',' ',' 9:30') ", connect)
''. 2"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
Dim connect As New OleDb.OleDbConnection "Provider
Dim rr(6) As Object
Dim dol As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter
Dim sc As DataTable = Form2.BbDataSet.Tables("schedule")
connect.Open()
Dim st As New OleDb.OleDbCommand(" INSERT INTO
st.ExecuteNonQuery()
connect.Close()
TextBox1.Text = " .
85
End Sub
System.EventArgs) Handles Button2.Click
System.EventArgs) Handles Button3.Click
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
Me.Hide()
Form2.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
End
End Sub
End Class
:
Public Class Form2
System.Object, ByVal e As System.EventArgs) Handles ScheduleBindingNavigatorSaveItem.Click
System.EventArgs) Handles MyBase.Load
System.EventArgs) Handles Button1.Click
System.EventArgs) Handles Button2.Click
Private Sub ScheduleBindingNavigatorSaveItem_Click(ByVal sender As
Me.Validate()
Me.ScheduleBindingSource.EndEdit()
Me.ScheduleTableAdapter.Update(Me.BbDataSet.schedule)
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
' BbDataSet
Me.ScheduleTableAdapter.Fill(Me.BbDataSet.schedule)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
Dim d As DataRowCollection
Dim base As New Nv '
d = BbDataSet.schedule.Rows
base.way(d)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
Form1.Show()
Me.Hide()
For i As Integer = 0 To 4
Me.Controls(4 - i).Text = ""
Next
End Sub
End Class
a Nv
Public Class Nv
Public Sub way(ByRef d As DataRowCollection)
86
Dim day() As String = {"", "", "", "", ""}
Dim n As Integer, t(5) As String
d = Form2.BbDataSet.schedule.Rows '
n = Val(InputBox(" "))
For i As Integer = 0 To 4
t(i) = "" & day(i) & vbCrLf & "______________" & vbCrLf
For j As Integer = 0 To n
If d(j)(1) = day(i) Then
t(i) = t(i) & d(j)(5) & vbCrLf & d(j)(4) & vbCrLf & d(j)(3) & vbCrLf & d(j)(2) & vbCrLf
t(i) = t(i) & "-----------------" & vbCrLf
End If
Next
Form2.Controls(4 - i).Text = t(i) '
TextBox1, TextBox2,..., TextBox5
Next
End Sub
End Class
way ,
. ,
TextBox5,
Controls(4).Text, TextBox4,
Controls(3).Text ..
« »
, , .5.8.
.5.8
87
6
ADO.NET
:
x Access.
x , .
x , -
.
x Windows
Visual Basic 2008
Microsoft.NET Framework.
x Visual Basic 2008 , -
.
ADO.NET
NET.Framework. , , , SQL Server, Oracle,
Access , . .
System.Data .
, ,
Dataset.
Access
-
, . , , ,
.
1. .
2. , -
.
3. , ,
, .
. :
( )
, ( ). -
88
. . i – D
.
i
R -
D
D
1
R
i
D
u
u …u
2
D
u
1
D
u …u
2
Dn, ..
Dn.
.
, ,
. , . ,
, ,
, . , , , , .
, ,
,
. ,
.
, , . ,
, . , ( ) ,
.
,
. , () , – .
, . Access :
« »,
« »,
« »,
« ».
« »
« »
,
(.6.1) ,
, « »:
89
.6.1
« » «
»,
.. « »
.
Windows Visual Basic 2005
Microsoft.NET Framework.
Windows
.
,
. Windows.
,
, .
, ,
. Form1. , .
Project Add Windows Form
Add New Item Windows Form Name
( ) Add.
Solution Explorer.
, .
, .
Me. ,
Me.text=” ”, Me. Hide()
WindowState, : Normal, Minimized Maximized. – Normal.
90
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]