unit_fileitem.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit_FileItem.h"
#include "Unit_DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFileItemfrm *FileItemfrm;
//---------------------------------------------------------------------------
__fastcall TFileItemfrm::TFileItemfrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFileItemfrm::SpeedButton1Click(TObject *Sender)
{
  DBGrid1->ReadOnly =false;
  DM->items->Edit();
  SpeedButton1->Enabled =false;
  SpeedButton2->Enabled =true;
  SpeedButton3->Enabled =true;
}
//---------------------------------------------------------------------------
void __fastcall TFileItemfrm::FormCreate(TObject *Sender)
{
  DM->items->Close();
  DM->items->Open();
  PageControl1->ActivePage =TabSheet1;
//  DBNavigator1->DataSource =DM->dsitems;
}
//---------------------------------------------------------------------------

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

void __fastcall TFileItemfrm::SpeedButton4Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------

void __fastcall TFileItemfrm::SpeedButton2Click(TObject *Sender)
{
  DM->items->Post();
  SpeedButton1->Enabled =true;
  SpeedButton2->Enabled =false;
  SpeedButton3->Enabled =false;
}
//---------------------------------------------------------------------------

void __fastcall TFileItemfrm::SpeedButton3Click(TObject *Sender)
{
  DM->items->Cancel();
  SpeedButton1->Enabled =true;
  SpeedButton2->Enabled =false;
  SpeedButton3->Enabled =false;
}
//---------------------------------------------------------------------------