studentcoursinfo.pas

来自「delphi 学生选课系统的实现 附有sql 语句」· PAS 代码 · 共 263 行

unit StudentCoursInfo;

interface

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

type
  TStudentCoursInfoForm = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    RadioGroup1: TRadioGroup;
    Button4: TButton;
    Button5: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    Label16: TLabel;
    Label15: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure OnShow(Sender: TObject);
    procedure OnCellClick(Column: TColumn);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure OnHide(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  StudentCoursInfoForm: TStudentCoursInfoForm;

implementation

uses DataModule;

{$R *.dfm}

procedure TStudentCoursInfoForm.RadioGroup1Click(Sender: TObject);
begin
    if RadioGroup1.ItemIndex = 0 then
    begin
      Button3.Enabled := true;
      Button1.Enabled := false;
      Button4.Enabled := false;
      Button5.Enabled := false;
      Edit1.Enabled := true;
      Edit2.Enabled := true;
      Edit3.Enabled := true;
      Edit4.Enabled := true;
      Edit1.Text := '';
      Edit2.Text := '';
      Edit3.Text := '';
      Edit4.Text := '';
    end
    else if RadioGroup1.ItemIndex = 1 then
    begin
      Button3.Enabled := false;
      Button1.Enabled := true;
      Button4.Enabled := false;
      Button5.Enabled := false;
      Edit1.Enabled := true;
      Edit2.Enabled := true;
      Edit3.Enabled := true;
      Edit4.Enabled := true;
      Edit1.Text := '';
      Edit2.Text := '';
      Edit3.Text := '';
      Edit4.Text := '';
    end
    else if RadioGroup1.ItemIndex = 2 then
    begin
      Button3.Enabled := false;
      Button1.Enabled := false;
      Button4.Enabled := true;
      Button5.Enabled := false;
      Edit1.Enabled := false;
      Edit2.Enabled := false;
      Edit3.Enabled := false;
      Edit4.Enabled := true;
      Edit1.Text := '';
      Edit2.Text := '';
      Edit3.Text := '';
      Edit4.Text := '';
    end
    else if RadioGroup1.ItemIndex = 3 then
    begin
      Button3.Enabled := false;
      Button1.Enabled := false;
      Button4.Enabled := false;
      Button5.Enabled := true;
      Edit1.Enabled := false;
      Edit2.Enabled := false;
      Edit3.Enabled := false;
      Edit4.Enabled := false;
      Edit1.Text := '';
      Edit2.Text := '';
      Edit3.Text := '';
      Edit4.Text := '';
    end
end;

procedure TStudentCoursInfoForm.Button2Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
end;

procedure TStudentCoursInfoForm.OnShow(Sender: TObject);
begin
  with DataModuleForm.A_Adm_Course do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 学生选课信息');
    Open;
  end
end;

procedure TStudentCoursInfoForm.OnCellClick(Column: TColumn);
begin
  Edit1.Text := trim(DataModuleForm.A_Adm_Course.FieldByName('学号').AsString);
  Edit2.Text := trim(DataModuleForm.A_Adm_Course.FieldByName('课程号').AsString);
  Edit3.Text := trim(DataModuleForm.A_Adm_Course.FieldByName('课序号').AsString);
  Edit4.Text := trim(DataModuleForm.A_Adm_Course.FieldByName('成绩').AsString);
end;

procedure TStudentCoursInfoForm.Button3Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_Course do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 学生选课信息 where 1=1');
    if Edit1.Text <> '' then
      SQL.Add('and 学号 = '+''''+Edit1.Text+'''');
    if Edit2.Text <> '' then
      SQL.Add('and 课程号 = '+''''+Edit2.Text+'''');
    if Edit3.Text <> '' then
      SQL.Add('and 课序号 = '+''''+Edit3.Text+'''');
    if Edit4.Text <> '' then
      SQL.Add('and 成绩 = '+''''+Edit4.Text+'''');
//    Application.MessageBox(SQL.GetText,'信息',MB_OK);
    Open;
  end
end;

procedure TStudentCoursInfoForm.Button1Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_IorD do
  begin
    Close;
    SQL.Clear;
    SQL.Add('insert into 学生选课信息');
    SQL.Add('values('+''''+Edit1.Text+''''+','+''''+Edit2.Text+''''+','+
            ''''+Edit3.Text+''''+',');
    if Edit4.Text = '' then
      SQL.Add('NULL'+')')
    else
      SQL.Add(Edit4.Text+')');
    ExecSQL;
    Application.MessageBox('数据添加成功！','信息',MB_OK);

    with DataModuleForm.A_Adm_Course do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 学生选课信息');
      Open;
    end
  end
end;

procedure TStudentCoursInfoForm.Button4Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_IorD do
  begin
    if Edit4.Text <> '' then
    begin
      Close;
      SQL.Clear;
      SQL.Add('update 学生选课信息');
      SQL.Add('set 成绩 = '+Edit4.Text);
      SQL.Add('where 学号 = '+''''+Edit1.Text+''''+'and 课程号 = '+''''+Edit2.Text+'''');
//      Application.MessageBox(SQL.GetText,'信息',MB_OK);
      ExecSQL;
      Application.MessageBox('成绩修改成功！','信息',MB_OK);

      with DataModuleForm.A_Adm_Course do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from 学生选课信息');
        Open;
      end
    end
    else
    begin
      Application.MessageBox('成绩不能为空！','信息',MB_OK);
    end
  end
end;

procedure TStudentCoursInfoForm.Button5Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_IorD do
  begin
    Close;
    SQL.Clear;
    SQL.Add('delete from 学生选课信息');
    SQL.Add('where 学号 = '+''''+Edit1.Text+''''+
            'and 课程号 = '+''''+Edit2.Text+'''');
//    Application.MessageBox(SQL.GetText,'信息',MB_OK);
    ExecSQL;
    Application.MessageBox('数据删除成功！','信息',MB_OK);
    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit4.Text := '';

    with DataModuleForm.A_Adm_Course do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 学生选课信息');
      Open;
    end
  end
end;

procedure TStudentCoursInfoForm.OnHide(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  RadioGroup1.ItemIndex := 0;
  Button3.Enabled := true;
  Button1.Enabled := false;
  Button4.Enabled := false;
  Button5.Enabled := false;

end;

end.