Question

高分 delphi 表格添加数据

我想做一个窗体，上面有一个表格，还有几个文本的输入框，一个按钮。我想按按钮 让输入框中的内容显示在表格中，应该怎么操作啊 ，代码怎么写啊。
不要球使用数据库 就是一个简单小程序 还有就是要使用什么控件 我都不会～！

Answer 1

这个功能并不难，使用DELPHI自己的标准控件就可以实现：
先在窗口中加入Standard控件页里的TEdit三个，分别为Edit1到Edit3，再加入一个TButton，以及Additional控件页的TStringGrid；
接着就可以开始编写代码了。
双击Button，自动跳到他的OnClick事件中，写入以下代码后运行即可。
procedure TForm1.Button1Click(Sender: TObject);
begin
//StringGrid1.Cells[列号, 行号]
StringGrid1.Cells[1,1] := Edit1.Text;
StringGrid1.Cells[1,2] := Edit2.Text;
StringGrid1.Cells[1,3] := Edit3.Text;

//以下属性可以在Delphi左侧的Object Inspector窗口中修改，可以在程序运行时动态修改，更多的属性和方法你可以自己查看Delphi的帮助文件。
//StringGrid1.ColCount 表示表格里的总列数,可修改他以实现增加减少行数
//StringGrid1.RowCount 则表示表格的总行数
//StringGrid1.DefaultColWidth 表示第零列(最左边的序号列)的宽度值
//如果你肯定不使用库的话，你可能就需要自己使用二维循环来手工表格里每个CELL的值
end;

Answer 2

Query1.open;
Query1.Append;
Query1('要存的字段').AsString:=edit1.text;
Query1.post;
前提是设置好Query1的SQL属性,在上面写select * from 表名

Answer 3

是像0FFICE一样操作吗？
好象一样的。

Answer 4

在Form上添加一个Button,两个Edit，一个ListView
1.将ListView控件的ViewStyle属性设置成vsReport
2.给ListView添加列：设置其Columns属性，此处添加2列
3.给Button的单击事件添加代码：
procedure TForm1.Button1Click(Sender: TObject);
var
lstItem: TListItem;
begin
lstItem := ListView1.Items.Add;
lstItem.Caption := Edit1.Text;
lstItem.SubItems.Add(Edit2.Text);
end;

Answer 5

回答者：supercc_cn - 经理 五级

正解