开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 打印编程 > 查看源码
uMain.cpp
资源名称：yiyaofapiao.rar　[点击查看]
上传用户：liuxiao
上传日期：2022-07-06
资源大小：1115k
文件大小：19k
源码类别：

打印编程

开发平台：

C++ Builder

uMain.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "uMain.h"
  7. #include "uCommon.h"
  8. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. #pragma link "frxClass"
  11. #pragma link "frxPreview"
  12. #pragma link "WinSkinData"
  13. #pragma link "frxDBSet"
  14. #pragma link "frxDesgn"
  15. #pragma resource "*.dfm"
  16. TfrmMain *frmMain;
  17. //---------------------------------------------------------------------------
  18. __fastcall TfrmMain::TfrmMain(TComponent* Owner)
  19.     : TForm(Owner)
  20. {
  21.     //
  22.     Caption = g_strAppTitle;
  23.     Application->Title = g_strAppTitle;
  24.     // 使用皮肤
  25.     sknMain->Active = true;
  26.     // 连接数据库
  27.     con->Connected = false;
  28.     con->ConnectionString = String("Provider=Microsoft.Jet.OLEDB.4.0;")
  29.             + "Data Source=" + ExtractFilePath(ParamStr(0)) + "data.mdb;"
  30.             + "Persist Security Info=False";
  31.     con->Connected = true;
  32.     //
  33.     tblTemp->Open();
  34.     // 默认为欢迎页面
  35.     pgcMain->ActivePageIndex = 0;
  36.     //
  37.     lblAppTitle->Caption = g_strAppTitle;
  38.     lblAppTitle->Left = (Width - lblAppTitle->Width) / 2;
  39.     lblAppVer->Caption = g_strAppVer;
  40.     lblAppVer->Left = lblAppTitle->Left + (lblAppTitle->Width - lblAppVer->Width);
  41.     //
  42.     dtpGenBillDate->Date = Now();
  43.     dtpQueryStart->Date = Now();
  44.     dtpQueryEnd->Date = Now();
  45.     //
  46.     // frReport->AddFunction("function NumToRMBStr(fValue: DOUBLE): String;", "Myfunction", "小写金额转大写的函数");
  47. }
  48. //---------------------------------------------------------------------------
  49. void __fastcall TfrmMain::btnCloseOrderClick(TObject *Sender)
  50. {
  51.     pgcMain->ActivePageIndex = 0;
  52. }
  53. //---------------------------------------------------------------------------
  54. void __fastcall TfrmMain::miExitAppClick(TObject *Sender)
  55. {
  56.     Close();    
  57. }
  58. //---------------------------------------------------------------------------
  59. void __fastcall TfrmMain::miShowOrderClick(TObject *Sender)
  60. {
  61.     pgcMain->ActivePageIndex = 1;
  62.     if(!tblTemp->Active)
  63.         tblTemp->Active = true;
  64.     if(tblTemp->RecordCount)
  65.     {
  66.         tblTemp->First();
  67.         while(!tblTemp->Eof)
  68.             tblTemp->Delete();
  69.     }
  70.     CrnClearOrderForm();
  71. }
  72. //---------------------------------------------------------------------------
  73. void __fastcall TfrmMain::miShowQueryClick(TObject *Sender)
  74. {
  75.     pgcMain->ActivePageIndex = 2;
  76.     btnQueryAllClick(Sender);
  77. }
  78. //---------------------------------------------------------------------------
  79. void __fastcall TfrmMain::miPrintBillClick(TObject *Sender)
  80. {
  81.     if(qryOrder->Active && qryOrder->RecordCount)
  82.     {
  83.         if(MessageBox(Handle,
  84.                 String().sprintf("确定要打印单据号为 %s 的这条记录吗? ",
  85.                 qryOrder->FieldByName("fBillNumber")->AsString).c_str(),
  86.                 g_strAppName.c_str(),
  87.                 MB_YESNO | MB_ICONQUESTION) == IDYES)
  88.         {
  89.             frReport->LoadFromFile(ExtractFilePath(ParamStr(0)) + "Report.fr3");
  91.             ((TfrxMemoView *)frReport->FindObject("mmoTitle"))->Memo->Text =
  92.                     qryOrder->FieldByName("fTitle")->AsString; // + "     ";;
  93.             ((TfrxMemoView *)frReport->FindObject("mmoBillNumber"))->Memo->Text =
  94.                     qryOrder->FieldByName("fBillNumber")->AsString; //  + "     ";;
  95.             ((TfrxMemoView *)frReport->FindObject("mmoClient"))->Memo->Text =
  96.                     qryOrder->FieldByName("fClient")->AsString; //  + "     ";;
  97.             ((TfrxMemoView *)frReport->FindObject("mmoGenBillDate"))->Memo->Text =
  98.                     FormatDateTime("yyyy-mm-dd",
  99.                     qryOrder->FieldByName("fGenBillDate")->AsDateTime);
  100.             ((TfrxMemoView *)frReport->FindObject("mmoOpera"))->Memo->Text =
  101.                     qryOrder->FieldByName("fOpera")->AsString; //  + "     ";
  102.             ((TfrxMemoView *)frReport->FindObject("mmoBillAuthor"))->Memo->Text =
  103.                     qryOrder->FieldByName("fBillAuthor")->AsString; //  + "     ";
  104.             ((TfrxMemoView *)frReport->FindObject("mmoDiscount"))->Memo->Text =
  105.                     String("让利 ￥") + FormatFloat("#0.00#",
  106.                     qryOrder->FieldByName("fDiscount")->AsFloat);
  108.             ((TfrxMemoView *)frReport->FindObject("Memo30"))->Memo->Text =
  109.                     qryOrder->FieldByName("fAddress")->AsString;
  110.             ((TfrxMemoView *)frReport->FindObject("Memo32"))->Memo->Text =
  111.                     qryOrder->FieldByName("fTel")->AsString;
  112.             ((TfrxMemoView *)frReport->FindObject("Memo34"))->Memo->Text =
  113.                     qryOrder->FieldByName("fGath")->AsString;
  114.             ((TfrxMemoView *)frReport->FindObject("Memo36"))->Memo->Text =
  115.                     qryOrder->FieldByName("fIssue")->AsString;
  116.             ((TfrxMemoView *)frReport->FindObject("Memo38"))->Memo->Text =
  117.                     qryOrder->FieldByName("fCheck")->AsString;
  118.             ((TfrxMemoView *)frReport->FindObject("Memo40"))->Memo->Text =
  119.                     qryOrder->FieldByName("fHotLine")->AsString;
  121.             float fSumValue = 0.0;
  122.             qryDetail->First();
  123.             for(int i=0; i<qryDetail->RecordCount; i++)
  124.             {
  125.                 fSumValue += qryDetail->FieldByName("fSum")->AsFloat;
  126.                 qryDetail->Next();
  127.             }
  129.             ((TfrxMemoView *)frReport->FindObject("mmoSumValue"))->Memo->Text =
  130.                     FormatFloat("#0.00#", fSumValue);
  131.             ((TfrxMemoView *)frReport->FindObject("mmoRMBStr"))->Memo->Text =
  132.                     NumToRMBStr(fSumValue);
  133.                     
  134.             qryDetail->First();
  135.             frReport->ShowReport();
  136.         }
  137.     }
  138.     else
  139.     {
  140.         MessageBox(Handle, "请先选择一条订单再选择打印",
  141.                 g_strAppName.c_str(), MB_OK | MB_ICONINFORMATION);
  142.         pgcMain->ActivePageIndex = 2;
  143.         btnQueryAllClick(Sender);
  144.     }
  145. }
  146. //---------------------------------------------------------------------------
  147. void __fastcall TfrmMain::miShowAboutClick(TObject *Sender)
  148. {
  149.     MessageBox(Handle,
  150.             (g_strAppTitle + g_strAppVer + "rn"
  151.             + "-------------------------rn"
  152.             + "by CrazyCamel(CrazyCamel@126.com)rn"
  153.             + "2006.12 - -#").c_str(),
  154.             g_strAppName.c_str(),
  155.             MB_OK | MB_ICONINFORMATION);
  156. }
  157. //---------------------------------------------------------------------------
  158. void __fastcall TfrmMain::FormKeyPress(TObject *Sender, char &Key)
  159. {
  160.     if(Key == VK_RETURN)
  161.     {
  162.         Key = 0;
  163.         SelectNext(ActiveControl, true, true);
  164.     }
  165. }
  166. //---------------------------------------------------------------------------
  167. void __fastcall TfrmMain::tmrClockTimer(TObject *Sender)
  168. {
  169.     stbMain->Panels->Items[1]->Text = FormatDateTime(" yyyy-mm-dd hh:nn:ss", Now());
  170. }
  171. //---------------------------------------------------------------------------
  172. void __fastcall TfrmMain::CrnClearOrderForm()
  173. {
  174.     for(int i=0; i<ComponentCount; i++)
  175.     {
  176.         if(Components[i]->ClassNameIs("TLabeledEdit"))
  177.             if(((TLabeledEdit *)Components[i])->Parent == tsOrder)
  178.                 ((TLabeledEdit *)Components[i])->Text = "";
  179.     }
  180. }
  181. //---------------------------------------------------------------------------
  182. void __fastcall TfrmMain::btnContinueDetailClick(TObject *Sender)
  183. {
  184.     if(edtTitle->Text.Trim().Length() < 1)
  185.     {
  186.         MessageBox(Handle, "单据标题必须填写!",
  187.                 g_strAppName.c_str(),
  188.                 MB_OK | MB_ICONWARNING);
  189.         pgcMain->ActivePageIndex = 1;
  190.         return;
  191.     }
  192.     pgcMain->ActivePageIndex = 2;
  193. }
  194. //---------------------------------------------------------------------------
  195. void __fastcall TfrmMain::btnOrderInfoClick(TObject *Sender)
  196. {
  197.     pgcMain->ActivePageIndex = 1;
  198. }
  199. //---------------------------------------------------------------------------
  200. void __fastcall TfrmMain::btnSaveAndPrintClick(TObject *Sender)
  201. {
  202.     qryOrder->Close();
  203.     qryOrder->SQL->Text = String().sprintf(
  204.             "select top 1 * from tblOrder where fBillNumber='%s'",
  205.             edtBillNumber->Text);
  206.     qryOrder->Open();
  207.     if(qryOrder->RecordCount)
  208.     {
  209.         MessageBox(Handle, "已经存在相同单据号的订单记录!",
  210.                 g_strAppName.c_str(), MB_OK | MB_ICONWARNING);
  211.         edtBillNumber->SetFocus();
  212.         return;
  213.     }
  214.     if(tblTemp->RecordCount < 1)
  215.     {
  216.         MessageBox(Handle, "至少要输入一条药品明细记录!",
  217.                 g_strAppName.c_str(), MB_OK | MB_ICONWARNING);
  218.         dbgrdTemp->SetFocus();
  219.         return;
  220.     }
  222.     qryOrder->Append();
  224.     qryOrder->FieldByName("fBillNumber")->AsString = edtBillNumber->Text;
  225.     qryOrder->FieldByName("fGenBillDate")->AsDateTime = dtpGenBillDate->Date;
  226.     qryOrder->FieldByName("fClient")->AsString = edtClient->Text;
  227.     qryOrder->FieldByName("fOpera")->AsString = edtOpera->Text;
  228.     qryOrder->FieldByName("fBillAuthor")->AsString = edtBillAuthor->Text;
  229.     qryOrder->FieldByName("fAddress")->AsString = edtAddress->Text;
  230.     qryOrder->FieldByName("fTel")->AsString = edtTel->Text;
  231.     qryOrder->FieldByName("fGath")->AsString = edtGath->Text;
  232.     qryOrder->FieldByName("fIssue")->AsString = edtIssue->Text;
  233.     qryOrder->FieldByName("fCheck")->AsString = edtCheck->Text;
  234.     qryOrder->FieldByName("fHotLine")->AsString = edtHotLine->Text;
  235.     qryOrder->FieldByName("fTitle")->AsString = edtTitle->Text;
  237.     qryOrder->Post();
  239.     qryDetail->Close();
  240.     qryDetail->SQL->Text = "select top 1 * from tblDetail";
  241.     qryDetail->Open();
  243.     int nCount = tblTemp->RecordCount;
  245.     tblTemp->First();
  246.     
  247.     for(int i=0; i<nCount; i++)
  248.     {
  249.         qryDetail->Append();
  251.         qryDetail->FieldByName("fBillNumber")->AsString = edtBillNumber->Text;
  252.         qryDetail->FieldByName("fBatchNumber")->AsString = tblTemp->FieldByName("fBatchNumber")->AsString;
  253.         qryDetail->FieldByName("fLeechdom")->AsString = tblTemp->FieldByName("fLeechdom")->AsString;
  254.         qryDetail->FieldByName("fSpec")->AsString = tblTemp->FieldByName("fSpec")->AsString;
  255.         qryDetail->FieldByName("fProFact")->AsString = tblTemp->FieldByName("fProFact")->AsString;
  256.         qryDetail->FieldByName("fUnit")->AsString = tblTemp->FieldByName("fUnit")->AsString;
  257.         qryDetail->FieldByName("fAmount")->AsInteger = tblTemp->FieldByName("fAmount")->AsInteger;
  258.         qryDetail->FieldByName("fUnitPrice")->AsCurrency = tblTemp->FieldByName("fUnitPrice")->AsCurrency;
  259.         qryDetail->FieldByName("fSum")->AsCurrency = tblTemp->FieldByName("fSum")->AsCurrency;
  260.         qryDetail->FieldByName("fRefer")->AsCurrency = tblTemp->FieldByName("fRefer")->AsCurrency;
  261.         qryDetail->FieldByName("fCasing")->AsString = tblTemp->FieldByName("fCasing")->AsString;
  262.         qryDetail->FieldByName("fBale")->AsString = tblTemp->FieldByName("fBale")->AsString;
  264.         qryDetail->Post();
  266.         tblTemp->Next();
  267.     }
  269.     if(nCount)
  270.     {
  271.         tblTemp->First();
  272.         while(!tblTemp->Eof)
  273.             tblTemp->Delete();
  274.     }
  276.     MessageBox(Handle,
  277.             String().sprintf("订单添加成功. 共有 %d 条药品明细.", nCount).c_str(),
  278.             g_strAppName.c_str(),
  279.             MB_OK | MB_ICONINFORMATION);
  280. }
  281. //---------------------------------------------------------------------------
  282. void __fastcall TfrmMain::btnQueryAllClick(TObject *Sender)
  283. {
  284.     qryOrder->Close();
  285.     qryOrder->SQL->Text = "select * from tblOrder";
  286.     qryOrder->Open();
  288.     dbgrdOrderCellClick(NULL);
  290.     stbMain->Panels->Items[0]->Text = String().sprintf("共有 %d 条订单记录.", qryOrder->RecordCount);    
  291. }
  292. //---------------------------------------------------------------------------
  293. void __fastcall TfrmMain::btnQueryClick(TObject *Sender)
  294. {
  295.     String strSQL("");
  296.     if(edtQueryByBillNumber->Text.Trim().Length() > 0)
  297.         strSQL += String().sprintf(" and fBillNumber='%s'", edtQueryByBillNumber->Text);
  298.     if(edtQueryByClient->Text.Trim().Length() > 0)
  299.         strSQL += String().sprintf(" and fClient like '%%%s%%'", edtQueryByClient->Text);
  300.     if(edtQueryByBillAuthor->Text.Trim().Length() > 0)
  301.         strSQL = String().sprintf(" and fBillAuthor='%s'", edtQueryByBillAuthor->Text);
  302.     if(edtQueryByOpera->Text.Trim().Length() > 0)
  303.         strSQL = String().sprintf(" and fOpera='%s'", edtQueryByOpera->Text);
  304.     if(chkQueryByDate->Checked)
  305.         strSQL = String().sprintf(" and fGenBillDate between #%s# and #%s#",
  306.                 FormatDateTime("yyy-mm-dd", dtpQueryStart->Date),
  307.                 FormatDateTime("yyy-mm-dd", dtpQueryEnd->Date + 1));
  309.     qryOrder->Close();
  310.     qryOrder->SQL->Text = "select * from tblOrder where 1=1" + strSQL;
  311.     qryOrder->Open();
  313.     if(qryOrder->RecordCount)
  314.     {
  315.         qryDetail->Close();
  316.         qryDetail->SQL->Text = String().sprintf(
  317.                 "select * from tblDetail where fBillNumber='%s'",
  318.                 qryOrder->FieldByName("fBillNumber")->AsString);
  319.         qryDetail->Open();
  320.     }
  321.     stbMain->Panels->Items[0]->Text = String().sprintf("共有 %d 条订单记录.", qryOrder->RecordCount);
  322. }
  323. //---------------------------------------------------------------------------
  324. void __fastcall TfrmMain::btnDeleteOrderClick(TObject *Sender)
  325. {
  326.     if(qryOrder->Active && qryOrder->RecordCount)
  327.     {
  328.         if(MessageBox(Handle,
  329.                 String().sprintf("确定要删除单据号为 %s 的这条记录吗? "
  330.                 "相关的药品明细记录也将删除.",
  331.                 qryOrder->FieldByName("fBillNumber")->AsString).c_str(),
  332.                 g_strAppName.c_str(),
  333.                 MB_YESNO | MB_ICONQUESTION) == IDYES)
  334.         {
  335.             //
  336.             qryDetail->Close();
  337.             qryDetail->SQL->Text = String().sprintf(
  338.                     "delete from tblDetail where fBillNumber='%s'",
  339.                     qryOrder->FieldByName("fBillNumber")->AsString);
  340.             qryDetail->ExecSQL();
  341.             //
  342.             qryOrder->Delete();
  343.         }
  344.         btnQueryAllClick(Sender);
  345.     }
  346. }
  347. //---------------------------------------------------------------------------
  348. void __fastcall TfrmMain::btnDeleteDetailClick(TObject *Sender)
  349. {
  350.     if(qryDetail->Active && qryDetail->RecordCount)
  351.     {
  352.         if(MessageBox(Handle,
  353.                 String().sprintf("确定要删除批号为 %s 的这条记录吗?",
  354.                 qryDetail->FieldByName("fBatchNumber")->AsString).c_str(),
  355.                 g_strAppName.c_str(),
  356.                 MB_YESNO | MB_ICONQUESTION) == IDYES)
  357.         {
  358.             qryDetail->Delete();
  359.         }
  360.     }
  361. }
  362. //---------------------------------------------------------------------------
  363. void __fastcall TfrmMain::btnClearDetailClick(TObject *Sender)
  364. {
  365.     CrnClearOrderForm();
  366. }
  367. //---------------------------------------------------------------------------
  368. void __fastcall TfrmMain::dbgrdOrderCellClick(TColumn *Column)
  369. {
  370.     if(qryOrder->RecordCount)
  371.     {
  372.         qryDetail->Close();
  373.         qryDetail->SQL->Text = String().sprintf(
  374.                 "select * "
  375.                 "from tblDetail "
  376.                 "where fBillNumber='%s'",
  377.                 qryOrder->FieldByName("fBillNumber")->AsString);
  378.         qryDetail->Open();
  379.     }
  380. }
  381. //---------------------------------------------------------------------------
  382. void __fastcall TfrmMain::btnSaveDetailClick(TObject *Sender)
  383. {
  384.     if(qryDetail->State == dsEdit || qryDetail->State == dsInsert)
  385.         qryDetail->Post();
  386. }
  387. //---------------------------------------------------------------------------
  388. void __fastcall TfrmMain::btnSaveOrderClick(TObject *Sender)
  389. {
  390.     if(qryOrder->State == dsEdit || qryOrder->State == dsInsert)
  391.         qryOrder->Post();
  392. }
  393. //---------------------------------------------------------------------------
  394. void __fastcall TfrmMain::btnDeleteTempClick(TObject *Sender)
  395. {
  396.     if(tblTemp->Active && tblTemp->RecordCount)
  397.     {
  398.         if(MessageBox(Handle,
  399.                 String().sprintf("确定要删除批号为 %s 的这条记录吗?",
  400.                 tblTemp->FieldByName("fBatchNumber")->AsString).c_str(),
  401.                 g_strAppName.c_str(),
  402.                 MB_YESNO | MB_ICONQUESTION) == IDYES)
  403.         {
  404.             tblTemp->Delete();
  405.         }
  406.     }
  407. }
  408. //---------------------------------------------------------------------------
  409. void __fastcall TfrmMain::btnSaveTempClick(TObject *Sender)
  410. {
  411.     if(tblTemp->State == dsEdit || tblTemp->State == dsInsert)
  412.         tblTemp->Post();
  413. }
  414. //---------------------------------------------------------------------------
  415. void __fastcall TfrmMain::qryDetailBeforePost(TDataSet *DataSet)
  416. {
  417.     if(DataSet->FieldByName("fBillNumber")->AsString.Trim().Length() < 1)
  418.     {
  419.         if(qryOrder->Active && qryOrder->RecordCount)
  420.             DataSet->FieldByName("fBillNumber")->AsString =
  421.                 qryOrder->FieldByName("fBillNumber")->AsString;
  422.     }
  423. }
  424. //---------------------------------------------------------------------------
  425. void __fastcall TfrmMain::miDesignReportClick(TObject *Sender)
  426. {
  427.     frReport->LoadFromFile(ExtractFilePath(ParamStr(0)) + "Report.fr3");
  428.     frReport->DesignReport();
  429. }
  430. //---------------------------------------------------------------------------
  431. Variant __fastcall TfrmMain::frReportUserFunction(
  432.       const AnsiString MethodName, Variant &Params)
  433. {
  434. //    if(UpperCase(MethodName) == UpperCase("NumToRMBStr"))
  435. //        return NumToRMBStr(Params.GetElement(0));
  436.     return 0;
  437. }
  438. //---------------------------------------------------------------------------
  439. void __fastcall TfrmMain::qryDetailAfterInsert(TDataSet *DataSet)
  440. {
  441.     DataSet->FieldByName("fAmount")->AsInteger = 0;
  442.     DataSet->FieldByName("fUnitPrice")->AsFloat = 0.0;
  443.     DataSet->FieldByName("fSum")->AsFloat = 0.0;
  444.     DataSet->FieldByName("fRefer")->AsFloat = 0.0;
  445. }
  446. //---------------------------------------------------------------------------
  447. void __fastcall TfrmMain::tblTempAfterInsert(TDataSet *DataSet)
  448. {
  449.     DataSet->FieldByName("fAmount")->AsInteger = 0;
  450.     DataSet->FieldByName("fUnitPrice")->AsFloat = 0.0;
  451.     DataSet->FieldByName("fSum")->AsFloat = 0.0;
  452.     DataSet->FieldByName("fRefer")->AsFloat = 0.0;    
  453. }
  454. //---------------------------------------------------------------------------
  456. void __fastcall TfrmMain::tblTempfUnitPriceChange(TField *Sender)
  457. {
  458.     Sender->DataSet->FieldByName("FSum")->AsCurrency = Sender->AsCurrency
  459.             * Sender->DataSet->FieldByName("fAmount")->AsCurrency;
  460. }
  461. //---------------------------------------------------------------------------
  462. void __fastcall TfrmMain::tblTempfAmountChange(TField *Sender)
  463. {
  464.     Sender->DataSet->FieldByName("FSum")->AsCurrency = Sender->AsCurrency
  465.             * Sender->DataSet->FieldByName("fUnitPrice")->AsCurrency;
  466. }
  467. //---------------------------------------------------------------------------