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

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

    5
    659
    404B
    2019-10-12
    44
  • 手机版列表html

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

    4
    550
    120KB
    2014-12-29
    20
  • 产品介绍网站模板

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

    5
    437
    1.76MB
    2014-12-15
    26
  • html投票系统

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

    4
    2519
    65KB
    2014-11-12
    50
  • php后台管理模块

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

    5
    135
    142KB
    2014-10-29
    10
  • php 编写的简单雇员管理系统

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

    4
    160
    1.27MB
    2014-10-29
    10
  • delphi 初始化工具

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

    4
    64
    663KB
    2014-08-03
    9
  • Delphi7 devexpress直接安装版

    DevExpress for delphi 直接安装版

    5
    1031
    20.51MB
    2014-06-08
    45
  • delphi TRzListView 的用法

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

    0
    207
    5KB
    2014-03-27
    50
  • 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 WHERE id = @DishId; --更新数据 FETCH NEXT FROM My_Cursor INTO @DishId, @OrderNum; --读取下一行数据(将 t_order_temp 表中的 dish_id 放到 @DishId 变量中) END CLOSE My_Cursor; --关闭游标 DEALLOCATE My_Cursor; --释放游标 if @@error <> 0 begin rollback transaction--发生错误则回滚事务,无条件退出l return end delete from t_order_temp where userId = @userId if @@error <> 0 begin rollback transaction--发生错误则回滚事务,无条件退出l return end commit transaction --所有语句都完成,提交事务 go --新建视图 v_order_temp create view v_order_temp as select a.userId as userId, b.name_ch as dishName_ch, b.name_en as dishName_en, a.price as price, a.order_num as order_num, e.name_ch as dishUnitName_ch, e.name_en as dishUnitName_en, isnull(c.name_ch, '')+isnull(','+d.name_ch, '') as tasteName_ch, isnull(c.name_en, '')+isnull(','+d.name_en, '') as tasteName_en, a.remark as remark from t_order_temp a left join t_dishes b on a.dish_id = b.id left join t_taste c on a.taste_id1 = c.id left join t_taste d on a.taste_id2 = d.id left join t_dish_unit e on b.dishUnit_id = e.id go --新建表 t_title_caption create table t_title_caption ( code nvarchar(20), name_ch nvarchar(20), name_en nvarchar(80), item_index int ) go

    0
    260
    2KB
    2014-03-26
    48
  • 创作能手

    授予每个自然周发布1篇到3篇原创IT博文的用户
关注 私信
上传资源赚积分or赚钱