querybak.cpp

数据采集

}
//---------------------------------------------------------------------------


void __fastcall Tform_query::addClick(TObject *Sender)
{
  table_pi->Active=false;
  table_pi->EmptyTable();
  table_pi->Active=true;

  char str[20];
  float wei;
  for(long i=621301;i<621455;i++){
    if((i>=621301 &&i<=621400) || i>=621451 && i<=621455) wei=27.00;
    else wei=24.00;
    sprintf(str,"%07ld",i);

    table_pi->Append();
    table_piCehao->Value= str;
    table_piPi->Value= wei;
    table_pi->Post();
  }
}
//---------------------------------------------------------------------------

void __fastcall Tform_query::Button1Click(TObject *Sender)
{
/*  char ch[10];
  float wei;
  long i;

  table_pi->Active=false;
  table_pi->EmptyTable();
  table_pi->Active=true;

  for(i=621301;i<=621455;i++){
    if(i>=621401 && i<=621450) wei=24.00;
    else wei=27.00;
    sprintf(ch,"%07ld",i);
    table_pi->Append();
    table_piCehao->Value=ch;
    table_piPi->Value=wei;
    table_pi->Post();
  }*/  
}
//---------------------------------------------------------------------------

void __fastcall Tform_query::print_zjClick(TObject *Sender)
{
      FILE *prn ;
      char title[60];
      bool flag;
      int min=65535;
      float total,total_jin=0;
      AnsiString temp;
      LPSYSTEMTIME lpst=new SYSTEMTIME;

      
    if(bd.yh_mode==YH_JG){
      strcpy(title,"济南钢铁股份公司物资计量单(二)(火车)");
      if((prn=fopen("PRN","wb"))!=NULL && tj_cnt>0){
        fprintf(prn,"  \n\n%70s\n\n",title);
        GetLocalTime(lpst);
        fprintf(prn,"统计时间：%4d-%02d-%02d   %02d:%02d                              编码:RP4-2-J-56\n",lpst->wYear,lpst->wMonth,lpst->wDay,lpst->wHour,lpst->wMinute);
        fprintf(prn,"┏─┳─┳──┳────────┳──┳──┳────┳────┳───┳───┳───┳───┳──┓\n");
        fprintf(prn,"│");   fprintf(prn,"%2s","序");    fprintf(prn,"│");   fprintf(prn,"%2s","炉");
        fprintf(prn,"│");   fprintf(prn,"%4s","炉次");    fprintf(prn,"│");   fprintf(prn,"%12s%4s","计量时间","");
        fprintf(prn,"│");   fprintf(prn,"%4s","罐号");    fprintf(prn,"│");   fprintf(prn,"%4s","物资");
        fprintf(prn,"│");   fprintf(prn,"%6s%2s","供货","");    fprintf(prn,"│");   fprintf(prn,"%6s%2s","收货","");
        fprintf(prn,"│");   fprintf(prn,"%5s%1s","毛重","");    fprintf(prn,"│");   fprintf(prn,"%5s%1s","皮重","");
        fprintf(prn,"│");   fprintf(prn,"%5s%1s","净重","");    fprintf(prn,"│");   fprintf(prn,"%5s%1s","净重","");
        fprintf(prn,"│");   fprintf(prn,"%4s","速度");    fprintf(prn,"│\n");
        fprintf(prn,"│");   fprintf(prn,"%2s","号");    fprintf(prn,"│");   fprintf(prn,"%2s","号");
        fprintf(prn,"│");   fprintf(prn,"%4s","");      fprintf(prn,"│");   fprintf(prn,"%16s","");
        fprintf(prn,"│");   fprintf(prn,"%4s","");      fprintf(prn,"│");   fprintf(prn,"%4s","品名");
        fprintf(prn,"│");   fprintf(prn,"%6s%2s","单位","");    fprintf(prn,"│");   fprintf(prn,"%6s%2s","单位","");
        fprintf(prn,"│");   fprintf(prn,"%6s","");    fprintf(prn,"│");   fprintf(prn,"%6s","");
        fprintf(prn,"│");   fprintf(prn,"%6s","（罐）");    fprintf(prn,"│");   fprintf(prn,"%6s","（炉）");
        fprintf(prn,"│");   fprintf(prn,"%4s","");    fprintf(prn,"│\n");
        fprintf(prn,"│");   fprintf(prn,"%2s","");    fprintf(prn,"│");   fprintf(prn,"%2s","");
        fprintf(prn,"│");   fprintf(prn,"%4s","");      fprintf(prn,"│");   fprintf(prn,"%16s","");
        fprintf(prn,"│");   fprintf(prn,"%4s","");      fprintf(prn,"│");   fprintf(prn,"%4s","");
        fprintf(prn,"│");   fprintf(prn,"%8s","");    fprintf(prn,"│");   fprintf(prn,"%8s","");
        fprintf(prn,"│");   fprintf(prn,"%6s","");    fprintf(prn,"│");   fprintf(prn,"%6s","");
        fprintf(prn,"│");   fprintf(prn,"%6s","（ t）");    fprintf(prn,"│");   fprintf(prn,"%6s","（ t）");
        fprintf(prn,"│");   fprintf(prn,"%4s","");    fprintf(prn,"│\n");
        for(table_tj->First();!table_tj->Eof;table_tj->Next()){
         temp=table_tj->FindField("Bak2")->AsString;
         if(StrToInt(temp)<min)  min=StrToInt(temp);
        }
        for(int i=1; i<2*8+1; i++){
          Query1->SQL->Clear();
          AnsiString sql=("select * from 'c:\\cb4\\wingdh\\db\\tj.db' where Bak2=");
          sql+="'";  sql+=IntToStr(min);  sql+="'";      min++;
          Query1->SQL->Add(sql);
          Query1->Active=true;
          for(total=0.0,Query1->First(),flag=true;!Query1->Eof;Query1->Next()){
           if(flag){
            fprintf(prn,"┣─╋─╋──╋────────╋──╋──╋────╋────╋───╋───╋───╋───╋──┫\n");
            fprintf(prn,"│");   fprintf(prn,"%2d",i);    fprintf(prn,"│");   fprintf(prn,"%2s",Query1->FindField("Bak3")->AsString.c_str());
            fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Bak2")->AsString.c_str());      fprintf(prn,"│");   fprintf(prn,"%16s",Query1->FindField("Tm")->AsString.c_str());
            fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Bak1")->AsString.c_str());      fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Name")->AsString.c_str());
            fprintf(prn,"│");   fprintf(prn,"%8s",Query1->FindField("Send")->AsString.c_str());    fprintf(prn,"│");   fprintf(prn,"%8s",Query1->FindField("Rec")->AsString.c_str());
            fprintf(prn,"│");   fprintf(prn,"%6s",Query1->FindField("Mao")->AsString.c_str());    fprintf(prn,"│");   fprintf(prn,"%6s",Query1->FindField("Pi")->AsString.c_str());
            fprintf(prn,"│");   fprintf(prn,"%6s",Query1->FindField("Jin")->AsString.c_str());    fprintf(prn,"│");   fprintf(prn,"%6s","");
            fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Spd")->AsString.c_str());    fprintf(prn,"│\n");
            total+=Query1->FindField("Jin")->AsFloat;
            flag=false;
          }
          else{
           fprintf(prn,"┣─┫  │    ┣────────╋──╋──╋────╋────╋───╋───╋───┫      ┣──┫\n");
           fprintf(prn,"│");   fprintf(prn,"%2d",++i);    fprintf(prn,"│");   fprintf(prn,"%2s","");
           fprintf(prn,"│");   fprintf(prn,"%4s","");      fprintf(prn,"│");   fprintf(prn,"%16s",Query1->FindField("Tm")->AsString.c_str());
           fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Bak1")->AsString.c_str());      fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Name")->AsString.c_str());
           fprintf(prn,"│");   fprintf(prn,"%8s",Query1->FindField("Send")->AsString.c_str());    fprintf(prn,"│");   fprintf(prn,"%8s",Query1->FindField("Rec")->AsString.c_str());
           fprintf(prn,"│");   fprintf(prn,"%6s",Query1->FindField("Mao")->AsString.c_str());    fprintf(prn,"│");   fprintf(prn,"%6s",Query1->FindField("Pi")->AsString.c_str());
           fprintf(prn,"│");   fprintf(prn,"%6s",Query1->FindField("Jin")->AsString.c_str());
           total+=Query1->FindField("Jin")->AsFloat;    fprintf(prn,"│");   fprintf(prn,"%6.2f",total);
           fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Spd")->AsString.c_str());    fprintf(prn,"│\n");
           total_jin+=total;
           flag=true;     
          } //else
        }//for !Query1->Eof
       }//for i=1;i<8
      fprintf(prn,"┗─┻─┻──┻────────┻──┻──┻────┻────┻───┻───┻───┻───┻──┛\n");
      ShowMessage("换页！！！");
      fprintf(prn,"  \n\n%70s\n\n",title);
      GetLocalTime(lpst);
      fprintf(prn,"统计时间：%4d-%02d-%02d   %02d:%02d                              编码:RP4-2-J-56\n",lpst->wYear,lpst->wMonth,lpst->wDay,lpst->wHour,lpst->wMinute);
      fprintf(prn,"┏─┳─┳──┳────────┳──┳──┳────┳────┳───┳───┳───┳───┳──┓\n");
      fprintf(prn,"│");   fprintf(prn,"%2s","序");    fprintf(prn,"│");   fprintf(prn,"%2s","炉");
      fprintf(prn,"│");   fprintf(prn,"%4s","炉次");    fprintf(prn,"│");   fprintf(prn,"%12s%4s","计量时间","");
      fprintf(prn,"│");   fprintf(prn,"%4s","罐号");    fprintf(prn,"│");   fprintf(prn,"%4s","物资");
      fprintf(prn,"│");   fprintf(prn,"%6s%2s","供货","");    fprintf(prn,"│");   fprintf(prn,"%6s%2s","收货","");
      fprintf(prn,"│");   fprintf(prn,"%5s%1s","毛重","");    fprintf(prn,"│");   fprintf(prn,"%5s%1s","皮重","");
      fprintf(prn,"│");   fprintf(prn,"%5s%1s","净重","");    fprintf(prn,"│");   fprintf(prn,"%5s%1s","净重","");
      fprintf(prn,"│");   fprintf(prn,"%4s","速度");    fprintf(prn,"│\n");
      fprintf(prn,"│");   fprintf(prn,"%2s","号");    fprintf(prn,"│");   fprintf(prn,"%2s","号");
      fprintf(prn,"│");   fprintf(prn,"%4s","");      fprintf(prn,"│");   fprintf(prn,"%16s","");
      fprintf(prn,"│");   fprintf(prn,"%4s","");      fprintf(prn,"│");   fprintf(prn,"%4s","品名");
      fprintf(prn,"│");   fprintf(prn,"%6s%2s","单位","");    fprintf(prn,"│");   fprintf(prn,"%6s%2s","单位","");
      fprintf(prn,"│");   fprintf(prn,"%6s","");    fprintf(prn,"│");   fprintf(prn,"%6s","");
      fprintf(prn,"│");   fprintf(prn,"%6s","（罐）");    fprintf(prn,"│");   fprintf(prn,"%6s","（炉）");
      fprintf(prn,"│");   fprintf(prn,"%4s","");    fprintf(prn,"│\n");
      fprintf(prn,"│");   fprintf(prn,"%2s","");    fprintf(prn,"│");   fprintf(prn,"%2s","");
      fprintf(prn,"│");   fprintf(prn,"%4s","");      fprintf(prn,"│");   fprintf(prn,"%16s","");
      fprintf(prn,"│");   fprintf(prn,"%4s","");      fprintf(prn,"│");   fprintf(prn,"%4s","");
      fprintf(prn,"│");   fprintf(prn,"%8s","");    fprintf(prn,"│");   fprintf(prn,"%8s","");
      fprintf(prn,"│");   fprintf(prn,"%6s","");    fprintf(prn,"│");   fprintf(prn,"%6s","");
      fprintf(prn,"│");   fprintf(prn,"%6s","（ t）");    fprintf(prn,"│");   fprintf(prn,"%6s","（ t）");
      fprintf(prn,"│");   fprintf(prn,"%4s","");    fprintf(prn,"│\n");
      for(int i=2*8+1; i<2*15+1; i++){
          Query1->SQL->Clear();
          AnsiString sql=("select * from 'c:\\cb4\\wingdh\\db\\tj.db' where Bak2=");
          sql+="'";  sql+=IntToStr(min);  sql+="'";      min++;
          Query1->SQL->Add(sql);
          Query1->Active=true;
          for(total=0.0,Query1->First(),flag=true;!Query1->Eof;Query1->Next()){
           if(flag){
            fprintf(prn,"┣─╋─╋──╋────────╋──╋──╋────╋────╋───╋───╋───╋───╋──┫\n");
            fprintf(prn,"│");   fprintf(prn,"%2d",i);    fprintf(prn,"│");   fprintf(prn,"%2s",Query1->FindField("Bak3")->AsString.c_str());
            fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Bak2")->AsString.c_str());      fprintf(prn,"│");   fprintf(prn,"%16s",Query1->FindField("Tm")->AsString.c_str());
            fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Bak1")->AsString.c_str());      fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Name")->AsString.c_str());
            fprintf(prn,"│");   fprintf(prn,"%8s",Query1->FindField("Send")->AsString.c_str());    fprintf(prn,"│");   fprintf(prn,"%8s",Query1->FindField("Rec")->AsString.c_str());
            fprintf(prn,"│");   fprintf(prn,"%6s",Query1->FindField("Mao")->AsString.c_str());    fprintf(prn,"│");   fprintf(prn,"%6s",Query1->FindField("Pi")->AsString.c_str());
            fprintf(prn,"│");   fprintf(prn,"%6s",Query1->FindField("Jin")->AsString.c_str());    fprintf(prn,"│");   fprintf(prn,"%6s","");
            fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Spd")->AsString.c_str());    fprintf(prn,"│\n");
            total+=Query1->FindField("Jin")->AsFloat;
            flag=false;
          }
          else{
           fprintf(prn,"┣─┫  │    ┣────────╋──╋──╋────╋────╋───╋───╋───┫      ┣──┫\n");
           fprintf(prn,"│");   fprintf(prn,"%2d",++i);    fprintf(prn,"│");   fprintf(prn,"%2s","");
           fprintf(prn,"│");   fprintf(prn,"%4s","");      fprintf(prn,"│");   fprintf(prn,"%16s",Query1->FindField("Tm")->AsString.c_str());
           fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Bak1")->AsString.c_str());      fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Name")->AsString.c_str());
           fprintf(prn,"│");   fprintf(prn,"%8s",Query1->FindField("Send")->AsString.c_str());    fprintf(prn,"│");   fprintf(prn,"%8s",Query1->FindField("Rec")->AsString.c_str());
           fprintf(prn,"│");   fprintf(prn,"%6s",Query1->FindField("Mao")->AsString.c_str());    fprintf(prn,"│");   fprintf(prn,"%6s",Query1->FindField("Pi")->AsString.c_str());
           fprintf(prn,"│");   fprintf(prn,"%6s",Query1->FindField("Jin")->AsString.c_str());
           total+=Query1->FindField("Jin")->AsFloat;    fprintf(prn,"│");   fprintf(prn,"%6.2f",total);
           fprintf(prn,"│");   fprintf(prn,"%4s",Query1->FindField("Spd")->AsString.c_str());    fprintf(prn,"│\n");
           total_jin+=total;
           flag=true;
          } //else
        }//for !Query1->Eof
       }//for i=8;i<16
      fprintf(prn,"┣─┻─╋──┻────────┻──┻──┻────┻────┻───┻───┻───┻───┻──┫\n");
      fprintf(prn,"│");    fprintf(prn,"%-6s","合计");    fprintf(prn,"│");    fprintf(prn,"%10s%10.2f%2s%70s","30 罐",total_jin,"吨","");    fprintf(prn,"│\n");
      fprintf(prn,"┗───┻──────────────────────────────────────────────┛\n");
      fprintf(prn,"%12s%40s%12s\n","六#轨道衡","","当班计量员");
      }   //if prn!=null
    } //if yh==jg
    else{
      strcpy(title,bd.name);
      strcat(title,"轨道衡统计报告单(总计结果)");
      if((prn=fopen("PRN","wb"))!=NULL && tj_cnt>0){
        fprintf(prn,"  \n\n\n%s\n",title);
        fprintf(prn,"----------------------------------------------\n");
        fprintf(prn,"   起始时间: %s\n",Edit1->Text.c_str());
        fprintf(prn,"   终止时间: %s\n",Edit2->Text.c_str());
        if(CheckBox3->Checked==TRUE)
          fprintf(prn,"   车    号: %s\n",Edit3->Text.c_str());
        if(CheckBox4->Checked==TRUE)
          fprintf(prn,"   货    名: %s\n",Edit4->Text.c_str());
        if(CheckBox5->Checked==TRUE)
          fprintf(prn,"   发货单位: %s\n",Edit5->Text.c_str());
        if(CheckBox6->Checked==TRUE)
          fprintf(prn,"   收货单位: %s\n",Edit6->Text.c_str());
        fprintf(prn,"   毛重总计:%10.2f吨\n",total_mao);
        fprintf(prn,"   皮重总计:%10.2f吨\n",total_pi);
        fprintf(prn,"   净重总计:%10.2f吨\n",total_jin);
        if(bd.yh_mode==YH_TG){
          fprintf(prn,"   扣渣后总计:%10.2f吨\n",total_yq);
        }
        fprintf(prn,"----------------------------------------------\n\n\n\n");
        fclose(prn);
      } //if prn
    }//else
}
//---------------------------------------------------------------------------