用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适用于客户端和单机版用户。建立或修改注册表键值:";
}
//---------------------------------------------------------------------------