程序设计典型例题解析(2)

(2)联接数据库中的某张表 (3)对这张表进行查询(Select)、插

入(Insert)、修改(Update)、删除(Delete)操作。

据此，根据题意应首先在窗体的Load事件中编写连接后台数据库的事件过程。在Command1_Click()事件过程中，首先连接数据库中的“students”数据表，然后进行查询，查询结果用MsgBox给出提示信息，再对“students”数据表进行插入(Insert)操作。

答案： [1]学生；

[2]New Connection [3]New； [4] ADOrs.EOF； [5] strSQL；

2．在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。

程序运行结果如图2所示。

图2

程序如下，请补充完整。 Private Sub Form_Load() Drive1.Drive '将当前驱动器设置为D

File1.Pattern = \ '设置文件列表框中可以显示的文件类型 End Sub

Private Sub Drive1_change() Dir1.Path

=

Drive1.Drive

'使Dir1和Drive1同步改变

[2] '将当前驱动器显示在文本框中

=

[1]

End Sub

Private Sub Dir1_Change()

[3] '使文件列表框和目录列表框同步改变

Text1.Text End Sub

Private Sub File1_click() Picture1.Picture LoadPicture(File1.Path File1.FileName)

FileName = File1.Path + \+

File1.FileName

[5] '将文件名显示在文本框中 End Sub

分析：要在图片框中显示图形文件，首先

要使三大文件系统控件同步起来，即文件列表框中显示的是指定驱动器的指定目录下的文件列

+

\

= +

=

[4]

'将当前目录的路径显示在文本框中

表，可在驱动器列表框的Change事件中设置Dir1.Path = Drive1.Drive，在目录列表框的Chang1事件中设置File1.Path = Dir1.Path。用LoadPicture函数把图形文件装入图片框中。通过赋值语句将文件的路径显示在文本框中。

答案： [1] \

[2] Text1.Text = Drive1.Drive [3] File1.Path = Dir1.Path [4] Dir1.Path

[5] Text1.Text = FileName

3．使用顺序文件读写方式编写一个简单的记事本应用程序，其运行界面如图3所示。：假设在以D盘的根目录下有一个名为W1.txt的文本文件，程序运行时，当点击“打开”按钮(Command1)时，程序将W1.Txt文件中的内容显示在文本框(Text1)中，当点击“保存”按钮(Command2)时，将Text1中的内容保存在W1.txt文件中。当点击“退出”按钮(Command3)时关闭本窗体。