datadict.h

速达开源ERP系统

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

#ifndef DataDictH
#define DataDictH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "BillBaseForm.h"
#include "fpanel.h"
#include "SDComboBox.h"
#include "SDEdit.h"
#include "SDGrid.h"
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <Grids.hpp>
#include <ImgList.hpp>
#include <Menus.hpp>
#include <ToolWin.hpp>
#include <Dialogs.hpp>
class PACKAGE TfrmDataDict;
//---------------------------------------------------------------------------
class TfrmDataDict : public TBillBaseForm
{
__published:	// IDE-managed Components
        TFloatPanel *FloatPanel1;
        TFloatPanel *FloatPanel2;
        TLabel *Label1;
        TSDEdit *seTableName;
        TSDEdit *seTableDesc;
        TCheckBox *chkTableSysFlg;
        TLabel *Label2;
        TLabel *Label3;
        TSDComboBox *scTableType;
        TLabel *Label5;
        TSDEdit *seTableMDate;
        TBitBtn *btnOK;
        TBitBtn *btnCancel;
        TSDGrid *sgDataDict;
  TGroupBox *GroupBox1;
  TLabel *Label8;
  TSDEdit *seFieldNo;
  TLabel *Label7;
  TSDEdit *seFieldName;
  TLabel *Label9;
  TSDEdit *seFieldDesc;
  TLabel *Label10;
  TSDComboBox *scFieldType;
  TSDEdit *seFieldWidth;
  TSDEdit *seFieldDecimal;
  TLabel *Label11;
  TLabel *Label12;
  TGroupBox *GroupBox2;
  TCheckBox *chkFieldPrimaryKey;
  TCheckBox *chkFieldNull;
  TCheckBox *chkFieldIdentity;
  TSDComboBox *scHandWriting;
  TLabel *Label16;
  TLabel *Label17;
  TSDComboBox *scFieldStyle;
  TLabel *Label15;
  TGroupBox *GroupBox3;
  TLabel *Label13;
  TSDComboBox *scFieldReferTable;
  TLabel *Label14;
  TSDComboBox *scFieldReferField;
  TCheckBox *chkFieldForeignKey;
  TCheckBox *chkFieldAutoNo;
  TLabel *Label6;
  TSDComboBox *scFieldNumbering;
  TLabel *Label4;
  TSDEdit *seTableClassId;
  TLabel *Label18;
  TSDEdit *seFieldDefault;
  TSDEdit *seFieldMemo;
        void __fastcall btnOKClick(TObject *Sender);
        void __fastcall btnCancelClick(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall FormShow(TObject *Sender);
        void __fastcall scFieldReferTableExit(TObject *Sender);
        void __fastcall sgDataDictSelectCell(TObject *Sender, int ACol,
          int ARow, bool &CanSelect);
        void __fastcall sgDataDictDblClick(TObject *Sender);
  void __fastcall chkFieldForeignKeyClick(TObject *Sender);
  void __fastcall chkFieldAutoNoClick(TObject *Sender);
  void __fastcall scFieldTypeChange(TObject *Sender);
  void __fastcall scFieldTypeExit(TObject *Sender);
  void __fastcall scTableTypeClick(TObject *Sender);
  void __fastcall seTableNameKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
private:	// User declarations
        AnsiString __fastcall GetFieldValue(int FieldIndex);
        AnsiString __fastcall GetTableValue(int Index);
        void __fastcall SetTableValue(int Index ,AnsiString Value);
        void __fastcall SetFieldValue(int Index, AnsiString Value);
public:		// User declarations
        __fastcall TfrmDataDict(TComponent* Owner);

        void __fastcall InitEditControl();
        void __fastcall ClearControl(int Section,bool BringToNext);
        void __fastcall GetDataFromComObject(int Section);
        void __fastcall SendDataToComObject(int Section);
        void __fastcall WaitUserInput(int Section);
        void __fastcall RefreshGridData(int mAction);
        void __fastcall DisplayBill();
        void __fastcall GetBill(AnsiString BillID);
        void __fastcall FillGridWithData();
        void __fastcall ChangeToBrowseState(bool Browse=false);
        AnsiString FormIniFile;
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmDataDict *frmDataDict;
//---------------------------------------------------------------------------
#endif