peoplequery.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "PeopleQuery.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmPeopleQuery *fmPeopleQuery;
//---------------------------------------------------------------------------
__fastcall TfmPeopleQuery::TfmPeopleQuery(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmPeopleQuery::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    // 删除窗体并回收空间
    Action = caFree;       
}
//---------------------------------------------------------------------------
void __fastcall TfmPeopleQuery::btQueryClick(TObject *Sender)
{
    AnsiString szSQL;    // 查询语句
    AnsiString szCondition;   // 条件
    szSQL = "select 姓名,性别,出生日期,籍贯,民族,办公电话,婚姻状况,";
    szSQL += "单位名称,文化程度 from 职员基本信息表 as a, 组织机构编码表 as b";
    szSQL += " where a.单位编号=b.单位编号";
    if(!edNameCode->Text.IsEmpty())
        szCondition += "姓名简码 like '%" + edNameCode->Text + "%' and ";
    if(!edName->Text.IsEmpty())
        szCondition += "姓名 like '%" + edName->Text + "%' and ";
    if(!cmbSex->Text.IsEmpty())
        szCondition += "性别 like '%" + cmbSex->Text + "%' and ";
    if(!cmbNature->Text.IsEmpty())
        szCondition += "民族 like '%" + cmbNature->Text + "%' and ";
    if(!cmbCity->Text.IsEmpty())
        szCondition += "籍贯 like '%" + cmbCity->Text + "%' and ";
    if(!szCondition.IsEmpty ())    // 存在查询条件
    {
        szCondition = szCondition.SubString(1,szCondition.Length()-5);
        szSQL += " and " + szCondition;
    }
    Query1->SQL->Clear();
    Query1->SQL->Add(szSQL);
    Query1->Open();
    // 这里控制各列的列宽
    DBGrid1->Columns->Items[0]->Width = 50;
    DBGrid1->Columns->Items[1]->Width = 30;
    DBGrid1->Columns->Items[2]->Width = 70;
    DBGrid1->Columns->Items[3]->Width = 100;
    DBGrid1->Columns->Items[4]->Width = 40;
    DBGrid1->Columns->Items[5]->Width = 90;
    DBGrid1->Columns->Items[6]->Width = 40;
    DBGrid1->Columns->Items[7]->Width = 100;
    DBGrid1->Columns->Items[8]->Width = 100;
}
//---------------------------------------------------------------------------
// 开始进入，列出所有职员信息
void __fastcall TfmPeopleQuery::FormCreate(TObject *Sender)
{
    AnsiString szSQL;    // 查询语句
    szSQL = "select 姓名,性别,出生日期,籍贯,民族,办公电话,婚姻状况,";
    szSQL += "单位名称,文化程度 from 职员基本信息表 as a, 组织机构编码表 as b";
    szSQL += " where a.单位编号=b.单位编号";
    Query1->SQL->Clear();
    Query1->SQL->Add(szSQL);
    Query1->Open();
    // 这里控制各列的列宽
    DBGrid1->Columns->Items[0]->Width = 50;
    DBGrid1->Columns->Items[1]->Width = 30;
    DBGrid1->Columns->Items[2]->Width = 70;
    DBGrid1->Columns->Items[3]->Width = 100;
    DBGrid1->Columns->Items[4]->Width = 40;
    DBGrid1->Columns->Items[5]->Width = 90;
    DBGrid1->Columns->Items[6]->Width = 40;
    DBGrid1->Columns->Items[7]->Width = 100;
    DBGrid1->Columns->Items[8]->Width = 100;
}
//---------------------------------------------------------------------------