unit7.~cpp

射频卡发卡管理系统的PC端软件

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

#include <vcl.h>
#pragma hdrstop

#include "Unit7.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

#define GEN_ID 1
TForm7 *Form7;
int numSchool;
int numDev;
int numClass;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
        : TForm(Owner)
{
        Form1->ShoolTable->Open();
        Form1->ClassTable->Open();  
        Form1->DepTable->Open();
}
//---------------------------------------------------------------------------


void __fastcall TForm7::BitBtn3Click(TObject *Sender)
{
        switch(RadioGroup1->ItemIndex)
        {
        case 0:
                if (numSchool < 0)
                {
                        Application->MessageBox("应用程序读数据库失败,请关闭重新运行.","提示",MB_OK);
                        return;
                }

                Form1->ShoolTable->Open();
                Form1->ShoolTable->Insert();
                //Form1->ShoolTable->Edit();

                //自增域需要赋初值
                numSchool++;
                Form1->ShoolTable->FieldByName("SCHOOLID")->AsInteger = numSchool;

                //Form1->ShoolTable->Edit();
                //Form1->ShoolTable->Post();


        break;

        case 1:
        {
                if (numDev < 0)
                {
                        Application->MessageBox("应用程序读数据库失败,请关闭重新运行.","提示",MB_OK);
                        return;
                }

                Form1->DepTable->Open();
                Form1->DepTable->Insert();
                //Form1->ShoolTable->Edit();
                //自增域需要赋初值
                numDev++;
                Form1->DepTable->FieldByName("DEPID")->AsInteger = numDev;

                //Form1->ShoolTable->Edit();
                //Form1->ShoolTable->Post();
                //获得学校ID
                int id = Form1->ShoolTable->FieldByName("SCHOOLID")->AsInteger;
                Form1->DepTable->FieldByName("SCHOOLID")->AsInteger = id;
        }
        break;

        case 2:
        {
                if (numClass < 0)
                {
                        Application->MessageBox("应用程序读数据库失败,请关闭重新运行.","提示",MB_OK);
                        return;
                }

                Form1->ClassTable->Open();
                Form1->ClassTable->Insert();
                //Form1->ClassTable->Edit();

                //自增域需要赋初值
                numClass++;
                Form1->ClassTable->FieldByName("CLASSID")->AsInteger = numClass;
                //获得学校ID
                int id = Form1->ShoolTable->FieldByName("SCHOOLID")->AsInteger;
                Form1->ClassTable->FieldByName("SCHOOLID")->AsInteger = id;
                //获得专业ID
                id = Form1->DepTable->FieldByName("DEPID")->AsInteger;
                Form1->ClassTable->FieldByName("DEPID")->AsInteger = id;
        }
        break;
        default:
         break;
        }        
}
//---------------------------------------------------------------------------

void __fastcall TForm7::BitBtn4Click(TObject *Sender)
{
        switch(RadioGroup1->ItemIndex)
        {
        case 0:
                if(!Form1->ShoolTable->IsEmpty())
                {
                        Form1->ShoolTable->Open();
                        Form1->ShoolTable->Delete();
                        numSchool--;
                        Form1->ShoolTable->Refresh();
                }
        break;

        case 1:
                if(!Form1->DepTable->IsEmpty())
                {
                        Form1->DepTable->Open();
                        Form1->DepTable->Delete();
                        numDev--;
                        Form1->DepTable->Refresh();
                }
        break;
        case 2:
                if(!Form1->ClassTable->IsEmpty())
                {
                        Form1->ClassTable->Open();
                        Form1->ClassTable->Delete();
                        numClass--;
                        Form1->ClassTable->Refresh();
                }
        break;
        default:
         break;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm7::BitBtn1Click(TObject *Sender)
{
        switch(RadioGroup1->ItemIndex)
        {
        case 0:
                if (numSchool <= 0)
                {
                        numSchool = 0;
                }else
                {
                    Form1->ShoolTable->Edit();
                    Form1->ShoolTable->Post();
                    Form1->ShoolTable->Refresh();
                }
        break;
        case 1:
                if (numDev <= 0)
                {
                        numDev = 0;
                }else
                {
                    Form1->DepTable->Edit();
                    Form1->DepTable->Post();
                    Form1->DepTable->Refresh();
               }
        break;
        case 2:
                if (numClass <= 0)
              {
                        numClass = 0;
              }else
              {
                        Form1->ClassTable->Edit();
                        Form1->ClassTable->Post();
                        Form1->ClassTable->Refresh();
              }
        break;
        default:
         break;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm7::FormClose(TObject *Sender, TCloseAction &Action)
{
        
        Form1->IBQueryExe->ExecSQL();
        Form1->IBTransaction1->Active = true;

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



void __fastcall TForm7::FormShow(TObject *Sender)
{
        numSchool = 0;
        Form1->ShoolTable->First();
        while(!Form1->ShoolTable->Eof)
        {
                numSchool++;
                Form1->ShoolTable->Next();
        }

        numDev = 0;
        Form1->DepTable->First();
        while(!Form1->DepTable->Eof)
        {
                numDev++;
                Form1->DepTable->Next();
        }

        numClass = 0;
        Form1->ClassTable->First();
        while(!Form1->ClassTable->Eof)
        {
                numClass++;
                Form1->ClassTable->Next();
        }
}
//---------------------------------------------------------------------------