u_main.pas

适合新手 绝对精品 教务管理系统 本人花钱购买来的源代 共受

unit U_main;

interface

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

type
  TForm_main = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBMemo1: TDBMemo;
    Label9: TLabel;
    Btn_print: TButton;
    Panel1: TPanel;
    Btn_show: TButton;
    Label1: TLabel;
    Edit_course: TEdit;
    DBGrid1: TDBGrid;
    BBtn_add: TBitBtn;
    BBtn_del: TBitBtn;
    Label10: TLabel;
    DBEdit7: TDBEdit;
    T_student: TTable;
    T_course: TTable;
    T_teacher: TTable;
    Q_credit: TQuery;
    DS_course: TDataSource;
    DS_teacher: TDataSource;
    Q_course: TQuery;
    DS_credit: TDataSource;
    DS_qcourse: TDataSource;
    Q_select: TQuery;
    T_counterX: TTable;
    Label11: TLabel;
    DBGrid2: TDBGrid;
    GroupBox2: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Q_ldcourse: TQuery;
    Q_maxscore: TQuery;
    Q_avgscore: TQuery;
    Q_minscore: TQuery;
    DS_ldcourse: TDataSource;
    DS_maxscore: TDataSource;
    DS_avgscore: TDataSource;
    DS_minscore: TDataSource;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    procedure FormShow(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure Btn_showClick(Sender: TObject);
    procedure BBtn_addClick(Sender: TObject);
    procedure BBtn_delClick(Sender: TObject);
    procedure Btn_printClick(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_main: TForm_main;

implementation

uses U_login, MainFrm;

{$R *.dfm}

procedure TForm_main.FormShow(Sender: TObject);
begin
 T_student.Filter:='ID='''+Form_login.edit_user.text+'''';
 T_student.Filtered:=true;
 T_student.Open;
 Form_main.Caption:='学生、成绩查询系统。欢迎你，'+T_student['NAME']+'同学';
 end;

procedure TForm_main.TabSheet1Show(Sender: TObject);
begin
Q_course.Close;
Q_course.Params[0].AsString:=Form_login.edit_user.Text;
Q_course.Open;
Q_credit.Close;
Q_credit.Params[0].AsString:=Form_login.edit_user.Text;
Q_credit.Open;
end;

procedure TForm_main.Btn_showClick(Sender: TObject);
var s:string;
begin
s:='ID='''+edit_course.text+''''+'and State=''3''';
T_course.Filter:=s;
T_course.Filtered:=true;
T_course.Open;
T_teacher.Open;
end;

procedure TForm_main.BBtn_addClick(Sender: TObject);
var
counter:integer;
begin
T_counterX.Open;
counter:=T_counterX['COUNTER_VALUE'];
Inc(counter);
T_counterX.Edit;
T_counterX['counter_value']:=counter;
T_counterX.Post;
T_counterX.Close;
if T_course.Active and (T_course.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)+','''+edit_course.text+''','''+Form_login.edit_user.Text+''');');
ExecSQL;
end;
TabSheet1show(nil);
end
else
Application.MessageBox('课程号有误,请核实！','出错',mb_ok);
end;

procedure TForm_main.BBtn_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.FieldValues['SEL_ID'])+';');
ExecSQL;
end;
TabSheet1show(nil);
end;

procedure TForm_main.Btn_printClick(Sender: TObject);
begin
with MainForm do
begin
i_header.Text:='课表：'+ Form_login.edit_user.text;
Q_print.Close;
Q_print.SQL.Clear;
Q_print.SQL.Add('SELECT COURSE.ID,COURSE.NAME,COURSE.CLASSROOM,COURSE.TIME');
Q_print.SQL.Add('FROM COURSE,COURSE_SELECT');
Q_print.SQL.Add('WHERE COURSE_SELECT.STUDENT='''+Form_login.edit_user.text+'''');
Q_print.SQL.Add('AND COURSE_SELECT.COURSE=COURSE.ID;');
Q_print.Open;
StringGrid1.Rowcount:=4;
StringGrid1.Cells[0,0]:='课程编号';
StringGrid1.Cells[1,0]:='10';
StringGrid1.Cells[0,1]:='课程名称';
StringGrid1.Cells[1,1]:='30';
StringGrid1.Cells[0,2]:='上课地点';
StringGrid1.Cells[1,2]:='50';
StringGrid1.Cells[0,3]:='上课时间';
StringGrid1.Cells[1,3]:='50';
ShowModal
end;
end;

procedure TForm_main.TabSheet2Show(Sender: TObject);
begin
Q_ldcourse.Close;
Q_ldcourse.Params[0].asstring:=Form_login.edit_user.Text;
Q_ldcourse.Open;
end;

procedure TForm_main.DBGrid2CellClick(Column: TColumn);
begin
Q_maxscore.Close;
Q_maxscore.Params[0].asstring:=Q_ldcourse['ID'];
Q_maxscore.Open;
Q_avgscore.Close;
Q_avgscore.Params[0].asstring:=Q_ldcourse['ID'];
Q_avgscore.Open;
Q_minscore.Close;
Q_minscore.Params[0].asstring:=Q_ldcourse['ID'];
Q_minscore.Open;
end;

procedure TForm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form_login.Database1.Connected:=false;
Form_login.edit_user.Text:='';
Form_login.edit_passwd.Text:='';
Form_login.Show;
end;

end.