delphi新小白求助

[Augustine000]

问题描述：在Delphi7中的dbgrid的列名如何实现程序运行后用户可以点击更改功能，一般老方法是操作时点击后弹出窗口利用edit文本赋值去改变，我想的是直接去改变DBGrid上列的数据，包括增加一列和该列的数据，已存在的列数据变动直接改就可以了，但是新增的列该怎么处理呢？？？我用的是ADOconnection,datasource,adoquery,dbgrid.

[doloopcn]

DBGrid默认就是可以修改的，最后一行带“*”的就是可以添加新行 的

不过DBGrid对数据检测的功能不尽人意，所以很多人都习惯用Edit代替输入，然后手工进行POST

[Augustine000]

引用 4 楼 lyhoo163 的回复:

DBGrid的列，都是与数据集相关联，如果要增加列，要对应表中有的字段，方能编辑。

这种关系我花了好长时间才明白，还有个事情，如果非得用表格型输入数据（现在是窗口弹出文本编辑保存输入数据同时作数据类型格式检查），是不是非得用stringgrid或者listview这两种，有没有更好的办法呢？

[Augustine000]

@doloopcn，昨天又看了下很多网上说的，dbgrid是显示数据的，和数据库关联，不能做类型和错误检查，用弹窗的方式带编辑文本等是最好的，防止很多错误输入，看来还是得用老方法。同样也很感谢你。

[victor_yang]

我用的方式就是
1、用户在grid上自由编写
2、保存写的时候做完整性判断，写一段给你看看

while not QueryBill4.Eof do
  begin
    with QueryBill1 do   //这一段是自己保存前做处理
    begin
      First;
      while not Eof do
      begin
        Edit;
        FieldByName('iOrder').AsInteger:=SHDBGridEh1.SumList.RecNo;
        Next;
      end;
    end;
    with QueryBill2 do  //这个就是完整性分析
    begin
      First;
      while not Eof do
      begin
        if Trim(FieldByName('iOrder').AsString)='' then   //如果有错就提示并且停止保存，还可以停到有错一行显示给客户看
        begin
          RzPageControl1.ActivePageIndex:=1;
          MessageDlg('工艺清单里的顺序号不能为空！',mtWarning,[mbOK],0);
          Result:=False;
          Exit;
        end;
        Next;
      end;
    end;
    QueryBill4.Next;
  end;

这样写客户感觉会比较自由，操作简便，就是开发者在保存前要做很细致的检查，发现录入有错误就停止并提示，直到客户录入的数据全部正确才能保存。要求开发人员对各列数据的要求都很清楚，才能及时发现有错误的数据。
当然了，客户也很少会故意乱写的，他也不想整天提示数据有错。

[lyhoo163]

DBGrid的列，都是与数据集相关联，如果要增加列，要对应表中有的字段，方能编辑。

[linghengmao]

直接在DBGRID上改，要增加的判断是非常多的吧。

[lyhoo163]

引用 5 楼 Augustine000 的回复:

[quote=引用 4 楼 lyhoo163 的回复:]
DBGrid的列，都是与数据集相关联，如果要增加列，要对应表中有的字段，方能编辑。

这种关系我花了好长时间才明白，还有个事情，如果非得用表格型输入数据（现在是窗口弹出文本编辑保存输入数据同时作数据类型格式检查），是不是非得用stringgrid或者listview这两种，有没有更好的办法呢？[/quote]

何为表格型？

[日立奔腾浪潮微软松下联想]

不用那么复杂，TStringGrid支持EditMask，写一个OnGetEditMask事件处理（在其Events中双击），以下是Delphi帮助中的例子：
procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol, ARow: Longint; var Value: string);
begin
if StringGrid1.Cells[ACol, 0] = 'Phone Number' then
Value := '!\(999\)000-0000;1';
end;

[Augustine000]

何为表格型？[/quote] 表格型为类似excel填充数据方式，非表格型就是在另外弹窗编辑框输入数据并通过类型检查，最后通过DBGrid显示数据。这两天在用StringGrid数据填充，头都大了。所以就有了问有没有更好的办法去解决的问题？我是纯小白来的，有些问题很基础还请见谅。

[victor_yang]

客户可以在DBGRID上编辑数据，但你在操作数据时不能在DBGRID上操作，应该操作query
新记录，客户可以向下键头新增，但你就要query.append
编辑数据，客户可以直接在dbgrid上修改，但你就要
query.edit;
query.fieldbyname('field').asstring='.....';
query.post;

我做了20年的信息系统都是这么做的，没有任何问题，你多摸索下。

[woniugongzuoshi]

这还不简单，首先初始化的时候就要保证你adoquery有这个字段，同时dbgrid也对应好，只是在dbgrid中把该字段对应的column的visible设为false,在相应事件触发时，把这个column的visible设为true就行了。做人别那么实诚，有时候编程跟变魔术一样，客户看见的是一回事，后台实现不一定一板一眼照那么来。