نظرتون راجع به این کد چیه؟unit rform2;
interface
uses
System.Collections, System.ComponentModel,
borland.Vcl.SysUtils,
System.Data, System.Drawing, System.Web, System.Web.SessionState,
System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls,
Borland.Data.Provider, System.Globalization, Borland.Data.Web;
type
TWebForm1 = class(System.Web.UI.Page)
{$REGION 'Designer Managed Code'}
strict private
procedure InitializeComponent;
{$ENDREGION}
strict private
procedure Page_Load(sender: System.Object; e: System.EventArgs);
strict protected
Label2: System.Web.UI.WebControls.Label;
Label3: System.Web.UI.WebControls.Label;
Label4: System.Web.UI.WebControls.Label;
Label5: System.Web.UI.WebControls.Label;
Label6: System.Web.UI.WebControls.Label;
Label7: System.Web.UI.WebControls.Label;
Label1: System.Web.UI.WebControls.Label;
Label8: System.Web.UI.WebControls.Label;
Label9: System.Web.UI.WebControls.Label;
Label10: System.Web.UI.WebControls.Label;
Label11: System.Web.UI.WebControls.Label;
Label12: System.Web.UI.WebControls.Label;
Label13: System.Web.UI.WebControls.Label;
Label14: System.Web.UI.WebControls.Label;
Label15: System.Web.UI.WebControls.Label;
Label16: System.Web.UI.WebControls.Label;
Label17: System.Web.UI.WebControls.Label;
Label18: System.Web.UI.WebControls.Label;
Label19: System.Web.UI.WebControls.Label;
Label20: System.Web.UI.WebControls.Label;
Label21: System.Web.UI.WebControls.Label;
Label22: System.Web.UI.WebControls.Label;
Label23: System.Web.UI.WebControls.Label;
HyperLink1: System.Web.UI.WebControls.HyperLink;
bdpSelectCommand1: Borland.Data.Provider.BdpCommand;
BdpDataAdapter1: Borland.Data.Provider.BdpDataAdapter;
bdpConnection1: Borland.Data.Provider.BdpConnection;
dataSet1: System.Data.DataSet;
DBWebDataSource1: Borland.Data.Web.DBWebDataSource;
DataTable1: System.Data.DataTable;
DataColumn1: System.Data.DataColumn;
DataColumn2: System.Data.DataColumn;
DataColumn3: System.Data.DataColumn;
DataColumn4: System.Data.DataColumn;
DataColumn5: System.Data.DataColumn;
DataColumn6: System.Data.DataColumn;
DataColumn7: System.Data.DataColumn;
DataColumn8: System.Data.DataColumn;
DataColumn9: System.Data.DataColumn;
DataColumn10: System.Data.DataColumn;
DataColumn11: System.Data.DataColumn;
DataColumn12: System.Data.DataColumn;
DataColumn13: System.Data.DataColumn;
DataColumn14: System.Data.DataColumn;
DataColumn15: System.Data.DataColumn;
DataColumn16: System.Data.DataColumn;
DataColumn17: System.Data.DataColumn;
DataColumn18: System.Data.DataColumn;
DataColumn19: System.Data.DataColumn;
DataColumn20: System.Data.DataColumn;
DataColumn21: System.Data.DataColumn;
DataColumn22: System.Data.DataColumn;
DataColumn23: System.Data.DataColumn;
procedure OnInit(e: EventArgs); override;
private
{ Private Declarations }
public
{ Public Declarations }
end;
implementation
{$REGION 'Designer Managed Code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure TWebForm1.InitializeComponent;
type
TSystem_Data_DataTableArray = array of System.Data.DataTable;
TSystem_Data_DataColumnArray = array of System.Data.DataColumn;
begin
Self.bdpSelectCommand1 := Borland.Data.Provider.BdpCommand.Create;
Self.bdpConnection1 := Borland.Data.Provider.BdpConnection.Create;
Self.BdpDataAdapter1 := Borland.Data.Provider.BdpDataAdapter.Create;
Self.dataSet1 := System.Data.DataSet.Create;
Self.DataTable1 := System.Data.DataTable.Create;
Self.DataColumn1 := System.Data.DataColumn.Create;
Self.DataColumn2 := System.Data.DataColumn.Create;
Self.DataColumn3 := System.Data.DataColumn.Create;
Self.DataColumn4 := System.Data.DataColumn.Create;
Self.DataColumn5 := System.Data.DataColumn.Create;
Self.DataColumn6 := System.Data.DataColumn.Create;
Self.DataColumn7 := System.Data.DataColumn.Create;
Self.DataColumn8 := System.Data.DataColumn.Create;
Self.DataColumn9 := System.Data.DataColumn.Create;
Self.DataColumn10 := System.Data.DataColumn.Create;
Self.DataColumn11 := System.Data.DataColumn.Create;
Self.DataColumn12 := System.Data.DataColumn.Create;
Self.DataColumn13 := System.Data.DataColumn.Create;
Self.DataColumn14 := System.Data.DataColumn.Create;
Self.DataColumn15 := System.Data.DataColumn.Create;
Self.DataColumn16 := System.Data.DataColumn.Create;
Self.DataColumn17 := System.Data.DataColumn.Create;
Self.DataColumn18 := System.Data.DataColumn.Create;
Self.DataColumn19 := System.Data.DataColumn.Create;
Self.DataColumn20 := System.Data.DataColumn.Create;
Self.DataColumn21 := System.Data.DataColumn.Create;
Self.DataColumn22 := System.Data.DataColumn.Create;
Self.DataColumn23 := System.Data.DataColumn.Create;
Self.DBWebDataSource1 := Borland.Data.Web.DBWebDataSource.Create;
(System.ComponentModel.ISupportInitialize( Self.BdpDataAdapter1)).BeginInit;
(System.ComponentModel.ISupportInitialize( Self.dataSet1)).BeginInit;
(System.ComponentModel.ISupportInitialize( Self.DataTable1)).BeginInit;
(System.ComponentModel.ISupportInitialize( Self.DBWebDataSource1)).BeginInit;
//
// bdpSelectCommand1
//
Self.bdpSelectCommand1.CommandOptions := nil;
Self.bdpSelectCommand1.CommandText := 'SELECT dav, nam, namp, ttvl, shen, mojaz, rtb1, rtb2, rtb3, rtb4, rtb5, rtb6, r'+
'tb7, rtb8, rshe, rtb1a, rtb2a, rtb3a, rtb4a, rtb5a, rtb6a, rtb7a, rtb8a FROM d'+
'bo.main';
Self.bdpSelectCommand1.CommandType := System.Data.CommandType.Text;
Self.bdpSelectCommand1.Connection := Self.bdpConnection1;
Self.bdpSelectCommand1.ParameterCount := (SmallInt(0));
Self.bdpSelectCommand1.SchemaName := nil;
Self.bdpSelectCommand1.Transaction := nil;
Self.bdpSelectCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
//
// bdpConnection1
//
Self.bdpConnection1.ConnectionOptions := 'transaction isolation=ReadCommitted;blob size=1024';
Self.bdpConnection1.ConnectionString := 'database=arshad83;hostname=webserver1;assembly=Bo rland.Data.Mssql, Version=1.5.'+
'0.0, Culture=neutral, PublicKeyToken=91d62ebb5b0d1b1b;vendorclient=sqlol edb.dl'+
'l;provider=MSSQL;username=sa;password=S91';
//
// BdpDataAdapter1
//
Self.BdpDataAdapter1.Active := True;
Self.BdpDataAdapter1.DataSet := Self.dataSet1;
Self.BdpDataAdapter1.DataTable := Self.DataTable1;
Self.BdpDataAdapter1.MaxRecords := 1;
Self.BdpDataAdapter1.SelectCommand := Self.bdpSelectCommand1;
Self.BdpDataAdapter1.StartRecord := 0;
//
// dataSet1
//
Self.dataSet1.DataSetName := 'NewDataSet';
Self.dataSet1.Locale := System.Globalization.CultureInfo.Create('en-US');
Self.dataSet1.Tables.AddRange(TSystem_Data_Dat aTableArray.Create(Self.DataTable1));
//
// DataTable1
//
Self.DataTable1.Columns.AddRange(TSystem_Data_ DataColumnArray.Create(Self.DataColumn1,
Self.DataColumn2, Self.DataColumn3, Self.DataColumn4, Self.DataColumn5,
Self.DataColumn6, Self.DataColumn7, Self.DataColumn8, Self.DataColumn9,
Self.DataColumn10, Self.DataColumn11, Self.DataColumn12, Self.DataColumn13,
Self.DataColumn14, Self.DataColumn15, Self.DataColumn16, Self.DataColumn17,
Self.DataColumn18, Self.DataColumn19, Self.DataColumn20, Self.DataColumn21,
Self.DataColumn22, Self.DataColumn23));
Self.DataTable1.TableName := 'main';
//
// DataColumn1
//
Self.DataColumn1.ColumnName := 'dav';
//
// DataColumn2
//
Self.DataColumn2.ColumnName := 'nam';
//
// DataColumn3
//
Self.DataColumn3.ColumnName := 'namp';
//
// DataColumn4
//
Self.DataColumn4.ColumnName := 'ttvl';
//
// DataColumn5
//
Self.DataColumn5.ColumnName := 'shen';
//
// DataColumn6
//
Self.DataColumn6.ColumnName := 'mojaz';
//
// DataColumn7
//
Self.DataColumn7.ColumnName := 'rtb1';
//
// DataColumn8
//
Self.DataColumn8.ColumnName := 'rtb2';
//
// DataColumn9
//
Self.DataColumn9.ColumnName := 'rtb3';
//
// DataColumn10
//
Self.DataColumn10.ColumnName := 'rtb4';
//
// DataColumn11
//
Self.DataColumn11.ColumnName := 'rtb5';
//
// DataColumn12
//
Self.DataColumn12.ColumnName := 'rtb6';
//
// DataColumn13
//
Self.DataColumn13.ColumnName := 'rtb7';
//
// DataColumn14
//
Self.DataColumn14.ColumnName := 'rtb8';
//
// DataColumn15
//
Self.DataColumn15.ColumnName := 'rshe';
//
// DataColumn16
//
Self.DataColumn16.ColumnName := 'rtb1a';
//
// DataColumn17
//
Self.DataColumn17.ColumnName := 'rtb2a';
//
// DataColumn18
//
Self.DataColumn18.ColumnName := 'rtb3a';
//
// DataColumn19
//
Self.DataColumn19.ColumnName := 'rtb4a';
//
// DataColumn20
//
Self.DataColumn20.ColumnName := 'rtb5a';
//
// DataColumn21
//
Self.DataColumn21.ColumnName := 'rtb6a';
//
// DataColumn22
//
Self.DataColumn22.ColumnName := 'rtb7a';
//
// DataColumn23
//
Self.DataColumn23.ColumnName := 'rtb8a';
//
// DBWebDataSource1
//
Self.DBWebDataSource1.DataSource := Self.dataSet1;
Self.DBWebDataSource1.ErrorDlgBackColor := System.Drawing.Color.Azure;
Self.DBWebDataSource1.ErrorDlgBorderColor := System.Drawing.Color.Red;
Self.DBWebDataSource1.ErrorDlgForeColor := System.Drawing.Color.Black;
Include(Self.Load, Self.Page_Load);
(System.ComponentModel.ISupportInitialize( Self.BdpDataAdapter1)).EndInit;
(System.ComponentModel.ISupportInitialize( Self.dataSet1)).EndInit;
(System.ComponentModel.ISupportInitialize( Self.DataTable1)).EndInit;
(System.ComponentModel.ISupportInitialize( Self.DBWebDataSource1)).EndInit;
end;
{$ENDREGION}
procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
var sqlstr : string;
begin
// TODO: Put user code to initialize the page here
if not page.IsPostBack then
begin
self.bdpConnection1.Close;
self.BdpDataAdapter1.Active := false;
Self.bdpSelectCommand1.CommandOptions := nil;
sqlstr := 'SELECT dav, nam, namp, shen, ttvl, mojaz, rtb1, rtb2, rtb3, rtb4, rtb5, rtb6, r'+
'tb7, rtb8, rshe, rtb1a, rtb2a, rtb3a, rtb4a, rtb5a, rtb6a, rtb7a, rtb8a FROM d'+
'bo.main where dav = ' + session['sdav'].tostring ;
Self.bdpSelectCommand1.CommandText := sqlstr;
Self.bdpSelectCommand1.CommandType := System.Data.CommandType.Text;
Self.bdpSelectCommand1.Connection := Self.bdpConnection1;
Self.bdpSelectCommand1.ParameterCount := (SmallInt(0));
Self.bdpSelectCommand1.SchemaName := nil;
Self.bdpSelectCommand1.Transaction := nil;
Self.bdpSelectCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
self.bdpConnection1.open;
self.BdpDataAdapter1.Active := true;
if self.DataTable1.Rows.Count > 0 then
begin
self.DBWebDataSource1.ClearSessionChanges(self );
self.Label1.text := self.DataTable1.Rows.Item[0].item['rsh e'].ToString;
self.Label2.text := self.DataTable1.Rows.Item[0].item['nam '].ToString;
self.Label3.text := self.DataTable1.Rows.Item[0].item['nam p'].ToString;
self.Label4.text := self.DataTable1.Rows.Item[0].item['dav '].ToString;
self.Label5.text := self.DataTable1.Rows.Item[0].item['she n'].ToString;
self.Label6.text := self.DataTable1.Rows.Item[0].item['ttv l'].ToString;
self.Label7.text := self.DataTable1.Rows.Item[0].item['moj az'].ToString;
self.Label8.text := self.DataTable1.Rows.Item[0].item['rtb 1'].ToString;
self.Label9.text := self.DataTable1.Rows.Item[0].item['rtb 2'].ToString;
self.Label10.text := self.DataTable1.Rows.Item[0].item['rtb 3'].ToString;
self.Label11.text := self.DataTable1.Rows.Item[0].item['rtb 4'].ToString;
self.Label12.text := self.DataTable1.Rows.Item[0].item['rtb 5'].ToString;
self.Label13.text := self.DataTable1.Rows.Item[0].item['rtb 6'].ToString;
self.Label14.text := self.DataTable1.Rows.Item[0].item['rtb 7'].ToString;
self.Label15.text := self.DataTable1.Rows.Item[0].item['rtb 8'].ToString;
self.Label16.text := self.DataTable1.Rows.Item[0].item['rtb 1a'].ToString;
self.Label17.text := self.DataTable1.Rows.Item[0].item['rtb 2a'].ToString;
self.Label18.text := self.DataTable1.Rows.Item[0].item['rtb 3a'].ToString;
self.Label19.text := self.DataTable1.Rows.Item[0].item['rtb 4a'].ToString;
self.Label20.text := self.DataTable1.Rows.Item[0].item['rtb 5a'].ToString;
self.Label21.text := self.DataTable1.Rows.Item[0].item['rtb 6a'].ToString;
self.Label22.text := self.DataTable1.Rows.Item[0].item['rtb 7a'].ToString;
self.Label23.text := self.DataTable1.Rows.Item[0].item['rtb 8a'].ToString;
end
else
response.Redirect('Nfound.aspx');
SELF.bdpConnection1.Close;
session.Clear;
end;
end;
procedure TWebForm1.OnInit(e: EventArgs);
begin
//
// Required for Designer support
//
InitializeComponent;
inherited OnInit(e);
end;
end.
پاسخ با نقل قول