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

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

企业管理

开发平台：

Visual Basic

main_gzgl_cfgl.frm：源码内容
  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_gzgl_cfgl 
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "Form1"
  8.    ClientHeight    =   5355
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   9390
  12.    Icon            =   "main_gzgl_cfgl.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5355
  17.    ScaleWidth      =   9390
  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 MSComctlLib.ImageList ImageList1 
  68.       Left            =   1905
  69.       Top             =   2025
  70.       _ExtentX        =   1005
  71.       _ExtentY        =   1005
  72.       BackColor       =   -2147483643
  73.       ImageWidth      =   32
  74.       ImageHeight     =   32
  75.       MaskColor       =   12632256
  76.       _Version        =   393216
  77.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  78.          NumListImages   =   6
  79.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  80.             Picture         =   "main_gzgl_cfgl.frx":000C
  81.             Key             =   ""
  82.          EndProperty
  83.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  84.             Picture         =   "main_gzgl_cfgl.frx":08E6
  85.             Key             =   ""
  86.          EndProperty
  87.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  88.             Picture         =   "main_gzgl_cfgl.frx":11C0
  89.             Key             =   ""
  90.          EndProperty
  91.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  92.             Picture         =   "main_gzgl_cfgl.frx":1A9A
  93.             Key             =   ""
  94.          EndProperty
  95.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  96.             Picture         =   "main_gzgl_cfgl.frx":2214
  97.             Key             =   ""
  98.          EndProperty
  99.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  100.             Picture         =   "main_gzgl_cfgl.frx":2EEE
  101.             Key             =   ""
  102.          EndProperty
  103.       EndProperty
  104.    End
  105.    Begin MSDataGridLib.DataGrid DataGrid1 
  106.       Bindings        =   "main_gzgl_cfgl.frx":37C8
  107.       Height          =   4500
  108.       Left            =   15
  109.       TabIndex        =   0
  110.       Top             =   825
  111.       Width           =   9330
  112.       _ExtentX        =   16457
  113.       _ExtentY        =   7938
  114.       _Version        =   393216
  115.       AllowUpdate     =   0   'False
  116.       HeadLines       =   1
  117.       RowHeight       =   15
  118.       FormatLocked    =   -1  'True
  119.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  120.          Name            =   "宋体"
  121.          Size            =   9
  122.          Charset         =   134
  123.          Weight          =   400
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  129.          Name            =   "宋体"
  130.          Size            =   9
  131.          Charset         =   134
  132.          Weight          =   400
  133.          Underline       =   0   'False
  134.          Italic          =   0   'False
  135.          Strikethrough   =   0   'False
  136.       EndProperty
  137.       ColumnCount     =   7
  138.       BeginProperty Column00 
  139.          DataField       =   "所属工资月份"
  140.          Caption         =   "所属工资月份"
  141.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  142.             Type            =   0
  143.             Format          =   ""
  144.             HaveTrueFalseNull=   0
  145.             FirstDayOfWeek  =   0
  146.             FirstWeekOfYear =   0
  147.             LCID            =   2052
  148.             SubFormatType   =   0
  149.          EndProperty
  150.       EndProperty
  151.       BeginProperty Column01 
  152.          DataField       =   "员工编号"
  153.          Caption         =   "员工编号"
  154.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  155.             Type            =   0
  156.             Format          =   ""
  157.             HaveTrueFalseNull=   0
  158.             FirstDayOfWeek  =   0
  159.             FirstWeekOfYear =   0
  160.             LCID            =   2052
  161.             SubFormatType   =   0
  162.          EndProperty
  163.       EndProperty
  164.       BeginProperty Column02 
  165.          DataField       =   "员工姓名"
  166.          Caption         =   "员工姓名"
  167.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  168.             Type            =   0
  169.             Format          =   ""
  170.             HaveTrueFalseNull=   0
  171.             FirstDayOfWeek  =   0
  172.             FirstWeekOfYear =   0
  173.             LCID            =   2052
  174.             SubFormatType   =   0
  175.          EndProperty
  176.       EndProperty
  177.       BeginProperty Column03 
  178.          DataField       =   "惩罚项目"
  179.          Caption         =   "惩罚项目"
  180.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  181.             Type            =   0
  182.             Format          =   ""
  183.             HaveTrueFalseNull=   0
  184.             FirstDayOfWeek  =   0
  185.             FirstWeekOfYear =   0
  186.             LCID            =   2052
  187.             SubFormatType   =   0
  188.          EndProperty
  189.       EndProperty
  190.       BeginProperty Column04 
  191.          DataField       =   "惩罚金额"
  192.          Caption         =   "惩罚金额"
  193.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  194.             Type            =   0
  195.             Format          =   ""
  196.             HaveTrueFalseNull=   0
  197.             FirstDayOfWeek  =   0
  198.             FirstWeekOfYear =   0
  199.             LCID            =   2052
  200.             SubFormatType   =   0
  201.          EndProperty
  202.       EndProperty
  203.       BeginProperty Column05 
  204.          DataField       =   "备注"
  205.          Caption         =   "备注"
  206.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  207.             Type            =   0
  208.             Format          =   ""
  209.             HaveTrueFalseNull=   0
  210.             FirstDayOfWeek  =   0
  211.             FirstWeekOfYear =   0
  212.             LCID            =   2052
  213.             SubFormatType   =   0
  214.          EndProperty
  215.       EndProperty
  216.       BeginProperty Column06 
  217.          DataField       =   "日期"
  218.          Caption         =   "日期"
  219.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  220.             Type            =   0
  221.             Format          =   ""
  222.             HaveTrueFalseNull=   0
  223.             FirstDayOfWeek  =   0
  224.             FirstWeekOfYear =   0
  225.             LCID            =   2052
  226.             SubFormatType   =   0
  227.          EndProperty
  228.       EndProperty
  229.       SplitCount      =   1
  230.       BeginProperty Split0 
  231.          MarqueeStyle    =   4
  232.          BeginProperty Column00 
  233.             ColumnWidth     =   1170.142
  234.          EndProperty
  235.          BeginProperty Column01 
  236.             ColumnWidth     =   915.024
  237.          EndProperty
  238.          BeginProperty Column02 
  239.             ColumnWidth     =   900.284
  240.          EndProperty
  241.          BeginProperty Column03 
  242.             ColumnWidth     =   1454.74
  243.          EndProperty
  244.          BeginProperty Column04 
  245.             ColumnWidth     =   1170.142
  246.          EndProperty
  247.          BeginProperty Column05 
  248.             ColumnWidth     =   1500.095
  249.          EndProperty
  250.          BeginProperty Column06 
  251.             ColumnWidth     =   1530.142
  252.          EndProperty
  253.       EndProperty
  254.    End
  255.    Begin MSComctlLib.Toolbar Toolbar1 
  256.       Align           =   1  'Align Top
  257.       Height          =   795
  258.       Left            =   0
  259.       TabIndex        =   1
  260.       Top             =   0
  261.       Width           =   9390
  262.       _ExtentX        =   16563
  263.       _ExtentY        =   1402
  264.       ButtonWidth     =   1138
  265.       ButtonHeight    =   1349
  266.       Appearance      =   1
  267.       Style           =   1
  268.       ImageList       =   "ImageList1"
  269.       _Version        =   393216
  270.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  271.          NumButtons      =   8
  272.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  273.             Caption         =   " 增加 "
  274.             Key             =   "add"
  275.             ImageIndex      =   1
  276.          EndProperty
  277.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  278.             Caption         =   "修改"
  279.             Key             =   "modify"
  280.             ImageIndex      =   2
  281.          EndProperty
  282.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  283.             Caption         =   "删除"
  284.             Key             =   "delete"
  285.             ImageIndex      =   3
  286.          EndProperty
  287.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  288.             Style           =   3
  289.          EndProperty
  290.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  291.             Caption         =   "查找"
  292.             Key             =   "find"
  293.             ImageIndex      =   4
  294.          EndProperty
  295.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  296.             Caption         =   "全部"
  297.             Key             =   "all"
  298.             ImageIndex      =   5
  299.          EndProperty
  300.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  301.             Style           =   3
  302.          EndProperty
  303.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  304.             Caption         =   "关闭"
  305.             Key             =   "close"
  306.             ImageIndex      =   6
  307.          EndProperty
  308.       EndProperty
  309.       BorderStyle     =   1
  310.    End
  311. End
  312. Attribute VB_Name = "main_gzgl_cfgl"
  313. Attribute VB_GlobalNameSpace = False
  314. Attribute VB_Creatable = False
  315. Attribute VB_PredeclaredId = True
  316. Attribute VB_Exposed = False
  317. Dim rs1 As New ADODB.Recordset
  318. Private Sub Form_Activate()
  319.   If sql1 <> "" Then
  320.      Adodc1.RecordSource = sql1
  321.      Adodc1.Refresh
  322.      If Adodc1.Recordset.RecordCount > 0 Then
  323.      Else
  324.         MsgBox "没有找到符合条件的记录！", , "提示窗口"
  325.      End If
  326.   End If
  327. End Sub
  328. Private Sub Form_Load()
  329.   Me.Caption = text
  330. End Sub
  331. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  332.   sql1 = ""
  333. End Sub
  334. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  335.   Select Case Button.Key
  336.      Case "add"
  337.        blnAddCF = True
  338.        main_yyxx.Tag = 7
  339.        Load main_yyxx
  340.        main_yyxx.Show 1
  341.      Case "modify"
  342.        If Adodc1.Recordset.RecordCount > 0 Then
  343.          blnAddCF = False
  344.          Load main_gzgl_cfgl_lr
  345.          main_gzgl_cfgl_lr.Show 1
  346.        Else
  347.          MsgBox "系统没有要修改的数据！", , "提示窗口"
  348.        End If
  349.      Case "delete"
  350.        If Adodc1.Recordset.RecordCount > 0 Then
  351.          Adodc1.Recordset.Delete
  352.          Adodc1.Refresh
  353.        Else
  354.          MsgBox "系统没有要删除的数据！", , "提示窗口"
  355.        End If
  356.      Case "find"
  357.        tb1 = "员工惩罚表"
  358.        Load main_fzfind
  359.        main_fzfind.Show 1
  360.      Case "all"
  361.        Adodc1.RecordSource = "员工惩罚表"
  362.        Adodc1.Refresh
  363.      Case "close"
  364.        Unload Me
  365.   End Select
  366. End Sub