C++ Builder XE 简易销售管理含报表软件源码下载
CSDN源码下载:https://download.csdn.net/download/lzksword/13944761
//------------------------------------------------------------------------------进货表显示
RzPageControl1->ActivePageIndex=2;
// RzPageControl1->ActivePageIndex=1;
Form4->ADOQuery1->Close();
Form4->ADOQuery1->SQL->Text ="select * from JHtable order by JHrq desc";
Form4->ADOQuery1->Open();
if(Form4->ADOQuery1->RecordCount<=0)
return;
RzListView3->Clear();
TListItem *pItem=0;
Form4->ADOQuery1->First();
for(int i=0;i<Form4->ADOQuery1->RecordCount;i++)
{ pItem=RzListView3->Items->Add();
pItem->Caption=AnsiString(i+1);
//pItem->SubItems->Add(Form1->ADOQuery2->FieldByName("Kpname")->Text);
pItem->SubItems->Add(Form4->ADOQuery1->FieldByName("KHname")->Text);
pItem->SubItems->Add(Form4->ADOQuery1->FieldByName("GWcp")->Text);
pItem->SubItems->Add(Form4->ADOQuery1->FieldByName("JHnum")->Text);
pItem->SubItems->Add(Form4->ADOQuery1->FieldByName("JYnum")->Text);
pItem->SubItems->Add(Form4->ADOQuery1->FieldByName("JHrq")->Text);
pItem->SubItems->Add(Form4->ADOQuery1->FieldByName("JHywy")->Text);
pItem->SubItems->Add(Form4->ADOQuery1->FieldByName("JHdj")->Text);
//pItem->SubItems->Add(Form1->ADOQuery2->FieldByName("Ktime")->Text);
//pItem->SubItems->Add(Form1->ADOQuery2->FieldByName("Knum")->Text);
RzListView3->Items->Item[RzListView3->Items->Count-1]->Checked=true;
Form4->ADOQuery1->Next();
}
//-----------------------------------------------------------显示产品表
void __fastcall TForm2::XScp()
{
RzListView1->Clear();
RzPageControl1->ActivePageIndex=0;
Form3->ADOQuery1->Close();
Form3->ADOQuery1->SQL->Text ="select * from Ptable";
Form3->ADOQuery1->Open();
if(Form3->ADOQuery1->RecordCount<=0)
return;
TListItem *pItem=0;
Form3->ADOQuery1->First();
for(int i=0;i<Form3->ADOQuery1->RecordCount;i++)
{ pItem=RzListView1->Items->Add();
pItem->Caption=AnsiString(i+1);
pItem->SubItems->Add(Form3->ADOQuery1->FieldByName("PName")->Text);
pItem->SubItems->Add(Form3->ADOQuery1->FieldByName("Pkind")->Text);
pItem->SubItems->Add(Form3->ADOQuery1->FieldByName("Pgg")->Text);
pItem->SubItems->Add(Form3->ADOQuery1->FieldByName("Phl")->Text);
pItem->SubItems->Add(Form3->ADOQuery1->FieldByName("Pdj")->Text);
pItem->SubItems->Add(Form3->ADOQuery1->FieldByName("Pjj")->Text);
pItem->SubItems->Add(Form3->ADOQuery1->FieldByName("Pbz")->Text);
RzListView1->Items->Item[RzListView1->Items->Count-1]->Checked=true;
Form3->ADOQuery1->Next();
}
}
//---------------------------------------------------------------------------打印浏览
void __fastcall TForm2::RzToolButton18Click(TObject *Sender)
{
//Printdata1->Close();
//
// Printdata1->SQL->Text ="select * from JHtable";
// Printdata1->Active=true;
// Printdata1->Open();
ADOQuery1->Close();
ADOQuery1->SQL->Text ="SELECT count(KHname) as JYnum,sum(jynum) as JYsum, sum(cint(JHnum)*cint(JHdj) ) as DJsum,(JYsum-DJsum) as YLsum FROM JHtable";
ADOQuery1->Open();
//
//detailqry->Close();
//detailqry->SQL->Clear();
//detailqry->SQL->Text = String().sprintf(
// "delete * from detailtable");
//detailqry->ExecSQL();
//开始添加数据
//detailqry->Close();
Printdata2->SQL->Clear();
Printdata2->SQL->Text = "select * from JHtable order by JHrq desc";
Printdata2->Open();
frxReport1->LoadFromFile(ExtractFilePath(ParamStr(0)) + "XB.fr3");
frxReport1->ShowReport();
}