《Visual Basic程序设计基础》习题参考答案(7)

fn = File1.Path + \ End If End Sub

Private Sub Command1_Click() Dim yesno As Byte

yesno = MsgBox(\确认要删除吗？\删除文件\ If yesno = vbYes Then Kill fn File1.Refresh End Sub

程序2．建立4个文本框控件依次输入姓名、出生年月、外语、计算机成绩，按“确认”按钮追加该记录到磁盘文件d:\\student.dat。过程设计如下：

Private Sub Command1_Click()

Dim b As Date, m As Byte, e As Byte Open \

b = Text2.Text: m = Text3.Text: e = Text4.Text Write #1, Text1.Text, b, m, e

Text1.Text = \ Close #1 End Sub

程序3．界面设计如图10-11所示，过程设计如下： Private Sub Form_Load() Dim ss As String

Open \ Close #1

Open \ '将文件中所有记录在列表框中显示 While Not EOF(1)

Line Input #1, ss: List1.AddItem ss Wend

Close #1 '在选中表项之前“删除”、“修改”按钮不可用 Command2.Enabled = False: Command3.Enabled = False End Sub

Private Sub List1_Click() '选中表项后可“删除”或“修改”，不可“追加”。 Command1.Enabled = False: Command2.Enabled = True Command3.Enabled = True: Text1.Text = List1.Text End Sub

'如文件不存在则先建立该文件

Private Sub Command1_Click() '追加记录

If Trim(Text1.Text) <> \ Text1.Text = \End Sub

Private Sub Command2_Click() '修改记录 List1.AddItem Text1.Text, List1.ListIndex List1.RemoveItem List1.ListIndex

Command1.Enabled = True: Command2.Enabled = False

Command3.Enabled = False: Text1.Text = \ '修改后，不可“删除”、“修改” End Sub

Private Sub Command3_Click() '删除记录

List1.RemoveItem List1.ListIndex '删除后，不可“删除”、“修改” Command1.Enabled = True: Command2.Enabled = False Command3.Enabled = False: Text1.Text = \End Sub

Private Sub Command4_Click() '保存文件，将列表框中所有表项输出到文件 Dim i As Integer

Open \

For i = 0 To List1.ListCount - 1: Print #1, List1.List(i): Next i Close #1 End Sub

Private Sub Command5_Click() '退出之前先保存文件 Call Command4_Click: End End Sub

第9章 数据库与数据访问技术

一、判断题

1. √ 2. √ 3. × 4. √ 5. × 6. × 7. √ 8. √ 9. × 10.× 11.√ 12.√ 13.√ 14.√ 15.√ 16.× 17.× 18.× 19.√ 20.√ 21.√ 22.× 二、选择题

1.A 2.D 3.C 4.B 5.C 6.A 7.C 8.D 9.D 10.C 11.A 12.D 13.A 14.B 15.B 16.C

三、程序设计题

程序1.

（1）数据访问控件以及数据绑定控件的相关属性设置如下

Data1：Connect(\、DatabaseName(\学籍.mdb\、RecordSource(\学生)\Text1：DataSource(\、DataField(\学号\Text2：DataSource(\、DataField(\姓名\Check1：DataSource(\、DataField(\性别\Text3：DataSource(\、DataField(\出生日期) Text4：DataSource(\、DataField(\奖学金\Text5：DataSource(\、DataField(\简历\OLE1：DataSource(\、DataField(\照片\

Adodc1：ConnectionString(\ Data Source = E:\\GYH\\VB\\学籍1b.mdb; Persist Security Info = False\ CommandType(\、RecordSource(\成绩\DataGrid1：DataSource(\ （2）主要事件过程代码 Option Explicit

Private Sub Form_Load() Caption = \学籍信息编辑浏览\

Label1.Caption = \学号:\姓名:\Label3.Caption = \出生年月:\奖学金:\Label5.Caption = \简历:\照片:\Check1.Caption = \性别(选中表示男,否则为女)\

Label7.Caption = \成绩信息查询显示\End Sub

Private Sub Data1_Reposition()

Adodc1.RecordSource = \成绩.课程号,课程名,成绩 from 学生,课程,成绩 \_ & \学生.学号 = 成绩.学号 and \成绩.课程号 = 课程.课程号 and \\成绩.学号='\学号\成绩.课程号\Label7.Caption = Trim(Data1.Recordset(\姓名\成绩信息查询显示\Adodc1.Refresh End Sub 程序2.

（1）数据访问控件以及数据绑定控件的相关属性设置如下：

Adodc1：ConnectionString(\

Data Source = E:\\GYH\\VB\\学籍1b.mdb; Persist Security Info = False\CommandType(\、RecordSource(\学生) DataGrid1：DataSource(\ （2）主要事件过程代码 Option Explicit

Private Sub Form_Load() Dim i As Integer

Caption = \学籍信息查询浏览\

Label1.Caption = \选择查询方式：\全部都显示\

Label2.Caption = \全部表文件数据浏览表格：\Text1.Visible = False: Text1.Text = \For i = 0 To 2

Combo1.AddItem Mid(\全部都显示按学号查询按姓名查询\Next i End Sub

Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 0

Text1.Visible = False: Label3.Visible = False Adodc1.RecordSource = \学生\

Label2.Caption = \全部表文件数据浏览表格：\

Case 1

Label3.Caption = \输入查询条件(学号):\ Label3.Visible = True: Text1.SetFocus

Case 2

Label3.Caption = \输入查询条件(姓名):\ Label3.Visible = True: Text1.SetFocus End Select End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If Combo1.ListIndex = 1 Then Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find \学号='\ If Adodc1.Recordset.EOF Then

Adodc1.RecordSource = \学生\ Label2.Caption = \全部表文件数据浏览表格：\ Adodc1.Refresh: MsgBox \查无此人!\ Else

Adodc1.RecordSource = \学生 \ _

学号='\

Label2.Caption = \学生\的数据浏览表格：\ End If Else

Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find \姓名='\ If Adodc1.Recordset.EOF Then

Adodc1.RecordSource = \学生\ Label2.Caption = \全部表文件数据浏览表格：\ Adodc1.Refresh: MsgBox \查无此人!\ Else

Adodc1.RecordSource = \学生 \

\姓名='\

End If End If

Adodc1.Refresh End If End Sub 程序3.

（1）数据访问控件以及数据绑定控件的相关属性设置如下：

Adodc1(xs)：ConnectionString(\

Data Source = E:\\GYH\\VB\\学籍1b.mdb; Persist Security Info=False\CommandType(\、RecordSource(\学生\

Adodc2(kc)：ConnectionString(\

Da …… 此处隐藏：2344字，全部文档内容请下载后查看。喜欢就下载吧 ……