unit11.~pas

学生成绩管理系统

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, DBTables, ExtCtrls, StdCtrls, RpCon,
  RpConDS, RpConBDE, RpDefine, RpRave, Buttons;

type
  Tgradebrowse = class(TForm)
    Panel1: TPanel;
    Table1: TTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    SpeedButton5: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    BitBtn1: TBitBtn;
    SpeedButton7: TSpeedButton;
    SpeedButton6: TSpeedButton;
    BitBtn2: TBitBtn;
    RvProject1: TRvProject;
    RvTableConnection1: TRvTableConnection;
    Edit1: TEdit;
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gradebrowse: Tgradebrowse;

implementation

{$R *.dfm}

procedure Tgradebrowse.SpeedButton5Click(Sender: TObject);
begin
table1.First ;
end;

procedure Tgradebrowse.SpeedButton4Click(Sender: TObject);
begin
table1.Prior ;
end;

procedure Tgradebrowse.SpeedButton3Click(Sender: TObject);
begin
table1.Next ;
end;

procedure Tgradebrowse.SpeedButton2Click(Sender: TObject);
begin
 table1.Last ;
end;

procedure Tgradebrowse.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure Tgradebrowse.BitBtn2Click(Sender: TObject);
begin
RvProject1.Execute ;
end;

procedure Tgradebrowse.SpeedButton7Click(Sender: TObject);
begin
table1.MoveBy(strtoint(edit1.text));
end;

procedure Tgradebrowse.SpeedButton6Click(Sender: TObject);
begin
if edit1.Text ='' then
showmessage('请输入号码 。')
else
table1.MoveBy(-strtoint(edit1.text));
end;

procedure Tgradebrowse.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

end.