studentsys.~pas

能够实现学生信息管理子系统的大部分管理功能（增加新生；学生的转学、复学、休学；奖励情况；处罚情况；学生个人信息查询修改）；能够实现教务管理子系统的大部分管理功能（本子系统通过密码确认后

unit studentsys;

interface

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

type
  TForm12 = class(TForm)
    SpeedButton1: TSpeedButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    T_course_1: TTable;
    DS_course_1: TDataSource;
    T_counter_K: TTable;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    i_name_1: TEdit;
    i_credit_hour_1: TSpinEdit;
    i_period_1: TSpinEdit;
    Label4: TLabel;
    i_intro_1: TMemo;
    Label5: TLabel;
    o_course_1: TDBGrid;
    B_submit: TButton;
    B_reset: TButton;
    T_teacher_info: TTable;
    Q_students: TQuery;
    DS_student_info: TDataSource;
    T_students: TTable;
    B_print_list: TButton;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    o_course_2: TDBGrid;
    o_student_list: TDBGrid;
    i_score: TDBGrid;
    DS_students: TDataSource;
    T_course_2: TTable;
    i_state_1: TDBRadioGroup;
    Label9: TLabel;
    i_teacher: TDBEdit;
    Label10: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure B_resetClick(Sender: TObject);
    procedure i_state_1Click(Sender: TObject);
    procedure o_course_1CellClick(Column: TColumn);
    procedure B_submitClick(Sender: TObject);
    procedure B_print_listClick(Sender: TObject);
    procedure o_course_2CellClick(Column: TColumn);
    procedure TabSheet2Show(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation

uses student, teach, teacherlogin;

{$R *.dfm}

procedure TForm12.SpeedButton1Click(Sender: TObject);
begin
   form12.Hide;
   form3.show;
end;

procedure TForm12.FormShow(Sender: TObject);
begin
   T_teacher_info.Filter:='ID='''+Form8.i_user.Text+'''';
   T_teacher_info.Filtered:=True;
   T_teacher_info.Open;
   Form12.Caption:='课程管理系统——用户：'+T_teacher_info['NAME'];
end;

procedure TForm12.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Application.Terminate;
end;

procedure TForm12.B_resetClick(Sender: TObject);
begin
    i_state_1.ItemIndex:=0;     //申请初始化到增开新课
    i_state_1Click(nil);  //调用申请修改程序
    i_name_1.Text:='';   //清除课程名
    i_credit_hour_1.Text:='0'; //初始化学分
    i_period_1.Text:='0';   //初始化学时
    i_intro_1.Lines.Clear;  //清除课程简介
end;

procedure TForm12.i_state_1Click(Sender: TObject);
begin
if i_state_1.ItemIndex>0 then //如果不是新开课程，则显示列表
 begin
    T_course_1.Filter:='TEACHER='''+Form8.i_user.Text+''' AND STATE<>''5'' AND STATE<>''1''';
    T_course_1.Filtered:=True; //获取当前教师所开的课程
    T_course_1.Open;           //不包括已删除和申请删除的课程
    o_course_1.Enabled:=True;  //激活已开课程列表
    o_course_1CellClick(nil);  //显示当前课程信息
 end
 else
 begin
   T_course_1.Close;          //如果是新开课程 ，关闭已开课程数据表
   o_course_1.Enabled:=False;  //取消课程列表显示
 end;
end;

procedure TForm12.o_course_1CellClick(Column: TColumn); //如果是删除或修改旧的课程，在单击课程列表时，将在输入框中显示课程的详细信息。
begin
  if T_course_1.Active then       //判断课程信息表是否激活
  begin
    i_name_1.Text:=T_course_1['NAME']; //提取课程名称
    i_credit_hour_1.value:=T_course_1['CREDIT_HOUR']; //提取课程学分
    i_period_1.Value :=T_course_1['PERIOD']; //提取课程学分
    i_intro_1.Lines.Clear; //清除课程简介
    i_intro_1.Lines.Add(T_course_1['INTRO']);   //提取课程简介
  end;
end;

procedure TForm12.B_submitClick(Sender: TObject);    //表单的提交
var
  counter:integer;
  course_id:string;
begin
   case i_state_1.ItemIndex of     //根据不同申请，分别处理
   0:          //如果增加新课
      begin
    //获取课程计数
        T_counter_K.Open;    //打开计数器表
        counter:=T_counter_K['COUNTER_VALUE'];
        inc(counter);
        T_counter_K.Edit;
        T_counter_K['COUNTER_VALUE']:=counter;
        T_counter_K.Post;
        T_counter_K.Close;
    //合成课程编号
        //course_id:=IntToStr(counter);
        course_id:='0000'+IntToStr(counter);                //将计数值转换为字符串
       // course_id:=copy(course_id,length(course_id)-6,6);   //将截取固定长度字符串
        label10.caption:=course_id;
        course_id:=FormatDateTime('yyyy',now)+course_id;   //添加年份信息

    //添加课程信息
        T_course_1.Filtered:=False;
        T_course_1.Open;
        T_course_1.AppendRecord([course_id,i_name_1.Text,i_teacher.text,i_credit_hour_1.value,i_period_1.value, '', '', i_intro_1.Lines,'0']);
       end;
   1:            //申请删除
      begin
        T_course_1.Filtered:=False;      //取消过滤
        T_course_1.Edit;                 //进行修改
        T_course_1['STATE']:='1';        //改变课程状态
        T_course_1.Post;                //提交修改
      end;
   2:            //申请修改
      begin
        T_course_1.Filtered:=False;    //取消过滤
        T_course_1.Edit;
        T_course_1['NAME']:=i_name_1.Text;
        T_course_1['CREDIT_HOUR']:=i_credit_hour_1.Value;
        T_course_1['PERIOD']:=i_period_1.Value;
        T_course_1['INTRO']:=i_intro_1.Lines.Text;
        T_course_1['STATE']:='2';     //改变课程状态
        T_course_1.Post;
      end;
   end;
        B_resetClick(nil);  //恢复表单
end;

procedure TForm12.B_print_listClick(Sender: TObject);
begin
  showmessage('此系统暂没有配置打印机,此功能目前无效！');
end;

procedure TForm12.o_course_2CellClick(Column: TColumn);
begin
    Q_students.close;
    Q_students.Params.ParamValues ['COURSE']:=T_course_1['ID'];
    Q_students.Open ;
end;

procedure TForm12.TabSheet2Show(Sender: TObject);
begin
   T_course_1.Filter :='TEACHER='''+form8.i_user.Text +'''AND state=''3''';
   T_course_1.Filtered :=true;
   T_course_1.Open ;
   o_course_2CellClick(nil);
   T_students.Open;
end;

procedure TForm12.Button1Click(Sender: TObject);
begin
//     showmessage('不是期初不能提交表单!');
    
end;

end.