personform.~cpp

该源代码是一个关于电力设备和电力行业操作管理的管理系统

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

#include <vcl.h>
#include <ComCtrls.hpp>
#include <Classes.hpp>
#include <DB.hpp>
#include <math.h>
#pragma hdrstop


#include "PersonForm.h"
#include "DataMod.h"
#include "Lookup_P_Form.h"
#include "AddPartmentForm.h"
#include "departmentxx.h"


//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TPersonFrm *PersonFrm;
//---------------------------------------------------------------------------
__fastcall TPersonFrm::TPersonFrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TPersonFrm::FormCreate(TObject *Sender)
{
     FileName = "";
     if(!Datam->Table2->Active)  Datam->Table2->Open();

     int row;
     int i,j,NumCount;
     bool bAdd[100],bCount;
     AnsiString mSql;
     String Sex;

     AnsiString id[100],Parent_id[100],name[100];
     AnsiString parent_name,parent_ID;

//      DBGrid1->DataSource->DataSet = Datam->Query1;
     Datam->pople_qry->Close();
     Datam->pople_qry->SQL->Clear();
     Datam->pople_qry->SQL->Add("select * from tb_employee");
     Datam->pople_qry->Open();

//     DBGrid1->Columns->Items[0]->Field->DataSet->FieldByName("employee_id")->AsString = "人员ID";
      mSql="select * from tb_department";
      Datam->department_qry->Close();
      Datam->department_qry->SQL->Clear();
      Datam->department_qry->SQL->Add(mSql);
      Datam->department_qry->Prepare();
      Datam->department_qry->Open();
      iCount = Datam->department_qry->RecordCount;
      Datam->department_qry->Close();

      Datam->Table2->First();
      for(i=0;i<iCount;i++)
      {
//          id[i-1] = DBGrid2->Columns->Items[i]->Field->DataSet->FieldByName("department_id")->AsString;
//          Parent_id[i-1] = DBGrid2->Columns->Items[i]->Field->DataSet->FieldByName("parent_department_id")->AsString;
//          ListBox1->Items->Append(DBGrid2->Columns->Items[i]->Field->DataSet->FieldByName("department_name")->AsString);
          ListBox1->Items->Append(Datam->Table2->FieldByName("department_name")->AsString);
          ComboBox4->Items->Append(Datam->Table2->FieldByName("department_name")->AsString);
          Datam->Table2->Next();
      }

//     Datam->pople_qry->ParamByName("employee_id")->AsString = "人员ID";
//     Datam->pople_qry->Params->Items[1]->DisplayName = "人员";
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("employee_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("name")->AsString;
     ComboBox2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("sex")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("duty")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("birth")->AsDateTime;
     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("education")->AsString;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department_id")->AsString;
     DateTimePicker2->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("join_date")->AsDateTime;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department_id")->AsString;
     while(!Datam->pople_qry->Eof)
     {
        try
        {
            //((TBlobField *) Query1->FieldByName("ph"))->SaveToFile("c:\\a.bmp");
            if(Edit1->Text==Datam->pople_qry->FieldByName("employee_id")->AsString)
            {
               // TGraphicField * p =  (TGraphicField*)Datam->pople_qry->FieldByName("photo");
                TBlobField * p =  (TBlobField*)Datam->pople_qry->FieldByName("photo");
                if( p->IsNull )
                {
                        Image1->Picture = NULL; //->Bitmap->FreeImage();
                }
                else
                Image1->Picture->Assign(p );
                break;
            }
        }
        catch(...)
        {
            ShowMessage("图像文件格式无效");
            break;
        }
        Datam->pople_qry->Next();
    }
      BBt_OK->Enabled = false;
//      Edit4->Text = name[1];
//      for(i=0;i<Count;i++)
//      ListBox1->Items->Strings[i] = name[i];

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

void __fastcall TPersonFrm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
     Datam->Table2->Close();
     Datam->pople_qry->Close();

     FileName = "";

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

void TPersonFrm::q_exesql(AnsiString mSql)
{
    Datam->Employee_qry->SQL->Clear();
    Datam->Employee_qry->SQL->Add(mSql);
    Datam->Employee_qry->ExecSQL();
    Datam->Employee_qry->Close();
}
//----------------------------------------------------------------------------

void __fastcall TPersonFrm::BBt_AddClick(TObject *Sender)
{
      iButton = 1;
      Edit1->Text = "";
      Edit2->Text = "";
      ComboBox2->Text = "";
      Edit3->Text = "";
      DateTimePicker1->Date = StrToDate("1900-01-01");
      ComboBox1->Text = "";
      ComboBox4->Text = "----请选择----";
      DateTimePicker2->Date = StrToDate("2000-01-01");
      BBt_OK->Enabled = true;

      Image1->Picture = NULL;
      OpenDialog1->FileName = "";
      Edit1->SetFocus();


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

void __fastcall TPersonFrm::BBt_FountClick(TObject *Sender)
{
      iButton = 1;
      Edit1->Text = "";
      Edit2->Text = "";
      ComboBox2->Text = "";
      Edit3->Text = "";
      DateTimePicker1->Date = StrToDate("1900-01-01");
      ComboBox1->Text = "";
      ComboBox4->Text = "";
      DateTimePicker2->Date = StrToDate("2000-01-01");
      try
      {
           Lookup_P = new TLookup_P(Application);
           Lookup_P->ShowModal();
      }
      __finally
      {
           delete Lookup_P;
      }

     int row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("employee_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("name")->AsString;
     ComboBox2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("sex")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("duty")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("birth")->AsDateTime;
     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("education")->AsString;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department_id")->AsString;
     DateTimePicker2->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("join_date")->AsDateTime;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department_id")->AsString;
     while(!Datam->pople_qry->Eof)
     {
        try
        {
            //((TBlobField *) Query1->FieldByName("ph"))->SaveToFile("c:\\a.bmp");
            if(Edit1->Text==Datam->pople_qry->FieldByName("employee_id")->AsString)
            {
               // TGraphicField * p =  (TGraphicField*)Datam->pople_qry->FieldByName("photo");
                TBlobField * p =  (TBlobField*)Datam->pople_qry->FieldByName("photo");
                if( p->IsNull )
                {
                        Image1->Picture = NULL; //->Bitmap->FreeImage();
                }
                else
                Image1->Picture->Assign(p );
                break;
            }
        }
        catch(...)
        {
            ShowMessage("图像文件格式无效");
            break;
        }
        Datam->pople_qry->Next();
    }
}
//---------------------------------------------------------------------------

void __fastcall TPersonFrm::BBt_ExitClick(TObject *Sender)
{
     Close();        
}
//---------------------------------------------------------------------------

void __fastcall TPersonFrm::BBt_DeleteClick(TObject *Sender)
{
/*    TishiFrm->Show();
    if(TishiFrm->bd)
    {
        DBGrid1->SelectedRows->Delete();
    }
*/
    AnsiString Msg;
    Msg = "你确定删除该人员信息吗？";
    if(MessageBox(Handle,Msg.c_str() ,"警告",MB_OKCANCEL)==IDOK)
    {
//         Datam->Employee_qry->Close();
         String Record = DBGrid1->Columns->Items[DBGrid1->SelectedIndex]->Field->DataSet->FieldByName("employee_id")->AsString;
         Datam->Employee_qry->SQL->Clear();
         Datam->Employee_qry->SQL->Add("delete from tb_employee where employee_id='"+Record+"'");
         Datam->Employee_qry->ExecSQL();
         Datam->Employee_qry->Close();
    }
     Datam->pople_qry->Close();
     Datam->pople_qry->SQL->Clear();
     Datam->pople_qry->SQL->Add("select * from tb_employee");
     Datam->pople_qry->Open();

//       DBGrid1->SelectedRows->Delete();

/*
      int i;
      for(i=DBGrid1->SelectedRows->Count-1;i>0;i--)
      {
          DBGrid1->DataSource->DataSet->Bookmark = DBGrid1->SelectedRows->Items[i];
          DBGrid1->DataSource->DataSet->Delete();
      }
*/
     int row;
     String Sex;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("employee_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("name")->AsString;
     ComboBox2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("sex")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("duty")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("birth")->AsDateTime;
     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("education")->AsString;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department_id")->AsString;
     DateTimePicker2->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("join_date")->AsDateTime;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department_id")->AsString;

  /*
     Datam->Employee_qry->Close();
     Datam->Employee_qry->SQL->Clear();
     Datam->Employee_qry->SQL->Add("select * from tb_employee where id='"+Edit1->Text+"'");
     TGraphicField * p =  (TGraphicField*)Datam->Employee_qry->FieldByName("ph");
     Image1->Picture->Assign(p );
     Datam->Employee_qry->ExecSQL();
     Datam->Employee_qry->Close();
/**/
     while(!Datam->pople_qry->Eof)
     {
        try
        {
            //((TBlobField *) Query1->FieldByName("ph"))->SaveToFile("c:\\a.bmp");
            if(Edit1->Text==Datam->pople_qry->FieldByName("employee_id")->AsString)
            {
               // TGraphicField * p =  (TGraphicField*)Datam->pople_qry->FieldByName("photo");
                TBlobField * p =  (TBlobField*)Datam->pople_qry->FieldByName("photo");
                if( p->IsNull )
                {
                        Image1->Picture = NULL; //->Bitmap->FreeImage();
                }
                else
                Image1->Picture->Assign(p );
                break;
            }
        }
        catch(...)
        {
            ShowMessage("图像文件格式无效");
            break;
        }
        Datam->pople_qry->Next();
    }
}
//---------------------------------------------------------------------------

void __fastcall TPersonFrm::BBt_ChangClick(TObject *Sender)
{
     int row;
     String Sex;
     row = DBGrid1->SelectedIndex;
     Edit1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("employee_id")->AsString;
     Edit2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("name")->AsString;
     ComboBox2->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("sex")->AsString;
     Edit3->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("duty")->AsString;
     DateTimePicker1->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("birth")->AsDateTime;
     ComboBox1->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("education")->AsString;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department_id")->AsString;
     DateTimePicker2->Date = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("join_date")->AsDateTime;
     ComboBox4->Text = DBGrid1->Columns->Items[row]->Field->DataSet->FieldByName("department_id")->AsString;

  /*
     Datam->Employee_qry->Close();
     Datam->Employee_qry->SQL->Clear();
     Datam->Employee_qry->SQL->Add("select * from tb_employee where id='"+Edit1->Text+"'");
     TGraphicField * p =  (TGraphicField*)Datam->Employee_qry->FieldByName("ph");
     Image1->Picture->Assign(p );
     Datam->Employee_qry->ExecSQL();
     Datam->Employee_qry->Close();
/**/
     while(!Datam->pople_qry->Eof)
     {
        try
        {
            //((TBlobField *) Query1->FieldByName("ph"))->SaveToFile("c:\\a.bmp");
            if(Edit1->Text==Datam->pople_qry->FieldByName("employee_id")->AsString)
            {
               // TGraphicField * p =  (TGraphicField*)Datam->pople_qry->FieldByName("photo");
                TBlobField * p =  (TBlobField*)Datam->pople_qry->FieldByName("photo");
                if( p->IsNull )
                {
                        Image1->Picture = NULL; //->Bitmap->FreeImage();
                }
                else
                Image1->Picture->Assign(p );
                break;
            }
        }
        catch(...)
        {
            ShowMessage("图像文件格式无效");
            break;
        }
        Datam->pople_qry->Next();
    }
//    Datam->pople_qry->First();

     iButton = 2;
     ID = Edit1->Text;
     BBt_OK->Enabled = true;
     OpenDialog1->FileName = "";

     Edit1->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TPersonFrm::BBt_OKClick(TObject *Sender)
{
     AnsiString TemSql;        //人员属性值
     AnsiString ErrorMsg;      //错误消息
     String DateStr,JoinDate;
     String Edu,PhotoData;
     AnsiString mSql;          //人员属性项
     String De_id;
     TBlobStream  *photoStream;
     String SexStr;