unit5.cpp

数据库管理

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button1Click(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button4Click(TObject *Sender)
{
    if(ComboBox1->Text=="60分以下")
      {
         Table1->Close();
         Table1->IndexFieldNames="实际得分";
         Table1->Open();
         Table1->SetRangeStart();
         Table1->FieldByName("实际得分")->Value=0;
         Table1->SetRangeEnd();
         Table1->FieldByName("实际得分")->Value=59.99;
         Table1->ApplyRange();
         }
     if(ComboBox1->Text=="60分到70分")
      {
         Table1->Close();
         Table1->IndexFieldNames="实际得分";
         Table1->Open();
         Table1->SetRangeStart();
         Table1->FieldByName("实际得分")->Value=60;
         Table1->SetRangeEnd();
         Table1->FieldByName("实际得分")->Value=69.99;
         Table1->ApplyRange();
         }
      if(ComboBox1->Text=="70分到80分")
      {
         Table1->Close();
         Table1->IndexFieldNames="实际得分";
         Table1->Open();
         Table1->SetRangeStart();
         Table1->FieldByName("实际得分")->Value=70;
         Table1->SetRangeEnd();
         Table1->FieldByName("实际得分")->Value=79.99;
         Table1->ApplyRange();
         }
      if(ComboBox1->Text=="80分到90分")
      {
         Table1->Close();
         Table1->IndexFieldNames="实际得分";
         Table1->Open();
         Table1->SetRangeStart();
         Table1->FieldByName("实际得分")->Value=80;
         Table1->SetRangeEnd();
         Table1->FieldByName("实际得分")->Value=89.99;
         Table1->ApplyRange();
         }
       if(ComboBox1->Text=="90分以上")
      {
         Table1->Close();
         Table1->IndexFieldNames="实际得分";
         Table1->Open();
         Table1->SetRangeStart();
         Table1->FieldByName("实际得分")->Value=90;
         Table1->SetRangeEnd();
         Table1->FieldByName("实际得分")->Value=200;
         Table1->ApplyRange();
         }

}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button2Click(TObject *Sender)//按学号查找
{
   Table1->Close();
   Table1->IndexFieldNames="学号";
   Table1->Open();
   Table1->SetRangeStart();
   Table1->FieldByName("学号")->Value=(Edit1->Text);
   Table1->SetRangeEnd();
   Table1->FieldByName("学号")->Value=(Edit1->Text);
   Table1->ApplyRange();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button3Click(TObject *Sender)
{
   Table1->Close();
   Table1->IndexFieldNames="类型";
   Table1->Open();
   Table1->SetRangeStart();
   Table1->FieldByName("类型")->Value=(Edit2->Text);
   Table1->SetRangeEnd();
   Table1->FieldByName("类型")->Value=(Edit2->Text);
   Table1->ApplyRange();
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button5Click(TObject *Sender)//增加
{
   if(Edit3->Text=="")
     MessageBox(NULL,"请输入学号！","信息",MB_OK);
     else{
     if(Table2->Active==false)
        Table2->Open();
     Table2->First();
     int i=0;
     while(!(Table2->Eof)&&i==0)
     {

       if(Table2->FieldByName("学号")->Value==Edit3->Text&&Table2->FieldByName("类型")->Value==Edit4->Text&&Table2->FieldByName("时间(周)")->Value==Edit6->Text)
          { MessageBox(NULL,"该信息已存在，要修改请选修改","信息",MB_OK);
            i++;
            }
       Table2->Next();
       }//while
       if(i==0)
       {
          Table2->Append();
          Table2->FieldByName("学号")->Value=StrToInt(Edit3->Text);
          Table2->FieldByName("类型")->Value=Edit4->Text;
          if(Edit5->Text=="")
          Edit5->Text="0";
          Table2->FieldByName("得分")->Value=StrToFloat(Edit5->Text);
          Table2->FieldByName("时间(周)")->Value=Edit6->Text;
          Table2->Post();
          MessageBox(NULL,"该信息已插入","信息",MB_OK);
          Table1->Close();
       }
     if(Table1->Active==false)
       Table1->Open();
       Table1->First();
     while(!(Table1->Eof))
    {
     Table1->Edit();
      Table1->FieldByName("实际得分")->Value=(Table1->FieldByName("得分")->Value)*(Table1->FieldByName("分值")->Value);
      Table1->Post();
      Table1->Next();
    }
   }//else
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button6Click(TObject *Sender)//修改
{
   if(Table2->Active==false)
       Table2->Active=true;
    if(Edit3->Text==""||Edit4->Text==""||Edit5->Text==""||Edit6->Text=="")
       MessageBox(NULL,"请输入完整信息","信息",MB_OK);
    else{
        Table2->First();
        int i=0;
        while(!(Table2->Eof)&&i==0)
        {
            Table2->Edit();
            if(Table2->FieldByName("学号")->Value==Edit3->Text&&Table2->FieldByName("类型")->Value==Edit4->Text&&Table2->FieldByName("时间(周)")->Value==Edit6->Text)
              {
                 Table2->FieldByName("得分")->Value=StrToFloat(Edit5->Text);
                 if(MessageDlg("记录"+Table2->FieldByName("学号")->AsString+Table2->FieldByName("类型")->AsString+"成绩将被修改,确定？",
                     mtWarning,TMsgDlgButtons()<<mbYes<<mbNo,NULL)==mbYes)
                   {
                       Table2->Post();
                       MessageBox(NULL,"成绩以修改","信息",MB_OK);
                    }
                   i++;
              }
              Table2->Next();
        }
         if(Table1->Active==false)
       Table1->Open();
       Table1->First();
     while(!(Table1->Eof))
    {
     Table1->Edit();
      Table1->FieldByName("实际得分")->Value=(Table1->FieldByName("得分")->Value)*(Table1->FieldByName("分值")->Value);
      Table1->Post();
      Table1->Next();
    }
    }

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

void __fastcall TForm5::Button7Click(TObject *Sender)//删除
{
   if(Table2->Active==false)
       Table2->Active=true;
    if(Edit3->Text==""||Edit4->Text==""||Edit6->Text=="")
       MessageBox(NULL,"请输入完整信息","信息",MB_OK);
    else{
        Table2->First();
        int i=0;
        while(!(Table2->Eof)&&i==0)
        {
            //Table2->Edit();
            if(Table2->FieldByName("学号")->Value==Edit3->Text&&Table2->FieldByName("类型")->Value==Edit4->Text&&Table2->FieldByName("时间(周)")->Value==Edit6->Text)
              {
                // if(MessageDlg("记录"+Table2->FieldByName("学号")->AsString+Table2->FieldByName("类型")->AsString+"成绩将被删除,确定？",
                  //   mtWarning,TMsgDlgButtons()<<mbYes<<mbNo,NULL)==mbYes)
                  // {
                       Table2->Delete();
                       MessageBox(NULL,"成绩已删除","信息",MB_OK);
                   //}
                   i++;
              }
              Table2->Next();
        }
    if(Table1->Active==false)
       Table1->Open();
       Table1->First();
     while(!(Table1->Eof))
    {
     Table1->Edit();
      Table1->FieldByName("实际得分")->Value=(Table1->FieldByName("得分")->Value)*(Table1->FieldByName("分值")->Value);
      Table1->Post();
      Table1->Next();
    }
    }

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

void __fastcall TForm5::Button8Click(TObject *Sender)
{
       if(Table1->Active==true)
        Table1->Close();
        Table1->Open();
}
//---------------------------------------------------------------------------