userinfo.pas

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

unit UserInfo;

interface

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

type
  TUserInfoForm = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit7: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label9: TLabel;
    Label12: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Label10: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Memo1: TMemo;
    Button3: TButton;
    Button4: TButton;
    RadioGroup1: TRadioGroup;
    Button5: TButton;
    procedure OnShow(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure OnCellClick(Column: TColumn);
    procedure Button4Click(Sender: TObject);
    procedure OnClick(Sender: TObject);
    procedure OnHide(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserInfoForm: TUserInfoForm;

implementation

uses DataModule;

{$R *.dfm}

procedure TUserInfoForm.OnShow(Sender: TObject);
begin
  ComboBox1.Text := '学生';
  with DataModuleForm.A_Adm_Query do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select 学院名称 from 学院信息');
    Open;
    if recordcount > 0 then
    begin
      First;
      while not Eof do
      begin
        ComboBox3.Items.Add(trim(FieldByName('学院名称').AsString));
        Next;
      end;
    end;
  end;
/////////////////
  with DataModuleForm.A_Adm_Display do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 学生基础信息');
    Open;
  end
end;

procedure TUserInfoForm.ComboBox3Change(Sender: TObject);
begin
  with DataModuleForm.A_Adm_Query do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select distinct 专业名称 from 专业信息');
    SQL.Add('where 所属学院 = '+''''+ComboBox3.Text+'''');
    Open;
    ComboBox4.Clear;
    ComboBox4.Text := '';
    if recordcount > 0 then
    begin
      First;
      while not Eof do
      begin
        ComboBox4.Items.Add(trim(FieldByName('专业名称').AsString));
        Next;
      end;
    end;
  end
end;

procedure TUserInfoForm.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.Text = '教师' then
  begin
    Label1.Caption := '工号';
    ComboBox4.Enabled := false;
    if RadioGroup1.ItemIndex = 3 then
      ComboBox3.Enabled := false
    else
      ComboBox3.Enabled := true;

    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit7.Text := '';
    Memo1.Text := '';
    ComboBox2.Text := '';
    ComboBox3.Text := '';
    ComboBox4.Text := '';
    with DataModuleForm.A_Adm_Display do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 教师基础信息');
      Open;
    end
  end
  else if ComboBox1.Text = '管理员' then
  begin
    Label1.Caption := '编号';
    ComboBox3.Enabled := false;
    ComboBox4.Enabled := false;
    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit7.Text := '';
    Memo1.Text := '';
    ComboBox2.Text := '';
    ComboBox3.Text := '';
    ComboBox4.Text := '';
    with DataModuleForm.A_Adm_Display do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 管理员信息');
      Open;
    end
  end
  else
  begin
    Label1.Caption := '学号';
    if RadioGroup1.ItemIndex = 3 then
    begin
      ComboBox3.Enabled := false;
      ComboBox4.Enabled := false;
    end
    else
    begin
      ComboBox3.Enabled := true;
      ComboBox4.Enabled := true;
    end;
    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit7.Text := '';
    Memo1.Text := '';
    ComboBox2.Text := '';
    ComboBox3.Text := '';
    ComboBox4.Text := '';
    with DataModuleForm.A_Adm_Display do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 学生基础信息');
      Open;
    end
  end;
end;

procedure TUserInfoForm.Button2Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit7.Text := '';
  Memo1.Text := '';
  ComboBox2.Text := '';
  ComboBox3.Text := '';
  ComboBox4.Text := '';
end;

procedure TUserInfoForm.Button3Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_Display do
  begin
    Close;
    SQL.Clear;
    if ComboBox1.Text = '学生' then
    begin
      SQL.Add('select * from 学生基础信息 where 1 = 1');
      if Edit1.Text <> '' then
      begin
        SQL.Add('and 学号 = '+''''+Edit1.Text+'''');
      end;
      if ComboBox3.Text <> '' then
      begin
        SQL.Add('and 学院 = '+''''+ComboBox3.Text+'''');
      end;
      if ComboBox4.Text <> '' then
      begin
        SQL.Add('and 专业 = '+''''+ComboBox4.Text+'''');
      end;
    end
    else if ComboBox1.Text = '教师' then
    begin
      SQL.Add('select * from 教师基础信息 where 1 = 1');
      if Edit1.Text <> '' then
      begin
        SQL.Add('and 工号 = '+''''+Edit1.Text+'''');
      end;
      if ComboBox3.Text <> '' then
      begin
        SQL.Add('and 学院 = '+''''+ComboBox3.Text+'''');
      end;
    end
    else if ComboBox1.Text = '管理员' then
    begin
      SQL.Add('select * from 管理员信息 where 1 = 1');
      if Edit1.Text <> '' then
      begin
        SQL.Add('and 编号 = '+''''+Edit1.Text+'''');
      end;
    end;
    if Edit2.Text <> '' then
    begin
      SQL.Add('and 口令 = '+''''+Edit2.Text+'''');
    end;
    if Edit3.Text <> '' then
    begin
      SQL.Add('and 姓名 = '+''''+Edit3.Text+'''');
    end;
    if ComboBox2.Text <> '' then
    begin
      SQL.Add('and 性别 = '+''''+ComboBox2.Text+'''');
    end;
    if Edit7.Text <> '' then
    begin
      SQL.Add('and 联系电话 = '+''''+Edit7.Text+'''');
    end;
//    Application.MessageBox(SQL.GetText,'信息',MB_OK);
    Open;
  end
end;

procedure TUserInfoForm.Button1Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_IorD do
  begin
    Close;
    SQL.Clear;
    if ComboBox1.Text = '学生' then
    begin
      if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '')
          and(ComboBox2.Text <> '')and(ComboBox3.Text <> '')and(ComboBox4.Text <> '') then
      begin
        SQL.Add('insert into 学生基础信息');
        SQL.Add('values('+Edit1.Text+','+''''+Edit2.Text+''''+','+''''+Edit3.Text+''''+','+
                ''''+ComboBox2.Text+''''+','+''''+ComboBox3.Text+''''+','+''''+ComboBox4.Text+''''+','+
                ''''+Edit7.Text+''''+','+''''+Memo1.Text+''''+')');
        Application.MessageBox(SQL.GetText,'信息',MB_OK);
        ExecSQL;
        Application.MessageBox('数据插入成功！','信息',MB_OK);
        //刷新表
        with DataModuleForm.A_Adm_Display do
        begin
          Close;
          SQL.Clear;
          SQL.Add('select * from 学生基础信息');
          Open;
        end
      end
      else
      begin
        Application.MessageBox('数据不足，添加失败！','错误',MB_OK);
      end
    end
    else if ComboBox1.Text = '教师' then
    begin
      if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '')
          and(ComboBox2.Text <> '')and(ComboBox3.Text <> '') then
      begin
        SQL.Add('insert into 教师基础信息');
        SQL.Add('values('+Edit1.Text+','+''''+Edit2.Text+''''+','+''''+Edit3.Text+''''+','+
                ''''+ComboBox2.Text+''''+','+''''+ComboBox3.Text+''''+','+''''+Edit7.Text+''''+','+''''+Memo1.Text+''''+')');
 //       Application.MessageBox(SQL.GetText,'信息',MB_OK);
        ExecSQL;
        Application.MessageBox('数据插入成功！','信息',MB_OK);
        //刷新表
        with DataModuleForm.A_Adm_Display do
        begin
          Close;
          SQL.Clear;
          SQL.Add('select * from 教师基础信息');
          Open;
        end
      end
      else
      begin
        Application.MessageBox('数据不足，添加失败！','错误',MB_OK);
      end
    end
    else if ComboBox1.Text = '管理员' then
    begin
      if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '')
          and(ComboBox2.Text <> '') then
      begin
        SQL.Add('insert into 管理员信息');
        SQL.Add('values('+Edit1.Text+','+''''+Edit2.Text+''''+','+''''+Edit3.Text+''''+','+
                ''''+ComboBox2.Text+''''+','+''''+Edit7.Text+''''+','+''''+Memo1.Text+''''+')');
//        Application.MessageBox(SQL.GetText,'信息',MB_OK);
        ExecSQL;
        Application.MessageBox('数据插入成功！','信息',MB_OK);
        //刷新表
        with DataModuleForm.A_Adm_Display do
        begin
          Close;
          SQL.Clear;
          SQL.Add('select * from 管理员信息');
          Open;
        end
      end
      else
      begin
        Application.MessageBox('数据不足，添加失败！','错误',MB_OK);
      end
    end;
  end