DELPHI 时间加减运算
我现在有Edit1里面显示为 2007-05-22 18:22:00 另外一个Edit2里有值35 我现在想用Button1把18:22:00的分钟加上35显示在Edit12007-05-22 18:57:00里.[@more@]procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=DateTimeToStr(StrToDateTime(Edit1.Text)+StrtoDateTime('0:'+Edit2.Text+':0')); end; Edit2的值最大不能超过59
Delphi 子窗口置顶
delphi 7子窗口不能置母窗口后面。FORM属性设置 FORMSTYLE := fsMDIChild 即可。[@more@] DELPHI 關閉 子窗口 事件: procedure TFrm_Wip_Bom.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := Cafree; //關閉時釋放窗體內存 end;{********************}procedure TFRM_BADNESS_RATE.BtnOkClick(Sender: TObject);begin // inherited; if (DBDateTimeEditEh1.Value = null or DBDateTimeEditEh2.Value = null ) then begin showmessage('日期必須輸入,請檢查!'); abort; end; Screen.
DELPHI COMBOBOX 显示最近几个月份
想了解DELPHI COMBOBOX 显示最近几个月份,如当前是20090103,在COMBOBOX.ITEMS里显示'200810、200811、200812、200901'等四个选项。不对数据库访问。//返回最近几个年月procedure TForm1.Button1Click(Sender: TOb...
mysql 显示指定行数
MYSQL 下显示指定行数 : " LIMIT 数量"只显示6行记录: select * from tableName limit 6;在MS SQL 下只显示6行记录:select top 6 * from tableName[@more@]
网络管理
现在,公司网络管理员是不给课长级以下人员不能上网的,通过企智通管理,将IP地址加入禁区里。而业务里有几个电脑“高手”,天天都在改变IP地址,进行上网。网络管理员为什么不用MAC方式进行控制呢?没有几个人会修改MAC地址。这样就可以实现管制了,或者用户没有ADMINISTRATOR权限。只给USER权限 。用户就不能修改IP地址。因为 用户天天在修改IP地址,天天都有IP冲突事件。使IP地址出现混乱。[@more@]
linux用户目录文件说明
下面"./.config/ user-dirs.dirs" 功能 是什么 呢?[@more@] # This file is written by xdg-user-dirs-update## If you want to change or add directories, just edit the line you're# interested in. All local changes will be retained on the next run# Format is XDG_xxx_DIR="$HOME/yyy", where yyy is a shell-escaped# homedir-relative path, or XDG_xxx_DIR="/yyy", where /yyy is an# absolute path. No other format is supported.#XDG_DESKTOP_DIR="$HOME/桌面"XDG_DOWNLOAD_DI
不能访问外网
不明白什么东西使得某一台机器总是不能访问外网,访问内网一切正常.解决方式用换IP地址.
Terminal server 不能登陆
症状当您尝试连接到运行终端服务、基于 Windows 2000 的计算机时,可能会收到以下错误信息: Terminal Server has ended the connection. 解决方法:将[HKEY_LOCAL_MACHINESOFTWAREMicrosoftMSLicensingStore]下的子...
MSSQL 函数
用户表A中有 name,address,dm三个字段数据格式如下name address dm张三 1101李四 1102...标准表B中有 address,dm字段,数据如下:address dm北京市 11东城区 1101西城区 1102天津市 12请问如下用利用B中的数据更新A中的address?详细点说明一下,我想得到的记录形式为张三 北京市东城区李四 北京市西城区如何解决?[@more@]create table ta(cname varchar(20),address varchar(20),dm varchar(20))insert into ta(cname,dm) values('张三','05551101')insert into ta(cname,dm) values('李四','05551102')insert into ta(cname,dm) valu
LCM 工單物料耗用表
--******** LCM 工單物料耗用表 ************ SELECT WE.WIP_ENTITY_NAME ,WDJ.DATE_RELEASED ,LU2.MEANI...
DELPHI 设置网关、DNS
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButto...
DELPHI7 DBGRID 导出EXCEL
uses comobj;function TSocialInsuranceForm.ExportDBGrid(DBGrid: TDBGrid; SheetName: string): boolean;//直接保存,不显示EXCEL var c, r, i, j: integer; app: Olevariant; TempFileName, ResultFileName: ...
DELPHI 删除数据例子
删除数据是经常操作的事,有时候不小心按错删除怎么办。因此增加确认条件。确认后才进行删除。[@more@]procedure TEduForm.DeleteBtnClick(Sender: TObject); var csql:string;begin //删除按钮 。 if MessageBox(0,'删除当前记录,删除后不能恢复。'+#13+'要删除按"是",否则按"否"。','提示',MB_YESNO+MB_ICONQUESTION)=IDYES then begin csql:='delete bas_education where eduNo='+quotedStr(eduNoedt.Text); with udm.Qry_edu do begin close; sql.Clear; sql.Add(csql);
ERP系统反应慢
“ERP反应很慢”这句话听多了,被麻木了。去服务器上看查看状态,一切都正常,并没有如操作员所说的现象。在我本机操作,系统打开各个窗口都是小于一秒钟。然而,用户反映是大于五秒。去她们电脑上看,的确如她们所说。关闭其他程序,还是那么慢。再后,看IP地址设置了。原来网络管理员将DNS地址都使用外网地址(202.96.128.xxx).。如果DNS地址是外网就会增加数据传输响应时间。因此,我将它改为本地路由器地址,这么一改,ERP系统响应时间减少了,系统慢的事件也就解决了。将DNS地址作一个小小改动,既可以解决反应慢问题,又不会影响
quotedStr() 应用--DELPHI
var csql,cstr:string;begin // quotedStr(edit1.text) 以说是在sql查询分析器里给字符串edit1.text加个单引号,可以完全抛开delphi的语法. cStr:='%'+trim(edit1.Text)+'%'; cSql:='select * from basUse...
windows xp 开机就打开小键盘的方法
windows xp 开机就打开小键盘的方法很多人WINDOWS XP登陆界面输入密码时,都要使用数字键盘,可是很多时候下都会出现小键盘灯不亮情况,非要每次都按一下才行,是不是很麻烦呢?下面就把全面的解决方法告诉大家。 [@more@] 方法一. 进入桌面后什么也别做,按亮Num Lock灯,再关闭系统,再重启 试试 另外如果系统有密码的话,在登陆到输入用户名和密码时,不要输入,先按亮Num Lock灯,再点击关闭系统,然后再重启。(强烈建议该方法率先尝试)。 方法二. 打开注册表编辑器,找到HKEY_USERS.DEFAULTControlPanelKeyboard,将它下面的
DELPHI打开新窗口,可以离开主窗口
procedure TForm1.About1Click(Sender: TObject);begin // 打开新窗口,可以离开主窗口。 if not assigned(helpForm) then helpForm:=helpForm.create(self); helpForm.show;end;[@more@]procedure TForm1.About1Click(Sender: TObject);begin if not assigned(helpForm) then helpForm:=helpForm.create(self); helpForm.show;end;
通过TERMINAL SERVER 不能本地打印
现在我们公司有两WINDOWS 2003的服务器,其中一台可以通过TERMINAL SERVER 登陆到服务器可以本地打印文件,另一台则不能.从设置看是一样的设置,不知道什么原因会这样的结果.?其中能打印的服务器是经常上网页的,且安装...
SQL Server:查看SQL日志文件大小命令:dbcc sqlperf(logspace)
SQL Server:查看SQL日志文件大小命令:dbcc sqlperf(logspace)[@more@] 【鹏城万里】 发表于 www.sqlstudy.com SQL Server:查看SQL日志文件大小命令:dbcc sqlperf(logspace) DBA 日常管理工作中,很重要一项工作就是监视数据库文件大小, 及日志文件大小。如果你管理数据库的有很多的话,每天一个一个数据库的 去查看文件大小就太费神了,那就写个SQL脚本吧,放到 SQL Agent 中, 每天自动去查看各个数据库文件及日志文件的大小,然后再通过数据库 邮件,Email 到我们手
查询ORACLE ERP 当前窗口后台数据表步骤
步骤:1.HELP-》Diagnostics -》Examing....2.按提示输入用户管事员密码。3.在Examing Field and Variable Values 窗口中: 选择(1)BLOCK 栏:SYSTEM (2)Field栏:LAST_QUERY后VALUE栏出现 SQL CODE 从此处SQL CODE 中分析 出后台数据表。[@more@]