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

📄 unstud.~pas

📁 最简单的Delphi班级管理系统
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
    begin
       ADOQY2.SQL.Add('where 班号='''+edLiner+'''');
    end;

    //入学时间不为空
    if edTime<>'' then
    begin
      ADOQY2.SQL.Add('where 入学时间='''+edTime+'''');
    end;

    //邮政编码不为空
    if EdMail<>'' then
    begin
      ADOQY2.SQL.Add('where 邮政编码='''+EdMail+'''');
    end;

    //联系电话不为空
    if edtelep<>'' then
    begin
      ADOQY2.SQL.Add('where 联系电话='''+edtelep+'''');
    end;

    //家庭住址不为空
    if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');
     end;

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

     //出生年月不为空
    else if edMidyear<>'' then
    begin
      ADOQY2.SQL.Add('where 出生年月='''+edMidyear+'''');

    //班号不为空
    if edLiner<>'' then
    begin
       ADOQY2.SQL.Add('where 班号='''+edLiner+'''');
    end;

    //入学时间不为空
    if edTime<>'' then
    begin
      ADOQY2.SQL.Add('where 入学时间='''+edTime+'''');
    end;

    //邮政编码不为空
    if EdMail<>'' then
    begin
      ADOQY2.SQL.Add('where 邮政编码='''+EdMail+'''');
    end;

    //联系电话不为空
    if edtelep<>'' then
    begin
      ADOQY2.SQL.Add('where 联系电话='''+edtelep+'''');
    end;

    //家庭住址不为空
    if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');
     end;

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

    //班号不为空
    else if edLiner<>'' then
    begin
       ADOQY2.SQL.Add('where 班号='''+edLiner+'''');

    //入学时间不为空
    if edTime<>'' then
    begin
      ADOQY2.SQL.Add('where 入学时间='''+edTime+'''');
    end;

    //邮政编码不为空
    if EdMail<>'' then
    begin
      ADOQY2.SQL.Add('where 邮政编码='''+EdMail+'''');
    end;

    //联系电话不为空
    if edtelep<>'' then
    begin
      ADOQY2.SQL.Add('where 联系电话='''+edtelep+'''');
    end;

    //家庭住址不为空
    if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');
     end;

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

    //入学时间不为空
    else if edTime<>'' then
    begin
      ADOQY2.SQL.Add('where 入学时间='''+edTime+'''');

    //邮政编码不为空
    if EdMail<>'' then
    begin
      ADOQY2.SQL.Add('where 邮政编码='''+EdMail+'''');
    end;

    //联系电话不为空
    if edtelep<>'' then
    begin
      ADOQY2.SQL.Add('where 联系电话='''+edtelep+'''');
    end;

    //家庭住址不为空
    if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');
     end;

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

    //邮政编码不为空
    else if EdMail<>'' then
    begin
      ADOQY2.SQL.Add('where 邮政编码='''+EdMail+'''');

    //联系电话不为空
    if edtelep<>'' then
    begin
      ADOQY2.SQL.Add('where 联系电话='''+edtelep+'''');
    end;

    //家庭住址不为空
    if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');
     end;

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

     //联系电话不为空
    else if edtelep<>'' then
    begin
      ADOQY2.SQL.Add('where 联系电话='''+edtelep+'''');

    //家庭住址不为空
    if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');
     end;

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

    //家庭住址不为空
    else if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');

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

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

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

        ADOQY2.Open;

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

        showmessage('共查到符合条件的'+inttostr(ADOQY2.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;
       Dbedit9.Enabled:=false;
       Dbedit10.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(ADOQY2.RecordCount);
  end;
end;

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

    ADOQY2.Close;
    ADOQY2.SQL.Clear;
    ADOQY2.SQL.Add('select * from student_Info order by 学号');
    ADOQY2.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;
    Dbedit9.Enabled:=false;
    Dbedit10.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(ADOQY2.RecordCount);
  end

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

    ADOQY2.Close;
    ADOQY2.SQL.Clear;
    ADOQY2.SQL.Add('select * from student_Info order by 学号');
    ADOQY2.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;
    Dbedit9.Enabled:=false;
    Dbedit10.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(ADOQY2.RecordCount);
  end


  //取消查询操作
  else if flag=3 then
  begin
    //在进行查询之前先将所有的记录清空
    ADOQY2.Close;
    ADOQY2.SQL.Clear;
    ADOQY2.SQL.Add('select * from student_Info where 1<>1');
    ADOQY2.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;
    Dbedit9.Enabled:=false;
    Dbedit10.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(ADOQY2.RecordCount);
  end;

end;

procedure TFm_Student.Btn_QueryClick(Sender: TObject);
begin
  //3：标识进行查询操作
  Flag:=3;
  //在进行查询之前先将所有的记录清空
  ADOQY2.Close;
  ADOQY2.SQL.Clear;
  ADOQY2.SQL.Add('select * from student_Info where 1<>1');
  ADOQY2.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;
   Dbedit9.Enabled:=true;
   Dbedit10.Enabled:=true;


  dbedit1.SetFocus;

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

end;

procedure TFm_Student.Btn_ModifyClick(Sender: TObject);
begin
  if ADOQY2.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;
    Dbedit9.Enabled:=true;
    Dbedit10.Enabled:=true;

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

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

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

    Dbedit1.SetFocus;
  end;

end;

procedure TFm_Student.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 + -