yxman.cpp

C++BUILDER实现的高校毕业生就业信息管理系统 是大学本科的毕业设计论文

        {
                String yxid;
                String majorid;
                String classid;
                ADODataSet1->CommandText="select id from tbYX where name='" + lis_Yx->Items->Strings[lis_Yx->ItemIndex] +"'";
                ADODataSet1->Open();
                yxid=ADODataSet1->FieldByName("id")->AsString;
                ADODataSet1->Close();

                ADODataSet1->CommandText="select id from tbMajor where yxid=" + yxid;
                ADODataSet1->Open();
                if(!ADODataSet1->Eof)
                {
                        ADODataSet1->First();
                }
                while(!ADODataSet1->Eof)
                {
                        majorid=ADODataSet1->FieldByName("id")->AsString;
                        ADODataSet2->CommandText="select id from tbClass where majorid=" + majorid;
                        ADODataSet2->Open();
                        if(!ADODataSet2->Eof)
                        {
                                ADODataSet2->First();
                        }
                        while(!ADODataSet2->Eof)
                        {
                                classid=ADODataSet2->FieldByName("id")->AsString;
                                ADOCommand1->CommandText="delete from tbStudent where classid="+ classid;
                                ADOCommand1->Execute();
                                ADODataSet2->Next();
                        }
                        ADODataSet2->Close();
                        ADOCommand1->CommandText="delete from tbClass where majorid=" + majorid;
                        ADOCommand1->Execute();
                        ADODataSet1->Next();
                }
                ADODataSet1->Close();
                ADOCommand1->CommandText="delete from tbMajor where yxid="+ yxid;
                ADOCommand1->Execute();
                ADOCommand1->CommandText="delete from tbYX where id="+yxid;
                ADOCommand1->Execute();
        }
        Application->MessageBoxA("删除院系成功！","成功！",MB_OK);
        RefreshYX();
        lis_Major->Clear();
        lis_Grade->Clear();
        lis_Class->Clear();
}
//---------------------------------------------------------------------------







void __fastcall TfrmYXMan::btn_UpdmajorClick(TObject *Sender)
{
   if(lis_Major->ItemIndex<0)
   {
        Application->MessageBoxA("请选择要修改的专业！","警告！",MB_OK);
        return;
   }
   TfrmCommon *fm=new TfrmCommon(this);
   fm->Caption="修改专业";
   fm->method=UPDMAJOR;
   fm->id1=lis_Major->Items->Strings[lis_Major->ItemIndex];
   fm->ShowModal();
   delete fm;
   RefreshYX();
   lis_Major->Clear();
   lis_Grade->Clear();
   lis_Class->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TfrmYXMan::btn_UpdgradeClick(TObject *Sender)
{
        if(lis_Grade->ItemIndex<0)
   {
        Application->MessageBoxA("请选择要修改的年级！","警告！",MB_OK);
        return;
   }
   TfrmCommon *fm=new TfrmCommon(this);
   fm->Caption="修改年级";
   fm->method=UPDGRADE;
   fm->id1=lis_Grade->Items->Strings[lis_Grade->ItemIndex];
   fm->ShowModal();
   delete fm;
     RefreshYX();
        lis_Major->Clear();
        lis_Grade->Clear();
        lis_Class->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TfrmYXMan::btn_UpdclassClick(TObject *Sender)
{
        if(lis_Class->ItemIndex<0)
   {
        Application->MessageBoxA("请选择要修改的班级！","警告！",MB_OK);
        return;
   }
   TfrmCommon *fm=new TfrmCommon(this);
   fm->Caption="修改班级";
   fm->method=UPDCLASS;
   fm->id1=lis_Class->Items->Strings[lis_Class->ItemIndex];
   fm->ShowModal();
   delete fm;
      RefreshYX();
        lis_Major->Clear();
        lis_Grade->Clear();
        lis_Class->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TfrmYXMan::frmYXMan_OnShow(TObject *Sender)
{
          RefreshYX();
        lis_Major->Clear();
        lis_Grade->Clear();
        lis_Class->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TfrmYXMan::btn_DelmajorClick(TObject *Sender)
{
        if(lis_Major->ItemIndex<0)
        {
                Application->MessageBoxA("请选择要删除的专业！","警告！",MB_OK);
                return;
        }
        int i=Application->MessageBoxA("如果删除专业则该专业下的所有班级以及该班级中毕业生信息都将被删除！是否继续？","警告！",MB_OKCANCEL);
        if(i==IDOK)
        {
                String majorid;
                String classid;
                ADODataSet1->CommandText="select id from tbMajor where name='" +lis_Major->Items->Strings[lis_Major->ItemIndex] + "'";
                ADODataSet1->Open();
                majorid=ADODataSet1->FieldByName("id")->AsString;
                ADODataSet1->Close();

                ADODataSet1->CommandText="select id from tbClass where majorid="+majorid;
                ADODataSet1->Open();
                if(!ADODataSet1->Eof)
                {
                        ADODataSet1->First();
                }
                while(!ADODataSet1->Eof)
                {
                        classid=ADODataSet1->FieldByName("id")->AsString;
                        ADOCommand1->CommandText="delete from tbStudent where classid="+classid;
                        ADOCommand1->Execute();
                        ADODataSet1->Next();
                }
                ADODataSet1->Close();
                ADOCommand1->CommandText="delete from tbClass where majorid=" + majorid;
                ADOCommand1->Execute();
                ADOCommand1->CommandText="delete from tbMajor where id=" + majorid;
                ADOCommand1->Execute();
        }
        Application->MessageBoxA("专业删除成功！","成功！",MB_OK);
        RefreshYX();
        lis_Major->Clear();
        lis_Grade->Clear();
        lis_Class->Clear();

}
//---------------------------------------------------------------------------

void __fastcall TfrmYXMan::btn_DelgradeClick(TObject *Sender)
{
        if(lis_Grade->ItemIndex<0)
        {
                Application->MessageBoxA("请选择要删除的年级！","警告！",MB_OK);
                return;
        }

        int i=Application->MessageBoxA("如果删除该年级则该年级下的所有班级以及该班级中毕业生信息都将被删除！是否继续？","警告！",MB_OKCANCEL);
        if(i==IDOK)
        {
                String gradeid;
                String classid;
                 ADODataSet1->CommandText="select id from tbGrade where name='" + lis_Grade->Items->Strings[lis_Grade->ItemIndex] +"'";
                ADODataSet1->Open();
                  gradeid=ADODataSet1->FieldByName("id")->AsString;
                 ADODataSet1->Close();

                 ADODataSet1->CommandText="select id from tbClass where gradeid="+ gradeid;
                 ADODataSet1->Open();
                 if(!ADODataSet1->Eof)
                 {
                        ADODataSet1->First();
                 }
                 while(!ADODataSet1->Eof)
                 {
                        classid=ADODataSet1->FieldByName("id")->AsString;
                        ADOCommand1->CommandText="delete from tbStudent where classid=" + classid;
                        ADOCommand1->Execute();
                        ADODataSet1->Next();
                 }
                 ADODataSet1->Close();
                 ADOCommand1->CommandText="delete from tbClass where gradeid="+gradeid;
                 ADOCommand1->Execute();
                 ADOCommand1->CommandText="delete from tbGrade where id="+gradeid;
                 ADOCommand1->Execute();

        }
        Application->MessageBoxA("年级删除成功！","成功！",MB_OK);
        RefreshYX();
        lis_Major->Clear();
        lis_Grade->Clear();
        lis_Class->Clear();

}
//---------------------------------------------------------------------------

void __fastcall TfrmYXMan::btn_DelclassClick(TObject *Sender)
{
        if(lis_Class->ItemIndex<0)
        {
                Application->MessageBoxA("请选择要删除的班级！","警告！",MB_OK);
                return;
        }
        int i=Application->MessageBoxA("如果删除该班级则该班级下的所有毕业生信息都将被删除！是否继续？","警告！",MB_OKCANCEL);
        if(i==IDOK)
        {
              String classid;
              ADODataSet1->CommandText="select id from tbClass where name='" + lis_Class->Items->Strings[lis_Class->ItemIndex]+"'";
              ADODataSet1->Open();
              classid=ADODataSet1->FieldByName("id")->AsString;
              ADODataSet1->Close();

              ADOCommand1->CommandText="delete from tbStudent where classid=" + classid;
              ADOCommand1->Execute();
              ADOCommand1->CommandText="delete from tbCLass where id="+classid;
              ADOCommand1->Execute();
        }
        Application->MessageBoxA("班级删除成功！","成功！",MB_OK);
        RefreshYX();
        lis_Major->Clear();
        lis_Grade->Clear();
        lis_Class->Clear();
}
//---------------------------------------------------------------------------