main_rsgl_pxgl.frm
上传用户:ake0106
上传日期:2022-07-23
资源大小:4052k
文件大小:14k
源码类别:

企业管理

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  4. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  5. Begin VB.Form main_rsgl_pxgl 
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "Form1"
  8.    ClientHeight    =   5880
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   11820
  12.    Icon            =   "main_rsgl_pxgl.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5880
  17.    ScaleWidth      =   11820
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  '屏幕中心
  20.    Begin MSAdodcLib.Adodc Adodc1 
  21.       Height          =   330
  22.       Left            =   60
  23.       Top             =   2040
  24.       Visible         =   0   'False
  25.       Width           =   2040
  26.       _ExtentX        =   3598
  27.       _ExtentY        =   582
  28.       ConnectMode     =   0
  29.       CursorLocation  =   3
  30.       IsolationLevel  =   -1
  31.       ConnectionTimeout=   15
  32.       CommandTimeout  =   30
  33.       CursorType      =   3
  34.       LockType        =   3
  35.       CommandType     =   2
  36.       CursorOptions   =   0
  37.       CacheSize       =   50
  38.       MaxRecords      =   0
  39.       BOFAction       =   0
  40.       EOFAction       =   0
  41.       ConnectStringType=   1
  42.       Appearance      =   1
  43.       BackColor       =   -2147483643
  44.       ForeColor       =   -2147483640
  45.       Orientation     =   0
  46.       Enabled         =   -1
  47.       Connect         =   "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
  48.       OLEDBString     =   "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
  49.       OLEDBFile       =   ""
  50.       DataSourceName  =   ""
  51.       OtherAttributes =   ""
  52.       UserName        =   ""
  53.       Password        =   ""
  54.       RecordSource    =   "培训表"
  55.       Caption         =   "Adodc1"
  56.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  57.          Name            =   "宋体"
  58.          Size            =   9
  59.          Charset         =   134
  60.          Weight          =   400
  61.          Underline       =   0   'False
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.       _Version        =   393216
  66.    End
  67.    Begin MSDataGridLib.DataGrid DataGrid1 
  68.       Bindings        =   "main_rsgl_pxgl.frx":000C
  69.       Height          =   5010
  70.       Left            =   15
  71.       TabIndex        =   0
  72.       Top             =   825
  73.       Width           =   11760
  74.       _ExtentX        =   20743
  75.       _ExtentY        =   8837
  76.       _Version        =   393216
  77.       AllowUpdate     =   0   'False
  78.       HeadLines       =   1
  79.       RowHeight       =   15
  80.       FormatLocked    =   -1  'True
  81.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  82.          Name            =   "宋体"
  83.          Size            =   9
  84.          Charset         =   134
  85.          Weight          =   400
  86.          Underline       =   0   'False
  87.          Italic          =   0   'False
  88.          Strikethrough   =   0   'False
  89.       EndProperty
  90.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  91.          Name            =   "宋体"
  92.          Size            =   9
  93.          Charset         =   134
  94.          Weight          =   400
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       ColumnCount     =   9
  100.       BeginProperty Column00 
  101.          DataField       =   "员工编号"
  102.          Caption         =   "员工编号"
  103.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  104.             Type            =   0
  105.             Format          =   ""
  106.             HaveTrueFalseNull=   0
  107.             FirstDayOfWeek  =   0
  108.             FirstWeekOfYear =   0
  109.             LCID            =   2052
  110.             SubFormatType   =   0
  111.          EndProperty
  112.       EndProperty
  113.       BeginProperty Column01 
  114.          DataField       =   "员工姓名"
  115.          Caption         =   "员工姓名"
  116.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  117.             Type            =   0
  118.             Format          =   ""
  119.             HaveTrueFalseNull=   0
  120.             FirstDayOfWeek  =   0
  121.             FirstWeekOfYear =   0
  122.             LCID            =   2052
  123.             SubFormatType   =   0
  124.          EndProperty
  125.       EndProperty
  126.       BeginProperty Column02 
  127.          DataField       =   "课程名称"
  128.          Caption         =   "课程名称"
  129.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  130.             Type            =   0
  131.             Format          =   ""
  132.             HaveTrueFalseNull=   0
  133.             FirstDayOfWeek  =   0
  134.             FirstWeekOfYear =   0
  135.             LCID            =   2052
  136.             SubFormatType   =   0
  137.          EndProperty
  138.       EndProperty
  139.       BeginProperty Column03 
  140.          DataField       =   "时数"
  141.          Caption         =   "时数"
  142.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  143.             Type            =   0
  144.             Format          =   ""
  145.             HaveTrueFalseNull=   0
  146.             FirstDayOfWeek  =   0
  147.             FirstWeekOfYear =   0
  148.             LCID            =   2052
  149.             SubFormatType   =   0
  150.          EndProperty
  151.       EndProperty
  152.       BeginProperty Column04 
  153.          DataField       =   "开始时间"
  154.          Caption         =   "开始时间"
  155.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  156.             Type            =   0
  157.             Format          =   ""
  158.             HaveTrueFalseNull=   0
  159.             FirstDayOfWeek  =   0
  160.             FirstWeekOfYear =   0
  161.             LCID            =   2052
  162.             SubFormatType   =   0
  163.          EndProperty
  164.       EndProperty
  165.       BeginProperty Column05 
  166.          DataField       =   "结束时间"
  167.          Caption         =   "结束时间"
  168.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  169.             Type            =   0
  170.             Format          =   ""
  171.             HaveTrueFalseNull=   0
  172.             FirstDayOfWeek  =   0
  173.             FirstWeekOfYear =   0
  174.             LCID            =   2052
  175.             SubFormatType   =   0
  176.          EndProperty
  177.       EndProperty
  178.       BeginProperty Column06 
  179.          DataField       =   "成绩"
  180.          Caption         =   "成绩"
  181.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  182.             Type            =   0
  183.             Format          =   ""
  184.             HaveTrueFalseNull=   0
  185.             FirstDayOfWeek  =   0
  186.             FirstWeekOfYear =   0
  187.             LCID            =   2052
  188.             SubFormatType   =   0
  189.          EndProperty
  190.       EndProperty
  191.       BeginProperty Column07 
  192.          DataField       =   "费用"
  193.          Caption         =   "费用"
  194.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  195.             Type            =   0
  196.             Format          =   ""
  197.             HaveTrueFalseNull=   0
  198.             FirstDayOfWeek  =   0
  199.             FirstWeekOfYear =   0
  200.             LCID            =   2052
  201.             SubFormatType   =   0
  202.          EndProperty
  203.       EndProperty
  204.       BeginProperty Column08 
  205.          DataField       =   "备注"
  206.          Caption         =   "备注"
  207.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  208.             Type            =   0
  209.             Format          =   ""
  210.             HaveTrueFalseNull=   0
  211.             FirstDayOfWeek  =   0
  212.             FirstWeekOfYear =   0
  213.             LCID            =   2052
  214.             SubFormatType   =   0
  215.          EndProperty
  216.       EndProperty
  217.       SplitCount      =   1
  218.       BeginProperty Split0 
  219.          MarqueeStyle    =   4
  220.          BeginProperty Column00 
  221.             ColumnWidth     =   915.024
  222.          EndProperty
  223.          BeginProperty Column01 
  224.             ColumnWidth     =   1365.165
  225.          EndProperty
  226.          BeginProperty Column02 
  227.             ColumnWidth     =   2085.166
  228.          EndProperty
  229.          BeginProperty Column03 
  230.             ColumnWidth     =   1094.74
  231.          EndProperty
  232.          BeginProperty Column04 
  233.             ColumnWidth     =   2085.166
  234.          EndProperty
  235.          BeginProperty Column05 
  236.             ColumnWidth     =   2085.166
  237.          EndProperty
  238.          BeginProperty Column06 
  239.             ColumnWidth     =   915.024
  240.          EndProperty
  241.          BeginProperty Column07 
  242.             ColumnWidth     =   2085.166
  243.          EndProperty
  244.          BeginProperty Column08 
  245.             ColumnWidth     =   2085.166
  246.          EndProperty
  247.       EndProperty
  248.    End
  249.    Begin MSComctlLib.ImageList ImageList1 
  250.       Left            =   0
  251.       Top             =   2550
  252.       _ExtentX        =   1005
  253.       _ExtentY        =   1005
  254.       BackColor       =   -2147483643
  255.       ImageWidth      =   32
  256.       ImageHeight     =   32
  257.       MaskColor       =   12632256
  258.       _Version        =   393216
  259.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  260.          NumListImages   =   8
  261.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  262.             Picture         =   "main_rsgl_pxgl.frx":0021
  263.             Key             =   ""
  264.          EndProperty
  265.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  266.             Picture         =   "main_rsgl_pxgl.frx":08FB
  267.             Key             =   ""
  268.          EndProperty
  269.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  270.             Picture         =   "main_rsgl_pxgl.frx":11D5
  271.             Key             =   ""
  272.          EndProperty
  273.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  274.             Picture         =   "main_rsgl_pxgl.frx":1AAF
  275.             Key             =   ""
  276.          EndProperty
  277.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  278.             Picture         =   "main_rsgl_pxgl.frx":2789
  279.             Key             =   ""
  280.          EndProperty
  281.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  282.             Picture         =   "main_rsgl_pxgl.frx":3063
  283.             Key             =   ""
  284.          EndProperty
  285.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  286.             Picture         =   "main_rsgl_pxgl.frx":37DD
  287.             Key             =   ""
  288.          EndProperty
  289.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  290.             Picture         =   "main_rsgl_pxgl.frx":44B7
  291.             Key             =   ""
  292.          EndProperty
  293.       EndProperty
  294.    End
  295.    Begin MSComctlLib.Toolbar Toolbar1 
  296.       Align           =   1  'Align Top
  297.       Height          =   795
  298.       Left            =   0
  299.       TabIndex        =   1
  300.       Top             =   0
  301.       Width           =   11820
  302.       _ExtentX        =   20849
  303.       _ExtentY        =   1402
  304.       ButtonWidth     =   1138
  305.       ButtonHeight    =   1349
  306.       Appearance      =   1
  307.       Style           =   1
  308.       ImageList       =   "ImageList1"
  309.       _Version        =   393216
  310.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  311.          NumButtons      =   8
  312.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  313.             Caption         =   " 增加 "
  314.             Key             =   "add"
  315.             ImageIndex      =   1
  316.          EndProperty
  317.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  318.             Caption         =   "修改"
  319.             Key             =   "modify"
  320.             ImageIndex      =   2
  321.          EndProperty
  322.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  323.             Caption         =   "删除"
  324.             Key             =   "delete"
  325.             ImageIndex      =   3
  326.          EndProperty
  327.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  328.             Style           =   3
  329.          EndProperty
  330.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  331.             Caption         =   "查找"
  332.             Key             =   "find"
  333.             ImageIndex      =   6
  334.          EndProperty
  335.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  336.             Caption         =   "全部"
  337.             Key             =   "all"
  338.             ImageIndex      =   7
  339.          EndProperty
  340.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  341.             Style           =   3
  342.          EndProperty
  343.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  344.             Caption         =   "关闭"
  345.             Key             =   "close"
  346.             ImageIndex      =   8
  347.          EndProperty
  348.       EndProperty
  349.       BorderStyle     =   1
  350.    End
  351. End
  352. Attribute VB_Name = "main_rsgl_pxgl"
  353. Attribute VB_GlobalNameSpace = False
  354. Attribute VB_Creatable = False
  355. Attribute VB_PredeclaredId = True
  356. Attribute VB_Exposed = False
  357. Dim rs1 As New ADODB.Recordset
  358. Private Sub DataGrid1_DblClick()
  359.   If Adodc1.Recordset.RecordCount > 0 Then
  360.     blnAddPX = False
  361.     Load main_rsgl_pxgl_lr
  362.     main_rsgl_pxgl_lr.Show 1
  363.   Else
  364.     MsgBox "没有要修改的记录!", , "提示窗口"
  365.   End If
  366. End Sub
  367. Private Sub Form_Activate()
  368.   If sql <> "" Then
  369.      Adodc1.RecordSource = sql
  370.      Adodc1.Refresh
  371.      If Adodc1.Recordset.RecordCount > 0 Then
  372.      Else
  373.         MsgBox "没有找到符合条件的记录!", , "提示窗口"
  374.      End If
  375.   End If
  376. End Sub
  377. Private Sub Form_Load()
  378.   Me.Caption = text
  379. End Sub
  380. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  381.   sql = ""
  382. End Sub
  383. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  384.   Select Case Button.Key
  385.      Case "add"
  386.        blnAddPX = True
  387.        main_yyxx.Tag = 1
  388.        Load main_yyxx
  389.        main_yyxx.Show 1
  390.      Case "modify"
  391.        DataGrid1_DblClick
  392.      Case "delete"
  393.        If Adodc1.Recordset.RecordCount > 0 Then
  394.          Adodc1.Recordset.Delete
  395.          Adodc1.Refresh
  396.        Else
  397.          MsgBox "系统没有要删除的数据!", , "提示窗口"
  398.        End If
  399.      Case "find"
  400.        tb = "培训表"
  401.        Load main_find
  402.        main_find.Show 1
  403.      Case "all"
  404.        Adodc1.RecordSource = "培训表"
  405.        Adodc1.Refresh
  406.      Case "close"
  407.        Unload Me
  408.   End Select
  409. End Sub