coursebrowseunit.pas

教学管理系统源代码

unit coursebrowseunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons;

type
  TcoursebrowseForm = class(TForm)
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Bevel1: TBevel;
    Label2: TLabel;
    DBNavigator1: TDBNavigator;
    SpeedButton1: TSpeedButton;
    Label3: TLabel;
    DBComboBox1: TComboBox;
    DBComboBox2: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBComboBox2Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  coursebrowseForm: TcoursebrowseForm;

implementation

uses datamoduleUnit;

{$R *.dfm}

procedure TcoursebrowseForm.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;
dbgrid1.Columns[0].FieldName:='cname';
dbgrid1.Columns[1].FieldName:='studytime';
dbgrid1.Columns[2].FieldName:='credit';
dbgrid1.Columns[3].FieldName:='typename';
dbgrid1.Columns[4].FieldName:='year';
dbgrid1.Columns[5].FieldName:='term';
dbgrid1.Columns[6].FieldName:='tname';


end;





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

procedure TcoursebrowseForm.DBComboBox2Change(Sender: TObject);
begin
if (DBcombobox1.Text='') or (DBcombobox2.Text='') then
  begin
   speedbutton1.Enabled:=false;
   exit;
  end;
with datamodule1.queryall do
    begin
      close;
     SQL.Clear;
     sql.Add('select distinct grade.cname,studytime,credit,typename,year,term,tname from grade,course,coursetype ');
     sql.Add('where grade.cname=course.cname and course.typeno=coursetype.typeno');
     sql.Add('and year=:year');
    if dbcombobox2.Text<>'全年' then
       begin
       sql.Add(' and term =:term');
       Parameters.ParamByName('term').Value:=copy(dbcombobox2.Text,1,2);
       end;
     Parameters.ParamByName('year').Value:=dbcombobox1.Text;
     prepared;
     open;
   end;
 speedbutton1.Enabled:=true;  
end;

procedure TcoursebrowseForm.SpeedButton1Click(Sender: TObject);
begin
with datamodule1.RvProjectall do
begin
datamodule1.RvDataSetConnectionall.DataSet:=datamodule1.queryall;
SelectReport('coursereport',false);
Execute;
end;
end;

end.