3.6.11 客户信封打印

3.6.11  客户信封打印

在现代企业管理中，与客户的交流和沟通是必不可少的，因此在这里将介绍一下客户信封的打印。在程序运行时，选择“数据管理”菜单中的“客户信封打印”命令，即可弹出“客户信封打印”窗体，该窗体的运行结果如图3.37所示。

图3.37  “客户信封打印”窗体

1．窗体设计

（1）在工程中新建一个窗体，将窗体的“名称”设置为“Frm_Sjgl_Khxfdy”，“Caption”属性设置为“客户信封打印”，“MaxButton”属性设置为“False”。

（2）向窗体中添加两个“ComboBox”控件 ，设置其“名称”属性为“Cbx_Field”和“Cbx_Oper”，分别用于存储查询的字段名和查询方式。

（3）向窗体中添加一个“DataGrid”控件 和一个“ADO”控件 。设置“DataGrid”控件的“Name”属性为“Dgr_Kh”，“DataSource”属性为“Adodc1”；设置“ADO”的“RecordSource”属性为“select * from tb_khxx order by khxx_id”，“CommandType”属性为“1 – adCmdText”，“Visible”属性为“False”。其中，“DataGrid”控件用于显示数据表中的客户信息，“ADO”用于数据连接。

（4）向窗体上添加两个“CommandButton”控件 ，命名为“Cmd_Dy”和“Cmd_Exit”，设置“Caption”属性为“打印”和“退出”，分别用于调用报表打印窗体和退出本窗体。

2．代码设计

在程序运行时，当用户输入相应的查询条件时，在下面的列表中即可显示相应的查询结果，单击“打印”按钮，可将查询到的客户信息打印成相应的信封，如图3.38所示为打印吉林省客户的信封。

图3.38  客户信封打印的效果图

//……………………………………………例程3-26……………………………………………………//
Private Sub Cmd_Dy_Click()  '打印
Fld1 = Adodc1.Recordset.Fields.Item(Cbx_Field.ListIndex).Name
If sql <> "" Then    '根据相应的SQL语句打印相应的客户信封
DataE1.rsCommand1.Open sql & "order by khxx_id"
If DataE1.rsCommand1.RecordCount > 0 Then
       Unload Me
       Dr_Xf.Show  '显示报表设计窗体
End If
Else  '打印全部的客户信封
    DataE1.rsCommand1.Open "select * from tb_khxx order by khxx_id"
If DataE1.rsCommand1.RecordCount > 0 Then
Unload Me
Dr_Xf.Show
End If
End If
End Sub

B代码导读

Unload语句：从内存中卸载窗体或控件。

Show方法：用于显示窗体对象。如果调用Show方法时指定的窗体没有装载，那么Visual Basic将自动装载该窗体。当Show在显示无模式窗体时，随后遇到的代码将要执行；当Show在显示模式窗体（Modal form）时，随后的代码直到该窗体被隐藏或卸载时才能执行。

DataE1：数据环境。