说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Delphi中简单实现多重查询

HTML文档下载 WORD文档下载 PDF文档下载
在Delphi中简单实现多重查询

在数据库管理系统中,查询是一项必不可少的功能。查询功能是直接体现系统功能的一项重要指标。查询的方式主要有以下几种:1固定字段的单一查询;2可选择字段的单一查询;3限制若干个字段的多重查询;4可任意选择字段的多重查询。前两种也称为单条件查询,后两种称为多重(或多条件)查询。在实际中,系统(实为程序员)提供给用户的查询方式以单条件查询为多,即使提供了多条件方式,通常也只有两或三个条件,因为编写多重查询是一项非常棘手且繁琐的事情。仅为此,程序员吃尽了苦头。实际上,利用表格Grid功能,就能轻松地实现多重查询。本人以Delphi为例,介绍具体的实现方法,但这种思想,也同样适合于其它的编程语言(如Visual Foxpro)。

另外,为使程序方便“移植”, 本人把各功能模块化,使其更具有通用性。

程序主要按如下三个功能来实现:

①设置DBGrid

②生成查询条件(语句)

③执行查询

具体步骤如下:

⑴新建一工程文件,取名为PDBGrid.dpr;

⑵给单元文件取名为UDBGrid.pas,在其相应的表单(取名为frmDBGrid)中添加如下控件并编写相应的代码:因程序代码较长,请直接按此下载。

值得说明的是,⑴为从一定程序上简化程序,逻辑关系只提供了AND和OR两种,但为允许用户修改SQL语句,如:在多条件之间增加括号来改变运算顺序等,使得查询功能更加强大,因此增加了Memo控件;⑵在实际系统中,为方便用户的操作,可增加几个Button(按钮),功能分别是对Table2的“增加”、“删除”,这样用户界面会更友好些。

利用这种方法来设置查询,条件个数是无限制的,且在屏幕上不会占据太大的空间,程序员实现起来要简单得多了。

软件环境:中文Win98/中文Delphi5.0。

任何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址-Delphi资料 如何在程序中动态取得Win98的网络邻居中的工作组及计算机名-Delphi资料 动态设置DNS地址-Delphi资料 读取IE收藏夹内网址的信息-Delphi资料 改网络计算机名-Delphi资料 关于WEB应用程序的打印组件开发初探-Delphi资料 基于TELNET协议的DELPHI程序与LINUX主机通信的实现 监视POP3信箱-Delphi资料 开发WEBMAIL程序-Delphi资料 开发响应用户输入的数据库web Server-Delphi资料 利用Delphi编程发送E-mail 利用Delphi编写Socket通信程序 利用Delphi开发网络数据库应用 在许多系统中,出于安全或其它原因,常常要求随时对键盘进行监控,一个专-Delphi资料 链接的视觉效果-Delphi资料 如何从域名名得到IP?-Delphi资料 如何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址-Delphi资料 如何获取CapsLock 、 Insert 等键的状态?-Delphi资料 如何在程序中动态取得Win95/98的网络邻居中的工作组及计算机名?-Delphi资料 提高客户机/服务器应用系统性能的一些方法-Delphi资料 网络和通讯编程-Delphi资料 WebBrowser流程讲解及如何判断下载网页成功-Delphi资料 用Delphi 3.0实现运行于浏览器内的客户 用Delphi编写ASP的ActiveX 用Delphi编写CGI程序(五) 用Delphi编写CGI程序返回图象 用Delphi程序获取拨号连接的动态IP地址 用Delphi创建Internet快捷方式 用Delphi实现NetBIOS广播收发 用Delphi实现网络驱动器的映射和断开 用Delphi实现远程屏幕抓取 请问有没有办法得到[系统托盘]上其它程序的所显示的Icon?? 已知,十六进制(34.6)16=(28.75)10(十进制) 高手推荐几个Palm开发的网站?最好有源代码! 请教一个问题 触发器(加密)内容可以查看吗 怪,文件路径绝对正确,EXE文件不能下载,其它格式正常。 在编写的用户控件中公开所引用控件的事件怎么实现啊 这是我的usb口的问题吗? 考程序员前想先考全国三级,请问三级种哪个科目考C编程?何时报名? 调用DLL时候出现Bad Dll calling convention错误,为什么?代码如下 如何建立一个小数据库? 我想问下,网络技术到底是指什么??? 为什么会出现这个问题呢??急救??? 在不同操作系统出现不能正常运行的问题,和默认字体语系乱码问题 C# 静态类成员 新手请求各位前辈帮助 如何查询我连接到哪个数据库? 哭着请求帮助。。。。。页面显示问题!!在线等着 网络技术到底是指什么???? 我想在<<三国九>>里输入正确的中文,有法子么? 能帮我改改么? 紧急求助,请高手支招 请问在JTABLE中如何将某几行设置成可以被选择的,其他几行设置成不能被选中的? 请问怎样修改SDI框架的标题及去掉最大化按钮??? 在自定义的用户控件上公开引用windows控件的事件怎么做啊!!谢谢 2003中为什么IDE设备只能用PIO模式? 在FAQ里见到这样一句,不明白什么意思 怎么我用vc 的 odbc 做数据库时,工程名为try ,在工程工作区的“class view”面板里没有tryview类的? 不能使用xmldocfile() 文档对象的问题 关于键盘纪录,高手 如何使用IPAddress控件? 初学者问:怎么用UpdateAllViews()? 无法创建asp.net应用程序 大家帮帮我吧,我都快崩溃了 中文乱码的问题 !!谁在VMWare 3.2里装过RedHat 9.0和RedFlag 3.0,请看看这些问题(100分)!! 如何使在输入框选中的文字在提交后仍然显示在输入框中? 无法创建asp.net应用程序 高手在上,请问怎么样在win2k中实现关闭程序和绘图[内详] 初学者问:如何在listview中查找其中一行? 怎样在调试窗口中看到变量值? 郁闷中,狂散分。。。。。。 DCOM怎么使用? 想做一个地区门户一般要包含那些栏目?? 线程 怎么能让DELPHI编出来的程序最小化以后进入到系统托盘? C++问题,请进来帮忙! help me ~!!! 以下行为究竟是关闭端口还是使用端口 callzjy(【剑客西门吹雪原来是仁者帮帮主...】) 怎么翻了这么多老帖子出来了??? 食堂有一堆煤烧去一部分后还剩三分之1,还剩9分之2吨.这堆煤原有多少吨? 孩子身高1.65,做个书桌多高合适?一直用的写字台,所以喜欢大桌子,最好报个长宽高. 第三题.求道理.物理高二的. 食堂有一堆煤,烧了几天后,余下的5/8,和其余5 /2吨的.这堆煤多少吨? 为什么现在萤火虫越来越少?小时候夏天夜晚,萤火虫满天飞,现在都看不见了,连农村也很少见 为什么自然光的反射和折射光都是偏振光大神们帮帮忙 一根质量为0.4kg长为0.20m的直导线,水平放在一个倾角为30度的光滑斜面上,一均匀磁场方向垂直于斜面向...一根质量为0.4kg长为0.20m的直导线,水平放在一个倾角为30度的光滑斜面上,一均匀磁场方 现在为什么看不到萤火虫了? 甲乙两列火车长为92米和84米,若相向行驶,经过1.5秒完全错过(即从两车头相遇到两车尾离去)若同向行驶,则相遇后经过6秒超过,求两列火车的速度。 什么是生冷的东西 如图所示,物快A重10n,B重20n,AB间的动摩擦因数为0·1如图所示,设A重10N,B重20N,A、B间的动摩擦因数为0.1,B与地面的动摩擦因数为0.2 问:1.至少对B向左施多大的力,才能使A、B发生相对滑动?2.若A、B 甲、乙两列火车的长为92米和84米,若相向行驶,经过1.5秒完全错过(即从两车头相遇到两车尾离去),若同向行驶,则相遇后经过6秒超过,求两列火车的速度. 12.如图9所示,某工地工人用固定在水平工作台上的卷扬机(其内部有电动机提供动力)提升水中的物体,其提升速度始终为1.5m/s.物体未露出水面前,被匀速提升时,卷扬机对绳子的拉力为F1,卷 圆的周长是怎样得来的 电源短路的路段电压是多少 如图所示,某工地用固定在水平工作台上的卷扬机(其内部由电动机提供动力)提升水中的物体,其输出功率始终为1500w,物体未露出水面前,以1.5m/s的速度被匀速提升,卷扬机对绳子的拉力为F1,卷 A重10N B重20N F=4N 同时作用在AB两个物体上,是它们在平面C上同步做匀速直线运动如图所示:物体A重10N,B重20N.两个相同的力F=4N,同时作用在A、B两个物体上,使它们在平面C上同步做匀速直线运动 一个质点在作匀速率圆周运动时(   ) A.加速度改变,B.加速度不变,C.一个质点在作匀速率圆周运动时(   )A.加速度改变,B.加速度不变,C.加速度改变,D.加速度不变,最好说明一下 如图所示,劲度系数为k=10N/m的弹簧下面挂着质量分别为m1=0.5kg和m2=0.3kg的两个物体……如图所示,劲度系数为k=10N/m的弹簧下面挂着质量分别为m1=0.5kg和m2=0.3kg的两个物体,开始时它们都处 A重10N,B重20N,AB间、B与地面间摩擦因数等于0.5,欲使B匀速拉出,F至少要多大? 如何测出一个电器是用直流电还是交流电? 已知a为实数,f(x)=(x平方-4)*(x-a),若f'(-1)=0,求f(x)在中括号-4到4上的最大值和最小值 萤火虫是什么变的 玻璃是拿什么做的 不用计算圆的周长公式,有什么办法能求圆的周长 桌面上有AB两球,若要将B射向桌面任意一边,使一次反弹后击中A球,则如图所示8个点中,可以瞄准得点有几个 长大后,我就成了你,才知道那块黑板写下的是真理……才知道那支粉笔画出的是彩虹.是哪首歌 圆的周长的公式时我们用什么方法? 在倾角为30度的光滑斜面上放一质量M=2KG的物体A由轻绳与质量为M的物体B相连A和B都处于静止状态求B的质量 通过波形如何判断音叉叉股的长短 圆的周长除了用公式还有什么方法 船在静水中,两大人分别用F1=400N.F2=360N的力拉船,为使小船在河中间沿与河岸平行的方向前进,一个小孩用一最小的拉力帮忙,求小孩施力的大小和方向.(sin37°=0.6) 马拉着重为10000牛的车在水平公路上匀速前进,30min走了5.4km,车在前进的过程中受到的摩擦阻力是1000牛,(1)马拉车前进的速度是多大?(2)马对车的水平拉力是多大?马在这段时间内对车做了 牛顿的微粒说和爱因斯坦的光子说本质相同么 指导圆的周长的公式时我们用什么方法 有人知道具体无线电测试仪产品认证的意思 为什么说爱因斯坦的"光子"与牛顿的"微粒"是不同的? 有助于回答者给出准确的答案重100N的球用水平绳拉住处于静止状态 光滑斜面倾角为37度,求绳对球的拉力和球对斜面的压力 由两根绳子拉着小船匀速航行,若F1,F2的夹角为120,且F1=F2,则船所受的阻力F,F1,F2有怎样的关系 忌食生冷食物是什么意思 用滑轮组将200kg的物体匀速提升12m用时1min,如图所示不计绳重及摩擦,绳自由端的拉力为550N.求:(1),绳自由端拉力移动的速度是多大?(2),动滑轮重多大?这是图片 已知F1=10N,F1与F2的合力大小为10更号下3牛,合力与F1的夹角为30度,求F2的大小和方向 一重W的匀质圆球,用软绳及光滑斜面支持,如图,已知角α及β,求绳子所受拉力及斜面上所受压力的大小 如图所示的撬棍,当作用力P以哪个方向最省力,并说明下原因,(我不太懂)A 作用力垂直向下 B作用力水平向右C 作用力垂直撬棍 D作用力水平向左http://hi.baidu.com/%B7%C5%CB%C9%B5%C4%CA%C0%BD%E7/album/item 一个圆形钟面的半径是15厘米,它的面积是多少平方米? My brother likes music that he can dance 静电放电的电磁兼容试验有没有相关标准? 一个分针长12厘米,走一昼夜的面积和周长?说出算式的意义 he likes music that;s () ( energy)适当形式 200米等高线上大的某点,同200米的深线的点的相对高度是...A.200mB.300mC.400mD.600m 一个圆形钟面的半径是15厘米,他的面积是多少平方米?清楚一点,要算式哦 导线的绝缘皮是否有耐腐蚀功能 清朝历代皇帝谥号是什么?例如,咸丰(显)皇帝,谥协天翊运执中垂谟懋德振武圣孝渊恭端仁宽敏显皇帝 一个圆形钟面的直径是16厘米,它的周长是几厘米,它的面积是几平方厘米一个圆的半径扩大3倍,周长就扩大 倍,面积就扩大 倍丨两个圆的半径分别是3cm和5cm,它们的直径的比是 ,周长的比是 面积 第二题怎么做,答案加解释 用细绳悬挂一个质量为m的物体,对于下类情况中绳子受到拉力F1的大小应是( ) A.当细绳拉着物体向上匀速上升时,F1>mg,F1越大.B.当细绳拉着物体像下匀速下降时,F1 我国第一部磁悬浮列车已经在上海投入使用,如图所示是磁悬浮的原理,下面的圆柱是柱形磁铁,上面使用高温超导材料制成的超导圆环,将超导圆环放在柱形磁铁上,它就能在磁力的作用下悬浮 如图,12N重的小球放在倾角为30°的光滑斜面上,且处于平衡状态.此拉绳恰为水平方向.则绳受到的拉力为多少,斜面受到的压力为多少? 我有一个朋友,身高170,体重50kg,不是体育生,他在今年的校运会100米和200米项目上都跑过了所有的体育生,成绩分别为11.62和24.69,我想问一下他这样算好吗?(运动会前他说他在家里用哑铃和做俯 焦点在x轴上的椭圆上有一点P(3,4),F1、F2是椭圆的两个焦点?焦点在x轴上的椭圆上有一点P(3,4),F1、F2是椭圆的两个焦点,若PF1⊥PF2,求椭圆的标准方程? 美媒:美国公布核弹更新计划 强化核威日本原子弹爆炸外籍幸存者要求安倍\"中方将与各方一道加大打击“三股势力”港媒:中央楼市思路初显 透露多点政策日本麦当劳就“禁流浪汉入店”道歉外交部就打击恐怖主义、叙利亚销毁化武世界主要城市11月2日天气预报英内政部报告称非法移民给英国带来沉重外交部:对目前阶段有关销毁叙化武决定律师称斯诺登可在俄境内就德国遭美监听报道称美通过澳驻华使馆监听中国 中方“免费”医疗让俄罗斯进退两难俄按揭购房方式未成功普及 专家称与银旧金山地方检察院举行反家暴妇女维权座澳大利亚赏鲸季来临 民众目睹2600日本学生12万粒杏仁膏立体再现法国印澳夫妇因非法改建房屋供学生住宿被罚3美国50州首富名单出笼 盖茨巴菲特仍墨尔本赛马节下周将开始 预报称天气状联合国首次主动攻击非洲叛军 或抛弃被叙总统要求西方为日内瓦会议停止资助叙跳槽季,你是该跳,还是该留?全球最快!Acer于CES发布Tra把鸡蛋弄进瓶子的物理原理产品经理再忙也要看《芈月传》撞见女友出轨!男子踹倒情敌发现竟是亲诺基亚虚拟现实摄像头Ozo现身CES油价破30,股市、人民币不堪重负,即四川多地现“返乡潮” 劳务经济长出嫩2016年开年,深圳湾将迎来硬件创新2016不管在哪里上班,请记住这个字“芈月”背后的秦国强盛秘密中国制造真的全面超越日本了吗?人民币贬值创新低 5类人的钱包要小心人与人,千万别走得太近【搞笑】中国人暴富的7大方式!准备躺并购案最新经典案例出炉 奇招迭出!巴中七旬环卫工被撞身亡!为何他们屡屡山西柳林高速收费员上班看电视剧称不影我们必须要为愉悦冒一点风险证券工作真是好,其他行业比不了这是最悲伤的一款游戏,却是父亲对儿子
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘