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

王朝asp·作者佚名 2006-01-08

宽屏版字体: 小|中|大|超大

更高技术的网页

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

以下代码是calendar.aspx中的一部分。代码提供二种方法让控件设置日期：

浏览日历然后选择日期；

按照日期格式输入日期，确认选择。这种方法由.NET的Convert类支持。

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>

<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">

</asp:Calendar>

<asp:Button text="Set date" id="Button1" OnClick="Button1Click" 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"%>

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>

<h1><%=ProdName %> with a Calendar, DataGrid, & SqlClient in ASP.NET</h1>

<table>

<asp:Calendar id="Calendar1" runat="server" ForeColor="#0000FF" BackColor="#FFFFCC"

OnSelectionChanged="DateSelected">

</asp:Calendar>

<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">

</asp:DataGrid>

</td></tr></table>

</form>

</body>

每当用户点击日历选择日期时，就触发OnSelectionChanged事件，调用DateSelected()函数。

在GetOrders函数中，数据库的连接由命名空间定义的SqlClient实现，数据库是MS SQL 2000的示范库Northwind。SqlDataAdapter将查询结果安装到DataGrid中，显示出数据表格，如附图。

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

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

结语

本文试图简略说明在ASP.NET中应用Delphi是如何方便。

请记住，本文示例是Delphi 7的预览示例，正式版本的结果也许不完全如此，当然也许就是如此。