insertoptioncourse.pas

中学考试管理系统 采用智能管理 具有统计分析的能力

unit insertOptionCourse;

interface

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

type
  TForm16 = class(TForm)
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    ADOConnection1: TADOConnection;
    courseQry: TADOQuery;
    optionTb: TADOTable;
    DataSource1: TDataSource;
    numEd: TEdit;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DataSource2: TDataSource;
    markEd: TEdit;
    cNumCB: TComboBox;
    Button1: TButton;
    DBGrid2: TDBGrid;
    DBNavigator1: TDBNavigator;
    DBNavigator2: TDBNavigator;
    scTb: TADOTable;
    insertQry: TADOQuery;
    Button3: TButton;
    Button2: TButton;
    Button4: TButton;
    cNameCB: TComboBox;
    Label3: TLabel;
    cond: TComboBox;
    Label5: TLabel;
    Label6: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure cNumCBChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure condChange(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form16: TForm16;

implementation

uses main, logout;

{$R *.dfm}

procedure TForm16.FormShow(Sender: TObject);
var
i:integer;
cNum,cName:String;
begin
  scTb.Active;
  optionTb.Active;
  i:=1;
  courseQry.Close;
  courseQry.SQL.Clear;
  courseQry.SQL.Add('select distinct 课程号, 课程名 from option_course');
  courseQry.Open;
  courseQry.First;
  while(i<=courseQry.RecordCount) do
    begin
      cNum:=courseQry.Fields[0].AsString;
      cName:=courseQry.Fields[1].AsString;
      if(i=1) then
        begin
          cNumCB.Clear;
          cNameCB.Clear;
          cNameCB.Text:=courseQry.Fields[1].AsString;
          cNumCB.Text:=courseQry.Fields[0].AsString;
        end;
       cNumCB.Items.Add(cNum);
       cNameCB.Items.Add(cName);
       courseQry.Next;
       i:=i+1;
       cNameCB.Enabled:=false;
    end;
end;

procedure TForm16.Button2Click(Sender: TObject);
begin
  Form16.Hide;
  Form2.show;
end;

procedure TForm16.Button3Click(Sender: TObject);
begin
  Form16.Hide;
  Form14.show;
end;

procedure TForm16.cNumCBChange(Sender: TObject);
var
i:integer;
begin
  i:=cNumCB.ItemIndex;
  cNameCB.ItemIndex:=i;
end;

procedure TForm16.Button1Click(Sender: TObject);
begin
  if(length(numEd.Text)<8) then showMessage('请输入8位有效学号');
    begin
      insertQry.Close;
      insertQry.SQL.Clear;
      insertQry.SQL.Add('select * from student where 学号='''+numEd.Text+'''');
      insertQry.Open;
      if(insertQry.Eof) then
        showMessage('你输入的学号不存在，请重新输入')
      else
        begin
          insertQry.Close;
          insertQry.SQL.Clear;

          if (cond.Text='插入选课新记录') then
            begin
              if(length(markEd.Text)>0) then
                begin
                  insertQry.SQL.Add('insert into sc values('''+numEd.Text+''','''+cNumCB.Text+''','+markEd.Text+')');
                  insertQry.ExecSQL;
                end
              else if(length(markEd.Text)=0) then
                begin
                  insertQry.SQL.Add('insert into sc (学号, 课程号) values('''+numEd.Text+''','''+cNumCB.Text+''')') ;
                 // showMessage(insertQry.SQL.Text);
                  insertQry.ExecSQL;
                end
            end
          else if (cond.Text='仅输入选课成绩') then
            begin
              if(length(markEd.Text)>0) then
                begin
                  insertQry.SQL.Add('update sc set 分数='+markEd.Text+' where 学号='''+numEd.Text+'''');
                  //showMessage(insertQry.SQL.Text);
                  insertQry.ExecSQL;
                end
              else if(length(markEd.Text)=0) then
                showMessage('请先输入该同学的学号');
             end;
          
          scTb.Active:=false;
          scTb.Active:=true;
        end;
     end;
end;

procedure TForm16.condChange(Sender: TObject);
begin
  if(cond.Text='插入选课新记录') then
    begin
      cNumCB.Enabled:=true;
      Label2.Enabled:=true;

    end
  else if(cond.Text='仅输入选课成绩') then
    begin
       cNumCB.Enabled:=false;
       Label2.Enabled:=false;
    end;
end;

procedure TForm16.Button4Click(Sender: TObject);
begin
  numEd.Clear;
  markEd.Clear;
end;

end.