DELPHI
河南阿锋
热爱程序的程序猿
展开
-
一种提示框
MessageBox(handle,请先关闭打开的外部程序!,提 示,MB_OK);原创 2006-08-24 08:56:00 · 692 阅读 · 0 评论 -
一个简单的多线程
头部type TMyThread = class(TThread) protected procedure Execute; override; end; procedure TMyThread.Execute;begin CoInitialize(nil); //如果不加这句,会提示未调用CoInitialize原创 2012-09-28 16:22:02 · 364 阅读 · 0 评论 -
一个简单FTP程序的主要源代码
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, Menus,原创 2006-08-01 17:24:00 · 2498 阅读 · 0 评论 -
Delphi连接access数据库
s:=extractfilepath(application.ExeName);dm1.ADO_access.ConnectionString:=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=+s+print.mdb;Persist Security Info=False;dm1.ADO_access.Connected:=true;原创 2006-07-20 16:43:00 · 1438 阅读 · 0 评论 -
在DELPHI中,如果数据库备份文件地址是变量,恢复数据库的语句
在DELPHI中,如果数据库备份文件地址是变量,恢复数据库的语句。(S是当前地址)s:=extractfilepath(application.ExeName);adocom_txt:=adocom_txt+RESTORE DATABASE mobile FROM DISK = N+s+/+db_name+ WITH FILE = 1, NOUNLOAD , STATS原创 2006-07-10 17:23:00 · 940 阅读 · 0 评论 -
关闭SQL SERVER用户进程,防止因为用户正在使用数据库,导致数据库恢复或删除失败
//关闭SQL SERVER用户进程,防止因为用户正在使用数据库,导致数据库恢复或删除失败 isql:=select spid from master..sysprocesses where dbid=db_id(mobile); adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(isql原创 2006-07-10 17:16:00 · 3685 阅读 · 0 评论 -
备份SQL SERVER数据库代码
procedure Tfrm_planmana.N20Click(Sender: TObject);var ado:TADOCommand; msg:tfrm_hfdb_list;begin//操作员没有些权限if admin_flag=2 thenbeginMessageBox(handle,您没有权限进行此操作!,提 示,MB_OK);exit;end;// 确实要备份吗?原创 2006-05-31 18:15:00 · 1275 阅读 · 1 评论 -
给移动公司做的一个查询的存储过程
SET QUOTED_IDENTIFIER OFF GOSET ANSI_NULLS OFF GOALTER PROCEDURE [dbo].[wlwxxntj] @riqi_start datetime,@riqi_end datetime,@sjd_start varchar(10),@s原创 2006-05-11 14:45:00 · 1134 阅读 · 0 评论 -
ADOquery导入EXCEL表数据例子
procedure Tfrm_plan_luoshi.printyl_btnClick(Sender: TObject);varexls,sheet,MyWorkBook,xlBook,xlsheet:Variant; sql1,s,xh,plan_content,create_time,finish,reason:string; hang,i:integer;beginScreen.Cursor原创 2006-05-09 15:52:00 · 2507 阅读 · 0 评论 -
adostoreproc使用方法
方法一:TJZB_SP.Close;with TJZB_SP do begin Parameters.ParamByName(@riqi_start).Value :=datetostr(riqi_start.Date); Parameters.ParamByName(@riqi_end).Value :=datetostr(riqi_end.Date); Para原创 2006-05-09 15:47:00 · 2275 阅读 · 0 评论 -
Delphi 控制Excel 例子,参考资料
个人收藏:Delphi 控制Excel(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( Excel.Application );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption :=原创 2006-05-09 17:29:00 · 3879 阅读 · 2 评论 -
让DBGRID支持鼠标滚轮
先在窗全上添加ApplictionEvents控件,在ADDITIONAL页中。然后在ADDITIONAL的onmessage事件中添加如下代码:if (Carrier_db.Focused) And (Msg.message = WM_MOUSEWHEEL) then begin if Msg.wParam > 0 then SendMessage(Carr原创 2006-04-25 14:36:00 · 858 阅读 · 0 评论 -
点关闭按钮,提示是否确认退出
TForm1.FormCloseQuery是自身有的属性。procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin try if Application.MessageBox(确定退出本软件吗?,询问,MB_OKCANCEL+MB_ICONQUESTION)=IDOK then原创 2006-04-24 15:09:00 · 2680 阅读 · 0 评论 -
一个简单的程序,点最小化按钮,程序最小化为一个图标最任务栏右边
unit Unit1;interfaceuses Windows, Messages,.......................const WM_BARICON=WM_USER+200; //加这个typeprivate procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMA原创 2006-04-24 15:04:00 · 2803 阅读 · 0 评论 -
delphi 读取 .dat文件数据
经过网上查资料,得到一个读取.dat数据的方法,这个数据是文本数据。点击按钮的过程procedure Tlogin.Button2Click(Sender: TObject);var s,tempstr:string; SL : TStringList; i,j:integer;begin SL := TStringList.Create;原创 2012-09-24 16:36:27 · 3399 阅读 · 0 评论