mainform.cpp

C++ BUILDER精彩编程实例集锦(源码)3 第五部分 系统编程 第六部分 数据库应用

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

#include <vcl.h>
#pragma hdrstop

#include "Mainform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{  //获取系统当前日期时间
   TSystemTime SDate;
   GetSystemTime(&SDate);
   AnsiString StrDate;
   StrDate+=IntToStr(SDate.wYear)+"年";
   StrDate+=IntToStr(SDate.wMonth)+"月";
   StrDate+=IntToStr(SDate.wDay)+"日";
   StrDate+=IntToStr(SDate.wHour)+"时";
   StrDate+=IntToStr(SDate.wMinute)+"分";
   StrDate+=IntToStr(SDate.wSecond)+"秒";
   switch(SDate.wDayOfWeek)
   {
     case 0:
        StrDate+="星期一";
        break;
     case 1:
        StrDate+="星期二";
        break;
     case 2:
        StrDate+="星期三";
        break;
     case 3:
        StrDate+="星期四";
        break;
     case 4:
        StrDate+="星期五";
        break;
     case 5:
        StrDate+="星期六";
        break;
     case 6:
        StrDate+="星期天";
        break;
   }
   this->Edit1->Text=StrDate;
   this->Edit2->Text=IntToStr(SDate.wYear);
   this->Edit3->Text=IntToStr(SDate.wMonth);
   this->Edit4->Text=IntToStr(SDate.wDay);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{//设置系统日期
  int iYear,iMonth,iDay;
  try
  {
    iYear=StrToInt(this->Edit2->Text);
    iMonth=StrToInt(this->Edit3->Text);
    iDay=StrToInt(this->Edit4->Text);
  }
  catch(...)
  {
    MessageBox(Handle,"日期数字输入错误","信息提示",MB_OK);
    return;
  }
  TSystemTime SDate;
  GetSystemTime(&SDate);
  SDate.wYear=iYear;
  SDate.wMonth=iMonth;
  SDate.wDay=iDay;
  SetSystemTime(&SDate);
  MessageBox(Handle,"设置系统日期操作成功","信息提示",MB_OK);
}
//---------------------------------------------------------------------------