高分 delphi 表格添加数据
我想做一个窗体,上面有一个表格,还有几个文本的输入框,一个按钮。我想按按钮让输入框中的内容显示在表格中,应该怎么操作啊,代码怎么写啊。不要球使用数据库就是一个简单小程序还...
我想做一个窗体,上面有一个表格,还有几个文本的输入框,一个按钮。我想按按钮 让输入框中的内容显示在表格中,应该怎么操作啊 ,代码怎么写啊。
不要球使用数据库 就是一个简单小程序 还有就是要使用什么控件 我都不会~! 展开
不要球使用数据库 就是一个简单小程序 还有就是要使用什么控件 我都不会~! 展开
5个回答
展开全部
这个功能并不难,使用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;
先在窗口中加入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;
展开全部
Query1.open;
Query1.Append;
Query1('要存的字段').AsString:=edit1.text;
Query1.post;
前提是设置好Query1的SQL属性,在上面写select * from 表名
Query1.Append;
Query1('要存的字段').AsString:=edit1.text;
Query1.post;
前提是设置好Query1的SQL属性,在上面写select * from 表名
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
是像0FFICE一样操作吗?
好象一样的。
好象一样的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在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;
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;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
回答者:supercc_cn - 经理 五级
正解
正解
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询