delphi 最小化最大化按钮不显示
delphi 7 最小化最大化按钮不显示,只显示一个关闭按钮。在属性窗口设置:form1.BorderIcons.biMaximize=false;//最大化form1.BorderIcons.biminimize=false;//最小化//form1.bidiMode=bdRightToLeftNoAlign;...
Delphi 文件查找函数
{--------------------------------------- 文件查找函数 SearchFile 参数说明: sFileName: 要查找的文件名称 sRootDir: 指定在哪个目录中查找 bFileOnly: 是否只查找文件 bRecurse: 是否查找子目录 返回值: FileList: 查找结果列表----------------------------------------}function SearchFile(sFileName, sRootDir: string;[@more@] bFileOnly, bRecurse: boolean): TStringList; //内嵌文件查找递归过程 procedure DoSearchFile(sFileName, sRootDir: string;
OM订单价格变更后第一个订单数量
CREATE OR REPLACE FUNCTION APPS.SGDF_NEXT_QUANTITY(V_ORDER_NO IN VARCHAR2, V_ITEM IN VARCHAR2, V_CURR IN VARCHAR2 , V_PRICE IN NUMBER , V_CUSTOMER_NUMBER IN VARCHAR2) &n...
Delphi 三层开发 保存
客户端用clientdatasetclientDataSet 保存记录。 [@more@]procedure TDeptForm.Button2Click(Sender: TObject);varcsql: string;begincsql:= 'insert into bas_dept (deptNo,DeptName) values ('+ QuotedStr(edit1.text)+','+ QuotedStr(edit2.text) +')';clientDataSet1.close;clientDataSet1.CommandText:=csql;clientDataSet1.Execute; // 保存 新增记录。clientDataSet1.CommandText:='select * from bas_dept';clientdataSet1.Open;end;
右击文件发邮件,OUTLOOK 没有反应
右击文件发邮件,没有 反应.1.在安裝FOXMAIL後,右擊鼠標,選擇"傳送到>>郵件收件者"沒反應的解決方法: 在OUTLOOK的菜單中選擇"工具>>選項>>一般>>設成預設(K)"...
Fast Report 2.4 FrDesigner使用
3.2 FastReport支持中文的换行 对于中文的报表,不同记录的同一字段可能长度差别比较大(比如人事管理中的单位、职务字段),为了节省报表页面空间,经常要求在单元格内自动换行。而对于 中文内容的换行,QuickReport的支持并不如程序员料想的那样进行自动换行,即使设置了WordWrap=true和 AutoStrench=false。主要的原因在于QuickReport自身的自动换行机制只有在遇到空格的时候才会进行换行,如果是英文单词的化当 然没有问题,碰到空格的时候当然就可以换行了,但是中文就不同了,字与字之间是没有空格的,这样QuickReport在处理
DELPHI删除记录文件
//记录文件名格式 :YYMMDDHH.TXT//删除两天前记录文件。procedure TKeyReportForm.deleteTxtFile; var txtName,cTxtFile:string; ii, i:integer;begin //删除从3到5 天记录文件。 for i:=3 to 5 do be...
DELPHI CLIENTDATASET 不能修改刪除問題
窗口從基本功能窗口繼承,今天 做的窗口能新增數據,但不能修改、刪除數據 。提示:Record not found or changed by another user 以下是從網絡找到的問答: 1.你的程序中有两个连接,或有两个数据集同时联接到数据库,而其中一个数据集中的变化没有同步到另一个数据集中去。可以使用Requery使之同步。[@more@] 2.是由于Clientdataset与Provider不同步引用的重新获取Clientdataset一下就行了. 3.不是Delphi的BUG,是你的问题。极有可能是你提交的Update的SQL语句的Where子句中包含有诸如浮点、日期等类型。这样导致数据库无法定
在Linux中开机自动运行普通用户脚本程序
来源:http://www.enet.com.cn/article/2008/0610/A20080610291675.shtml测试环境:Fedora7,管理员:root,普通用户:test1 实现目标:在Linux启动时,自动运行位于普通用户test1根目录下的脚本程序test.py,该程序会在每次执行时自动向本地日志文件追加一条记录, [@more@]源码如下: from datetime import datetime now=datetime.now() f=open('test.log','a') f.write('%s '%now) f.close() Linux在启动时,会自动执行/etc/rc.d目录下的初始化程序,因此我们可以把启动任务放到该目
三层开发
在找工作过程中,很多人问懂不懂三层开发。不懂三层开发是不错,然而,目前还是不懂。网络资料显示:ADOCONnection,socketConnection,Webconnection.。其中,ADOCONNECTION就没有被包括到三层里。为什么 呢?然而,我开发的小系统,可以在局域网内发布使用,一个EXE文件,一个数据库连接配置(INI)文件,或者一些DLL文件。那么能在局域网发布的算不算是三层。也许这只是两层,或者 是一层。因为服务器端没有我开发的服务器端程序,只要SQLserver2000服务器正常就行了。[@more@]
set statistics io / set statistics time结果解释(MSSQL)
首先需要说明的是这篇文章的内容并不是如何调节SQL Server查询性能的(有关这方面的内容能写一本书),而是如何在SQL Server查询性能的调节中利用SET STATISTICS IO和SET STATISTICS TIME这二条被经常忽略的Transact-SQL命令的。[@more@] 从表面上看,查询性能的调节是一件十分简单的事。从本质上讲,我们希望查询的运行速度能够尽可能地快,无论是将查询运行的时间从10分钟缩减为1分钟,还是将运行的时间从2秒钟缩短为1秒种,我们最终的目标都是减少运行的时间。 尽管查询性能调节困难的原因有许多,但这篇文章将只涉及其中的一个方
delphi 设置 DBGrid 列固定宽度
{设置 DBGrid 列 固定 宽度为 100 的过程 }procedure TBOMFindForm.SetColumnWidth; var i:integer;begin for i:=0 to DBGBomFind.Columns.Count-1 do begin DBGBomFind.Columns[i].Width:=100; end;end;[@more@]
变更采购单的供应商
变更采购单的供应商/* 供应商编号:vendermID 采购单建立者:creater */ select * from mat_cg where creater='苏丽' -- pno='cc080913521' select * INTO MAT_CG_BACKUP from mat_cg ...
冰点解冻
冰点还原按“CTRL+ALT+SHIFT +F6”,提示“无法加载 Deep Freeze 配置。登录程序将不可用。” 。出现此提示现象,硬盘已经被冻结了,现在想解冻。登陆程序调不出来,无法正常解冻了,请问各位网友,我怎样做呢?[@more@]
WINDOWS杀进程的命令
除了System、SMSS.EXE和CSRSS.EXE这三个进程,ntsd命令可以杀掉任何一个系统进程。从Windows2000开始,微软就提供了ntsd工具,该命令执行后,可让你获得系统的debug权,因此能够用来关闭大部分的系统进程,如果你遇到无法关闭的进程,就可以使用该命令,其杀进程的命令格式为:ntsd-cq–pXXX 以上XXX为欲杀进程的PID; ntsd–pXXX表示在调试器中打开某进程(PID为XXX); 而-cq参数则表示退出调试器。由于调试器关闭之后,它打开的进程会随调试器一起退出,因此ntsd命令能够关闭进程。[@more@]
是否要退出本系統
procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);beginif MessageBox(0,'是否要退出本系統?','揭示信息',MB_YESNO+MB_ICONQUESTION)=IDYES thenbeginApplication.Terminate;endelsebeginActi...
ORACLE日期錯誤,轉換錯誤
路徑:OM-->ORDER(DG)-->ORDER INFORMATION-->Additional Header Information(窗口)-->備註。訂單號:601001187、601001188、601001189、601001190 等 回單日期輸入有誤,如:“29-JNA-2010 13:10:00”正確寫法“...
查入库数量与采购数量 有差异的记录
use GKSERPgo --采购主档 SELECT TOP 9 * FROM MAT_CG WHERE PNO='CC080601239'--采购明细 SELECT TOP 9 * FROM MAT_CG_C WHERE PNO='cb080700285' --查入库数量与采购数量有差异的记录,正数表示超交,...
LINUX自动启动服务
linux自动启动服务很简单,最简单的是把启动命令放到/etc/rc.d/rc.local文件里这样就可以每次启动的时候自动启动服务了,例如对于 apache,编译好apache后会在安装目录的bin下生成apachectl文件,这是个启动脚本,我们只需要把这个命令加到rc.local里就 可以了 echo /usr/local/apache/bin/apachectl >> /etc/rc.d/rc.local 此外我们还可以使用chkconfig命令来把某项服务加到系统的各项运行级别中,步骤如下, 1 创建启动脚本,对于apache,mysql,ssh这样的软件都是自己带的,我们只要稍微修改一下使之支持chkconfig就可以了 2 修改教
IPv4的私有IP地址和IPv6的私有IP地址 分享
私有IP地址可以用于私有网络,如个人用户和企业用户。它们是不能用在互联网上的路由。它们可以满足安全性,同时也节省了宝贵的IP地址空间。有了私有 IP地址,需要组建网络的个人用户和企业用户只有在内部使用私有IP地址并且运行良好,那么它的灵活性、扩展性和经济性都是很好的。既然私有IP地址不能 在互联网上路由,就需要NAT,即网络地址转换。最简单的一种方式就是用内部所有私有IP地址转换为一个公有IP地址上网。 IPv4被保留的私有IP地址空间: A类 10.0.0.0到10.255.255.255 B类 172.16.0.0到172.31.255.255 C类 192.