unit3.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

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


#define GEN_ID 1
TForm3 *Form3;

//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm3::Button1Click(TObject *Sender)
{
        if (OpenPictureDialog1->Execute())
        {
        DBImage1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
        }
        else
        ShowMessage("请选择一个文件。");
}
//---------------------------------------------------------------------------
void __fastcall TForm3::CheckBox1Click(TObject *Sender)
{
        if (CheckBox1->Checked)
        {
        Form1->IBTable2->Edit();
        Form1->IBTable2->FieldByName("LOCK_FLAG")->AsInteger=1;
        }
}
//---------------------------------------------------------------------------



void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{

        //检查输入是否为空
        if ((DBEdit1->Text=="")|(DBEdit2->Text=="")|(DBEdit3->Text==""))
        {
               ShowMessage("学号或姓名或卡号不能为空值。");
        }
        else
        {
                Form1->IBTable2->Edit();
                if(Form1->IBTable2->FieldByName("STUID")->AsInteger == 0)
                {
                        Form1->IBTable2->FieldByName("STUID")->AsInteger = GEN_ID;
                }
                BitBtn2->Enabled=True;
                DBEdit1->Enabled=False;
                DBEdit2->Enabled=False;
                DBEdit3->Enabled=False;
                DBClassLookupComboBox->Enabled=False;
                DBDEPLookupComboBox->Enabled=False;
                DBSchoolLookupComboBox->Enabled=False;
                CheckBox1->Enabled=False;
                Button1->Enabled=False;
                DBEdit1->Color=clSkyBlue;
                DBEdit2->Color=clSkyBlue;
                DBEdit3->Color=clSkyBlue;
                DBClassLookupComboBox->Color=clSkyBlue;
                DBDEPLookupComboBox->Color=clSkyBlue;
                DBSchoolLookupComboBox->Color=clSkyBlue;
                Form1->IBTable2->Edit();
                Form1->IBTable2->Post();
                BitBtn1->Enabled=False;
        }




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

void __fastcall TForm3::BitBtn2Click(TObject *Sender)
{

        BitBtn2->Enabled=False;
        DBEdit1->Enabled=True;
        DBEdit2->Enabled=True;
        DBEdit3->Enabled=True;
        DBClassLookupComboBox->Enabled=True;
        DBDEPLookupComboBox->Enabled=True;
        DBSchoolLookupComboBox->Enabled=True;
        //DBEdit4->Enabled=True;
        //DBEdit5->Enabled=True;
        //DBEdit6->Enabled=True;
        CheckBox1->Enabled=True;
        Button1->Enabled=True;
        DBEdit1->Color=clWindow;
        DBEdit2->Color=clWindow;
        DBEdit3->Color=clWindow;
        DBClassLookupComboBox->Color=clWindow;
        DBDEPLookupComboBox->Color=clWindow;
        DBSchoolLookupComboBox->Color=clWindow;

        //DBEdit4->Color=clWindow;
        //DBEdit5->Color=clWindow;
        //DBEdit6->Color=clWindow;
        BitBtn1->Enabled=True;
        Form1->IBTable2->Edit();


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


void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)
{

        Form1->IBTable2->Cancel();
}
//---------------------------------------------------------------------------



void __fastcall TForm3::BitBtn4Click(TObject *Sender)
{
        if(Form1->IBTable2->IsEmpty() == False)
                Form1->IBTable2->Delete();
}
//---------------------------------------------------------------------------


void __fastcall TForm3::Button2Click(TObject *Sender)
{
        Form5->Show();
}
//---------------------------------------------------------------------------


void __fastcall TForm3::FormCreate(TObject *Sender)
{
        DBClassLookupComboBox->Enabled=False;
        DBDEPLookupComboBox->Enabled=False;
        DBSchoolLookupComboBox->Enabled=False;
        DBClassLookupComboBox->Color=clSkyBlue;
        DBDEPLookupComboBox->Color=clSkyBlue;
        DBSchoolLookupComboBox->Color=clSkyBlue;

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

void __fastcall TForm3::Button3Click(TObject *Sender)
{
        Form7->Show();
}
//---------------------------------------------------------------------------