studentgradereportunit.pas

教学管理系统源代码

unit studentgradeReportUnit;

interface

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

type
  TstudentgradeReportForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TMaskEdit;
    DBComboBox1: TComboBox;
    DBComboBox2: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBComboBox2Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
   {private declarations }
  public
    { Public declarations }
  end;

var
  studentgradeReportForm: TstudentgradeReportForm;

implementation
uses datamoduleunit;

{$R *.dfm}







procedure TstudentgradeReportForm.FormCreate(Sender: TObject);
var year,month,day:word;
     n:integer;
     thisyear:integer;
begin
  DecodeDate(now, Year, Month, Day);
  thisyear:=round(year);
for n:=1 to 20 do
   begin
    DBcombobox1.Items.Add(inttostr(thisyear));
    thisyear:=thisyear-1;
   end;
 DBcombobox1.ItemIndex:=0;
end;

procedure TstudentgradeReportForm.BitBtn1Click(Sender: TObject);
begin
if (trim(DBedit1.Text)='') or  (DBcombobox2.Text='') then
  begin
    messagebox (handle,'条件不能为空，请输入！','警告',mb_ok) ;
    exit;
  end;
with datamodule1.queryall do
    begin
     close;
     SQL.Clear;
     sql.Add('select student.sno,sname,cname,tname,grade,year,term,type from grade,student');
     sql.Add('where grade.sno=student.sno and student.sno=:sno ');
    if (dbcombobox2.Text<>'所有年') and (dbcombobox2.Text<>'全年') then
       begin
       sql.Add(' and year=:year and term =:term');
       Parameters.ParamByName('year').Value:=strtoint(DBcombobox1.Text);
       Parameters.ParamByName('term').Value:=copy(dbcombobox2.Text,1,2);
       end
     else if dbcombobox2.Text='全年' then
             begin
             sql.Add(' and year=:year ');
             Parameters.ParamByName('year').Value:=strtoint(DBcombobox1.Text);
             end ;

     Parameters.ParamByName('sno').Value:=DBedit1.Text;
     prepared;
     open;
    end;
with datamodule1 do
 begin
   RvDataSetConnectionall.DataSet:=queryall;
   rvprojectall.SelectReport('studentgradereport',false);
   rvprojectall.Execute;
 end;
end;

procedure TstudentgradeReportForm.DBComboBox2Change(Sender: TObject);
begin
if dbcombobox2.Text='所有年' then
 begin
  dbcombobox2.Width:=dbedit1.Width;
  dbcombobox2.Left:=dbedit1.Left;
  dbcombobox1.Visible:=false;
 end
else
  begin
  dbcombobox2.Width:=dbedit1.Width div 2 ;
  dbcombobox2.Left:=dbedit1.Left+dbedit1.Width div 2;
  dbcombobox1.Visible:=true;
  end;
end;

procedure TstudentgradeReportForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
with datamodule1 do
  begin
   queryall.Close;
  end;
end;

end.