📄 u_main.pas

📁 教务管理系统,实现学生成绩管理,成绩查询,统计平均分最高分,学生选课,教务处安排教室,考试
💻 PAS
字号:
unit U_main;

interface

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

type
  TForm_main = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    RadioGroup1: TRadioGroup;
    DS_teacher: TDataSource;
    T_teacher: TTable;
    DS_course: TDataSource;
    T_course: TTable;
    Q_update: TQuery;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label8: TLabel;
    DBMemo1: TDBMemo;
    Panel1: TPanel;
    BitBtn_OK: TBitBtn;
    BitBtn_no: TBitBtn;
    Label6: TLabel;
    DBGrid2: TDBGrid;
    Label7: TLabel;
    Label9: TLabel;
    Edit_addr: TEdit;
    Edit_time: TEdit;
    Label10: TLabel;
    DBGrid3: TDBGrid;
    GroupBox2: TGroupBox;
    Btn_clear: TButton;
    btn_cancel: TButton;
    Btn_submit: TButton;
    Btn_print: TButton;
    Q_nactivecourse: TQuery;
    Q_submit: TQuery;
    Q_activecourse: TQuery;
    DS_nactivecourse: TDataSource;
    DS_activecourse: TDataSource;
    Label11: TLabel;
    DBGrid4: TDBGrid;
    Label12: TLabel;
    DBGrid5: TDBGrid;
    Button1: TButton;
    T_course_select: TTable;
    T_score: TTable;
    T_counterF: TTable;
    DS_course_select: TDataSource;
    DS_score: TDataSource;
    Label13: TLabel;
    Label14: TLabel;
    Edit_course: TEdit;
    Btn_query: TButton;
    Label15: TLabel;
    GroupBox3: TGroupBox;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Edit_totalnum: TEdit;
    Edit_avg: TEdit;
    Edit_min: TEdit;
    Edit_max: TEdit;
    Label22: TLabel;
    DBGrid6: TDBGrid;
    Btn_printscore: TButton;
    DS_courseinfo: TDataSource;
    DS_qscore: TDataSource;
    Q_info: TQuery;
    Q_score: TQuery;
    T_courseinfo: TTable;
    DBE_coursename: TDBEdit;
    Edit_failnum: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TabSheet1Show(Sender: TObject);
    procedure BitBtn_OKClick(Sender: TObject);
    procedure BitBtn_noClick(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure Btn_submitClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
    procedure Btn_printClick(Sender: TObject);
    procedure Btn_clearClick(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Btn_queryClick(Sender: TObject);
    procedure Btn_printscoreClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_main: TForm_main;

implementation

uses MainFrm;

{$R *.dfm}

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

procedure TForm_main.TabSheet1Show(Sender: TObject);
begin
T_course.Open;
T_teacher.Open;
end;

procedure TForm_main.BitBtn_OKClick(Sender: TObject);
begin
Q_update.close;
Q_update.SQL.Clear;
Q_update.SQL.Add('UPDATE COURSE');
Q_update.SQL.Add('SET STATE=''4''');
Q_update.SQL.Add('WHERE ID='''+T_course['ID']+'''');
Q_update.ExecSQL;
T_course.Refresh;
end;

procedure TForm_main.BitBtn_noClick(Sender: TObject);
begin
Q_update.close;
Q_update.SQL.Clear;
Q_update.SQL.Add('UPDATE COURSE');
Q_update.SQL.Add('SET STATE=''6''');
Q_update.SQL.Add('WHERE ID='''+T_course['ID']+'''');
Q_update.ExecSQL;
T_course.Refresh;
end;

procedure TForm_main.TabSheet2Show(Sender: TObject);
begin
Q_nactivecourse.Close;
Q_nactivecourse.Open;
Q_activecourse.Close;
Q_activecourse.Open;
end;

procedure TForm_main.Btn_submitClick(Sender: TObject);
begin
with Q_submit do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE COURSE');
SQL.Add('SET CLASSROOM='''+edit_addr.text+''','+
'CLASSTIME='''+edit_time.text+''','+
'state=''3''');
SQL.Add('WHERE ID='''+Q_nactivecourse['ID']+'''');
ExecSQL;
end;
Tabsheet2show(nil);
edit_addr.Text:='';
edit_time.Text:='';
end;

procedure TForm_main.btn_cancelClick(Sender: TObject);
begin
with Q_submit do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE COURSE');
SQL.Add('SET STATE=''4''');
SQL.Add('WHERE ID='''+Q_activecourse['ID']+'''');
ExecSQL;
end;
Tabsheet2show(nil);
end;

procedure TForm_main.Btn_printClick(Sender: TObject);
begin
with MainForm do
begin
i_header.Text:='课程安排';
Q_print.Close;
Q_print.SQL.Clear;
Q_print.SQL.Add('SELECT COURSE.ID,COURSE.NAME,'+
  'TEACHER.NAME AS TEACHER,COURSE.CLASSROOM,'+
  'COURSE.CLASSTIME,COURSE.PERIOD,'+
  'COURSE.CREDIT_HOUR,COURSE.INTRO');
Q_print.SQL.Add('FROM COURSE,TEACHER');
Q_print.SQL.Add('WHERE COURSE.STATE=''3''');
Q_print.SQL.Add('AND COURSE.TEACHER=TEACHER.ID;');
Q_print.Open;
StringGrid1.Rowcount:=8;
StringGrid1.Cells[0,0]:='课程号';
StringGrid1.Cells[1,0]:='10';
StringGrid1.Cells[0,1]:='课程名称';
StringGrid1.Cells[1,1]:='15';
StringGrid1.Cells[0,2]:='任课教师';
StringGrid1.Cells[1,2]:='10';
StringGrid1.Cells[0,3]:='上课地点';
StringGrid1.Cells[1,3]:='10';
StringGrid1.Cells[0,4]:='上课时间';
StringGrid1.Cells[1,4]:='10';
StringGrid1.Cells[0,5]:='学时';
StringGrid1.Cells[1,5]:='5';
StringGrid1.Cells[0,6]:='学分';
StringGrid1.Cells[1,6]:='5';
StringGrid1.Cells[0,7]:='课程简介';
StringGrid1.Cells[1,7]:='20';
ShowModal
end;
end;

procedure TForm_main.Btn_clearClick(Sender: TObject);
begin
if Application.MessageBox(
  '确定要清除所有已分配的资源？',
  '操作确定',
  MB_OKCANCEL)=IDOK then
  begin
    with Q_submit do
    begin
     Close;
     SQL.Clear;
     SQL.Add('UPDATE COURSE');
     SQL.Add('SET STATE=''4''');
     SQL.Add('WHERE STATE=''3''');
     ExecSQL;
    end;
    Tabsheet2show(nil);
   end;
end;

procedure TForm_main.TabSheet3Show(Sender: TObject);
begin
T_course_select.Open;
T_score.Open;
end;

procedure TForm_main.Button1Click(Sender: TObject);
var
counter:integer;
begin
T_counterF.Open;
counter:=T_counterF['COUNTER_VALUE'];
T_course_select.First;
while not T_course_select.Eof do
begin
Inc(counter);
T_score.AppendRecord([counter,T_course_select['STUDENT'],T_course_select['COURSE'],0]);
T_course_select.Delete;
end;
T_counterF.Edit;
T_counterF['counter_value']:=counter;
T_counterF.Post;
T_counterF.Close;
end;

procedure TForm_main.Btn_queryClick(Sender: TObject);
begin
T_courseinfo.Filter:='ID='''+edit_course.Text+'''';
T_courseinfo.Filtered:=True;
T_courseinfo.Open;
if T_courseinfo.RecordCount=1 then
begin
Q_score.Close;
Q_score.Params[0].AsString:=edit_course.Text;
Q_score.Open;
Q_info.Close;
Q_info.SQL.Clear;
Q_info.SQL.Add('SELECT COUNT(STUDENT),AVG(SCORE),MAX(SCORE),MIN(SCORE)');
Q_info.SQL.Add('FROM SCORE');
Q_info.SQL.Add('WHERE COURSE_ID='''+edit_course.text+'''');
Q_info.Open;
Edit_totalnum.Text:=Q_info['COUNT'];
Edit_max.Text:=Q_info['MAX'];
Edit_avg.Text:=Q_info['AVG'];
Edit_min.Text:=Q_info['MIN'];
Q_info.Close;
Q_info.SQL.Clear;
Q_info.SQL.Add('SELECT COUNT(STUDENT)');
Q_info.SQL.Add('FROM SCORE');
Q_info.SQL.Add('WHERE COURSE_ID='''+edit_course.Text+'''');
Q_info.SQL.Add('AND SCORE<60');
Q_info.Open;
Edit_failnum.Text:=Q_info['COUNT'];
end
else
Application.MessageBox('不存在此课程号，请核实！','课程号有误',MB_OK);
end;

procedure TForm_main.Btn_printscoreClick(Sender: TObject);
begin
with MainForm do
begin
i_header.Text:=DBE_coursename.text+'课程成绩单：';
Q_print.Close;
Q_print.SQL.Clear;
Q_print.SQL:=Q_score.SQL;
Q_print.Params[0].AsString:=edit_course.Text;
Q_print.Open;
StringGrid1.Rowcount:=4;
StringGrid1.Cells[0,0]:='班级';
StringGrid1.Cells[1,0]:='10';
StringGrid1.Cells[0,1]:='学号';
StringGrid1.Cells[1,1]:='15';
StringGrid1.Cells[0,2]:='姓名';
StringGrid1.Cells[1,2]:='20';
StringGrid1.Cells[0,3]:='成绩';
StringGrid1.Cells[1,3]:='10';
ShowModal
end;
end;

end.
💿 文件大小 1177 K
👤 上传用户 jjingle
📂 所属分类教育系统应用
🏷️ 相关标签

#分 #管理系统 #查询
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -