在Delphi中实现的“汽车每跑6000公里(>=6000)换机油”的提示功能!

原创 2004年06月24日 16:03:00

首先,建立一个视图V_tishi,统计每辆车的车牌和行驶总公里数:
再建立一个表:tishi,用来存储某个时间段的汽车车牌和行驶公里数,
然后,通过比较V_tishi和tishi中的公里数得出该不该提示的结果。

  程序中用到的一些重要SQL语句:

--算差额
select tishi.car_chepai,V_tishi.sumlc-tishi.ts_gongli as chae
from  V_tishi  inner join tishi
on V_tishi.car_chepai=tishi.car_chepai
where V_tishi.sumlc-tishi.ts_gongli>=6000

---换机油
update tishi set tishi.ts_gongli=V_tishi.sumlc
from tishi inner join V_tishi on tishi.car_chepai=V_tishi.car_chepai

---触发器,删除相应公里数
CREATE TRIGGER tri_tishi ON [dbo].[shiyongjl]
FOR  DELETE
AS
declare @chepai varchar(50),
        @gongli float,
        @tsgongli float
select @chepai=car_chepai,@gongli=sy_licheng from deleted
select @tsgongli=ts_gongli from tishi where
car_chepai=@chepai
if @@rowcount=0
return
else
update tishi set
ts_gongli=@tsgongli-@gongli
where
car_chepai=@chepai

 

实现汽车租赁系统的计价功能

第一步:发现类。 第二步:发现类的属性 第三步:发现类的方法 第四步:优化设计 第五步:梳理运行过程...
  • MoRan_Lei
  • MoRan_Lei
  • 2016年12月26日 09:58
  • 4467

Js实现小车的跑

 html> html lang="en"> head> meta charset="UTF-8"> title>title> style> ...
  • u011060906
  • u011060906
  • 2017年08月03日 21:35
  • 219

tyvj p1015公路乘车-动态规划dp-完全背包

题目地址:http://www.tyvj.cn/p/1015 P1015 公路乘车         描述 一个特别的单行街道在每公里处有一个汽车站。顾客根据他们乘坐汽车的公里使来付费。例...
  • ly59782
  • ly59782
  • 2016年07月27日 14:38
  • 705

CAN在汽车电子中的应用

CAN在汽车电子中的应用
  • lile777
  • lile777
  • 2014年04月03日 10:38
  • 2631

ADSL自动更换IP的方法

打开记事本 输入@rasdial adsl /DISCONNECT@rasdial adsl user password保存为bat文件即可说明:  adsl:宽带连接名字  user:ADSL账号 ...
  • sibang
  • sibang
  • 2014年08月21日 16:45
  • 754

Delphi6 实现文本框的自动完成功能

function SHAutoComplete(hwndEdit: HWnd; dwFlags: DWORD): HResult; stdcall; external Shlwapi.dll;proc...
  • tanaya
  • tanaya
  • 2006年08月02日 13:56
  • 1828

汽车租赁系统

题目:汽车租赁系统 1. 语言和环境 A、实现语言:    C B、实现技术:    C语言 C、环境要求:    VC++6.0 2. 要求 实现一个汽车租赁系统。 功能和界面设...
  • u012707729
  • u012707729
  • 2014年06月13日 19:00
  • 1469

laravel之ajax搜索

laravel之ajax搜索
  • lmy_1
  • lmy_1
  • 2016年11月08日 16:53
  • 373

Delphi 的Application

TApplication是用于Delphi应用程序的类型,该类在单元forms中声明。TApplication是Delphi构造 Windows应用程序所需的类型,其方法和属性集中包括了 Window...
  • liquanhai
  • liquanhai
  • 2007年08月16日 09:47
  • 8007

汽车功能安全ISO 26262介绍

道路车辆功能安全规范——ISO26262主要定位在汽车行业中特定的电气器件、电子设备、可编程电子器件等专门用于汽车领域的部件,旨在提高汽车电子、电气产品功能安全。...
  • AI_Functional_safety
  • AI_Functional_safety
  • 2016年01月14日 21:21
  • 1793
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在Delphi中实现的“汽车每跑6000公里(>=6000)换机油”的提示功能!
举报原因:
原因补充:

(最多只允许输入30个字)