Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
GlbQtyWillRev.cpp
Package: 科思ERP部分源码及控件 [view]
Upload User: xgxgxg8
Upload Date: 2007-02-22
Package Size: 6882k
Code Size: 9k
Category:
ERP-EIP-OA-Portal
Development Platform:
Delphi
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #include "GlbQtyWillRev.h"
- #include "GlbQF_NeedGet.h"
- #include "GlbmQtyWillRev.h"
- //---------------------------------------------------------------------------
- #pragma hdrstop
- #pragma package(smart_init)
- #pragma link "QueryBaseForm"
- #pragma link "SDGrid"
- #pragma link "KSAdvReport"
- #pragma resource "*.dfm"
- TfrmGlbQtyWillRev *frmGlbQtyWillRev;
- TfrmGlbmQtyWillRev *TmpGlbmQtyWillRev;
- TfrmGlbQF_NeedGet *TmpGlbQtyWillRev;
- //---------------------------------------------------------------------------
- __fastcall TfrmGlbQtyWillRev::TfrmGlbQtyWillRev(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
- : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
- {
- //InitGridControl();
- labMemory->Caption="";
- QueryGrid=sgGlbQtyWillRev;
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::InitGridControl()
- {
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::tbQueryClick(TObject *Sender)
- {
- if(!ShowQueryWindow())
- return;
- try{
- StartWaitForm("正在查询,请稍候...");
- labMemory->Caption="--"+FGfcmonthInfo;
- FillGridWithData();
- }
- __finally
- {
- EndWaitForm();
- }
- }
- //---------------------------------------------------------------------------
- bool __fastcall TfrmGlbQtyWillRev::ShowQueryWindow()
- {
- TmpGlbQtyWillRev=new TfrmGlbQF_NeedGet(this);
- TmpGlbQtyWillRev->Caption="预付帐款总帐查询过滤";
- TmpGlbQtyWillRev->FQtyAmtSign="1";
- TmpGlbQtyWillRev->ShowModal();
- if(TmpGlbQtyWillRev->CancelQuery)
- {
- delete TmpGlbQtyWillRev;
- return false;
- }
- FilterStr=TmpGlbQtyWillRev->CreateSqlString;
- FGfcmonthInfo=TmpGlbQtyWillRev->FmonthInfo;
- delete TmpGlbQtyWillRev;
- return true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::ClearControl(bool BringToNext)
- {
- return;
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::GetDataFromComObject()
- {
- return;
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::WaitUserInput()
- {
- return;
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::RefreshGridData(int mAction)
- {
- return;
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::DisplayBill()
- {
- return;
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::GetBill(AnsiString BillID)
- {
- return;
- }
- //---------------------------------------------------------------------------
- AnsiString __fastcall TfrmGlbQtyWillRev::GetHeadQueryStr()
- {
- AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
- //客户编码,客户名称,财务月份,摘要,方向,
- Selectstr = "select PzdClient,ClientName,PzhFmonth,NoteBookText=IsNULL(NoteBookText,''),PzdDir,KmName = IsNULL(GlkmName,'')";
- Selectstr += ",GlbBopAmt,GlbDopAmt,GlbCopAmt,GlbDoyAmt,GlbCoyAmt,GlbAoyAmt";
- Fromstr = " From sdPzd,sdPzh,sdClient,sdNoteBook,sdGlkm,sdGlb";
- Wherestr = " where PzdClient=IsNULL(ClientCode,'') and PzhCode=PzdCode and PzdZy*=NoteBookCode and PzdGlkm*=GlkmCode and PzhCheck=1";
- Wherestr += " and pzdGlkm like '115%'";
- Wherestr += " and pzhFmonth=GlbFmonth and pzdGlkm=Glbglkm";
- if(FilterStr.Trim() != "")
- Wherestr += " and " + FilterStr;
- Orderstr = " order by PzdClient,PzhFmonth";
- sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
- return(sSQL);
- }
- //---------------------------------------------------------------------------
- AnsiString __fastcall TfrmGlbQtyWillRev::GetSpace(int iNum)
- {
- AnsiString strSpace;
- for(int i=1;i<iNum;i++)
- strSpace=strSpace+AnsiString(" ");
- return strSpace;
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::FillGridWithData()
- {
- TComResultSet *RsQuery;
- AnsiString ItemStr0,ItemStr1,ItemStr2,sSql;
- sSql=GetHeadQueryStr(); //取Head查询的SQL语句
- if(sSql=="")
- return;
- sgGlbQtyWillRev->RowCount=1;
- RecentBillCode="";
- RsQuery=new TComResultSet(Handle,g_ClientHandle);
- RsQuery->Open(sSql,"");
- RsQuery->MoveFirst();
- ItemStr0 = "";
- ItemStr1 = "";
- ItemStr2 = "";
- while(RsQuery->Eof == 0)
- {
- double pAmtsum = RsQuery->FieldByName("GlbDopAmt").ToDouble() - RsQuery->FieldByName("GlbCopAmt").ToDouble(); //本期余额
- double yAmtsum = RsQuery->FieldByName("GlbAoyAmt").ToDouble(); //本年累计
- //期初
- ItemStr0 = RsQuery->FieldByName("pzdClient") + "t" +
- RsQuery->FieldByName("ClientName") + "t" +
- RsQuery->FieldByName("PzhFmonth") + "t" +
- "期初余额ttt" ;
- if(RsQuery->FieldByName("GlbBopAmt")==0)
- ItemStr0 += "平t0.00" ;
- else
- ItemStr0 += (RsQuery->FieldByName("PzdDir")=="1" ? "借":"贷") ;
- ItemStr0 += "t" + FormatFloat("#,##0.00",RsQuery->FieldByName("GlbBopAmt").ToDouble());
- //本期 --------------------------------------------------------------------------
- ItemStr1 = "tt" +
- RsQuery->FieldByName("PzhFmonth") + "t" +
- "本期合计t" +
- FormatFloat("#,##0.00",RsQuery->FieldByName("GlbDopAmt").ToDouble()) + "t" +
- FormatFloat("#,##0.00",RsQuery->FieldByName("GlbCopAmt").ToDouble()) + "t" ;
- if(pAmtsum == 0)
- ItemStr1 += "平t0.00" ;
- else
- ItemStr1 += (RsQuery->FieldByName("PzdDir")=="1" ? "借":"贷") ;
- ItemStr1 += "t" + FormatFloat("#,##0.00",pAmtsum) ;
- //本年---------------------------------------------------------------------------
- ItemStr2 = "tt" +
- RsQuery->FieldByName("PzhFmonth") + "t" +
- "本年合计t" +
- FormatFloat("#,##0.00",RsQuery->FieldByName("GlbDoyAmt").ToDouble()) + "t" +
- FormatFloat("#,##0.00",RsQuery->FieldByName("GlbCoyAmt").ToDouble()) + "t" ;
- if(yAmtsum == 0)
- ItemStr2 += "平t0.00" ;
- else
- ItemStr2 += (RsQuery->FieldByName("PzdDir")=="1" ? "借":"贷") ;
- ItemStr2 += "t" + FormatFloat("#,##0.00",yAmtsum) ;
- sgGlbQtyWillRev->AddItem(ItemStr0);
- sgGlbQtyWillRev->AddItem(ItemStr1);
- sgGlbQtyWillRev->AddItem(ItemStr2);
- RsQuery->MoveNext();
- }
- RsQuery->Close();
- delete RsQuery;
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::muFirstClick(TObject *Sender)
- {
- if(sgGlbQtyWillRev->RowCount > 1)
- sgGlbQtyWillRev->Row=1;
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::muNextClick(TObject *Sender)
- {
- if(sgGlbQtyWillRev->RowCount > 1 && sgGlbQtyWillRev->Row < sgGlbQtyWillRev->RowCount-1)
- sgGlbQtyWillRev->Row=sgGlbQtyWillRev->Row+1;
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::muLastClick(TObject *Sender)
- {
- if(sgGlbQtyWillRev->RowCount > 1)
- sgGlbQtyWillRev->Row=sgGlbQtyWillRev->RowCount-1;
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::muPreviousClick(TObject *Sender)
- {
- if(sgGlbQtyWillRev->RowCount > 1 && sgGlbQtyWillRev->Row > 1)
- sgGlbQtyWillRev->Row=sgGlbQtyWillRev->Row-1;
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::tbRefreshClick(TObject *Sender)
- {
- if(sSQL=="")
- return;
- FillGridWithData();
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::FormShow(TObject *Sender)
- {
- tbQueryClick(this);
- }
- //---------------------------------------------------------------------------
- void __fastcall TfrmGlbQtyWillRev::sgGlbQtyWillRevDblClick(TObject *Sender)
- {
- int iRow;
- iRow=sgGlbQtyWillRev->Row;
- if(iRow > 1)
- if(sgGlbQtyWillRev->Cells[2][iRow].Trim()!="")
- {
- try
- {
- TmpGlbmQtyWillRev=new TfrmGlbmQtyWillRev(this);
- //TmpGlbmQtyWillRev->FQtyAmtGlkm=Trim(sgGlbQtyWillRev->Cells[0][iRow]);
- TmpGlbmQtyWillRev->FQtyAmtFmonth=Trim(sgGlbQtyWillRev->Cells[2][iRow]);
- TmpGlbmQtyWillRev->FMfcmonthInfo=FGfcmonthInfo;
- TmpGlbmQtyWillRev->FGlbQtyAmtSign=1;
- TmpGlbmQtyWillRev->ShowModal();
- }
- __finally
- {
- delete TmpGlbmQtyWillRev;
- }
- }
- }
- //---------------------------------------------------------------------------