sysmng_unit3.cpp

这是我们班实习的时候做的一个宠物医院管理系统。sql数据库

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

#include <vcl.h>
#pragma hdrstop

#include "SYSMng_Unit3.h"
#include "SYSMng_Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TModifyEMPForm *ModifyEMPForm;
//---------------------------------------------------------------------------
__fastcall TModifyEMPForm::TModifyEMPForm(TComponent* Owner)
        : TForm(Owner)
{
    AnsiString sql1;
    SYSMngForm_ADOQuery2->Active = false;
    SYSMngForm_ADOQuery2->SQL->Clear();
    sql1="select ClinicId from Clinic";
    SYSMngForm_ADOQuery2->SQL->Add(sql1);
    SYSMngForm_ADOQuery2->Active = true;
    SYSMngForm_ADOQuery2->Open();
    for(int i=0;i<SYSMngForm_ADOQuery1->RecordCount;i++)
    {
        SYSMngForm_ComboBox2->Items->Add(SYSMngForm_ADOQuery2->FieldByName("ClinicId")->AsString);
        SYSMngForm_ADOQuery2->Next();
    }

    SYSMngForm_ADOQuery2->Active = false;
    SYSMngForm_ADOQuery2->SQL->Clear();
    sql1="select PositionId from PositionTable";
    SYSMngForm_ADOQuery2->SQL->Add(sql1);
    SYSMngForm_ADOQuery2->Active = true;
    SYSMngForm_ADOQuery2->Open();
    for(int i=0;i<SYSMngForm_ADOQuery1->RecordCount;i++)
    {
        SYSMngForm_ComboBox3->Items->Add(SYSMngForm_ADOQuery2->FieldByName("PositionId")->AsString);

        SYSMngForm_ADOQuery2->Next();
    }

    SYSMngForm_Edit1->ReadOnly=true;
    SMF_AddEMPPost_BTN->Enabled=false;
    SYSMngForm_BTN->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TModifyEMPForm::SMF_AddEMPPost_BTNClick(TObject *Sender)
{
        if(SYSMngForm_Edit1->Text.IsEmpty()||SYSMngForm_Edit2->Text.IsEmpty()||SYSMngForm_Edit3->Text.IsEmpty()||SYSMngForm_Edit4->Text.IsEmpty()||SYSMngForm_Edit5->Text.IsEmpty()||SYSMngForm_Edit6->Text.IsEmpty()||SYSMngForm_Edit7->Text.IsEmpty()||SYSMngForm_Edit8->Text.IsEmpty()||SYSMngForm_Edit9->Text.IsEmpty())
            ShowMessage("请勿删除项目！");
        else
        {
        SYSMngForm_ADOQuery1->Active=true;
        AnsiString str;
        SYSMngForm_ADOQuery1->Edit();
        //SYSMngForm_ADOQuery1->FieldByName("EmployeeId")->AsString = ModifyEMPForm->SYSMngForm_Edit1->Text;
        ModifyEMPForm->SYSMngForm_ADOQuery1->FieldByName("EmployeeName")->AsString = ModifyEMPForm->SYSMngForm_Edit2->Text;
        ModifyEMPForm->SYSMngForm_ADOQuery1->FieldByName("EmployeeSex")->AsString = ModifyEMPForm->SYSMngForm_ComboBox1->Text;
        ModifyEMPForm->SYSMngForm_ADOQuery1->FieldByName("EmployeeBirth")->AsString = ModifyEMPForm->SYSMngForm_SMF_AddEMPBirth_DTP->Date;
        ModifyEMPForm->SYSMngForm_ADOQuery1->FieldByName("ClinicId")->AsString = ModifyEMPForm->SYSMngForm_ComboBox2->Text;
        ModifyEMPForm->SYSMngForm_ADOQuery1->FieldByName("SocialNumber")->AsString = ModifyEMPForm->SYSMngForm_Edit3->Text;
        ModifyEMPForm->SYSMngForm_ADOQuery1->FieldByName("EmployeePosition")->AsString = ModifyEMPForm->SYSMngForm_ComboBox3->Text;
        ModifyEMPForm->SYSMngForm_ADOQuery1->FieldByName("EmployeeProvince")->AsString = ModifyEMPForm->SYSMngForm_Edit4->Text;
        ModifyEMPForm->SYSMngForm_ADOQuery1->FieldByName("EmployeeCity")->AsString = ModifyEMPForm->SYSMngForm_Edit4->Text;
        ModifyEMPForm->SYSMngForm_ADOQuery1->FieldByName("EmployeeStreet")->AsString = ModifyEMPForm->SYSMngForm_Edit6->Text;
        ModifyEMPForm->SYSMngForm_ADOQuery1->FieldByName("EmployeePostcode")->AsString = ModifyEMPForm->SYSMngForm_Edit7->Text;
        ModifyEMPForm->SYSMngForm_ADOQuery1->FieldByName("EmployeePhone")->AsString = ModifyEMPForm->SYSMngForm_Edit8->Text;
        ModifyEMPForm->SYSMngForm_ADOQuery1->FieldByName("EmployeePwd")->AsString = ModifyEMPForm->SYSMngForm_Edit9->Text;

        SYSMngForm_ADOQuery1->UpdateRecord();
        //->Post();
        SYSMngForm_ADOQuery1->Refresh();
        ShowMessage("数据提交成功！");

        SMF_AddEMPPost_BTN->Enabled=false;
        }
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::SYSMngForm_BTNClick(TObject *Sender)
{
         //ModifyEMPForm->SYSMngForm_Edit1->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeId")->AsString;
         ModifyEMPForm->SYSMngForm_Edit2->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeName")->AsString;
         ModifyEMPForm->SYSMngForm_ComboBox1->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeSex")->AsString;
         ModifyEMPForm->SYSMngForm_SMF_AddEMPBirth_DTP->Date =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeBirth")->AsDateTime;
         ModifyEMPForm->SYSMngForm_ComboBox2->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("ClinicId")->AsString;
         ModifyEMPForm->SYSMngForm_Edit3->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("SocialNumber")->AsString;
         ModifyEMPForm->SYSMngForm_ComboBox3->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("PositionId")->AsString;
         ModifyEMPForm->SYSMngForm_Edit4->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeProvince")->AsString;
         ModifyEMPForm->SYSMngForm_Edit5->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeCity")->AsString;
         ModifyEMPForm->SYSMngForm_Edit6->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeStreet")->AsString;
         ModifyEMPForm->SYSMngForm_Edit7->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeePostcode")->AsString;
         ModifyEMPForm->SYSMngForm_Edit8->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeePhone")->AsString;
         ModifyEMPForm->SYSMngForm_Edit9->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeePwd")->AsString;
         ModifyEMPForm->SYSMngForm_ComboBox4->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("PurView")->AsString;

         SMF_AddEMPPost_BTN->Enabled=true;
         SYSMngForm_BTN->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::Button4Click(TObject *Sender)
{
     ModifyEMPForm->Close();
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::SYSMngForm_Edit2Change(TObject *Sender)
{
    SMF_AddEMPPost_BTN->Enabled=true;
    SYSMngForm_BTN->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::SYSMngForm_ComboBox1Change(TObject *Sender)
{
    SMF_AddEMPPost_BTN->Enabled=true;
    SYSMngForm_BTN->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::SYSMngForm_ComboBox2Change(TObject *Sender)
{
    SMF_AddEMPPost_BTN->Enabled=true;
    SYSMngForm_BTN->Enabled=true;        
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::SYSMngForm_Edit3Change(TObject *Sender)
{
    SMF_AddEMPPost_BTN->Enabled=true;
    SYSMngForm_BTN->Enabled=true;        
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::SYSMngForm_ComboBox3Change(TObject *Sender)
{
    SMF_AddEMPPost_BTN->Enabled=true;
    SYSMngForm_BTN->Enabled=true;        
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::SYSMngForm_Edit4Change(TObject *Sender)
{
    SMF_AddEMPPost_BTN->Enabled=true;
    SYSMngForm_BTN->Enabled=true;        
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::SYSMngForm_Edit5Change(TObject *Sender)
{
    SMF_AddEMPPost_BTN->Enabled=true;
    SYSMngForm_BTN->Enabled=true;        
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::SYSMngForm_Edit6Change(TObject *Sender)
{
    SMF_AddEMPPost_BTN->Enabled=true;
    SYSMngForm_BTN->Enabled=true;        
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::SYSMngForm_Edit7Change(TObject *Sender)
{
    SMF_AddEMPPost_BTN->Enabled=true;
    SYSMngForm_BTN->Enabled=true;        
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::SYSMngForm_Edit8Change(TObject *Sender)
{
    SMF_AddEMPPost_BTN->Enabled=true;
    SYSMngForm_BTN->Enabled=true;        
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::SYSMngForm_Edit9Change(TObject *Sender)
{
    SMF_AddEMPPost_BTN->Enabled=true;
    SYSMngForm_BTN->Enabled=true;        
}
//---------------------------------------------------------------------------

void __fastcall TModifyEMPForm::SYSMngForm_ComboBox4Change(TObject *Sender)
{
    SMF_AddEMPPost_BTN->Enabled=true;
    SYSMngForm_BTN->Enabled=true;        
}
//---------------------------------------------------------------------------