Vb6rprt0.htm

<body link="#0000FF"> <h2><b>Creating Data Environment Designer</b></h2> <p><font size="2">Perform steps 1, 4, 5, and 12-14 from pages VB 6.66 - VB 6.67 of your book, substitute the steps listed below for the other steps listed on those pages. In Place of the <b>Crystal Report Control</b> discussed in Chapter 6 of your book , Microsoft has developed its own Report module discussed below. This topic creates the <b>customer data report</b> using a <b>Data Environment designer</b> as a data source. The Data Environment designer uses the <b>Sound Advice database</b> developed in the lab steps 1 and 2 to create a simple report. The three reports require the use of three tables, Customers, Employees, and Compact Discs. Only the exact steps are specified for the Customer Report. Follow the same procedure to create the Employee and Compact Disc reports. The finished reports resemble the figures on page VB 6.67 of your book.</font></p> <p><font size="2"><b>Customer Report containing the following fields: Customer ID, Name, Address, City, State, Zip Code, Balance and Employee ID.</b></font></p> <p><font size="2">Before you begin the step-by-step process, ensure that the Sound Advice database (<b>Sound Advice.mdb</b>) is present on your floppy. If it is not present, complete the in the labs 1 and 2 from chapter 6 first.</font></p> <p><font size="2"><b>To create a simple hierarchical cursor in the Data Environment designer</b> </font></p> <p><a href="graphics/report6.gif" target="Win1"><font size="2"><img src="graphics/visual11.gif" alt="Click to see Report Enviromnent" align="right" hspace="0" width="67" height="57"></font></a><font size="2"> </font></p> <ol> <li><font size="2">Retrieve the <b>Sound Advice.vbp</b> project from your floppy disk.<br> </font></li> <li><font size="2">On the <b>Project</b> menu, click <b>Add Data Environment </b>to add a designer to your project. If the designer is not listed on the <b>Project</b> menu, click <b>Components</b>. Click the <b>Designers</b> tab, and click <b>Data Environment </b>to add the designer to the menu. </font></li> <li><font size="2"><b>Note</b> The first four kinds of ActiveX designers loaded for a project are listed on the <b>Project</b> menu. If more than four designers are loaded, the later ones will be available from the <b>More ActiveX Designers</b> submenu on the <b>Project</b> menu. </font></li> <li><font size="2">Right-click on <b>Connection1 </b>to display the short-cut menu, click on <b><u>P</u></b><b>roperties</b>. On the <b>Data Link Properties</b> dialog box, click <b>Microsoft Jet 3.51 OLE DB Provider</b>. This selects the correct OLE DB provider for accessing a Jet database.<br> </font></li> <li><font size="2">Click the <b>Next</b> button to get to the <b>Connection</b> tab.<br> </font></li> <li><font size="2">Click the ellipsis button (...) next to the first text box.<br> </font></li> <li><font size="2">Use the <b>Select Access Database </b>dialog box to navigate to the Sound Advice.mdb file, which should be located on your floppy disk as a result of completing in the labs 1 and 2 at the end of chapter 6.<br> </font></li> <li><font size="2">Click <b>OK</b> to close the dialog box.<br> </font></li> <li><font size="2">Right-click the <b>Connection1</b> icon, and click <b>Rename</b>. Change the name of the icon to SoundAdvice.<br> </font></li> <li><font size="2">Right-click the <b>SoundAdvice </b>icon, and then click <b>Add Command</b> to display the <b>Command1</b> dialog box. In the dialog box, set the properties as shown below: </font></li> <li><table border="1" cellpadding="5" cellspacing="1" width="623"> <tr> <td width="32%"><font size="2"><b>Property</b></font></td> <td width="68%"><font size="2"><b>Setting</b></font></td> </tr> <tr> <td width="32%"><font size="2">Command Name </font></td> <td width="68%"><font size="2">Customers</font></td> </tr> <tr> <td width="32%"><font size="2">Connection </font></td> <td width="68%"><font size="2">Sound Advice</font></td> </tr> <tr> <td width="32%"><font size="2">DataBase Object </font></td> <td width="68%"><font size="2">Table</font></td> </tr> <tr> <td width="32%"><font size="2">Object Name </font></td> <td width="68%"><font size="2">Customers</font></td> </tr> </table> </li> <li><font size="2">Click <b>OK</b> to close the dialog box.</font></li> <li><font size="2">Right-click the <b>SoundAdvice </b>icon, and then click <b>Add Command</b> to display the <b>Command1</b> dialog box. In the dialog box, set the properties as shown below: </font></li> <li><table border="1" cellpadding="5" cellspacing="1" width="623"> <tr> <td width="32%"><font size="2"><b>Property</b></font></td> <td width="68%"><font size="2"><b>Setting</b></font></td> </tr> <tr> <td width="32%"><font size="2">Command Name </font></td> <td width="68%"><font size="2">Employees</font></td> </tr> <tr> <td width="32%"><font size="2">Connection </font></td> <td width="68%"><font size="2">Sound Advice</font></td> </tr> <tr> <td width="32%"><font size="2">DataBase Object </font></td> <td width="68%"><font size="2">Table</font></td> </tr> <tr> <td width="32%"><font size="2">Object Name </font></td> <td width="68%"><font size="2">Employees</font></td> </tr> </table> </li> <li><font size="2">Click <b>OK</b> to close the dialog box.<br> </font></li> <li><font size="2">Right-click the <b>SoundAdvice </b>icon, and then click <b>Add Command</b> to display the <b>Command1</b> dialog box. In the dialog box, set the properties as shown below: </font></li> <li><table border="1" cellpadding="5" cellspacing="1" width="623"> <tr> <td width="32%"><font size="2"><b>Property</b></font></td> <td width="68%"><font size="2"><b>Setting</b></font></td> </tr> <tr> <td width="32%"><font size="2">Command Name </font></td> <td width="68%"><font size="2">CompactDiscs</font></td> </tr> <tr> <td width="32%"><font size="2">Connection </font></td> <td width="68%"><font size="2">Sound Advice</font></td> </tr> <tr> <td width="32%"><font size="2">DataBase Object </font></td> <td width="68%"><font size="2">Table</font></td> </tr> <tr> <td width="32%"><font size="2">Object Name </font></td> <td width="68%"><font size="2">CompactDiscs</font></td> </tr> </table> </li> <li><font size="2">Click <b>OK</b> to close the dialog box.<br> </font></li> <li> </li> <li><font size="2">Set the properties of the project and designer according to the settings below, then save the project: </font></li> </ol> <table border="1" cellpadding="5" cellspacing="1" width="623"> <tr> <td width="33%"><font size="2"><b>Object</b></font></td> <td width="33%"><font size="2"><b>Property</b></font></td> <td width="34%"><font size="2"><b>Setting</b></font></td> </tr> <tr> <td width="33%"><font size="2">Project</font></td> <td width="33%"><font size="2">Name</font></td> <td width="34%"><font size="2">Sound Advice3</font></td> </tr> <tr> <td width="33%"><font size="2">DataEnvironment</font></td> <td width="33%"><font size="2">Name</font></td> <td width="34%"><font size="2">deSoundAdvice</font></td> </tr> </table> <h2>Creating the Data Report (Customers)</h2> <p><font size="2">Once the Data Environment designer has been created, you can create a data report. Because all of the fields in the data environment will be used in a report, this series of topics creates a report that displays all the fields.</font></p> <p><font size="2"><b>To create a new data report</b> </font></p> <ol> <li><font size="2">On the <b>Project</b> menu, click <b>Add Data Report</b>, and Visual Basic will add it to your project. If the designer is not on the <b>Project</b> menu, click <b>Components</b>. Click the <b>Designers</b> tab, and click <b>Data Report </b>to add the designer to the menu. </font></li> <li><font size="2"><b>Note</b> The first four kinds of ActiveX designers loaded for a project are listed on the <b>Project</b> menu. If more than four designers are loaded, the later ones will be available from the <b>More ActiveX Designers</b> submenu on the <b>Project</b> menu. </font></li> <li><font size="2">Set the properties of the <b>DataReport </b>object according to the table below: </font></li> <li><table border="1" cellpadding="5" cellspacing="1" width="624"> <tr> <td width="40%"><font size="2"><b>Property</b></font></td> <td width="60%"><font size="2"><b>Setting</b></font></td> </tr> <tr> <td width="40%"><font size="2">Name</font></td> <td width="60%"><font size="2">rptSoundAdviceCustomers</font></td> </tr> <tr> <td width="40%"><font size="2">Caption</font></td> <td width="60%"><font size="2">Sound Advice Customer Report</font></td> </tr> </table> </li> <li><font size="2">On the <b>Properties </b>window, click <b>DataSource </b>and then click <b>deSoundAdvice</b>. Then click <b>DataMember</b> and click <b>Customers</b>. </font></li> <li><font size="2"><b>Important</b> To set the DataSource property to deSoundAdvice, the Data Environment designer must be open. If it is closed, press CTRL+R to display the Project window, then double-click the data environment icon.</font></li> <li><font size="2">Right-click the Data Report designer, and click <b>Retrieve Structure</b>.</font></li> <li><font size="2">Change the <b>Report Width</b> property in the Property Window to <b>9000</b> <b>twips</b>. </font></li> <li><font size="2">Choose the <b><u>W</u></b><b>indow</b> top-menu option and click on <b>Tile </b><b><u>V</u></b><b>ertically</b>. This will place the <b>Data Report Designer </b>and the <b>Data Environment Designer</b> on the screen next to each other. Move and close other windows on your screen accordingly to provide the best working environment.</font></li> <li><font size="2">From the Data Environment designer, drag the <b>Customer ID</b> field (under the <b>Customers</b> command) onto the <b>Detail (Customers_Detail)</b> section. </font></li> <li><font size="2">The <b>Detail (Customers_Detail) </b>section can contain any field from the Customers command.</font></li> <li><font size="2">Move the Label control (leftmost Customer ID box) (RptLabel) named <b>Label1 </b>to <b>Page Header (PageHeader)</b> section right above the <b>Customer ID</b> field in the <b>Detail (Customers_Detail)</b> section. </font></li> <li><font size="2">If you do not want a Label control to be included with the TextBox control, you can uncheck the <b>Drag and Drop Fields Caption </b>option on the <b>Field Mapping </b>tab of the Data Environment designer's <b>Options </b>dialog box.</font></li> <li><font size="2">From the Data Environment designer, drag the <b>Name</b> field (under the <b>Customers</b> command) onto the <b>Detail (Customers_Detail)</b> section. Move the Label control (leftmost Name box) RptLabel) named <b>Label2 </b>to <b>Page Header (PageHeader)</b> section right above the <b>Name</b> field in the <b>Detail (Customers_Detail)</b> section.</font></li> <li><font size="2">From the Data Environment designer, drag the <b>Address</b> field (under the <b>Customers</b> command) onto the <b>Detail (Customers_Detail)</b> section. Move the Label control (leftmost address box) RptLabel) named <b>Label3 </b>to <b>Page Header (PageHeader)</b> section right above the <b>Address</b> field in the <b>Detail (Customers_Detail)</b> section.</font></li> <li><font size="2">From the Data Environment designer, drag the <b>City</b> field (under the <b>Customers</b> command) onto the <b>Detail (Customers_Detail)</b> section. Move the Label control (leftmost City box) RptLabel) named <b>Label4 </b>to <b>Page Header (PageHeader)</b> section right above the <b>City</b> field in the <b>Detail (Customers_Detail)</b> section.</font></li> <li><font size="2">From the Data Environment designer, drag the <b>State</b> field (under the <b>Customers</b> command) onto the <b>Detail (Customers_Detail)</b> section. Move the Label control (leftmost State box) RptLabel) named <b>Label5 </b>to <b>Page Header (PageHeader)</b> section right above the <b>State</b> field in the <b>Detail (Customers_Detail)</b> section.</font></li> <li><font size="2">From the Data Environment designer, drag the <b>Zip Code</b> field (under the <b>Customers</b> command) onto the <b>Detail (Customers_Detail)</b> section. Move the Label control (leftmost Zip Code box) RptLabel) named <b>Label6 </b>to <b>Page Header (PageHeader)</b> section right above the <b>Zip Code</b> field in the <b>Detail (Customers_Detail)</b> section.</font></li> <li><font size="2">From the Data Environment designer, drag the <b>Balance</b> field (under the <b>Customers</b> command) onto the <b>Detail (Customers_Detail)</b> section. Move the Label control (leftmost Balance box) RptLabel) named <b>Label7 </b>to <b>Page Header (PageHeader)</b> section right above the <b>Balance</b> field in the <b>Detail (Customers_Detail)</b> section.</font></li> <li><font size="2">From the Data Environment designer, drag the <b>Employee ID</b> field (under the <b>Customers</b> command) onto the <b>Detail (Customers_Detail)</b> section. Move the Label control (leftmost Employee ID box) RptLabel) named <b>Label8 </b>to <b>Page Header (PageHeader)</b> section right above the <b>Employee ID</b> field in the <b>Detail (Customers_Detail)</b> section.</font></li> <li><font size="2">To put the title in the <b>Report Header (ReportHeader)</b> section on the report perform the following steps. Right-click in the <b>Report Header (ReportHeader)</b> section of the report on the short-cut menu point to <b>Insert </b><b><u>C</u></b><b>ontrol</b> then click on <b>Report </b><b><u>T</u></b><b>itle</b>. This will put the title control in the <b>Report Header (ReportHeader)</b> section of the report. Change the <b>Caption</b> property of the control in the property window to read "<b>CUSTOMER REPORT</b>". To put the date in the <b>Report Header (ReportHeader)</b> section to appear under the CUSTOMER REPORT header on the report perform the following steps. Right-click in the <b>Report Header (ReportHeader)</b> section of the report on the short-cut menu point to <b>Insert </b><b><u>C</u></b><b>ontrol</b> then click on <b>Current </b><b><u>D</u></b><b>ate (Short Format)</b>. This will put the date control in the <b>Report Header (ReportHeader)</b> section of the report. Increase the width of this report band and drag the date control under the CUSTOMER REPORT header. See page VB 6.68 of your book to see the correct format of the report header and the detail lines of the report.</font></li> <li><font size="2">To put your name, class, and section number in the <b>Report Footer (ReportFooter)</b> section on the report perform the following steps. Right-click in the <b>Report Footer (ReportFooter)</b> section of the report on the short-cut menu point to <b>Insert </b><b><u>C</u></b><b>ontrol</b> then click on <b><u>L</u></b><b>abel</b>. This will put a label control in the <b>Report Footer (ReportFooter)</b> section of the report. Change the <b>Caption</b> property of the control in the property window to read "<b>your name IFS 110 section number</b>". </font></li> <li><font size="2"><b>Resize</b> the Data Report<b> </b>designer's sections to use as little space as possible in each of the report bands.</font></li> <li><a href="graphics/report6.gif" target="Win1"><font size="2"><img src="graphics/visual11.gif" alt="Click to see Report Enviromnent" align="right" hspace="0" width="67" height="57"></font></a><font size="2"> </font><p><font size="2">It's important to resize the height of the <b>Details section</b> to be as short as possible because the height will be multiplied for every record in the Sound Advice database. Any extra space below or above the detail line text boxes will result in unneeded space in the final report.</font></p> </li> <li><font size="2"><b>Save</b> the project. </font></li> </ol> <h2>Preview the Data Report Using the Show Method</h2> <p><font size="2">Now that the data environment and the data report objects have been created, you are almost ready to run the project. One step remains: to write code to show the data report.</font></p> <p><font size="2"><b>To show the data report at run time</b> </font></p> <ol> <li><font size="2">On the <b>Project Explorer</b> window, double-click the <b>frmCustomers</b> icon to display the Form designer.<br> </font></li> <li><font size="2">On <b>Toolbox</b>, click the <b>General </b>tab. </font></li> <li><font size="2">When you add a Data Report designer to your project, its controls are added to the tab named <b>DataReport</b>. To use the standard Visual Basic controls, you must switch to the General tab.</font></li> <li><font size="2">Click the <b>CommandButton</b> icon and draw a <b>CommandButton</b> on the Customer form between the <u>U</u>pdate and the <u>C</u>lose command buttons.<br> </font></li> <li><font size="2">Set the properties of the <b>Command1 </b>control according to the table below: </font></li> <li><table border="1" cellpadding="5" cellspacing="1" width="623"> <tr> <td width="43%"><font size="2"><b>Property</b></font></td> <td width="57%"><font size="2"><b>Setting</b></font></td> </tr> <tr> <td width="43%"><font size="2">Name</font></td> <td width="57%"><font size="2">cmdReport</font></td> </tr> <tr> <td width="43%"><font size="2">Caption</font></td> <td width="57%"><font size="2"><u>R</u>eport</font></td> </tr> </table> </li> <li><font size="2">In the button's Click event, paste the code below.</font></li> <li><pre><code>Private Sub cmdReport_Click() </code><code><b>rptSoundAdviceCustomers.Show </b></code><code>End Sub</code></pre> </li> <li><font size="2"><b>Save</b> and <b>run</b> the project.<br> </font></li> <li><font size="2">Click <b>Report </b>to display the report in <b>print preview</b> mode. </font></li> <li><form> <p><font size="2"><input type="button" value="Customer Report Sample Output" onclick="top.location.href='custrpt.htm'"> </font></p> </form> <form> <p><font size="2"><input type="button" value="Employee Report Sample Output" onclick="top.location.href='emprpt.htm'"> </font></p> </form> <form> <p><font size="2"><input type="button" value="Compact Discs Report Sample Output" onclick="top.location.href='ComDsRpt.htm'"> </font></p> </form> </li> <li><font size="2">Use the techniques listed above to set up the <b>Data Report Designers</b> for the <b>Employees</b> and <b>Compact Discs</b> tables in the <b>Sound Advice database</b> and place the <b><u>R</u></b><b>eport command buttons</b> on their corresponding forms. When complete your project will contain one <b>Data Environment </b>(Sound Advice) and three different <b>Data Reports</b> representing the <b>Customers</b>, <b>Employees</b> and <b>Compact Discs</b> tables in the <b>Sound Advice database.</b></font></li> </ol> <form> <p align="right"><input type="button" value=" <<Back " onclick="top.location.href='i110hin6.htm'"> </p> </form> </body>