企业管理

开发平台：

Delphi

Stype.h：源码内容

							//---------------------------------------------------------------------------
#ifndef StypeH
#define StypeH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "fpanel.h"
#include "RecBaseForm.h"
#include "SDEdit.h"
#include "SDGrid.h"
#include <ComCtrls.hpp>
#include <Grids.hpp>
#include <ImgList.hpp>
#include <Menus.hpp>
#include <ToolWin.hpp>
#include <Dialogs.hpp>
//---------------------------------------------------------------------------
class PACKAGE TfrmStype;
class  TfrmStype : public TRecBaseForm
{
__published:	// IDE-managed Components
    TSDGrid *sgStype;
    TFloatPanel *FloatPanel1;
    TSDEdit *seStypeCode;
    TSDEdit *seStypeName;
    TSDEdit *seStypeDesc;
    TLabel *Label1;
    TLabel *Label2;
    TLabel *Label3;
    void __fastcall FormShow(TObject *Sender);
        void __fastcall sgStypeClick(TObject *Sender);
private:	// User declarations
    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 InitEditControl();
public:		// User declarations
    __fastcall TfrmStype(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr);
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmStype *frmStype;
//---------------------------------------------------------------------------
#endif

						