📄 checkser.~cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "CheckSer.h"
#include "CheckIn.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Parent"
#pragma resource "*.dfm"
TfmCheckSer *fmCheckSer;
//---------------------------------------------------------------------------
__fastcall TfmCheckSer::TfmCheckSer(TComponent* Owner)
: TfmParent(Owner)
{
this->szCondition1 = "入住单号";
this->szCondition2 = "消费内容";
// 设置查询条件
this->SetSeekEditStatus();
Table1->Active = true;
lblCount->Caption = "记录数: " + IntToStr(Table1->RecordCount) ;
}
//---------------------------------------------------------------------------
void __fastcall TfmCheckSer::btSelectClick(TObject *Sender)
{
TfmCheckIn* pForm = new TfmCheckIn(Application);
// 作为普通窗口
pForm->FormStyle = fsNormal;
pForm->Hide();
// 不可以编辑房态
pForm->m_nSelect = 0;
// 数据不可以在这里编辑,设置按钮的Enable属性为false
pForm->btNew->Enabled = false;
pForm->btEdit->Enabled = false;
pForm->btDelete->Enabled = false;
pForm->btNew->Enabled = false;
pForm->ShowModal();
if(!pForm->Table1->FieldByName("入住单号")->IsNull )
EditDBEdit2->Text= pForm->Table1->FieldByName("入住单号")->AsString;
delete pForm;
}
//---------------------------------------------------------------------------
void __fastcall TfmCheckSer::btSaveClick(TObject *Sender)
{
TfmParent::btSaveClick(Sender);
TfmParent::BitBtn1Click(NULL);
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -