- 博客(65)
- 收藏
- 关注
RSS订阅转载 查询数据库中某一列有没有重复数据项
查询数据库中某一列有没有重复数据项：select * from cd_stock where stock_bh in (select stock_bh from cd_stock group by stock_bh having count(stock_bh) >1 )select * from cd_stock_item where id in (select id fr...
2018-02-12 17:29:00
582
转载 统计MSSQL数据库中所有表记录的数量
SELECT a.name as '表名', b.rows as '记录数' FROM sysobjects AS aINNER JOIN sysindexes AS b ON a.id = b.idWHERE (a.type = 'u') AND (b.indid IN (0, 1))ORDER BY b.rows DESC转载于:https://www.cnblogs.com/b...
2017-12-29 22:18:00
555
转载 Delphi获得与设置系统时间格式《转》
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm...
2017-12-17 23:05:00
174
转载 SQl查询数据库表名、表的列名、数据类型、主键
1.获取所有数据库名: 2.Select Name FROM Master..SysDatabases order by Name 3. 4.2.获取所有表名: 5. (1) 6.Select Name FROM SysObjects Where XType='U' orDER BY Name 7. XType='U':表示所有用户表;...
2017-12-17 11:32:00
328
转载 delphi中检测局域网ip能够ping通模块
// 函数PingHost用于ping目标IP是否连通 // uses winsock 在uses中加入 winsock // 用法： if PingHost(edit2.Text) then edit1.Text:='已连接' else edit1.Text:='未连接' ; function TfrmQYinfo.PingHost(HostIP: string): boo...
2017-12-02 10:33:00
477
转载 显示数据库中所有表名以及字段信息(非常有用)
select t.name as tablename,c.name as columnname,ty.name as typename,c.max_length as typelengthfrom sys.columns c inner join sys.tables t on t.object_id=c.object_idinner join sys.types ty on ty.sy...
2017-11-29 00:07:00
489
转载 TADOConnection如何测试连接数据库超时的解决办法
TADOConnection如何测试连接数据库超时的解决办法TADOConnection 提供了很好的数据库连接功能，但是我们在实际使用时，如果指定的远程数据库不存在或其他原因连接不上，程序往往会假死并等待很长时间，很是不友好。实际上可能您也已经尝试将ConnectionTimeout属性设为5秒甚至更小，但好像并不起到什么作用。问题究竟出在哪里？我们来先看一下Delphi的帮...
2017-11-27 02:51:00
421
转载 Delphi Form显示在第二个显示器中的方法
Delphi 中窗体Form显示在第二个显示器中的方法: 假定要显示在扩展的第二个显示器的Form的名称为frmFloat，则除了要设置该form的top、left、width、height为Screen.Monitors[1].Top, Screen.Monitors[1].Left, Screen.Monitors[1].Width, Screen....
2016-07-02 16:59:00
689
转载 Ectouch修改虚拟销售数量的方法
1、参考：http://zhidao.baidu.com/link?url=5OEkRlKqtRcmnO6iyW2pq-gw1aj-1S6QdImmBkQZHHt6tcvT50aIf_1nibP3T6urM8nIC8iF0U6RyxCx7B9qfHGke7sIPciIdYcrsYwUgm_经过实验，此方法也不管用。=================================...
2016-05-28 07:34:00
100
转载 微信公众平台Token验证失败的解决办法
微信公众平台Token验证失败的解决办法 1.可查看url和token是否正确2.查看服务器端口是否为80端口3.你可以通过记录log日志来判断是否接受到微信提交过来的信息1.$fp=fopen("log.txt","w+");2.$strText='http://'.$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI']."\r\n"...
2016-04-07 01:31:00
993
转载 delphi中关于资源释放（Free/release/freeAndNil）的一点体会(转)
经过这段时间对delphi中free 和 release 的仔细学习，先总结如下：1。form.free直接释放资源后，调用OnDestroy事件，但是没有将form指针改为nil2。form.release 等待资源不再使用后释放资源，同样不修改form指针为nil，所以在destroy中最好使用 release进行资源释放操作。3。局部变量释放资源时，可以考虑用freeandn...
2013-04-12 07:18:00
137
转载 小学生课外必读书目(推荐)
一年级学生必读书目 《中国古代寓言故事》 邶笪钟编写 北京人民文学出版社2003年版 《中外神话传说》 田新利选编 北京人民文学出版社2003年版 《十万个为什么》 卢嘉锡主编 少年儿童出版社1999年版 《与鸟儿一起飞翔》 郑作新著 湖南少儿出版社2000年版 《海底两万里》 (法)儒勒"凡尔纳 北京教育出版社2002年版 《汉字的故事》 梅子涵著 上海科普出版社 《安徒生童话选集》(...
2012-07-18 19:24:00
289
转载 分时间片计算包间费演示程序
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, DateUtils;type TForm1 = class(TForm) DTPStar...
2012-06-02 07:10:00
72
转载 Delphi POS打印的处理
Delphi POS打印的处理2007年8月4日 delphi 小票打印{打印代码}procedure TForm1.Button1Click(Sender: TObject);varRPrinter:TextFile;i:integer;begin{设置打印机}Assignfile(RPrinter,'...
2012-04-15 22:22:00
358
转载 Delphi下POS机控制钱箱，客显，打印机
1、控制POS机的客户显示屏procedure TFrmMain.ShowMoney(Money_Port: String;Money_String:String);//Moneey_Port：顾显接口Com1 or Com2 Money_String：顾显显示的内容var PrnFileName:TextFile;begin Assignfile(PrnFi...
2012-04-15 21:50:00
249
转载 SQL2000下的三表查询
SELECT *FROM ZdMx INNER JOIN CargoInfo ON ZdMx.CargoNo = CargoInfo.BH INNER JOIN CargoTypeInfo ON CargoInfo.NumOfType = CargoTypeInfo.IDWHERE (ZdMx.ZdHzNo = 'XF20120411000007')ORDER BY ...
2012-04-13 18:26:00
64
转载 SQL多表联合查询（Access数据库表）
条件：Access数据库的三个表，a表、b表、c表，三个表结构不同，其中都有字段ID，a表为主表，其中的ID不一定b表、c表中都存在，建立此三个表的联合查询。根据SQL语法，通过连接运算符可以实现多个表查询。连接可以在Select 语句的FROM子句或Where子句中建立，在FROM子句中指出连接时有助于将连接操作与Where子句中的搜索条件区分开来。 SQL-92...
2012-04-13 18:24:00
707
转载 三个实用的SQL Server数据库字典SQL语句
http://www.sina.com.cn 2008年05月29日08:17 赛迪网 作者：Bradley 【赛迪网－IT技术报道】本文主要介绍了三个实用的SQL Server数据库字典SQL语句，数据库字典主要包括表结构(分为SQL Server 2000和SQL Server 2005)、索引和主键. 外键.约束.视图.函数.存...
2012-04-13 18:01:00
110
转载 获取Listview1多选的内容项
问：当multiselect:=true的时候，并不是只能连续的选择多个item，而是可以中间间隔任意数量item选择。这样一来，怎样得到所选择的非连续的items呢？答：var First, secord: TListItem;begin First := listview1.GetNextItem(listview1.TopItem, sdall, [isSelected...
2012-04-07 11:55:00
174
转载 解决速达软件提示将numeric转换为数据类型numeric时发生算术溢出错误问题
解决速达软件提示将numeric转换为数据类型numeric时发生算术溢出错误问题 速达软件在查询库存报表提示出错信息如：将numeric转换为数据类型numeric时发生算术溢出错误问题原因：货品的成本溢出,高于10亿的成本价,超出数据库范围.解决方法：对帐套反结帐2个月，然后给参考进价设为0的货品都加上真实参考进价，再重算成本。最后再结帐，问题...
2012-03-24 00:18:00
3130
转载 生活与生存
没有旅行的生活，只能称之为生存。一生中至少要有两次冲动，一次为奋不顾身的爱情，一次为说走就走的旅行。 旅行在乎的就是途中过程的感受。转载于:https://www.cnblogs.com/bingege/archive/2012/03/06/2382737.html...
2012-03-06 22:48:00
130
转载 Delphi编程隐藏硬盘分区(转)
都知道修改注册表可以在我的电脑中隐藏硬盘分区的吧！找到HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer后，看到的NoDrives是二进制值，也可以是十进制值。而且一个驱动器的值是前面驱动器的值的两倍：A = 1 , B = 2 , C = 4 , D = 8 , E = 16 .....
2012-02-17 09:06:00
176
转载 FastReport报表常用技巧(转)
1. 单据中有多行数据，但预览时只显示部分内容，或者打印内容行与行之间有间隔FASTREPOR属性中：设置RowCount=0，Start New Page为False；Stretched为True.说明： RowCount：控制总共打印几行；RowCount=0是打印全部； Start New Page:打印前先跳页；每页打印一行； Stretch:表身自动伸缩根据表身内容； ...
2012-02-10 13:51:00
457
转载 导出SQL Server数据库表中字段的说明/备注(转)
打开SQL企业管理器，找到你要导出用户表字段信息的那个数据库，点击工具上的Sql查询分析器 直接copy下面的Sql语句到查询分析器中，点击F5运行----------------------------------------------------------------------------------------------------------SELECT ...
2012-02-06 18:38:00
503
转载 ADO中字段的GetText用法
XH：序号字段，计算性质的字段。procedure TfrmTingTaiInfo.ADOQitemXHGetText(Sender: TField; var Text: string; DisplayText: Boolean);begin inherited; Text := IntToStr(Sender.DataSet.RecNo);end;转载于:https...
2012-02-03 12:53:00
184
转载 DBGRID在ADO+SQL环境中的Lookup问题(转)
在进销存系统中，经常会将商品信息放在一个数据表中，把销售明细（采购明细）放在另一个表中，两个表通过商品的编号相联，于是经常会遇到要在销售明细（采购明细表中显示商品名称、规格等信息，就在DBGrid中采用Lookup的方法显示。但是当新插入数据时就提示“发生未知错误”的信息。解决办法： 例：一个ADOQuery1，包含了“商品编号”，“数量”等字段，然后再新建立“商品名称...
2012-02-03 09:58:00
131
转载 SQL获取所有用户名,数据库名、所有表名、所有字段名及字段类型(转)
1.获取所有用户名: SELECT name FROM Sysusers where status='2' and islogin='1' islogin='1'表示帐户 islogin='0'表示角色 status='2'表示用户帐户 status='0'表示糸统帐户2.获取所有数据库名: SELECT Name FROM Master..SysD...
2012-02-01 11:35:00
216
转载 超级通用型分页存储过程(转帖)
---------------------------------------- 超级通用型分页存储过程-- 可对Select 语句进行分页，可带 order 、group 等子句-- KeyField （关键词） 可以为空，也可以由多个，用，间隔-- 使用Keyfield 可以进行缓冲更新模式--...
2012-01-16 11:38:00
45
转载 多窗口的显示
在进销存软件中经常会用到输入货品信息，查询相关报表等数据......按以往的程序，我全部是采用的showmodal模式，这样就极不方便，必须关闭了这个窗口后，才可以打开另一个窗口。于是想使用多个窗口同时显示在屏幕上，可以点击窗口切换。按常规换成了show模式，结果一测试，发现一个窗口出现了，另一个窗口就没有了，或者是跑到主窗口的背后去了。一点也不方便。在网上转了一天，今天...
2011-11-03 23:34:00
139
转载 Delphi如何获取QQ2010聊天窗口句柄？
unit HKProc; interface uses Windows, Messages,Dialogs,iniFiles,SysUtils; var hNextHookProc: HHook; procSaveExit: Pointer; function CBTProc(iCode: Integer; wPar...
2011-10-25 09:10:00
108
转载 DELPHI中MDI子窗口的关闭和打开
DELPHI中MDI子窗口的关闭和打开Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭，所以当你单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化，而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例：procedure ChildForm.OnClose(Sender: TObject; var Action: TClos...
2011-08-24 21:05:00
360
转载 关于数据库中浮点运算、保留小数和时间计算
关于小数： 1、SQL数据表中使用numeric字段时（一定要注明小数位数），程序中使用：ADOQuery1.FieldByName('price').Value := RoundEx((ADOQuery1.FieldByName('price').AsFloat + strtofloat(Edit1.text)) * 1000) / 1000;或者ADOQuery1.F...
2011-08-21 17:54:00
453
转载 仿药易通输入单位信息后如果没有则自动加入功能
procedure TfrmCargoInfo.RzComboBox2Exit(Sender: TObject);begin inherited; if Pos((RzComboBox1.Value), (RzComboBox1.Values.Text)) = 0 then begin if MessageBox(Handle, '您需要把当前数据追加到信息库中吗？', '请...
2011-06-06 21:55:00
123
转载 用Delphi创建服务程序
Windows 2000 / XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处:(1)不用登陆进系统即可运行.(2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.笔者在2003年为一公司开发机顶盒项目的时候, 曾经写过课件上传和媒体服务, 下面就介绍一下如何用Delphi7创建一个Service程序.运行Delphi7, 选择菜单...
2011-01-28 12:44:00
75
转载 小巧的服务程序源码(转)
前段时间因要写服务程，但发现程序比较大，不包含窗口类的情况下都要120K以上！实在是太大了！ svchost.exe服务程序的大小才 7.76 KB，我想服务程序可以写的很小！我在网上找找了好长时间终于给我找到精简的服务程序的DELPHI代码(好的DELPHI代码实在是少啊)， 我把源代码放上来和大家分享！program DemoSrv;Windows NT Servic...
2011-01-28 12:41:00
105
转载 Dll控件出错的处理办法
我的问题终于解决，我来通报一下，原来在dll中修改控件属性必需要user后加个sharemem，加完马上就好什么问题也没有。 摘自SDA三层架构Delphi群聊天记录。转载于:https://www.cnblogs.com/bingege/archive/2010/11/15/1877357.html...
2010-11-15 08:32:00
239
转载 拖动Form上的图片，Form一起动
procedure TfrmServerInfo.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer);begin inherited; if (ssleft in Shift) then begin ReleaseCapture; Perform(wm_syscommand, $F01...
2010-11-14 01:13:00
62
转载 几个常用的操作
显示进度框的例子： g_wait.show; g_wait.Update; if s_ctbz=NIL then s_ctbz:=Ts_ctbz.Create(self);s_ctbz.showmodal;转载于:https://www.cnblogs.com/bingege/archive/2010/05/24/1742431.html...
2010-05-24 06:43:00
64
转载 数字转换为字符串
procedure TMainForm.InputChange(Sender: TObject);var I: Integer; S, Number: string;begin Output.Text := ''; S := Input.Text; if CheckBox.Checked then begin Number := ''; for I := 1 to...
2010-05-19 13:30:00
70
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人