有关DBGrid控件和时间控件的问题 你选用一个TDateTimePicker,自己保存就可以了,query1['birtherday']:=DatetimePicker.date; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Formatdatetime('yyyy-mm-dd',now())Formatdatetime('yyyy-mm-dd hh:mm:ss',now())............查一下帮助 这是一个在DBGRID中插入其它控件的例子,你可将其换成DATETIMEPICKER,你看看有没有用。---- Delphi提供了功能强大的 DBGrid组件,以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件,每一个获得焦点(Grid)只是一个简单的文本编辑框,不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入,比如DBComboBox,DBCheckBox等组件,但这些组件却没有DBGrid功能强大。Delphi能不能象VisualFoxpro那样让DBGrid中获得焦点网格可以是其它可视数据组件以方便用户呢?其实我们可以通过在DBGrid中插入其他可视组件来实现这一点。---- Delphi对DBGrid处理的内部机制,就是在网格上浮动一个组件——DBEdit组件。你输入数据的网格其实是浮动DBEdit组件,其他未获得焦点地方不过是图像罢了。所以,在DBGrid中插入其他可视组件就是在网格上浮动一个可视组件。因此任何组件,包括从简单的DbCheckBox到复杂的对话框,都可以在DBGrid中插入。下面就是一个如何在DBGrid中插入DBComboBox组件的步骤,采用同样的办法可以插入其他组件。---- 1、 在Delphi 4.0中新建一个项目。---- 2、 分别拖动的Data Access组件板上DataSource、Table,DataControls组件板上DBGrid,DBComboBox四个组件到Form1上。---- 3、 设置各个组件的属性如下:rcf1 对象 属性 设定植Form1 Caption '在DBGrid中插入SpinEdit组件示例'DataSource1 DataSet Table1Table1 DatabaseName 'DBDEMOS'TableName 'teacher.DBF'Active TrueDBGrid1 DataSource DataSource1DBComboBox1 DataField 'SEX'DataSource DataSource1Visible FalseItems.Strings '男'| '女'---- 注意:我在这里用了Teacher.dbf,那是反映教职工的性别,只能是“男”或者是“女”。---- 4、 DrawDataCell事件是绘制单元格,当获得焦点网格所对应的字段与组合框所对应的字段一致时,移动组合框到获得焦点的网格上,并且使组合框可视,从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下:procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;Field: TField; State: TGridDrawState);beginif (gdFocused in State) thenbeginif (Field.FieldName = DBComboBox1.DataField ) thenbeginDBComboBox1.Left := Rect.Left + DBGrid1.Left;DBComboBox1.Top := Rect.Top + DBGrid1.top;DBComboBox1.Width := Rect.Right - Rect.Left;DBComboBox1.Height := Rect.Bottom - Rect.Top;DBComboBox1.Visible := True;end;end;end;---- 5、 DBGrid指定单元格未获得焦点时不显示DBComboBox,设置DBGrid1的OnColExit事件如下:procedure TForm1.DBGrid1ColExit(Sender: TObject);beginIf DBGrid1.SelectedField.FieldName= DBComboBox1.DataField thenbeginDBComboBox1.Visible := false;end;end;---- 6、 当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格,并显示DBComboBox,但是DBComboBox并没有获得焦点,数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个Windows API函数将数据输入传输到DBComboBox上,从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下:procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);beginif (key < > chr(9)) thenbeginif (DBGrid1.SelectedField.FieldName=DBComboBox1.DataField) thenbeginDBComboBox1.SetFocus;SendMessage(DBComboBox1.Handle,WM_Char, word(Key), 0);end;end;end; Delphi中将LiseView中的内容导入到Excel中的问题 删除数组中的一个值 请问自己提问的帖子在新版如何查? 想写个文章管理器,是用Access呢,还是Sql Sever数据库?顶者有分 这样为什么不行 程序运行连数据库之前,必须先使用网上邻居访问服务器,否则连接不上! 怎樣打印指定頁 求救 SQLConnection.active:=True时出错 关于一个DBGird显示不同颜色的简单问题(附源码) 我有一word的blob,想拷贝到clipboard中。 一个小问题,,什么是bcd码,什么是压缩的BCD码?二者有什么区别??? 小问题:)谢谢帮忙,UP有分哦;
Formatdatetime('yyyy-mm-dd hh:mm:ss',now())
............
查一下帮助
---- Delphi提供了功能强大的 DBGrid组件,以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件,每一个获得焦点(Grid)只是一个简单的文本编辑框,不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入,比如DBComboBox,DBCheckBox等组件,但这些组件却没有DBGrid功能强大。Delphi能不能象VisualFoxpro那样让DBGrid中获得焦点网格可以是其它可视数据组件以方便用户呢?其实我们可以通过在DBGrid中插入其他可视组件来实现这一点。---- Delphi对DBGrid处理的内部机制,就是在网格上浮动一个组件——DBEdit组件。你输入数据的网格其实是浮动DBEdit组件,其他未获得焦点地方不过是图像罢了。所以,在DBGrid中插入其他可视组件就是在网格上浮动一个可视组件。因此任何组件,包括从简单的DbCheckBox到复杂的对话框,都可以在DBGrid中插入。下面就是一个如何在DBGrid中插入DBComboBox组件的步骤,采用同样的办法可以插入其他组件。---- 1、 在Delphi 4.0中新建一个项目。---- 2、 分别拖动的Data Access组件板上DataSource、Table,DataControls组件板上DBGrid,DBComboBox四个组件到Form1上。---- 3、 设置各个组件的属性如下:
rcf1 对象 属性 设定植
Form1 Caption '在DBGrid中插入SpinEdit组件示例'
DataSource1 DataSet Table1Table1 DatabaseName 'DBDEMOS'
TableName 'teacher.DBF'
Active TrueDBGrid1 DataSource DataSource1DBComboBox1 DataField 'SEX'
DataSource DataSource1
Visible False
Items.Strings '男'| '女'
---- 注意:我在这里用了Teacher.dbf,那是反映教职工的性别,只能是“男”或者是“女”。---- 4、 DrawDataCell事件是绘制单元格,当获得焦点网格所对应的字段与组合框所对应的字段一致时,移动组合框到获得焦点的网格上,并且使组合框可视,从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下:
procedure TForm1.DBGrid1DrawDataCell
(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if (gdFocused in State) then
begin
if (Field.FieldName = DBComboBox1.DataField ) then
begin
DBComboBox1.Left := Rect.Left + DBGrid1.Left;
DBComboBox1.Top := Rect.Top + DBGrid1.top;
DBComboBox1.Width := Rect.Right - Rect.Left;
DBComboBox1.Height := Rect.Bottom - Rect.Top;
DBComboBox1.Visible := True;
end;
end;
end;
---- 5、 DBGrid指定单元格未获得焦点时不显示DBComboBox,设置DBGrid1的OnColExit事件如下:
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
If DBGrid1.SelectedField.FieldName
= DBComboBox1.DataField then
begin
DBComboBox1.Visible := false;
end;
end;
---- 6、 当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格,并显示DBComboBox,但是DBComboBox并没有获得焦点,数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个Windows API函数将数据输入传输到DBComboBox上,从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下:
procedure TForm1.DBGrid1KeyPress
(Sender: TObject; var Key: Char);
begin
if (key < > chr(9)) then
begin
if (DBGrid1.SelectedField.FieldName
=DBComboBox1.DataField) then
begin
DBComboBox1.SetFocus;
SendMessage(DBComboBox1.Handle,
WM_Char, word(Key), 0);
end;
end;
end;