query.h

数据采集

//---------------------------------------------------------------------------
#ifndef queryH
#define queryH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Db.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <NMsmtp.hpp>
#include <Psock.hpp>
#include <NMFtp.hpp>
//---------------------------------------------------------------------------
class Tform_query : public TForm
{
__published:	// IDE-managed Components
        TTable *dir;
        TTable *table_tj;
        TTable *table_pi;
        TDataSource *DataSource1;
        TDataSource *DataSource2;
        TDBGrid *DBGrid2;
        TDBNavigator *DBNavigator1;
        TStringField *table_piCehao;
        TBCDField *table_piPi;
        TStringField *table_tjTm;
        TStringField *table_tjCehao;
        TStringField *table_tjName;
        TStringField *table_tjRec;
        TStringField *table_tjSend;
        TBCDField *table_tjMao;
        TBCDField *table_tjPi;
        TBCDField *table_tjJin;
        TSmallintField *table_tjSpd;
        TPanel *Panel1;
        TBevel *Bevel2;
        TLabel *Label4;
        TLabel *label_total_mao;
        TLabel *Label1;
        TLabel *Label3;
        TLabel *label_total_jin;
        TLabel *Label7;
        TLabel *label_total_pi;
        TLabel *Label8;
        TLabel *Label11;
        TLabel *Label12;
        TLabel *label_tj_cnt;
        TLabel *Label6;
        TLabel *Label10;
        TDBGrid *DBGrid1;
        TEdit *Edit3;
        TButton *start_query;
        TEdit *Edit5;
        TEdit *Edit4;
        TEdit *Edit2;
        TEdit *Edit1;
        TCheckBox *CheckBox3;
        TCheckBox *CheckBox5;
        TCheckBox *CheckBox4;
        TButton *print_xx;
        TCheckBox *CheckBox6;
        TEdit *Edit6;
        TButton *Esc;
        TButton *del_db;
        TButton *add;
        TIntegerField *table_tjNo;
        TButton *print_zj;
        TStringField *table_tjBak3;
        TStringField *table_tjBak2;
        TStringField *table_tjBak1;
        TQuery *Query1;
        TDataSource *DataSource3;
        void __fastcall start_queryClick(TObject *Sender);
        void __fastcall EscClick(TObject *Sender);
        void __fastcall FormShow(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall print_xxClick(TObject *Sender);
        void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
        void __fastcall del_dbClick(TObject *Sender);
        void __fastcall addClick(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall print_zjClick(TObject *Sender);
private:	// User declarations
        double total_mao;
        double total_pi;
        double total_jin;
        double total_yq;
        long tj_cnt;
public:		// User declarations
        __fastcall Tform_query(TComponent* Owner);
        AnsiString __fastcall get_sqlstr();
        void __fastcall show_wei();
};
//---------------------------------------------------------------------------
extern PACKAGE Tform_query *form_query;
//---------------------------------------------------------------------------
#endif