⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 delesome.cpp

📁 停车场用
💻 CPP
字号:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "DeleSome.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//设置编辑内容
static void SetEditText(TDeleSomeForm *te,DELETEXT*pSome);
//获取编辑内容
static int GetEditText(TDeleSomeForm *te,DELETEXT *pSome);

//---------------------------------------------------------------------------
__fastcall TDeleSomeForm::TDeleSomeForm(TComponent* Owner)
        : TForm(Owner)
{
}
//准备删除一些记录
int DeleteSomeRecord(TComponent* Owner,void *pSome)
 {
  TDeleSomeForm *te;
  int rc;

  rc=FALSE;
  te = new TDeleSomeForm(Owner);
  if(te!=NULL){
    SetEditText(te,(DELETEXT *)pSome);
    if(te->ShowModal()==mrOk){
      GetEditText(te,(DELETEXT *)pSome);
      rc=TRUE;
     }
    delete te;
   }
  return(rc);
 }
//设置编辑内容
void SetEditText(TDeleSomeForm *te,DELETEXT*pSome)
 {
  te->m_FromUpDown->Position=pSome->nFrom;
  te->m_ToUpDown->Position=pSome->nTo;
  if(pSome->nSome)
    te->m_SomeRBut->Checked=TRUE;
  else te->m_CurRBut->Checked=TRUE;

  if(pSome->pszTitle!=NULL)
    te->SetTextBuf(pSome->pszTitle);
  if(pSome->pszText!=NULL)
    te->m_SomeGBox->SetTextBuf(pSome->pszText);
 }
//获取编辑内容
int GetEditText(TDeleSomeForm *te,DELETEXT *pSome)
 {
  int m,n;
  char szBuf[30];

  te->m_FromEdit->GetTextBuf(szBuf,sizeof(szBuf));
  m = strtoul(szBuf,NULL,10);
  te->m_ToEdit->GetTextBuf(szBuf,sizeof(szBuf));
  n = strtoul(szBuf,NULL,10);
  if(m<=0)m=1; if(m>n)n=m;
  pSome->nFrom=m;
  pSome->nTo=n;
  pSome->nSome = te->m_SomeRBut->Checked;
  return(TRUE);
 }

void __fastcall TDeleSomeForm::FormShow(TObject *Sender)
{
  RButClick(Sender);
}

void __fastcall TDeleSomeForm::RButClick(TObject *Sender)
{
  int n;
  n = m_SomeRBut->Checked;
  m_FromEdit->Enabled=n;
  m_ToEdit->Enabled=n;
  m_FromUpDown->Enabled=n;
  m_ToUpDown->Enabled=n;
}
//---------------------------------------------------------------------------


⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -