graduategradereportunit.pas

来自「一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 」· PAS 代码 · 共 131 行

unit GraduateGradeReportUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, ExtCtrls;

type
  TGraduateGradeReportForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEdit1: TMaskEdit;
    RadioGroup1: TRadioGroup;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GraduateGradeReportForm: TGraduateGradeReportForm;

implementation

uses datamoduleUnit;

{$R *.dfm}



procedure TGraduateGradeReportForm.BitBtn1Click(Sender: TObject);
begin
if (trim(DBedit1.Text)='')  then
  begin
    messagebox (handle,'学号不能为空，请输入！','警告',mb_ok) ;
    exit;
  end;
with datamodule1.Querystudent do
    begin
     close;
     SQL.Clear;
     sql.Add('select * from student');
     sql.Add('where sno = :sno');
     Parameters.ParamByName('sno').Value:=trim(dbedit1.Text);
     prepared;
     open;
    end;
with datamodule1.queryall do
    begin
     close;
     SQL.Clear;
     sql.Add('select sno,grade.cname,studytime,tname,grade,year,term,type from grade,course');
     sql.Add('where grade.cname=course.cname');
     sql.Add('and sno=:sno');
     sql.Add('and (typeno=1 or typeno=2)');
     if  radiogroup1.ItemIndex=1 then
      sql.Add('and grade.grade>"60" and grade.grade<>"不及格" and grade.grade<>"不通过"' );
     Parameters.ParamByName('sno').Value:=trim(dbedit1.Text);
     prepared;
     open;
     end;

with datamodule1.Querygrade3 do
    begin
     close;
     SQL.Clear;
     sql.Add('select sno,grade.cname,studytime,tname,grade,year,term,type from grade,course');
     sql.Add('where grade.cname=course.cname');
     sql.Add('and sno=:sno');
     sql.Add('and typeno=3');
     Parameters.ParamByName('sno').Value:=trim(dbedit1.Text);
     prepared;
     open;
     end;
with datamodule1.querygrade4 do
    begin
     close;
     SQL.Clear;
     sql.Add('select sno,grade.cname,studytime,tname,grade,year,term,type from grade,course');
     sql.Add('where grade.cname=course.cname');
     sql.Add('and sno=:sno');
     sql.Add('and typeno=4 ');
     Parameters.ParamByName('sno').Value:=trim(dbedit1.Text);
     prepared;
     open;
     end;
with datamodule1.Querygrade5 do
    begin
     close;
     SQL.Clear;
     sql.Add('select sno,grade.cname,studytime,tname,grade,year,term,type from grade,course');
     sql.Add('where grade.cname=course.cname');
     sql.Add('and sno=:sno');
     sql.Add('and typeno=5');
     Parameters.ParamByName('sno').Value:=trim(dbedit1.Text);
     prepared;
     open;
     end;
with datamodule1.RvProjectall do
begin
datamodule1.RvDataSetConnectionall.DataSet:=datamodule1.queryall;
SelectReport('graduatereport',false);
Execute;
end;

end;

procedure TGraduateGradeReportForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
with datamodule1 do
 begin
  querystudent.Close;
  queryall.Close;
  querygrade3.Close;
  querygrade4.Close;
  querygrade5.Close;
 end;
end;

end.