sysmng_unit2.~cpp

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

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

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

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

        SYSMngForm_ADOQuery1->Next();
    }

     //SYSMngForm_ADOQuery1->Active = false;
    //SYSMngForm_ADOQuery1->SQL->Clear();

    SYSMngForm_ComboBox2->ItemIndex=0;
    SYSMngForm_ComboBox1->ItemIndex=0;
}
//---------------------------------------------------------------------------







void __fastcall TAddEMPForm::SYSMngForm_Button4Click(TObject *Sender)
{
   AddEMPForm->Close();            
}
//---------------------------------------------------------------------------


void __fastcall TAddEMPForm::SMF_AddEMPPost_BTNClick(TObject *Sender)
{
    AnsiString sql2;
    int j=0;
    SYSMngForm_ADOQuery1->Active = false;
    SYSMngForm_ADOQuery1->SQL->Clear();
    sql2="select EmployeeId from EmployeeTable";
    SYSMngForm_ADOQuery1->SQL->Add(sql2);
    SYSMngForm_ADOQuery1->Active = true;
    SYSMngForm_ADOQuery1->Open();
    for(int i=0;i<SYSMngForm_ADOQuery1->RecordCount;i++)
    {
        if(SYSMngForm_Edit2->Text.Trim() ==  SYSMngForm_ADOQuery1->FieldByName("EmployeeId")->AsString)
        {
            j++;
            break;
        }
        SYSMngForm_ADOQuery1->Next();
    }

    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 if(j!=0)
        ShowMessage("你输入的员工号已存在,请更改员工号！");

    else
    {
        SYSMngForm_ADOQuery2->Active = true;
        AnsiString str;
        SYSMngForm_ADOQuery2->Insert();
        str = AddEMPForm->SYSMngForm_Edit2->Text;
        str = Trim(str);
        SYSMngForm_ADOQuery2->FieldByName("EmployeeId")->AsString = str;
        str = AddEMPForm->SYSMngForm_Edit3->Text;
        str = Trim(str);
        SYSMngForm_ADOQuery2->FieldByName("EmployeeName")->AsString = str;
        str = AddEMPForm->SYSMngForm_ComboBox4->Text;
        SYSMngForm_ADOQuery2->FieldByName("EmployeeSex")->AsString = str;
        str = AddEMPForm->SYSMngForm_DateTimePicker1->Date;
        SYSMngForm_ADOQuery2->FieldByName("EmployeeBirth")->AsString = str;
        str = AddEMPForm->SYSMngForm_ComboBox2->Text;
         SYSMngForm_ADOQuery2->FieldByName("ClinicId")->AsString = str;
        str = AddEMPForm->SYSMngForm_Edit4->Text;
        str = Trim(str);
        SYSMngForm_ADOQuery2->FieldByName("SocialNumber")->AsString = str;
        str = AddEMPForm->SYSMngForm_ComboBox1->Text;
        SYSMngForm_ADOQuery2->FieldByName("PositionId")->AsString = str;
        str = AddEMPForm->SYSMngForm_Edit1->Text;
        str = Trim(str);
        SYSMngForm_ADOQuery2->FieldByName("EmployeeProvince")->AsString = str;
        str = AddEMPForm->SYSMngForm_Edit5->Text;
        str = Trim(str);
        SYSMngForm_ADOQuery2->FieldByName("EmployeeCity")->AsString = str;
        str = AddEMPForm->SYSMngForm_Edit6->Text;
        str = Trim(str);
        SYSMngForm_ADOQuery2->FieldByName("EmployeeStreet")->AsString = str;
        str = AddEMPForm->SYSMngForm_Edit7->Text;
         str = Trim(str);
         SYSMngForm_ADOQuery2->FieldByName("EmployeePostcode")->AsString = str;
         str = AddEMPForm->SYSMngForm_Edit8->Text;
          str = Trim(str);
          SYSMngForm_ADOQuery2->FieldByName("EmployeePhone")->AsString = str;
          str = AddEMPForm->SYSMngForm_Edit9->Text;
         str = Trim(str);
         SYSMngForm_ADOQuery2->FieldByName("EmployeePwd")->AsString = str;
          str = AddEMPForm->SYSMngForm_ComboBox3->Text;
         str = Trim(str);
         SYSMngForm_ADOQuery2->FieldByName("Purview")->AsString = str;
         SYSMngForm_ADOQuery2->Post();

         ShowMessage("你已成功保存数据。");
         SMF_AddEMPPost_BTN->Enabled=false;
         }

    /*
    AnsiString sql;
    SYSMngForm_ADOQuery1->Active = false;
    SYSMngForm_ADOQuery1->SQL->Clear();
    sql="insert into EmployeeTable(EmployeeId,EmployeeName,EmployeeSex,EmployeeBirth,ClinicId,SocialNumber,PositionId,EmployeeProvince,EmployeeCity,EmployeeStreet,EmployeePostcode,EmployeePhone,EmployeePwd,Purview)" ;
    sql+="values('SYSMngForm_Edit2->Text.Trim()->AsString', 'SYSMngForm_Edit3->Text.Trim()->AsString','SYSMngForm_ComboBox4->Text->AsString','Trim(DateToStr(SYSMngForm_DateTimePicker1->Date))',";
    sql+="'SYSMngForm_ComboBox2->Text->AsString','SYSMngForm_Edit4->Text.Trim()->AsString','SYSMngForm_ComboBox1->Text->AsString','SYSMngForm_Edit1->Text.Trim()->AsString','SYSMngForm_Edit5->Text.Trim()->AsString',";
    sql+="'SYSMngForm_Edit6->Text.Trim()->AsString','SYSMngForm_Edit7->Text.Trim()->AsString','SYSMngForm_Edit8->Text.Trim()->AsString','SYSMngForm_Edit9->Text.Trim()->AsString','SYSMngForm_ComboBox3->Text->AsString')";
    SYSMngForm_ADOQuery1->SQL->Add(sql);
    SYSMngForm_ADOQuery1->Active = true;
    SYSMngForm_ADOQuery1->Open();
    */
}
//---------------------------------------------------------------------------



/*void __fastcall TAddEMPForm::SMF_AddEMPPost_Button1Click(TObject *Sender)
{
    SYSMngForm_Edit2->Clear();
    SYSMngForm_Edit3->Clear();
    SYSMngForm_ComboBox4->ItemIndex=0;
    SYSMngForm_ComboBox2->ItemIndex=0;
    SYSMngForm_Edit4->Clear();
    SYSMngForm_Edit1->Clear();
    SYSMngForm_Edit5->Clear();
    SYSMngForm_Edit6->Clear();
    SYSMngForm_Edit7->Clear();
    SYSMngForm_Edit8->Clear();
    SYSMngForm_Edit9->Clear();
    SYSMngForm_ComboBox1->ItemIndex=0;
    SYSMngForm_ComboBox3->ItemIndex=0;
} */
//---------------------------------------------------------------------------

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


void __fastcall TAddEMPForm::SMF_AddEMPPost_Button1Click(TObject *Sender)
{
      SYSMngForm_Edit2->Clear();
    SYSMngForm_Edit3->Clear();
    SYSMngForm_ComboBox4->ItemIndex=0;
    SYSMngForm_ComboBox2->ItemIndex=0;
    SYSMngForm_Edit4->Clear();
    SYSMngForm_Edit1->Clear();
    SYSMngForm_Edit5->Clear();
    SYSMngForm_Edit6->Clear();
    SYSMngForm_Edit7->Clear();
    SYSMngForm_Edit8->Clear();
    SYSMngForm_Edit9->Clear();
    SYSMngForm_ComboBox1->ItemIndex=0;
    SYSMngForm_ComboBox3->ItemIndex=0;
}
//---------------------------------------------------------------------------

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