Question

delphi 打开窗口直接运行代码

新手 不知道怎么描述了 数据库链接完了 我在窗体上放了一个 DBGrid 我想在开这个窗体的时候 直接显示查询的结果
但是不可以修改 点击Button1 按钮后 可以向里输入数据 然后点Button2保存到数据库 （点Button1 输入时 表格里不显示其他数据 保存后显示所有数据 ） 哪位高手可以告诉我清楚一点的 我是新手 不会弄
最好把代码都写出来 不胜感激

Answer 1

大概明白你的意图，开这个窗体的时候直接显示查询的结果，可在窗体的SHOW事件中做好打开数据集的工作，这样当窗体显示出来的时候，数据也就显示出来了。要不可修改，只要设置DBGrid的Readonly属性为TRUE就行。点击Button1 按钮后，要关闭数据集（如TADOQuery），然后替换数据集控件的查询语句后重新打开数据集，让它返回一个不含记录但字段一样的空数据集，同时把DBGrid的Readonly属性为FALSE，这样就可以输入数据了。点Button2保存到数据库后，又要关闭数据集，换回原来的查询语句后重新打开数据集。这种方法只适合追加新记录，如果要修改记录，代码将复杂很多。

Answer 2

1. 在开这个窗体的时候 直接显示查询的结果

   可以考虑在窗体的 OnShow 事件中，运行数据的查询。

   
   

2. 不可以修改 

   将 DBGrid 设置为只读。

   
   

3. 点击Button1 按钮后 可以向里输入数据 然后点Button2保存到数据库

   将各字段用 edit 等控件一一对应建立，点击 Button1 时，先清空各 edit 原有数据；输入完成后，点 Button2 时，数据库执行 Append，再将数据 Post 到数据库中。

Answer 3

不知你是用ADOquery连接还是ADOtable连接。
1>如是是ADOQUERY连接，在SQL属性中加入：select * from 表名,将ADOQUERY的active设为true,ADOConnection也设为true，则开窗体时显示结果；
2>datasource的autoEdit设为false,则无法修改;
3>button1_Click事件中，设datasource的autoEdit为true则可在dbgrid中直接输入数据了，同时，将adoquery.active设为false,则不显示数据
4>至于保存后显示所有数据跟第一步是一样的

Answer 4

dbgrid 关联到一个datasource, 一个datasource关联到一个dataset(table或query), button1代码中加入 table.edit; button2的代码中加入 table.post;

点button1后不显示其它数据，这个我不明白，原来的数据还是要显示的，在原来的数据上修改，原来的数据也不要了？

追问

以前的数据还要 就是在点输入以后 不显示出来