|
更高技术的网页
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的预览示例，正式版本的结果也许不完全如此，当然也许就是如此。
[Web开发]一个关于ASP运行时间计算的代码 [Web开发]ASP:检测含有中文字符串的实际长度
[Web开发]asp 中英文字符长度检测判断函数 [Web开发]安全维护 IIS asp 站点的高级技巧
[Access]ASP&SQL让select查询结果随机排序的实现方法 [Web开发]ASP字符串截取函数
[Web开发][asp]关键词只替换一次的写法 [Web开发]Asp无组件生成缩略图方法详解
[Web开发]asp编程中优化数据库方法详解 [Web开发]三种方法教你asp如何去除html标记
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
