F_PeiXunXiangMuShiShi.frm
上传用户:xiao_xia32
上传日期:2022-07-21
资源大小:1174k
文件大小:59k
源码类别:

企业管理

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  3. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  4. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  5. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  6. Begin VB.Form F_PeiXunXiangMuShiShi 
  7.    BorderStyle     =   3  'Fixed Dialog
  8.    Caption         =   "培训项目实施表"
  9.    ClientHeight    =   8685
  10.    ClientLeft      =   1440
  11.    ClientTop       =   585
  12.    ClientWidth     =   11895
  13.    ControlBox      =   0   'False
  14.    KeyPreview      =   -1  'True
  15.    LinkTopic       =   "Form1"
  16.    LockControls    =   -1  'True
  17.    MaxButton       =   0   'False
  18.    MinButton       =   0   'False
  19.    Moveable        =   0   'False
  20.    ScaleHeight     =   8685
  21.    ScaleWidth      =   11895
  22.    ShowInTaskbar   =   0   'False
  23.    StartUpPosition =   2  '屏幕中心
  24.    Begin TabDlg.SSTab SSTab1 
  25.       Height          =   8655
  26.       Left            =   120
  27.       TabIndex        =   41
  28.       Top             =   0
  29.       Width           =   11685
  30.       _ExtentX        =   20611
  31.       _ExtentY        =   15266
  32.       _Version        =   393216
  33.       Tabs            =   2
  34.       TabHeight       =   520
  35.       TabCaption(0)   =   "编  辑"
  36.       TabPicture(0)   =   "F_PeiXunXiangMuShiShi.frx":0000
  37.       Tab(0).ControlEnabled=   -1  'True
  38.       Tab(0).Control(0)=   "lblLabels(2)"
  39.       Tab(0).Control(0).Enabled=   0   'False
  40.       Tab(0).Control(1)=   "lblLabels(1)"
  41.       Tab(0).Control(1).Enabled=   0   'False
  42.       Tab(0).Control(2)=   "lblLabels(0)"
  43.       Tab(0).Control(2).Enabled=   0   'False
  44.       Tab(0).Control(3)=   "lblLabels(31)"
  45.       Tab(0).Control(3).Enabled=   0   'False
  46.       Tab(0).Control(4)=   "Frame9"
  47.       Tab(0).Control(4).Enabled=   0   'False
  48.       Tab(0).Control(5)=   "Frame1"
  49.       Tab(0).Control(5).Enabled=   0   'False
  50.       Tab(0).Control(6)=   "txtFields(2)"
  51.       Tab(0).Control(6).Enabled=   0   'False
  52.       Tab(0).Control(7)=   "DTPicker1"
  53.       Tab(0).Control(7).Enabled=   0   'False
  54.       Tab(0).Control(8)=   "Frame12"
  55.       Tab(0).Control(8).Enabled=   0   'False
  56.       Tab(0).Control(9)=   "Frame8"
  57.       Tab(0).Control(9).Enabled=   0   'False
  58.       Tab(0).Control(10)=   "Frame7"
  59.       Tab(0).Control(10).Enabled=   0   'False
  60.       Tab(0).Control(11)=   "Frame6"
  61.       Tab(0).Control(11).Enabled=   0   'False
  62.       Tab(0).Control(12)=   "Frame3"
  63.       Tab(0).Control(12).Enabled=   0   'False
  64.       Tab(0).Control(13)=   "Frame2"
  65.       Tab(0).Control(13).Enabled=   0   'False
  66.       Tab(0).Control(14)=   "txtFields(0)"
  67.       Tab(0).Control(14).Enabled=   0   'False
  68.       Tab(0).Control(15)=   "txtFields(10)"
  69.       Tab(0).Control(15).Enabled=   0   'False
  70.       Tab(0).Control(16)=   "Frame4"
  71.       Tab(0).Control(16).Enabled=   0   'False
  72.       Tab(0).Control(17)=   "Frame11"
  73.       Tab(0).Control(17).Enabled=   0   'False
  74.       Tab(0).Control(18)=   "Picture1"
  75.       Tab(0).Control(18).Enabled=   0   'False
  76.       Tab(0).ControlCount=   19
  77.       TabCaption(1)   =   "列  表"
  78.       TabPicture(1)   =   "F_PeiXunXiangMuShiShi.frx":001C
  79.       Tab(1).ControlEnabled=   0   'False
  80.       Tab(1).Control(0)=   "Frame13"
  81.       Tab(1).Control(0).Enabled=   0   'False
  82.       Tab(1).ControlCount=   1
  83.       Begin VB.PictureBox Picture1 
  84.          Appearance      =   0  'Flat
  85.          BorderStyle     =   0  'None
  86.          BeginProperty Font 
  87.             Name            =   "MS Sans Serif"
  88.             Size            =   8.25
  89.             Charset         =   0
  90.             Weight          =   400
  91.             Underline       =   0   'False
  92.             Italic          =   0   'False
  93.             Strikethrough   =   0   'False
  94.          EndProperty
  95.          ForeColor       =   &H80000008&
  96.          Height          =   440
  97.          Left            =   4440
  98.          ScaleHeight     =   435
  99.          ScaleWidth      =   7080
  100.          TabIndex        =   95
  101.          Top             =   8160
  102.          Width           =   7080
  103.          Begin Threed.SSCommand cmdClose 
  104.             Height          =   330
  105.             Left            =   5640
  106.             TabIndex        =   31
  107.             Top             =   0
  108.             Width           =   1095
  109.             _Version        =   65536
  110.             _ExtentX        =   1931
  111.             _ExtentY        =   573
  112.             _StockProps     =   78
  113.             Caption         =   "&Q.关 闭"
  114.             Font3D          =   1
  115.          End
  116.          Begin Threed.SSCommand cmdRefresh 
  117.             Height          =   330
  118.             Left            =   4440
  119.             TabIndex        =   30
  120.             Top             =   0
  121.             Width           =   1095
  122.             _Version        =   65536
  123.             _ExtentX        =   1931
  124.             _ExtentY        =   573
  125.             _StockProps     =   78
  126.             Caption         =   "&R.刷 新"
  127.             Font3D          =   1
  128.          End
  129.          Begin Threed.SSCommand CmdAdd 
  130.             Height          =   330
  131.             Left            =   840
  132.             TabIndex        =   27
  133.             Top             =   0
  134.             Width           =   1095
  135.             _Version        =   65536
  136.             _ExtentX        =   1931
  137.             _ExtentY        =   582
  138.             _StockProps     =   78
  139.             Caption         =   "&A.增 加"
  140.             Font3D          =   1
  141.             Picture         =   "F_PeiXunXiangMuShiShi.frx":0038
  142.          End
  143.          Begin Threed.SSCommand cmdEdit 
  144.             Height          =   330
  145.             Left            =   2040
  146.             TabIndex        =   28
  147.             Top             =   0
  148.             Width           =   1095
  149.             _Version        =   65536
  150.             _ExtentX        =   1931
  151.             _ExtentY        =   573
  152.             _StockProps     =   78
  153.             Caption         =   "&E.编 辑"
  154.             Font3D          =   1
  155.          End
  156.          Begin Threed.SSCommand CmdDelete 
  157.             Height          =   330
  158.             Left            =   3240
  159.             TabIndex        =   29
  160.             Top             =   0
  161.             Width           =   1095
  162.             _Version        =   65536
  163.             _ExtentX        =   1931
  164.             _ExtentY        =   573
  165.             _StockProps     =   78
  166.             Caption         =   "&D.删 除"
  167.             Font3D          =   1
  168.          End
  169.          Begin Threed.SSCommand cmdCancel 
  170.             Height          =   330
  171.             Left            =   5640
  172.             TabIndex        =   96
  173.             Top             =   0
  174.             Width           =   1095
  175.             _Version        =   65536
  176.             _ExtentX        =   1931
  177.             _ExtentY        =   573
  178.             _StockProps     =   78
  179.             Caption         =   "&C.取消"
  180.             Font3D          =   1
  181.          End
  182.          Begin Threed.SSCommand cmdUpdate 
  183.             Height          =   330
  184.             Left            =   4440
  185.             TabIndex        =   97
  186.             Top             =   0
  187.             Width           =   1095
  188.             _Version        =   65536
  189.             _ExtentX        =   1931
  190.             _ExtentY        =   573
  191.             _StockProps     =   78
  192.             Caption         =   "&Y.保存"
  193.             Font3D          =   1
  194.          End
  195.       End
  196.       Begin VB.Frame Frame11 
  197.          Height          =   1815
  198.          Left            =   600
  199.          TabIndex        =   44
  200.          Top             =   4680
  201.          Width           =   10935
  202.          Begin MSDataGridLib.DataGrid DataGrid1 
  203.             Height          =   1695
  204.             Left            =   0
  205.             TabIndex        =   45
  206.             Top             =   120
  207.             Width           =   10935
  208.             _ExtentX        =   19288
  209.             _ExtentY        =   2990
  210.             _Version        =   393216
  211.             HeadLines       =   1
  212.             RowHeight       =   14
  213.             TabAction       =   2
  214.             FormatLocked    =   -1  'True
  215.             BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  216.                Name            =   "MS Sans Serif"
  217.                Size            =   8.25
  218.                Charset         =   0
  219.                Weight          =   400
  220.                Underline       =   0   'False
  221.                Italic          =   0   'False
  222.                Strikethrough   =   0   'False
  223.             EndProperty
  224.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  225.                Name            =   "宋体"
  226.                Size            =   9
  227.                Charset         =   134
  228.                Weight          =   400
  229.                Underline       =   0   'False
  230.                Italic          =   0   'False
  231.                Strikethrough   =   0   'False
  232.             EndProperty
  233.             ColumnCount     =   6
  234.             BeginProperty Column00 
  235.                DataField       =   "员工号"
  236.                Caption         =   "员工号"
  237.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  238.                   Type            =   0
  239.                   Format          =   ""
  240.                   HaveTrueFalseNull=   0
  241.                   FirstDayOfWeek  =   0
  242.                   FirstWeekOfYear =   0
  243.                   LCID            =   2052
  244.                   SubFormatType   =   0
  245.                EndProperty
  246.             EndProperty
  247.             BeginProperty Column01 
  248.                DataField       =   "姓名"
  249.                Caption         =   "姓名"
  250.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  251.                   Type            =   0
  252.                   Format          =   ""
  253.                   HaveTrueFalseNull=   0
  254.                   FirstDayOfWeek  =   0
  255.                   FirstWeekOfYear =   0
  256.                   LCID            =   2052
  257.                   SubFormatType   =   0
  258.                EndProperty
  259.             EndProperty
  260.             BeginProperty Column02 
  261.                DataField       =   "口试成绩"
  262.                Caption         =   "口试成绩"
  263.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  264.                   Type            =   0
  265.                   Format          =   ""
  266.                   HaveTrueFalseNull=   0
  267.                   FirstDayOfWeek  =   0
  268.                   FirstWeekOfYear =   0
  269.                   LCID            =   2052
  270.                   SubFormatType   =   0
  271.                EndProperty
  272.             EndProperty
  273.             BeginProperty Column03 
  274.                DataField       =   "笔试成绩"
  275.                Caption         =   "笔试成绩"
  276.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  277.                   Type            =   0
  278.                   Format          =   ""
  279.                   HaveTrueFalseNull=   0
  280.                   FirstDayOfWeek  =   0
  281.                   FirstWeekOfYear =   0
  282.                   LCID            =   2052
  283.                   SubFormatType   =   0
  284.                EndProperty
  285.             EndProperty
  286.             BeginProperty Column04 
  287.                DataField       =   "实际操作成绩"
  288.                Caption         =   "实际操作成绩"
  289.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  290.                   Type            =   0
  291.                   Format          =   ""
  292.                   HaveTrueFalseNull=   0
  293.                   FirstDayOfWeek  =   0
  294.                   FirstWeekOfYear =   0
  295.                   LCID            =   2052
  296.                   SubFormatType   =   0
  297.                EndProperty
  298.             EndProperty
  299.             BeginProperty Column05 
  300.                DataField       =   "培训费"
  301.                Caption         =   "培训费"
  302.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  303.                   Type            =   0
  304.                   Format          =   ""
  305.                   HaveTrueFalseNull=   0
  306.                   FirstDayOfWeek  =   0
  307.                   FirstWeekOfYear =   0
  308.                   LCID            =   2052
  309.                   SubFormatType   =   0
  310.                EndProperty
  311.             EndProperty
  312.             SplitCount      =   1
  313.             BeginProperty Split0 
  314.                BeginProperty Column00 
  315.                   ColumnWidth     =   1140.095
  316.                EndProperty
  317.                BeginProperty Column01 
  318.                   ColumnWidth     =   1739.906
  319.                EndProperty
  320.                BeginProperty Column02 
  321.                   ColumnWidth     =   1065.26
  322.                EndProperty
  323.                BeginProperty Column03 
  324.                   ColumnWidth     =   1065.26
  325.                EndProperty
  326.                BeginProperty Column04 
  327.                   ColumnWidth     =   1470.047
  328.                EndProperty
  329.                BeginProperty Column05 
  330.                   ColumnWidth     =   1065.26
  331.                EndProperty
  332.             EndProperty
  333.          End
  334.       End
  335.       Begin VB.Frame Frame4 
  336.          Height          =   1695
  337.          Left            =   600
  338.          TabIndex        =   54
  339.          Top             =   6360
  340.          Width           =   10935
  341.          Begin VB.TextBox txtFields 
  342.             Appearance      =   0  'Flat
  343.             DataField       =   "人力资源部负责人签字"
  344.             Height          =   285
  345.             Index           =   24
  346.             Left            =   6840
  347.             TabIndex        =   25
  348.             Top             =   1328
  349.             Width           =   1335
  350.          End
  351.          Begin VB.TextBox txtFields 
  352.             Appearance      =   0  'Flat
  353.             DataField       =   "主办部门负责人签字"
  354.             Height          =   285
  355.             Index           =   21
  356.             Left            =   1080
  357.             TabIndex        =   23
  358.             Top             =   1328
  359.             Width           =   1335
  360.          End
  361.          Begin VB.TextBox txtFields 
  362.             DataField       =   "人力资源部成绩评估"
  363.             Height          =   735
  364.             Index           =   22
  365.             Left            =   5760
  366.             MultiLine       =   -1  'True
  367.             ScrollBars      =   2  'Vertical
  368.             TabIndex        =   82
  369.             Top             =   480
  370.             Width           =   5055
  371.          End
  372.          Begin VB.TextBox txtFields 
  373.             DataField       =   "主办部门成绩评估"
  374.             Height          =   735
  375.             Index           =   7
  376.             Left            =   120
  377.             MultiLine       =   -1  'True
  378.             ScrollBars      =   2  'Vertical
  379.             TabIndex        =   81
  380.             Top             =   480
  381.             Width           =   5055
  382.          End
  383.          Begin MSComCtl2.DTPicker DTPicker3 
  384.             DataField       =   "主办部门签字时间"
  385.             Height          =   300
  386.             Left            =   3600
  387.             TabIndex        =   24
  388.             Top             =   1320
  389.             Width           =   1455
  390.             _ExtentX        =   2566
  391.             _ExtentY        =   529
  392.             _Version        =   393216
  393.             CheckBox        =   -1  'True
  394.             DateIsNull      =   -1  'True
  395.             Format          =   64552961
  396.             CurrentDate     =   36186
  397.          End
  398.          Begin MSComCtl2.DTPicker DTPicker4 
  399.             DataField       =   "人力资源部签字时间"
  400.             Height          =   300
  401.             Left            =   9360
  402.             TabIndex        =   26
  403.             Top             =   1320
  404.             Width           =   1455
  405.             _ExtentX        =   2566
  406.             _ExtentY        =   529
  407.             _Version        =   393216
  408.             CheckBox        =   -1  'True
  409.             DateIsNull      =   -1  'True
  410.             Format          =   64552961
  411.             CurrentDate     =   36186
  412.          End
  413.          Begin VB.Label lblLabels 
  414.             Caption         =   "签字时间"
  415.             Height          =   255
  416.             Index           =   32
  417.             Left            =   8280
  418.             TabIndex        =   93
  419.             Top             =   1343
  420.             Width           =   975
  421.          End
  422.          Begin VB.Label lblLabels 
  423.             Caption         =   "负责人签字"
  424.             Height          =   255
  425.             Index           =   26
  426.             Left            =   5760
  427.             TabIndex        =   92
  428.             Top             =   1343
  429.             Width           =   975
  430.          End
  431.          Begin VB.Label lblLabels 
  432.             Caption         =   "签字时间"
  433.             Height          =   255
  434.             Index           =   25
  435.             Left            =   2520
  436.             TabIndex        =   91
  437.             Top             =   1343
  438.             Width           =   975
  439.          End
  440.          Begin VB.Label lblLabels 
  441.             Caption         =   "负责人签字"
  442.             Height          =   255
  443.             Index           =   23
  444.             Left            =   120
  445.             TabIndex        =   90
  446.             Top             =   1343
  447.             Width           =   975
  448.          End
  449.          Begin VB.Label lblLabels 
  450.             Caption         =   "主办部门成绩评估"
  451.             Height          =   255
  452.             Index           =   12
  453.             Left            =   120
  454.             TabIndex        =   56
  455.             Top             =   240
  456.             Width           =   1815
  457.          End
  458.          Begin VB.Label lblLabels 
  459.             Caption         =   "人力资源部成绩评估"
  460.             Height          =   255
  461.             Index           =   24
  462.             Left            =   5760
  463.             TabIndex        =   55
  464.             Top             =   240
  465.             Width           =   1815
  466.          End
  467.       End
  468.       Begin VB.TextBox txtFields 
  469.          Appearance      =   0  'Flat
  470.          DataField       =   "培训实施编号"
  471.          Height          =   285
  472.          Index           =   10
  473.          Left            =   2520
  474.          TabIndex        =   0
  475.          Top             =   400
  476.          Width           =   1455
  477.       End
  478.       Begin VB.Frame Frame13 
  479.          Height          =   7935
  480.          Left            =   -74880
  481.          TabIndex        =   86
  482.          Top             =   480
  483.          Width           =   11415
  484.          Begin MSDataGridLib.DataGrid DataGrid2 
  485.             Height          =   7575
  486.             Left            =   240
  487.             TabIndex        =   87
  488.             Top             =   240
  489.             Width           =   11055
  490.             _ExtentX        =   19500
  491.             _ExtentY        =   13361
  492.             _Version        =   393216
  493.             AllowUpdate     =   0   'False
  494.             HeadLines       =   1
  495.             RowHeight       =   14
  496.             BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  497.                Name            =   "MS Sans Serif"
  498.                Size            =   8.25
  499.                Charset         =   0
  500.                Weight          =   400
  501.                Underline       =   0   'False
  502.                Italic          =   0   'False
  503.                Strikethrough   =   0   'False
  504.             EndProperty
  505.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  506.                Name            =   "宋体"
  507.                Size            =   9
  508.                Charset         =   134
  509.                Weight          =   400
  510.                Underline       =   0   'False
  511.                Italic          =   0   'False
  512.                Strikethrough   =   0   'False
  513.             EndProperty
  514.             ColumnCount     =   2
  515.             BeginProperty Column00 
  516.                DataField       =   ""
  517.                Caption         =   ""
  518.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  519.                   Type            =   0
  520.                   Format          =   ""
  521.                   HaveTrueFalseNull=   0
  522.                   FirstDayOfWeek  =   0
  523.                   FirstWeekOfYear =   0
  524.                   LCID            =   2052
  525.                   SubFormatType   =   0
  526.                EndProperty
  527.             EndProperty
  528.             BeginProperty Column01 
  529.                DataField       =   ""
  530.                Caption         =   ""
  531.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  532.                   Type            =   0
  533.                   Format          =   ""
  534.                   HaveTrueFalseNull=   0
  535.                   FirstDayOfWeek  =   0
  536.                   FirstWeekOfYear =   0
  537.                   LCID            =   2052
  538.                   SubFormatType   =   0
  539.                EndProperty
  540.             EndProperty
  541.             SplitCount      =   1
  542.             BeginProperty Split0 
  543.                BeginProperty Column00 
  544.                EndProperty
  545.                BeginProperty Column01 
  546.                EndProperty
  547.             EndProperty
  548.          End
  549.       End
  550.       Begin VB.TextBox txtFields 
  551.          Appearance      =   0  'Flat
  552.          DataField       =   "培训实施计划编号"
  553.          Height          =   285
  554.          Index           =   0
  555.          Left            =   2520
  556.          TabIndex        =   3
  557.          Top             =   960
  558.          Width           =   1455
  559.       End
  560.       Begin VB.Frame Frame2 
  561.          Height          =   1935
  562.          Left            =   600
  563.          TabIndex        =   63
  564.          Top             =   720
  565.          Width           =   10935
  566.          Begin VB.TextBox txtFields 
  567.             Appearance      =   0  'Flat
  568.             DataField       =   "变动说明"
  569.             Height          =   645
  570.             Index           =   19
  571.             Left            =   7920
  572.             TabIndex        =   15
  573.             Top             =   1200
  574.             Width           =   2895
  575.          End
  576.          Begin VB.TextBox txtFields 
  577.             Appearance      =   0  'Flat
  578.             DataField       =   "服务年限"
  579.             Height          =   285
  580.             Index           =   20
  581.             Left            =   9360
  582.             TabIndex        =   8
  583.             Top             =   600
  584.             Width           =   1455
  585.          End
  586.          Begin MSComCtl2.DTPicker DTPicker6 
  587.             DataField       =   "实际举办日期"
  588.             Height          =   300
  589.             Left            =   1080
  590.             TabIndex        =   12
  591.             Top             =   1560
  592.             Width           =   1455
  593.             _ExtentX        =   2566
  594.             _ExtentY        =   529
  595.             _Version        =   393216
  596.             CheckBox        =   -1  'True
  597.             DateIsNull      =   -1  'True
  598.             Format          =   64552961
  599.             CurrentDate     =   36188
  600.          End
  601.          Begin MSComCtl2.DTPicker DTPicker2 
  602.             DataField       =   "计划举办日期"
  603.             Height          =   300
  604.             Left            =   1080
  605.             TabIndex        =   9
  606.             Top             =   1200
  607.             Width           =   1455
  608.             _ExtentX        =   2566
  609.             _ExtentY        =   529
  610.             _Version        =   393216
  611.             CheckBox        =   -1  'True
  612.             DateIsNull      =   -1  'True
  613.             Format          =   64552961
  614.             CurrentDate     =   36186
  615.          End
  616.          Begin VB.TextBox txtFields 
  617.             Appearance      =   0  'Flat
  618.             DataField       =   "培训对象"
  619.             Height          =   285
  620.             Index           =   6
  621.             Left            =   5880
  622.             TabIndex        =   7
  623.             Top             =   600
  624.             Width           =   1455
  625.          End
  626.          Begin VB.TextBox txtFields 
  627.             Appearance      =   0  'Flat
  628.             DataField       =   "培训种类"
  629.             Height          =   285
  630.             Index           =   5
  631.             Left            =   1920
  632.             TabIndex        =   6
  633.             Top             =   600
  634.             Width           =   1455
  635.          End
  636.          Begin VB.TextBox txtFields 
  637.             Appearance      =   0  'Flat
  638.             DataField       =   "培训计划编号"
  639.             Height          =   285
  640.             Index           =   4
  641.             Left            =   9360
  642.             TabIndex        =   5
  643.             Top             =   240
  644.             Width           =   1455
  645.          End
  646.          Begin VB.TextBox txtFields 
  647.             Appearance      =   0  'Flat
  648.             DataField       =   "项目名称"
  649.             Height          =   285
  650.             Index           =   3
  651.             Left            =   5880
  652.             TabIndex        =   4
  653.             Top             =   240
  654.             Width           =   1455
  655.          End
  656.          Begin VB.TextBox txtFields 
  657.             Appearance      =   0  'Flat
  658.             DataField       =   "实际参加人数"
  659.             Height          =   285
  660.             Index           =   12
  661.             Left            =   5880
  662.             TabIndex        =   14
  663.             Top             =   1560
  664.             Width           =   1455
  665.          End
  666.          Begin VB.TextBox txtFields 
  667.             Appearance      =   0  'Flat
  668.             DataField       =   "实际培训时数"
  669.             Height          =   285
  670.             Index           =   11
  671.             Left            =   3600
  672.             TabIndex        =   13
  673.             Top             =   1560
  674.             Width           =   1455
  675.          End
  676.          Begin VB.TextBox txtFields 
  677.             Appearance      =   0  'Flat
  678.             DataField       =   "计划参加人数"
  679.             Height          =   285
  680.             Index           =   9
  681.             Left            =   5880
  682.             TabIndex        =   11
  683.             Top             =   1200
  684.             Width           =   1455
  685.          End
  686.          Begin VB.TextBox txtFields 
  687.             Appearance      =   0  'Flat
  688.             DataField       =   "计划培训时数"
  689.             Height          =   285
  690.             Index           =   8
  691.             Left            =   3600
  692.             TabIndex        =   10
  693.             Top             =   1200
  694.             Width           =   1455
  695.          End
  696.          Begin VB.Label lblLabels 
  697.             Caption         =   "实施计划编号"
  698.             Height          =   255
  699.             Index           =   18
  700.             Left            =   120
  701.             TabIndex        =   89
  702.             Top             =   240
  703.             Width           =   1095
  704.          End
  705.          Begin VB.Label lblLabels 
  706.             Caption         =   "变动说明"
  707.             Height          =   255
  708.             Index           =   19
  709.             Left            =   7920
  710.             TabIndex        =   84
  711.             Top             =   960
  712.             Width           =   1335
  713.          End
  714.          Begin VB.Label lblLabels 
  715.             Caption         =   "服务年限"
  716.             Height          =   255
  717.             Index           =   20
  718.             Left            =   7920
  719.             TabIndex        =   83
  720.             Top             =   600
  721.             Width           =   855
  722.          End
  723.          Begin VB.Label lblLabels 
  724.             Caption         =   "培训计划编号"
  725.             Height          =   255
  726.             Index           =   4
  727.             Left            =   7920
  728.             TabIndex        =   79
  729.             Top             =   240
  730.             Width           =   1095
  731.          End
  732.          Begin VB.Label lblLabels 
  733.             Caption         =   "培训对象"
  734.             Height          =   255
  735.             Index           =   6
  736.             Left            =   4200
  737.             TabIndex        =   71
  738.             Top             =   600
  739.             Width           =   855
  740.          End
  741.          Begin VB.Label lblLabels 
  742.             Caption         =   "培训种类"
  743.             Height          =   255
  744.             Index           =   5
  745.             Left            =   120
  746.             TabIndex        =   70
  747.             Top             =   600
  748.             Width           =   735
  749.          End
  750.          Begin VB.Label lblLabels 
  751.             Caption         =   "项目名称"
  752.             Height          =   255
  753.             Index           =   3
  754.             Left            =   4200
  755.             TabIndex        =   69
  756.             Top             =   240
  757.             Width           =   855
  758.          End
  759.          Begin VB.Label lblLabels 
  760.             Caption         =   "计划举办日期"
  761.             Height          =   255
  762.             Index           =   7
  763.             Left            =   1080
  764.             TabIndex        =   68
  765.             Top             =   960
  766.             Width           =   1215
  767.          End
  768.          Begin VB.Label lblLabels 
  769.             Caption         =   "计划培训时数"
  770.             Height          =   255
  771.             Index           =   8
  772.             Left            =   3600
  773.             TabIndex        =   67
  774.             Top             =   960
  775.             Width           =   1335
  776.          End
  777.          Begin VB.Label lblLabels 
  778.             Caption         =   "计划参加人数"
  779.             Height          =   255
  780.             Index           =   9
  781.             Left            =   6000
  782.             TabIndex        =   66
  783.             Top             =   960
  784.             Width           =   1215
  785.          End
  786.          Begin VB.Label lblLabels 
  787.             Caption         =   "实 际"
  788.             Height          =   255
  789.             Index           =   11
  790.             Left            =   120
  791.             TabIndex        =   65
  792.             Top             =   1560
  793.             Width           =   735
  794.          End
  795.          Begin VB.Label lblLabels 
  796.             Caption         =   "计 划"
  797.             Height          =   255
  798.             Index           =   10
  799.             Left            =   120
  800.             TabIndex        =   64
  801.             Top             =   1200
  802.             Width           =   615
  803.          End
  804.       End
  805.       Begin VB.Frame Frame3 
  806.          Height          =   1215
  807.          Left            =   600
  808.          TabIndex        =   57
  809.          Top             =   2520
  810.          Width           =   10935
  811.          Begin VB.TextBox txtFields 
  812.             Appearance      =   0  'Flat
  813.             DataField       =   "费用变动说明"
  814.             Height          =   645
  815.             Index           =   26
  816.             Left            =   7920
  817.             TabIndex        =   22
  818.             Top             =   480
  819.             Width           =   2895
  820.          End
  821.          Begin VB.TextBox txtFields 
  822.             Appearance      =   0  'Flat
  823.             DataField       =   "培训费用合计实际"
  824.             Height          =   285
  825.             Index           =   18
  826.             Left            =   5880
  827.             TabIndex        =   21
  828.             Top             =   840
  829.             Width           =   1455
  830.          End
  831.          Begin VB.TextBox txtFields 
  832.             Appearance      =   0  'Flat
  833.             DataField       =   "培训费用合计预算"
  834.             Height          =   285
  835.             Index           =   17
  836.             Left            =   5880
  837.             TabIndex        =   18
  838.             Top             =   480
  839.             Width           =   1455
  840.          End
  841.          Begin VB.TextBox txtFields 
  842.             Appearance      =   0  'Flat
  843.             DataField       =   "培训费用间接实际"
  844.             Height          =   285
  845.             Index           =   16
  846.             Left            =   3600
  847.             TabIndex        =   20
  848.             Top             =   840
  849.             Width           =   1455
  850.          End
  851.          Begin VB.TextBox txtFields 
  852.             Appearance      =   0  'Flat
  853.             DataField       =   "培训费用间接预算"
  854.             Height          =   285
  855.             Index           =   15
  856.             Left            =   3600
  857.             TabIndex        =   17
  858.             Top             =   480
  859.             Width           =   1455
  860.          End
  861.          Begin VB.TextBox txtFields 
  862.             Appearance      =   0  'Flat
  863.             DataField       =   "培训费用直接实际"
  864.             Height          =   285
  865.             Index           =   14
  866.             Left            =   1080
  867.             TabIndex        =   19
  868.             Top             =   840
  869.             Width           =   1455
  870.          End
  871.          Begin VB.TextBox txtFields 
  872.             Appearance      =   0  'Flat
  873.             DataField       =   "培训费用直接预算"
  874.             Height          =   285
  875.             Index           =   13
  876.             Left            =   1080
  877.             TabIndex        =   16
  878.             Top             =   480
  879.             Width           =   1455
  880.          End
  881.          Begin VB.Label lblLabels 
  882.             Caption         =   "费用变动说明"
  883.             Height          =   255
  884.             Index           =   33
  885.             Left            =   7920
  886.             TabIndex        =   94
  887.             Top             =   240
  888.             Width           =   1335
  889.          End
  890.          Begin VB.Label lblLabels 
  891.             Caption         =   "合 计"
  892.             Height          =   255
  893.             Index           =   17
  894.             Left            =   5880
  895.             TabIndex        =   62
  896.             Top             =   240
  897.             Width           =   615
  898.          End
  899.          Begin VB.Label lblLabels 
  900.             Caption         =   "间接费用"
  901.             Height          =   255
  902.             Index           =   16
  903.             Left            =   3600
  904.             TabIndex        =   61
  905.             Top             =   240
  906.             Width           =   855
  907.          End
  908.          Begin VB.Label lblLabels 
  909.             Caption         =   "直接费用"
  910.             Height          =   255
  911.             Index           =   15
  912.             Left            =   1080
  913.             TabIndex        =   60
  914.             Top             =   240
  915.             Width           =   855
  916.          End
  917.          Begin VB.Label lblLabels 
  918.             Caption         =   "实际金额"
  919.             Height          =   255
  920.             Index           =   14
  921.             Left            =   120
  922.             TabIndex        =   59
  923.             Top             =   840
  924.             Width           =   855
  925.          End
  926.          Begin VB.Label lblLabels 
  927.             Caption         =   "预算金额"
  928.             Height          =   255
  929.             Index           =   13
  930.             Left            =   120
  931.             TabIndex        =   58
  932.             Top             =   480
  933.             Width           =   975
  934.          End
  935.       End
  936.       Begin VB.Frame Frame6 
  937.          Height          =   1935
  938.          Left            =   120
  939.          TabIndex        =   52
  940.          Top             =   720
  941.          Width           =   495
  942.          Begin VB.Label Label3 
  943.             Caption         =   "项目信息"
  944.             Height          =   1095
  945.             Left            =   120
  946.             TabIndex        =   53
  947.             Top             =   360
  948.             Width           =   255
  949.          End
  950.       End
  951.       Begin VB.Frame Frame7 
  952.          Height          =   1215
  953.          Left            =   120
  954.          TabIndex        =   50
  955.          Top             =   2520
  956.          Width           =   495
  957.          Begin VB.Label lblLabels 
  958.             Caption         =   "费用"
  959.             Height          =   615
  960.             Index           =   21
  961.             Left            =   120
  962.             TabIndex        =   51
  963.             Top             =   360
  964.             Width           =   255
  965.          End
  966.       End
  967.       Begin VB.Frame Frame8 
  968.          Height          =   1215
  969.          Left            =   120
  970.          TabIndex        =   48
  971.          Top             =   3600
  972.          Width           =   495
  973.          Begin VB.Label Label4 
  974.             Caption         =   "培训内容"
  975.             Height          =   855
  976.             Left            =   120
  977.             TabIndex        =   49
  978.             Top             =   240
  979.             Width           =   255
  980.          End
  981.       End
  982.       Begin VB.Frame Frame12 
  983.          Height          =   1815
  984.          Left            =   120
  985.          TabIndex        =   42
  986.          Top             =   4680
  987.          Width           =   495
  988.          Begin VB.Label Label7 
  989.             Caption         =   "人员"
  990.             Height          =   375
  991.             Left            =   120
  992.             TabIndex        =   43
  993.             Top             =   360
  994.             Width           =   255
  995.          End
  996.       End
  997.       Begin MSComCtl2.DTPicker DTPicker1 
  998.          DataField       =   "时间"
  999.          Height          =   300
  1000.          Left            =   9960
  1001.          TabIndex        =   2
  1002.          Top             =   405
  1003.          Width           =   1455
  1004.          _ExtentX        =   2566
  1005.          _ExtentY        =   529
  1006.          _Version        =   393216
  1007.          CheckBox        =   -1  'True
  1008.          DateIsNull      =   -1  'True
  1009.          Format          =   64552961
  1010.          CurrentDate     =   36186
  1011.       End
  1012.       Begin VB.TextBox txtFields 
  1013.          Appearance      =   0  'Flat
  1014.          DataField       =   "部门"
  1015.          Height          =   285
  1016.          Index           =   2
  1017.          Left            =   6480
  1018.          TabIndex        =   1
  1019.          Top             =   400
  1020.          Width           =   1455
  1021.       End
  1022.       Begin VB.Frame Frame1 
  1023.          Height          =   1215
  1024.          Left            =   600
  1025.          TabIndex        =   72
  1026.          Top             =   3600
  1027.          Width           =   10935
  1028.          Begin VB.TextBox txtFields 
  1029.             DataField       =   "培训内容"
  1030.             Height          =   615
  1031.             Index           =   1
  1032.             Left            =   0
  1033.             MultiLine       =   -1  'True
  1034.             ScrollBars      =   2  'Vertical
  1035.             TabIndex        =   80
  1036.             Top             =   120
  1037.             Width           =   10935
  1038.          End
  1039.          Begin VB.CheckBox Check1 
  1040.             Caption         =   "口试"
  1041.             DataField       =   "口试"
  1042.             Height          =   255
  1043.             Left            =   1320
  1044.             TabIndex        =   75
  1045.             Top             =   840
  1046.             Width           =   735
  1047.          End
  1048.          Begin VB.CheckBox Check2 
  1049.             Caption         =   "笔试"
  1050.             DataField       =   "笔试"
  1051.             Height          =   255
  1052.             Left            =   3600
  1053.             TabIndex        =   74
  1054.             Top             =   840
  1055.             Width           =   855
  1056.          End
  1057.          Begin VB.CheckBox Check3 
  1058.             Caption         =   "实际操作"
  1059.             DataField       =   "实际操作"
  1060.             Height          =   255
  1061.             Left            =   5880
  1062.             TabIndex        =   73
  1063.             Top             =   840
  1064.             Width           =   1335
  1065.          End
  1066.          Begin VB.Label lblLabels 
  1067.             Caption         =   "考核方式"
  1068.             Height          =   255
  1069.             Index           =   22
  1070.             Left            =   120
  1071.             TabIndex        =   76
  1072.             Top             =   840
  1073.             Width           =   975
  1074.          End
  1075.       End
  1076.       Begin VB.Frame Frame9 
  1077.          Height          =   1695
  1078.          Left            =   120
  1079.          TabIndex        =   46
  1080.          Top             =   6360
  1081.          Width           =   495
  1082.          Begin VB.Label Label5 
  1083.             Caption         =   "成效"
  1084.             Height          =   495
  1085.             Left            =   120
  1086.             TabIndex        =   47
  1087.             Top             =   480
  1088.             Width           =   255
  1089.          End
  1090.       End
  1091.       Begin VB.Label lblLabels 
  1092.          Caption         =   "实施编号:"
  1093.          Height          =   255
  1094.          Index           =   31
  1095.          Left            =   600
  1096.          TabIndex        =   88
  1097.          Top             =   480
  1098.          Width           =   735
  1099.       End
  1100.       Begin VB.Label lblLabels 
  1101.          Caption         =   "实施计划编号:"
  1102.          Height          =   255
  1103.          Index           =   0
  1104.          Left            =   3360
  1105.          TabIndex        =   85
  1106.          Top             =   840
  1107.          Width           =   1215
  1108.       End
  1109.       Begin VB.Label lblLabels 
  1110.          Caption         =   "时  间"
  1111.          Height          =   255
  1112.          Index           =   1
  1113.          Left            =   8520
  1114.          TabIndex        =   78
  1115.          Top             =   480
  1116.          Width           =   735
  1117.       End
  1118.       Begin VB.Label lblLabels 
  1119.          Caption         =   "部  门"
  1120.          Height          =   255
  1121.          Index           =   2
  1122.          Left            =   4800
  1123.          TabIndex        =   77
  1124.          Top             =   480
  1125.          Width           =   1215
  1126.       End
  1127.    End
  1128.    Begin VB.TextBox txtFields 
  1129.       DataField       =   "部门申请人签字时间"
  1130.       Height          =   285
  1131.       Index           =   30
  1132.       Left            =   2040
  1133.       TabIndex        =   39
  1134.       Top             =   9660
  1135.       Width           =   3375
  1136.    End
  1137.    Begin VB.TextBox txtFields 
  1138.       DataField       =   "部门申请人签字"
  1139.       Height          =   285
  1140.       Index           =   29
  1141.       Left            =   2040
  1142.       TabIndex        =   37
  1143.       Top             =   9340
  1144.       Width           =   3375
  1145.    End
  1146.    Begin VB.TextBox txtFields 
  1147.       DataField       =   "总经理签字时间"
  1148.       Height          =   285
  1149.       Index           =   28
  1150.       Left            =   2040
  1151.       TabIndex        =   35
  1152.       Top             =   9020
  1153.       Width           =   3375
  1154.    End
  1155.    Begin VB.TextBox txtFields 
  1156.       DataField       =   "总经理签字"
  1157.       Height          =   285
  1158.       Index           =   27
  1159.       Left            =   2040
  1160.       TabIndex        =   33
  1161.       Top             =   8700
  1162.       Width           =   3375
  1163.    End
  1164.    Begin MSDataGridLib.DataGrid grdDataGrid 
  1165.       Height          =   1300
  1166.       Left            =   0
  1167.       TabIndex        =   40
  1168.       Top             =   9980
  1169.       Width           =   5765
  1170.       _ExtentX        =   10160
  1171.       _ExtentY        =   2302
  1172.       _Version        =   393216
  1173.       AllowUpdate     =   0   'False
  1174.       HeadLines       =   1
  1175.       RowHeight       =   15
  1176.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1177.          Name            =   "MS Sans Serif"
  1178.          Size            =   8.25
  1179.          Charset         =   0
  1180.          Weight          =   400
  1181.          Underline       =   0   'False
  1182.          Italic          =   0   'False
  1183.          Strikethrough   =   0   'False
  1184.       EndProperty
  1185.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1186.          Name            =   "MS Sans Serif"
  1187.          Size            =   8.25
  1188.          Charset         =   0
  1189.          Weight          =   400
  1190.          Underline       =   0   'False
  1191.          Italic          =   0   'False
  1192.          Strikethrough   =   0   'False
  1193.       EndProperty
  1194.       ColumnCount     =   2
  1195.       BeginProperty Column00 
  1196.          DataField       =   ""
  1197.          Caption         =   ""
  1198.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  1199.             Type            =   0
  1200.             Format          =   ""
  1201.             HaveTrueFalseNull=   0
  1202.             FirstDayOfWeek  =   0
  1203.             FirstWeekOfYear =   0
  1204.             LCID            =   2052
  1205.             SubFormatType   =   0
  1206.          EndProperty
  1207.       EndProperty
  1208.       BeginProperty Column01 
  1209.          DataField       =   ""
  1210.          Caption         =   ""
  1211.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  1212.             Type            =   0
  1213.             Format          =   ""
  1214.             HaveTrueFalseNull=   0
  1215.             FirstDayOfWeek  =   0
  1216.             FirstWeekOfYear =   0
  1217.             LCID            =   2052
  1218.             SubFormatType   =   0
  1219.          EndProperty
  1220.       EndProperty
  1221.       SplitCount      =   1
  1222.       BeginProperty Split0 
  1223.          BeginProperty Column00 
  1224.          EndProperty
  1225.          BeginProperty Column01 
  1226.          EndProperty
  1227.       EndProperty
  1228.    End
  1229.    Begin VB.Label lblLabels 
  1230.       Caption         =   "部门申请人签字时间:"
  1231.       Height          =   255
  1232.       Index           =   30
  1233.       Left            =   120
  1234.       TabIndex        =   38
  1235.       Top             =   9660
  1236.       Width           =   1815
  1237.    End
  1238.    Begin VB.Label lblLabels 
  1239.       Caption         =   "部门申请人签字:"
  1240.       Height          =   255
  1241.       Index           =   29
  1242.       Left            =   120
  1243.       TabIndex        =   36
  1244.       Top             =   9340
  1245.       Width           =   1815
  1246.    End
  1247.    Begin VB.Label lblLabels 
  1248.       Caption         =   "总经理签字时间:"
  1249.       Height          =   255
  1250.       Index           =   28
  1251.       Left            =   120
  1252.       TabIndex        =   34
  1253.       Top             =   9020
  1254.       Width           =   1815
  1255.    End
  1256.    Begin VB.Label lblLabels 
  1257.       Caption         =   "总经理签字:"
  1258.       Height          =   255
  1259.       Index           =   27
  1260.       Left            =   120
  1261.       TabIndex        =   32
  1262.       Top             =   8700
  1263.       Width           =   1815
  1264.    End
  1265. End
  1266. Attribute VB_Name = "F_PeiXunXiangMuShiShi"
  1267. Attribute VB_GlobalNameSpace = False
  1268. Attribute VB_Creatable = False
  1269. Attribute VB_PredeclaredId = True
  1270. Attribute VB_Exposed = False
  1271. Dim WithEvents adoPrimaryRS As Recordset
  1272. Attribute adoPrimaryRS.VB_VarHelpID = -1
  1273. Dim mbChangedByCode As Boolean
  1274. Dim mvBookMark As Variant
  1275. Dim mbEditFlag As Boolean
  1276. Dim mbAddNewFlag As Boolean
  1277. Dim mbDataChanged As Boolean
  1278. Private Function UpdateData() As Boolean
  1279.   Dim strTemp As String
  1280.   Dim adochild As ADODB.Recordset
  1281.   On Error GoTo UpdateErr
  1282.   
  1283.   '更新父表
  1284.   adoPrimaryRS.UpdateBatch adAffectCurrent
  1285.  
  1286.   '检查子表的有效性
  1287.   Set adochild = New Recordset
  1288.   Set adochild = adoPrimaryRS("ChildCMD").UnderlyingValue
  1289.   
  1290.   If Not (adochild.BOF And adochild.EOF) Then
  1291.     adochild.MoveFirst
  1292.   End If
  1293.   
  1294.   'While Not adochild.EOF
  1295.       
  1296.    '   If Trim(adochild.Fields("单价")) = "" Or IsNull(adochild.Fields("单价")) Or Not IsNumeric(adochild.Fields("单价")) Then
  1297.     '     MsgBox "请在单价中输入数字!", vbExclamation + vbOKOnly, "警告"
  1298.      '    adochild.Close
  1299.          '   Set adochild = Nothing
  1300.          'Exit Function
  1301.       'End If
  1302.       
  1303.       'If Trim(adochild.Fields("数量")) = "" Or IsNull(adochild.Fields("数量")) Or Not IsNumeric(adochild.Fields("单价")) Then
  1304.          '  MsgBox "请在数量中输入数字!", vbExclamation + vbOKOnly, "警告"
  1305.         ' adochild.Close
  1306.         ' Set adochild = Nothing
  1307.          'Exit Function
  1308.      ' End If
  1309.       
  1310.       
  1311.   '    adochild.MoveNext
  1312.  ' Wend
  1313.   
  1314.   '更新子表
  1315.   adochild.UpdateBatch adAffectAllChapters
  1316.   adochild.Close
  1317.   Set adochild = Nothing
  1318.   
  1319.  ' strTemp = txtFields(0).Text
  1320.  ' Set grdDataGrid.DataSource = Nothing
  1321.   'adoPrimaryRS.Requery
  1322.   'adoPrimaryRS.Find "目的港='" & strTemp & "'", 0, adSearchForward
  1323.   'Set grdDataGrid.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue
  1324.  
  1325.   UpdateData = True
  1326.   
  1327.   If mbAddNewFlag Then
  1328.     adoPrimaryRS.MoveLast              'move to the new record
  1329.   End If
  1330.   mbEditFlag = False
  1331.   mbAddNewFlag = False
  1332.   SetButtons True
  1333.   
  1334.   Exit Function
  1335. UpdateErr:
  1336.   UpdateData = False
  1337. End Function
  1338. Private Sub DataGrid1_Error(ByVal DataError As Integer, Response As Integer)
  1339. Response = 0
  1340.     MsgBox "输入数据不合法,请输入合法数据!", vbExclamation + vbOKOnly, pTitle
  1341. End Sub
  1342. Private Sub DTPicker1_KeyPress(KeyAscii As Integer)
  1343. If KeyAscii = vbKeyReturn Then '
  1344.     SendKeys "{TAB}"
  1345. End If
  1346. End Sub
  1347. Private Sub DTPicker2_KeyPress(KeyAscii As Integer)
  1348. If KeyAscii = vbKeyReturn Then '
  1349.     SendKeys "{TAB}"
  1350. End If
  1351. End Sub
  1352. Private Sub DTPicker4_KeyPress(KeyAscii As Integer)
  1353. If KeyAscii = vbKeyReturn Then '
  1354.     SendKeys "{TAB}"
  1355. End If
  1356. End Sub
  1357. Private Sub DTPicker6_KeyPress(KeyAscii As Integer)
  1358. If KeyAscii = vbKeyReturn Then '
  1359.     SendKeys "{TAB}"
  1360. End If
  1361. End Sub
  1362. Private Sub Form_Load()
  1363. On Error Resume Next
  1364.     For Each TextBox In Me.Controls
  1365.         TextBox.Font.Name = "宋体"
  1366.         TextBox.Font.Size = 9
  1367.     Next
  1368.   Set adoPrimaryRS = New Recordset
  1369.   adoPrimaryRS.Open "SHAPE {select 培训实施计划编号, 培训实施编号,时间,部门,项目名称,培训计划编号,培训种类,培训对象,计划举办日期,计划培训时数,计划参加人数,实际举办日期,实际培训时数,实际参加人数,变动说明,培训费用直接预算,培训费用直接实际,培训费用间接预算,培训费用间接实际,培训费用合计预算,培训费用合计实际,费用变动说明,服务年限,培训内容,口试,笔试,实际操作,主办部门成绩评估,人力资源部成绩评估,主办部门负责人签字,主办部门签字时间,人力资源部负责人签字,人力资源部签字时间 from 培训项目实施表} AS ParentCMD APPEND ({select 培训项目实施编号,员工号,姓名,口试成绩,笔试成绩,实际操作成绩,培训费 from 培训项目实施人员 } AS ChildCMD RELATE  培训实施编号 TO 培训项目实施编号) AS ChildCMD", db1, adOpenStatic, adLockBatchOptimistic
  1370.  Set DTPicker1.DataSource = adoPrimaryRS
  1371.  Set DTPicker2.DataSource = adoPrimaryRS
  1372.  Set DTPicker3.DataSource = adoPrimaryRS
  1373.  Set DTPicker4.DataSource = adoPrimaryRS
  1374.  
  1375.  SetButtons True
  1376.        
  1377.  Set Check1.DataSource = adoPrimaryRS
  1378.  Set Check2.DataSource = adoPrimaryRS
  1379.  Set Check3.DataSource = adoPrimaryRS
  1380.  
  1381.  Set DataGrid2.DataSource = adoPrimaryRS
  1382.   
  1383.   Dim oText As TextBox
  1384.   'Bind the text boxes to the data provider
  1385.   'For Each oText In Me.txtFields
  1386.    ' Set oText.DataSource = adoPrimaryRS
  1387.   'Next
  1388.  Set txtFields(10).DataSource = adoPrimaryRS
  1389.  Set txtFields(2).DataSource = adoPrimaryRS
  1390.  Set txtFields(0).DataSource = adoPrimaryRS
  1391.  Set txtFields(3).DataSource = adoPrimaryRS
  1392.  Set txtFields(4).DataSource = adoPrimaryRS
  1393.  Set txtFields(5).DataSource = adoPrimaryRS
  1394.  Set txtFields(6).DataSource = adoPrimaryRS
  1395.  Set txtFields(20).DataSource = adoPrimaryRS
  1396.  Set txtFields(8).DataSource = adoPrimaryRS
  1397.  Set txtFields(9).DataSource = adoPrimaryRS
  1398.  Set txtFields(12).DataSource = adoPrimaryRS
  1399.  Set txtFields(11).DataSource = adoPrimaryRS
  1400.  Set txtFields(19).DataSource = adoPrimaryRS
  1401. Set txtFields(13).DataSource = adoPrimaryRS
  1402. Set txtFields(14).DataSource = adoPrimaryRS
  1403. Set txtFields(15).DataSource = adoPrimaryRS
  1404. Set txtFields(16).DataSource = adoPrimaryRS
  1405.  Set txtFields(17).DataSource = adoPrimaryRS
  1406.  Set txtFields(18).DataSource = adoPrimaryRS
  1407. Set txtFields(26).DataSource = adoPrimaryRS
  1408. Set txtFields(1).DataSource = adoPrimaryRS
  1409. Set txtFields(7).DataSource = adoPrimaryRS
  1410. Set txtFields(22).DataSource = adoPrimaryRS
  1411. Set txtFields(21).DataSource = adoPrimaryRS
  1412. Set txtFields(24).DataSource = adoPrimaryRS
  1413. If adoPrimaryRS.RecordCount <> 0 Then
  1414.   Set DataGrid1.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue
  1415. End If
  1416.   mbDataChanged = False
  1417.   
  1418. Me.DTPicker1.Value = Format(Now, "yyyy年mm月dd日")
  1419. Me.DTPicker2.Value = Format(Now, "yyyy年mm月dd日")
  1420. Me.DTPicker3.Value = Format(Now, "yyyy年mm月dd日")
  1421. Me.DTPicker4.Value = Format(Now, "yyyy年mm月dd日")
  1422. Me.DTPicker6.Value = Format(Now, "yyyy年mm月dd日")
  1423. End Sub
  1424. Private Sub Form_Unload(Cancel As Integer)
  1425.   Screen.MousePointer = vbDefault
  1426. End Sub
  1427. Private Sub cmdadd_Click()
  1428.   On Error GoTo AddErr
  1429.   With adoPrimaryRS
  1430.     If Not (.BOF And .EOF) Then
  1431.       mvBookMark = .Bookmark
  1432.     End If
  1433.     .AddNew
  1434.     mbAddNewFlag = True
  1435.     SetButtons False
  1436.   End With
  1437.   On Error GoTo 0
  1438.   Exit Sub
  1439. AddErr:
  1440.   MsgBox "增加操作有错误", vbExclamation + vbOKOnly, pTitle
  1441.   
  1442. End Sub
  1443. Private Sub cmddelete_Click()
  1444. Dim adochild As ADODB.Recordset
  1445.   On Error GoTo DeleteErr
  1446.   RESULT = MsgBox("此操作将删除此记录所有信息,你真的要删除吗?", vbExclamation + vbYesNo + vbDefaultButton2, "提示")
  1447.   If RESULT = 6 Then                                    '选择YES
  1448.   
  1449.         '删除子表记录
  1450.         
  1451.        Set adochild = New Recordset
  1452.        Set adochild = adoPrimaryRS("ChildCMD").UnderlyingValue
  1453.        While Not adochild.EOF
  1454.             adochild.Delete
  1455.             adochild.MoveNext
  1456.        Wend
  1457.        adochild.UpdateBatch adAffectAll
  1458.        adochild.Close
  1459.        Set adochild = Nothing
  1460.        
  1461.        '删除父表的当前记录
  1462.        
  1463.        With adoPrimaryRS
  1464.          .Delete
  1465.          .UpdateBatch adAffectCurrent
  1466.          .MoveNext
  1467.          If .EOF Then .MoveLast
  1468.        End With
  1469.   End If
  1470.   On Error GoTo 0
  1471.   Exit Sub
  1472.  
  1473. DeleteErr:
  1474.   MsgBox "删除数据失败!", vbExclamation + vbOKOnly, "Ptitle"
  1475. End Sub
  1476. Private Sub cmdRefresh_Click()
  1477.   'This is only needed for multi user apps
  1478.   On Error GoTo RefreshErr
  1479.   adoPrimaryRS.Requery
  1480.   On Error GoTo 0
  1481.   Exit Sub
  1482. RefreshErr:
  1483.    MsgBox "刷新操作有错误", vbExclamation + vbOKOnly, pTitle
  1484. End Sub
  1485. Private Sub cmdedit_Click()
  1486.   On Error GoTo EditErr
  1487.   mbEditFlag = True
  1488.   SetButtons False
  1489.   On Error GoTo 0
  1490.   Exit Sub
  1491. EditErr:
  1492.    MsgBox "更改操作有错误", vbExclamation + vbOKOnly, pTitle
  1493. End Sub
  1494. Private Sub cmdCancel_Click()
  1495.  ' On Error Resume Next
  1496.  On Error GoTo CancelErr
  1497.   mbEditFlag = False
  1498.   mbAddNewFlag = False
  1499.   adoPrimaryRS.CancelUpdate
  1500.  ' If mvBookMark > 0 Then
  1501.  '  adoPrimaryRS.Bookmark = mvBookMark
  1502.   'Else
  1503.    'adoPrimaryRS.MoveFirst
  1504.   'End If
  1505.  SetButtons True
  1506.   Exit Sub
  1507. CancelErr:
  1508.    
  1509.    MsgBox "取消操作有错误", vbExclamation + vbOKOnly, pTitle
  1510. End Sub
  1511. Private Sub cmdUpdate_Click()
  1512.   Dim blnUpdateFlag As Boolean
  1513.   blnUpdateFlag = UpdateData
  1514.   If blnUpdateFlag = True Then
  1515.     MsgBox "数据保存成功!", vbInformation + vbOKOnly, "提示"
  1516.   Else
  1517.     MsgBox "数据保存失败!", vbExclamation + vbOKOnly, "警告"
  1518.   End If
  1519. End Sub
  1520. Private Sub cmdClose_Click()
  1521.   RSGL.Enabled = True
  1522.   Unload Me
  1523. End Sub
  1524. Private Sub SetButtons(bVal As Boolean)
  1525.   cmdAdd.Visible = bVal
  1526.   cmdEdit.Visible = bVal
  1527.   cmdUpdate.Visible = Not bVal
  1528.   cmdCancel.Visible = Not bVal
  1529.   cmdDelete.Visible = bVal
  1530.   CmdClose.Visible = bVal
  1531.   cmdRefresh.Visible = bVal
  1532.   
  1533.   For Each oText In Me.txtFields
  1534.         oText.Enabled = Not bVal
  1535.   Next
  1536.   
  1537.   DTPicker1.Enabled = Not bVal
  1538.   DTPicker2.Enabled = Not bVal
  1539.   DTPicker3.Enabled = Not bVal
  1540.   DTPicker4.Enabled = Not bVal
  1541.         
  1542.   Check1.Enabled = Not bVal
  1543.   Check2.Enabled = Not bVal
  1544.   Check3.Enabled = Not bVal
  1545.   
  1546.   If bVal Then
  1547.    Set DataGrid2.DataSource = adoPrimaryRS
  1548.   Else
  1549.    Set DataGrid2.DataSource = Nothing
  1550.   End If
  1551.   
  1552.   If Not bVal Then
  1553.     If mbEditFlag Then
  1554.      DataGrid1.AllowAddNew = True
  1555.      DataGrid1.AllowDelete = True
  1556.      DataGrid1.AllowUpdate = True
  1557.     End If
  1558.   Else
  1559.      DataGrid1.AllowAddNew = False
  1560.      DataGrid1.AllowDelete = False
  1561.      DataGrid1.AllowUpdate = False
  1562.   End If
  1563.     
  1564. End Sub
  1565. Private Sub txtFields_Change(Index As Integer)
  1566.   If IsNumeric(txtFields(13).Text) And IsNumeric(txtFields(15).Text) And IsNumeric(txtFields(13).Text) Then
  1567.   
  1568.    txtFields(17) = CDbl(txtFields(13)) + CDbl(txtFields(15))
  1569.    
  1570.   End If
  1571.   
  1572.   If IsNumeric(txtFields(14).Text) And IsNumeric(txtFields(16).Text) And IsNumeric(txtFields(13).Text) Then
  1573.   
  1574.    
  1575.     txtFields(18) = CDbl(txtFields(14)) + CDbl(txtFields(16))
  1576.   End If
  1577.   
  1578. End Sub
  1579. Private Sub txtFields_KeyPress(Index As Integer, KeyAscii As Integer)
  1580. If KeyAscii = vbKeyReturn Then '
  1581.     SendKeys "{TAB}"
  1582. End If
  1583. End Sub
  1584. Private Sub txtFields_LostFocus(Index As Integer)
  1585. Select Case Index
  1586. Case 10
  1587.     If Not IsNull(Trim(txtFields(10).Text)) Then
  1588.         '  txtFields(10).Locked = True
  1589.     End If
  1590. Case 0
  1591. Dim Sql3 As String
  1592.  Sql3 = "select  培训计划编号,实施计划编号,时间,部门,项目名称,培训种类,培训对象,参加人数,举办日期,地点,培训时数,师资来源,培训目的,课时费,租用费,招待费,交通费,教材费,工时占用费用,其他费用,预算费用合计,培训内容,口试,笔试,实际操作 from 培训实施计划表 where 实施计划编号 = '" & txtFields(0).Text & "'"
  1593.  Set rs3 = db.Execute(Sql3)
  1594.  If Not rs3.EOF Then
  1595.  
  1596.    If Not IsNull(rs3("项目名称")) Then
  1597.        txtFields(3).Text = Trim(rs3("项目名称"))
  1598.    End If
  1599.    
  1600.    If Not IsNull(rs3("培训计划编号")) Then
  1601.        txtFields(4).Text = Trim(rs3("培训计划编号"))
  1602.    End If
  1603.    
  1604.    If Not IsNull(rs3("培训种类")) Then
  1605.        txtFields(5).Text = Trim(rs3("培训种类"))
  1606.    End If
  1607.    
  1608.    If Not IsNull(rs3("培训对象")) Then
  1609.        txtFields(6).Text = Trim(rs3("培训对象"))
  1610.    End If
  1611.    
  1612.    If Not IsNull(rs3("举办日期")) Then
  1613.        DTPicker2.Value = Trim(rs3("举办日期"))
  1614.    End If
  1615.    
  1616.    If Not IsNull(rs3("培训时数")) Then
  1617.        txtFields(8).Text = Trim(rs3("培训时数"))
  1618.    End If
  1619.    
  1620.    If Not IsNull(rs3("参加人数")) Then
  1621.        txtFields(9).Text = Trim(rs3("参加人数"))
  1622.    End If
  1623.    
  1624.    
  1625.     If Not IsNull(rs3("培训内容")) Then
  1626.      txtFields(1).Text = Trim(rs3("培训内容"))
  1627.    End If
  1628.    
  1629.    If Not IsNull(rs3("口试")) And rs3("口试") = True Then
  1630.      Check1.Value = 1
  1631.     Else
  1632.       Check1.Value = 0
  1633.    End If
  1634.    
  1635.    If Not IsNull(rs3("笔试")) And rs3("笔试") = True Then
  1636.      Check2.Value = 1
  1637.     Else
  1638.       Check2.Value = 0
  1639.    End If
  1640.    
  1641.    If Not IsNull(rs3("实际操作")) And rs3("实际操作") = True Then
  1642.      Check3.Value = 1
  1643.     Else
  1644.       Check3.Value = 0
  1645.    End If
  1646.    
  1647. End If
  1648. Case 8
  1649. If Not IsNumeric(txtFields(8).Text) And (txtFields(8).Text <> "") Then
  1650.     MsgBox "请在“计划培训时数”中输入数字", vbExclamation + vbOKOnly, pTitle
  1651.      txtFields(8).SetFocus
  1652.      txtFields(8).SelStart = 0
  1653.      txtFields(8).SelLength = Len(txtFields(8))
  1654.      
  1655. End If
  1656. Case 9
  1657. If Not IsNumeric(txtFields(9).Text) And (txtFields(9).Text <> "") Then
  1658.     MsgBox "请在“计划参加人数”中输入数字", vbExclamation + vbOKOnly, pTitle
  1659.      txtFields(9).SetFocus
  1660.      txtFields(9).SelStart = 0
  1661.      txtFields(9).SelLength = Len(txtFields(9))
  1662.      
  1663. End If
  1664. Case 11
  1665. If Not IsNumeric(txtFields(11).Text) And (txtFields(11).Text <> "") Then
  1666.     MsgBox "请在“实际培训时数”中输入数字", vbExclamation + vbOKOnly, pTitle
  1667.      txtFields(11).SetFocus
  1668.      txtFields(11).SelStart = 0
  1669.      txtFields(11).SelLength = Len(txtFields(11))
  1670.  
  1671. End If
  1672. Case 12
  1673. If Not IsNumeric(txtFields(12).Text) And (txtFields(12).Text <> "") Then
  1674.     MsgBox "请在“实际参加人数”中输入数字", vbExclamation + vbOKOnly, pTitle
  1675.      txtFields(12).SetFocus
  1676.      txtFields(12).SelStart = 0
  1677.      txtFields(12).SelLength = Len(txtFields(12))
  1678.      
  1679. End If
  1680. Case 13
  1681. If Not IsNumeric(txtFields(13).Text) And (txtFields(13).Text <> "") Then
  1682.     MsgBox "请在“培训费用直接预算”中输入数字", vbExclamation + vbOKOnly, pTitle
  1683.      txtFields(13).SetFocus
  1684.      txtFields(13).SelStart = 0
  1685.      txtFields(13).SelLength = Len(txtFields(13))
  1686.      
  1687. End If
  1688. Case 14
  1689. If Not IsNumeric(txtFields(14).Text) And (txtFields(14).Text <> "") Then
  1690.     MsgBox "请在“培训费用直接实际费用”中输入数字", vbExclamation + vbOKOnly, pTitle
  1691.      txtFields(14).SetFocus
  1692.       txtFields(14).SelStart = 0
  1693.      txtFields(14).SelLength = Len(txtFields(14))
  1694.     
  1695. End If
  1696. Case 15
  1697. If Not IsNumeric(txtFields(15).Text) And (txtFields(15).Text <> "") Then
  1698.     MsgBox "请在“培训费用间接预算”中输入数字", vbExclamation + vbOKOnly, pTitle
  1699.      txtFields(15).SetFocus
  1700.      txtFields(15).SelStart = 0
  1701.      txtFields(15).SelLength = Len(txtFields(15))
  1702.      
  1703. End If
  1704. Case 16
  1705. If Not IsNumeric(txtFields(16).Text) And (txtFields(16).Text <> "") Then
  1706.     MsgBox "请在“培训费用间接实际费用”中输入数字", vbExclamation + vbOKOnly, pTitle
  1707.      txtFields(16).SetFocus
  1708.      txtFields(16).SelStart = 0
  1709.      txtFields(16).SelLength = Len(txtFields(16))
  1710.      
  1711. End If
  1712. End Select
  1713. If Index = 2 And Not IsNull(txtFields(10)) Then
  1714.     txtFields(10).Locked = True
  1715. End If
  1716. End Sub