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

 1<vcl.h>   
 2#pragma hdrstop   
 3#include <registry.hpp>   
 4#include "Unit1.h"   
 5//---------------------------------------------------------------------------   
 6#pragma package(smart_init)   
 7#pragma resource "*.dfm"   
 8TForm1 *Form1;   
 9//---------------------------------------------------------------------------   
10__fastcall TForm1::TForm1(TComponent* Owner)   
11: TForm(Owner)   
12{   
13}   
14//--------------------------------------------------------------------------- 
15
16void __fastcall TForm1::Button1Click(TObject *Sender)   
17{   
18//读注册表   
19TRegistry *RegLiveFpcnR = new TRegistry;   
20try   
21{   
22RegLiveFpcnR-&gt;RootKey = HKEY_LOCAL_MACHINE;   
23if(RegLiveFpcnR-&gt;OpenKey(" \\\SOFTWARE\\\ORACLE",true ) != false)   
24CSpinEdit1-&gt;Text = RegLiveFpcnR-&gt;ReadString("NLS_DATE_FORMAT");   
25}   
26__finally   
27{   
28RegLiveFpcnR-&gt;CloseKey();   
29delete RegLiveFpcnR;   
30}   
31}   
32//--------------------------------------------------------------------------- 
33
34void __fastcall TForm1::Button2Click(TObject *Sender)   
35{   
36//写注册表   
37TRegistry *RegLiveFpcnW = new TRegistry;   
38try   
39{   
40RegLiveFpcnW-&gt;RootKey = HKEY_LOCAL_MACHINE;   
41if(RegLiveFpcnW-&gt;OpenKey(" \\\SOFTWARE\\\ORACLE",true ) != false)   
42RegLiveFpcnW-&gt;WriteString("NLS_DATE_FORMAT",Trim(CSpinEdit2-&gt;Text.c_str()));   
43ShowMessage("日期格式设置成功！");   
44}   
45__finally   
46{   
47RegLiveFpcnW-&gt;CloseKey();   
48delete RegLiveFpcnW;   
49}   
50}   
51//---------------------------------------------------------------------------   
52void __fastcall TForm1::FormShow(TObject *Sender)   
53{   
54CSpinEdit2-&gt;Items-&gt;Add("YYYY-MM-DD");   
55CSpinEdit2-&gt;Items-&gt;Add("YYYY/MM/DD");   
56CSpinEdit2-&gt;Items-&gt;Add("MM-DD-YYYY");   
57CSpinEdit2-&gt;Items-&gt;Add("MM/DD/YYYY");   
58CSpinEdit2-&gt;Items-&gt;Add("MM-DD-YY");   
59CSpinEdit2-&gt;Items-&gt;Add("MM/DD/YY");   
60CSpinEdit2-&gt;Items-&gt;Add("DD-MM-YYYY");   
61CSpinEdit2-&gt;Items-&gt;Add("DD/MM/YYYY");   
62CSpinEdit2-&gt;Items-&gt;Add("DD-MM-YY");   
63CSpinEdit2-&gt;Items-&gt;Add("DD/MM/YY");   
64Label3-&gt;Caption="本程序是针对Oracle日期格式更改而设计的，\n设计环境：Windows98/Oracle7 \n适用于客户端和单机版用户。建立或修改注册表键值：";   
65}   
66//---------------------------------------------------------------------------</registry.hpp></vcl.h>