unit7.~cpp

这是一个简单的班主任管理系统的一部分,能实现数据添加,修改,查询,删除等功能

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

#include <vcl.h>
#pragma hdrstop

#include "Unit7.h"
#include "Unit31.h"
#include "Unit32.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCadreForm *CadreForm;
//---------------------------------------------------------------------------
__fastcall TCadreForm::TCadreForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TCadreForm::BitBtn1Click(TObject *Sender)
{
   if (AttendFrominput)
     
       AttendFrominput->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TCadreForm::BitBtn2Click(TObject *Sender)
{
    GroupBox2->Enabled=true;   //
    GroupBox5->Enabled=false;

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

void __fastcall TCadreForm::FormActivate(TObject *Sender)
{
        DM2->ADOConnection1->Connected=false;
        DM2->ADOConnection1->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ExtractFilePath(ParamStr(0))+"\\Teacher_ManageSystem.mdb;Persist Security Info=False";
        DM2->ADOConnection1->Connected=true;
        DM2->ADOQuery1->Connection=DM2->ADOConnection1;
        DM2->ADOQuery1->Active =false;
        DM2->ADOQuery1->SQL->Clear();
        DM2->ADOQuery1->SQL->Add("select * from 考勤表")  ;
        DM2->ADOQuery1->ExecSQL() ;
        DBGrid1->DataSource =DM2->DataSource1;
        DM2->ADOQuery1->Active =true;
        GroupBox2->Enabled=false;
        GroupBox3->Enabled=false;
        GroupBox4->Enabled=false;
        GroupBox5->Enabled=false;
        GroupBox6->Enabled=false;
        GroupBox7->Enabled=false;
}
//---------------------------------------------------------------------------



void __fastcall TCadreForm::BitBtn4Click(TObject *Sender)
{
     try
  {
    if(MessageDlg("学号："+DM2->ADOQuery1->FieldByName("学号")->Value+"  姓名:"+DM2->ADOQuery1->FieldByName("姓名")->Value+"的记录将被删除,确定吗?",mtWarning,TMsgDlgButtons()<<mbYes<<mbNo,NULL)==mrYes)
    {
      DM2->ADOQuery1->Delete();
    }

   }
    catch(...)
  {
    MessageBox(CadreForm->Handle,"没有记录可删除!","提示",MB_ICONEXCLAMATION);
    return;
   }

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

void __fastcall TCadreForm::ToolButton1Click(TObject *Sender)
{
      DM2->ADOQuery1->Prior();
}
//---------------------------------------------------------------------------

void __fastcall TCadreForm::ToolButton2Click(TObject *Sender)
{
      DM2->ADOQuery1->Next();
}
//---------------------------------------------------------------------------

void __fastcall TCadreForm::ToolButton4Click(TObject *Sender)
{
      ComboBox1->Text="";
      ComboBox2->Text="";
      Edit1->Text="";
      Memo1->Lines->Clear() ;
      GroupBox4->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TCadreForm::ToolButton3Click(TObject *Sender)
{
     AnsiString  str;
       if(ComboBox1->Text.IsEmpty()||ComboBox2->Text.IsEmpty()||Edit1->Text.IsEmpty())
         {
          Application->MessageBox("条件不能为空", "提示", MB_OK);
          return;
          }
       if(!(Memo1->Text.IsEmpty()))
         {
             if(RadioButton1->Checked==true )
                str+= " and  ";
              else
                str+= " or  " ;  ShowMessage(str);
             str+=ComboBox1->Text;
             str+=ComboBox2->Text;
             str+="'";
             str+=Edit1->Text;
             str+="'";
            ShowMessage(str);

           }
       else
       {
    str=ComboBox1->Text;
    str+=ComboBox2->Text;
    str+="'";
    str+=Edit1->Text;
    str+="'";
     }
    Memo1->Lines->Add(str);
    GroupBox4->Enabled=true;
    ComboBox1->Text="";
    ComboBox2->Text="";
    Edit1->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TCadreForm::ToolButton5Click(TObject *Sender)
{
    if(DM2->ADOQuery1->Active ==true)
     DM2->ADOQuery1->Active =false;
     DM2->ADOQuery1->SQL->Clear();
     DM2->ADOQuery1->SQL->Add("select * from 考勤表")  ;
     DM2->ADOQuery1->ExecSQL() ;
     DBGrid1->DataSource =DM2->DataSource1;
     DM2->ADOQuery1->Active =true;
     GroupBox4->Enabled=false;
     ComboBox1->Text="";
     ComboBox2->Text="";
     Edit1->Text="";

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

void __fastcall TCadreForm::ToolButton6Click(TObject *Sender)
{
  AnsiString  str;
  str="select  * from 考勤表 where  ";
  str+=  Memo1->Text ;
  if(DM2->ADOQuery1->Active ==true)
  DM2->ADOQuery1->Active =false;
  DM2->ADOQuery1->SQL->Clear();
  DM2->ADOQuery1->SQL->Add(str);
  DM2->ADOQuery1->ExecSQL() ;

  DBGrid1->DataSource =DM2->DataSource1;
  DM2->ADOQuery1->Active =true;

  GroupBox4->Enabled=false;
  ComboBox1->Text="";
  ComboBox2->Text="";
  Edit1->Text="";

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

  //////////////////////////////////////////




void __fastcall TCadreForm::BitBtn5Click(TObject *Sender)
{
     Close();
}
//---------------------------------------------------------------------------

void __fastcall TCadreForm::FormCreate(TObject *Sender)
{
    StatusBar1->Panels->Items[0]->Text="当前操作员是: wise   ";
    StatusBar1->Panels->Items[1]->Text="考勤表编辑-- 添加--删除--查找--统计:  ";
}
//---------------------------------------------------------------------------
void __fastcall TCadreForm::Timer1Timer(TObject *Sender)
{
    StatusBar1->Panels->Items[2]->Text="当前日期是:  "+DateToStr(Now()); //显示当前日期

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


void __fastcall TCadreForm::Button1Click(TObject *Sender)
{
   AnsiString  str;
       if(ComboBox1->Text.IsEmpty()||ComboBox2->Text.IsEmpty()||Edit1->Text.IsEmpty())
         {
          Application->MessageBox("条件不能为空", "提示", MB_OK);
          return;
          }
       if(!(Memo1->Text.IsEmpty()))
         {
             if(RadioButton1->Checked==true )
                str+= " and  ";
              else
                str+= " or  " ;  ShowMessage(str);
             str+=ComboBox1->Text;
             str+=ComboBox2->Text;
             str+="'";
             str+=Edit1->Text;
             str+="'";
            ShowMessage(str);

           }
       else
       {
    str=ComboBox1->Text;
    str+=ComboBox2->Text;
    str+="'";
    str+=Edit1->Text;
    str+="'";
     }
    Memo1->Lines->Add(str);
    GroupBox4->Enabled=true;
    ComboBox1->Text="";
    ComboBox2->Text="";
    Edit1->Text="";

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


void __fastcall TCadreForm::Edit1KeyPress(TObject *Sender, char &Key)
{
   // if(ComboBox1=="")
}
//---------------------------------------------------------------------------

void __fastcall TCadreForm::BitBtn3Click(TObject *Sender)
{
   if(!Attendamend)
           Attendamend=new TAttendamend(this);
           Attendamend->ShowModal();
}
//---------------------------------------------------------------------------