p1.pas

D8_BS的一个例子,对于初学Delphi8的人很有参考价值

  Self.bdpUpdateCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // bdpDeleteCommand1
  // 
  Self.bdpDeleteCommand1.CommandOptions := nil;
  Self.bdpDeleteCommand1.CommandText := 'DELETE FROM dbo.学生档案 WHERE 学号 = ? AND 姓名 = ? AND 性别 = ? AND 系 = ? AND 专业 = ? AN'+ 
  'D 年级 = ? AND 班级 = ? AND 出生年月 = ? AND 民族 = ?';
  Self.bdpDeleteCommand1.CommandType := System.Data.CommandType.Text;
  Self.bdpDeleteCommand1.Connection := Self.BdpConnection1;
  Self.bdpDeleteCommand1.ParameterCount := (SmallInt(9));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('学号Original', 
        Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '学号', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('姓名Original', 
        Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '姓名', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('性别Original', 
        Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '性别', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('系Original', 
        Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '系', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('专业Original', 
        Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '专业', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('年级Original', 
        Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '年级', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('班级Original', 
        Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '班级', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('出生年月Original', 
        Borland.Data.Common.BdpType.DateTime, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '出生年月', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('民族Original', 
        Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '民族', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.SchemaName := nil;
  Self.bdpDeleteCommand1.Transaction := nil;
  Self.bdpDeleteCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // BdpDataAdapter1
  // 
  Self.BdpDataAdapter1.Active := True;
  Self.BdpDataAdapter1.DataSet := Self.dataSet1;
  Self.BdpDataAdapter1.DataTable := Self.DataTable1;
  Self.BdpDataAdapter1.DeleteCommand := Self.bdpDeleteCommand1;
  Self.BdpDataAdapter1.InsertCommand := Self.bdpInsertCommand1;
  Self.BdpDataAdapter1.MaxRecords := 0;
  Self.BdpDataAdapter1.SelectCommand := Self.bdpSelectCommand1;
  Self.BdpDataAdapter1.StartRecord := 0;
  Self.BdpDataAdapter1.UpdateCommand := Self.bdpUpdateCommand1;
  // 
  // dataSet1
  // 
  Self.dataSet1.DataSetName := 'NewDataSet';
  Self.dataSet1.Locale := System.Globalization.CultureInfo.Create('zh-CN');
  Self.dataSet1.Tables.AddRange(TArrayOfSystem_Data_DataTable.Create(Self.DataTable1));
  // 
  // DataTable1
  // 
  Self.DataTable1.Columns.AddRange(TArrayOfSystem_Data_DataColumn.Create(Self.DataColumn1, 
          Self.DataColumn2, Self.DataColumn3, Self.DataColumn4, Self.DataColumn5, 
          Self.DataColumn6, Self.DataColumn7, Self.DataColumn8, Self.DataColumn9));
  Self.DataTable1.TableName := '学生档案';
  // 
  // DataColumn1
  // 
  Self.DataColumn1.ColumnName := '学号';
  // 
  // DataColumn2
  // 
  Self.DataColumn2.ColumnName := '姓名';
  // 
  // DataColumn3
  // 
  Self.DataColumn3.ColumnName := '性别';
  // 
  // DataColumn4
  // 
  Self.DataColumn4.ColumnName := '系';
  // 
  // DataColumn5
  // 
  Self.DataColumn5.ColumnName := '专业';
  // 
  // DataColumn6
  // 
  Self.DataColumn6.ColumnName := '年级';
  // 
  // DataColumn7
  // 
  Self.DataColumn7.ColumnName := '班级';
  // 
  // DataColumn8
  // 
  Self.DataColumn8.ColumnName := '出生年月';
  Self.DataColumn8.DataType := TypeOf(System.DateTime);
  // 
  // DataColumn9
  // 
  Self.DataColumn9.ColumnName := '民族';
  // 
  // 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 TP1.Page_Load(sender: System.Object; e: System.EventArgs);
var
  tRow  : TableRow;
  tCell : TableCell;
  ViewPage, lop, t, RecoNumber, i, pagn, num, Total : integer;
  ThYpImg, ThYpCaption, pg : HyperLink;
begin
  Total := StrToInt(Request.Item['Page'].ToString);
  /////////////////////
  RecoNumber := DBWebDataSource1.GetRowCount(DataTable1);
  Label1.Text := '共有记录： '+IntToStr (RecoNumber);
  if RecoNumber<20 then begin
    Label2.Text := '共有： 1页'; pagn := 1;
  end else
  if ((round(RecoNumber/20))*20) < RecoNumber then begin
    Label2.Text := '共有： '+IntToStr (round(RecoNumber/20+1)) + ' 页';
    pagn := round(RecoNumber/20+1);
  end else begin
    Label2.Text := '共有： '+IntToStr (round(RecoNumber/20)) + ' 页';
    pagn := round(RecoNumber/20);
  end;
  if RecoNumber < 20 then i := RecoNumber
  else i := 19;
  //////////////////////////////////////////////
  lop := (Total-1)*20+i;
  if (Total*20-RecoNumber) >0 then lop := ((Total-1)*20)+(20-(Total*20-RecoNumber))-1;
  //else Label3.Text := IntToStr((Total*10-RecoNumber));
  for ViewPage:=((Total-1)*20) to lop do begin
    tRow := TableRow.Create;
    Table1.Rows.Add(tRow);
    for t:=0 to 3 do begin
      tCell := TableCell.Create;
      tCell.HorizontalAlign := HorizontalAlign.Center;
      tCell.VerticalAlign := VerticalAlign.Middle;
      if (t = 0) or (t = 2) then tCell.Attributes.Add('bgColor','#F0F3FA')
      else tCell.BackColor := Color.White;
      tRow.Cells.Add(tCell);
      if t = 0 then begin  //建立标题前图标
        ThYpImg := HyperLink.Create;
        ThYpImg.NavigateUrl := 'placard_page.aspx?page='+IntToStr(ViewPage);;
        ThYpImg.ImageUrl := 'file:///D:/IIS/folder.gif';
        tCell.Controls.Add(ThYpImg);
      end;

      if t = 1 then begin  //建立标题前字
        tCell.HorizontalAlign := HorizontalAlign.Left;
        ThYpCaption := HyperLink.Create;
        ThYpCaption.NavigateUrl := 'placard_page.aspx?page='+IntToStr(ViewPage);
        ThYpCaption.Text := DBWebDataSource1.GetColumnValue(DataTable1,ViewPage,'学号').ToString;
        tCell.Attributes.Add('onmouseover','this.style.backgroundColor=''#F0F3FA''');
        tCell.Attributes.Add('onmouseout','this.style.backgroundColor=''#FFFFFF''');
        tCell.Controls.Add(ThYpCaption);
      end;
      if t = 2 then begin //作者发布时间
        tCell.HorizontalAlign := HorizontalAlign.Center;
        tCell.VerticalAlign := VerticalAlign.Middle;
        ThYpCaption := HyperLink.Create;
        ThYpCaption.Text := '<A href="placard_page.aspx?page='+IntToStr(ViewPage)+'">'+
        DBWebDataSource1.GetColumnValue(DataTable1,ViewPage,'姓名').ToString+'</A>'+
              '<BR><SPAN class=smalltxt>'+DBWebDataSource1.GetColumnValue(DataTable1,ViewPage,'年级').ToString+'</SPAN>';
        tCell.Controls.Add(ThYpCaption);
      end;
    end;
  end;
  /////////////////////////////
  tRow := TableRow.Create;
  Table3.Rows.Add(tRow);
  tCell := TableCell.Create;
  pg := HyperLink.Create;
  if (Total-10) <= 0 then pg.NavigateUrl := 'p1.aspx?page=1'
  else pg.NavigateUrl := 'p1.aspx?page='+IntToStr(trunc((Total-1)/10)*10);
  pg.Text := '<SPAN class=smalltxt>'+'<<'+'</SPAN>';
  tCell.Controls.Add(pg);
  Table3.Rows[0].Cells.Add (tCell);


  //////////////////////////////////////////////////
  for num:=1 to 10 do begin
    if (trunc((Total-1)/10)*10+num)>pagn then break;
    tCell := TableCell.Create;
    pg := HyperLink.Create;
    pg.NavigateUrl := 'p1.aspx?page=' + IntToStr (trunc((Total-1)/10)*10+num);
    if StrToInt(Request.Item['Page'].ToString)=(trunc((Total-1)/10)*10+num) then begin
      pg.Text := '<SPAN class=smalltxt>['+IntToStr (trunc((Total-1)/10)*10+num)+']</SPAN>';
    end else pg.Text := '<SPAN class=smalltxt>'+IntToStr (trunc((Total-1)/10)*10+num)+'</SPAN>';
    tCell.Controls.Add(pg);
    Table3.Rows[0].Cells.Add (tCell);
  end;
  ///////////////////////////////////////////////////////////
  pg := HyperLink.Create;
  pg.Text := '<SPAN class=smalltxt>'+'&nbsp>>'+'</SPAN>';
  if (trunc((Total-1)/10)*10+num)>pagn then
    pg.NavigateUrl := 'P1.aspx?page=' + IntToStr (trunc((Total-1)/10)*10+num-1)
  else pg.NavigateUrl := 'P1.aspx?page=' + IntToStr (trunc((Total-1)/10)*10+num);
  tCell.Controls.Add(pg);
  Table3.Rows[0].Cells.Add (tCell);
  /////////////////////////////////////////////////////////////
end;

procedure TP1.OnInit(e: EventArgs);
begin
  //
  // Required for Designer support
  //
  InitializeComponent;
  inherited OnInit(e);
end;


end.