unit4.~pas

学生成绩管理系统

unit Unit4;

interface

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

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

var
  studentbrowse: Tstudentbrowse;

implementation

{$R *.dfm}

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

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

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

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

procedure Tstudentbrowse.SpeedButton1Click(Sender: TObject);
begin
close;
end;

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

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

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

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

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

end.