joad.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 179 行

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

#include <vcl.h>
#pragma hdrstop

#include "Joad.h"
//#include "Joad_d.h"
#include "WnQuery.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "GroupBaseForm"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmJoad *frmJoad;
//---------------------------------------------------------------------------
__fastcall TfrmJoad::TfrmJoad(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TGroupBaseForm(Owner,chWnd,MidCode,WhereStr)
{
  OwGrid=JoadGrid;
  AnsiString YearStr,MonthStr,DateStr;
  DateStr=DateToStr(Date());
  YearStr=DateStr.SubString(1,4);
  MonthStr=DateStr.SubString(6,8);
  if(MonthStr.Pos('-')-1>1)
  {
  MonthStr=MonthStr.SubString(1,MonthStr.Pos('-')-1);
  //cbsdMonth->Text=YearStr+MonthStr;
  }
  else
  {
   MonthStr=MonthStr.SubString(1,MonthStr.Pos('-')-1);
  // cbsdMonth->Text=YearStr+"0"+MonthStr;
  }

}
//---------------------------------------------------------------------------
void __fastcall TfrmJoad::InitEditControl()
{

 //dtDateEn->Text="";
 //dtDateBg->Text="";

 AddGroupItem(edDeptBox,edDept,"sysDeptName","sysDeptName,sysDept","\t部门名称\t部门编码");
 AddGroupItem(sysFmonthBox,cbsdMonth,"sysFmonth","sysFmonth","\t月份");
// l_SumField=" AVG(MaccBopQty) as MaccBopQty ,AVG(MaccBopAmt) as MaccBopAmt,sum(sysPQty) as sysPQty, sum(sysPAmt) as sysPAmt,sum(sysGQty) as sysGQty,sum(sysGAmt) as sysGAmt,AVG(MaccRopQty) as MaccRopQty,AVG(MaccRopAmt) as maccRopAmt,AVG(MACCFopQty) as MACCFopQty,AVG(MACCFopAmt) as MACCFopAmt,AVG(MaccBopQty)  + AVG(maccRopQty)+sum(sysPQty -sysGQty)-AVG(MACCFopQty) as MaccEndQty,AVG(MaccBopAmt) +AVG(maccRopAmt)+sum(sysPAmt -sysGAmt)-AVG(MACCFopAmt) as MaccEndAmt from ksVW_ReptMacc " ;
// l_SumDisp="\t期初数量\t期初金额\t入库数量\t入库金额\t出库数量\t出库金额\t调整数量\t调整金额\t结存数量\t结存金额\t差别数量\t差别金额";
// l_DefField=" syscode, sysGoods, syssName, sysDate, sysFmonth, sysUnitName, sysPrice, MaccBopQty,MaccBopAmt, sysPQty, sysPAmt, sysGQty, sysGAmt, sysType,sysTypeName, sysDept,sysDeptName, sysPmpccode,sysPmpcName, sysLoc,sysLocName,LocSthCode,LocSthName FROM ksVW_ReptMacc"; //bu
// l_DefDisp="\t出入库单号\t物料编号\t物料名称\t出入库日期\t财务月份\t单位\t单价\t期初数量\t期初金额\t入库数量\t入库金额\t出库数量\t出库金额\t库存事务\t事务名称\t部门编码\t部门名称\t物料分类\t分类名称\t货位编码\t货位名称\t仓库编码\t仓库名称";
  s_DateField="sysFmonth";
 l_DefField=" sysDeptName,sysFmonth,sysEpc,sysLopc,sysTapc,sysTfc FROM ksVW_Joad";
 l_DefDisp="\t部门名称\t财务月份\t入职人数\t离职人数\t调职人数\t调动人数";



  FillComboBox(Handle,cbsdMonth,"SELECT distinct sysFMonth FROM ksVW_data order by sysFMonth","sysFMonth");
  edDept->Text="" ;

  cbsdMonth->ItemIndex=-1;
}
//---------------------------------------------------------------------------



void __fastcall TfrmJoad::edDeptButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="004[部门编码][部门名称][联系人][电话]select DeptCode,DeptName,DeptLinkman,DeptTel from sdDept  order by DeptCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"部门资料查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
     edDept->Text=(p->ColData[2]);
  }
  delete p;

}
//---------------------------------------------------------------------------
/*AnsiString __fastcall TfrmJoad::GetDetailQueryStr()
{
AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 if(JoadGrid->RowCount < 2 || JoadGrid->Row == 0 )    //当前行无效
  return("");
 Selectstr="select "
          +AnsiString("sysCode, ")
          +AnsiString("sysEpCode, ")
          +AnsiString("sysEpName, ")
          +AnsiString("sysAdate ");

 Fromstr=" from ksVW_Joad_h";
 //Wherestr =" where sysDept='"+JoadGrid->Cells[1][JoadGrid->Row]+"'";
 Orderstr=" order by sysCode";
 return(Selectstr+Fromstr+Wherestr+Orderstr);

}
*/
//---------------------------------------------------------------------------
void __fastcall TfrmJoad::FillGridWithDetail()
{
/*TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 TfrmJoad_d *p;
 //获取查询语句
 sSql=GetDetailQueryStr();
 if(sSql=="")
  return;
 try
 {
  p=new TfrmJoad_d(this);
  p->seDept->Text=JoadGrid->Cells[1][JoadGrid->Row];
  p->sgJoad_d->RowCount=1;
  RsQuery=new  TComResultSet(Handle,g_ClientHandle);
  RsQuery->Open(sSql,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
 //  if(p->seDocType->Text == "")
 //  p->seDocType->Text=DataConvert("ArivdDocType",RsQuery->FieldByName("ArivdDocType"));
   ItemStr=AnsiString("")+
          "\t"+RsQuery->FieldByName("sysCode")+
          "\t"+RsQuery->FieldByName("sysEpCode")+
          "\t"+RsQuery->FieldByName("sysEpName")+
          "\t"+RsQuery->FieldByName("sysAdate");
   p->sgJoad_d->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
  if(p->sgJoad_d->RowCount > 1)
   p->ShowModal();
 }
 __finally
 {
  delete RsQuery;
  delete p;
 } */
}
//---------------------------------------------------------------------------
/*void __fastcall TfrmJoad::btFindClick(TObject *Sender)
{
   //if (edDept->Text==""|| cbsdMonth->Text=="")
    //  l_DefField=" sysDeptName,sysFmonth,sysEpc,sysLopc,sysTapc,sysTfc FROM ksVW_Joadinit";
 //  else
      l_DefField=" sysDeptName,sysFmonth,sysEpc,sysLopc,sysTapc,sysTfc FROM ksVW_Joad";

    try
    {
      StartWaitForm("正在查询,请稍候...");
      FillGridWithData();
    }
    __finally
    {
      EndWaitForm();
    }
} */
//---------------------------------------------------------------------------


void __fastcall TfrmJoad::JoadGridDblClick(TObject *Sender)
{
 /* int ARow=JoadGrid->Row;
 if(ARow>0)
 {
  FillGridWithDetail();
 } */
}
//---------------------------------------------------------------------------