client.h

速达开源ERP系统

//---------------------------------------------------------------------------
#ifndef ClientH
#define ClientH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "fpanel.h"
#include "RecBaseForm.h"
#include "SDComboBox.h"
#include "SDEdit.h"
#include <ComCtrls.hpp>
#include <ImgList.hpp>
#include <Menus.hpp>
#include <ToolWin.hpp>
#include "Dateedit.hpp"
#include <Mask.hpp>
#include "DateEdit.hpp"
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class  PACKAGE TfrmClient;
class  TfrmClient : public TRecBaseForm
{
__published:	// IDE-managed Components
        TPageControl *ClientInfo;
        TTabSheet *BaseInfo;
        TFloatPanel *FloatPanel1;
        TLabel *Label1;
        TLabel *Label2;
        TLabel *Label3;
        TLabel *Label4;
        TSDEdit *seClientCode;
        TSDEdit *seClientName;
        TSDEdit *seClientDesc;
        TSDComboBox *scClientType;
        TCheckBox *chkClientCancel;
        TGroupBox *GroupBox1;
        TLabel *Label5;
        TLabel *Label6;
        TLabel *Label7;
        TLabel *Label8;
        TLabel *Label11;
        TLabel *Label10;
        TLabel *Label9;
        TSDEdit *seClientLegalMan;
        TSDEdit *seClientLinkMan;
        TSDEdit *seClientAddr;
        TSDEdit *seClientZip;
        TSDEdit *seClientTel;
        TSDEdit *seClientFax;
        TSDEdit *seClientEmail;
        TTabSheet *FinaInfo;
        TFloatPanel *FloatPanel2;
        TGroupBox *GroupBox2;
        TLabel *Label12;
        TLabel *Label15;
        TLabel *Label16;
        TLabel *Label17;
        TLabel *Label18;
        TSDComboBox *scClientTradeCode;
        TGroupBox *GroupBox3;
        TLabel *Label13;
        TLabel *Label14;
        TSDComboBox *scClientTaxCode;
        TSDEdit *seClientTaxNo;
        TSDComboBox *scClientSmodeCode;
        TSDComboBox *cbClientCreditCode;
        TLabel *Label19;
        TLabel *Label20;
        TDateEdit *deClientCreateDate;
        TLabel *Label21;
        TLabel *Label22;
        TLabel *Label23;
        TLabel *Label24;
        TLabel *Label25;
        TLabel *Label26;
        TLabel *Label27;
        TSDEdit *seClientCreditTerm;
        TSDComboBox *scClientSpt;
        TLabel *Label28;
        TLabel *Label29;
        TLabel *Label30;
        TSDComboBox *scClientSalerCode;
        TLabel *deClientLtDate;
        TLabel *deClientLrDate;
        TLabel *deClientSysDate;
        TPanel *ClientPanel;
        TTreeView *tvClient;
        TLabel *lbClientAreaCode;
        TLabel *lbClientLtAmt;
        TLabel *lbClientLrAmt;
        TLabel *lbClientLmDays;
        TLabel *lbClientFreq;
        TLabel *lbClientCancelDate;
        TLabel *Label31;
        TSDEdit *seClientCurrency;
        TLabel *Label32;
        TLabel *lbClientArAmt;
        void __fastcall FormShow(TObject *Sender);
        void __fastcall tvClientChange(TObject *Sender, TTreeNode *Node);
        void __fastcall muAddDetailClick(TObject *Sender);
        void __fastcall muEditDetailClick(TObject *Sender);
        void __fastcall muDeleteDetailClick(TObject *Sender);
        void __fastcall seClientEmailKeyPress(TObject *Sender, char &Key);
        void __fastcall seClientCodeKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
        void __fastcall chkClientCancelMouseUp(TObject *Sender,
          TMouseButton Button, TShiftState Shift, int X, int Y);

private:	// User declarations

        AnsiString __fastcall GetFieldValue(int FieldIndex);
        void __fastcall ClearControl(bool BringToNext);
        void __fastcall GetDataFromComObject();
        void __fastcall SendDataToComObject();

        void __fastcall WaitUserInput();
        AnsiString __fastcall GetDataToGrid();
        void __fastcall RefreshGridData(int mAction);
        void __fastcall FillGridWithData();
        void __fastcall FillTreeWithPtype();
        void __fastcall InitEditControl();

        void __fastcall TreeViewLocation();
        void  __fastcall RefreshUpdateData(int MsgSrc,int MsgType);
        AnsiString KeyCode;
public:		// User declarations
      __fastcall TfrmClient(TComponent* Owner);
      AnsiString FormIniFile;
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmClient *frmClient;
//---------------------------------------------------------------------------
#endif