程序设计典型例题解析(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)时关闭本窗体。

联系客服:779662525#qq.com(#替换为@)