unit12.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit12.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TClassMeetingForm *ClassMeetingForm;
//---------------------------------------------------------------------------
__fastcall TClassMeetingForm::TClassMeetingForm(TComponent* Owner)
        : TForm(Owner)
{

}

//---------------------------------
 void __fastcall TClassMeetingForm::ExecuteSQL(AnsiString str)
 {
        DM2->ADOConnection1->Connected =false;
        DM2->ADOConnection1->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\\Documents and Settings\\Administrator\\桌面\\班主任管理系统\\Teacher_ManageSystem.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False";
        DM2->ADOConnection1->Connected=true;
        DM2->ADOQuery1->Connection=DM2->ADOConnection1;
        DM2->ADOQuery1->Active =false;
        DM2->ADOQuery1->SQL->Clear();
        DM2->ADOQuery1->SQL->Add(str)  ;
        DM2->ADOQuery1->ExecSQL() ;
}

//---------------------------------------------------------------------------
void __fastcall TClassMeetingForm::BitBtn1Click(TObject *Sender)
{

      if(PageControl1->ActivePage==TabSheet1)
       {  if(DBEdit3->Text!="")
            ShowMessage("插入成功");
          else
            {
            ShowMessage("时间不能为空");
            ShowMessage("插入不成功");
            ShowMessage("不想插入可以按取消键取消");
            }
       }
     if(PageControl1->ActivePage==TabSheet2)
       {
       DM2->ADOQuery1->UpdateRecord();
       ShowMessage("已修改成功");
       }
     if(PageControl1->ActivePage==TabSheet3)
       { 
       AnsiString strsql;
       strsql="select  *  from  班会记录表 ";
     if(Edit1->Text!=""&&ComboBox1->Text=="")
        {
        strsql+=" where 时间='";
        strsql+=Edit1->Text;
        strsql+="'";
        }
       if(ComboBox1->Text!=""&&Edit1->Text=="")
        {
        strsql+=" where 学期 ='";
        strsql+=ComboBox1->Text;
        strsql+="'";
        }
        if(ComboBox1->Text!=""&&Edit1->Text!="")
        {
        strsql+=" where 时间='";
        strsql+=Edit1->Text;
        strsql+="'";
        strsql+="  and 学期='";
        strsql+=ComboBox1->Text;
        strsql+="'";
        }
       if(ComboBox1->Text==""&&Edit1->Text=="")
         ShowMessage("请选择查询方式");
       ShowMessage(strsql);
       ExecuteSQL(strsql );
       DM2->DataSource1->DataSet=DM2->ADOQuery1 ;
       DBGrid1->DataSource= DM2->DataSource1;
       DM2->ADOQuery1->Active=true;
       ShowMessage("恭喜恭喜，您已经成功了");
        }
     if(PageControl1->ActivePage==TabSheet4&&DBEdit7->Text!="")
       {
       DM2->ADOQuery1->Delete();
        ShowMessage("已删除成功");
       }
      BitBtn4->Enabled=true;
      BitBtn5->Enabled=true;
      BitBtn6->Enabled=true;
      BitBtn7->Enabled=true;

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

void __fastcall TClassMeetingForm::PageControl1Change(TObject *Sender)
{
     if(PageControl1->ActivePage==TabSheet1)
       {// BitBtn1->Visible=false;
        // BitBtn2->Visible=false;
        Label2->Caption="学期";
        Label3->Caption="地点";
        Label4->Caption="时间";
        }
     else if(PageControl1->ActivePage==TabSheet2)
       {
        Label2->Caption="学期";
        Label3->Caption="地点";
        Label4->Caption="时间";
       }
     else  if(PageControl1->ActivePage==TabSheet3)
       {
        Label2->Caption="按学期";
        Label3->Caption="按地点";
        Label4->Caption="按时间";
       }
     else  if(PageControl1->ActivePage==TabSheet4)
       {
        Label2->Caption="学期";
        Label3->Caption="地点";
        Label4->Caption="时间";
       }
}
//---------------------------------------------------------------------------
void __fastcall TClassMeetingForm::DBEdit1Enter(TObject *Sender)
{
     if(DBEdit3->Text=="")
       {
        ShowMessage("时间不能为空");
        DBEdit3->SetFocus();
       }
}
//---------------------------------------------------------------------------
void __fastcall TClassMeetingForm::PageControl1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
     if(DBEdit13->Text==""||DBEdit7->Text=="")
        DM2->ADOQuery1->Delete();
}
//---------------------------------------------------------------------------
void __fastcall TClassMeetingForm::Button1Click(TObject *Sender)
{
    DM2->ADOQuery1->First();
}
//---------------------------------------------------------------------------

void __fastcall TClassMeetingForm::BitBtn2Click(TObject *Sender)
{
     DM2->ADOQuery1->CancelUpdates();
}
//---------------------------------------------------------------------------
void __fastcall TClassMeetingForm::Button2Click(TObject *Sender)
{
       DM2->ADOQuery1->Next() ;
}
//---------------------------------------------------------------------------

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

void __fastcall TClassMeetingForm::Button4Click(TObject *Sender)
{
      DM2->ADOQuery1->Last();
}
//---------------------------------------------------------------------------

void __fastcall TClassMeetingForm::TabSheet2Show(TObject *Sender)
{
     BitBtn5->Enabled=false;               //默认是删除面Show
     BitBtn4->Enabled=true;
     BitBtn6->Enabled=true;
     BitBtn7->Enabled=true;


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

void __fastcall TClassMeetingForm::TabSheet3Show(TObject *Sender)
{
     BitBtn5->Enabled=true;
     BitBtn4->Enabled=true;
     BitBtn6->Enabled=false;
     BitBtn7->Enabled=true;

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

void __fastcall TClassMeetingForm::TabSheet4Show(TObject *Sender)
{
    BitBtn5->Enabled=true;
     BitBtn4->Enabled=true;
     BitBtn6->Enabled=true;
     BitBtn7->Enabled=false;

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


void __fastcall TClassMeetingForm::CheckBox1Click(TObject *Sender)
{
       if(CheckBox1->Checked==false)
       {
        Edit1->Enabled=false;
        Edit1->Text="";
        }
      else
         Edit1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TClassMeetingForm::CheckBox2Click(TObject *Sender)
{
    if(CheckBox2->Checked==false)
       {
        ComboBox1->Enabled=false;
        ComboBox1->Text="";
       }
    else
        ComboBox1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TClassMeetingForm::BitBtn6Click(TObject *Sender)
{
     TabSheet3->Show();
   if(DBEdit13->Text==""||DBEdit7->Text=="")
     DM2->ADOQuery1->Delete();
   /*  AnsiString strsql;
     strsql="select  *  from  班会记录表 ";
     if(Edit1->Text!="")
      {
        strsql+=" where 时间='";
        strsql+=Edit1->Text;
        strsql+="'";
      }
     ExecuteSQL(strsql );
     DataModule2->DataSource1->DataSet=DataModule2->ADOQuery1 ;
     DBGrid1->DataSource= DataModule2->DataSource1;
     DataModule2->ADOQuery1->Active=true;           */
}
//---------------------------------------------------------------------------
void __fastcall TClassMeetingForm::FormShow(TObject *Sender)
{
    AnsiString strsql;
     strsql="select  *  from  班会记录表 ";
     ExecuteSQL(strsql );
    DM2->DataSource1->DataSet=DM2->ADOQuery1 ;
     DBGrid1->DataSource= DM2->DataSource1;
     DM2->ADOQuery1->Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TClassMeetingForm::BitBtn4Click(TObject *Sender)
{
    TabSheet1->Show();
    if(DBEdit3->Text!="")
     {
     DM2->ADOQuery1->Append();
    DM2->ADOQuery1->FieldByName("时间")->Value=DBEdit3->Text;
     DM2->ADOQuery1->FieldByName("学期")->Value=DBEdit1->Text;
     DM2->ADOQuery1->FieldByName("地点")->Value=DBEdit2->Text;
     DM2->ADOQuery1->FieldByName("会议内容")->Value=DBMemo4->Text;
     }
   else
     {
     ShowMessage("时间不能为空");
     ShowMessage("插入不成功");
     }
}
//---------------------------------------------------------------------------

void __fastcall TClassMeetingForm::TabSheet1Show(TObject *Sender)
{
     BitBtn5->Enabled=true;
     BitBtn6->Enabled=true;
     BitBtn7->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TClassMeetingForm::BitBtn5Click(TObject *Sender)
{
   TabSheet2->Show();
 if(DBEdit13->Text==""||DBEdit7->Text=="")
   DM2->ADOQuery1->Delete();
}
//---------------------------------------------------------------------------
void __fastcall TClassMeetingForm::BitBtn7Click(TObject *Sender)
{
    TabSheet4->Show();
    if(DBEdit13->Text==""||DBEdit7->Text=="")
    DM2->ADOQuery1->Delete();   
}
//---------------------------------------------------------------------------

void __fastcall TClassMeetingForm::DBEdit3Enter(TObject *Sender)
{
     BitBtn4->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TClassMeetingForm::FormCreate(TObject *Sender)
{
      StatusBar1->Panels->Items[0]->Text="当前操作员：wise";
      StatusBar1->Panels->Items[1]->Text="班会会议记录——增加、修改、查询、删除";
      StatusBar1->Panels->Items[2]->Text="当前日期是:  "+DateToStr(Now()); //显示当前日期
}
//---------------------------------------------------------------------------
void __fastcall TClassMeetingForm::BitBtn3Click(TObject *Sender)
{
     Close();
}
//---------------------------------------------------------------------------


void __fastcall TClassMeetingForm::DBEdit2Enter(TObject *Sender)
{
    if(DBEdit3->Text=="")
       {
        ShowMessage("时间不能为空");
        DBEdit3->SetFocus();
       }     
}
//---------------------------------------------------------------------------

void __fastcall TClassMeetingForm::DBMemo4Enter(TObject *Sender)
{
      if(DBEdit3->Text=="")
       {
        ShowMessage("时间不能为空");
        DBEdit3->SetFocus();
       }
}
//---------------------------------------------------------------------------