用BCB编写一个改写oracle日期显示格式的程序

用BCB编写一个改写oracle日期显示格式的程序

黑兵网站http://www.ancn.net E-mail:621150@0451.com QQ:621150

#include <vcl.h>

#pragma hdrstop

#include <Registry.hpp>

#include "Unit1.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

//读注册表

TRegistry *RegLiveFpcnR = new TRegistry;

try

{

RegLiveFpcnR->RootKey = HKEY_LOCAL_MACHINE;

if(RegLiveFpcnR->OpenKey("\SOFTWARE\ORACLE",true) != false)

CSpinEdit1->Text = RegLiveFpcnR->ReadString("NLS_DATE_FORMAT");

}

__finally

{

RegLiveFpcnR->CloseKey();

delete RegLiveFpcnR;

}

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

//写注册表

TRegistry *RegLiveFpcnW = new TRegistry;

try

{

RegLiveFpcnW->RootKey = HKEY_LOCAL_MACHINE;

if(RegLiveFpcnW->OpenKey("\SOFTWARE\ORACLE",true) != false)

RegLiveFpcnW->WriteString("NLS_DATE_FORMAT",Trim(CSpinEdit2->Text.c_str()));

ShowMessage("日期格式设置成功！");

}

__finally

{

RegLiveFpcnW->CloseKey();

delete RegLiveFpcnW;

}

}

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

void __fastcall TForm1::FormShow(TObject *Sender)

{

CSpinEdit2->Items->Add("YYYY-MM-DD");

CSpinEdit2->Items->Add("YYYY/MM/DD");

CSpinEdit2->Items->Add("MM-DD-YYYY");

CSpinEdit2->Items->Add("MM/DD/YYYY");

CSpinEdit2->Items->Add("MM-DD-YY");

CSpinEdit2->Items->Add("MM/DD/YY");

CSpinEdit2->Items->Add("DD-MM-YYYY");

CSpinEdit2->Items->Add("DD/MM/YYYY");

CSpinEdit2->Items->Add("DD-MM-YY");

CSpinEdit2->Items->Add("DD/MM/YY");

Label3->Caption="本程序是针对Oracle日期格式更改而设计的，\n设计环境：Windows98/Oracle7 \n适用于客户端和单机版用户。建立或修改注册表键值：";

}

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