数据库应用技术——Visual Basic及其应用系统开发.ppt

4.3 常用ActiveX控件及其应用 （4）对 Grid1控件中各列标题初始化的语句在窗体find1的Form_Load事件里： Private Sub Form_Load() …… With Grid1 .ColWidth(0) = 450: .ColWidth(1) = 2000: .ColWidth(2) = 400: .ColWidth(3) = 2000: .ColWidth(4) = 500 .Row = 0: .Col = 0: .Text = 编号 .Col = 1: .Text = 查询字段名 .Col = 2: .Text = 符号 .Col = 3: .Text = 输入值 .Col = 4: .Text = 关系 End With …… End Sub 4.4 在企业资质管理系统中窗体的设计 4.4.1 通用“查询窗口”窗体的设计 在企业资质管理系统中工具栏中的查询功能可以完成所有查询功能，是一个通用的界面，如图4-33所示。下面就详细介绍该窗体的设计步骤。 1．窗体中应用的各控件及其属性的设置 窗体find1中共有15个控件。包括3个标签、2个组合框、1个DataCombo、1个DTPicker、2个选项按钮、1个框架、1个MSFlexGrid和4个命令按钮，各控件属性设置如表4-9所示。 4.4 在企业资质管理系统中窗体的设计 控件 属性 设置值 ?标签 Name Label1 Caption 查询字段 标签 Name Label2 Caption 操作符 标签 Name Label3 Caption 字段值 组合框? Name Combo1 组合框?? Name Combo2 DataCombo? Name DataCombo1 DTPicker Name DTPicker1 选项按钮 Name Op1 4.4 在企业资质管理系统中窗体的设计 选项按钮 Name Op2 框架 Name Frame1 Caption 查询列表 MSFlexGrid Name Grid1 命令按钮 Name CmdOK Caption 添加查询 命令按钮 Name Command1 Caption 删除 命令按钮 Name CmdApply Caption 查询(F) 命令按钮 Name CmdCancel Caption 恢复全部(A) 4.4 在企业资质管理系统中窗体的设计 2．编写窗体中的事件 （1）编写窗体find1的load事件 主要完成一些窗体和控件的初始化任务，如：find1、Combo2、Combo1、Grid1等。 Private Sub Form_Load() lindex = 0 iflag = 0 iflag1 = 0 置中窗体 find1.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 Combo2.AddItem = Combo2.AddItem Combo2.AddItem = Combo2.AddItem Combo2.AddItem = Combo2.AddItem Select Case selclick Case 1 For i = 0 To rs.Fields.Count - 1 Combo1.AddItem Form11.DataGrid1.Columns(i).Caption Next Case 2 For i = 0 To rs.Fields.Count - 1 Combo1.AddItem Form11.DataGrid1.Columns(i).Caption Next For i = 7 To rs.Fields.Count - 1 cxb, db, adOpenStatic, adLockOptimistic End Sub Combo1.AddItem Form11.DataGrid1.Columns(i).Caption Next Case 3 For i = 0 To rs.Fields.Count - 1 Combo1.AddItem Form11.DataGrid1.Columns(i).Caption Next Case 4 For i = 0 To rs.Fields.Count - 1 Combo1.AddItem Fo