⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 userinfo.pas

📁 delphi 学生选课系统的实现 附有sql 语句
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
end;

procedure TUserInfoForm.OnCellClick(Column: TColumn);
begin
  if ComboBox1.Text = '学生' then
  begin
    Edit1.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('学号').AsString);
    Edit2.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('口令').AsString);
    Edit3.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('姓名').AsString);
    ComboBox2.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('性别').AsString);
    ComboBox3.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('学院').AsString);
    ComboBox4.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('专业').AsString);
    Edit7.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('联系电话').AsString);
    Memo1.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('备注').AsString);
  end
  else if ComboBox1.Text = '教师' then
  begin
    Edit1.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('工号').AsString);
    Edit2.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('口令').AsString);
    Edit3.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('姓名').AsString);
    ComboBox2.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('性别').AsString);
    ComboBox3.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('学院').AsString);
    Edit7.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('联系电话').AsString);
    Memo1.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('备注').AsString);
  end
  else if ComboBox1.Text = '管理员' then
  begin
    Edit1.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('编号').AsString);
    Edit2.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('口令').AsString);
    Edit3.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('姓名').AsString);
    ComboBox2.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('性别').AsString);
    Edit7.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('联系电话').AsString);
    Memo1.Text := trim(DataModuleForm.A_Adm_Display.FieldByName('备注').AsString);
  end;

    //Edit2.Text := DataModuleForm.A_Tea_Display.FieldByName('学号').AsString;
end;

procedure TUserInfoForm.Button4Click(Sender: TObject);
begin
  with DataModuleForm.A_Adm_IorD do
  begin
    Close;
    SQL.Clear;
    if ComboBox1.Text = '学生' then
    begin
      SQL.Add('update 学生基础信息');
      SQL.Add('set ');
      SQL.Add('口令 = '+''''+Edit2.Text+''''+',');
      SQL.Add('姓名 = '+''''+Edit3.Text+''''+',');
      SQL.Add('性别 = '+''''+ComboBox2.Text+''''+',');
      SQL.Add('学院 = '+''''+ComboBox3.Text+''''+',');
      SQL.Add('专业 = '+''''+ComboBox4.Text+''''+',');
      SQL.Add('联系电话 = '+''''+Edit7.Text+''''+',');
      SQL.Add('备注 = '+''''+Memo1.Text+'''');
      SQL.Add('where 学号 = '+''''+Edit1.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 if ComboBox1.Text = '教师' then
    begin
      SQL.Add('update 教师基础信息');
      SQL.Add('set ');
      SQL.Add('口令 = '+''''+Edit2.Text+''''+',');
      SQL.Add('姓名 = '+''''+Edit3.Text+''''+',');
      SQL.Add('性别 = '+''''+ComboBox2.Text+''''+',');
      SQL.Add('学院 = '+''''+ComboBox3.Text+''''+',');
      SQL.Add('联系电话 = '+''''+Edit7.Text+''''+',');
      SQL.Add('备注 = '+''''+Memo1.Text+'''');
      SQL.Add('where 工号 = '+''''+Edit1.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 if ComboBox1.Text = '管理员' then
    begin
      SQL.Add('update 管理员信息');
      SQL.Add('set ');
      SQL.Add('口令 = '+''''+Edit2.Text+''''+',');
      SQL.Add('姓名 = '+''''+Edit3.Text+''''+',');
      SQL.Add('性别 = '+''''+ComboBox2.Text+''''+',');
      SQL.Add('联系电话 = '+''''+Edit7.Text+''''+',');
      SQL.Add('备注 = '+''''+Memo1.Text+'''');
      SQL.Add('where 编号 = '+''''+Edit1.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
  end
end;

procedure TUserInfoForm.OnClick(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;
    Edit7.Enabled := true;
    Memo1.Enabled := true;
    ComboBox2.Enabled := true;
    ComboBox3.Enabled := true;
    ComboBox4.Enabled := true;
    if ComboBox1.Text = '教师' then
    begin
      ComboBox4.Enabled  := false;
    end
    else if ComboBox1.Text = '管理员' then
    begin
      ComboBox3.Enabled := false;
      ComboBox4.Enabled := false;
    end;

    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit7.Text := '';
    Memo1.Text := '';
    ComboBox2.Text := '';
    ComboBox3.Text := '';
    ComboBox4.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;
    Edit7.Enabled := true;
    Memo1.Enabled := true;
    ComboBox2.Enabled := true;
    ComboBox3.Enabled := true;
    ComboBox4.Enabled := true;
    if ComboBox1.Text = '教师' then
    begin
      ComboBox4.Enabled  := false;
    end
    else if ComboBox1.Text = '管理员' then
    begin
      ComboBox3.Enabled := false;
      ComboBox4.Enabled := false;
    end;

    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit7.Text := '';
    Memo1.Text := '';
    ComboBox2.Text := '';
    ComboBox3.Text := '';
    ComboBox4.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 := true;
    Edit3.Enabled := true;
    Edit7.Enabled := true;
    Memo1.Enabled := true;
    ComboBox2.Enabled := true;
    ComboBox3.Enabled := true;
    ComboBox4.Enabled := true;
    if ComboBox1.Text = '教师' then
    begin
      ComboBox4.Enabled  := false;
    end
    else if ComboBox1.Text = '管理员' then
    begin
      ComboBox3.Enabled := false;
      ComboBox4.Enabled := false;
    end;

    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit7.Text := '';
    Memo1.Text := '';
    ComboBox2.Text := '';
    ComboBox3.Text := '';
    ComboBox4.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;
    Edit7.Enabled := false;
    Memo1.Enabled := false;
    ComboBox2.Enabled := false;
    ComboBox3.Enabled := false;
    ComboBox4.Enabled := false;

    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit7.Text := '';
    Memo1.Text := '';
    ComboBox2.Text := '';
    ComboBox3.Text := '';
    ComboBox4.Text := '';
  end
end;

procedure TUserInfoForm.OnHide(Sender: TObject);
begin
  ComboBox1.Text := '学生';
  ComboBox2.Text := '';
  ComboBox3.Text := '';
  ComboBox4.Text := '';
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit7.Text := '';
  Memo1.Text := '';
  ComboBox3.Enabled := true;
  ComboBox4.Enabled := true;
  RadioGroup1.ItemIndex := 0;
  Button3.Enabled := true;
  Button1.Enabled := false;
  Button4.Enabled := false;
  Button5.Enabled := false;
end;

procedure TUserInfoForm.Button5Click(Sender: TObject);
begin
  if ComboBox1.Text = '学生' then
  begin
    with DataModuleForm.A_Adm_IorD do
    begin
      Close;
      SQL.Clear;
      SQL.Add('delete from 学生基础信息');
      SQL.Add('where 学号 = '+''''+Edit1.Text+'''');
//     Application.MessageBox(SQL.GetText,'信息',MB_OK);
      ExecSQL;
      Application.MessageBox('数据删除成功！','信息',MB_OK);
      ComboBox2.Text := '';
      ComboBox3.Text := '';
      ComboBox4.Text := '';
      Edit1.Text := '';
      Edit2.Text := '';
      Edit3.Text := '';
      Edit7.Text := '';
      Memo1.Text := '';

      with DataModuleForm.A_Adm_Display do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from 学生基础信息');
        Open;
     end
    end
  end
  else if ComboBox1.Text = '教师' then
  begin
    with DataModuleForm.A_Adm_IorD do
    begin
      Close;
      SQL.Clear;
      SQL.Add('delete from 教师基础信息');
      SQL.Add('where 工号 = '+''''+Edit1.Text+'''');
//     Application.MessageBox(SQL.GetText,'信息',MB_OK);
      ExecSQL;
      Application.MessageBox('数据删除成功！','信息',MB_OK);
      ComboBox2.Text := '';
      ComboBox3.Text := '';
      ComboBox4.Text := '';
      Edit1.Text := '';
      Edit2.Text := '';
      Edit3.Text := '';
      Edit7.Text := '';
      Memo1.Text := '';

      with DataModuleForm.A_Adm_Display do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from 教师基础信息');
        Open;
     end
    end
  end
  else if ComboBox1.Text = '管理员' then
  begin
    with DataModuleForm.A_Adm_IorD do
    begin
      Close;
      SQL.Clear;
      SQL.Add('delete from 管理员信息');
      SQL.Add('where 编号 = '+''''+Edit1.Text+'''');
//     Application.MessageBox(SQL.GetText,'信息',MB_OK);
      ExecSQL;
      Application.MessageBox('数据删除成功！','信息',MB_OK);
      ComboBox2.Text := '';
      ComboBox3.Text := '';
      ComboBox4.Text := '';
      Edit1.Text := '';
      Edit2.Text := '';
      Edit3.Text := '';
      Edit7.Text := '';
      Memo1.Text := '';

      with DataModuleForm.A_Adm_Display do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from 管理员信息');
        Open;
     end
    end
  end
end;

end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -