empapply.cpp

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#include <vcl.h>
#include "EmpApply.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "DateEdit"
#pragma link "SDComboBox"
#pragma resource "*.dfm"

TfrmEmpApply *frmEmpApply;
void __fastcall TfrmEmpApply::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
      seEmpApplyCode->Text = "";
      seEmpApplyDept->Text = "";
      seEmpApplyQty->Text = "";
      deEmpApplydate->Text = "";
      scEmpApplySex->Text = "";
      scEmpApplyKnowledge->Text = "";
      scEmpApplyProfession->Text = "";
      scEmpApplyWl->Text = "";
      scEmpApplyRank->Text = "";
      scEmpApplyTow->Text = "";
      deEmpApplyRdate->Text = "";
      memEmpApplyDesc->Text= "";
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmEmpApply::GetDataFromComObject()
{
    seEmpApplyCode->Text  =   GetFieldValue("EmpApplyCode");
    sgEmpApply->LocateGrid(1,seEmpApplyCode->Text);
    seEmpApplyDept->LocateKey(GetFieldValue("EmpApplyDept"));
    seEmpApplyQty->Text  =   GetFieldValue("EmpApplyQty");
    deEmpApplydate->Text  =   GetFieldValue("EmpApplydate");
    scEmpApplySex->LocateKey(GetFieldValue("EmpApplySex"));
    scEmpApplyKnowledge->LocateKey(GetFieldValue("EmpApplyKnowledge"));
    scEmpApplyProfession->LocateKey(GetFieldValue("EmpApplyProfession"));
    scEmpApplyWl->LocateKey(GetFieldValue("EmpApplyWl"));
    scEmpApplyRank->LocateKey(GetFieldValue("EmpApplyRank"));
    scEmpApplyTow->LocateKey(GetFieldValue("EmpApplyTow"));
    deEmpApplyRdate->Text =   GetFieldValue("EmpApplyRdate");
    memEmpApplyDesc->Text =   GetFieldValue("EmpApplyDesc");
}
//---------------------------------------------------------------------------

void __fastcall TfrmEmpApply::SendDataToComObject()
{
    SetFieldValue("EmpApplyCode",WideString(seEmpApplyCode->Text));
    SetFieldValue("EmpApplyDept",seEmpApplyDept->ItemData[cbItem2]);
    SetFieldValue("EmpApplyQty",WideString(seEmpApplyQty->Text));
    SetFieldValue("EmpApplydate",WideString(deEmpApplydate->Text));
    SetFieldValue("EmpApplySex",scEmpApplySex->ItemData[cbItem2]);
    SetFieldValue("EmpApplyKnowledge",scEmpApplyKnowledge->ItemData[cbItem2]);
    SetFieldValue("EmpApplyProfession",scEmpApplyProfession->ItemData[cbItem2]);
    SetFieldValue("EmpApplyWl",scEmpApplyWl->ItemData[cbItem2]);
    SetFieldValue("EmpApplyRank",scEmpApplyRank->ItemData[cbItem2]);
    SetFieldValue("EmpApplyTow",scEmpApplyTow->ItemData[cbItem2]);
    SetFieldValue("EmpApplyRdate",WideString(deEmpApplyRdate->Text));
    SetFieldValue("EmpApplyDesc",WideString(memEmpApplyDesc->Text));
}
//---------------------------------------------------------------------------

void __fastcall TfrmEmpApply::WaitUserInput()
{
    if(seEmpApplyCode->Enabled)
       seEmpApplyCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmEmpApply::GetDataToGrid()
{
    AnsiString  ItemStr;
     seEmpApplyDept->LocateKey(GetFieldValue("EmpApplyDept"));
     scEmpApplyRank->LocateKey(GetFieldValue("EmpApplyRank"));
     scEmpApplyTow->LocateKey(GetFieldValue("EmpApplyTow"));
    ItemStr = "\t"+GetFieldValue("EmpApplyCode") +
              "\t" + seEmpApplyDept->ItemData[cbItem1] +
              "\t" + GetFieldValue("EmpApplyQty") +
              "\t" + scEmpApplyRank->ItemData[cbItem1] +
              "\t" + scEmpApplyTow->ItemData[cbItem1];

    return(ItemStr);
}
//---------------------------------------------------------------------------

void __fastcall TfrmEmpApply::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr = GetDataToGrid();
    // 新增
    if(mAction ==  0)
    {
       sgEmpApply->AddItem(ItemStr);
       sgEmpApply->Row=sgEmpApply->RowCount-1;
    }
    // 修改
    else if(mAction ==  1)
    {
       sgEmpApply->ChangeItem(ItemStr,sgEmpApply->Row);
    }
    // 删除
    else if(mAction ==  2)
    {
       sgEmpApply->RemoveItem(sgEmpApply->Row);
    }
}

//---------------------------------------------------------------------------
void __fastcall TfrmEmpApply::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgEmpApply->RowCount = 1;
    while(comServer->Eof == 0)
    {
       ItemStr = GetDataToGrid();
       sgEmpApply->AddItem(ItemStr);
       comServer->MoveNext();
    }
}

//---------------------------------------------------------------------------
void __fastcall TfrmEmpApply::InitEditControl()
{
    ClientGroup->AddComponent(2,true,true,false, sgEmpApply,sgEmpApply->Name);
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,false,true,false, seEmpApplyCode,seEmpApplyCode->Name);
    ClientGroup->AddComponent(2,false,false,true,seEmpApplyDept,seEmpApplyDept->Name);

    scEmpApplySex->ClearAll();
    scEmpApplySex->AddItems("男","0");
    scEmpApplySex->AddItems("女","1");
    scEmpApplySex->AddItems("不限","2");
    scEmpApplyKnowledge->ClearAll();
    scEmpApplyKnowledge->AddItems("小学","1");
    scEmpApplyKnowledge->AddItems("初中","2");
    scEmpApplyKnowledge->AddItems("中专","3");
    scEmpApplyKnowledge->AddItems("高中","4");
    scEmpApplyKnowledge->AddItems("大专","5");
    scEmpApplyKnowledge->AddItems("本科","6");
    scEmpApplyKnowledge->AddItems("硕士","7");
    scEmpApplyKnowledge->AddItems("博士","8");
    scEmpApplyKnowledge->AddItems("博士后","9");

    FillComboBox(Handle,scEmpApplyRank,"select RankCode,RankName from SdRank order by RankCode","RankName","RankCode");
    FillComboBox(Handle,scEmpApplyTow,"Select TowCode,TowName from SdTow order by TowCode","TowName","TowCode");
    FillEdit(Handle,seEmpApplyDept,"Select DeptCode,DeptName from sdDept order by DeptCode","DeptName","DeptCode");
    FillComboBox(Handle,scEmpApplyProfession,"Select ProfessionCode,ProfessionName from ksProfession order by ProfessionCode","ProfessionName","ProfessionCode");
           
}

//---------------------------------------------------------------------------
__fastcall TfrmEmpApply::TfrmEmpApply(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
    : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
    AutoCtl= seEmpApplyCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmEmpApply::FormClose(TObject *Sender, TCloseAction &Action)
{
    TRecBaseForm::FormClose(Sender,Action);
/*
    AnsiString FormIniFile = "D:\Test.Ini";
    WriteGridWidth(Name,sgProfession,FormIniFile);
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmEmpApply::FormCreate(TObject *Sender)
{
 /*
    AnsiString FormIniFile="D:\Test.Ini";
    SetGridWidth(Name,sgProfession,FormIniFile);
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmEmpApply::FormShow(TObject *Sender)
{
    FillGridWithData();
    ClearControl(false);
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmEmpApply::sgEmpApplyClick(TObject *Sender)
{
    if(sgEmpApply->Row > 0)
       comServer->LocateByKey(WideString(sgEmpApply->TextMatrix[sgEmpApply->Row][1]));
    if(!comServer->Eof)
       GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmEmpApply::seProfessionCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
       comServer->LocateByKey(WideString(seEmpApplyCode->Text));
       GetDataFromComObject();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmEmpApply::seEmpApplyDeptButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    SqlStr="002[部门代码][部门名称]SELECT DeptCode,DeptName FROM sdDept";
    SqlStr=SqlStr+" where DeptEnd=1 ORDER BY DeptCode";
    TfrmWnQuery *p;
    try
    {
       StartWaitForm("正在查询,请稍候...");
       p=new TfrmWnQuery(this,"部门资料查询",SqlStr);
    }
    __finally
    {
       EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
       seEmpApplyDept->LocateKey(p->ColData[1]);
    }
    delete p;
}
//---------------------------------------------------------------------------