开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 文章/文档 > 软件设计/软件工程 > 查看源码
frmDrJC.frm
资源名称：0123..rar　[点击查看]
上传用户：naidiweb
上传日期：2013-08-15
资源大小：672k
文件大小：26k
源码类别：

软件设计/软件工程

开发平台：

WORD

frmDrJC.frm：源码内容
  1. VERSION 5.00
  2. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  3. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  4. Begin VB.Form frmDrJC 
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "驾驶员奖罚"
  7.    ClientHeight    =   3495
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   7755
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3495
  16.    ScaleWidth      =   7755
  17.    Begin VB.TextBox Text9 
  18.       Enabled         =   0   'False
  19.       Height          =   270
  20.       Left            =   5310
  21.       TabIndex        =   23
  22.       Top             =   795
  23.       Width           =   1065
  24.    End
  25.    Begin MSAdodcLib.Adodc AdoYY 
  26.       Height          =   330
  27.       Left            =   180
  28.       Top             =   1680
  29.       Visible         =   0   'False
  30.       Width           =   1815
  31.       _ExtentX        =   3201
  32.       _ExtentY        =   582
  33.       ConnectMode     =   0
  34.       CursorLocation  =   3
  35.       IsolationLevel  =   -1
  36.       ConnectionTimeout=   15
  37.       CommandTimeout  =   30
  38.       CursorType      =   3
  39.       LockType        =   3
  40.       CommandType     =   1
  41.       CursorOptions   =   0
  42.       CacheSize       =   50
  43.       MaxRecords      =   0
  44.       BOFAction       =   0
  45.       EOFAction       =   0
  46.       ConnectStringType=   1
  47.       Appearance      =   1
  48.       BackColor       =   -2147483643
  49.       ForeColor       =   -2147483640
  50.       Orientation     =   0
  51.       Enabled         =   -1
  52.       Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
  53.       OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
  54.       OLEDBFile       =   ""
  55.       DataSourceName  =   ""
  56.       OtherAttributes =   ""
  57.       UserName        =   ""
  58.       Password        =   ""
  59.       RecordSource    =   "select * from 车辆运营表"
  60.       Caption         =   "AdoYY"
  61.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  62.          Name            =   "宋体"
  63.          Size            =   9
  64.          Charset         =   134
  65.          Weight          =   400
  66.          Underline       =   0   'False
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       _Version        =   393216
  71.    End
  72.    Begin MSAdodcLib.Adodc AdoWX 
  73.       Height          =   330
  74.       Left            =   180
  75.       Top             =   2595
  76.       Visible         =   0   'False
  77.       Width           =   1815
  78.       _ExtentX        =   3201
  79.       _ExtentY        =   582
  80.       ConnectMode     =   0
  81.       CursorLocation  =   3
  82.       IsolationLevel  =   -1
  83.       ConnectionTimeout=   15
  84.       CommandTimeout  =   30
  85.       CursorType      =   3
  86.       LockType        =   3
  87.       CommandType     =   1
  88.       CursorOptions   =   0
  89.       CacheSize       =   50
  90.       MaxRecords      =   0
  91.       BOFAction       =   0
  92.       EOFAction       =   0
  93.       ConnectStringType=   1
  94.       Appearance      =   1
  95.       BackColor       =   -2147483643
  96.       ForeColor       =   -2147483640
  97.       Orientation     =   0
  98.       Enabled         =   -1
  99.       Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
  100.       OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
  101.       OLEDBFile       =   ""
  102.       DataSourceName  =   ""
  103.       OtherAttributes =   ""
  104.       UserName        =   ""
  105.       Password        =   ""
  106.       RecordSource    =   "select * from 车辆维修表"
  107.       Caption         =   "AdoWX"
  108.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  109.          Name            =   "宋体"
  110.          Size            =   9
  111.          Charset         =   134
  112.          Weight          =   400
  113.          Underline       =   0   'False
  114.          Italic          =   0   'False
  115.          Strikethrough   =   0   'False
  116.       EndProperty
  117.       _Version        =   393216
  118.    End
  119.    Begin MSAdodcLib.Adodc AdoSG 
  120.       Height          =   330
  121.       Left            =   180
  122.       Top             =   1965
  123.       Visible         =   0   'False
  124.       Width           =   1815
  125.       _ExtentX        =   3201
  126.       _ExtentY        =   582
  127.       ConnectMode     =   0
  128.       CursorLocation  =   3
  129.       IsolationLevel  =   -1
  130.       ConnectionTimeout=   15
  131.       CommandTimeout  =   30
  132.       CursorType      =   3
  133.       LockType        =   3
  134.       CommandType     =   1
  135.       CursorOptions   =   0
  136.       CacheSize       =   50
  137.       MaxRecords      =   0
  138.       BOFAction       =   0
  139.       EOFAction       =   0
  140.       ConnectStringType=   1
  141.       Appearance      =   1
  142.       BackColor       =   -2147483643
  143.       ForeColor       =   -2147483640
  144.       Orientation     =   0
  145.       Enabled         =   -1
  146.       Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
  147.       OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
  148.       OLEDBFile       =   ""
  149.       DataSourceName  =   ""
  150.       OtherAttributes =   ""
  151.       UserName        =   ""
  152.       Password        =   ""
  153.       RecordSource    =   "select * from 车辆事故表"
  154.       Caption         =   "AdoSG"
  155.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  156.          Name            =   "宋体"
  157.          Size            =   9
  158.          Charset         =   134
  159.          Weight          =   400
  160.          Underline       =   0   'False
  161.          Italic          =   0   'False
  162.          Strikethrough   =   0   'False
  163.       EndProperty
  164.       _Version        =   393216
  165.    End
  166.    Begin MSAdodcLib.Adodc AdoWZ 
  167.       Height          =   330
  168.       Left            =   180
  169.       Top             =   2265
  170.       Visible         =   0   'False
  171.       Width           =   1815
  172.       _ExtentX        =   3201
  173.       _ExtentY        =   582
  174.       ConnectMode     =   0
  175.       CursorLocation  =   3
  176.       IsolationLevel  =   -1
  177.       ConnectionTimeout=   15
  178.       CommandTimeout  =   30
  179.       CursorType      =   3
  180.       LockType        =   3
  181.       CommandType     =   1
  182.       CursorOptions   =   0
  183.       CacheSize       =   50
  184.       MaxRecords      =   0
  185.       BOFAction       =   0
  186.       EOFAction       =   0
  187.       ConnectStringType=   1
  188.       Appearance      =   1
  189.       BackColor       =   -2147483643
  190.       ForeColor       =   -2147483640
  191.       Orientation     =   0
  192.       Enabled         =   -1
  193.       Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
  194.       OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
  195.       OLEDBFile       =   ""
  196.       DataSourceName  =   ""
  197.       OtherAttributes =   ""
  198.       UserName        =   ""
  199.       Password        =   ""
  200.       RecordSource    =   "select * from 车辆违章表"
  201.       Caption         =   "AdoWZ"
  202.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  203.          Name            =   "宋体"
  204.          Size            =   9
  205.          Charset         =   134
  206.          Weight          =   400
  207.          Underline       =   0   'False
  208.          Italic          =   0   'False
  209.          Strikethrough   =   0   'False
  210.       EndProperty
  211.       _Version        =   393216
  212.    End
  213.    Begin VB.TextBox TName 
  214.       BackColor       =   &H00E0E0E0&
  215.       Height          =   270
  216.       Left            =   1335
  217.       TabIndex        =   21
  218.       Top             =   465
  219.       Width           =   1350
  220.    End
  221.    Begin VB.CommandButton CmdPrint 
  222.       Caption         =   "打印(&P)"
  223.       Height          =   315
  224.       Left            =   6645
  225.       TabIndex        =   19
  226.       Top             =   495
  227.       Width           =   930
  228.    End
  229.    Begin VB.TextBox Text8 
  230.       BackColor       =   &H00E0E0E0&
  231.       Enabled         =   0   'False
  232.       Height          =   270
  233.       Left            =   1335
  234.       TabIndex        =   18
  235.       Top             =   810
  236.       Width           =   1350
  237.    End
  238.    Begin VB.TextBox Text7 
  239.       BackColor       =   &H00E0E0E0&
  240.       Enabled         =   0   'False
  241.       Height          =   270
  242.       Left            =   3705
  243.       TabIndex        =   16
  244.       Top             =   795
  245.       Width           =   630
  246.    End
  247.    Begin VB.CommandButton CmdSave 
  248.       Caption         =   "保存(&S)"
  249.       Height          =   315
  250.       Left            =   6645
  251.       TabIndex        =   15
  252.       Top             =   840
  253.       Width           =   930
  254.    End
  255.    Begin VB.TextBox Text6 
  256.       BackColor       =   &H00C0C0FF&
  257.       Enabled         =   0   'False
  258.       Height          =   270
  259.       Left            =   5310
  260.       TabIndex        =   14
  261.       Top             =   465
  262.       Width           =   630
  263.    End
  264.    Begin VB.TextBox Text5 
  265.       BackColor       =   &H00C0C0FF&
  266.       Enabled         =   0   'False
  267.       Height          =   270
  268.       Left            =   5325
  269.       TabIndex        =   13
  270.       Top             =   120
  271.       Width           =   630
  272.    End
  273.    Begin VB.TextBox Text4 
  274.       BackColor       =   &H00C0C0FF&
  275.       Enabled         =   0   'False
  276.       Height          =   270
  277.       Left            =   3705
  278.       TabIndex        =   12
  279.       Top             =   450
  280.       Width           =   630
  281.    End
  282.    Begin VB.TextBox Text3 
  283.       BackColor       =   &H00C0C0FF&
  284.       Enabled         =   0   'False
  285.       Height          =   270
  286.       Left            =   6945
  287.       TabIndex        =   11
  288.       Top             =   90
  289.       Width           =   630
  290.    End
  291.    Begin VB.TextBox Text2 
  292.       BackColor       =   &H00C0C0FF&
  293.       Enabled         =   0   'False
  294.       Height          =   270
  295.       Left            =   3705
  296.       TabIndex        =   10
  297.       Top             =   120
  298.       Width           =   630
  299.    End
  300.    Begin VB.Frame Frame1 
  301.       Height          =   2220
  302.       Left            =   45
  303.       TabIndex        =   8
  304.       Top             =   1140
  305.       Width           =   7605
  306.       Begin MSAdodcLib.Adodc AdoJF 
  307.          Height          =   330
  308.          Left            =   135
  309.          Top             =   1770
  310.          Visible         =   0   'False
  311.          Width           =   1830
  312.          _ExtentX        =   3228
  313.          _ExtentY        =   582
  314.          ConnectMode     =   0
  315.          CursorLocation  =   3
  316.          IsolationLevel  =   -1
  317.          ConnectionTimeout=   15
  318.          CommandTimeout  =   30
  319.          CursorType      =   3
  320.          LockType        =   3
  321.          CommandType     =   1
  322.          CursorOptions   =   0
  323.          CacheSize       =   50
  324.          MaxRecords      =   0
  325.          BOFAction       =   0
  326.          EOFAction       =   0
  327.          ConnectStringType=   1
  328.          Appearance      =   1
  329.          BackColor       =   -2147483643
  330.          ForeColor       =   -2147483640
  331.          Orientation     =   0
  332.          Enabled         =   -1
  333.          Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
  334.          OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
  335.          OLEDBFile       =   ""
  336.          DataSourceName  =   ""
  337.          OtherAttributes =   ""
  338.          UserName        =   ""
  339.          Password        =   ""
  340.          RecordSource    =   "select * from 奖罚表"
  341.          Caption         =   "AdoJF"
  342.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  343.             Name            =   "宋体"
  344.             Size            =   9
  345.             Charset         =   134
  346.             Weight          =   400
  347.             Underline       =   0   'False
  348.             Italic          =   0   'False
  349.             Strikethrough   =   0   'False
  350.          EndProperty
  351.          _Version        =   393216
  352.       End
  353.       Begin MSDataGridLib.DataGrid DataGrid1 
  354.          Bindings        =   "frmDrJC.frx":0000
  355.          Height          =   1845
  356.          Left            =   135
  357.          TabIndex        =   9
  358.          Top             =   240
  359.          Width           =   7365
  360.          _ExtentX        =   12991
  361.          _ExtentY        =   3254
  362.          _Version        =   393216
  363.          AllowUpdate     =   0   'False
  364.          HeadLines       =   1
  365.          RowHeight       =   15
  366.          FormatLocked    =   -1  'True
  367.          BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  368.             Name            =   "宋体"
  369.             Size            =   9
  370.             Charset         =   134
  371.             Weight          =   400
  372.             Underline       =   0   'False
  373.             Italic          =   0   'False
  374.             Strikethrough   =   0   'False
  375.          EndProperty
  376.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  377.             Name            =   "宋体"
  378.             Size            =   9
  379.             Charset         =   134
  380.             Weight          =   400
  381.             Underline       =   0   'False
  382.             Italic          =   0   'False
  383.             Strikethrough   =   0   'False
  384.          EndProperty
  385.          ColumnCount     =   10
  386.          BeginProperty Column00 
  387.             DataField       =   "车牌号码"
  388.             Caption         =   "车牌号码"
  389.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  390.                Type            =   0
  391.                Format          =   ""
  392.                HaveTrueFalseNull=   0
  393.                FirstDayOfWeek  =   0
  394.                FirstWeekOfYear =   0
  395.                LCID            =   2052
  396.                SubFormatType   =   0
  397.             EndProperty
  398.          EndProperty
  399.          BeginProperty Column01 
  400.             DataField       =   "姓名"
  401.             Caption         =   "姓名"
  402.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  403.                Type            =   0
  404.                Format          =   ""
  405.                HaveTrueFalseNull=   0
  406.                FirstDayOfWeek  =   0
  407.                FirstWeekOfYear =   0
  408.                LCID            =   2052
  409.                SubFormatType   =   0
  410.             EndProperty
  411.          EndProperty
  412.          BeginProperty Column02 
  413.             DataField       =   "运营收入"
  414.             Caption         =   "运营收入"
  415.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  416.                Type            =   0
  417.                Format          =   ""
  418.                HaveTrueFalseNull=   0
  419.                FirstDayOfWeek  =   0
  420.                FirstWeekOfYear =   0
  421.                LCID            =   2052
  422.                SubFormatType   =   0
  423.             EndProperty
  424.          EndProperty
  425.          BeginProperty Column03 
  426.             DataField       =   "运营次数"
  427.             Caption         =   "运营次数"
  428.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  429.                Type            =   0
  430.                Format          =   ""
  431.                HaveTrueFalseNull=   0
  432.                FirstDayOfWeek  =   0
  433.                FirstWeekOfYear =   0
  434.                LCID            =   2052
  435.                SubFormatType   =   0
  436.             EndProperty
  437.          EndProperty
  438.          BeginProperty Column04 
  439.             DataField       =   "维修费用"
  440.             Caption         =   "维修费用"
  441.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  442.                Type            =   0
  443.                Format          =   ""
  444.                HaveTrueFalseNull=   0
  445.                FirstDayOfWeek  =   0
  446.                FirstWeekOfYear =   0
  447.                LCID            =   2052
  448.                SubFormatType   =   0
  449.             EndProperty
  450.          EndProperty
  451.          BeginProperty Column05 
  452.             DataField       =   "违章次数"
  453.             Caption         =   "违章次数"
  454.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  455.                Type            =   0
  456.                Format          =   ""
  457.                HaveTrueFalseNull=   0
  458.                FirstDayOfWeek  =   0
  459.                FirstWeekOfYear =   0
  460.                LCID            =   2052
  461.                SubFormatType   =   0
  462.             EndProperty
  463.          EndProperty
  464.          BeginProperty Column06 
  465.             DataField       =   "事故次数"
  466.             Caption         =   "事故次数"
  467.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  468.                Type            =   0
  469.                Format          =   ""
  470.                HaveTrueFalseNull=   0
  471.                FirstDayOfWeek  =   0
  472.                FirstWeekOfYear =   0
  473.                LCID            =   2052
  474.                SubFormatType   =   0
  475.             EndProperty
  476.          EndProperty
  477.          BeginProperty Column07 
  478.             DataField       =   "日期"
  479.             Caption         =   "日期"
  480.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  481.                Type            =   0
  482.                Format          =   ""
  483.                HaveTrueFalseNull=   0
  484.                FirstDayOfWeek  =   0
  485.                FirstWeekOfYear =   0
  486.                LCID            =   2052
  487.                SubFormatType   =   0
  488.             EndProperty
  489.          EndProperty
  490.          BeginProperty Column08 
  491.             DataField       =   "每月得分"
  492.             Caption         =   "每月得分"
  493.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  494.                Type            =   0
  495.                Format          =   ""
  496.                HaveTrueFalseNull=   0
  497.                FirstDayOfWeek  =   0
  498.                FirstWeekOfYear =   0
  499.                LCID            =   2052
  500.                SubFormatType   =   0
  501.             EndProperty
  502.          EndProperty
  503.          BeginProperty Column09 
  504.             DataField       =   "每月奖金"
  505.             Caption         =   "每月奖金"
  506.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  507.                Type            =   0
  508.                Format          =   ""
  509.                HaveTrueFalseNull=   0
  510.                FirstDayOfWeek  =   0
  511.                FirstWeekOfYear =   0
  512.                LCID            =   2052
  513.                SubFormatType   =   0
  514.             EndProperty
  515.          EndProperty
  516.          SplitCount      =   1
  517.          BeginProperty Split0 
  518.             BeginProperty Column00 
  519.                ColumnWidth     =   884.976
  520.             EndProperty
  521.             BeginProperty Column01 
  522.                ColumnWidth     =   659.906
  523.             EndProperty
  524.             BeginProperty Column02 
  525.                ColumnWidth     =   854.929
  526.             EndProperty
  527.             BeginProperty Column03 
  528.                ColumnWidth     =   854.929
  529.             EndProperty
  530.             BeginProperty Column04 
  531.                ColumnWidth     =   854.929
  532.             EndProperty
  533.             BeginProperty Column05 
  534.                ColumnWidth     =   794.835
  535.             EndProperty
  536.             BeginProperty Column06 
  537.                ColumnWidth     =   824.882
  538.             EndProperty
  539.             BeginProperty Column07 
  540.                ColumnWidth     =   794.835
  541.             EndProperty
  542.             BeginProperty Column08 
  543.                ColumnWidth     =   854.929
  544.             EndProperty
  545.             BeginProperty Column09 
  546.                ColumnWidth     =   840.189
  547.             EndProperty
  548.          EndProperty
  549.       End
  550.    End
  551.    Begin VB.TextBox Text1 
  552.       BackColor       =   &H00E0E0E0&
  553.       Height          =   270
  554.       Left            =   1335
  555.       TabIndex        =   0
  556.       Top             =   120
  557.       Width           =   1350
  558.    End
  559.    Begin VB.Label Label10 
  560.       Caption         =   "本月奖金："
  561.       Height          =   225
  562.       Left            =   4440
  563.       TabIndex        =   22
  564.       Top             =   810
  565.       Width           =   945
  566.    End
  567.    Begin VB.Label Label9 
  568.       Caption         =   "驾驶员姓名："
  569.       Height          =   210
  570.       Left            =   120
  571.       TabIndex        =   20
  572.       Top             =   480
  573.       Width           =   1230
  574.    End
  575.    Begin VB.Label Label8 
  576.       Caption         =   "日期："
  577.       Height          =   165
  578.       Left            =   120
  579.       TabIndex        =   17
  580.       Top             =   810
  581.       Width           =   765
  582.    End
  583.    Begin VB.Label Label7 
  584.       Caption         =   "司机驾驶车号："
  585.       Height          =   210
  586.       Left            =   120
  587.       TabIndex        =   7
  588.       Top             =   165
  589.       Width           =   1425
  590.    End
  591.    Begin VB.Label Label6 
  592.       Caption         =   "运营次数："
  593.       Height          =   225
  594.       Left            =   2775
  595.       TabIndex        =   6
  596.       Top             =   465
  597.       Width           =   945
  598.    End
  599.    Begin VB.Label Label5 
  600.       Caption         =   "违章次数："
  601.       Height          =   225
  602.       Left            =   4440
  603.       TabIndex        =   5
  604.       Top             =   480
  605.       Width           =   945
  606.    End
  607.    Begin VB.Label Label4 
  608.       Caption         =   "事故次数："
  609.       Height          =   225
  610.       Left            =   4440
  611.       TabIndex        =   4
  612.       Top             =   150
  613.       Width           =   945
  614.    End
  615.    Begin VB.Label Label3 
  616.       Caption         =   "本月得分："
  617.       Height          =   225
  618.       Left            =   2775
  619.       TabIndex        =   3
  620.       Top             =   810
  621.       Width           =   945
  622.    End
  623.    Begin VB.Label Label2 
  624.       Caption         =   "维修费用："
  625.       Height          =   225
  626.       Left            =   6030
  627.       TabIndex        =   2
  628.       Top             =   165
  629.       Width           =   945
  630.    End
  631.    Begin VB.Label Label1 
  632.       Caption         =   "运营收入："
  633.       Height          =   225
  634.       Left            =   2775
  635.       TabIndex        =   1
  636.       Top             =   165
  637.       Width           =   945
  638.    End
  639. End
  640. Attribute VB_Name = "frmDrJC"
  641. Attribute VB_GlobalNameSpace = False
  642. Attribute VB_Creatable = False
  643. Attribute VB_PredeclaredId = True
  644. Attribute VB_Exposed = False
  645. Private Sub cmdSave_Click()
  646.     If Text1.Text = "" Then
  647.        MsgBox "车牌号码，不能为空！", , "系统提示"
  648.        Text1.SetFocus
  649.        Exit Sub
  650.     End If
  651.     Dim strdate As String
  652.     Dim strNo As String
  653.     strdate = Mid(Date, 1, 7)
  654.     AdoJF.RecordSource = "select * from 奖罚表 where 车牌号码='" + Text1.Text + "'"
  655.     AdoJF.Refresh
  656.     For i = 0 To AdoJF.Recordset.RecordCount - 1
  657.         On Error Resume Next
  658.         strNo = Mid(AdoJF.Recordset.Fields(7), 1, 7)
  659.         AdoJF.Recordset.MoveNext
  660.         strNo = Mid(AdoJF.Recordset.Fields(7), 1, 7)
  661.         If strdate = strNo Then
  662.            MsgBox "车牌号码为：" + Text1.Text + "本月已经统计过运营情况了", , "系统提示"
  663.            Text1.Text = ""
  664.            Text1.SetFocus
  665.            Exit Sub
  666.         End If
  667.     Next i
  668.   On Error Resume Next
  669.   AdoJF.Recordset.AddNew
  670.   AdoJF.Recordset.Fields("车牌号码") = Text1.Text
  671.   AdoJF.Recordset.Fields("姓名") = TName.Text
  672.   AdoJF.Recordset.Fields("运营收入") = Text2.Text
  673.   AdoJF.Recordset.Fields("运营次数") = Text4.Text
  674.   AdoJF.Recordset.Fields("维修费用") = Text3.Text
  675.   AdoJF.Recordset.Fields("违章次数") = Text6.Text
  676.   AdoJF.Recordset.Fields("事故次数") = Text5.Text
  677.   AdoJF.Recordset.Fields("日期") = Text8.Text
  678.   AdoJF.Recordset.Fields("每月得分") = Text7.Text
  679.   AdoJF.Recordset.Fields("每月奖金") = Text9.Text
  680.   AdoJF.Recordset.Update
  681.   Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = ""
  682.   Text5.Text = "": Text6.Text = "": Text7.Text = "": Text8.Text = ""
  683.   TName.Text = "": Text9.Text = ""
  684. End Sub
  685. Private Sub Cmdprint_Click()
  686.   DataReport1.Show
  687. End Sub
  688. Private Sub Form_Load()
  689.   frmDrJC.Width = 7875: frmDrJC.Height = 4080
  690.   Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = ""
  691.   Text5.Text = "": Text6.Text = "": Text7.Text = "": Text8.Text = ""
  692.   TName.Text = "": Text9.Text = ""
  693. End Sub
  695. Private Sub Text1_KeyPress(KeyAscii As Integer)
  696.   If KeyAscii = 13 Then
  697.      TName.SetFocus
  698.   End If
  699. End Sub
  701. Private Sub Text1_LostFocus()
  702.    Dim rss1 As New ADODB.Recordset
  703.      Set rss1 = adoCon.Execute("select * from 车辆异动表 where 车牌号码='" & Text1.Text & "'")
  704.      If rss1.EOF Then
  705.      Else
  706.         MsgBox "该车为异动车辆！", , "系统提示"
  707.         Text1.Text = ""
  708.         Text1.SetFocus
  709.         Exit Sub
  710.      End If
  711.     rss1.Close
  712.     Dim rss2 As New ADODB.Recordset
  713.      Set rss2 = adoCon.Execute("select * from 车辆报废表 where 车牌号码='" & Text1.Text & "'")
  714.      If rss2.EOF Then
  715.      Else
  716.         MsgBox "该车已经报废！", , "系统提示"
  717.         Text1.Text = ""
  718.         Text1.SetFocus
  719.         Exit Sub
  720.      End If
  721.     rss2.Close
  722.        
  723.   If Text1.Text = "" Then Exit Sub
  724.   Text8.Text = Date
  725.   On Error Resume Next
  726.   AdoYY.RecordSource = "select * from 车辆运营表 where 车牌号码='" & Text1.Text & "'"
  727.   AdoYY.Refresh
  728.     
  729.   If AdoYY.Recordset.RecordCount > 0 Then
  730.     Else
  731.      MsgBox "此车没有参加运营！", , "系统提示"
  732.      Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = ""
  733.      Text5.Text = "": Text6.Text = "": Text7.Text = "": Text8.Text = ""
  734.      TName.Text = "": Text9.Text = ""
  735.      Exit Sub
  736.      AdoYY.Recordset.Close
  737.   End If
  738.   AdoYY.RecordSource = "select sum(运营收入) as 收入,count(运营收入) as 次数 from 车辆运营表 where 车牌号码='" & Text1.Text & "'"
  739.   AdoYY.Refresh
  740.   Text2.Text = AdoYY.Recordset.Fields(0).Value
  741.   Text4.Text = AdoYY.Recordset.Fields(1).Value
  742.   AdoWX.RecordSource = "select sum(共计费用) as 费用 from 车辆维修表 where 车牌号码='" & Text1.Text & "'"
  743.   AdoWX.Refresh
  744.   Text3.Text = AdoWX.Recordset.Fields(0)
  745.   AdoSG.RecordSource = "select count(车牌号码) as 事故次数 from 车辆事故表 where 车牌号码='" & Text1.Text & "'"
  746.   AdoSG.Refresh
  747.   Text5.Text = AdoSG.Recordset.Fields(0)
  748.   AdoWZ.RecordSource = "select count(车牌号码) as 违章次数 from 车辆违章表 where 车牌号码='" & Text1.Text & "'"
  749.   AdoWZ.Refresh
  750.   Text6.Text = AdoWZ.Recordset.Fields(0)
  751.   If Val(tex4.Text) > 30 Then
  752.      Text7.Text = 10 - (Text5.Text * 10 + Text6.Text * 2 + (30 - Text4.Text) * 0.3)
  753.   Else  '>=30次
  754.      Text7.Text = 10 - (Text5.Text * 10 + Text6.Text * 2)
  755.   End If
  756.   If Val(Text7.Text) > 0 Then
  757.       Text9.Text = ((Val(Text2.Text) * 0.2 - Val(Text3.Text) * 0.4) * Val(Text7.Text) * 0.1)
  758.   Else
  759.      Text9.Text = 0
  760.   End If
  761. End Sub
  763. Private Sub TName_KeyPress(KeyAscii As Integer)
  764.   If KeyAscii = 13 Then
  765.      CmdSave.SetFocus
  766.   End If
  767. End Sub