collegeinfo.~pas

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

unit CollegeInfo;

interface

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

type
  TCollegeInfoForm = class(TForm)
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    DBGrid2: TDBGrid;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    RadioGroup2: TRadioGroup;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    procedure OnShow(Sender: TObject);
    procedure OnHide(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure OnCellClick1(Column: TColumn);
    procedure OnCellClick2(Column: TColumn);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CollegeInfoForm: TCollegeInfoForm;

implementation

uses DataModule;

{$R *.dfm}

procedure TCollegeInfoForm.OnShow(Sender: TObject);
begin
  with DataModuleForm.A_Adm_A_Display  do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 学院信息');
    Open;
  end;
  with DataModuleForm.A_Adm_B_Display  do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 专业信息');
    Open;
  end;
end;

procedure TCollegeInfoForm.OnHide(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  Edit5.Text := '';
  Button1.Enabled := true;
  Button2.Enabled := false;
  Button3.Enabled := false;
  Button4.Enabled := true;
  Button5.Enabled := true;
  Button6.Enabled := false;
  Button7.Enabled := false;
  Button8.Enabled := true;
  RadioGroup1.ItemIndex := 0;
  RadioGroup2.ItemIndex := 0;
end;

procedure TCollegeInfoForm.RadioGroup1Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex = 0 then
  begin
    Edit1.Text := '';
    Edit2.Text := '';
    Edit1.Enabled := true;
    Edit2.Enabled := true;
    Button1.Enabled := true;
    Button2.Enabled := false;
    Button3.Enabled := false;
  end
  else if RadioGroup1.ItemIndex = 1 then
  begin
    Edit1.Text := '';
    Edit2.Text := '';
    Edit1.Enabled := true;
    Edit2.Enabled := true;
    Button1.Enabled := false;
    Button2.Enabled := true;
    Button3.Enabled := false;
  end
  else if RadioGroup1.ItemIndex = 2 then
  begin
    Edit1.Text := '';
    Edit2.Text := '';
    Edit1.Enabled := false;
    Edit2.Enabled := false;
    Button1.Enabled := false;
    Button2.Enabled := false;
    Button3.Enabled := true;
  end
end;

procedure TCollegeInfoForm.RadioGroup2Click(Sender: TObject);
begin
  if RadioGroup2.ItemIndex = 0 then
  begin
    Edit3.Text := '';
    Edit4.Text := '';
    Edit5.Text := '';
    Edit3.Enabled := true;
    Edit4.Enabled := true;
    Edit5.Enabled := true;
    Button5.Enabled := true;
    Button6.Enabled := false;
    Button7.Enabled := false;
  end
  else if RadioGroup2.ItemIndex = 1 then
  begin
    Edit3.Text := '';
    Edit4.Text := '';
    Edit5.Text := '';
    Edit3.Enabled := true;
    Edit4.Enabled := true;
    Edit5.Enabled := true;
    Button5.Enabled := false;
    Button6.Enabled := true;
    Button7.Enabled := false;
  end
  else if RadioGroup2.ItemIndex = 2 then
  begin
    Edit3.Text := '';
    Edit4.Text := '';
    Edit5.Text := '';
    Edit3.Enabled := false;
    Edit4.Enabled := false;
    Edit5.Enabled := false;
    Button5.Enabled := false;
    Button6.Enabled := false;
    Button7.Enabled := true;
  end
end;

procedure TCollegeInfoForm.Button8Click(Sender: TObject);
begin
    Edit3.Text := '';
    Edit4.Text := '';
    Edit5.Text := '';
end;

procedure TCollegeInfoForm.Button4Click(Sender: TObject);
begin
    Edit1.Text := '';
    Edit2.Text := '';
end;

procedure TCollegeInfoForm.OnCellClick1(Column: TColumn);
begin
  Edit1.Text := trim(DataModuleForm.A_Adm_A_Display.FieldByName('学院编号').AsString);
  Edit2.Text := trim(DataModuleForm.A_Adm_A_Display.FieldByName('学院名称').AsString);
end;

procedure TCollegeInfoForm.OnCellClick2(Column: TColumn);
begin
  Edit3.Text := trim(DataModuleForm.A_Adm_B_Display.FieldByName('专业编号').AsString);
  Edit4.Text := trim(DataModuleForm.A_Adm_B_Display.FieldByName('专业名称').AsString);
  Edit5.Text := trim(DataModuleForm.A_Adm_B_Display.FieldByName('所属学院').AsString);
end;

procedure TCollegeInfoForm.Button1Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_A_Display 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+'''');
//    Application.MessageBox(SQL.GetText,'信息',MB_OK);
    Open;
  end
end;

procedure TCollegeInfoForm.Button5Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_B_Display do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 专业信息 where 1=1');
    if Edit3.Text <> '' then
      SQL.Add('and 专业编号 = '+''''+Edit3.Text+'''');
    if Edit4.Text <> '' then
      SQL.Add('and 专业名称 = '+''''+Edit4.Text+'''');
    if Edit5.Text <> '' then
      SQL.Add('and 所属学院 = '+''''+Edit5.Text+'''');
//    Application.MessageBox(SQL.GetText,'信息',MB_OK);
    Open;
  end
end;

procedure TCollegeInfoForm.Button2Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_A do
  begin
    Close;
    SQL.Clear;
    if (Edit1.Text <> '')and(Edit2.Text <> '') then
    begin
      SQL.Add('insert into 学院信息');
      SQL.Add('values('+''''+Edit1.Text+''''+','+''''+Edit2.Text+''''+')');
      ExecSQL;
      Application.MessageBox('数据添加成功！','信息',MB_OK);

      with DataModuleForm.A_Adm_A_Display do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from 学院信息');
        Open;
      end
    end
    else
    begin
      Application.MessageBox('信息不全，添加失败！','信息',MB_OK);
    end;
  end
end;

procedure TCollegeInfoForm.Button6Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_B do
  begin
    Close;
    SQL.Clear;
    if (Edit3.Text <> '')and(Edit4.Text <> '')and(Edit5.Text <> '') then
    begin
      SQL.Add('insert into 专业信息');
      SQL.Add('values('+''''+Edit3.Text+''''+','+''''+Edit4.Text+''''+','+''''+Edit5.Text+''''+')');
      ExecSQL;
      Application.MessageBox('数据添加成功！','信息',MB_OK);

      with DataModuleForm.A_Adm_B_Display do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from 专业信息');
        Open;
      end
    end
    else
    begin
      Application.MessageBox('信息不全，添加失败！','信息',MB_OK);
    end;
  end
end;

procedure TCollegeInfoForm.Button3Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_A do
  begin
    Close;
    SQL.Clear;
    SQL.Add('delete from 学院信息');
    SQL.Add('where 学院编号 = '+''''+Edit1.Text+'''');
    ExecSQL;
    Application.MessageBox('数据删除成功！','信息',MB_OK);
    Edit1.Text := '';
    Edit2.Text := '';

    with DataModuleForm.A_Adm_A_Display do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 学院信息');
      Open;
    end
  end
end;

procedure TCollegeInfoForm.Button7Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_B do
  begin
    Close;
    SQL.Clear;
    SQL.Add('delete from 专业信息');
    SQL.Add('where 专业编号 = '+''''+Edit3.Text+'''');
    ExecSQL;
    Application.MessageBox('数据删除成功！','信息',MB_OK);
    Edit3.Text := '';
    Edit4.Text := '';
    Edit5.Text := '';

    with DataModuleForm.A_Adm_B_Display do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 专业信息');
      Open;
    end
  end
end;

end.