courseinfo.pas

delphi 学生选课系统的实现 附有sql 语句

unit CourseInfo;

interface

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

type
  TCourseInfoForm = class(TForm)
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Label11: TLabel;
    Edit8: TEdit;
    RadioGroup1: TRadioGroup;
    Label12: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Edit9: TEdit;
    Edit10: TEdit;
    procedure OnShow(Sender: TObject);
    procedure OnHide(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure OnCellClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CourseInfoForm: TCourseInfoForm;

implementation

uses DataModule;

{$R *.dfm}

procedure TCourseInfoForm.OnShow(Sender: TObject);
begin
  with DataModuleForm.A_Adm_C_Display do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 课程详细信息');
    Open;
  end
end;

procedure TCourseInfoForm.OnHide(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  Edit5.Text := '';
  Edit6.Text := '';
  Edit7.Text := '';
  Edit8.Text := '';
  Edit9.Text := '';
  Edit10.Text := '';
  ComboBox1.Text := '';
  RadioGroup1.ItemIndex := 0;
  Button1.Enabled := true;
  Button2.Enabled := false;
  Button3.Enabled := false;
  Button4.Enabled := false;
end;

procedure TCourseInfoForm.RadioGroup1Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex = 0 then
  begin
    Button1.Enabled := true;
    Button2.Enabled := false;
    Button3.Enabled := false;
    Button4.Enabled := false;
    Edit1.Enabled := true;
    Edit2.Enabled := true;
    Edit3.Enabled := true;
    Edit4.Enabled := true;
    Edit5.Enabled := true;
    Edit6.Enabled := true;
    Edit7.Enabled := true;
    Edit8.Enabled := true;
    Edit9.Enabled := true;
    Edit10.Enabled := true;
    ComboBox1.Enabled := true;
    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit4.Text := '';
    Edit5.Text := '';
    Edit6.Text := '';
    Edit7.Text := '';
    Edit8.Text := '';
    Edit9.Text := '';
    Edit10.Text := '';
    ComboBox1.Text := '';
  end
  else if RadioGroup1.ItemIndex = 1 then
  begin
    Button1.Enabled := false;
    Button2.Enabled := true;
    Button3.Enabled := false;
    Button4.Enabled := false;
    Edit1.Enabled := true;
    Edit2.Enabled := true;
    Edit3.Enabled := true;
    Edit4.Enabled := true;
    Edit5.Enabled := true;
    Edit6.Enabled := true;
    Edit7.Enabled := true;
    Edit8.Enabled := true;
    Edit9.Enabled := true;
    Edit10.Enabled := true;
    ComboBox1.Enabled := true;
    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit4.Text := '';
    Edit5.Text := '';
    Edit6.Text := '';
    Edit7.Text := '';
    Edit8.Text := '';
    Edit9.Text := '';
    Edit10.Text := '';
    ComboBox1.Text := '';
  end
  else if RadioGroup1.ItemIndex = 2 then
  begin
    Button1.Enabled := false;
    Button2.Enabled := false;
    Button3.Enabled := true;
    Button4.Enabled := false;
    Edit1.Enabled := false;
    Edit2.Enabled := false;
    Edit3.Enabled := true;
    Edit4.Enabled := true;
    Edit5.Enabled := true;
    Edit6.Enabled := true;
    Edit7.Enabled := true;
    Edit8.Enabled := true;
    Edit9.Enabled := true;
    Edit10.Enabled := true;
    ComboBox1.Enabled := true;
    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit4.Text := '';
    Edit5.Text := '';
    Edit6.Text := '';
    Edit7.Text := '';
    Edit8.Text := '';
    Edit9.Text := '';
    Edit10.Text := '';
    ComboBox1.Text := '';
  end
  else if RadioGroup1.ItemIndex = 3 then
  begin
    Button1.Enabled := false;
    Button2.Enabled := false;
    Button3.Enabled := false;
    Button4.Enabled := true;
    Edit1.Enabled := false;
    Edit2.Enabled := false;
    Edit3.Enabled := false;
    Edit4.Enabled := false;
    Edit5.Enabled := false;
    Edit6.Enabled := false;
    Edit7.Enabled := false;
    Edit8.Enabled := false;
    Edit9.Enabled := false;
    Edit10.Enabled := false;
    ComboBox1.Enabled := false;
    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit4.Text := '';
    Edit5.Text := '';
    Edit6.Text := '';
    Edit7.Text := '';
    Edit8.Text := '';
    Edit9.Text := '';
    Edit10.Text := '';
    ComboBox1.Text := '';
  end
end;

procedure TCourseInfoForm.Button5Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  Edit5.Text := '';
  Edit6.Text := '';
  Edit7.Text := '';
  Edit8.Text := '';
  Edit9.Text := '';
  Edit10.Text := '';
  ComboBox1.Text := '';
end;

procedure TCourseInfoForm.OnCellClick(Column: TColumn);
begin
    Edit1.Text := trim(DataModuleForm.A_Adm_C_Display.FieldByName('课程号').AsString);
    Edit2.Text := trim(DataModuleForm.A_Adm_C_Display.FieldByName('课序号').AsString);
    Edit3.Text := trim(DataModuleForm.A_Adm_C_Display.FieldByName('课程名').AsString);
    Edit4.Text := trim(DataModuleForm.A_Adm_C_Display.FieldByName('任课教师').AsString);
    Edit5.Text := trim(DataModuleForm.A_Adm_C_Display.FieldByName('教师编号').AsString);
    Edit6.Text := trim(DataModuleForm.A_Adm_C_Display.FieldByName('开课学院').AsString);
    Edit7.Text := trim(DataModuleForm.A_Adm_C_Display.FieldByName('学分').AsString);
    ComboBox1.Text := trim(DataModuleForm.A_Adm_C_Display.FieldByName('考试类型').AsString);
    Edit8.Text := trim(DataModuleForm.A_Adm_C_Display.FieldByName('上课周次').AsString);
    Edit9.Text := trim(DataModuleForm.A_Adm_C_Display.FieldByName('上课时间').AsString);
    Edit10.Text := trim(DataModuleForm.A_Adm_C_Display.FieldByName('上课地点').AsString);
end;

procedure TCourseInfoForm.Button1Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_C_Display do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 课程详细信息 where 1 = 1');
    if Edit1.Text <> '' then
    begin
      SQL.Add('and 课程号 = '+''''+Edit1.Text+'''');
    end;
    if Edit2.Text <> '' then
    begin
      SQL.Add('and 课序号 = '+''''+Edit2.Text+'''');
    end;
    if Edit3.Text <> '' then
    begin
      SQL.Add('and 课程名 = '+''''+Edit3.Text+'''');
    end;
    if Edit4.Text <> '' then
    begin
      SQL.Add('and 任课教师 = '+''''+Edit4.Text+'''');
    end;
    if Edit5.Text <> '' then
    begin
      SQL.Add('and 教师编号 = '+''''+Edit5.Text+'''');
    end;
    if Edit6.Text <> '' then
    begin
      SQL.Add('and 开课学院 = '+''''+Edit6.Text+'''');
    end;
    if Edit7.Text <> '' then
    begin
      SQL.Add('and 学分 = '+''''+Edit7.Text+'''');
    end;
    if Edit8.Text <> '' then
    begin
      SQL.Add('and 上课周次 = '+''''+Edit8.Text+'''');
    end;
    if Edit9.Text <> '' then
    begin
      SQL.Add('and 上课时间 = '+''''+Edit9.Text+'''');
    end;
    if Edit10.Text <> '' then
    begin
      SQL.Add('and 上课地点 = '+''''+Edit10.Text+'''');
    end;
    if ComboBox1.Text <> '' then
    begin
      SQL.Add('and 考试类型 = '+''''+ComboBox1.Text+'''');
    end;
//    Application.MessageBox(SQL.GetText,'信息',MB_OK);
    Open;
  end
end;

procedure TCourseInfoForm.Button2Click(Sender: TObject);
begin
  if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '')and(Edit4.Text <> '')
     and(Edit5.Text <> '')and(Edit6.Text <> '')and(Edit7.Text <> '')and(Edit8.Text <> '')
     and(Edit9.Text <> '')and(Edit10.Text <> '')and(ComboBox1.Text <> '') then
  begin
    with DataModuleForm.A_Adm_C do
    begin
      Close;
      SQL.Clear;
      SQL.Add('insert into 课程详细信息 values(');
      SQL.Add(''''+Edit3.Text+''''+',');
      SQL.Add(''''+Edit1.Text+''''+',');
      SQL.Add(''''+Edit2.Text+''''+',');
      SQL.Add(''''+Edit6.Text+''''+',');
      SQL.Add(''''+Edit4.Text+''''+',');
      SQL.Add(''''+Edit5.Text+''''+',');
      SQL.Add(''''+Edit7.Text+''''+',');
      SQL.Add(''''+ComboBox1.Text+''''+',');
      SQL.Add(''''+Edit8.Text+''''+',');
      SQL.Add(''''+Edit9.Text+''''+',');
      SQL.Add(''''+Edit10.Text+''''+')');
//      Application.MessageBox(SQL.GetText,'信息',MB_OK);
      ExecSQL;
      Application.MessageBox('数据添加成功！','信息',MB_OK);

      with DataModuleForm.A_Adm_C_Display do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from 课程详细信息');
        Open;
      end
    end
  end
  else
  begin
    Application.MessageBox('数据不完整，添加数据失败！','信息',MB_OK);
  end
end;

procedure TCourseInfoForm.Button3Click(Sender: TObject);
begin
  if (Edit3.Text <> '')and(Edit4.Text <> '')and(Edit5.Text <> '')
      and(Edit6.Text <> '')and(Edit7.Text <> '')and(Edit8.Text <> '')
      and(Edit9.Text <> '')and(Edit10.Text <> '')and(ComboBox1.Text <> '') then
  begin
    with DataModuleForm.A_Adm_C do
    begin
      Close;
      SQL.Clear;
      SQL.Add('update 课程详细信息 set');
      SQL.Add('课程名 ='+''''+Edit3.Text+''''+',');
      SQL.Add('开课学院 ='+''''+Edit6.Text+''''+',');
      SQL.Add('任课教师 ='+''''+Edit4.Text+''''+',');
      SQL.Add('教师编号 ='+''''+Edit5.Text+''''+',');
      SQL.Add('学分 ='+''''+Edit7.Text+''''+',');
      SQL.Add('考试类型 ='+''''+ComboBox1.Text+''''+',');
      SQL.Add('上课周次 ='+''''+Edit8.Text+''''+',');
      SQL.Add('上课时间 ='+''''+Edit9.Text+''''+',');
      SQL.Add('上课地点 ='+''''+Edit10.Text+'''');
      SQL.Add('where 课程号 = '+''''+Edit1.Text+''''+' and 课序号 = '+''''+Edit2.Text+'''');
//      Application.MessageBox(SQL.GetText,'信息',MB_OK);
      ExecSQL;
      Application.MessageBox('数据修改成功！','信息',MB_OK);

      with DataModuleForm.A_Adm_C_Display do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from 课程详细信息');
        Open;
      end
    end
  end
  else
  begin
    Application.MessageBox('数据不完整，修改数据失败！','信息',MB_OK);
  end
end;

procedure TCourseInfoForm.Button4Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_C do
  begin
    Close;
    SQL.Clear;
    SQL.Add('delete from 课程详细信息');
    SQL.Add('where 课程号 = '+''''+Edit1.Text+''''+' and 课序号 = '+''''+Edit2.Text+'''');
    ExecSQL;
    Application.MessageBox('数据删除成功！','信息',MB_OK);
    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit4.Text := '';
    Edit5.Text := '';
    Edit6.Text := '';
    Edit7.Text := '';
    Edit8.Text := '';
    Edit9.Text := '';
    Edit10.Text := '';
    ComboBox1.Text := '';
//////////////更新
    with DataModuleForm.A_Adm_C_Display do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 课程详细信息');
      Open;
    end
  end
end;

end.