内容发布更新时间 : 2024/11/17 9:33:22星期一 下面是文章的全部内容请认真阅读。
(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)时关闭本窗体。