自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(12)
  • 资源 (21)
  • 收藏
  • 关注

原创 Go语言gin框架中加载html/css/js等静态资源

Gin框架没有内置静态文件服务,但可以使用gin.Static或中间件来提供静态文件服务。

2024-03-18 18:42:55 653

原创 Delphi程序打开时自动以管理员方式运行

实现功能:程序打开时自动以管理员方式运行实现原理:依据UAC(用户账户控制User Account Control,简写作UAC)的标准,使用管理员权限需要提供一个提权申请,这个申请是利用资源文件的方式进行的实现步骤:1、将制作好的资源文件UAC.RES拷贝到delphi工程目录下(点击此处下载UAC.RES)2、打开主工程文件,在{$R *.res} 这行代码下面,添加...

2019-10-12 17:28:06 862

原创 Delphi创建COM组件并分别用Delphi和html调用该组件的简单实例

一、功能介绍及效果图用delphi xe6 创建一个简单的COM组件,并分别测试了用delphi和HTML调用该组件的方法ShowWuXiaNames。效果图如下: 图一:在Windows中注册的COM组件 图二:Delphi调用COM组件...

2019-06-17 18:17:46 2450

原创 Delphi 获取Windows服务状态、启动和停止服务

以下为Delphi获取Windows服务、启动和停止服务的代码,使用方法如下:if SERVICE_RUNNING = ServiceGetStatus('', '服务名') then StopServices('服务名', true);StartServices('服务名', false);---------------------------------------------...

2019-05-22 10:56:28 1930 1

原创 Windows命令查看活动连接及根据PID查看运行程序的路径、程序名等

1、查看活动连接netstat -na -o2、根据PID获得运行程序的路径及程序名等wmic process get name,executablepath,processid|findstr 加上PID

2019-05-13 17:57:37 7919

原创 Delphi 读取文本文件的两种方式

用两种方式读取文本文件:文件流读取和文件变量读取一、文件流方式{*******************************************************}{功能:读取文本文件的内容 }{参数: ...

2019-05-09 17:01:05 8584

原创 Delphi保存字符串到文本文件

Delphi保存字符串到文本文件,若指定文件不存在,则自动创建;保存字符串时采用累加形式。procedure mSaveToFile(const FileName: string; sts: string);var  MyTextFile: TextFile;          //定义变量MyTextFile为文本文件类型begin  //(*步骤1,将文件变量与外部文件联系

2015-07-02 13:44:31 4470

转载 36种漂亮的按钮的div+css源码

文章转自 http://www.zztuku.com/Html/DIV+CSS/20121207_4761.html效果图:

2014-11-10 12:47:35 2096

原创 php与delphi通过XML进行数据交互

require_once 'xt_var.php';/** 返回值说明:    1000: 接收数据成功;    1001: 接收数据失败,失败原因:菜品名称不能为空;    1002: 接收数据失败,失败原因:菜品名称价格不能为空;    1003: 云服务器插入数据失败;    2000: 接收图片成功;    2001: 接收图片失败;    3000

2014-09-14 15:50:18 744

转载 微信公众平台消息类型处理php版(方蓓工作室)

/*    方倍工作室    http://www.cnblogs.com/txw1958/    CopyRight 2014 All Rights Reserved*/define("TOKEN", "weixin");$wechatObj = new wechatCallbackapiTest();if (!isset($_GET['echostr

2014-09-01 22:03:37 2014

原创 Delphi DES加密解密单元

unit DES;interfaceuses SysUtils;type  TKeyByte = array[0..5] of Byte;  TDesMode = (dmEncry, dmDecry);  function EncryStr(Str, Key: String): String;  function DecryStr(Str, Key: S

2014-04-25 12:47:59 7450 1

原创 delphi 获取多网卡IP地址列表和Mac地址

function sendarp(ipaddr: ulong; temp: dword; ulmacaddr: pointer; ulmacaddrleng: pointer): Dword; StdCall;External 'Iphlpapi.dll' Name 'SendARP';

2014-04-25 10:15:33 3296

delphi中实现以管理员方式打开程序所需的资源文件

有时候,程序需要自动以管理员方式运行,这是delphi中实现该功能可用的编译好的资源文件 使用方法: 1、将制作好的资源文件UAC.RES拷贝到delphi工程目录下 2、打开主工程文件,在{$R *.res} 这行代码下面,添加 {$R UAC.res} ,保存,重新编译你的项目,即可

2019-10-12

手机版列表html

微信公众号中的列表显示html,包含html、css及分页显示

2014-12-29

产品介绍网站模板

产品介绍的html模板,div+css,界面美观大方

2014-12-15

html投票系统

html 投票系统,有排行榜、活动介绍等,但显示不全,需要进一步更改,自己留着有用

2014-11-12

php后台管理模块

网上下载的后台管理html,含有漂亮的左侧导航栏

2014-10-29

php 编写的简单雇员管理系统

php 编写的简单雇员管理系统,采用mvc模式,运用了Cookie、session,含有通用分页模块,封装了处理mysql数据库的通用类

2014-10-29

delphi 初始化工具

delphi 初始化工具及加密解密程序,用delphi7编写,主要用于自己编写的系统的初始化参数配置

2014-08-03

Delphi7 devexpress直接安装版

DevExpress for delphi 直接安装版

2014-06-08

delphi TRzListView 的用法

delphi TRzListView 的用法,添加 cloumn、item。

2014-03-27

sql 游标、存储过程

--新建视图 v_desk create view v_desk as select a.*, b.usingType_code, b.sOrderNo from t_desk a left join t_using_desk b on a.id = b.desk_id go --新建台号时向 t_using_desk 插入记录 --台号显示的时候查 v_desk --去掉表 t_dish_orderedNumber --t_order有些字段改为float --t_order_temp增加 price float字段 --t_using_desk增加 sOrderNo nvarchar(20) 字段 --t_dishes 修改 ordered_number float ----------------------------- --发送过程:先选台号,若该台号处于正在使用状态(在表 t_using_desk 中 usingType_code = '02'), --则表明是加菜,从 t_using_desk 中获取该台号对应的 sOrderNo,传入存储过程 sp_orderDishes;(在 sp_orderDishes 中将有菜品的台号的 singType_code 置为‘02’,在结账时重新置为 ‘01’) --若该台号处于空闲状态(在表 t_using_desk 中 usingType_code = '01'),则表明该台号即将被使用,需生成 sOrderNo, 向 t_order 表中增加该订单的信息,然后执行存储过程 sp_orderDishes ------------------------- --创建存储过程 sp_orderDishes --1、将临时表 t_order_temp 中的数据插入到 t_order_dishes --2、将表 t_using_desk 中对应的 desk_id 的 usingType_code 置为 '02'(使用中) --3、更新 t_dishes 的 ordered_number --4、删除临时表 t_order_temp 中该 userId 对应的数据 --drop procedure sp_orderDishes create procedure sp_orderDishes @orderNo nvarchar(20), @userId uniqueidentifier, @deskId uniqueidentifier as begin transaction insert into t_order_dishes(sOrderNo, dish_id, price, order_num, subtotal, taste_id1, taste_id2, remark, waiter) select @orderNo, dish_id, price, order_num, price*order_num, taste_id1, taste_id2, remark, userId from t_order_temp where userId = @userId IF @@ROWCOUNT > 0 update t_using_desk set usingType_code = '02', sOrderNo = @orderNo where desk_id = @deskId if @@error 0 begin rollback transaction--发生错误则回滚事务,无条件退出l return end DECLARE @DishId uniqueidentifier declare @OrderNum float DECLARE My_Cursor CURSOR--定义游标 FOR (SELECT dish_id, order_num FROM t_order_temp where userId = @userId) --查出需要的集合放到游标中 OPEN My_Cursor; --打开游标 FETCH NEXT FROM My_Cursor INTO @DishId, @OrderNum; --读取第一行数据(将 t_order_temp 表中的 dish_id 放到 @DishId 变量中) WHILE @@FETCH_STATUS=0 BEGIN UPDATE t_dishes SET ordered_number = ordered_number + @OrderNum WH

2014-03-26

delphi 动态创建的panel的位置显示

procedure TForm1.SetPanelPostion(APanel: TPanel; AColumn, AIndex: integer); var iRow, iColumn: integer; begin iRow := AIndex div AColumn; iColumn := AIndex mod AColumn; APanel.Left := iSpace + (iWidth+iSpace)*iColumn; APanel.Top := iSpace + (iHeight+iSpace)*iRow; end;

2014-03-25

Delphi 动态创建Panel

Delphi 动态创建panel,在panel上再创建TRzBackground,显示背景,创建TBmpButton,有鼠标移动事件和单击事件

2014-03-24

sql分页存储过程

sql分页存储过程 CREATE PROCEDURE [dbo].[dbTab_PagerHelper] @TableName VARCHAR(50), --表名 @FieldNames VARCHAR(1000), --显示列名,如果是全部字段则为* @WhereString VARCHAR(256) = NULL, --查询条件 不含'WHERE'字符,如[id]>5 AND [userid]>10000 @OrderField VARCHAR(256) = NULL, --排序不含'ORDER BY'字符,当@SortType=3时生效,必须指定ASC或DESC,建议在最后加上主键 @OrderType TINYINT, --排序规则(1:单列正序ASC;2:单列倒序DESC;3:多列排序;) @PageIndex INT, --当前页数 @PageSize INT, --每页输出的记录数 @RecorderCount INT = 0 --记录总数,如果小于等于0则重新统计总数 AS 使用实例: exec dbTab_PagerHelper 'a_proxy','*','','customer_name',1,1,15,12

2014-03-21

Delphi中将Excel数据导入到数据库中

Delphi Excel数据导入到数据库 需要 uses ComObj; 具体使用方法在文档中有说明

2014-03-20

自己用的sql语句

自己用的,对别人无用 create table t_classify_method ( id uniqueidentifier primary key default newid(), name_ch nvarchar(20), naem_en nvarchar(60), d_code nvarchar(2) ) go insert into t_classify_method(id, name_ch, name_en, d_code) values ('2F71F378-6D5F-473C-A43C-B34216532E5D', '按蒸制方式分', 'By cooking method', '10') go insert into t_classify_method(id, name_ch, name_en, d_code) values ('5A089703-DD0F-4189-ADBD-51661C5A49B2', '按地域菜系分', 'By Cuisine ', '20') go create table t_dish_type ( id uniqueidentifier primary key default newid(), name_ch nvarchar(20), naem_en nvarchar(50), d_code nvarchar(2), classify_code nvarchar(2), item_index int, deleted_flag bit default 0 ) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('44A09637-51AF-4D7C-94A9-4346D41C8D53', '特色菜类', 'Special dishes', '01', '10', 1) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('67BDF3CE-3C58-48D9-B10D-169082D52CD5', '炒菜类', 'Stir-fries', '02', '10', 2) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('81165D4A-A49D-4008-9C74-4EC27609E9DA', '火锅类', 'Chafing dish', '03', '10', 3) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('78DC1E62-42D7-4B4D-8069-3E1500126492', '汤菜类', 'Soup', '04', '10', 4) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('9F59125C-6896-4BE8-8E7C-941F6CF88C3F', '清蒸类', 'Steamed dishes', '05', '10', 5) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('B01C0007-310A-46A1-834A-745B28A37FA8', '主食类', 'Staple food', '06', '10', 6) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('2C53093C-5BA8-4D84-9151-90BD56C35C26', '酒水类', 'Drinks', '07', '10', 7) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('C3E21EBB-86B2-4D84-99A0-B1A28749456C', '鲁菜', 'Shandong Cuisine', '08', '20', 1) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('7BA617C6-05F9-4737-B699-8776D93817E4', '川菜', 'Sichuan Cuisine', '09', '20', 2) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('172EDB24-3729-40DA-AE0B-E1164DAE33B5', '粤菜', 'Guangdong Cuisine', '10', '20', 3) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('388A0F43-0BCE-4285-8290-757E7DD08926', '闽菜', 'Fujian Cuisine', '11', '20', 4) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('8B6D107E-4CFA-461F-BB76-FCA70D5A60BC', '苏菜', 'Jiangsu Cuisine', '12', '20', 5) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('95D50EF5-6230-46E6-BD9C-F7F7779E7602', '浙菜', 'Zhejiang Cuisine', '13', '20', 6) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('4A31EF34-46AF-4378-99AA-5E80F2B596E1', '湘菜', 'Hunan Cuisine', '14', '20', 7) go insert into t_dish_type(id, name_ch, name_en, d_code, classify_code, item_index) values ('358C5D85-FB36-4B56-BB10-16E62A14EB56', '徽菜', 'Anhui Cuisine', '15', '20', 8) go create table t_dish_unit ( id uniqueidentifier primary key default newid(), name_ch nvarchar(5), naem_en nvarchar(20), d_code nvarchar(2), deleted_flag bit default 0 ) go create table t_dishes ( id uniqueidentifier primary key default newid(), name_ch nvarchar(20), naem_en nvarchar(50), dishType_id1 uniqueidentifier, dishType_id2 uniqueidentifier, price nvarchar(12), dishUnit_id uniqueidentifier, ordered_number int, dishMemo nvarchar(500), dishImage image, create_time time default getdate(), companyNo nvarchar(5), deleted_flag bit default 0 ) go

2014-03-14

sql函数和事务

自己备用的,对别人没有用 CREATE FUNCTION SplitStr (@splitString varchar(8000), @separate varchar(10)) RETURNS @returnTable table(id int, col_Value varchar(50)) AS BEGIN declare @thisSplitStr varchar(50) declare @thisSepIndex int declare @lastSepIndex int declare @i int set @lastSepIndex = 0 set @i = 1 if Right(@splitString ,len(@separate)) <> @separate set @splitString = @splitString + @separate set @thisSepIndex = CharIndex(@separate,@splitString ,@lastSepIndex) while @lastSepIndex <= @thisSepIndex begin set @thisSplitStr = SubString(@splitString ,@lastSepIndex,@thisSepIndex-@lastSepIndex) set @lastSepIndex = @thisSepIndex + 1 set @thisSepIndex = CharIndex(@separate,@splitString ,@lastSepIndex) insert into @returnTable values(@i, @thisSplitStr) set @i = @i + 1 end return END go --drop procedure sp_add_userFunction create procedure sp_add_userFunction @functionList varchar(5000), @userId varchar(50) as DECLARE @count INTEGER DECLARE @index INTEGER declare @functionId varchar(50) set @count = (select count(*) from SplitStr(@functionList,',')) set @index = 0 begin transaction delete from xt_user_function where user_id = @userId if @@error <> 0 begin rollback transaction--发生错误则回滚事务,无条件退出l return end while @index<@count begin set @functionId = (select col_Value from SplitStr(@functionList,',') where id = @index + 1) insert into xt_user_function(function_id, user_id) values (@functionId, @userId) SET @index=@index+1 end if @@error <> 0 begin rollback transaction--发生错误则回滚事务,无条件退出l return end commit transaction --两条语句都完成,提交事务 go

2014-03-13

Delphi XE2 之 FireMonkey 入门学习笔记

Delphi XE2 之 FireMonkey 入门学习笔记

2013-12-07

虚拟机安装 Mac OS X 系统的引导文件darwin.iso 、darwin_snow_legacy.iso 和 Rebel EFI.iso

windows Xp 和win7 虚拟机中安装 mac 系统所需引导镜像文件,包括 darwin.iso 、darwin_snow_legacy.iso 、Rebel EFI.iso, 当cpu 为amd时用darwin_snow_legacy.iso 引导

2013-08-25

Win7下搭建android开发环境(eclipse+ADT+SDK)

Win7下搭建安卓android开发环境,超详细图文完美搭配

2013-08-25

播放本地多种格式的图片

播放本地多种格式的图片,并保存图片 if SaveDialog1.Execute then with TLinearBitmap.Create do try Assign(Image1.Picture.Bitmap); // To compress JPEG2000 files to 5% of raw bitmap size, set // ImageDLLLoader.Default.CompOptions:='rate=0.05'; SaveToFile&#40;SaveDialog1.FileName&#41;; finally Free; end;

2012-10-08

delphi 中鼠标移动事件

鼠标移动事件的应用 procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin self.X := X; self.Y := Y; Dbgrid1.Repaint; end;

2012-09-28

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除