main.h

数据采集

//---------------------------------------------------------------------------
#ifndef mainH
#define mainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Dialogs.hpp>
#include <ComCtrls.hpp>
#include <Grids.hpp>
#include <Db.hpp>
#include <DBTables.hpp>
#include <DBGrids.hpp>
#include <DBCtrls.hpp>
#include <NMpop3.hpp>
#include <NMsmtp.hpp>
#include <Psock.hpp>
#include <stdio.h>
#include <NMFtp.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class Tform_main : public TForm
{
__published:	// IDE-managed Components
        TButton *exit;
        TButton *Draw;
        TOpenDialog *OpenDialog1;
        TButton *Print;
        TButton *OpenData;
        TButton *Test_one;
        TButton *StartDon;
        TTimer *Timer1;
        TButton *Maxmin;
        TButton *setup;
        TTable *dir;
        TDataSource *s_dir;
        TDBGrid *grid_dir;
        TDataSource *s_data;
        TDBGrid *grid_data;
        TDBNavigator *DBNavigator1;
        TTable *data;
        TStringField *dirTm;
        TSmallintField *dirCnt;
        TSmallintField *dataNo;
        TStringField *dataCehao;
        TStringField *dataName;
        TStringField *dataRec;
        TStringField *dataSend;
        TBCDField *dataMao;
        TBCDField *dataPi;
        TBCDField *dataJin;
        TBCDField *dataPiao;
        TBCDField *dataYq;
        TSmallintField *dataSpd;
        TBevel *Bevel1;
        TBevel *Bevel3;
        TBevel *Bevel4;
        TButton *shutdown;
        TButton *tj;
        TButton *test_com;
        TBCDField *dataN1;
        TBCDField *dataN2;
        TBCDField *dataN3;
        TBCDField *dataN4;
        TBCDField *dataW1;
        TBCDField *dataW2;
        TBCDField *dataW3;
        TBCDField *dataW4;
        TLabel *wei_for_see;
        TLabel *status;
        TButton *start_jin;
        TStringField *dataCpz_alarm;
        TStringField *dirTrain_no;
        TStringField *dirDirect;
        TStringField *dirBak2;
        TStringField *dirBak1;
        TLabel *Label15;
        TLabel *Label16;
        TButton *clear;
        TButton *del;
        TTable *table_name;
        TTable *table_send;
        TTable *table_rec;
        TDataSource *DataSource1;
        TDataSource *DataSource2;
        TDataSource *DataSource3;
        TDBGrid *DBGrid1;
        TDBNavigator *DBNavigator3;
        TStringField *table_nameName;
        TStringField *table_sendSend;
        TStringField *table_recRec;
        TButton *select;
        TTable *table_pi;
        TTable *table_tj;
        TBCDField *datapi_lookup;
        TStringField *databak3;
        TStringField *databak2;
        TStringField *databak1;
        TLabel *Label1;
        TButton *send;
        TButton *get_cehao;
        TLabel *Label2;
        TLabel *send_status;
        TButton *sendall;
        TTable *table_mao;
        TDataSource *DataSource4;
        TStringField *table_maoTm;
        TStringField *table_maoGh;
        TBCDField *table_maoMao;
        TSmallintField *table_maoNo;
        TTable *datatmp;
        TDBGrid *DBGrid2;
        TQuery *Query1;
        TDataSource *DataSource5;
        TLabel *Label3;
        TButton *Button1;
        TButton *Button2;
        TLabel *Label4;
        TButton *Qtest;
        TPopupMenu *PopupMenu1;
        TMenuItem *cpzsetup;
        TMenuItem *del_cpzdata;
        TMenuItem *bak2;
        TTimer *Timer_lw;
        TSaveDialog *SaveDialog1;
        TLabel *Label5;
        TTimer *Timer_usb;
        TTimer *timer_chsb;
        TTable *table_pi2;
        TTimer *timer_sbzt;
        void __fastcall exitClick(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall DrawClick(TObject *Sender);
        void __fastcall OpenDataClick(TObject *Sender);
        void __fastcall Test_oneClick(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall StartDonClick(TObject *Sender);
        void __fastcall clearClick(TObject *Sender);
        void __fastcall setupClick(TObject *Sender);
        void __fastcall FormHide(TObject *Sender);
        void __fastcall FormShow(TObject *Sender);
        void __fastcall PrintClick(TObject *Sender);
        void __fastcall dataPiChange(TField *Sender);
        void __fastcall dataPiaoChange(TField *Sender);
        void __fastcall dataJinChange(TField *Sender);
        void __fastcall FormPaint(TObject *Sender);
        void __fastcall shutdownClick(TObject *Sender);
        void __fastcall test_comClick(TObject *Sender);
        void __fastcall tjClick(TObject *Sender);
        void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
        void __fastcall grid_dataKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
        void __fastcall dataAfterEdit(TDataSet *DataSet);
        void __fastcall dataBeforeOpen(TDataSet *DataSet);
        void __fastcall start_jinClick(TObject *Sender);
        void __fastcall grid_dirKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
        void __fastcall dirAfterScroll(TDataSet *DataSet);
        void __fastcall see_outfileClick(TObject *Sender);
        void __fastcall del_outfileClick(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall delClick(TObject *Sender);
        void __fastcall dirBeforeClose(TDataSet *DataSet);
        void __fastcall DBNavigator3BeforeAction(TObject *Sender,
          TNavigateBtn Button);
        void __fastcall DBNavigator3Click(TObject *Sender,
          TNavigateBtn Button);
        void __fastcall selectClick(TObject *Sender);
        void __fastcall grid_dataColEnter(TObject *Sender);
        void __fastcall dataCehaoChange(TField *Sender);
        void __fastcall sendClick(TObject *Sender);
        void __fastcall grid_dirDblClick(TObject *Sender);
        void __fastcall grid_dataDblClick(TObject *Sender);
        void __fastcall DBGrid1DblClick(TObject *Sender);
        void __fastcall dataAfterScroll(TDataSet *DataSet);
        void __fastcall dataAfterOpen(TDataSet *DataSet);
        void __fastcall get_cehaoClick(TObject *Sender);
        void __fastcall sendallClick(TObject *Sender);
        void __fastcall dataNameChange(TField *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall databak1Change(TField *Sender);
        void __fastcall table_nameAfterScroll(TDataSet *DataSet);
        void __fastcall table_sendAfterScroll(TDataSet *DataSet);
        void __fastcall table_recAfterScroll(TDataSet *DataSet);
        void __fastcall dataSendChange(TField *Sender);
        void __fastcall Label4Click(TObject *Sender);
        void __fastcall MaxminClick(TObject *Sender);
        void __fastcall QtestClick(TObject *Sender);
        void __fastcall NMFTP1Success(TCmdType Trans_Type);
        void __fastcall del_cpzdataClick(TObject *Sender);
        void __fastcall cpzsetupClick(TObject *Sender);
        void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
        void __fastcall bak2Click(TObject *Sender);
        void __fastcall Timer_lwTimer(TObject *Sender);
        void __fastcall Timer_usbTimer(TObject *Sender);
        void __fastcall wei_for_seeDblClick(TObject *Sender);
        void __fastcall statusDblClick(TObject *Sender);
        void __fastcall timer_chsbTimer(TObject *Sender);
        void __fastcall dataMaoChange(TField *Sender);
        void __fastcall timer_sbztTimer(TObject *Sender);
private:	// User declarations
        //int debug;
        bool flag_data_edit;
        bool form_main_is_show;
        void __fastcall ProcessMessage(TMsg &message,bool &handled);
        void __fastcall Tform_main::init_jpch();

public:	// User declarations
   __fastcall Tform_main(TComponent* Owner);
   void __fastcall enable();
   void __fastcall not_enable();
   void __fastcall test_sub(char *file_name);
   int  __fastcall weight_don(long *qin,long *hou,long *qin_hou,long *wei,int *spd,float *k_dz);
   void __fastcall save_outfile(char *file_name,long *ad);
   void __fastcall show_title();
   //bool __fastcall alloc_mem();
   void __fastcall db_init();
   void __fastcall create_getdatathread();
   void __fastcall create_donthread();
   void __fastcall create_lwthread();
   void __fastcall show_mode();
   void __fastcall load_vxd();
   void __fastcall open_port();
   void __fastcall set_port_address();
   void __fastcall create_dirdb();
   void __fastcall create_namedb();
   void __fastcall create_senddb();
   void __fastcall create_recdb();
   void __fastcall create_maodb();
   void __fastcall create_pidb();
   void __fastcall create_tjdb();
   bool __fastcall create_txtfile_forlw();
   void __fastcall sound();
   void __fastcall nosound();
   void __fastcall write_winhandle();
   void __fastcall collect_jinzero();
   void __fastcall see_wave(bool flag_qj);
   void __fastcall select_print();
   void __fastcall refresh_datatmp();
   void __fastcall print_head(FILE *file,char *send,char *name);
   void __fastcall init_jin_mem();
   void __fastcall maxmin();
   void __fastcall Tform_main::dataopen();
   void __fastcall Tform_main::cehao(bool sd);
   void __fastcall Tform_main::create_jcsj(char khbz,unsigned int cch);
   void __fastcall Tform_main::get_pz_lz(int& zxpz,int& qhpz,int* lz);
   void __fastcall Tform_main::get_pi_piao();
};
//---------------------------------------------------------------------------
extern PACKAGE Tform_main *form_main;
//---------------------------------------------------------------------------
#endif