score.pas

高校教学管理信息系统

unit score;

interface

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

type
  Tf_score = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Label8: TLabel;
    Label6: TLabel;
    Label1: TLabel;
    Btnqry: TButton;
    ADOStoredProc1: TADOStoredProc;
    Btnscore: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Label4: TLabel;
    Btnchange: TButton;
    Cmbdepart: TComboBox;
    Cmbteacher: TComboBox;
    Adoqrycourse: TADOQuery;
    Adoqrycoursename: TStringField;
    Adoqrycoursestudentno: TStringField;
    Adoqrycoursename_1: TStringField;
    Adoqrycoursescore: TIntegerField;
    Adoqrycoursename_2: TStringField;
    Cmbcourse: TComboBox;
    ADOQe: TADOQuery;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Adoqrycourseid: TAutoIncField;
    ADOQe2: TADOQuery;
    Adoqrystudent: TADOQuery;
    DataSource2: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnscoreClick(Sender: TObject);
    procedure CmbdepartChange(Sender: TObject);
    procedure CmbteacherChange(Sender: TObject);
    procedure BtnqryClick(Sender: TObject);
    procedure AdoqrycourseAfterScroll(DataSet: TDataSet);
    procedure BtnchangeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_score: Tf_score;

implementation

{$R *.dfm}

procedure Tf_score.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Action := caFree;
end;

procedure Tf_score.BtnscoreClick(Sender: TObject);
var courseno :string;
begin
    courseno:=copy(cmbcourse.Text,0,6);
    memo1.Lines.clear;

    ADOStoredProc1.Parameters[1].Value :=courseno;
    ADOStoredProc1.ExecProc ;
    adoqe.SQL.Clear ;
    adoqe.SQL.Add('select * from tongji');
    adoqe.Open;
    while not adoqe.Eof do
    begin
    memo1.Lines.Add(adoqe.fields[0].asstring+'：'+adoqe.fields[1].asstring);
    adoqe.Next;
    end;

end;

procedure Tf_score.CmbdepartChange(Sender: TObject);
begin
      cmbteacher.Items.Clear ;
      adoqe.SQL.Clear ;
      adoqe.SQL.Add('select teacherno,name from teacher where depart='''+trim(cmbdepart.text)+''' ');
      adoqe.Open ;
      while not adoqe.Eof do
      begin
      cmbteacher.items.Add(adoqe.fields[0].asstring+':'+adoqe.fields[1].asstring);
      adoqe.Next;
      end;
end;

procedure Tf_score.CmbteacherChange(Sender: TObject);
var  teacherno:string;
begin
      teacherno:=copy(Cmbteacher.Text ,0,4);
      cmbcourse.Items.Clear ;
      adoqe.SQL.Clear ;
      adoqe.SQL.Add('select courseno,name from course where teacherno='''+teacherno+''' ');
      adoqe.Open ;
      while not adoqe.Eof do
      begin
      cmbcourse.items.Add(adoqe.fields[0].asstring+':'+adoqe.fields[1].asstring);
      adoqe.Next;
      end;
end;

procedure Tf_score.BtnqryClick(Sender: TObject);
var courseno :string;
begin
    courseno:=copy(cmbcourse.Text,0,6);

    Adoqrycourse.SQL.Clear ;
    Adoqrycourse.SQL.Add('select a.id, b.name,a.studentno,c.name,a.score,d.name');
    Adoqrycourse.SQL.Add(' from courseselect a,course b,student c,teacher d');
    Adoqrycourse.SQL.Add(' where b.courseno=a.courseno and c.studentno=a.studentno  ');
    Adoqrycourse.SQL.Add(' and d.teacherno=b.teacherno');
    Adoqrycourse.SQL.Add(' and b.courseno='''+ courseno +'''  ');
    Adoqrycourse.Open;
end;

procedure Tf_score.AdoqrycourseAfterScroll(DataSet: TDataSet);
begin
   Adoqrystudent.SQL.Clear;
   Adoqrystudent.SQL.Add('select id,studentno,name,sex,specialty,depart from student where studentno='''+Adoqrycourse.fieldbyname('studentno').asstring+''' ');
   Adoqrystudent.Open;  
        edit1.Text:=Adoqrycourse.fieldbyname('score').AsString;
end;

procedure Tf_score.BtnchangeClick(Sender: TObject);
begin
       adoqe2.SQL.Clear ;
       adoqe2.SQL.Add('update courseselect set score='+edit1.text+' where id='+Adoqrycourse.fieldbyname('id').asstring);
       adoqe2.ExecSQL ;

     Adoqrycourse.active:=false ;
     Adoqrycourse.active:=true ;
end;

end.