我们公司使用的进销存软件就是DBGRID做的数据录入,我肯定DBGRID绝对可以实现表格化录入,但是我试了半天没有试出来,由于软件没有加壳,以下是我用DEDE反编译出的单元与窗体信息,事件信息,请高手帮我实现这个表格化录入!object DBGrid1: TDBGrid [5]
Left = 0
Top = 189
Width = 661
Height = 196
DataSource = dsItem
TabOrder = 5
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnEditButtonClick = DBGrid1EditButtonClick
Columns = <
item
ButtonStyle = cbsEllipsis
Expanded = False
FieldName = 'BARCODE'
Width = 86
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'NAME'
ReadOnly = True
Visible = True
end
item
Expanded = False
FieldName = 'SIZE'
Width = 38
Visible = True
end
item
Expanded = False
FieldName = 'JHDJ_HS'
Width = 58
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'LSDJ'
ReadOnly = True
Visible = True
end
item
Expanded = False
FieldName = 'RKXS'
Visible = True
end
item
Expanded = False
FieldName = 'SPWKDHSL'
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'JHDJ_BHS'
ReadOnly = True
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'JHJE_JJ'
ReadOnly = True
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'JXSL'
ReadOnly = True
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'ZZSJE'
ReadOnly = True
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'SPCODE'
ReadOnly = True
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'UNIT'
ReadOnly = True
Visible = True
end因为我觉得他们写的这个软件请写数据库效率极高,而且事务都控制的很好,所以才想请高手帮看看,我已经实现了一些基本功能,但就是表格不能进行字符输入,但是有光标闪烁,
Left = 0
Top = 189
Width = 661
Height = 196
DataSource = dsItem
TabOrder = 5
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnEditButtonClick = DBGrid1EditButtonClick
Columns = <
item
ButtonStyle = cbsEllipsis
Expanded = False
FieldName = 'BARCODE'
Width = 86
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'NAME'
ReadOnly = True
Visible = True
end
item
Expanded = False
FieldName = 'SIZE'
Width = 38
Visible = True
end
item
Expanded = False
FieldName = 'JHDJ_HS'
Width = 58
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'LSDJ'
ReadOnly = True
Visible = True
end
item
Expanded = False
FieldName = 'RKXS'
Visible = True
end
item
Expanded = False
FieldName = 'SPWKDHSL'
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'JHDJ_BHS'
ReadOnly = True
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'JHJE_JJ'
ReadOnly = True
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'JXSL'
ReadOnly = True
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'ZZSJE'
ReadOnly = True
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'SPCODE'
ReadOnly = True
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'UNIT'
ReadOnly = True
Visible = True
end因为我觉得他们写的这个软件请写数据库效率极高,而且事务都控制的很好,所以才想请高手帮看看,我已经实现了一些基本功能,但就是表格不能进行字符输入,但是有光标闪烁,
解决方案 »
- 朋友们谁有 RAW转RGB.dll和.h文件.lib文件? 请发我一份 谢谢
- 晚上有一个读取硬盘序列号的函数,在D2009不好使了,能帮忙修正一下吗?
- ADO连接修改Paradox表时“操作必须使用一个可更新的查询”错误?
- FastReport能不能做到像ReportBuilder一定直接對多層主細表直接進行分組打印?(不用Master/detail/subdetail/4thDedtail)
- 困扰的问题,cxGrid中的列如何动态地设置为只读或编辑?
- 谁能帮我测试和调试这段代码!
- 大侠救命:请问怎么去掉DBGrid的水平滚动条?
- 请教,如何做一个进度显示?希望(详细点)!拜托高手
- delphi开发webservice如何传递一个数据集?
- 请教: 如何用delphi制作VCD播放器
- 高分求写Oracle Clob字段问题
- 表格的新的两列中插入数据,还有怎么在按下button后,在dbgrid显示需要显示的表格
1、通过临时表,不加任何控制,通过Form的MouseDown/MouseUp组合控制
2、通过DataSet的BeforeInsert/BeforeScroll组合控制说明:难道添加数据一定要通过Append/Insert吗?楼主该好好想想
1.数据库支持
2.数据分组
3.分页符
4.多栏打印
5.背景图欢迎到我们的网站下载试用版。
http://www.anylib.com