unit5.~pas

学生成绩管理系统

unit Unit5;

interface

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

type
  Tgradelook = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Table1: TTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Button1: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    GroupBox2: TGroupBox;
    Button2: TButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    RadioButton15: TRadioButton;
    RadioButton16: TRadioButton;
    RadioButton17: TRadioButton;
    RadioButton18: TRadioButton;
    RadioButton19: TRadioButton;
    RadioButton20: TRadioButton;
    Button3: TButton;
    RvProject1: TRvProject;
    RvTableConnection1: TRvTableConnection;
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure RadioButton9Click(Sender: TObject);
    procedure RadioButton10Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RadioButton11Click(Sender: TObject);
    procedure RadioButton12Click(Sender: TObject);
    procedure RadioButton13Click(Sender: TObject);
    procedure RadioButton14Click(Sender: TObject);
    procedure RadioButton15Click(Sender: TObject);
    procedure RadioButton16Click(Sender: TObject);
    procedure RadioButton17Click(Sender: TObject);
    procedure RadioButton18Click(Sender: TObject);
    procedure RadioButton19Click(Sender: TObject);
    procedure RadioButton20Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gradelook: Tgradelook;
  course:integer;

implementation

{$R *.dfm}

procedure Tgradelook.Button1Click(Sender: TObject);
begin

case course  of
1: begin    table1.Filter:='chinese'+'>='+'60';
   table1.Filtered:=true;
    end;
2: begin table1.Filter:='math'+'>='+'60';
   table1.Filtered:=true;
    end;
3: begin table1.Filter:='english'+'>='+'60';
   table1.Filtered:=true;
     end;
4: begin  table1.Filter:='computer'+'>='+'60';
   table1.Filtered:=true;
    end;
5: begin table1.Filter:='c'+'>='+'60';
   table1.Filtered:=true;
     end;
6: begin table1.Filter:='Delphi'+'>='+'60';
   table1.Filtered:=true;
     end;
7: begin table1.Filter:='java'+'>='+'60';
   table1.Filtered:=true;
     end;
8: begin table1.Filter:='linux'+'>='+'60';
   table1.Filtered:=true;
     end;
9: begin table1.Filter:='history'+'>='+'60';
   table1.Filtered:=true;
     end;
10: begin table1.Filter:='vf'+'>='+'60';
   table1.Filtered:=true;
     end;
 end;

end;

procedure Tgradelook.RadioButton1Click(Sender: TObject);
begin
course:=1;
end;

procedure Tgradelook.RadioButton2Click(Sender: TObject);
begin
course:=2;
end;

procedure Tgradelook.RadioButton3Click(Sender: TObject);
begin
course:=3;
end;

procedure Tgradelook.RadioButton4Click(Sender: TObject);
begin
course:=4;
end;

procedure Tgradelook.RadioButton5Click(Sender: TObject);
begin
course:=5;
end;

procedure Tgradelook.RadioButton6Click(Sender: TObject);
begin
course:=6;
end;

procedure Tgradelook.RadioButton7Click(Sender: TObject);
begin
course:=7;
end;

procedure Tgradelook.RadioButton8Click(Sender: TObject);
begin
course:=8;
end;

procedure Tgradelook.RadioButton9Click(Sender: TObject);
begin
course:=9;
end;

procedure Tgradelook.RadioButton10Click(Sender: TObject);
begin
course:=10;
end;

procedure Tgradelook.Button2Click(Sender: TObject);
begin


case course  of
11: begin    table1.Filter:='chinese'+'<='+'60';
   table1.Filtered:=true;
    end;
12: begin table1.Filter:='math'+'<='+'60';
   table1.Filtered:=true;
    end;
13: begin table1.Filter:='english'+'<='+'60';
   table1.Filtered:=true;
     end;
14: begin  table1.Filter:='computer'+'<='+'60';
   table1.Filtered:=true;
    end;
15: begin table1.Filter:='c'+'<='+'60';
   table1.Filtered:=true;
     end;
16: begin table1.Filter:='Delphi'+'<='+'60';
   table1.Filtered:=true;
     end;
17: begin table1.Filter:='java'+'<='+'60';
   table1.Filtered:=true;
     end;
18: begin table1.Filter:='linux'+'<='+'60';
   table1.Filtered:=true;
     end;
19: begin table1.Filter:='history'+'<='+'60';
   table1.Filtered:=true;
     end;
20: begin table1.Filter:='vf'+'<='+'60';
   table1.Filtered:=true;
     end;
 end;
end;

procedure Tgradelook.RadioButton11Click(Sender: TObject);
begin
course:=11;
end;

procedure Tgradelook.RadioButton12Click(Sender: TObject);
begin
course:=12;
end;

procedure Tgradelook.RadioButton13Click(Sender: TObject);
begin
course:=13;
end;

procedure Tgradelook.RadioButton14Click(Sender: TObject);
begin
course:=14;
end;

procedure Tgradelook.RadioButton15Click(Sender: TObject);
begin
course:=15;
end;

procedure Tgradelook.RadioButton16Click(Sender: TObject);
begin
course:=16;
end;

procedure Tgradelook.RadioButton17Click(Sender: TObject);
begin
course:=17;
end;

procedure Tgradelook.RadioButton18Click(Sender: TObject);
begin
course:=18;
end;

procedure Tgradelook.RadioButton19Click(Sender: TObject);
begin
course:=19;
end;

procedure Tgradelook.RadioButton20Click(Sender: TObject);
begin
course:=20;
end;

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

procedure Tgradelook.Button3Click(Sender: TObject);
begin
RvProject1.Execute ;
end;

end.