这个是李维的解决办法。就是关于主明细更新的
2007-07-31 18:18
423 查看
//保存按钮 procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
aJoiner : Joiner;
aSeminar : DevCoSeminar;
begin
aJoiner := CreateJoiner(tbName.Text, tbEMail.Text);
aSeminar := GetSeminarFromName(ddlSeminars.SelectedItem.Text);
aJoiner.joins.Add(aSeminar);
UpdateDatabase;
end; //CreateJoiner 方法 function TWebForm1.CreateJoiner(const sName, sEMail: String): Joiner;
begin
Result := Joiner.Create(EcoSpace);
Result.Name := sName;
Result.EMail := sEMail;
end; //GetSeminarFromName 方法 他不是添加ID。而是用名称查找的办法 function TWebForm1.GetSeminarFromName(const sName: String): DevCoSeminar;
var
anElement : IElement;
begin
Result := nil;
for anElement in ehSeminars.Element.GetAsCollection do
begin
Result := anElement.AsObject as DevCoSeminar;
if (Result.Name = sName) then
break;
end;
end;
var
aJoiner : Joiner;
aSeminar : DevCoSeminar;
begin
aJoiner := CreateJoiner(tbName.Text, tbEMail.Text);
aSeminar := GetSeminarFromName(ddlSeminars.SelectedItem.Text);
aJoiner.joins.Add(aSeminar);
UpdateDatabase;
end; //CreateJoiner 方法 function TWebForm1.CreateJoiner(const sName, sEMail: String): Joiner;
begin
Result := Joiner.Create(EcoSpace);
Result.Name := sName;
Result.EMail := sEMail;
end; //GetSeminarFromName 方法 他不是添加ID。而是用名称查找的办法 function TWebForm1.GetSeminarFromName(const sName: String): DevCoSeminar;
var
anElement : IElement;
begin
Result := nil;
for anElement in ehSeminars.Element.GetAsCollection do
begin
Result := anElement.AsObject as DevCoSeminar;
if (Result.Name = sName) then
break;
end;
end;
相关文章推荐
- 关于 mcafee 8.7 更新失败的 解决办法
- 关于MAC下Android SDK manager 更新解决办法
- android关于The connection to adb is down, and a severe error has occured.这个问题的解决办法
- 关于水晶报表不能即时更新报表内容的一个奇怪的解决办法
- 关于htc m9w更新后手机无限重启的解决办法
- (重置adb.exe)android关于The connection to adb is down, and a severe error has occured.这个问题的解决办法
- 本地磁盘,不能如预期那样包含关于:“MSDN VS 6.0 Local”的文件。请更新位 问题解决办法
- 关于eclipse中启动tomcat,工程文件不能更新的解决办法
- 关于Android SDK Manager无法更新的解决办法
- 关于MAC下Android SDK manager 更新解决办法(无需翻墙)
- 关于android开发遇到的一些问题的解决办法---间断的更新
- 关于IE非安全更新带来flash和ActivX不能激活的解决办法(zt)
- 关于ADO.Net使用TableAdapter时产生:更新要求有效的deletecommand或update,insert,selectcommand的解决办法,以及“违反并发性”处理
- 关于“错误:找不到或无法加载主类”的错误的解决办法(环境变量确信自己已经设置好了的人可以参考一下这个)
- 关于NO 不掉 IP NAT 报这个错%Static entry in use, cannot remov ...解决办法
- 关于更新安装macos high sierra 失败,mac重启后无法找到启动项的解决办法
- 关于AndoridStudio更新到3.0后找不到svn的解决办法
- 关于CListCtrl控件更新Item的闪烁问题和一次插入大容量数据的显示问题解决办法
- android关于The connection to adb is down, and a severe error has occured.这个问题的解决办法
- 关于win10企业版1607累积更新(KB4013429)安装失败后,个人的解决办法