用到的控件有:Table1 datesource1 edit1 edit2 edit3 DBGrid1 Button1 button2
edit1对应的字段:学生编号
edit2对应的字段:姓名
edit3对应的字段:入学时间
button1 是输入 button2是退出
设置好相应的table1 datesource1 dbgrid1 等的数据部件的连接。
后台数据库是SQL2000,已经建立好了ODBC的连接。
如何编写button1的on click,使提交的数据能在DBGrid1中立即反映出来而且已经输入了的数据也能够放映出来。 我是这样写的:
procedure TForm1.Button1Click(Sender: TObject);
begin
With Table1 do
Table1.EDIT;
Table1.Append;
form1.DBGrid1.DataSource.Enabled:=false;
form1.DBGrid1.DataSource.Enabled:=true;
Table1.FieldByName('学生编号').AsString:=Edit1.Text;
Table1.FieldByName('姓名').AsString:=Edit2.Text;
Table1.FieldByName('入学时间').AsDateTime :=strtodatetime(Edit3.Text); Table1.Post;
end; 请各位高手给出具体的代码!
edit1对应的字段:学生编号
edit2对应的字段:姓名
edit3对应的字段:入学时间
button1 是输入 button2是退出
设置好相应的table1 datesource1 dbgrid1 等的数据部件的连接。
后台数据库是SQL2000,已经建立好了ODBC的连接。
如何编写button1的on click,使提交的数据能在DBGrid1中立即反映出来而且已经输入了的数据也能够放映出来。 我是这样写的:
procedure TForm1.Button1Click(Sender: TObject);
begin
With Table1 do
Table1.EDIT;
Table1.Append;
form1.DBGrid1.DataSource.Enabled:=false;
form1.DBGrid1.DataSource.Enabled:=true;
Table1.FieldByName('学生编号').AsString:=Edit1.Text;
Table1.FieldByName('姓名').AsString:=Edit2.Text;
Table1.FieldByName('入学时间').AsDateTime :=strtodatetime(Edit3.Text); Table1.Post;
end; 请各位高手给出具体的代码!
解决方案 »
- 发现:d2006的inline不是很可靠
- 在连接数据库时候,出现奇怪的问题!
- 在Delphi中用Excel报表
- 如何将RadioGroup中的内容,排成横的?
- 请问哪儿有数据库下载,DB2,Oracle都行
- 如何才能先执行基类的keypress再执行程序的keypress?
- 现在有没有sybase的ado驱动程序下载啊?急!!!
- 我想问一下,怎样在一个table控件里,把指针找到当前日期最近的日期的记录!
- 打包本地sql server数据库和像打包access是不是不一样?
- 以下代码提示越界,谁能帮帮我?
- Form1里有一个button1,Form2里有一个Edit1,
- update语句问题请教
Table1.Active := true;
Table1.Active := true;
实际上这种方法不把稳,这是事实。
table.open;道理是一样的!
自动更新。
table.close;
table.open;