把email留下吧,我给你寄过去。
解决方案 »
- 怎么不能给StringGrid.Rowcount赋初值为零?
- 求助,delphi套接字报错.
- 36选7的算法一共有多少种选法
- 在用鼠标单击DBGrid标题单元格的时候总是在这个列的左侧出现一条黑色竖线,鼠标轻开后竖线消失,怎样在单击时不出现这条竖线?
- 急急...关于FastReport的问题,请各位报表高手帮忙..解决了给100分
- cellclick问题 在线等待
- 打印的问题(在线等,信誉绝对)
- delphi 数据分页问题
- 怎么看不见,是不是没有创建出来!!!
- 不知哪位大侠知道怎样打印stringgrid,小弟非常着急。高分相送
- IMAGE(stretch:=True)显示的图片
- 如何释放一个Form
~~~~~
还是直接贴吧。
最简单的方法当然是用一个Table,一个DataSource,一个DBGrid,但这样做有许多问题,尤其在控制用户的输入时,容易产生异常,比如说日期类型的字段。
我认为比较好的方法:姓名当然用一个Edit了,性别可以用ComboBox或RadioButton,年龄可以用Edit(我认为还是用生日好,否则到了明年...),代码如下
Edit1
ComboBox1
Edit2
OnButton1Click()
begin
try
Table1.Append;
Table1.FieldByName('Name').AsString := Edit1.Text;
Table1.FieldByName('Sex').AsString := ComboBox1.Items[ComboBox1.ItemIndex];
Table1.FieldByName('Age').AsString := Edit2.Text;
Table1.Post;
except
Table1.Cancel;
MessageDlg('录入失败!',mtError,[mbOK],0);
end;
end;