CSDN博客

img ChinaOk

Delphi 7前瞻:将Delphi作为ASP.NET的脚本语言(下)

发表于2002/8/16 17:27:00  1215人阅读

更高技术的网页
ASP.NET的一些控件远比HTML控件要更加智能化。其中之一就是日历(Calendar)控件。

以下代码是calendar.aspx中的一部分。代码提供二种方法让控件设置日期:
 浏览日历然后选择日期;
 按照日期格式输入日期,确认选择。这种方法由.NET的Convert类支持。

<script language="Delphi" runat="server">
procedure Calendar1Selected(Sender: System.Object; E: EventArgs);
begin
  Label1.Text := 'Delphi for .NET says you picked ' + Calendar1.SelectedDate.ToString('D');
end;

procedure Button1Click(Sender: System.Object; E:EventArgs);
begin
  Calendar1.VisibleDate := System.Convert.ToDateTime(Edit1.Text);
  Label1.Text := 'Delphi for .NET says you set ' + Calendar1.VisibleDate.ToString('D');
end;
</script>

<body style="font:18pt Verdana">
  <form runat="server">
    <center>
       <h1>Delphi for .NET running in ASP.NET</h1>
       <p>Please pick a date</p>
       <asp:Calendar id="Calendar1" runat="server" ForeColor="#0000FF" BackColor="#FFFFCC"
         OnSelectionChanged="Calendar1Selected">
         <TodayDayStyle Font-Bold="True"/>
         <NextPrevStyle ForeColor="#FFFFCC"/>
         <DayHeaderStyle BackColor="#FFCC66"/>
         <SelectedDayStyle ForeColor="Black" BackColor="#CCCCFF"/>
         <TitleStyle Font-Size="14pt" Font-Bold="True" ForeColor="#FFFFCC" BackColor="#990000"/>
         <OtherMonthDayStyle ForeColor="#CC9966"/>
       </asp:Calendar>
       <p><asp:TextBox id="Edit1" width=200 runat="server"/>
          <asp:Button text="Set date" id="Button1" OnClick="Button1Click" runat="server" />
       </p>
       <p><asp:Label id="Label1" runat="server"/></p>
    </center>
  </form>
</body>

在日历上选择日期触发OnSelectionChanged事件,调用Delphi的Calendar1Selected()过程。
输入日期,点击"Set data"按钮触发Button1Click事件,调用Delphi的Button1Click()过程。

数据处理
现在通过日历的日期选择来选择显示数据库数据。在这个ASP.NET Delphi网页上,增加一个DataGrid和一个TextBox,前者显示数据库数据,后者输入要显示的数据库域。

<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.SqlClient"%>

<script language="Delphi" runat="server">
const
  ProdName = 'Delphi for .NET';
  DispFields = 'OrderID, CustomerID, ShipName, ShipCity, ShipCountry';

procedure DateSelected(Sender: System.Object; E: EventArgs);
begin
  Label1.Text := ProdName + ' says you picked ' + Calendar1.SelectedDate.ToString('D');
  DataGrid1.DataSource := GetOrders(Calendar1.SelectedDate);
  DataGrid1.DataBind;
end;

procedure Button1Click(Sender: System.Object; E:EventArgs);
begin
  Calendar1.VisibleDate := System.Convert.ToDateTime(Edit1.Text);
  Label1.Text := ProdName + ' says you set ' + Calendar1.VisibleDate.ToString('D');
end;

procedure Button2Click(Sender: System.Object; E:EventArgs);
begin
  DisplayFields.Text := DispFields;
end;

function GetOrders(Date : DateTime) : DataSet;
var
  Adapter : SqlDataAdapter;
begin
  Adapter := SqlDataAdapter.Create(
    'select ' + DisplayFields.Text + ' from Orders '+
    'where OrderDate = ''' + date.ToString('d')+'''',
    'Server=(local);Database=Northwind;Trusted_Connection=yes');
  Result := DataSet.Create;
  Adapter.Fill(Result);
end;

</script>

<body style="font:18pt Verdana">
  <form runat="server">
     <h1><%=ProdName %> with a Calendar, DataGrid, & SqlClient in ASP.NET</h1>
    <table>
    <tr valign="top"><td>
    <p><b>Pick a date</b></p>
    <asp:Calendar id="Calendar1" runat="server" ForeColor="#0000FF" BackColor="#FFFFCC"
      OnSelectionChanged="DateSelected">
      <TodayDayStyle Font-Bold="True"/>
      <NextPrevStyle ForeColor="#FFFFCC"/>
      <DayHeaderStyle BackColor="#FFCC66"/>
      <SelectedDayStyle ForeColor="Black" BackColor="#CCCCFF"/>
      <TitleStyle Font-Size="14pt" Font-Bold="True" ForeColor="#FFFFCC" BackColor="#990000"/>
      <OtherMonthDayStyle ForeColor="#CC9966"/>
    </asp:Calendar>
    <p><asp:TextBox id="Edit1" width=150 runat="server"/>
       <asp:Button text="Set date" id="Button1" OnClick="Button1Click" runat="server" />
    </p>
    </td><td valign="top">
    <p><b>Display fields:</b> <asp:TextBox id="DisplayFields"
         text="OrderID, CustomerID, ShipName, ShipCity, ShipCountry" width=500 runat="server"/>
       <asp:Button text="Reset fields" id="Button2" OnClick="Button2Click" runat="server" /></p>
    <asp:DataGrid id="DataGrid1" runat="server" BorderColor="#FFCC66" ForeColor="#0000FF">
      <HeaderStyle ForeColor="#FFFFCC" BackColor="#990000"/>
    </asp:DataGrid>
    </td></tr></table>
    <p><asp:Label id="Label1" runat="server"/></p>
  </form>
</body>

每当用户点击日历选择日期时,就触发OnSelectionChanged事件,调用DateSelected()函数。
在GetOrders函数中,数据库的连接由命名空间定义的SqlClient实现,数据库是MS SQL 2000的示范库Northwind。SqlDataAdapter将查询结果安装到DataGrid中,显示出数据表格,如附图。

改变域输入框的域名,再点击日历,就得到不同的结果。

这就是日历驱动的数据库查询系统,由Delphi for .NET与ASP.NET共同完成。

结语
本文试图简略说明在ASP.NET中应用Delphi是如何方便。
请记住,本文示例是Delphi 7的预览示例,正式版本的结果也许不完全如此,当然也许就是如此。

0 0

相关博文

我的热门文章

img
取 消
img