unit31.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit31.h"
#include "Unit2.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TAttendFrominput *AttendFrominput;
//---------------------------------------------------------------------------
__fastcall TAttendFrominput::TAttendFrominput(TComponent* Owner)
        : TForm(Owner)
{
}
//--------------------------------------------------------------------------
void __fastcall TAttendFrominput::BitBtn1Click(TObject *Sender)
{
   if(Edit1->Text!=""&&Edit2->Text!="")
  {
    DM2->ADOQuery1->Insert();
    DM2->ADOQuery1->FieldByName("学号")->Value=Edit1->Text;
    DM2->ADOQuery1->FieldByName("姓名")->Value= Edit2->Text;
    DM2->ADOQuery1->FieldByName("日期")->Value=DateTimePicker1->Date;
    DM2->ADOQuery1->FieldByName("考勤类型")->Value=Edit3->Text;
    DM2->ADOQuery1->FieldByName("节数")->Value=Edit4->Text;
    DM2->ADOQuery1->FieldByName("天数")->Value=Edit5->Text;
    DM2->ADOQuery1->FieldByName("考勤班干")->Value=Edit6->Text;
    DM2->ADOQuery1->FieldByName("任课老师")->Value=Edit7->Text;
    DM2->ADOQuery1->FieldByName("备注")->Value=Edit8->Text;
    MessageBox(AttendFrominput->Handle,"数据录入成功!","信息",MB_OK);
  }
  else
  {
   MessageBox(AttendFrominput->Handle," 学号与姓名不能为空!","提示",MB_ICONEXCLAMATION);
    return;
  }
  Edit1->Text="";
  Edit2->Text="";
  Edit3->Text="";
  Edit4->Text="";
  Edit5->Text="";
  Edit6->Text="";
  Edit7->Text="";
  Edit8->Text="";
  DM2->ADOQuery1->Edit();
  DM2->ADOQuery1->Post();


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

void __fastcall TAttendFrominput::BitBtn2Click(TObject *Sender)
{
     Close();
}
//---------------------------------------------------------------------------

void __fastcall TAttendFrominput::Edit1KeyPress(TObject *Sender, char &Key)
{
  if((Key<48||Key>57)&&Key!=45&&Key!=8&&Key!=13)
   Key=0;
}
//---------------------------------------------------------------------------

void __fastcall TAttendFrominput::Edit4KeyPress(TObject *Sender, char &Key)
{
   if((Key<48||Key>57)&&Key!=13)
    Key=0;
}
//---------------------------------------------------------------------------

void __fastcall TAttendFrominput::Edit5KeyPress(TObject *Sender, char &Key)
{
     if((Key<48||Key>57)&&Key!=13)
        Key=0;   
}
//---------------------------------------------------------------------------