modifyoptionmark.pas

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

unit modifyOptionMark;

interface

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

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

var
  Form17: TForm17;

implementation

uses main, logout;

{$R *.dfm}

procedure TForm17.Button1Click(Sender: TObject);
begin
  Form17.Hide;
  Form2.show;
end;

procedure TForm17.Button2Click(Sender: TObject);
begin
  Form17.Hide;
  Form14.show;
end;

procedure TForm17.FormShow(Sender: TObject);
 var
i:integer;
cNum,cName:String;
begin
  scTb.Active:=false;
  scTb.Active:=true;
  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;

       Label1.Enabled:=true;
       numEd.Enabled:=true;
       Label3.Enabled:=false;
       cNumCB.Enabled:=false;
       Label4.Enabled:=false;
       cNameCB.Enabled:=false;

       DataSource1.DataSet:=scTb;
    end;
end;

procedure TForm17.condChange(Sender: TObject);
begin
  if(cond.Text='按学号修改') then
    begin
      Label1.Enabled:=true;
      numEd.Enabled:=true;
      Label3.Enabled:=false;
      cNumCB.Enabled:=false;
      Label4.Enabled:=false;
      cNameCB.Enabled:=false;
    end
  else if (cond.Text='按课程号修改') then
    begin
      Label1.Enabled:=false;
      numEd.Enabled:=false;
      Label3.Enabled:=true;
      cNumCB.Enabled:=true;
      Label4.Enabled:=false;
      cNameCB.Enabled:=false;
    end ;

end;

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

procedure TForm17.Button3Click(Sender: TObject);
begin
  if(cond.Text='按学号修改') then
    begin
      modifyQry.Close;
      modifyQry.SQL.Clear;
      modifyQry.SQL.Add('select * from sc where 学号='''+numEd.Text+'''');
      modifyQry.Open;
      DataSource1.DataSet:=modifyQry;
    end
  else if(cond.Text='按课程号修改') then
    begin
      modifyQry.Close;
      modifyQry.SQL.Clear;
      modifyQry.SQL.Add('select * from sc where 课程号='''+cNumCB.Text+'''');
      modifyQry.Open;
      DataSource1.DataSet:=modifyQry;
    end;
end;

procedure TForm17.Button5Click(Sender: TObject);
begin
   if(cond.Text='按学号修改') then
    begin
      modifyQry.Close;
      modifyQry.SQL.Clear;
      modifyQry.SQL.Add('update sc set 分数='+markEd.Text+' where 学号='''+numEd.Text+'''') ;
      modifyQry.ExecSQL;
      modifyQry.Close;
      modifyQry.SQL.Clear;
      modifyQry.SQL.Add('select * from sc where 学号='''+numEd.Text+'''');
      modifyQry.Open;
      DataSource1.DataSet:=modifyQry;
      optionTb.Active:=false;
      optionTb.Active:=true;
    end
    else if(cond.Text='按课程号修改') then
    begin
      modifyQry.Close;
      modifyQry.SQL.Clear;
      modifyQry.SQL.Add('update sc set 分数='+markEd.Text+' where 学号='''+numEd.Text+'''') ;
      modifyQry.ExecSQL;
      modifyQry.Close;
      modifyQry.SQL.Clear;
      modifyQry.SQL.Add('select * from sc where 课程号='''+cNumCB.Text+'''');
      modifyQry.Open;
      DataSource1.DataSet:=modifyQry;
      optionTb.Active:=false;
      optionTb.Active:=true;
    end;
end;

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

end.