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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
F_BuMenPeiXunJiHua.frm
资源名称：dbbase.rar　[点击查看]
上传用户：xiao_xia32
上传日期：2022-07-21
资源大小：1174k
文件大小：62k
源码类别：

企业管理

开发平台：

Visual Basic

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