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

源码开发语言/平台
当前位置：首页 > 电子书籍 > VC书籍 > 查看源码
Unit1.cpp
资源名称：C++Builder.rar　[点击查看]
上传用户：lhxd_sz
上传日期：2014-10-02
资源大小：38814k
文件大小：3k
源码类别：

VC书籍

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Unit1.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.         : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  17. void __fastcall TForm1::Button1Click(TObject *Sender)
  18. {
  19.   AnsiString fieldname,filename,asstype;
  20.   int nn;
  21.   double aa;
  22.   filename="test1.dbf";
  24.   asstype="T1";
  25.   Query1->Active=False;
  26.   Query1->SQL->Clear();
  27.   Query1->SQL->Add("SELECT");
  28.   Query1->SQL->Add("MAX(NUM)");
  29.   Query1->SQL->Add("From ""+filename+""");
  30.   if(CheckBox1->Checked)
  31.     Query1->SQL->Add("WHERE TYPE='"+asstype+"'");
  32.   Query1->Active=True;
  33.   nn=Query1->FieldCount;
  34.   if(nn>0)
  35.     fieldname=Query1->Fields->Fields[0]->FieldName;
  37.   aa=Query1->FieldByName(fieldname)->AsFloat;
  38.   Edit1->Text=FloatToStr(aa);
  39. }
  40. //---------------------------------------------------------------------------
  41. void __fastcall TForm1::Button2Click(TObject *Sender)
  42. {
  43.   AnsiString fieldname,filename,asstype;
  44.   int nn;
  45.   double aa;
  46.   filename="test1.dbf";
  48.   asstype="T1";
  49.   Query1->Active=False;
  50.   Query1->SQL->Clear();
  51.   Query1->SQL->Add("SELECT");
  52.   Query1->SQL->Add("SUM(NUM)");
  53.   Query1->SQL->Add("From ""+filename+""");
  54.   if(CheckBox1->Checked)
  55.     Query1->SQL->Add("WHERE TYPE='"+asstype+"'");
  56.   Query1->Active=True;
  57.   nn=Query1->FieldCount;
  58.   if(nn>0)
  59.     fieldname=Query1->Fields->Fields[0]->FieldName;
  61.   aa=Query1->FieldByName(fieldname)->AsFloat;
  62.   Edit1->Text=FloatToStr(aa);
  63. }
  64. //---------------------------------------------------------------------------
  66. void __fastcall TForm1::Button3Click(TObject *Sender)
  67. {
  68.   AnsiString fieldname,filename,asstype;
  69.   int nn;
  70.   double aa;
  71.   filename="test1.dbf";
  73.   asstype="T1";
  74.   Query1->Active=False;
  75.   Query1->SQL->Clear();
  76.   Query1->SQL->Add("SELECT");
  77.   Query1->SQL->Add("AVG(NUM)");
  78.   Query1->SQL->Add("From ""+filename+""");
  79.   if(CheckBox1->Checked)
  80.     Query1->SQL->Add("WHERE TYPE='"+asstype+"'");
  81.   Query1->Active=True;
  82.   nn=Query1->FieldCount;
  83.   if(nn>0)
  84.     fieldname=Query1->Fields->Fields[0]->FieldName;
  86.   aa=Query1->FieldByName(fieldname)->AsFloat;
  87.   Edit1->Text=FloatToStr(aa);
  88. }
  89. //---------------------------------------------------------------------------