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

📄 unit1.cpp

📁 学生档案管理系统
💻 CPP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
 studentchange->Visible=false;
 learnchange->Visible=true;
 workchange->Visible=false;
 lessonchange->Visible=false;
 main->Enabled=true;
 details->Enabled=true;
 learn->Enabled=true;
 work->Enabled=true;
 N11->Enabled=true;
 N12->Enabled=false;
 N13->Enabled=true;
 N14->Enabled=true;
 N15->Enabled=true;
 if(Edit18->Text!="")
   {
    Button9->Enabled=true;
    if(Image1->Visible==true)
       Button12->Enabled=true;
    else Button12->Enabled=false;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N13Click(TObject *Sender)
{
 mainview->Visible=false;
 studentview->Visible=false;
 learnview->Visible=false;
 workview->Visible=false;
 basechange->Visible=false;
 studentchange->Visible=true;
 learnchange->Visible=false;
 workchange->Visible=false;
 lessonchange->Visible=false;
 main->Enabled=true;
 details->Enabled=true;
 learn->Enabled=true;
 work->Enabled=true;
 N11->Enabled=true;
 N12->Enabled=true;
 N13->Enabled=false;
 N14->Enabled=true;
 N15->Enabled=true;
 Edit28->Text=str10;
 Query5->Active=false;
 Query5->SQL->Text="select * from 就业信息表 where 学号='"+Edit28->Text+"'";
 Query5->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N14Click(TObject *Sender)
{
 String str;
 mainview->Visible=false;
 studentview->Visible=false;
 learnview->Visible=false;
 workview->Visible=false;
 basechange->Visible=false;
 studentchange->Visible=false;
 learnchange->Visible=false;
 workchange->Visible=true;
 lessonchange->Visible=false;
 main->Enabled=true;
 details->Enabled=true;
 learn->Enabled=true;
 work->Enabled=true;
 N11->Enabled=true;
 N12->Enabled=true;
 N13->Enabled=true;
 N14->Enabled=false;
 N15->Enabled=true;
 Query5->Active=false;
 Query5->SQL->Text="select * from 就业信息表 where 学号='"+str10+"'";
 Query5->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N15Click(TObject *Sender)
{
 mainview->Visible=false;
 studentview->Visible=false;
 learnview->Visible=false;
 workview->Visible=false;
 basechange->Visible=false;
 studentchange->Visible=false;
 learnchange->Visible=false;
 workchange->Visible=false;
 lessonchange->Visible=true;
 main->Enabled=true;
 details->Enabled=true;
 learn->Enabled=true;
 work->Enabled=true;
 N11->Enabled=true;
 N12->Enabled=true;
 N13->Enabled=true;
 N14->Enabled=true;
 N15->Enabled=false;
 Query6->Active=true;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button12Click(TObject *Sender)
{
  int a;
  if(Image2->Visible==true)
    {
     a=Application->MessageBoxA("你要删除该照片吗？","删除程序",65);
     if(a==1)
        {
         Image2->Picture->CleanupInstance();
         Image2->Visible=false;
         Button25->Enabled=false;
        }

    }
  else ShowMessage("没有照片，不能删除！");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button13Click(TObject *Sender)
{
 int a,m=0,i;
 str1="select * from 学生基本信息表 where 学号='"+Edit18->Text+"'";
 Query5->Active=false;
 Query5->SQL->Text=str1;
 Query5->Active=true;
 if(Query5->Fields->FindField("学号")->AsString==Edit18->Text)
  {
   a=Application->MessageBoxA("是否删除该记录？","提示框",65);
   if(a==1)
   {
    str1="delete from 学生基本信息表 where 学号='"+Edit18->Text+"'";
    Query1->SQL->Text=str1;
    Query1->ExecSQL();
    str1="delete from 学习情况表 where 学号='"+Edit18->Text+"'";
    Query1->SQL->Text=str1;
    Query1->ExecSQL();
    str1="delete from 在校信息表 where 学号='"+Edit18->Text+"'";
    Query1->SQL->Text=str1;
    Query1->ExecSQL();
    str1="delete from 就业信息表 where 学号='"+Edit18->Text+"'";
    Query1->SQL->Text=str1;
    Query1->ExecSQL();
    Button13->Enabled=false;
     int j=0,s,p=1,q=1,m=0,l=0,t=0,r=0,n=1,k=0,h=0,y=0,z=0,u=0,v=0,w=0;
 String grade1,class1,numb1,str1;
 str1="select 学号 from 学生基本信息表 order by 学号 asc";

 Query5->Active=false;
 Query5->SQL->Text=str1;
 Query5->Active=true;
 s=Query5->RecordCount;
 for(i=0;i<s;i++)
   {
    Query5->First();
    Query5->MoveBy(i);
    if(i==0)
      {
       grade1=DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,2);
       class1=DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,6);
      }
    if(grade1!=DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,2))
       {
        p++; //年级数
        grade1=DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,2);
       }
    if(class1!=DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,6))
       {
        q++; //班级数
        class1=DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,6);
       }
   }
    Query5->First();
    Query5->MoveBy(0);
    grade1=DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,2);

   TTreeNode *Node1,*Node2,*Node3;//Node1指向年级，Node2指向班级,Node3指向成员
   TreeView1->Items->Clear();
   TreeView1->Items->Add(NULL, grade1);
   Node1=TreeView1->Items->Item[0];
   for(i=0;i<p;i++)
     {
      Node2=TreeView1->Items->Item[m];
      l=0;
      if(i==0)
        {
         for(j=t;j<q;j++)
           {
            Query5->First();
            Query5->MoveBy(r);//指向第h个学号
            if(grade1==DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,2))
               class1=DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,6); //如果为该年级，则将班级放入该年级子目录中
            else break;
            TreeView1->Items->AddChild(Node2,class1);
            Node3=TreeView1->Items->Item[n];
            for(k=r;k<s;k++)
               {
                Query5->First();
                Query5->MoveBy(k);
                if(class1==DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,6))
                  {
                   TreeView1->Items->AddChild(Node3,DBGrid9->Columns->Items[0]->Field->AsString);//如果为该班级，则将对应学号放入该班级子目录中
                   l++;
                   h++;
                  }
                else break;
               }
            r=k;
            n=n+l+1;
            l=0;
            t=j;
           }
        }
      else
        {
         n++;
         for(j=t;j<q;j++)
           {
            Query5->First();
            Query5->MoveBy(r);//指向第h个学号
            if(grade1==DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,2))
               class1=DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,6); //如果为该年级，则将班级放入该年级子目录中
            else break;
            TreeView1->Items->AddChild(Node2,class1);
            Node3=TreeView1->Items->Item[n];
            for(k=r;k<s;k++)
               {
                Query5->First();
                Query5->MoveBy(k);
                if(class1==DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,6))
                  {
                   TreeView1->Items->AddChild(Node3,DBGrid9->Columns->Items[0]->Field->AsString);//如果为该班级，则将对应学号放入该班级子目录中
                   l++;
                   h++;//向下指数据表中一个学号
                  }
                else break;
               }
            r=k;
            n=n+l+1;
            l=0;
            t=j;
           }
     }
     m=n;

     for(y=j;y<s;y++)
      {
       Query5->First();
       Query5->MoveBy(y);
       if(grade1!=DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,2))
        {
         grade1=DBGrid9->Columns->Items[0]->Field->AsString.SubString(1,2);
         break;
        }
     }
     TreeView1->Items->Add(Node1,grade1);
    }
     for(i=0;i<p;i++)
       TreeView1->Items->Item[m-i]->Delete();
     ShowMessage("删除成功！");
     str1="select * from 学生基本信息表";
     Query7->Active=false;
     Query7->SQL->Text=str1;
     Query7->Active=true;
   }
  }
  else {ShowMessage("不存在该学号，请重新输入！");return;}
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button15Click(TObject *Sender)
{
 Edit28->Text="";
 Edit29->Text="";
 Edit30->Text="";
 Edit31->Text="";
 Edit32->Text="";
 Edit33->Text="";
 Edit34->Text="";
 Query5->Active=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button14Click(TObject *Sender)
{
 String str;
 int a;
 if(Edit28->Text!="")
  {
    Query5->Active=false;
    str="select * from 在校信息表";
    Query5->Active=true;
    if(Query5->Fields->FindField("学号")->AsString==Edit28->Text)
     {
      a=Application->MessageBoxA("是否进行修改？","提示框",65);
      if(a==1)
       {
        str="update 在校信息表 set 班级='"+Edit29->Text+"',寝室号='"+Edit30->Text+"',寝室电话='"+Edit31->Text+"',手机号='"+Edit32->Text+"',班级职务='"+Edit33->Text+"',学生会职务='"+Edit34->Text+"' where 学号='"+Edit28->Text+"'";
        str1="select * from 在校信息表 where 学号='"+Edit28->Text+"'" ;
        Query5->Active=false;
        Query5->SQL->Text=str;
        Query5->ExecSQL();
        Query5->SQL->Text=str1;
        Query5->Active=true;
        ShowMessage("修改成功！");
       }
     }
    else  {ShowMessage("该学号不存在！");Query5->Active=false;return;}
   }
  else
   {
    Query5->Active=false;
    str="select * from  在校信息表";
    Query5->Active=true;
   }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button17Click(TObject *Sender)
{
 Edit35->Text="";
 Edit36->Text="";
 ComboBox3->ItemIndex=-1;
 ListBox2->Clear();
 Query2->Active=false;       
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox3Change(TObject *Sender)
{
  int i=0,h=0;
  if(ListBox2->Items->GetText()=="")
    ListBox2->Items->Add(ComboBox3->Text);
  else
  {
   for(i=0;i<ListBox2->Items->Count;i++)
     if(ListBox2->Items->Strings[i]==ComboBox3->Text)
       h=1;
     if(h==1) {ShowMessage("该项已存在，请重新输入！");return;}
     else ListBox2->Items->Add(ComboBox3->Text);
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button16Click(TObject *Sender)
{
 String str;
 int count1,i;

 if(ListBox2->Items->Text!="")
   {
    str="select 学号,班级";
    count1=ListBox2->Items->Count;
    for(i=0;i<count1;i++)
      {
       str=str+","+ListBox2->Items->Strings[i];
      }
    str=str+" from 学习情况表 ";
   }
 else str="select * from 学习情况表 ";
 if(Edit35->Text!=""&&Edit36->Text=="")
  str=str+" where 学号='"+Edit35->Text+"' ";
 if(Edit35->Text==""&&Edit36->Text!="")
  str=str+" where 班级='"+Edit36->Text+"' ";
 if(Edit35->Text!=""&&Edit36->Text!="")
  str=str+" where 学号='"+Edit35->Text+"' and 班级='"+Edit36->Text+"' ";
 Query2->RequestLive=true;
 Query2->Active=false;
 Query2->SQL->Text=str;
12345

⌨️ 快捷键说明

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