bukaoreportunit.pas

一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 功能强大

unit bukaoReportUnit;

interface

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

type
  TbukaoReportForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit1: TMaskEdit;
    DBComboBox1: TComboBox;
    DBComboBox2: TComboBox;
    DBComboBox3: TComboBox;
    DBComboBox4: TComboBox;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label9: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bukaoReportForm: TbukaoReportForm;

implementation

uses datamoduleUnit;

{$R *.dfm}

procedure TbukaoReportForm.BitBtn1Click(Sender: TObject);
begin
if (trim(DBedit1.Text)='') or  (DBcombobox2.Text='')or(DBcombobox4.Text='') then
  begin
    messagebox (handle,'条件不能为空，请输入！','警告',mb_ok) ;
    exit;
  end;
if  (DBcombobox1.Text+DBcombobox2.Text)>(DBcombobox3.Text +DBcombobox4.Text)then
  begin
    messagebox (handle,'时间顺序有误!请更正!','警告',mb_ok) ;
    exit;
  end;
with datamodule1.queryall do
    begin
     close;
     SQL.Clear;
     sql.Add('select student.sno,sname,grade.cname,tname,grade,year,term,type,typeno from grade,student,course');
     sql.Add('where grade.sno=student.sno and grade.cname=course.cname and student.sno like :sno');
     sql.Add('and (year>:year1 and year<:year2');
     if dbcombobox2.Text='上' then
     sql.Add('or year=:year11')
     else begin
          sql.Add('or year=:year11 and term=:term1');
          Parameters.ParamByName('term1').Value:=dbcombobox2.Text;
          end;
     if dbcombobox4.Text='下' then
        sql.Add('or year=:year22)')
     else begin
          sql.Add('or year=:year22 and term=:term2)');
          Parameters.ParamByName('term2').Value:=dbcombobox4.Text;
          end;
     sql.Add('and (grade=:str1 or grade=:str2 or grade<:str3 and grade>:str4)and typeno=1');
     Parameters.ParamByName('sno').Value:=trim(dbedit1.Text)+'%';
     Parameters.ParamByName('year1').Value:=strtoint(dbcombobox1.Text);
     Parameters.ParamByName('year2').Value:=strtoint(dbcombobox3.Text);
     Parameters.ParamByName('year11').Value:=strtoint(dbcombobox1.Text);
     Parameters.ParamByName('year22').Value:=strtoint(dbcombobox3.Text);
     Parameters.ParamByName('str1').Value:='不及格';
     Parameters.ParamByName('str2').Value:='不通过';
     Parameters.ParamByName('str3').Value:='60';
     Parameters.ParamByName('str4').Value:='40';
     prepared;
     open;
    end;
with datamodule1.RvProjectall do
begin
datamodule1.RvDataSetConnectionall.DataSet:=datamodule1.queryall;
SelectReport('bukaoreport',false);
Execute;
end;

end;

procedure TbukaoReportForm.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));
     DBcombobox3.Items.Add(inttostr(thisyear));
    thisyear:=thisyear-1;
   end;
 DBcombobox1.ItemIndex:=1;
 DBcombobox3.ItemIndex:=0;
end;

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

end.