2013年7月12日

Delphi判断字符串是否是数字、字母、大小写字母

摘要: function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字vari:integer;beginresult:=true; //设置返回值为 是(真)Vaule:=trim(Vaule); //去空格 for i:=1 to length(Vaule) do //准备循环 begin if not (Vaule[i] in ['0'..'9']) then //如果Vaule的第i个字不是0-9中的任一个 begin result:=false; //返回值 不是(假) ... 阅读全文

posted @ 2013-07-12 13:00 哈哈哈哈BBA 阅读(9201) 评论(1) 推荐(0) 编辑

2013年6月19日

sqlserver防止数据库挂马新尝试

摘要: 想法不错,放着以后应该会有用网站挂马非常让人头痛,每次的安全措施都是治标不治本,想找到根本原因,只能去分析你的程序源代码,由于很多网站不是一个程序员开发,很多的注入漏洞很难发现,曾经通过公共文件加入过滤代码,基本无效,买了个叫龙盾的IIS防火墙,好像有点用,但最后还是被攻破了,sqlserver又被挂了。 每次注入都要用“UPDATE 表名 set 字段名= REPLACE(字段名, 网站挂马非常让人头痛,每次的安全措施都是治标不治本,想找到根本原因,只能去分析你的程序源代码,由于很多网站不是一个程序员开发,很多的注入漏洞很难发现,曾经通过公共文件加入过滤代码,基本无效,买了个叫龙盾的II.. 阅读全文

posted @ 2013-06-19 11:20 哈哈哈哈BBA 阅读(407) 评论(0) 推荐(0) 编辑

获取其他进程中ListBox和ComboBox的内容

摘要: (*//标题:获取其他进程中ListBox和ComboBox的内容说明:Window2000+Delphi6调试通过设计:Zswang支持:wjhu111@21cn.com日期:2004-03-25//*)function GetListBoxText(mHandle: THandle; mStrings: TStrings): Boolean;var vItemCount: Integer; I: Integer; S: string;begin Result := False; if not Assigned(mStrings) then Exit; mStrings.Begi... 阅读全文

posted @ 2013-06-19 11:14 哈哈哈哈BBA 阅读(1217) 评论(0) 推荐(0) 编辑

取得给定月份的第一天和最后一天的日期

摘要: FDOM 和DOM-------------FDOM返回参数中日期所在月份的第一天的日期。而LDOM返回该月份的最后一天的日期(所给日期的下一个月的第一天日期减去一)。 function FDOM(Date: TDateTime): TDateTime; var Year, Month, Day: Word; begin DecodeDate(Date, Year, Month, Day); Result := EncodeDate(Year, Month, 1); end; function LDOM(Date: TDateTime): TDateTime; v... 阅读全文

posted @ 2013-06-19 11:08 哈哈哈哈BBA 阅读(250) 评论(0) 推荐(0) 编辑

2013年6月6日

SQL_server 将表中的记录 转换成 Insert(插入) SQL 语句

摘要: create proc spGenInsertSQL @TableName as varchar(100) as --declare @TableName varchar(100) --set @TableName = 'orders' --set @TableName = 'eeducation' DECLARE xCursor CURSOR FOR SELECT name,xusertype FROM syscolumns WHERE (id = OBJECT_ID(@TableName)) declare @F1 varchar(100) de... 阅读全文

posted @ 2013-06-06 15:30 哈哈哈哈BBA 阅读(2073) 评论(0) 推荐(0) 编辑

2013年4月26日

Delphi DBGridEh导出Excel

摘要: unit Unit_DBGridEhToExcel;interfaceusesSysUtils, Variants, Classes, Graphics, Controls, Forms, Excel2000, ComObj,Dialogs, DB, DBGridEh, windows,ComCtrls,ExtCtrls;typeTDBGridEhToExcel = class(TComponent)private FProgressForm: TForm; {进度窗体} FtempGauge: TProgressB... 阅读全文

posted @ 2013-04-26 11:57 哈哈哈哈BBA 阅读(2311) 评论(0) 推荐(0) 编辑

Delphi 获取机器MAC地址

摘要: //客户端机器的MAC地址function GetMacAddress: string;var Lib: Cardinal; Func: function(GUID: PGUID): Longint; stdcall; GUID1, GUID2: TGUID;begin Result :=''; Lib := LoadLibrary('rpcrt4.dll'); if Lib <> 0 then begin if Win32Platform <>VER_PLATFORM_WIN32_NT then @Func := GetProcAddr 阅读全文

posted @ 2013-04-26 11:16 哈哈哈哈BBA 阅读(2232) 评论(0) 推荐(0) 编辑

2013年4月22日

三星S7562手机拨号时显示“未在网络上注册”是什么原因?

摘要: 根据您的描述,建议您按照如下步骤尝试操作: SIM卡没注册上 1.设定-更多-移动网络-网络模式-卡1/卡2-网络运营商-点击可用的 3.更换其他SIM卡 4.个别地方因3G信号不稳定可尝试:设定-更多-移动网络-网络模式-GSM本人用这个方法以后就可以了. 阅读全文

posted @ 2013-04-22 11:10 哈哈哈哈BBA 阅读(5136) 评论(0) 推荐(0) 编辑

2013年4月19日

Delphi Excel操作类

摘要: {****************************************************//Description : 把一个表或Query或StringGrid中的数据保存到一个Execl文件中Function List : 创建接口 procedure CreateExcelInstance; 把表内容放到Excel文件中 procedure TableToExcel( const Table: TTable ); 把Query内容放到Excel文件中 procedure QueryToExcel( const Query: TQuery ); 把Stri... 阅读全文

posted @ 2013-04-19 11:01 哈哈哈哈BBA 阅读(692) 评论(0) 推荐(0) 编辑

2013年4月17日

SQL Server 如果视图存在执行删除

摘要: IF EXISTS(Select Name From Sysobjects Where Name='P_ExistsDropView' And Xtype='P')DROP PROC P_ExistsDropViewGOCreate Proc P_ExistsDropView(@DelView Varchar(200))AsDeclare @SQLText Varchar(1000)If Exists(Select Top 1 Name From Sysobjects Where Name=@DelView And XType='V') Begi 阅读全文

posted @ 2013-04-17 14:48 哈哈哈哈BBA 阅读(4018) 评论(0) 推荐(0) 编辑

导航