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

📄 unclass.pas

📁 最简单的Delphi班级管理系统
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
    if edSpeciality<>'' then
    begin
      ADOQY1.SQL.Add('where 专业='''+edSpeciality+'''');
    end;

    //班主任不为空
    if edTeacher<>'' then
    begin
      ADOQY1.SQL.Add('where 班主任='''+edTeacher+'''');
    end;

    //备注不为空
    if edremark<>'' then
    begin
      ADOQY1.SQL.Add('where 备注='''+edremark+'''');
    end;
    end

     //年级不为空
    else if edGrade<>'' then
    begin
      ADOQY1.SQL.Add('where 年级='''+edGrade+'''');

    //教室不为空
    if edClassroom<>'' then
    begin
      ADOQY1.SQL.Add('where 教室='''+edClassroom+'''');
    end;

    //年制不为空
    if edMidyear<>'' then
    begin
       ADOQY1.SQL.Add('where 年制='''+edMidyear+'''');
    end;

    //专业不为空
    if edSpeciality<>'' then
    begin
      ADOQY1.SQL.Add('where 专业='''+edSpeciality+'''');
    end;

    //班主任不为空
    if edTeacher<>'' then
    begin
      ADOQY1.SQL.Add('where 班主任='''+edTeacher+'''');
    end;

    //备注不为空
    if edremark<>'' then
    begin
      ADOQY1.SQL.Add('where 备注='''+edremark+'''');
    end;
    end

    //教室不为空
    else if edClassroom<>'' then
    begin
      ADOQY1.SQL.Add('where 教室='''+edClassroom+'''');

    //年制不为空
    if edMidyear<>'' then
    begin
       ADOQY1.SQL.Add('where 年制='''+edMidyear+'''');
    end;

    //专业不为空
    if edSpeciality<>'' then
    begin
      ADOQY1.SQL.Add('where 专业='''+edSpeciality+'''');
    end;

    //班主任不为空
    if edTeacher<>'' then
    begin
      ADOQY1.SQL.Add('where 班主任='''+edTeacher+'''');
    end;

    //备注不为空
    if edremark<>'' then
    begin
      ADOQY1.SQL.Add('where 备注='''+edremark+'''');
    end;
    end

    //年制不为空
    else if edMidyear<>'' then
    begin
       ADOQY1.SQL.Add('where 年制='''+edMidyear+'''');

    //专业不为空
    if edSpeciality<>'' then
    begin
      ADOQY1.SQL.Add('where 专业='''+edSpeciality+'''');
    end;

    //班主任不为空
    if edTeacher<>'' then
    begin
      ADOQY1.SQL.Add('where 班主任='''+edTeacher+'''');
    end;

    //备注不为空
    if edremark<>'' then
    begin
      ADOQY1.SQL.Add('where 备注='''+edremark+'''');
    end;
    end

    //专业不为空
    else if edSpeciality<>'' then
    begin
      ADOQY1.SQL.Add('where 专业='''+edSpeciality+'''');

    //班主任不为空
     if edTeacher<>'' then
    begin
      ADOQY1.SQL.Add('where 班主任='''+edTeacher+'''');
    end;

    //备注不为空
    if edremark<>'' then
    begin
      ADOQY1.SQL.Add('where 备注='''+edremark+'''');
    end;
    end

    //班主任不为空
    else if edTeacher<>'' then
    begin
      ADOQY1.SQL.Add('where 班主任='''+edTeacher+'''');

    //备注不为空
    if edremark<>'' then
    begin
      ADOQY1.SQL.Add('where 备注='''+edremark+'''');
    end;
    end

     //备注不为空
    else if edremark<>'' then
    begin
      ADOQY1.SQL.Add('where 备注='''+edremark+'''');
    end

    else begin
          ADOQY1.SQL.Add('where 1<>1');
        end;

        ADOQY1.Open;

        //指向第一笔记录
        ADOQY1.First;

        showmessage('共查到符合条件的'+inttostr(ADOQY1.RecordCount)+'条记录!');

       //初始化各文本框不能使用
       Dbedit1.Enabled:=false;
       Dbedit2.Enabled:=false;
       Dbedit3.Enabled:=false;
       Dbedit4.Enabled:=false;
       Dbedit5.Enabled:=false;
       Dbedit6.Enabled:=false;
       Dbedit7.Enabled:=false;
       Dbedit8.Enabled:=false;

       //设置各按钮的可用性
       Btn_Add.Enabled:=true;
       Btn_Modify.Enabled:=true;
       Btn_Delete.Enabled:=true;
       Btn_Query.Enabled:=true;
       Btn_Browse.Enabled:=true;
       Btn_Print.Enabled:=true;

       Btn_OK.Enabled:=false;
       Btn_Cancel.Enabled:=false;

       Btn_Query.SetFocus;

       //总记录数
       LB_Count.Caption :=IntToStr(ADOQY1.RecordCount);
  end;
end;

procedure TFm_Class.Btn_CancelClick(Sender: TObject);
begin
  //取消新增操作
  if flag=1 then
  begin
    ADOQY1.Cancel;
    showmessage('当前新增操作已取消！  ');

    ADOQY1.Close;
    ADOQY1.SQL.Clear;
    ADOQY1.SQL.Add('select * from class_Info order by 编号');
    ADOQY1.Open;


    //初始化各文本框不能使用
    Dbedit1.Enabled:=false;
    Dbedit2.Enabled:=false;
    Dbedit3.Enabled:=false;
    Dbedit4.Enabled:=false;
    Dbedit5.Enabled:=false;
    Dbedit6.Enabled:=false;
    Dbedit7.Enabled:=false;
    Dbedit8.Enabled:=false;

    //设置各按钮的可用性
    Btn_Add.Enabled:=true;
    Btn_Modify.Enabled:=true;
    Btn_Delete.Enabled:=true;
    Btn_Query.Enabled:=true;
    Btn_Browse.Enabled:=true;
    Btn_Print.Enabled:=true;

    Btn_OK.Enabled:=false;
    Btn_Cancel.Enabled:=false;

    Btn_Add.SetFocus;

    //总记录数
    LB_Count.Caption :=IntToStr(ADOQY1.RecordCount);
  end

  //取消修改操作
  else if flag=2 then
  begin
    ADOQY1.Cancel;
    showmessage('当前修改操作已取消！  ');

    ADOQY1.Close;
    ADOQY1.SQL.Clear;
    ADOQY1.SQL.Add('select * from Address order by 编号');
    ADOQY1.Open;

    //初始化各文本框不能使用
    Dbedit1.Enabled:=false;
    Dbedit2.Enabled:=false;
    Dbedit3.Enabled:=false;
    Dbedit4.Enabled:=false;
    Dbedit5.Enabled:=false;
    Dbedit6.Enabled:=false;
    Dbedit7.Enabled:=false;
    Dbedit8.Enabled:=false;

    //设置各按钮的可用性
    Btn_Add.Enabled:=true;
    Btn_Modify.Enabled:=true;
    Btn_Delete.Enabled:=true;
    Btn_Query.Enabled:=true;
    Btn_Browse.Enabled:=true;
    Btn_Print.Enabled:=true;

    Btn_OK.Enabled:=false;
    Btn_Cancel.Enabled:=false;

    Btn_Modify.SetFocus;

    //总记录数
    LB_Count.Caption:=IntToStr(ADOQY1.RecordCount);
  end


  //取消查询操作
  else if flag=3 then
  begin
    //在进行查询之前先将所有的记录清空
    ADOQY1.Close;
    ADOQY1.SQL.Clear;
    ADOQY1.SQL.Add('select * from class_Info where 1<>1');
    ADOQY1.open;

    showmessage('当前查询操作已取消！');

    //初始化各文本框不能使用
    Dbedit1.Enabled:=false;
    Dbedit2.Enabled:=false;
    Dbedit3.Enabled:=false;
    Dbedit4.Enabled:=false;
    Dbedit5.Enabled:=false;
    Dbedit6.Enabled:=false;
    Dbedit7.Enabled:=false;
    Dbedit8.Enabled:=false;

    //设置各按钮的可用性
    Btn_Add.Enabled:=true;
    Btn_Modify.Enabled:=true;
    Btn_Delete.Enabled:=true;
    Btn_Query.Enabled:=true;
    Btn_Browse.Enabled:=true;
    Btn_Print.Enabled:=true;

    Btn_OK.Enabled:=false;
    Btn_Cancel.Enabled:=false;

    Btn_Query.SetFocus;

    //总记录数
    LB_Count.Caption :=IntToStr(ADOQY1.RecordCount);
  end;

end;

procedure TFm_Class.Btn_QueryClick(Sender: TObject);
begin
  //3：标识进行查询操作
  Flag:=3;
  //在进行查询之前先将所有的记录清空
  ADOQY1.Close;
  ADOQY1.SQL.Clear;
  ADOQY1.SQL.Add('select * from class_Info where 1<>1');
  ADOQY1.Open;

  //设置各输入框的可用性
   Dbedit1.Enabled:=true;
   Dbedit2.Enabled:=true;
   Dbedit3.Enabled:=true;
   Dbedit4.Enabled:=true;
   Dbedit5.Enabled:=true;
   Dbedit6.Enabled:=true;
   Dbedit7.Enabled:=true;
   Dbedit8.Enabled:=true;


  dbedit1.SetFocus;

  Btn_OK.Enabled:=true;
  Btn_Cancel.Enabled:=true;
  
  //总记录数
  LB_Count.Caption :=IntToStr(ADOQY1.RecordCount);

end;

procedure TFm_Class.Btn_ModifyClick(Sender: TObject);
begin
  if ADOQY1.RecordCount=0 then
  begin
    showmessage('记录为空，请选择要修改的通讯录信息   ');

    //设置各按钮的可用性
    Btn_Add.Enabled:=true;
    Btn_Modify.Enabled:=true;
    Btn_Delete.Enabled:=true;
    Btn_Query.Enabled:=true;
    Btn_Browse.Enabled:=true;
    Btn_Print.Enabled:=true;

    Btn_OK.Enabled:=false;
    Btn_Cancel.Enabled:=false;

    Btn_Browse.SetFocus;
  end
  else begin
    //设置各输入框的可用性
    Dbedit1.Enabled:=true;
    Dbedit2.Enabled:=true;
    Dbedit3.Enabled:=true;
    Dbedit4.Enabled:=true;
    Dbedit5.Enabled:=true;
    Dbedit6.Enabled:=true;
    Dbedit7.Enabled:=true;
    Dbedit8.Enabled:=true;

    //使数据集成为编辑状态
    ADOQY1.Edit;

    Btn_OK.Enabled:=true;
    Btn_Cancel.Enabled:=true;

    //2：标识进行修改操作
    Flag:=2;

    Dbedit1.SetFocus;
  end;

end;

procedure TFm_Class.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 // close;
  //调用主界界面
  if fm_ClassStudent.init then
     fm_ClassStudent.Show;
    // fm_ClassStudent.Hide;
end;

end.
12

⌨️ 快捷键说明

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