Go home pageWeb site mapUnified development processOOADdevelopmentJobs.Netroot@webudp.com
 

Reporting component with COM and .NET

Product Rational Rose
Notation UML
Tutorials Template, VB, C#

Template tutorial:
 
HTML report template:
    <html>
      <head>
        <title>Birth report</title>
        <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
      </head>
      <body bgcolor="#FFFFFF" text="#000000">
      <p><font size="4">Today is</font>:<%=Format(Now,"yy/mm/dd")%></p>
      <table width="75%" border="1">
      <tr>
        <td width="30%"><b>Name</b></td>
        <td width="24%"><b>Phone</b></td>
        <td width="29%"><b>Time of birth</b></td>
        <td width="17%"><b>Salary</b></td>
      </tr>
      <%For Each Employee in Employees%>
      <tr>
        <td width="30%"><%=Employee.Name%></td>
        <td width="24%"><%=Employee.Phone%></td>
        <td width="29%"><%=Format(Employee.BirthDate,"HH:mm")%></td>
        <td width="17%"><%=Employee.Salary%></td>
      </tr>
      <%Next%>
      </table>
      </body>
    </html>
   
XML Report template:
    <XML>
      <Today><%=Format(Now,"yy/mm/dd")%></Today>
      <Employees>
      <%For Each Employee in Employees%>
        <Employee>
        <Name><%=Employee.Name%></Name>
        <Phone><%=Employee.Phone%></Phone>
        <Birth><%=Format(Employee.BirthDate,"HH:mm")%></Birth>
        <Salary><%=Employee.Salary%></Salary>
        </Employee>
      <%Next%>
      </Employees>
    <XML>

Visual Basic tutorial:
 
''Make collection of employee object
    Set Employees = CreateObject("DBAccess.Collection")
    Employees.ClassName = "Employees.Employee"
    sql="Select * From Employees Where DatePart(month,BirthDate) = ? and DatePart(day,BirthDate) = ?"
    Employees.Deserialize sql,Month(Now()), Day(Now())
   
''Load report template
    Set Report = CreateObject("CommonLib.Report")
    Report.Logger.FileName = "c:\report.log"
    Report.Logger.ErrorFileName = "c:\reporterror.log"
    Report.Load "Employees.html"
    ''Report.Load "Employees.xml"
   
''Write report header
    Set Writer = Report.GetWriter()
    Writer!Now = Now()
    Set Writer = Writer.Writer("Employees")
   
''Print report detail
    For Each Employee In Employees
      Writer!Name = Employee.Name
      Writer!Phone = Employee.Phone
      Writer!BirthDate = Employee.BirthDate
      Writer!Salary = Employee.Salary
      Writer.WriteLine
    Next
   
''Print object
    For Each Employee In Employees
      Writer.WriteLine Employee
    Next
   
''Print collection
    Writer.WriteAll Employees
   
''Print "Reader" object
    Set DB = CreateObject("DBAccess.DataBase")
    Writer.WriteAll DB.Lookup("select * from Employee Where DatePart(day,BirthDate) = ?", Day(Now()))
   
''Save report to file
    Report.Save "Report_Employees.htm"
    ''Report.Save "Report_Employees.xml"
   
''Send report to email postbox
    Set Mailer = CreateObject("CommonLib.Mailer")
    Mailer.Logger.FileName = "c:\maillog.log"
    Mailer.Logger.ErrorFileName = "c:\mailerror.log"
    Mailer.Host = "MainHost"
    Mailer.FromAddress = "root@webudp.com"
    Mailer.SendTo Report

C# tutorial:
 
//Make collection of employee object
    Collection employees = new Collection("NetSales.Employees.Employee");
    string sql = "Select * From Employees Where DatePart(month,Birth) = ? and DatePart(day,Birth) = ?";
    employees.Deserialize(sql,DataTime.Now.Month,DateTime.Now.Day);
   
'//Load report template
    Report report = new Report();
    report.Logger.FileName = "c:\\report.log";
    report.Logger.ErrorFileName = "c:\\reporterror.log";
    report.Load("Employees.xml");
  //report.Load("Employees.html");
   
//Write report header
    IReportWriter writer = (IReportWriter)report;
    writer["Now"] = DateTime.Now;
    writer = writer.Writer("Employee");
   
//Print report detail
    foreach(Employee employee in employees)
    {
      writer["Name"] = employee.Name;
      writer["Phone"] = employee.Phone;
      writer["BirthDate"] = employee.BirthDate;
      writer["Salary"] = employee.Salary;
      writer.WriteLine();
    }
   
//Print object
    foreach(Employee employee in employees) writer.WriteLine(employee);
   
//Print collection
    writer.WriteAll(employees);
   
//Print "Reader" object
    DataBase db = new DataBase();
    string emp = "Select * From Employees Where DatePart(month,Birth) = ? and DatePart(day,Birth) = ?";
    Writer.WriteAll(db.Lookup(emp,DataTime.Now.Month,DateTime.Now.Day));
   
//Save report to file
    //report.Save("Report_Employees.htm");
    report.Save("Report_Employees.xml");
   
//Send report to email postbox
    Mailer mailer = new Mailer();
    mailer.Logger.FileName = "c:\\maillog.log";
    mailer.Logger.ErrorFileName = "c:\\mailerror.log";
    mailer.Host = "MainHost";
    mailer.FromAddress = "root@webudp.com";
    mailer.SendTo(report);
Home Map UDP OOAD Development Jobs .Net Email