query.cpp

数据采集

      DBGrid1->Columns->Items[12]->Width=40;
      DBGrid1->Columns->Items[6]->Title->Caption="物资品名";
      DBGrid1->Columns->Items[7]->Title->Caption="供货单位";
      DBGrid1->Columns->Items[8]->Title->Caption="收货单位";
      print_zj->Caption="打印计量单-F9";
      print_xx->Caption="打印汇总表-F8";
     }
}
//---------------------------------------------------------------------------

void __fastcall Tform_query::print_xxClick(TObject *Sender)
{
      //FILE *prn ;
      float jin[8];
      char title[60];

   if(bd.yh_mode==YH_JG || bd.yh_mode==YH_JGNEW){
      if(bd.yh_mode==YH_JG){
        strcpy(title,"六#轨道衡汇总表");
      }else{
        strcpy(title,"七#轨道衡汇总表");
      }
      if(prn!=NULL && tj_cnt>0){
        fprintf(prn,"  \n\n%60s\n\n",title);
        fprintf(prn,"%80s\n","编码:RP4-2-J-53");
        fprintf(prn,"统计时间：%s-%s       编码:RP4-2-J-53       计量员      单位：吨\n",Edit1->Text.c_str(),Edit2->Text.c_str());
        fprintf(prn,"┏──┳────┳────┳────┳──┳─────┳──────────┓\n");
        fprintf(prn,"┃");    fprintf(prn,"%4s","序号");       fprintf(prn,"┃");    fprintf(prn,"%8s","物资来源");
        fprintf(prn,"┃");    fprintf(prn,"%8s","物资去向");   fprintf(prn,"┃");    fprintf(prn,"%8s","物资品名");
        fprintf(prn,"┃");    fprintf(prn,"%4s","炉号");
        fprintf(prn,"┃");    fprintf(prn,"%7s%3s","净重","");
        fprintf(prn,"┃");    fprintf(prn,"%10s%10s","备注","");      fprintf(prn,"┃\n");
        jin[0]=0; jin[1]=0; jin[2]=0; jin[3]=0; jin[4]=0; jin[5]=0;    jin[6]=0;  jin[7]=0;
         for(table_tj->First();table_tj->Eof!=TRUE;table_tj->Next()){
          if(table_tjBak3->AsString=="1")  jin[0]+= table_tj->FindField("Jin")->AsFloat;
          if(table_tjBak3->AsString=="2")  jin[1]+= table_tj->FindField("Jin")->AsFloat;
          if(table_tjBak3->AsString=="3")  jin[2]+= table_tj->FindField("Jin")->AsFloat;
          if(table_tjBak3->AsString=="4")  jin[3]+= table_tj->FindField("Jin")->AsFloat;
          if(table_tjBak3->AsString=="5")  jin[4]+= table_tj->FindField("Jin")->AsFloat;
          if(table_tjBak3->AsString=="6")  jin[5]+= table_tj->FindField("Jin")->AsFloat;
          if(table_tjName->AsString=="铁块")   jin[6]+= table_tj->FindField("Jin")->AsFloat;
          if(table_tjSend->AsString=="三炼铁" && table_tjRec->AsString=="一炼钢") jin[7]+=table_tj->FindField("Jin")->AsFloat;
         }
        for( int i=0;i<6;i++){
         fprintf(prn,"┣──╋━━━━╋━━━━╋━━━━╋─━╋━━━━━╋━━━━━━━━━━┫\n");
         fprintf(prn,"┃");    fprintf(prn,"%4s",IntToStr(i+1).c_str());
         fprintf(prn,"┃");    fprintf(prn,"%8s","一炼铁");
         fprintf(prn,"┃");    fprintf(prn,"%8s","一炼钢");
         fprintf(prn,"┃");    fprintf(prn,"%8s","铁水");
         fprintf(prn,"┃");    fprintf(prn,"%2s#%1s",IntToStr(i+1).c_str(),"");
         fprintf(prn,"┃");    fprintf(prn,"%10.2f",jin[i]);
         fprintf(prn,"┃");    fprintf(prn,"%20s","");      fprintf(prn,"┃\n");
        }
        fprintf(prn,"┣──╋━━━━╋━━━━╋━━━━╋─━╋━━━━━╋━━━━━━━━━━┫\n");
        fprintf(prn,"┃");    fprintf(prn,"%4d",7);
        fprintf(prn,"┃");    fprintf(prn,"%8s","三炼铁");
        fprintf(prn,"┃");    fprintf(prn,"%8s","一炼钢");
        fprintf(prn,"┃");    fprintf(prn,"%8s","铁水");
        fprintf(prn,"┃");    fprintf(prn,"%2s#%1s","7","");
        fprintf(prn,"┃");    fprintf(prn,"%10.2f",jin[7]);
        fprintf(prn,"┃");    fprintf(prn,"%20s","");      fprintf(prn,"┃\n");
        fprintf(prn,"┣──╋━━━━╋━━━━╋━━━━╋─━╋━━━━━╋━━━━━━━━━━┫\n");
        fprintf(prn,"┃");    fprintf(prn,"%4d",8);
        fprintf(prn,"┃");    fprintf(prn,"%8s","一炼铁");
        fprintf(prn,"┃");    fprintf(prn,"%8s","销售公司");
        fprintf(prn,"┃");    fprintf(prn,"%8s","铁块");
        fprintf(prn,"┃");    fprintf(prn,"%4s","");
        fprintf(prn,"┃");    fprintf(prn,"%10.2f",jin[6]);
        fprintf(prn,"┃");    fprintf(prn,"%20s","");      fprintf(prn,"┃\n");
        fprintf(prn,"┕──┻━━━━┻━━━━┻━━━━┻─━┻━━━━━┻━━━━━━━━━━┛\n");
        fprintf(prn,"铁水总产量：%10.2f  铁块总产量：%10.2f  总产量：%10.2f",
          jin[0]+jin[1]+jin[2]+jin[3]+jin[4]+jin[5],jin[6],jin[0]+jin[1]+jin[2]+jin[3]+jin[4]+jin[5]+jin[6]);
        fprintf(prn,"\n\n\n");
        //fclose(prn);
      }//if  prn
   } //if yh==jg
   else{
      strcpy(title,bd.name);
      strcat(title,"轨道衡统计报告单(详细结果)");
      if(prn!=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");

        fprintf(prn,"%4s%16s%10s%8s%8s%8s%12s%16s%16s%6s\n","序号","日期_时间",
         "车号","毛重","皮重","净重","货名","收货单位","发货单位","速度");
        fprintf(prn,"--------------------------------------------------------------------------------------------------------\n");
        for(table_tj->First();table_tj->Eof!=TRUE;table_tj->Next()){
          fprintf(prn,"%-4s%16s%10s%8.2f%8.2f%8.2f%12s%16s%16s%6d\n",
               table_tj->FindField("No")->AsString.c_str(),
               table_tj->FindField("Tm")->AsString.c_str(),
               table_tj->FindField("Cehao")->AsString.c_str(),
               table_tj->FindField("Mao")->AsFloat,
               table_tj->FindField("Pi")->AsFloat,
               table_tj->FindField("Jin")->AsFloat,
               table_tj->FindField("Name")->AsString.c_str(),
               table_tj->FindField("Rec")->AsString.c_str(),
               table_tj->FindField("Send")->AsString.c_str(),
               table_tj->FindField("Spd")->AsInteger );//dataSpd->AsString.c_str()
        }
        fprintf(prn,"--------------------------------------------------------------------------------------------------------\n");
        fprintf(prn,"\n\n\n");
        //fclose(prn);
      }//if prn
   }//else
}


//---------------------------------------------------------------------------

void __fastcall Tform_query::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  switch(Key){
    case F10_KEY: start_queryClick(NULL); break;
    case F7_KEY:  del_dbClick(NULL);break;
    case F8_KEY:  print_xxClick(NULL); break;
    case F9_KEY:  print_zjClick(NULL);break;
    case Esc_KEY: EscClick(NULL); break;
  }
}
//---------------------------------------------------------------------------

/*
void __fastcall Tform_query::send_buttonClick(TObject *Sender)
{
  int cnt_file;

  if((cnt_file=get_send_file())==0) return;
  try{
    if(bd.lw==1){
      NMSMTP1->Host = bd.smtp_host;
      NMSMTP1->Port = 25;
      NMSMTP1->UserID = bd.smtp_id;
      NMSMTP1->Connect();
      NMSMTP1->PostMessage->FromAddress = "GCU@LEADER";
      NMSMTP1->PostMessage->FromName = "GCU";
      NMSMTP1->PostMessage->Subject = "data file";
      NMSMTP1->PostMessage->ToAddress->Add(bd.smtp_to_address);

      NMSMTP1->PostMessage->Attachments->AddStrings(ListBox1->Items);
      //NMSMTP1->PostMessage->Body->Assign(Memo1->Lines);
      NMSMTP1->SendMail();
      NMSMTP1->Disconnect();

      char msg[60]=" 发送了";
      strcat(msg,IntToStr(cnt_file).c_str());
      strcat(msg,"个文件");
      Application->MessageBox(msg," ", MB_OK);
    }else if(bd.lw==2){
      NMFTP1->Host = bd.ftp_host;
      NMFTP1->Port = 21;
      NMFTP1->UserID = bd.ftp_id;
      NMFTP1->Password = bd.ftp_pw;
      NMFTP1->Connect();
      AnsiString tmp;
      for(int i=0;i<cnt_file;i++){
        tmp=ListBox1->Items->Strings[i];
        NMFTP1->Upload(tmp,tmp.SubString(tmp.Length()-18,19));
      }
      NMFTP1->Disconnect();
      char msg[60]=" 发送了";
      strcat(msg,IntToStr(cnt_file).c_str());
      strcat(msg,"个文件");
      Application->MessageBox(msg," ", MB_OK);
    }
  }catch(...){
      Application->MessageBox("   发送文件失败    ", " ", MB_OK);
  }
}

int __fastcall Tform_query::get_send_file()
{
  int cnt_file=0;
  try{
      ListBox1->Items->Clear();
      dir->Active=FALSE;
      dir->DatabaseName = DB;//important
      dir->TableName = "dir.db";//important
      if(dir->Exists==TRUE){
          dir->Active=TRUE;
          for(dir->First();dir->Eof!=TRUE;dir->Next()){
            AnsiString tmp=dir->FindField("Tm")->AsString;
            if(tmp.SubString(1,8)==Edit7->Text){
              ListBox1->Items->Add(DB_PATH+tmp+".txt");
              cnt_file++;
            }
          }
          dir->Active=TRUE;
          if(cnt_file==0){
              Application->MessageBox("   没有这一天的文件  ", " ", MB_OK);
              return 0;
          }
      }else return 0;
  }catch(...){return 0;}
  return cnt_file;
}
*/
//---------------------------------------------------------------------------

void __fastcall Tform_query::del_dbClick(TObject *Sender)
{
  form_del_db->ShowModal();
}
//---------------------------------------------------------------------------


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++){