）

结束 Sub

私有 Sub FillDataGridView（ ByVal 查询 As String ）
da = 新 OleDbDataAdapter（Query，cn）
dt.Clear（）
da.Fill（dt）
使用 DataGridView1
.DataSource = dt
.Columns（ 0 ）。HeaderText = ID
.Columns（ 1 ）。HeaderText = 系列名称
.Columns（ 2 ）。HeaderText = 给定名称
.Columns（ 3 ）。HeaderText = 性别
.Columns（ 4 ）。HeaderText = DOB
.Columns（ 5 ）。HeaderText = 考试日期
.Columns（ 6 ）。HeaderText = 考试时间
.Columns（ 7 ）。标题T ext = 街道名称
.Columns（ 8 ）。HeaderText = House Nr
.Columns（ 9 ）。HeaderText = PLZ
.Columns（ 10 ）。HeaderText = City
.Columns（ 10 ）。AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End 使用
结束 Sub

私有 Sub BtnSearch_Click（发件人作为 对象，e As EventArgs）句柄 BtnSearch.Click
尝试
FillDataGridView（ select * from [edit

") End Sub Private Sub FillDataGridView(ByVal Query As String) da = New OleDbDataAdapter(Query, cn) dt.Clear() da.Fill(dt) With DataGridView1 .DataSource = dt .Columns(0).HeaderText = "ID" .Columns(1).HeaderText = "Family Name" .Columns(2).HeaderText = "Given Name" .Columns(3).HeaderText = "Gender" .Columns(4).HeaderText = "DOB" .Columns(5).HeaderText = "Exam Date" .Columns(6).HeaderText = "Exam Time" .Columns(7).HeaderText = "Street Name" .Columns(8).HeaderText = "House Nr" .Columns(9).HeaderText = "PLZ" .Columns(10).HeaderText = "City" .Columns(10).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill End With End Sub Private Sub BtnSearch_Click(sender As Object, e As EventArgs) Handles BtnSearch.Click Try FillDataGridView("select * from [edit

其中ID ='& TxtId.Text& '）
TxtFamilyname.Text = dt.Rows（ 0 ）。Item（ 1 ）
TxtGivenname.Text = dt.Rows（ 0 ）。项目（ 2 ）
TxtGender.Text = dt.Rows（ 0 ).Item( 3 ）
TxtDob.Text = dt.Rows（ 0 ）.Item（ 4 ）
TxtExamdate.Text = dt.Rows（ 0 ）。 （ 5 ）
TxtExamtime.Text = dt.Rows（ 0 ）。项目（ 6 ）
TxtStreet.Text = dt.Rows（ 0 ）。Item（ 7 ）
TxtHouse.Text = dt.Rows（ 0 ）。Item（ 8 ）
TxtPlz.Text = dt.Rows（ 0 ）。Item（ 9 ）
TxtCity.Text = dt.Rows（ 0 ）。项目（ 10 ）
Catch ex As 异常
MsgBox（ex.Message，MsgBoxStyle .Critical，Text）
结束 尝试
结束 Sub

私有 Sub BtnSave_Click（发件人作为 对象，e As EventArgs）句柄 BtnSave.Click
如果 vld（TxtId，TxtFamilyname，TxtGivenname，TxtGender，TxtDob，TxtEx amdate，TxtExamtime，TxtStreet，TxtHouse，TxtPlz，TxtCity）= False 然后
退出 Sub
否则

结束 如果

尝试
使用 cm
.Connection = cn
.CommandText = 插入[edit

where ID='" & TxtId.Text & "'") TxtFamilyname.Text = dt.Rows(0).Item(1) TxtGivenname.Text = dt.Rows(0).Item(2) TxtGender.Text = dt.Rows(0).Item(3) TxtDob.Text = dt.Rows(0).Item(4) TxtExamdate.Text = dt.Rows(0).Item(5) TxtExamtime.Text = dt.Rows(0).Item(6) TxtStreet.Text = dt.Rows(0).Item(7) TxtHouse.Text = dt.Rows(0).Item(8) TxtPlz.Text = dt.Rows(0).Item(9) TxtCity.Text = dt.Rows(0).Item(10) Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, Text) End Try End Sub Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click If vld(TxtId, TxtFamilyname, TxtGivenname, TxtGender, TxtDob, TxtExamdate, TxtExamtime, TxtStreet, TxtHouse, TxtPlz, TxtCity) = False Then Exit Sub Else End If Try With cm .Connection = cn .CommandText = "insert into [edit

values（'& TxtId.Text& '，'& TxtFamilyname.Text& '，'& TxtGivenname.Text& '，'& TxtGender.Text& '，'& TxtDob.Text& '，'& TxtExamdate.Text& '，'& TxtExamtime.Text& '，'& TxtStreet.Text& '，'& TxtHouse.Text& '，'& TxtPlz.Text& '，'& TxtCity.Text& '）
.ExecuteNonQuery（）
结束 使用
FillDataGridView（ select * from [edit

values('" & TxtId.Text & "','" & TxtFamilyname.Text & "','" & TxtGivenname.Text & "','" & TxtGender.Text & "','" & TxtDob.Text & "','" & TxtExamdate.Text & "','" & TxtExamtime.Text & "','" & TxtStreet.Text & "','" & TxtHouse.Text & "','" & TxtPlz.Text & "','" & TxtCity.Text & "' )" .ExecuteNonQuery() End With FillDataGridView("select * from [edit