📄 fadn.cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Fadn.h"
#include "FaAe.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "DateEdit"
#pragma resource "*.dfm"
TfrmFadn *frmFadn;
//---------------------------------------------------------------------------
__fastcall TfrmFadn::TfrmFadn(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
: TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
InitRsGlkm("");
////////
FillGridWithData();
comServer->MoveFirst();
GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::InitEditControl()
{
AnsiString sSql;
FillEdit(Handle,seFadnFat,"select fatcode,fatname from sdfat order By fatcode","fatName","fatcode");
FillComboBox(Handle,scFadnFadm,"select fadmcode,fadmname from sdfadm order By fadmcode","fadmName","fadmCode");
FillComboBox(Handle,scFadnUnit,"select unitcode,unitname from sdunit order By unitcode","unitName","unitCode");
FillEdit(Handle,seFadnSupply,"select supplycode,supplyname from sdsupply order By supplycode","supplyName","supplyCode");
FillComboBox(Handle,scFadnFaUse,"select FaUsecode,FaUsename from sdFaUse order By FaUsecode","FaUseName","FaUseCode");
FillComboBox(Handle,scFadnAddType,"select Favcode,Favname from sdFav where favtype='1' order By Favcode","FavName","FavCode");
FillComboBox(Handle,scFadnDecType,"select Favcode,Favname from sdFav where favtype='2' order By Favcode","FavName","FavCode");
FillComboBox(Handle,scFadnFav,"select Favcode,Favname from sdFav where favtype='3' order By Favcode","FavName","FavCode");
FillEdit(Handle,seFadnDept,"select Deptcode,Deptname from sdDept order By Deptcode","DeptName","DeptCode");
FillComboBox(Handle,scFadnFmonth,"select FcMonth from sdFc order By FcMonth","FcMonth");
sSql=AnsiString("select currencycode,currencyname,currencyrate=coalesce(rateratio,1) ,currencylocal from sdcurrency,sdrate");
sSql+=" where currencycode*=ratecurrency and ratefmonth='"+g_sdEMonth+"'";
FillEdit(Handle,seFadnCurrency,sSql,"CurrencyCode","CurrencyName","Currencyrate","currencyLocal");
FillComboBox(Handle,scFadnFvct,"select Fvctcode,Fvctname from sdFvct order By FvctCode","FvctName","FvctCode");
scFadnEuse->AddItems("经营用","1");
scFadnEuse->AddItems("非经营用","2");
ClientGroup->AddComponent(2,true,true,false, sgFadn,sgFadn->Name);
ClientGroup->AddComponent(2,false,false,true, tpFadn,tpFadn->Name);
ClientGroup->AddComponent(2,false,false,false, seFadnCode,seFadnCode->Name);
ClientGroup->AddComponent(2,true,true,true,GroupBox3,GroupBox3->Name);
ClientGroup->AddComponent(2,true,true,true,scFadnFmonth,scFadnFmonth->Name);
ClientGroup->AddComponent(2,true,true,true,scFadnFav,scFadnFav->Name);
ClientGroup->AddComponent(2,true,true,true,scFadnDecType,scFadnDecType->Name);
ClientGroup->AddComponent(2,true,true,true,scFadnFadm,scFadnFadm->Name);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::ClearControl(bool BringToNext)
{
if(!BringToNext)
{
seFadnCode->Text ="";
memFadnDesc->Text ="";
scFadnUnit->ItemIndex =-1;
sdFadnDate->Text =g_sdCurDate;
seFadnAddr->Text ="";
scFadnFav->ItemIndex =-1;
scFadnDecType->ItemIndex =-1;
seFadnSupply->Text ="";
seFadnArea->Text ="";
seFadnDept->Text ="";
seFadnCurrency->Text ="";
seFadnERate->Text ="0";
seFadnOVal->Text ="0";
seFadnWbOVal->Text ="0" ;
seFadnEVal->Text ="0";
seFadnCVal->Text ="0";
seFadnDVal->Text ="0";
seFadnBVal->Text ="0";
seFadnTWork->Text ="0";
seFadnAWork->Text ="0";
seFadnBWork->Text ="0";
seFadnPeriod->Text ="0";
seFadnAPeriod->Text ="0";
seFadnBPeriod->Text ="0";
scFadnFadm->ItemIndex =-1;
sdFadnUDate->Text =g_sdCurDate;
scFadnFmonth->Text =g_sdEMonth;
seFadnPVal->Text ="0";
chkFadnDiscard->Checked =false;
chkFadnFix->Checked =false;
chkFadnAe->Checked =false;
scFadnFvct->ItemIndex =0;
raFadnYzDir0->Checked =false;
raFadnYzDir1->Checked =false;
raFadnZjDir0->Checked =false;
raFadnZjDir1->Checked =false;
raFadnQoDir0->Checked =false;
raFadnQoDir1->Checked =false;
raFadnCzDir0->Checked =false;
raFadnCzDir1->Checked =false;
seFadnName->Text ="";
seFadnFat->Text ="";
scFadnFaUse->ItemIndex =-1;
scFadnEuse->ItemIndex =-1;
seFadnModel->Text ="";
seFadnFactory->Text ="";
sdFadnOfDate->Text ="";
scFadnAddType->ItemIndex =-1;
chkFadnStop->Checked =false;
chkFadnRent->Checked =false;
chkFadnDec->Checked =false;
chkFadnFc->Checked =false;
seFadnYzGlkm->Text ="";
seFadnZjGlkm->Text ="";
seFadnQoGlkm->Text ="";
seFadnCzGlkm->Text ="";
seFadnQiGlkm->Text ="";
raFadnQiDir0->Checked =false;
raFadnQiDir1->Checked =false;
seFadnZlGlkm->Text ="";
raFadnZlDir0->Checked =false;
raFadnZlDir1->Checked =false;
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::GetDataFromComObject()
{
seFadnCode->Text=GetFieldValue("FadnCode");
sgFadn->LocateGrid(1,seFadnCode->Text);
memFadnDesc->Text=GetFieldValue("FadnDesc");
scFadnUnit->LocateKey(GetFieldValue("FadnUnit"));
scFadnUnit->Text=scFadnUnit->ItemData[0];
sdFadnDate->Text=GetFieldValue("FadnDate");
scFadnFmonth->Text=GetFieldValue("FadnFmonth");
seFadnAddr->Text=GetFieldValue("FadnAddr");
seFadnSupply->LocateKey(GetFieldValue("FadnSupply"));
seFadnSupply->Text=seFadnSupply->ItemData[0];
seFadnArea->Text=GetFieldValue("FadnArea");
seFadnDept->LocateKey(GetFieldValue("FadnDept"));
seFadnDept->Text=seFadnDept->ItemData[0];
seFadnCurrency->LocateKey(GetFieldValue("FadnCurrency"));
seFadnCurrency->Text=seFadnCurrency->ItemData[1];
seFadnERate->Text=GetFieldValue("FadnERate");
seFadnOVal->Text=GetFieldValue("FadnOVal");
seFadnWbOVal->Text=GetFieldValue("FadnWbOVal");
seFadnEVal->Text=GetFieldValue("FadnEVal");
seFadnCVal->Text=GetFieldValue("FadnCVal");
seFadnDVal->Text=GetFieldValue("FadnDVal");
seFadnBVal->Text=GetFieldValue("FadnBVal");
seFadnTWork->Text=GetFieldValue("FadnTWork");
seFadnAWork->Text=GetFieldValue("FadnAWork");
seFadnBWork->Text=GetFieldValue("FadnBWork");
seFadnPeriod->Text=GetFieldValue("FadnPeriod");
seFadnAPeriod->Text=GetFieldValue("FadnAPeriod");
seFadnBPeriod->Text=GetFieldValue("FadnBPeriod");
scFadnFadm->LocateKey(GetFieldValue("FadnFadm"));
scFadnFadm->Text=scFadnFadm->ItemData[0];
sdFadnUDate->Text=GetFieldValue("FadnUDate");
seFadnPVal->Text=GetFieldValue("FadnPVal");
chkFadnDiscard->Checked=GetFieldValue("FadnDiscard")=="1";
chkFadnFix->Checked=GetFieldValue("FadnFix")=="1";
chkFadnAe->Checked=GetFieldValue("FadnAe")=="1";
scFadnFvct->LocateKey(GetFieldValue("FadnFvct"));
scFadnFvct->Text=scFadnFvct->ItemData[0];
if(GetFieldValue("FadnYzDir")=="1")
raFadnYzDir0->Checked=true;
else
raFadnYzDir1->Checked=true;
if(GetFieldValue("FadnZjDir")=="1")
raFadnZjDir0->Checked=true;
else
raFadnZjDir1->Checked=true;
if(GetFieldValue("FadnQoDir")=="1")
raFadnQoDir0->Checked=true;
else
raFadnQoDir1->Checked=true;
if(GetFieldValue("FadnCzDir")=="1")
raFadnCzDir0->Checked=true;
else
raFadnCzDir1->Checked=true;
seFadnName->Text=GetFieldValue("FadnName");
seFadnFat->LocateKey(GetFieldValue("FadnFat"));
seFadnFat->Text=seFadnFat->ItemData[0];
scFadnFaUse->LocateKey(GetFieldValue("FadnFaUse"));
scFadnFaUse->Text=scFadnFaUse->ItemData[0];
scFadnEuse->LocateKey(GetFieldValue("FadnEuse"));
scFadnEuse->Text=scFadnEuse->ItemData[0];
seFadnModel->Text=GetFieldValue("FadnModel");
seFadnFactory->Text=GetFieldValue("FadnFactory");
sdFadnOfDate->Text=GetFieldValue("FadnOfDate");
scFadnAddType->LocateKey(GetFieldValue("FadnAddType"));
scFadnAddType->Text=scFadnAddType->ItemData[0];
scFadnDecType->LocateKey(GetFieldValue("FadnDecType"));
scFadnDecType->Text=scFadnDecType->ItemData[0];
scFadnFav->LocateKey(GetFieldValue("FadnFav"));
scFadnFav->Text=scFadnFav->ItemData[0];
chkFadnStop->Checked=GetFieldValue("FadnStop")=="1";
chkFadnRent->Checked=GetFieldValue("FadnRent")=="1";
chkFadnDec->Checked=GetFieldValue("FadnDec")=="1";
chkFadnFc->Checked=GetFieldValue("FadnFc")=="1";
seFadnYzGlkm->Text=GetFieldValue("FadnYzGlkm");
seFadnZjGlkm->Text=GetFieldValue("FadnZjGlkm");
seFadnQoGlkm->Text=GetFieldValue("FadnQoGlkm");
seFadnCzGlkm->Text=GetFieldValue("FadnCzGlkm");
seFadnQiGlkm->Text=GetFieldValue("FadnQiGlkm");
seFadnZlGlkm->Text=GetFieldValue("FadnZlGlkm");
if(GetFieldValue("FadnQiDir")=="1")
raFadnQiDir0->Checked=true;
else
raFadnQiDir1->Checked=true;
if(GetFieldValue("FadnZlDir")=="1")
raFadnZlDir0->Checked=true;
else
raFadnZlDir1->Checked=true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::SendDataToComObject()
{
AnsiString s;
if(scFadnEuse->Text.IsEmpty())
throw Exception("经济用途不能为空");
SetFieldValue("FadnCode",seFadnCode->Text);
SetFieldValue("FadnDesc",memFadnDesc->Text);
SetFieldValue("FadnUnit",scFadnUnit->ItemData[1]);
SetFieldValue("FadnDate",sdFadnDate->Text);
SetFieldValue("FadnFmonth",scFadnFmonth->Text);
SetFieldValue("FadnAddr",seFadnAddr->Text);
SetFieldValue("FadnSupply",seFadnSupply->ItemData[1]);
SetFieldValue("FadnArea",seFadnArea->Text);
SetFieldValue("FadnDept",seFadnDept->ItemData[1]);
SetFieldValue("FadnCurrency",seFadnCurrency->ItemData[0]);
SetFieldValue("FadnERate",seFadnERate->Text);
SetFieldValue("FadnOVal",seFadnOVal->Text);
SetFieldValue("FadnWbOVal",seFadnWbOVal->Text);
SetFieldValue("FadnPVal",seFadnPVal->Text);
SetFieldValue("FadnEVal",seFadnEVal->Text);
SetFieldValue("FadnCVal",seFadnCVal->Text);
SetFieldValue("FadnDVal",seFadnDVal->Text);
SetFieldValue("FadnBVal",seFadnBVal->Text);
SetFieldValue("FadnTWork",seFadnTWork->Text);
SetFieldValue("FadnAWork",seFadnAWork->Text);
SetFieldValue("FadnBWork",seFadnBWork->Text);
SetFieldValue("FadnPeriod",seFadnPeriod->Text);
SetFieldValue("FadnAPeriod",seFadnAPeriod->Text);
SetFieldValue("FadnBPeriod",seFadnBPeriod->Text);
SetFieldValue("FadnFadm",scFadnFadm->ItemData[1]);
SetFieldValue("FadnDiscard",chkFadnDiscard->Checked ?"1":"0");
SetFieldValue("FadnFix",chkFadnFix->Checked ?"1":"0");
SetFieldValue("FadnAe",chkFadnAe->Checked ?"1":"0");
SetFieldValue("FadnFvct",scFadnFvct->ItemData[1]);
SetFieldValue("FadnYzDir",raFadnYzDir0->Checked?"1":"-1");
SetFieldValue("FadnZjDir",raFadnZjDir0->Checked?"1":"-1");
SetFieldValue("FadnQoDir",raFadnQoDir0->Checked?"1":"-1");
SetFieldValue("FadnCzDir",raFadnCzDir0->Checked?"1":"-1");
SetFieldValue("FadnName",seFadnName->Text);
SetFieldValue("FadnFat",seFadnFat->ItemData[1]);
SetFieldValue("FadnFaUse",scFadnFaUse->ItemData[1]);
SetFieldValue("FadnEuse",scFadnEuse->ItemData[1]);
SetFieldValue("FadnModel",seFadnModel->Text);
SetFieldValue("FadnFactory",seFadnFactory->Text);
SetFieldValue("FadnOfDate",sdFadnOfDate->Text);
SetFieldValue("FadnUDate",sdFadnUDate->Text);
SetFieldValue("FadnAddType",scFadnAddType->ItemData[1]);
SetFieldValue("FadnStop",chkFadnStop->Checked?"1":"0");
SetFieldValue("FadnRent",chkFadnRent->Checked?"1":"0");
SetFieldValue("FadnDec",chkFadnDec->Checked?"1":"0");
SetFieldValue("FadnFc",chkFadnFc->Checked?"1":"0");
SetFieldValue("FadnYzGlkm",seFadnYzGlkm->Text);
SetFieldValue("FadnZjGlkm",seFadnZjGlkm->Text);
SetFieldValue("FadnQoGlkm",seFadnQoGlkm->Text);
SetFieldValue("FadnCzGlkm",seFadnCzGlkm->Text);
SetFieldValue("FadnQiGlkm",seFadnQiGlkm->Text);
SetFieldValue("FadnQiDir",raFadnQiDir0->Checked?"1":"-1");
SetFieldValue("FadnZlGlkm",seFadnZlGlkm->Text);
SetFieldValue("FadnZlDir",raFadnZlDir0->Checked?"1":"-1");
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::WaitUserInput()
{
tpFadn->ActivePage=TabSheet1;
seFadnCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFadn::GetDataToGrid()
{
AnsiString s;
seFadnDept->LocateKey(GetFieldValue("FadnDept"));
s = "\t" + GetFieldValue("FadnCode")+
"\t" + GetFieldValue("FadnName")+
"\t" + seFadnDept->ItemData[0]+
"\t" + GetFieldValue("FadnDVal");
return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::RefreshGridData(int mAction)
{
AnsiString ItemStr;
ItemStr = GetDataToGrid();
if (mAction == 0) //Add
{
sgFadn->AddItem(ItemStr);
}
else if(mAction == 1) //Modify
{
int i = sgFadn->Row;
sgFadn->RemoveItem(i);
sgFadn->AddItem(ItemStr,i);
}
else if(mAction == 2) //Delete
{
sgFadn->RemoveItem(sgFadn->Row);
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::FillGridWithData()
{
AnsiString ItemStr;
comServer->MoveFirst();
sgFadn->RowCount = 1;
while (comServer->Eof == 0)
{
ItemStr = GetDataToGrid();
sgFadn->AddItem(ItemStr);
comServer->MoveNext();
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::FormShow(TObject *Sender)
{
/*
FillGridWithData();
comServer->MoveFirst();
GetDataFromComObject();
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadn::seFadnYzGlkmButtonClick(TObject *Sender)
{
if(OpenGlkmForm())
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -