studentsystem.pas

DElphi教学排课管理系统全套 包括论文。希望对大家有帮助

unit studentsystem;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, DB, DBTables, ComCtrls, StdCtrls, DBCtrls, Mask, Grids,
  DBGrids;

type
  TForm13 = class(TForm)
    SpeedButton1: TSpeedButton;
    T_course_info: TTable;
    DS_course_info: TDataSource;
    T_teacher: TTable;
    DS_teacher: TDataSource;
    Q_total_credit_hour: TQuery;
    T_student: TTable;
    DS_total_credit_hour: TDataSource;
    Q_course_selected: TQuery;
    DS_course_selected: TDataSource;
    Q_select: TQuery;
    T_counter_X: TTable;
    Q_course_learned: TQuery;
    DS_course_learned: TDataSource;
    Q_score_max: TQuery;
    DS_score_max: TDataSource;
    Q_score_avg: TQuery;
    DS_score_avg: TDataSource;
    Q_score_min: TQuery;
    DS_score_min: TDataSource;
    SpeedButton2: TSpeedButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    i_course_id: TEdit;
    B_show: TButton;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit1: TDBEdit;
    B_add: TButton;
    B_del: TButton;
    DBGrid1: TDBGrid;
    B_print: TButton;
    Button1: TButton;
    TabSheet2: TTabSheet;
    Label11: TLabel;
    DBGrid2: TDBGrid;
    GroupBox2: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TabSheet1Show(Sender: TObject);
    procedure B_showClick(Sender: TObject);
    procedure B_addClick(Sender: TObject);
    procedure B_delClick(Sender: TObject);
    procedure B_printClick(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

uses student, teach, teacherlogin, studentlogin, help1;

{$R *.dfm}

procedure TForm13.SpeedButton1Click(Sender: TObject);
begin
     form13.Hide;
     form9.i_user1.text:='';
     form9.i_passwd1.text:='';
     form3.show;

end;

procedure TForm13.FormShow(Sender: TObject);
begin
    dbedit1.Text :='';
    DBEDIT2.Text :='';
    DBEDIT3.Text :='';
    DBEDIT4.Text :='';
    DBEDIT5.Text :='';
    DBEDIT6.Text:='';
    DBEDIT7.Text:='';
    DBMEMO1.Lines.Clear ;
   T_student.Filter:='ID='''+Form9.i_user1.Text+'''';
   T_student.Filtered:=True;
   T_student.Open;
   Form13.Caption:='选课、成绩查询系统——用户：'+T_student['NAME'];
end;

procedure TForm13.FormClose(Sender: TObject; var Action: TCloseAction);
begin

    Application.Terminate ;

end;

procedure TForm13.TabSheet1Show(Sender: TObject);
begin
     Q_course_selected.Close ;
     Q_course_selected.Params [0].AsString :=studentlogin.Form9.i_user1.Text ;
     Q_course_selected.Open;
     Q_total_credit_hour.Close;
     Q_total_credit_hour.Params [0].AsString :=studentlogin.Form9.i_user1 .Text ;
     Q_total_credit_hour.Open;
end;

procedure TForm13.B_showClick(Sender: TObject);
begin
   T_course_info.Filter :='ID='''+i_course_id.text+''' and STATE=''3''';
   T_course_info.Filtered :=true;
   T_course_info.open;
   T_teacher.Open;
end;

procedure TForm13.B_addClick(Sender: TObject);
var
   counter:integer;

begin
   T_counter_X.Open;
   counter:=T_counter_X['COUNTER_VALUE'];
   INC(counter);
   T_counter_X.Edit;
   T_counter_X['COUNTER_VALUE']:=counter;
   T_counter_X.POST;
   if T_course_info.Active and (T_course_info.RecordCount =1)then
   begin
     with Q_select do
     begin
       close;
       SQL.Clear ;
       SQL.Add('INSERT INTO COURSE_SELECT');
       SQL.Add('(ID,COURSE,STUDENT)');
       SQL.Add('VALUES('+IntTostr(counter)+','''+i_course_id.Text+''','''+studentlogin.Form9.i_user1.Text +''');');
       ExecSQL;
     end;
     tabsheet1show(nil);
     end
     else
     application.messagebox('课程编号有误','出错',MB_OK);
end;

procedure TForm13.B_delClick(Sender: TObject);
begin
     with Q_select do
        begin
          close;
          SQL.Clear ;
          SQL.Add('delete from course_select');
          sql.Add('where id='+inttostr(Q_course_selected.FieldValues ['SEL_ID'])+';');
          EXECSQL;
        END;
        tabsheet1show(nil);

end;

procedure TForm13.B_printClick(Sender: TObject);
begin
    showmessage('此系统暂未配置打印机');
end;

procedure TForm13.TabSheet2Show(Sender: TObject);
begin
      Q_course_learned.Close ;
      Q_course_learned.Params [0].AsString:=form9.i_user1 .text;
      Q_course_learned.Open ;
end;

procedure TForm13.DBGrid2CellClick(Column: TColumn);
begin
   Q_score_max.Close ;
   Q_score_max.Params [0].AsString :=Q_course_learned['ID'];
   Q_score_max.Open ;
   Q_score_avg.Close ;
   Q_score_avg.Params [0].AsString :=Q_course_learned['ID'];
   Q_score_avg.Open ;
   Q_score_min.Close ;
   Q_score_min.Params [0].AsString :=Q_course_learned['ID'];
   Q_score_min.Open;

end;

procedure TForm13.SpeedButton2Click(Sender: TObject);
begin
     form17.show;
end;

procedure TForm13.Button1Click(Sender: TObject);
begin
//     showmessage('此功能需很详细地填写数据表，才能看到加入结果！');
     B_add.Enabled :=true;
end;

end.