Question

delphi DBGrid里面的值如何自动更新

我在一个窗体里面有一个添加数据的功能。窗体还有一个DBGrid显示数据。我如何才能做到这边点添加按钮后这条刚刚添加进去的数据就显示在DBGrid上面。用的是ADODataSet显示DBGrid 。  dataTable用于添加数据。请问要如何才能做到。添加功能和显示数据都正常，就是不能即时同步显示。总要关掉程序在进入程序在显示刚添加的数据。

Answer 1

一般这种做法是插入记载前对数据库的记载停止区分,假设有则报警,没有则插入: 举个例子: 比如你的数据表名为:AA,表外面第三列的字段名为:BB,窗体上你放入一个Edit控件用来输入第三字段的形式,那么在插入记载前你就可以写下这样的语句来区分: if edit1。Text<>'' then 。。edit控件不为空的时分 begin ADOQuery1。Close; 。。一般状况下要先封锁 ADOQuery1。SQL。Clear; 。。肃清之前的查询形式 ADOQuery1。SQL。Add('select * from AA where BB='''+edit1。Text+''''); 。。查询数据表中BB字段中有没有与Edit里输入形式相同的记载 ADOQuery1。Open; if ADOQuery1。RecordCount>0 then 。。假设有记载则提示 begin Application。MessageBox('数据库中已有此记载!', '正告', MB_OK); end; end; 2011-10-24 6:15:54

Answer 2

添加完成后，把dbgrid对应的dataset组件refresh一下，或者向楼上说的，close然后open下。

Answer 3

sql server 2000中，bit数据类型字段的值，一般是0与1，0是false,1是true
在查询SQL语句上想办法：
如果是false和true则：
SELECT 学号, 姓名,
CASE 姓别
WHEN 'true' THEN '男'
WHEN 'false' THEN '女'
END AS 性别
FROM stu
如果是0和1则：
SELECT 学号, 姓名,
CASE 姓别
WHEN 1 THEN '男'
WHEN 0 THEN '女'
END AS 性别
FROM stu 1和0要不要单引号，你自己试一下

Answer 4

很简单..
ADOTable1.Close;
ADOTable1.Open;

添加一个ADOCONNECTION,一个ADOTable，一个Datasoure,一个DBGrid。
DBGrid从datasoure读取数据，datasoure从ADOTable读取，ADOTable用ADOCONNECTION连接数据库...当添加了数据库的记录后，再执行上面两条语句，就行的。