在Delphi中处理数据库日期型字段的显示与输入

原创 2001年07月24日 16:07:00

---- 在使用Delphi进行数据库设计时,不可避免的会涉及到日期型字段的输入问题。
不过与Microsoft的Access 97中文版等相比,Delphi本身提供的日期型字段的显示和输入方式
并不适合中国人的习惯。因此对于日期型字段的处理,大家提出了不少解决方法,但是处理结果
在显示和输入上并不统一,例如显示时可以实现“yyyy年mm月dd日”的格式,但是在输入时还是
要按照国外的习惯用“yyyy-mm-dd”的形式进行输入;而使用TdateTimePicker进行选择输入总
嫌麻烦;有些方法还要修改系统的一些设置属性,因而在进行软件发布时要将系统的属性进行调整;
采用第三方控件的方式则还要将控件打包发布。而且对于常用到的“1999年”、“1999年11月”等
日期格式,没有进行相应的处理。这里我根据自己的实践,利用TField的OnGetText和OnSetText两
个事件的结合,以期达到日期型字段的显示和输入的统一,并可以处理我们常见的“1999年”、
“1999年11月”等日期形式的显示和输入,全部利用Delphi提供的事件实现,不需要修改任何系统设
置。进行相应的扩展后,还可以用于时间的显示和输入,如“hh点mm分”等。同时,由于是直接控制
TField的事件,所以不论使用TDBGrid还是用TDBEdit,都可以正常的进行统一处理,而不必分开考虑
。采用类似的方法,还可以应用于非数据库应用程序中的日期输入。

---- 1 基本思想

---- 利用TField的EditMask属性,将其同时作为显示和输入的掩码,在TField的OnGetText事件中处
理日期字段的显示,而在OnSetText事件中处理输入值的有效性判断。为了重复利用代码,将OnGetText
和OnSetText的事件处理过程调用的过程和函数放到一个独立的单元中。

---- 2 具体实现代码

{显示和判断单元}
unit DBDateEditMaskTrans;
interface
uses
  Windows, SysUtils, Controls, Forms,Db;

  {日期型字段显示过程,在OnGetText事件中调用}
  procedure DateFieldGetText(Sender: TField;
var Text: String);

  {日期型字段输入判断函数,在OnSetText事件中调用}
  function DateFieldSetText(Sender: TField;
const Text: String):Boolean;

implementation

procedure DateFieldGetText(Sender: TField;
var Text: String);
var
  dDate:TDate;
  wYear,wMonth,wDay:Word;
  aryTestYMD:Array [1..2] of Char
;{测试输入掩码用临时数组}
  iYMD:Integer;
begin
  dDate:=Sender.AsDateTime;
  DecodeDate(dDate,wYear,wMonth,wDay);

{测试输入掩码所包含的格式.}
  aryTestYMD:='年';
  if StrScan(PChar(Sender.EditMask),
aryTestYMD[1])< >nil then
    iYMD:=1;
    aryTestYMD:='月';
  if StrScan(PChar(Sender.EditMask),
aryTestYMD[1])< >nil then
    iYMD:=2;
    aryTestYMD:='日';
  if StrScan(PChar(Sender.EditMask),
aryTestYMD[1])< >nil then
    iYMD:=3;

  case iYMD of
    1:{输入掩码为:”yyyy年”的格式.}
      Text:=IntToStr(wYear)+'年';
    2: {输入掩码为:”yyyy年mm月”的格式.}
      Text:=IntToStr(wYear)+'年'+IntToStr(wMonth)+'月';
    3: {输入掩码为:”yyyy年mm月dd日”的格式.}
      Text:=IntToStr(wYear)+'年'+IntToStr(wMonth)+'月'
        +IntToStr(wDay)+'日';
  else {默认为:”yyyy年mm月dd日”的格式.}
    Text:=IntToStr(wYear)+'年'+IntToStr(wMonth)+'月'
    +IntToStr(wDay)+'日';
  end;

end;

function DateFieldSetText(Sender: TField;
const Text: String):Boolean;
var
  dDate:TDate;
  sYear,sMonth,sDay:String;
  aryTestYMD:Array [1..2] of Char;
  iYMD:Integer;
begin
  {获得用户输入的日期}
  sYear:=Copy(Text,1,4);
  sMonth:=Copy(Text,7,2);
  SDay:=Copy(Text,11,2);

  {测试输入掩码所包含的格式.}
  aryTestYMD:='年';
  if StrScan(PChar(Sender.EditMask),
aryTestYMD[1])< >nil then
    iYMD:=1;
  aryTestYMD:='月';
  if StrScan(PChar(Sender.EditMask),
aryTestYMD[1])< >nil then
    iYMD:=2;
  aryTestYMD:='日';
  if StrScan(PChar(Sender.EditMask),
aryTestYMD[1])< >nil then
    iYMD:=3;

  {利用Try…Except进行输入的日期转换}
  try
    begin
      case iYMD of
        1: {输入掩码为:”yyyy年”的格式.}
          begin
            dDate:=StrToDate(sYear+'-01-01')
  ;{中文Windows默认的日期格式为:yyyy-mm-dd.下同}
            Sender.AsDateTime:=dDate;
          end;
        2: {输入掩码为:”yyyy年mm月”的格式.}
          begin
            dDate:=StrToDate(sYear+'-'+sMonth+'-01');
            Sender.AsDateTime:=dDate;
          end;
        3: {输入掩码为:”yyyy年mm月dd日”的格式.}
          begin
            dDate:=StrToDate(sYear+'-'+sMonth+'-'+sDay);
            Sender.AsDateTime:=dDate;
          end;
      else {默认为:”yyyy年mm月dd日”的格式.}
        begin
          dDate:=StrToDate(sYear+'-'+sMonth+'-'+sDay);
          Sender.AsDateTime:=dDate;
        end;
      end;
      DateFieldSetText:=True;
    end;
  except
    {日期转换出错}
    begin
      Application.MessageBox(PChar(Text+'不是有效的日期!'),
'错误',mb_Ok+mb_IconError);
      DateFieldSetText:=False;
    end;
  end;

end;

end.

在Delphi中使用SQL语句插入包括时间日期的记录

    用delphi开发数据库应用程序,常常要使用SQL语句插入一条记录到数据库。但是,当数据库的字段不是字符串而是如日期、时间等等特殊数据时,应该怎样书写相应的insert语句呢?下面是我最近采用...
  • pascal_sunhong
  • pascal_sunhong
  • 2005年10月24日 10:48
  • 4247

数据库中关于datetime、date 、time数据类型比较,及插入日期时间数据格式

USE [DemoDataBase] GO /****** Object:  Table [dbo].[tb_Time]    Script Date: 11/21/2013 14:26:10 *...
  • ht_gaogao
  • ht_gaogao
  • 2013年11月21日 14:38
  • 5872

delphi+access 执行时间段查询时,直接写SQL和使用filter的不同

在写sql语句时如:with adoquery1 dobeginclose;sql.clear;sql.add(select * from tb where dt > +ch+2008-10-10 1...
  • hank5658
  • hank5658
  • 2008年12月04日 18:17
  • 1428

数据库中关于datetime、date 、time数据类型比较,及插入日期时间数据格式

USE [DemoDataBase] GO /****** Object:  Table [dbo].[tb_Time]    Script Date: 11/21/2013 14:26:10 *...
  • ht_gaogao
  • ht_gaogao
  • 2013年11月21日 14:38
  • 5872

Sql Server中日期时间格式化为字符串输出

在SQL Server数据库中,SQL Server日期时间格式转换字符串可以改变SQL Server日期和时间的格式, 是每个SQL数据库用户都应该掌握的。本文我们主要就介绍一下SQL Serve...
  • liguo9860
  • liguo9860
  • 2014年12月13日 10:09
  • 13274

sqlite时间函数及时间日期处理

SQLite 包括以下五个时间函数: date(日期时间字符串, 修正符, 修正符, ……) time(日期时间字符串, 修正符, 修正符, ……) datetime(日期时间字符串, 修正...
  • lf747784476
  • lf747784476
  • 2016年06月20日 10:23
  • 1260

Delphi查询Access日期/时间字段报错的自我总结

现象描述   最近学习Delphi,在学习连接Access数据库的时候发现有个问题:通过连接。执行查询语句中如果没有时间类型就没有问题,如果包含时间在里面就有问题也就是:执行 Select * Fro...
  • www1157763637qqcom
  • www1157763637qqcom
  • 2013年10月29日 10:44
  • 1374

Delphi操作SQLSERVER数据库动态增加字段

  • 2013年04月19日 19:33
  • 7KB
  • 下载

delphi数据库字段数量方法修正

  • 2011年05月09日 11:14
  • 3.19MB
  • 下载

多层数据库应用基于Delphi DataSnap方法调用的实现(四)BLOB字段的读写

数据库的BLOB字段,可以用来保存字节流数据,比如图片、声音文件、html文档和大文本等等。Delphi传统的DataSnap技术,客户端数据集的数据包缺省不包含Blob字段数据,但可以在真正需要的时...
  • HelpMeNow
  • HelpMeNow
  • 2011年08月22日 22:24
  • 560
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在Delphi中处理数据库日期型字段的显示与输入
举报原因:
原因补充:

(最多只允许输入30个字)