wnquery.h

速达开源ERP系统

//---------------------------------------------------------------------------

#ifndef WnQueryH
#define WnQueryH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Buttons.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class PACKAGE TfrmWnQuery;
class TfrmWnQuery : public TForm
{
__published:	// IDE-managed Components
  TPanel *Panel1;
  TPanel *Panel2;
  TStringGrid *sgResult;
  TSpeedButton *sbFirst;
  TSpeedButton *sbPrior;
  TSpeedButton *sbNext;
  TSpeedButton *sbLast;
  TLabel *Label1;
  TEdit *etSearch;
  TBitBtn *bbSearchPrior;
  TBitBtn *bbSearchNext;
  TRadioButton *rbEMatch;
  TRadioButton *rbBMatch;
  TBitBtn *bbOK;
  TBitBtn *bbCancel;
  TBitBtn *bbRefresh;
  TMemo *mmHint;
  TPopupMenu *puWnQuery;
  TMenuItem *puHint;
  void __fastcall bbRefreshClick(TObject *Sender);
  void __fastcall sgResultDblClick(TObject *Sender);
  void __fastcall sgResultClick(TObject *Sender);
  void __fastcall sbFirstClick(TObject *Sender);
  void __fastcall sbNextClick(TObject *Sender);
  void __fastcall sbLastClick(TObject *Sender);
  void __fastcall sbPriorClick(TObject *Sender);
  void __fastcall bbSearchNextClick(TObject *Sender);
  void __fastcall bbSearchPriorClick(TObject *Sender);
  void __fastcall Panel1Click(TObject *Sender);
  void __fastcall Label1Click(TObject *Sender);
  void __fastcall etSearchClick(TObject *Sender);
  void __fastcall rbBMatchClick(TObject *Sender);
  void __fastcall rbEMatchClick(TObject *Sender);
  void __fastcall Panel2Click(TObject *Sender);
  void __fastcall puHintClick(TObject *Sender);
  void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:	// User declarations
  int FColCount;
  TStringList *FColName;
  AnsiString FSqlStr;
  bool Founded;
  TPoint CurPos;

  void __fastcall DecQueryString(AnsiString SqlStr);
  void __fastcall FillGridWithData();
  AnsiString __fastcall GetColData(int ACol);

protected:
  void __fastcall GridPos(bool Dir);

public:		// User declarations
  __fastcall TfrmWnQuery(TComponent* Owner);
  __fastcall TfrmWnQuery(TComponent* Owner,AnsiString FCaption,AnsiString SqlStr);

  __property AnsiString ColData[int ACol]={read=GetColData};
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmWnQuery *frmWnQuery;
//---------------------------------------------------------------------------
#endif