peoplemanage.~cpp

全面剖析人力资源管理的内容

//----------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "PeopleManage.h"
//----------------------------------------------------------------------------
#pragma resource "*.dfm"
TfmPeopleManage *fmPeopleManage;
//----------------------------------------------------------------------------
__fastcall TfmPeopleManage::TfmPeopleManage(TComponent *Owner)
	: TForm(Owner)
{
}
//----------------------------------------------------------------------------
void __fastcall TfmPeopleManage::FormCreate(TObject *Sender)
{
	Table1->Open();
	Table2->Open();
    TQuery* pQuery = new TQuery(NULL);
    pQuery->DatabaseName = "db";
    pQuery->SQL->Add("select 单位编号 from 组织机构编码表 order by 单位编号");
    pQuery->Open();
    // 增加"单位编号"输入框的选择词库
    while(!pQuery->Eof)
    {
        DBComboBox4->Items->Add(pQuery->FieldByName("单位编号")->AsString);
        pQuery->Next();
    }
    pQuery->Close();
    delete pQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfmPeopleManage::DBComboBox4Change(TObject *Sender)
{
    // 根据单位编号更新单位名称
    AnsiString szSql;
    TQuery* pQuery = new TQuery(NULL);
    pQuery->DatabaseName = "db";
    szSql += "select 单位名称 from 组织机构编码表 where 单位编号 = '";
    szSql += DBComboBox4->Text + "'";
    pQuery->SQL->Add(szSql);
    pQuery->Open();
    DBEdit22->Text = pQuery->FieldByName("单位名称")->AsString;
    pQuery->Close();
    delete pQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfmPeopleManage::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    // 删除窗体并回收空间
    Action = caFree;
}
//---------------------------------------------------------------------------