whereform.h

科思ERP部分源码及控件

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

#ifndef WhereFormH
#define WhereFormH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "SDComboBox.h"
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include "DateEdit.hpp"
#include <Mask.hpp>
#include "SDEdit.h"
#include "KSCDSet.h"
#include "WnQuery.h"
//---------------------------------------------------------------------------
class TWhereStrForm : public TForm
{
__published:	// IDE-managed Components
  TPanel *plFind;
  TLabel *Label1;
  TLabel *Label2;
  TBitBtn *bbAdd;
  TBitBtn *bbReMove;
  TBitBtn *bbClear;
  TSDComboBox *scLogic;
  TBitBtn *bbOk;
  TBitBtn *bbCancel;
  TLabel *Label3;
  TSDComboBox *scRelate;
  TListBox *LFields;
  TLabel *Label4;
  TListView *lvWhereStr;
  TDateEdit *edValue;
        TSDEdit *etValue;
        TSDComboBox *ecValue;
  void __fastcall FormDestroy(TObject *Sender);
  void __fastcall bbAddClick(TObject *Sender);
  void __fastcall bbReMoveClick(TObject *Sender);
  void __fastcall bbOkClick(TObject *Sender);
  void __fastcall scLogicClick(TObject *Sender);
  void __fastcall bbClearClick(TObject *Sender);
  void __fastcall LFieldsClick(TObject *Sender);
        void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
        void __fastcall etValueButtonClick(TObject *Sender);
private:	// User declarations
        TKSCDSet *l_DSet;
        TKSCRSet *l_RSet;
        int l_DataSetType; //1-DataSet,2-RecordSet

        TStringList *sFields; //字段名
        TStringList *sFieldType; //字段类型 CHAR-字符，NUMBER-数字，BOOL-布尔，DATE-日期
        TStringList *sFieldQueryStr; //字段查询语句
        TStringList *sWhere;  //组合条件

        AnsiString FClientFilter;
        AnsiString FWhereStr;
        __property AnsiString ClientFilter  = { read=FClientFilter, write=FClientFilter };
public:		// User declarations
        __fastcall TWhereStrForm(TComponent* Owner,TKSCDSet *DSet,AnsiString FixFilter);
        __fastcall TWhereStrForm(TComponent* Owner,TKSCRSet *RSet,AnsiString FixFilter,TStringList *FieldList);
        __property AnsiString WhereStr  = { read=FWhereStr, write=FWhereStr };
};
//---------------------------------------------------------------------------
extern PACKAGE TWhereStrForm *WhereStrForm;
//---------------------------------------------------------------------------
#endif