customer.cpp

来自「Raize控件包的安装路径为D:Program Files(一定要安装到正确位置」· C++ 代码 · 共 106 行

#include <vcl.h>
#pragma hdrstop

#include "customer.h"
#include "datamodule.h"
#include "order.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzButton"
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::RzButton1Click(TObject *Sender)
{  if(Edit1->Text=="")
  {ShowMessage("请输入客人编号！");
   
   }
  else
  { DataModule1->Query1->Last();
  DataModule1->Query1->Insert();
  DataModule1->Query1->FieldByName("CustomerID")->AsString=Form4->Edit1->Text;
  if(Edit2->Text!="")
  DataModule1->Query1->FieldByName("CustomerName")->AsString=Form4->Edit2->Text;
  DataModule1->Query1->FieldByName("CustomerSex")->AsString=Form4->RadioGroup1->Items->operator [](Form4->RadioGroup1->ItemIndex);
  if(Edit4->Text!="")
  DataModule1->Query1->FieldByName("E-Mail")->AsString=Form4->Edit4->Text;
  if(Edit5->Text!="")
  DataModule1->Query1->FieldByName("PhoneNO")->AsString=Form4->Edit5->Text;
  if(Edit3->Text!="")
  DataModule1->Query1->FieldByName("IdCard")->AsString=Form4->Edit3->Text;
  
    if(Edit7->Text!="")
  DataModule1->Query1->FieldByName("CustomerAge")->AsString=Form4->Edit7->Text;
  DataModule1->Query1->FieldByName("RegisterDay")->AsString=DateTimePicker1->Date;
  DataModule1->Query1->Post();
  DataModule1->DataSource1->DataSet->Close();
  DataModule1->Query1->ExecSQL();
  DataModule1->DataSource1->DataSet->Open();
  Form4->RzButton2Click(Sender);
   }

}
//---------------------------------------------------------------------------



void __fastcall TForm4::RzButton4Click(TObject *Sender)
{
Form4->Close();
}
//---------------------------------------------------------------------------


void __fastcall TForm4::RzButton3Click(TObject *Sender)
{
if(MessageDlg("确认要删除记录吗？",mtInformation,TMsgDlgButtons()<< mbOK << mbCancel, 0)==IDOK)
DataModule1->Query1->Delete();


}
//---------------------------------------------------------------------------


void __fastcall TForm4::RzButton2Click(TObject *Sender)
{  Form4->Edit1->Clear();
   Form4->Edit2->Clear();
   Form4->Edit3->Clear();
   Form4->Edit4->Clear();
   Form4->Edit5->Clear();
   
   Form4->Edit7->Clear();
   




}
//---------------------------------------------------------------------------





void __fastcall TForm4::Edit7DblClick(TObject *Sender)
{
Form5->ShowModal();
}
//---------------------------------------------------------------------------




void __fastcall TForm4::FormShow(TObject *Sender)
{
 DataModule1->Query1->Close();
 DataModule1->Query1->Open();
 DateTimePicker1->Date=TDateTime().CurrentDate();       
}
//---------------------------------------------------------------------------