我有一个窗体，上面有一个按钮，如何让窗体隐藏，按钮还显示呢？

ydogg 2001-11-15 04:43:52

多谢

...全文

383 40 打赏收藏转发到动态举报

写回复

40 条回复

切换为时间正序

请发表友善的回复…

发表回复

ydogg 2001-11-30

打赏
举报

回复

兄弟们可满意？：）

ydogg 2001-11-30

打赏
举报

回复

嘿嘿~~各位不好意思~~上次结过一次，但是没有成功~~
有劳各位久等~~~~

还有觉得分不够的，请到灌水乐园找灰毛兔，灰毛兔再送300分~~ ：）

yangzhaoyu 2001-11-30

打赏
举报

回复

to uguess(uguess)
i think this road have no end

uguess 2001-11-30

打赏
举报

回复

老兄，你的分还在路上么？

sqstudio_zsp 2001-11-26

打赏
举报

回复

呵呵
这个帖子满好玩的
有趣

ydogg 2001-11-26

打赏
举报

回复

结帐

Amoon 2001-11-21

打赏
举报

回复

to foolishtiger(吴文智):呵呵，不是啊，是那个按钮自杀了！

foolishtiger 2001-11-21

打赏
举报

回复

To Amoon(阿木)　:那就是你把它父亲给干掉了,可毕竟它父亲还是存在过啊.

shijie819 2001-11-21

打赏
举报

回复

你可以再画一个窗口，与你的按纽外表一样，再在这个窗口上画一个按钮！～
^_^ok!

Amoon 2001-11-21

打赏
举报

回复

to foolishtiger(吴文智):Really？要是我在Command_Click中DestroyWindow Command.hwnd 呢？：）

Amoon 2001-11-21

打赏
举报

回复

to foolishtiger(吴文智):Really？要是我在Command_Click中Destroy Command.hwnd 呢？：）

ganzhiruogy 2001-11-21

打赏
举报

回复

学习学习！

ganzhiruogy 2001-11-21

打赏
举报

回复

学习学习

foolishtiger 2001-11-21

打赏
举报

回复

只是给它找了个干爹，不信你把这按钮关掉啊。在桌面上就不行了吧，还得找到它亲爹才管用。

Amoon 2001-11-21

打赏
举报

回复

to foolishtiger(吴文智):不是吧，我只是给CommandButton换了个老爸啊，呵呵。

foolishtiger 2001-11-21

打赏
举报

回复

大家看看阿木！！
Private Sub Command1_Click()
Me.Hide
SetParent Command1.hWnd, GetDesktopWindow
End Sub

.Hide就是“把儿子藏到地窖”啊,呵呵

yangzhaoyu 2001-11-21

打赏
举报

回复

;(

Amoon 2001-11-20

打赏
举报

回复

to yangzhaoyu(老妖): ：），人家没有问嘛。呵呵，没准人家知道呢。：）

yangzhaoyu 2001-11-20

打赏
举报

回复

Amoon(阿木)兄,你的帖子不错,可你忘了按钮的位置(^_^)
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Private Sub Command1_Click()
Dim frmPoint As POINTAPI
Dim cmdPoint As POINTAPI
Dim x1, y1
ClientToScreen Form1.hwnd, frmPoint
cmdPoint.x = Command1.Left
cmdPoint.y = Command1.Top
x1 = Screen.TwipsPerPixelX
y1 = Screen.TwipsPerPixelY

Me.Hide
SetParent Command1.hwnd, GetDesktopWindow
Command1.Move frmPoint.x * x1 + cmdPoint.x, frmPoint.y * y1 + cmdPoint.y

End Sub

Amoon 2001-11-19

打赏
举报

回复

hehe,我这招管用不？：）

加载更多回复（20）

目录（1）如何通过代码获得应用程序主窗口的指针? 5 （2）确定应用程序的路径 6 （3）如何在程序中获得其他程序的图标? 6 （4）获得各种目录信息 7 （5）如何自定义消息 8 （6）如何改变窗口的图标? 8 （7）如何改变窗口的缺省风格? 8 （8）如何将窗口居中显示? 9 （9）如何让窗口和 MDI窗口一启动就最大化和最小化? 10 （10）如何限制窗口的大小? 10 （11）如何使窗口不可见？ 10 （12）如何创建一个字回绕的CEditView 10 （13）如何使程序保持极小状态? 11 （14）移动窗口 11 （15）通用控件的显示窗口 12 （16）重置窗口的大小 12 （17）如何单击除了窗口标题栏以外的区域使窗口移动 12 （18）如何改变视窗的背景颜色 14 （19）如何改变窗口标题 15 （20）如何防止主框窗口在其说明中显示活动的文档名 17 （21）如何获取有关窗口正在处理的当前消息的信息 17 （22）如何在代码中获取工具条和状态条的指针 18 （23）如何使能和禁止工具条的工具提示 18 （24）如何创建一个不规则形状的窗口 19 （25）如何获取应用程序的实例句柄? 23 （26）如何编程结束应用程序? 23 （27）如何创建和使用无模式对话框 24 （28）如何防止主框窗口在其说明中显示活动的文档名 26 （29）如何在代码中获取工具条和状态条的指针 27 （30）怎样加载其他的应用程序? 27 （31）如何在代码中获取工具条和状态条的指针 28 （33）如何设置工具条标题 29 （34）如何使窗口始终在最前方? 30 （35）如何在对话框中显示一个位图 30 （36）如何改变对话或窗体视窗的背景颜色 30 （37）如何获取一个对话控件的指针 32 （38）如何禁止和使能控件 33 （39）如何改变控件的字体 33 （40）如何在OLE控件中使用OLE_COLOR数据类型 35 （41）在不使用通用文件打开对话的情况下如何显示一个文件列表 35 （42）为什么旋转按钮控件看起来倒转 36 （43）为什么旋转按钮控件不能自动地更新它下面的编辑控件 37 （44）如何用位图显示下压按钮 37 （45）如何一个创建三态下压按钮 38 （46）如何动态创建控件 38 （47）如何限制编辑框中的准许字符 38 （48）如何改变控件的颜色 40 （49）当向列表框中添加多个项时如何防止闪烁 43 （50）如何向编辑控件中添加文本 43 （51）如何访问预定义的GDI对象 44 （52）如何获取GDI对象的属性信息 45 （53）如何实现一个橡皮区矩形 46 （54）如何更新翻转背景颜色的文本 49 （55）如何创建一个具有特定点大小的字体 50 （56）如何计算一个串的大小 51 （57）如何显示旋转文本 52 （58）如何正确显示包含标签字符的串 54 （59）如何快速地格式化一个CString对象 55 （60）串太长时如何在其末尾显示一个省略号 55 （61）为什么即使调用EnableMenuItem菜单项后，菜单项还处于禁止状态 56 （62）如何给系统菜单添加一个菜单项 56 （63）如何确定顶层菜单所占据的菜单行数 58 （64）在用户环境中如何确定系统显示元素的颜色 59 （65）如何查询和设置系统参数 59 （66）如何确定当前屏幕分辨率 60 （67）如何使用一个预定义的Windows光标 60 （68）如何检索原先的Task Manager应用程序使用的任务列表 61 （70）在哪儿创建临文件 63 （71）我怎样才能建立一个等待光标? 64 （73）如何访问桌面窗口 65 （74）什么是COLORREF? 我该怎样用它? 66 （75） AppWizard所产生的STDAFX文件是干什么用的? 66 （76）我在我的程序中是了CDWordArray。我向它添加了约10,000个整数，这使得它变得非常非常慢。为什么会这么糟? 67 （77）我该如何改变MDI框架窗口的子窗口的大小以使在窗口以一定的大小打开? 67 （78）在我的程序的某些部分，我可以调用 MessageBox 函数来建立一个信息对话框，例如在视类中。 67 （79）我需要在我的程序中设置全局变量，以使文档中的所有类都能访问。我应该吧它放到哪儿? 68 （80）我听说MFC可以发现内存漏洞，我怎样使用该特性? 68 （81）我怎样才能在我的应用程序中循环浏览已经打开的文档? 68 （82）才能在我的应用程序中循环浏览已经打开的视? 68 （83）数PreCreateWindow是干什么用的? 69 （84）该怎样防止MFC在窗口标题栏上把文档名预置成应用程序名? 69 （85）我应该怎样防止MFC在窗口标题栏上添加文档名? 69 （86）我应该如何改变视窗口的大小? 69 （87）我有一无模式对话框。我怎样才能在窗口退出时删除CDialog对象? 69 （88）为什么把“delete this”放在PostNcDestroy中而不是OnNcDestroy? 69 （89） File菜单中的MRU列表是从哪儿来的？列表中的名字放在哪儿了？我怎样才能改变列表中项目的最大值？ 70 （90）我在菜单中添加了新的项。但是，当我选该项时，在状态栏上没有出现任何提示信息。为什么? 70 （91）我怎样才能在应用程序的缺省系统菜单中加上一些东西? 70 （92）我建立了一个对话框。但是当我显示该对话框时，第一个编辑框总是不能获得焦点，我必须单击它来使它获得焦点。我怎样才能使第一个编辑框在对话框打开时就获得焦点? 71 （93）我怎样才能使一个窗口具有“always on top”特性? 71 (94) 我要为我的form view添加文档模板。我先建立了对话框模板，然后使用ClassWizard建立了基于CFormView的新类，它也是从CDocument继承来的。我还建立了相应的资源并在InitInstance中添加了新的文档模板。但是，当我试图运行该程序时，出现了Assertion信息。为什么? 71 (95) 我在一对话框中有一列表框，我需要tabbed列表框中的项目。但是，当我处理含有tab字符(用AddString添加的)的列表项时，tab被显示成小黑块而没有展开。哪儿出错了? 72 (96) 我建立了一个应用程序，并使用了CRecordset类。但是，当我运行该程序时，它试图要访问数据库，并给出“Internal Application Error”对话框。我应该怎样做? 72 (97) 我用ClassWizard建立了一个类。但是，我把名字取错了，我想把它从项目中删除，应该如何做? 73 (98) 当我打开应用程序中的窗口时，我要传递该窗口的矩形尺寸。该矩形指定了窗口的外围大小，但是当我调用GetClientRect时，所得到的尺寸要比所希望的值要小(因为工具栏和窗口边框的缘故)。有其它方法来计算窗口的尺寸吗? 73 (99) 我在文档类中设置了一个整型变量。但是，当我试图把该变量写入Serialize函数中的archive文件中时，出现了类型错误。而文档中的其它变量没有问题。为什么? 73 (100) 如何控制菜单的大小? 74 (101) 改变LVIS_SELECTED的状态颜色? 75 (102) 如何只存储文档的某一部分? 76 (103) 保存工具条菜单有bug吗? 76 (104) Tip of the day的bug 76 (105) 如何可以让我的程序可以显示在其它的窗口上面? 77 (106) 如何控制窗口框架的最大最小尺寸? 79 (107) 如何改变窗口框架的颜色? 81 (108) 如何将应用程序窗口置于屏幕正中? 82 (1)当文档被修改时,如何在标题上加上标志'*'? 82 (2)VC6.0对VC5.0的兼容性? 83 (3)打印和打印机的问题? 83 (4)CRichEditCtrl滚动条的问题? 84 (5)从数据库中读大于32k的内容? 84 (6)如何获得CRichEditCtrl中字符的位置? 86 (7)如何限制mdi子框架最大化时的大小? 86 (8)如何切换视口而不破坏它们? 87 (9)改变列表控制时发生闪烁现象? 91 (10)处理列表控件可见项的问题? 91 (11)产生线程的问题? 91 (12)CFile使用了缓冲区吗? 94 (13)DAO的密码? 94 (15)视口的不活动性如何处理? 96 (16)如何使用COleClientItem的IDispatch接口? 97 (17)关于用户自定义的消息使用? 98 (18)在打开一个文档时退出? 99 (19)在CListCtrl控件中多选择项的删除? 99 (20)工作线程的登录状态? 99 (21)如何增加视图中ActiveX控件的事件处理函数? 101 (22)如何创建一个动态的Tree控件? 102 (23)SDI程序开始时不打开文档? 102 (24)List控件中整栏选择? 103 (25)如何重载MRU文件? 104 (26)CImageList控件中图象橙色被显示为黄色? 106 (27)无法正确改变应用程序的图标? 110 (28)工具条状态的问题? 110 (29)在SDI应用程序中使用Active控件? 112 (30)有RichEdit控件的对话框无法正常显示? 112 (31)DLL中的模板成员函数? 112 (32)CFormView中的上下文帮助? 114 (33)CArchive类的WriteObject函数问题? 115 (34)RegisterWindowMessage中的BroadcastSystemMessage如何处理? 115 (35)CListCtrl中选择变化时如何获得通知? 117 (36)如何向ATL-COM对象传送一个数组? 118 (37)如何选择CTreeCtrl中的节点文本进行编辑? 119 (38)如何改变默认的光标形状? 120 (39)如何用键盘滚动分割的视口? 121 (40)如何在线程中处理状态条? 123 (41)如何阻止WINDOWS关闭? 124 (42)如何使一个按钮Disable? 124 (43)怎样从MFC扩展动态链结库(DLL)中显示一个对话框？ 125 (44)想隐藏用户界面怎么办？ 127 (45)如何实现SDI与MDI的转换？ 128 (46) CDC中的竖排文本? 130 (47)如何激活变灰的弹出菜单? 131 (48)线程消息? 132 (49)TreeCtrl控制的显示速度太慢? 133 (50)关于工具条? 135 (51)关于线程消息? 136 (52)关于控件的焦点? 136 (53)如何捕获键盘按键? 138 (54)怎样实现3D效果？ 138 (55)怎样建立客户CSocket? 138 (56)Disable一个非模态对话框的客户区？ 140 (57)关于使用SetClassLong和SetCapture问题 140 (58)动画控件? 142 (59)错误声明的消息? 143 (59)怎样模拟鼠标动作? 144 (60)改变对话框标题字体? 145 (61)怎样知道CWinThread对象的状态？ 146 (62)如何调整控件对话框条的大小? 146 (63)如何顶端显示CStatic类文字? 147 (64)消息句柄出了什么事? 147 (65)树形控件为何闪烁? 148 (66)怎样才能关闭树形控件中的滚动条? 149 (67)如何建立一个带滚动条的窗口? 149 (68)如何实现对话框的拖放? 150 (69)TrackMouseEvent()怎么了 151 (70)奇怪的组合框控件 152 (71)关于使用MS SANS SERIF字体 152 (72)为什么DLL在字符串表中找不到字符串 157 (73)关于复选框的文本颜色 158 (74)系列化与版本的问题 159 (75)在一个控件内检测并使用ON_COMMAND消息 162 (76)为何MDI程序中有子窗口打开时主应用程序不能关. 163 (77)滚动视中LPtoDP失败 165 (78)ODBC许可问题 166 (79)怪异的字体 167 (80)自画列表框样例 170 (81)CWnd::GetMenu()的问题 173 (82)用MFC制作弹出窗口 174 (83)怎样取消一个弹出式菜单 175

运行程序后，打开程序主界面，如图1.4所示。如果用户选择“我想试用该软件”单选按钮，并单击“继续”按钮时，软件进入试用状态，如果用户选择“我有一个序列号，我想使用该软件” 单选按钮，并单击“继续”按钮时，软件进入软件注册窗体。打开注册机窗口，如图1.6所示。输入用户名，然后单击“生成注册码”按钮，即可生成注册码

FastReport问题集 Q: 我怎样添加我的自定义函数? A: 使用 TfrReport.OnUserFunction 事件. 这里有一个简单的例子: procedure TForm1.frReport1UserFunction(const Name: String; p1, p2, p3: Variant; var val: Variant); begin if AnsiCompareText(‘SUMTOSTR‘, Name) = 0 then val := My_Convertion_Routine(frParser.Calc(p1)); end; 然后，你就可以在报表（任何表达式或脚本）的任何地方使用 SumToStr 函数了。 Q: 但是它仅仅能工作在一个TfrReport组件中。可我想在任何地方（在所有的TfrReport组件中）使用的我的自定义函数？ A: 使 OnUserFunction event 句柄作为所有组件的公用句柄。如果你不能做到这一点，你需要创建函数库： type TMyFunctionLibrary = class(TfrFunctionLibrary) public constructor Create; override; procedure DoFunction(Fno: Integer; p1, p2, p3: Variant; var val: Variant); override; end; constructor TMyFunctionLibrary.Create; begin inherited Create; with List do begin Add(‘DATETOSTR‘); Add(‘SUMTOSTR‘); end; end; procedure TMyFunctionLibrary.DoFunction(Fno: Integer; p1, p2, p3: Variant; var val: Variant); begin val := 0; case Fno of 0: val := My_DateConvertion_Routine(frParser.Calc(p1)); 1: val := My_SumConvertion_Routine(frParser.Calc(p1)); end; end; 要注册函数库，调用 frRegisterFunctionLibrary(TMyFunctionLibrary); 要卸载函数库，调用 frUnRegisterFunctionLibrary(TMyFunctionLibrary); Q: 我怎样将我的函数添加到函数列表中 (用表达式生成器)? A: 使用 frAddFunctionDesc 过程 (在FR_Class 单元中): frAddFunctionDesc(FuncLib, ‘SUMTOSTR‘, ‘My functions‘, ‘SUMTOSTR()/Converts number to its verbal presentation.‘); 注意: "/" 符号是必须的! 它从它的描述中分隔函数语法。 FuncLib 被声明为你自己的函数库 (如果你不使用函数库可以将其设置为nil). 当函数库未注册时，所有它的函数将自动从函数列表中删除。 ---------------- 使用变量 ------------------------------------- Q: 我怎样编程实现填充变量列表（在数据词典中）? A: 数据词典中的所有变量及分类都被存储在 TfrReport.Dictionary.Variables 中. with frReport1.Dictionary do begin // 创建分类(名称用空白) Variables[‘ New category‘] := ‘‘; // 创建变量 Variables[‘New Variable‘] := ‘CustomerData.Customers."CustNo"‘; Variables[‘Another Variable‘] := ‘Page#‘; end; Q: 我定义了字符串变量: with frReport1.Dictionary do Variables[‘Month‘] := ‘March‘; 但是当我运行报表是，出现了错误，为什么? A: 因为 FastReport 假定数据词典中的字符串变量值是一个表达式，它需要分析、计算它。可以使用其它的方法: with frReport1.Dictionary do Variables[‘Month‘] := ‘‘‘‘ + ‘March‘ + ‘‘‘‘; 或者, 使用 frVariables 来传输固定数据到报表。 Q: 我不想在数据词典中显示某些数据集？ A: 使用 TfrReport.Dictionary.DisabledDatasets: with frReport1.Dictionary do begin // 关闭该数据集 DisabledDatasets.Add(‘CustomerData.Bio‘); // 或者, 关闭整个数据模块/窗体 DisabledDatasets.Add(‘CustomerData*‘); end; Q: 我怎样将数据传送到报表? A: 有几个方法可以实现它. 第一是使用全局对象 frVariables (在 FR_Class 单元中被定义): frVariables[‘My variable‘] := 10; 这段代码创建了一个名称为“My variable”，值为 10 的变量。这是最好的传输固定数据的报表的方法。第二种方法是使用 TfrReport.OnGetValue 事件. 这可以使用这个方法来传送动态数据、记录等。 procedure TForm1.frReport1GetValue(ParName: String; var ParValue: Variant); begin if ParName = ‘MyField‘ then ParValue := Table1MyField.Value; end; 最后, 第三种方法是通过编程在数据词典中定义变量（可以参考以前的问题）: with frReport1.Dictionary do begin Variables[‘MyVariable‘] := ‘CustomerData.Customers."CustNo"‘; Variables[‘Another Variable‘] := ‘10‘; end; Q: 我能在报表和程序间传送数据吗? A: 使用 frVariables 对象. 如果你在报表的任何对象的脚本中写入以下代码： MyVariable := 10 那么，在你的程序中，你可以使用以下代码来获取 MyVariable 的值: v := frVariables[‘MyVariable‘]; ---------------- 脚本 (FastReport Pascal) --------------------------------- Q: Band 中是否可以使用脚本? A: 当然. 选择 band ，然后按 Ctrl+Enter 或在对象浏览器中选择 "OnBeforePrint" 属性。 Q: 报表页中是否可以使用脚本? A: 当然. 选择页 (在空白处单击) ，然后在对象浏览器中选择 "OnBeforePrint" 属性。如果该页是一个对话框窗体，那么这个属性就是 "OnActivate". Q: 我有两个对象: Memo1 和 Memo2. 我能否在 Memo1 的脚本中调用 Memo2 的属性和方法？ A: 当然，例如，你可以这样做：对象名.属性名. Q: 在脚本中，我可以使用对象的哪些属性? A: 几乎所有你能在对象浏览器中看到的属性。例如，可以使用 Font.Name, Font.Size等来存取字体属性。 ---------------- 其它问题 -------------------------------------------- Q: 怎样改变多页报表中某一页的顺序? A: 拖动页标签到目的位置。 Q: 我想查看所有的字段及变量，我想在报表中使用列表来实现它？ A: 设置 TfrReport.MixVariablesAndDBFields := True.现在，所有的数据字段及变量可在“插入数据字段”对话框中可存取了。 Q: 我不想显示导入选项对话框？ A: 在导入组件（比如，TfrTextExport)中设置所有必需的选项，然后通过设置ShowDialog属性为False来关闭此对话框。 Q: 为什么 TotalPages 变量不起作用? 它总是返回 0. A: 在你的报表中设置 Two-pass 选项. 要设置它，你需要在报表设计器的“文件”菜单中，打开“报表选项”对话框。 Q: 我用BLOB字段来存储我的报表。当我运行报表设计器时，它显示我的报表未命名？ A: 在运行报表设计器前，这样做: frReport1.FileName := ‘Name of my report‘; Q: 我想在重新定义报表设计器中的“打开”及“保存”按钮的功能？ A: 查看 TfrDesigner 组件. 它有几个必需的事件: OnLoadReport 和 OnSaveReport. 这里有一小段代码例子: procedure TForm1.frDesigner1LoadReport(Report: TfrReport; var ReportName: String; var Opened: Boolean); begin with MyOpenDialog do begin Opened := ShowModal = mrOk; if Opened then begin Report.LoadFromBlobField(…); ReportName := …; end; end; end; procedure TForm1.frDesigner1SaveReport(Report: TfrReport; var ReportName: String; SaveAs: Boolean; var Saved: Boolean); begin if SaveAs then with MySaveDialog do begin Saved := ShowModal = mrOk; if Saved then begin Report.SaveToBlobField(…); ReportName := …; end; end else Report.SaveToBlobField(…); end; Q: 在 QR 中, 我可以写这样的代码： QRLabel1.Caption := ‘Some text‘. 我可以用FR这样做吗？ A: FR 对象并不是一个组件 (这并不像 QR, RB). 但使用 TfrReport.FindObject 方法可以通过对象名称找到该对象。 var t: TfrMemoView; begin t := TfrMemoView(frReport1.FindObject(‘Memo1‘)); if t <> nil then t.Memo.Text := ‘FastReport‘; end; Q: 我想在用户预览（TfrPreview组件）中自定义热键？ A: 这个组件有个窗口: Tform 属性. 将自定义句柄指定到 Window.OnKeyDown 属性. Q: Fast Report 2.4 不能装载 FreeReport 2.21 文件？ A: 这仅需要使用16进制数改变报表文件的第一字节，然后在源代码中修改下面的部分。在这些修改之后，装载报表并保存它. 最后，返回到源代码处. FR_Class: function ReadString(Stream: Tstream): String; begin { if frVersion >= 23 then} Result := frReadString(Stream) {else Result := frReadString22(Stream);} end; procedure ReadMemo(Stream: Tstream; Memo: Tstrings); begin { if frVersion >= 23 then} frReadMemo(Stream, Memo){ else frReadMemo22(Stream, Memo);} end; FR_Utils: procedure frReadMemo(Stream: Tstream; l: Tstrings); var s: String; b: Byte; n: Word; begin l.Clear; l.Text := frReadString(Stream); exit; Stream.Read(n, 2); if n > 0 then repeat Stream.Read(n, 2); SetLength(s, n); Stream.Read(s[1], n); l.Add(s); Stream.Read(b, 1); until b = 0 else Stream.Read(b, 1); end; function frReadString(Stream: Tstream): String; var s: String; n: Integer; b: Byte; begin Stream.Read(n, 4); SetLength(s, n); Stream.Read(s[1], n); if (n > 0) and (s[n] = #$0A) then SetLength(s, n - 2); // Stream.Read(b, 1); Result := s; end; Q: 怎样不在打印预览中打印报表？ A: 这里有一段代码: frReport1.PrepareReport; frReport1.PrintPreparedReport(‘‘, 1, True, frAll); 或 frReport1.PrintPreparedReportDlg; Q: 我想在报表中旋转图片。问题是这张图片是由我的应用程序生成的。是否有方法可以在打印前将这幅图片装载到报表中？ A: 使用 TfrReport.OnBeforePrint 事件: if View.Name = ‘Picture1‘ then TfrPictureView(View).Picture.LoadFromFile(…) 或 .Assign 或 .你所想要做的任何事情

PL/SQL Developer是一个集成开发环境，专门面向Oracle数据库存储程序单元的开发。如今，有越来越多的商业逻辑和应用逻辑转向了Oracle Server，因此，PL/SQL编程也成了整个开发过程的一个重要组成部分。PL/SQL Developer侧重于易用性、代码品质和生产力，充分发挥Oracle应用程序开发过程中的主要优势。目录简介背景主要特性编程基础知识程序结构控制结构变量声明与赋值 SQL基本命令过程与函数游标显示游标隐式游标简介背景主要特性编程基础知识程序结构控制结构变量声明与赋值 SQL基本命令过程与函数游标显示游标隐式游标展开编辑本段简介 PLSQL 　　PL/SQL(Procedural Language/SQL)是一种过程化语言，属于第三代语言，它与C、C++、Java等语言一样关注于处理细节，可以用来实现比较复杂的业务逻辑。它允许SQL的数据操纵语言和查询语句包含在块结构(block_structured)和代码过程语言中，使PL/SQL成为一个功能强大的事务处理语言。在甲骨文数据库管理方面，PL/SQL是对结构化查询语言（SQL）的过程语言扩展。PL/SQL的目的是联合数据库语言和过程语言。PL/SQL的基本单位叫做一个区段，由三个部分组成：一个申明部分，一个可运行部分，和排除－构建部分。　　因为PL/SQL允许混合SQL申明和过程结构，因此可以在将申明发送到甲骨文系统去执行之前使用PL/SQL区段和副程序来组合SQL申明，没有PL/SQL，甲骨文需要就每次处理SQL申明，在网络环境中，这将影响交通流量，而且增加响应时间。PL/SQL区段只被编译一次并且以可运行的形式储存，以降低响应时间。编辑本段背景　　结构化查询语言(Structured Query Language，简称SQL)是用来访问关系型数据库一种通用语言，属于第四代语言（4GL），其执行特点是非过程化，即不用指明执行的具体方法和途径，而是简单地调用相应语句来直接取得结果即可。显然，这种不关注任何实现细节的语言对于开发者来说有着极大的便利。然而，有些复杂的业务流程要求相应的程序来描述，这种情况下4GL就有些无能为力了。PL/SQL的出现正是为了解决这一问题，PL/SQL是一种过程化语言，属于第三代语言，它与C、 C++、Java等语言一样关注于处理细节，可以用来实现比较复杂的业务逻辑。本文主要介绍PL/SQL的编程基础，以使入门者对PL/SQL语言有一个总体认识和基本把握。编辑本段主要特性　　PL/SQL编辑器，功能强大——该编辑器具有语法加强、SQL和PL/SQL帮助、对象描述、代码助手、编译器提示、PL/SQL完善、代码内容、代码分级、浏览器按钮、超链接导航、宏库等许多智能特性，能够满足要求性最高的用户需求。当您需要某个信息时，它将自动出现，至多单击即可将信息调出。　　集成调试器（要求Oracle 7.3.4或更高）——该调试器提供您所需要的全部特性：跳入（Step In）、跳过（Step Over）、跳出（Step Out）、异常时停止运行、断点、观察和设置变量、观察全部堆栈等。基本能够调试任何程序单元（包括触发器和Oracle8 对象类型），无需作出任何修改。　　PL/SQL完善器——该完善器允许您通过用户定义的规则对SQL和PL/SQL代码进行规范化处理。在编译、保存、打开一个文件时，代码将自动被规范化。该特性提高了您编码的生产力，改善了PL/SQL代码的可读性，促进了大规模工作团队的协作。　　SQL 窗口——该窗口允许您输入任何SQL语句，并以栅格形式对结果进行观察和编辑，支持按范例查询模式，以便在某个结果集合中查找特定记录。另外，还含有历史缓存，您可以轻松调用先前执行过的SQL语句。该SQL编辑器提供了同PL/SQL编辑器相同的强大特性。　　命令窗口——使用PL/SQL Developer 的命令窗口能够开发并运行SQL脚本。该窗口具有同SQL*Plus相同的感观，另外还增加了一个内置的带语法加强特性的脚本编辑器。这样，您就可以开发自己的脚本，无需编辑脚本/保存脚本/转换为SQL*Plus/运行脚本过程，也不用离开PL/SQL Developer集成开发环境。　　报告——PL/SQL Developer提供内置的报告功能，您可以根据程序数据或Oracle字典运行报告。PL/SQL Developer本身提供了大量标准报告，而且您还可以方便的创建自定义报告。自定义报告将被保存在报告文件中，进而包含在报告菜单内。这样，运行您自己经常使用的自定义报告就非常方便。　　您可以使用Query Reporter免费软件工具来运行您的报告，不需要PL/SQL Developer，直接从命令行运行即可。　　工程——PL/SQL Developer内置的工程概念可以用来组织您的工作。一个工程包括源文件集合、数据库对象、notes和选项。PL/SQL Developer允许您在某些特定的条目集合范围之内进行工作，而不是在完全的数据库或架构之内。这样，如果需要编译所有工程条目或者将工程从某个位置或数据库移动到其他位置时，所需工程条目的查找就变得比较简单，　　To-Do条目——您可以在任何SQL或PL/SQL源文件中使用To-Do条目快速记录该文件中那些需要进行的事项。以后能够从To-Do列表中访问这些信息，访问操作可以在对象层或工程层进行。　　对象浏览器——可配置的树形浏览能够显示同PL/SQL开发相关的全部信息，使用该浏览器可以获取对象描述、浏览对象定义、创建测试脚本以便调试、使能或禁止触发器或约束条件、重新编译不合法对象、查询或编辑表格、浏览数据、在对象源中进行文本查找、拖放对象名到编辑器等。　　此外，该对象浏览器还可以显示对象之间的依存关系，您可以递归的扩展这些依存对象（如包参考检查、浏览参考表格、图表类型等）。　　性能优化——使用PL/SQL Profiler，可以浏览每一执行的PL/SQL代码行的时序信息（Oracle8i或更高），从而优化您SQL和PL/SQL的代码性能。　　更进一步，您还可以自动获取所执行的SQL语句和PL/SQL程序统计信息。该统计信息包括CPU使用情况、块I/O、记录I/O、表格扫描、分类等。　　HTML指南——Oracle目前支持HTML格式的在线指南。您可以将其集成到PL/SQL Developer工作环境中，以便在编辑、编译出错或运行时出错时提供内容敏感帮助。　　非PL/SQL对象——不使用任何SQL，您就可以对表格、序列、符号、库、目录、工作、队列、用户和角色进行浏览、创建和修改行为。PL/SQL Developer提供了一个简单易用的窗体，只要将信息输入其中，PL/SQL Developer就将生成相应的SQL，从而创建或转换对象。　　模板列表——PL/SQL Developer的模板列表可用作一个实时的帮助组件，协助您强制实现标准化。只要点击相应的模板，您就可以向编辑器中插入标准的SQL或PL/SQL代码，或者从草稿出发来创建一个新程序。　　查询构建器——图形化查询构建器简化了新选择语句的创建和已有语句的修改过程。只要拖放表格和视窗，为区域列表选择专栏，基于外部键约束定义联合表格即可。　　比较用户对象——对表格定义、视图、程序单元等作出修改后，将这些修改传递给其他数据库用户或检查修改前后的区别将是非常有用的。这也许是一个其他的开发环境，如测试环境或制作环境等。而比较用户对象功能则允许您对所选对象进行比较，将不同点可视化，并运行或保存应用必要变动的SQL脚本。　　导出用户对象——该工具可以导出用户所选对象的DDL（数据定义语言）语句。您可以方便的为其他用户重新创建对象，也可以保存文件作为备份。　　工具——PL/SQL Developer为简化日常开发专门提供了几种工具。使用这些工具，您可以重新编译全部不合法对象、查找数据库源中文本、导入或导出表格、生成测试数据、导出文本文件、监控dbms_alert和dbms_pipe事件、浏览会话信息等。　　授权——大多数开发环境中，您不希望所有数据库都具备PL/SQL Developer的全部功能性。例如，数据库开发中您可以允许PL/SQL Developer的全部功能性，而数据库测试中您可以仅允许数据查询/编辑和对象浏览功能，而数据库制作中您甚至根本不希望PL/SQL Developer访问。利用PL/SQL Developer授权功能，您可以方便的定义特定用户或规则所允许使用的功能。　　插件扩展——可以通过插件对PL/SQL Developer功能进行扩展。Add-ons页面提供插件可以免费下载。Allround Automations或其他用户均可提供插件（如版本控制插件或plsqldoc插件）。如果您具备创建DLL的编程语言，您还可以自己编写插件。　　多线程IDE——PL/SQL Developer是一个多线程IDE。这样，当SQL查询、PL/SQL程序、调试会话等正在运行时，您依然可以继续工作。而且，该多线程IDE还意味着出现编程错误时不会中止：您在任何时间都可以中断执行或保存您的工作。　　易于安装——不同于SQL*Net，无需中间件，也无需数据库对象安装。只需点击安装程序按钮，您就可以开始安装从而使用软件了。编辑本段编程基础知识程序结构　　PL/SQL程序都是以块（block）为基本单位，整个PL/SQL块分三部分：声明部分（用declare开头）、执行部分（以 begin开头）和异常处理部分（以exception开头）。其中执行部分是必须的，其他两个部分可选。无论PL/SQL程序段的代码量有多大，其基本结构就是由这三部分组成。如下所示为一段完整的PL/SQL块：　　/*声明部分，以declare开头*/ 　　declare v_id integer; 　　v_name varchar(20); 　　cursor c_emp is select * from employee where emp_id=3; 　　/*执行部分，以begin开头*/ 　　begin open c_emp;　//打开游标　　　loop 　　fetch c_emp into v_id,v_name;　//从游标取数据　　exit when c_emp%notfound ;　　　end loop ; 　　close c_emp;　//关闭游标　　dbms_output.PUT_LINE(v_name); 　　/*异常处理部分，以exception开始*/ 　　exception 　　when no_data_found then 　　dbms_output.PUT_LINE('没有数据'); 　　end ; 控制结构　　PL/SQL程序段中有三种程序结构：条件结构、循环结构和顺序结构。　　1) 条件结构　　与其它语言完全类似，语法结构如下：　　if condition then 　　statement1 　　else 　　statement2 　　end if ; 2) 循环结构　　这一结构与其他语言不太一样，在PL/SQL程序中有三种循环结构：　　a. loop … end loop; 　　b. while condition loop … end loop; 　　c. for variable in low_bound . . upper_bound loop … end loop; 　　其中的“…”代表循环体。　　3) 顺序结构　　实际就是goto的运用，不过从程序控制的角度来看，尽量少用goto可以使得程序结构更加的清晰。变量声明与赋值　　PL/SQL主要用于数据库编程，所以其所有的数据类型跟Oracle数据库里的字段类型是一一对应的，大体分为数字型、布尔型、字符型和日期型。这里简单介绍两种常用数据类型：number、varchar2。　　number 　　用来存储整数和浮点数。范围为１e130～10e125，其使用语法为：　　number[(precision, scale)] 　　其中(precision, scale)是可选的，precision表示所有数字的个数，scale表示小数点右边数字的个数。　　varchar2 　　用来存储变长的字符串，其使用语法为：　　varchar2[(size)] 　　其中size为可选，表示该字符串所能存储的最大长度。　　在PL/SQL中声明变量与其他语言不太一样，它采用从右往左的方式声明，比如声明一个number类型的变量v_id，那其形式应为：　　v_id number; 　　如果给上面的v_id变量赋值，不能用“=”，应该用“:=”,即形式为：　　v_id :=5; SQL基本命令　　PL/SQL使用的数据库操作语言还是基于SQL的，所以熟悉SQL是进行PL/SQL编程的基础。SQL语言的分类情况大致如下：　　1) 数据定义语言(DDL)：Create，Drop，Grant，Revoke，… 　　2) 数据操纵语言(DML)：Update，Insert，Delete，… 　　3) 数据控制语言(DCL)：Commit，Rollback，Savapoint，… 　　4) 其他：Alter System，Connect，Allocate， … 　　具体的语法结构可以参阅其他关于SQL语言的资料，这里不再赘述。编辑本段过程与函数　　PL/SQL中的过程和函数与其他语言的过程和函数一样，都是为了执行一定的任务而组合在一起的语句。过程无返回值，函数有返回值。其语法结构为：　　过程：Create or replace procedure procname(参数列表) as PL/SQL语句块　　函数：Create or replace function funcname(参数列表) return 返回值 as PL/SQL语句块　　为便于理解，举例如下：　　问题：假设有一张表t1，有f1和f2两个字段，f1为number类型，f2为varchar2类型，要往t1里写两条记录，内容自定。　　Create or replace procedure test_procedure as 　　V_f11 number :=1; /*声明变量并赋初值*/ 　　V_f12 number :=2; 　　V_f21 varchar2(20) :='first'; 　　V_f22 varchar2(20) :='second'; 　　Begin 　　Insert into t1 values (V_f11, V_f21); 　　Insert into t1 values (V_f12, V_f22); 　　End test_procedure; /*test_procedure可以省略*/ 　　至此，test_procedure存储过程已经完成，经过编译后就可以在其他PL/SQL块或者过程中调用了。函数与过程具有很大的相似性，此处不再详述。编辑本段游标　　游标的定义为：用游标来指代一个DML SQL操作返回的结果集。即当一个对数据库的查询操作返回一组结果集时，用游标来标注这组结果集，以后通过对游标的操作来获取结果集中的数据信息。这里特别提出游标的概念，是因为它在PL/SQL的编程中非常的重要。定义游标的语法结构如下：　　cursor cursor_name is SQL语句; 　　在本文第一段代码中有一句话如下：　　cursor c_emp is select * from employee where emp_id=3; 　　其含义是定义一个游标c_emp，代表employee表中所有emp_id字段为３的结果集。当需要操作该结果集时，必须完成三步：打开游标、使用fetch语句将游标里的数据取出、关闭游标。　　游标用来处理从数据库中检索的多行记录（使用SELECT语句）。利用游标，程序可以逐个地处理和遍历一次检索返回的整个记录集。　　为了处理SQL语句，Oracle将在内存中分配一个区域，这就是上下文区。这个区包含了已经处理完的行数、指向被分析语句的指针，整个区是查询语句返回的数据行集。游标就是指向上下文区句柄或指针。显示游标　　显示游标被用于处理返回多行数据的SELECT 语句，游标名通过CURSOR….IS 语句显示地赋给SELECT 语句。　　在PL/SQL中处理显示游标所必需的四个步骤：　　1）声明游标；CURSOR cursor_name IS select_statement 　　2）为查询打开游标；OPEN cursor_name 　　3）取得结果放入PL/SQL变量中；　　FETCH cursor_name INTO list_of_variables; 　　FETCH cursor_name INTO PL/SQL_record; 　　4）关闭游标。CLOSE cursor_name 　　注意：在声明游标时，select_statement不能包含INTO子句。当使用显示游标时，INTO子句是FETCH语句的一部分。隐式游标　　所有的隐式游标都被假设为只返回一条记录。　　使用隐式游标时，用户无需进行声明、打开及关闭。PL/SQL隐含地打开、处理，然后关掉游标。　　例如：　　……. 　　SELECT studentNo,studentName 　　INTO curStudentNo,curStudentName 　　FROM StudentRecord 　　WHERE name=’gg’; 　　上述游标自动打开，并把相关值赋给对应变量，然后关闭。执行完后，PL/SQL变量curStudentNo,curStudentName中已经有了值。开放分类： oracle，plsql 我来完善 “plsql”相关词条： sql系统函数 sql 系统函数百度百科中的词条内容仅供参考，如果您需要解决具体问题（尤其在法律、医学等领域），建议您咨询相关领域专业人士。 327本词条对我有帮助添加到搜藏分享到: 更多合作编辑者百科ROBOT ，潘昊，江旭梦然，SONGYL525 ，ThinkIBM 更多如果您认为本词条还需进一步完善，百科欢迎您也来参与编辑词条在开始编辑前，您还可以先学习如何编辑词条如想投诉，请到百度百科投诉中心；如想提出意见、建议，请到百度百科吧。

在同一个项目中我有两个窗体，如何指定某一个窗体为我的程序运行时的第一个窗口？static void Main() { Application.Run(new FormName()); } FormName就是你想启动的第一个窗体。实现窗体之间的跳转：程序首先运行的是“登录”窗体，如果是新用户，就需要注册，再登录窗体，单击注册按钮，打开学生注册窗体，怎么实现这个功能呢？就需要实现窗体之间的跳转。显示...

7,763

社区成员

197,605

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章