用BCB編寫一個改寫oracle日期顯示格式的程序
2024-08-29 13:39:03
供稿：網(wǎng)友
#include
#PRagma hdrstop
#include
#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("http://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("http://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設計環(huán)境：Windows98/Oracle7 /n適用于客戶端和單機版用戶。建立或修改注冊表鍵值：";
}
//---------------------------------------------------------------------------
