delphi中怎么把tfrom1的变量赋值给tfrom2的变量

Posted 2023-05-01

当tform1关闭tform2显示的时候 要把这个变量的值赋值给tform2的edit1，怎么定义全局变量啊，tform2.text 怎么弄 而且，比如tform的一个变量得到赋值后比如tform1的已经有一个变量得到值

参考技术A

以下三个步骤可以完成：
1、定义的全局变量：在Tfrom1  public下方位置，定义全局变量str1，类型为string。如图
2、引用Tfrom1：在implementation下引用Tfrom2。如图
3、定义Tfrom2的变量（以局部变量为例）及赋值：在Tfrom2，定义局部变量STR2，类型与str1保持一致（string）。见图

怎么把数据库中某个字段的值赋值给一个变量

ASP中的VBSCRIP怎么把数据库中某个字段的值赋值给一个变量，请帮我改改这个代码，错在哪，很急用，初学者dim num,rnum,roomname1
num= Request.Form("num")
roomname1=Request.Form("roomname")
rnum="select rnum from dbo.room where roomname=roomname1"
If num>rnum Then
Response.Write("<script>alert('预定的房间数不够');location='javascript:history.go(-1)'</script>")
response.end
end if
帮帮忙吧，真的很急啊

参考技术A rnum="select rnum from dbo.room where roomname=roomname1"
这一句只是一个查询语句，下面还得有类似：
rs.open rnum,conn,1,1
的数据，然后再改为上：
If num>rs.recordcount Then