C++ Builder XE 简易销售管理含报表软件源码下载

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();
}