stutitlefrm.pas

中学考试管理系统 采用智能管理 具有统计分析的能力

unit stuTitlefrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;

type
  TForm9 = class(TForm)
    GroupBox1: TGroupBox;
    title: TEdit;
    GroupBox2: TGroupBox;
    con: TComboBox;
    grade: TComboBox;
    cName: TComboBox;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    qry: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    numEd: TEdit;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure conChange(Sender: TObject);
  private
    { Private declarations }
    procedure printview(t:String);
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses main, stuRepallfrm, logout, specialStuRep;

{$R *.dfm}

procedure TForm9.Button3Click(Sender: TObject);
begin
  Form9.hide;
  Form2.show;
end;

procedure TForm9.Button1Click(Sender: TObject);
 var
table_name,class_name : String;
begin
   table_name:='';
   class_name:='';
   if(grade.Text='初一') then table_name:='初一'
   else if(grade.Text='初二') then table_name:='初二'
   else if(grade.Text='初三') then table_name:='初三'
   else if(grade.Text='全校') then table_name:='全校';
   qry.Close;
   qry.SQL.Clear;
   if (con.text='按年级生成') then
      begin
         if(table_name='') then showMessage('请先选择年级')
         else
           begin
             if(grade.Text='全校') then
               qry.SQL.add('select * from student')
             else
               qry.SQL.add('select * from student where 年级='''+grade.Text+'''');
             qry.open;
           end;
       end
   else if (con.text='按班级生成') then
     begin
       class_name:='';
       if(cName.Text='一班') then class_name:='一班'
       else if (cName.Text='二班') then class_name:='二班';
       if(table_name='') then showMessage('请先选择年级')
       else if (class_name='') then showMessage('请先选择班级')
       else
         begin
           qry.SQL.add('select * from student where 班级=  '''+cName.Text+'''');
           qry.Open;
         end;
     end
   else if(con.Text='按学号生成') then
     begin
       if(length(numEd.Text)>0) then
         begin
           qry.SQL.Add('select * from student where 学号='''+numEd.Text+'''');
           qry.Open;
         end
       else
         showMessage('请先输入学号');
     end;
end;

procedure TForm9.Button2Click(Sender: TObject);
begin
  if (title.text)='' then
    if messagedlg('你不需要标题吗？',mtconfirmation,[mbYes,mbNo],0) = mrNo
    then exit;
  printview(title.Text);
end;

procedure TForm9.printview(t:String);

begin
    if((con.Text='按年级生成') or (con.Text='按班级生成')) then
      begin
        Form10:=TForm10.Create(application);
        Form10.titlelab.Caption:=t;
        Form10.QuickRep1.Preview;
      end
    else if(con.Text='按学号生成') then
      begin
        Form18:=TForm18.Create(application);
        Form18.titlelab.Caption:=t;
        Form18.QuickRep1.Preview;
      end;

end;

procedure TForm9.Button4Click(Sender: TObject);
begin
   Form9.Hide;
   Form14.show;
end;


procedure TForm9.conChange(Sender: TObject);
begin
  if(con.Text='按年级生成') then
    begin
      grade.Enabled:=true;
      cName.Enabled:=false;
      Label1.Enabled:=false;
      numEd.Enabled:=false;
    end
  else if(con.Text='按班级生成') then
    begin
      grade.Enabled:=true;
      cName.Enabled:=true;
      Label1.Enabled:=false;
      numEd.Enabled:=false;
    end
  else if(con.Text='按学号生成') then
    begin
      grade.Enabled:=false;
      cName.Enabled:=false;
      Label1.Enabled:=true;
      numEd.Enabled:=true;
    end;
end;

end.