unit_syssetup.~cpp

来自「本系统里面包含数据库（SQL SERVER2000）」· ~CPP 代码 · 共 41 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit_SysSetup.h"
#include "Unit_DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSysSetupfrm *SysSetupfrm;
//---------------------------------------------------------------------------
__fastcall TSysSetupfrm::TSysSetupfrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSysSetupfrm::SpeedButton1Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------
void __fastcall TSysSetupfrm::FormCreate(TObject *Sender)
{
  DM->items->Close();
  DM->items->Open();
  PageControl1->ActivePage =TabSheet1;
  DBNavigator1->DataSource =DM->dsitems;
}
//---------------------------------------------------------------------------

void __fastcall TSysSetupfrm::PageControl1Change(TObject *Sender)
{
  if(PageControl1->ActivePage==TabSheet1)
  DBNavigator1->DataSource =DM->dsitems;
  //else
  //DBNavigator1->DataSource =DM->dsitems;
}
//---------------------------------------------------------------------------