登录
首页 » Delphi源码 » Delphi SQLSERVER停车场收费管理系统

Delphi SQLSERVER停车场收费管理系统

于 2023-06-03 发布 文件大小:4.55 MB
0 846
下载积分: 2 下载次数: 1

代码说明:

Delphi SQLSERVER停车场收费管理系统,本系统涉及有多个硬件,运行后需要初始化硬件,读取硬件的配置数据,包括控制器。需要联网读取数据,比较综合的一套系统。可对挡车器、停车场照明系统进行管理,可财务报帐、年终结算等功能,主窗口启动时,先连接数据库和用户登录。硬件参数需要重新启动该程序才能生效,设置照明灯自动开关时间,向数据库中写入记录,控制硬件打开挡车器,开始事务:fee_station-结帐次数加1,维护费用AMaintain=0 ,start_fee增加。。。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi 应用程序背景与桌面融合在一起
    Delphi 应用程序背景与桌面融合在一起,运行后,显示windows 桌面上的内容,显示壁纸,拖动窗口移动,桌面背景并不移动,好像是一个桌面相框一样,实现代码:   for i:=0 to ControlCount-1 do   if Controls[i] is TGraphicControl then   begin    //使TLabel组件不透明显示    Controls[i].perform(WM_PAINT, TLabel(Controls[i]).canvas.handle, 0);   end;
    2022-02-02 23:31:59下载
    积分:1
  • Delphi 全屏播放视频窗口
    Delphi 全屏播放视频窗口,这是一个自动全屏的窗口,当你播放视频时,窗口会自动最大化,并且隐藏窗口的标题栏和状态栏,就像播放视频时的全屏效果一样。
    2022-01-26 06:52:10下载
    积分:1
  • Delphi 记录文件的读写
    Delphi 记录文件的读写,这个程序非数据库程序,实际上也不是文件读写程序,只是使用主窗口、子窗口在这之间传值。在子窗口中输入数据,确定后,会将数据添加到主窗口的StringGrid中,然后通过修改命令,从StringGrid中再读取出数据,进行修改保存,演示了文件内容的读取和写入的操作过程 。
    2022-02-12 09:49:41下载
    积分:1
  • Delphi窗口淡入淡出渐变fadein fadeout动画效果
    Delphi实现窗口的淡入淡出渐变fadein fadeout动画效果,除了渐变,还有其它的动画形式,比如从中心扩散、水平从左到右、水平从右到左、垂直从上到下、垂直从下到上等。本实例默认状态下是使用了淡入淡出渐变,其它动画效果被注释掉了,如果你想用,可以去掉注释标记。   //淡入效果   //AnimateWindow(self.Handle,1000,AW_CENTER or AW_ACTIVATE);   //从中心扩散   //AnimateWindow(self.Handle,1000,AW_HOR_POSITIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE);   //水平从左到右   //AnimateWindow(self.Handle,1000,AW_HOR_NEGATIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_NEGATIVE or AW_ACTIVATE);   //水平从右到左   //AnimateWindow(self.Handle,1000,AW_VER_POSITIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_POSITIVE or AW_ACTIVATE);   //垂直从上到下   //AnimateWindow(self.Handle,1000,AW_VER_NEGATIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_NEGATIVE or AW_ACTIVATE);   //垂直从下到上
    2022-06-11 17:51:21下载
    积分:1
  • 用Delphi生成图片水平交错的动态显示效果
    用Delphi生成图片水平交错的动态显示效果,是一个简单的图片动态显示效果,显示图片的时候,以水平左右交错的方式显示,可用于电子相册中,用于多张图片切换时的过渡动画效果。   本程序有个缺点:只支持BMP的图片,对JPG支持不好,其它格式也不行哦。
    2022-03-23 01:50:52下载
    积分:1
  • Delphi GetCurrentDirectory得到系统当前目录
    得到系统当前目录,Delphi 得到系统当前目录,这里使用了内置的GetCurrentDirectory函数来实现,比较方便,也比较简单。获取到系统目录后,是通过窗口的标题栏显示目录路径信息,在演示截图上请看窗口的标题栏,显示有程序当前所在的路径。关于GetCurrentDirectory用法,请参见以下两行代码:   GetCurrentDirectory(255,dir);//获得当前目录   form1.Caption:=dir;
    2022-07-07 13:11:54下载
    积分:1
  • Delphi 打印图形(图片)
    Delphi 打印图形,把图片打印出来,通过这个例子,你可以学习到:    strect:Trect;//定义打印输出矩形框的大小    temhi,temwd:integer;   begin    if DIGPrint.execute then    begin    temhi:=imgpic.picture.height;    temwd:=imgpic.picture.width;    while (temhi = printer.pageheight div 2)and    //将图形放大到打印页面的1/2大小    (temwd = printer.pagewidth div 2) do    begin    temhi:=temhi+temhi;    temwd:=temwd+temwd;    end;    with strect do //定义图形在页面上的中心位置输出    begin    left := (printer.pagewidth -temwd) div 2;    top := (printer.pageheight-temhi) div 2;    right := left+temwd;    bottom := top+temhi;    end;    with printer do    begin    begindoc;    canvas.stretchdraw(strect,imgpic.picture.graphic);    enddoc;    end;    end;
    2022-10-24 23:35:04下载
    积分:1
  • Delphi 在图片中写入文字
    在图片中写入文字(写入文字后按回车键),Delphi 图片合成 效果,图片与字符的合并,在图片中写入文字,就像PhotoShop中完成的效果,有兴趣的参考源码吧。
    2023-03-24 10:00:04下载
    积分:1
  • Delphi 演示使用演示Brush对象的各种风格
    Delphi 演示使用演示Brush笔刷对象后生成的各种风格,一种演示了7种笔刷效果,定义了一个存储绘图风格的7维数组,然后使用For循环对绘图风格数组赋值,然后使用Canvas.Brush.Style来预览风格。这些笔刷风格都是浅色彩的风格。
    2022-07-08 18:13:17下载
    积分:1
  • Delphi 定制自己的幽灵程序
    Delphi 定制自己的幽灵程序,这个程序在Windows托盘处显示图标,而且退出后在进程中仍会运行,像幽灵一样,托盘处可右键弹出菜单,本程序主要是图标和菜单的一些操作,属于UI界面的范畴吧,这是我个人认为的,部分代码摘录:    NormalIcon,DisabledIcon:TIcon;    //正常和失效两种情况下的图标    Status:Boolean;    //标志"允许使用"还是"禁止使用"    procedure InstallIcon;    procedure ChangeIcon(s:Boolean);    procedure UnInstallIcon;    procedure IconOnClick(var message:TMessage); message MI_ICONEVENT;    //捕捉自定义消息MI_ICONEVENT的过程IconOnClick的声明
    2023-04-07 01:50:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载