?? querybak.cpp
字號:
CheckBox6->Visible=false;
Edit6->Visible=false;
DBGrid1->Columns->Items[2]->Visible=false;
DBGrid1->Columns->Items[10]->Visible=true;
DBGrid1->Columns->Items[10]->Width=40;
DBGrid1->Columns->Items[11]->Visible=true;
DBGrid1->Columns->Items[11]->Width=40;
DBGrid1->Columns->Items[12]->Visible=true;
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){
strcpy(title,"六#軌道衡匯總表");
if((prn=fopen("PRN","wb"))!=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=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");
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();
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -