u_main.~pas

教学管理系统 数据库系列

unit u_main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Db, DBTables, Spin, StdCtrls, Grids, DBGrids, ExtCtrls, Printers;

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

var
  F_main: TF_main;

implementation

uses u_login, MainFrm;

{$R *.DFM}

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

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

procedure TF_main.i_state_1Click(Sender: TObject);
begin
  if i_state_1.ItemIndex>0 then
  begin
    T_course_1.Filter:='TEACHER='''+F_login.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 TF_main.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.Text:=T_course_1['CREDIT_HOUR'];
    i_period_1.Text:=T_course_1['PERIOD'];
    i_intro_1.Lines.Clear;
    i_intro_1.Lines.Add(T_course_1['INTRO']);
  end;
end;

procedure TF_main.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 TF_main.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:='00000'+IntToStr(counter);
    course_id:=copy(course_id,length(course_id)-6,6);
    course_id:=FormatDateTime('yyyy',now)+course_id;
    //添加课程信息
    T_course_1.Filtered:=False;
    T_course_1.AppendRecord([course_id, i_name_1.Text,
      F_login.i_user.Text, i_credit_hour_1.Text,
      i_period_1.Text, '', '', 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 TF_main.TabSheet2Show(Sender: TObject);
begin
  //选取激活的课程
  T_course_1.Filter:='TEACHER='''+F_login.i_user.Text+''' AND STATE=''3''';
  T_course_1.Filtered:=True;
  T_course_1.Open;
  o_course_2CellClick(nil);
  T_students.Open;
end;

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

procedure TF_main.B_print_listClick(Sender: TObject);
begin
  With MainForm do
  begin
    i_header.Text:='学生名单';
    Q_print_contents.Close;
    Q_print_contents.SQL:=Q_students.SQL;
    Q_print_contents.Params.ParamValues['COURSE']:=T_course_1['ID'];
    Q_print_contents.Open;
    StringGrid1.RowCount:=3;
    StringGrid1.Cells[0,0]:='班级';
    StringGrid1.Cells[1,0]:='10';
    StringGrid1.Cells[0,1]:='学号';
    StringGrid1.Cells[1,1]:='20';
    StringGrid1.Cells[0,2]:='姓名';
    StringGrid1.Cells[1,2]:='30';
    ShowModal
  end;
end;

end.