用到的控件有: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; 请各位高手给出具体的代码!
解决方案 »
- 请问为什么没有MSIME?
- 点击表格,出现错误提示,HELP!
- 如何在Delphi中调用PB写的pbl,并使用pbl中的函数.谢谢
- 如何琐定桌面的鼠标,不让他动。
- 放分,怎么删除LISTBOX中的行,且后面的向前移
- Access 可以执行脚本吗? 在线等,马上结贴!
- 请问,CGI里面不可以用query来查询数据库吗?
- 我这简历该乍写啊,走过的,路过的,请帮帮我出出主意!
- 关于delphi7.0+win2000 server 下的combobox的问题
- 如何把本机midas运行过的服务器端shutdoan而作为客户端...
- Form1里有一个button1,Form2里有一个Edit1,
- update语句问题请教
Table1.Active := true;
Table1.Active := true;
实际上这种方法不把稳,这是事实。
table.open;道理是一样的!
自动更新。
table.close;
table.open;