unit12.cpp

第一次尝试开发数据库方面的系统

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

#include <vcl.h>
#pragma hdrstop

#include "Unit12.h"
#include "Unit11.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_register *frm_register;
//---------------------------------------------------------------------------
__fastcall Tfrm_register::Tfrm_register(TComponent* Owner)
  : TForm(Owner)
{
  Height=467;
  Width=660;
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_register::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  Action=caFree;  
}
//---------------------------------------------------------------------------



void __fastcall Tfrm_register::Panel2Click(TObject *Sender)
{

  AnsiString sql;
  sql="select * from 管理员资料";
  try{
  DM->mQuery->Close();
  DM->mQuery->SQL->Clear();
  DM->mQuery->SQL->Add(sql);
  DM->mQuery->ExecSQL();
  DM->mQuery->Open();
  DM->mQuery->Insert();
  DM->mQuery->FieldByName("帐号")->AsString=Edit1->Text;
  DM->mQuery->FieldByName("姓名")->AsString=Edit2->Text;
  DM->mQuery->FieldByName("密码")->AsString=Edit3->Text;
  DM->mQuery->FieldByName("家庭地址")->AsString=Edit4->Text;
  DM->mQuery->FieldByName("联系电话")->AsString=Edit5->Text;
  //DM->mQuery->FieldByName("权限")->AsString=ComboBox1->Text;
  DM->mQuery->FieldByName("备注")->AsString=Edit6->Text;
  DM->mQuery->FieldByName("照片")->AsVariant=Image1->Picture;
  DM->mQuery->Post();
  }
  catch(...)
  {
    ShowMessage("数据库出错或已经存在该名用户！");
  }
}
//---------------------------------------------------------------------------