farent.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "FaRent.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmFaRent *frmFaRent;
//---------------------------------------------------------------------------
__fastcall TfrmFaRent::TfrmFaRent(TComponent* Owner)
        : TRecBaseForm(Owner,euSdFaRent,"")
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaRent::InitEditControl()
{
    FillComboBox(scFaRentBFMonth,"select FcMonth from sdFc order By FcMonth","FcMonth");
    FillComboBox(scFaRentEFMonth,"select FcMonth from sdFc order By FcMonth","FcMonth");
    FillEdit(seFaRentFadn,"select  fadncode,fadnname  from sdfadn order By fadncode","fadncode","fadnname");
    ClientGroup->AddComponent(2,false,false,true,tpFaRent,tpFaRent->Name);
    ClientGroup->AddComponent(2,true,true,false, sgFaRent,sgFaRent->Name);
    ClientGroup->AddComponent(2,true,true,true,sdFaRentCloseDate,sdFaRentCloseDate->Name);
    ClientGroup->AddComponent(2,false,false,false, seFaRentCode,seFaRentCode->Name);
    scFaRentType->AddItems("租出","1");
    scFaRentType->AddItems("租入","2");
    scFaRentMode->AddItems("经营租赁","1");
    scFaRentMode->AddItems("融资租赁","2");
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaRent::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}

//---------------------------------------------------------------------------
void __fastcall TfrmFaRent::ClearControl(bool BringToNext)
{
     if(!BringToNext)
    {
       seFaRentCode->Text      ="";         //租赁单号
       seFaRentFadn->Text      ="";         //租赁设备
       seFaRentFadnName->Text  ="";         //设备名称
       scFaRentType->ItemIndex =-1;         //租赁类型
       sdFaRentDate->Text      =g_sdCurDate;//租赁日期
       scFaRentBFMonth->Text   =g_sdEMonth; //开始月份
       scFaRentEFMonth->Text   ="";         //结束月份
       scFaRentMode->ItemIndex =-1;         //租赁方式
       seFaRentAmt->Text       ="";         //租赁金额
       seFaRentRAmt->Text      ="";         //入账金额
       labFaRentUser->Caption  =g_sdUserCode;//操作员
       chkFaRentCheck->Checked =false;         //审核标志
       labFaRentChecker->Caption="";         //审核人
       labFaRentCheckDate->Caption="";         //审核日期
       chkFaRentClose->Checked =false;         //结清标志
       sdFaRentCloseDate->Text  ="";         //结清日期
       labFaRentSysDate->Caption="";         //系统日期
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaRent::GetDataFromComObject()
{
    seFaRentCode->Text=GetFieldValue(fiFaRentCode);
    sgFaRent->LocateGrid(1,seFaRentCode->Text);
    seFaRentFadn->LocateKey(GetFieldValue(fiFaRentFadn));
    seFaRentFadn->Text=seFaRentFadn->ItemData[0];
    seFaRentFadnName->Text=seFaRentFadn->ItemData[1];
    scFaRentType->LocateKey(GetFieldValue(fiFaRentType));
    scFaRentType->Text=scFaRentType->ItemData[0];
    sdFaRentDate->Text=GetFieldValue(fiFaRentDate);
    scFaRentBFMonth->Text=GetFieldValue(fiFaRentBFMonth);
    scFaRentEFMonth->Text=GetFieldValue(fiFaRentEFMonth);
    scFaRentMode->LocateKey(GetFieldValue(fiFaRentMode));
    scFaRentMode->Text=scFaRentMode->ItemData[0];
    seFaRentAmt->Text=GetFieldValue(fiFaRentAmt);
    seFaRentRAmt->Text=GetFieldValue(fiFaRentRAmt);
    labFaRentUser->Caption=GetFieldValue(fiFaRentUser);
    chkFaRentCheck->Checked=(GetFieldValue(fiFaRentCheck)==1)? true :false;
    if(chkFaRentCheck->Checked)
      SetCheckToolbarStatus(true);
    else
      SetCheckToolbarStatus(false);
    labFaRentChecker->Caption=GetFieldValue(fiFaRentChecker);
    labFaRentCheckDate->Caption=GetFieldValue(fiFaRentCheckDate);
    chkFaRentClose->Checked=GetFieldValue(fiFaRentClose)==1;
    sdFaRentCloseDate->Text=GetFieldValue(fiFaRentCloseDate);
    labFaRentSysDate->Caption=GetFieldValue(fiFaRentSysDate);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaRent::SendDataToComObject()
{
     CheckedRecord();     //校验记录
    if(scFaRentType->Text.IsEmpty())
      throw Exception("租赁类型不能为空");
    if(scFaRentMode->Text.IsEmpty())
      throw Exception("租赁方式不能为空");
    WriteFieldValue(comServer,fiFaRentCode,seFaRentCode->Text);
    WriteFieldValue(comServer,fiFaRentFadn,seFaRentFadn->Text);
    WriteFieldValue(comServer,fiFaRentType,scFaRentType->ItemData[1]);
    WriteFieldValue(comServer,fiFaRentDate,sdFaRentDate->Text);
    WriteFieldValue(comServer,fiFaRentBFMonth,scFaRentBFMonth->Text);
    WriteFieldValue(comServer,fiFaRentEFMonth,scFaRentEFMonth->Text);
    WriteFieldValue(comServer,fiFaRentMode,scFaRentMode->ItemData[1]);
    WriteFieldValue(comServer,fiFaRentAmt,seFaRentAmt->Text);
    WriteFieldValue(comServer,fiFaRentRAmt,seFaRentRAmt->Text);
    WriteFieldValue(comServer,fiFaRentUser,labFaRentUser->Caption);
    WriteFieldValue(comServer,fiFaRentClose,chkFaRentClose->Checked ? "1":"0");
    if(chkFaRentClose->Checked)
       WriteFieldValue(comServer,fiFaRentCloseDate,sdFaRentCloseDate->Text);
    else
       WriteFieldValue(comServer,fiFaRentCloseDate,"");

}
//---------------------------------------------------------------------------
void __fastcall TfrmFaRent::WaitUserInput()
{
    tpFaRent->ActivePage=TabSheet1;
    seFaRentCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaRent::GetDataToGrid()
{
    AnsiString  s;
    seFaRentFadn->LocateKey(GetFieldValue(fiFaRentFadn));
    s = "\t" +GetFieldValue(fiFaRentCode)+
        "\t" +GetFieldValue(fiFaRentFadn)+
        "\t" +seFaRentFadn->ItemData[1]+
        "\t" +GetFieldValue(fiFaRentDate);
   return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaRent::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr = GetDataToGrid();
    if (mAction ==  0)   //Add
    {
        sgFaRent->AddItem(ItemStr);
    }
    else if(mAction ==  1)   //Modify
    {
        int i   =   sgFaRent->Row;
        sgFaRent->RemoveItem(i);
        sgFaRent->AddItem(ItemStr,i);
    }
    else if(mAction ==  2)      //Delete
    {
        sgFaRent->RemoveItem(sgFaRent->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaRent::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgFaRent->RowCount    =   1;
    while (comServer->Eof   ==  0)
    {
        ItemStr =  GetDataToGrid();
        sgFaRent->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmFaRent::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaRent::chkFaRentCloseMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if(chkFaRentClose->Checked)
       sdFaRentCloseDate->Enabled=false;
    else
    {
       sdFaRentCloseDate->Enabled=true;
       sdFaRentCloseDate->Text="";
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaRent::chkFaRentCloseClick(TObject *Sender)
{
    if(chkFaRentClose->Checked)
       sdFaRentCloseDate->Enabled=true;
    else
       sdFaRentCloseDate->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaRent::RefreshUpdateData(int MsgSrc,int MsgType)
{
      switch(MsgSrc)
      {
        case euSdFc:
          if(ShowUpdateMessage(MsgSrc,MsgType))
           {
             FillComboBox(scFaRentBFMonth,"select FcMonth from sdFc order By FcMonth","FcMonth");
             FillComboBox(scFaRentEFMonth,"select FcMonth from sdFc order By FcMonth","FcMonth");
           }
         break;
        case euSdFadn:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillEdit(seFaRentFadn,"select  fadncode,fadnname  from sdfadn   order By fadncode","fadncode","fadnname");
         break;
       default:
         break;
      }
}
//---------------------------------------------------------------------------

void __fastcall TfrmFaRent::seFaRentCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seFaRentCode->Text);
      GetDataFromComObject();
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmFaRent::sgFaRentClick(TObject *Sender)
{
    if (sgFaRent->Row > 0)
         comServer->LocateByKey(sgFaRent->TextMatrix[sgFaRent->Row][1]);
    if (!comServer->Eof)
         GetDataFromComObject();

}
//---------------------------------------------------------------------------
void __fastcall TfrmFaRent::CheckedRecord()
{
     TComResultSet *TResultSet=NewResultSet();
     TResultSet->Close();
     try
     {
      TResultSet->Open("select * from sdfarent where FARENTFADN='"+seFaRentFadn->Text+"'","");
      if(TResultSet->RecordCount>0)
      {
        if(TResultSet->FieldByName("FARENTCHECK")=="1"&&TResultSet->FieldByName("FARENTTYPE")=="1")
        {
          AnsiString  BMonth,EMonth;
          BMonth=TResultSet->FieldByName("FARENTBFMONTH");
          EMonth=TResultSet->FieldByName("FARENTEFMONTH");
          if(BMonth<=scFaRentBFMonth->Text&&scFaRentBFMonth->Text<=EMonth)
           throw Exception("设备'"+seFaRentFadn->Text+"'还在出租期内");
        }
      }
      TResultSet->Close();
     }
     __finally
     {
      delete TResultSet;
     } 
}

void __fastcall TfrmFaRent::seFaRentFadnButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="002[设备编码][设备名称]select fadncode, fadnname from sdfadn  where (fadndec=0 and fadndiscard=0) order by fadncode ";
    try{
     StartWaitForm("正在查询，请稍候...");
     p=new TfrmWnQuery(this,"设备查询",SqlStr);
    }
    __finally
    {
     EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
     seFaRentFadn->Text=p->ColData[1];
     seFaRentFadnName->Text=p->ColData[2];
    }
    delete p;

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

void __fastcall TfrmFaRent::seFaRentFadnKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13)
    {
      TComResultSet *TResultSet=NewResultSet();
      AnsiString SQL="select fadncode, fadnname from sdfadn ";
        SQL+=" where  (fadndec=0 and fadndiscard=0) and fadncode='"+seFaRentFadn->Text+"'order by fadncode ";
      try
      {
       TResultSet->Close();
       TResultSet->Open(SQL,"");
       if(TResultSet->RecordCount<1)
         throw  Exception("设备编码'"+seFaRentFadn->Text+"'不存在或已报废、减少");
       seFaRentFadnName->Text=TResultSet->FieldByName("fadnname");
       TResultSet->Close();
      }
      __finally
      {
       delete TResultSet;
      } 
    }

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