main_rsgl_rsbd_lr.frm
上传用户:wd52qq
上传日期:2022-07-24
资源大小:5366k
文件大小:11k
源码类别:

企业管理

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  3. Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
  4. Begin VB.Form main_rsgl_rsbd_lr 
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "添加调动信息"
  7.    ClientHeight    =   2190
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   7710
  11.    Icon            =   "main_rsgl_rsbd_lr.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2190
  16.    ScaleWidth      =   7710
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  '屏幕中心
  19.    Begin VB.CommandButton Command2 
  20.       Caption         =   "取消"
  21.       Height          =   390
  22.       Left            =   3885
  23.       TabIndex        =   11
  24.       Top             =   1560
  25.       Width           =   1950
  26.    End
  27.    Begin VB.CommandButton Command1 
  28.       Caption         =   "确定"
  29.       Height          =   390
  30.       Left            =   1815
  31.       TabIndex        =   10
  32.       Top             =   1560
  33.       Width           =   1950
  34.    End
  35.    Begin VB.Frame Frame1 
  36.       Height          =   1440
  37.       Left            =   30
  38.       TabIndex        =   0
  39.       Top             =   -30
  40.       Width           =   7665
  41.       Begin VB.TextBox Txt1 
  42.          Height          =   300
  43.          Left            =   885
  44.          Locked          =   -1  'True
  45.          TabIndex        =   2
  46.          Top             =   210
  47.          Width           =   6345
  48.       End
  49.       Begin VB.CommandButton cmdDept 
  50.          Caption         =   "…"
  51.          Height          =   300
  52.          Left            =   7230
  53.          TabIndex        =   1
  54.          Top             =   210
  55.          Width           =   315
  56.       End
  57.       Begin MSDataListLib.DataCombo DataCombo1 
  58.          Bindings        =   "main_rsgl_rsbd_lr.frx":000C
  59.          Height          =   330
  60.          Left            =   885
  61.          TabIndex        =   3
  62.          Top             =   585
  63.          Width           =   2625
  64.          _ExtentX        =   4630
  65.          _ExtentY        =   582
  66.          _Version        =   393216
  67.          ListField       =   "工种"
  68.          Text            =   ""
  69.       End
  70.       Begin MSDataListLib.DataCombo DataCombo2 
  71.          Bindings        =   "main_rsgl_rsbd_lr.frx":0021
  72.          Height          =   330
  73.          Left            =   4290
  74.          TabIndex        =   4
  75.          Top             =   585
  76.          Width           =   3255
  77.          _ExtentX        =   5741
  78.          _ExtentY        =   582
  79.          _Version        =   393216
  80.          ListField       =   "职务名称"
  81.          Text            =   ""
  82.       End
  83.       Begin MSDataListLib.DataCombo DataCombo3 
  84.          Bindings        =   "main_rsgl_rsbd_lr.frx":0036
  85.          Height          =   330
  86.          Left            =   885
  87.          TabIndex        =   5
  88.          Top             =   990
  89.          Width           =   6645
  90.          _ExtentX        =   11721
  91.          _ExtentY        =   582
  92.          _Version        =   393216
  93.          ListField       =   "职称名称"
  94.          Text            =   ""
  95.       End
  96.       Begin VB.Label Label21 
  97.          Caption         =   "新部门:"
  98.          Height          =   165
  99.          Left            =   135
  100.          TabIndex        =   9
  101.          Top             =   240
  102.          Width           =   735
  103.       End
  104.       Begin VB.Label Label22 
  105.          Caption         =   "新工种:"
  106.          Height          =   165
  107.          Left            =   135
  108.          TabIndex        =   8
  109.          Top             =   675
  110.          Width           =   735
  111.       End
  112.       Begin VB.Label Label23 
  113.          Caption         =   "新职务:"
  114.          Height          =   165
  115.          Left            =   3600
  116.          TabIndex        =   7
  117.          Top             =   660
  118.          Width           =   735
  119.       End
  120.       Begin VB.Label Label24 
  121.          Caption         =   "新职称:"
  122.          Height          =   165
  123.          Left            =   135
  124.          TabIndex        =   6
  125.          Top             =   1065
  126.          Width           =   720
  127.       End
  128.    End
  129.    Begin MSAdodcLib.Adodc Adodc1 
  130.       Height          =   330
  131.       Left            =   15
  132.       Top             =   1245
  133.       Visible         =   0   'False
  134.       Width           =   2595
  135.       _ExtentX        =   4577
  136.       _ExtentY        =   582
  137.       ConnectMode     =   0
  138.       CursorLocation  =   3
  139.       IsolationLevel  =   -1
  140.       ConnectionTimeout=   15
  141.       CommandTimeout  =   30
  142.       CursorType      =   3
  143.       LockType        =   3
  144.       CommandType     =   2
  145.       CursorOptions   =   0
  146.       CacheSize       =   50
  147.       MaxRecords      =   0
  148.       BOFAction       =   0
  149.       EOFAction       =   0
  150.       ConnectStringType=   1
  151.       Appearance      =   1
  152.       BackColor       =   -2147483643
  153.       ForeColor       =   -2147483640
  154.       Orientation     =   0
  155.       Enabled         =   -1
  156.       Connect         =   "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
  157.       OLEDBString     =   "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
  158.       OLEDBFile       =   ""
  159.       DataSourceName  =   ""
  160.       OtherAttributes =   ""
  161.       UserName        =   ""
  162.       Password        =   ""
  163.       RecordSource    =   "工种表"
  164.       Caption         =   "Adodc1"
  165.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  166.          Name            =   "宋体"
  167.          Size            =   9
  168.          Charset         =   134
  169.          Weight          =   400
  170.          Underline       =   0   'False
  171.          Italic          =   0   'False
  172.          Strikethrough   =   0   'False
  173.       EndProperty
  174.       _Version        =   393216
  175.    End
  176.    Begin MSAdodcLib.Adodc Adodc2 
  177.       Height          =   330
  178.       Left            =   -45
  179.       Top             =   1620
  180.       Visible         =   0   'False
  181.       Width           =   2595
  182.       _ExtentX        =   4577
  183.       _ExtentY        =   582
  184.       ConnectMode     =   0
  185.       CursorLocation  =   3
  186.       IsolationLevel  =   -1
  187.       ConnectionTimeout=   15
  188.       CommandTimeout  =   30
  189.       CursorType      =   3
  190.       LockType        =   3
  191.       CommandType     =   2
  192.       CursorOptions   =   0
  193.       CacheSize       =   50
  194.       MaxRecords      =   0
  195.       BOFAction       =   0
  196.       EOFAction       =   0
  197.       ConnectStringType=   1
  198.       Appearance      =   1
  199.       BackColor       =   -2147483643
  200.       ForeColor       =   -2147483640
  201.       Orientation     =   0
  202.       Enabled         =   -1
  203.       Connect         =   "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
  204.       OLEDBString     =   "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
  205.       OLEDBFile       =   ""
  206.       DataSourceName  =   ""
  207.       OtherAttributes =   ""
  208.       UserName        =   ""
  209.       Password        =   ""
  210.       RecordSource    =   "职务表"
  211.       Caption         =   "Adodc1"
  212.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  213.          Name            =   "宋体"
  214.          Size            =   9
  215.          Charset         =   134
  216.          Weight          =   400
  217.          Underline       =   0   'False
  218.          Italic          =   0   'False
  219.          Strikethrough   =   0   'False
  220.       EndProperty
  221.       _Version        =   393216
  222.    End
  223.    Begin MSAdodcLib.Adodc Adodc3 
  224.       Height          =   330
  225.       Left            =   -60
  226.       Top             =   1935
  227.       Visible         =   0   'False
  228.       Width           =   2595
  229.       _ExtentX        =   4577
  230.       _ExtentY        =   582
  231.       ConnectMode     =   0
  232.       CursorLocation  =   3
  233.       IsolationLevel  =   -1
  234.       ConnectionTimeout=   15
  235.       CommandTimeout  =   30
  236.       CursorType      =   3
  237.       LockType        =   3
  238.       CommandType     =   2
  239.       CursorOptions   =   0
  240.       CacheSize       =   50
  241.       MaxRecords      =   0
  242.       BOFAction       =   0
  243.       EOFAction       =   0
  244.       ConnectStringType=   1
  245.       Appearance      =   1
  246.       BackColor       =   -2147483643
  247.       ForeColor       =   -2147483640
  248.       Orientation     =   0
  249.       Enabled         =   -1
  250.       Connect         =   "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
  251.       OLEDBString     =   "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
  252.       OLEDBFile       =   ""
  253.       DataSourceName  =   ""
  254.       OtherAttributes =   ""
  255.       UserName        =   ""
  256.       Password        =   ""
  257.       RecordSource    =   "职称表"
  258.       Caption         =   "Adodc1"
  259.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  260.          Name            =   "宋体"
  261.          Size            =   9
  262.          Charset         =   134
  263.          Weight          =   400
  264.          Underline       =   0   'False
  265.          Italic          =   0   'False
  266.          Strikethrough   =   0   'False
  267.       EndProperty
  268.       _Version        =   393216
  269.    End
  270. End
  271. Attribute VB_Name = "main_rsgl_rsbd_lr"
  272. Attribute VB_GlobalNameSpace = False
  273. Attribute VB_Creatable = False
  274. Attribute VB_PredeclaredId = True
  275. Attribute VB_Exposed = False
  276. Private Sub Form_Activate()
  277.   If deptMark = 1 Then
  278.     DataCombo1.SetFocus
  279.   Else
  280.     Txt1.SetFocus
  281.   End If
  282. End Sub
  283. Private Sub cmdDept_Click()
  284.   deptMark = 1
  285.   Load main_datatree
  286.   main_datatree.Show 1
  287. End Sub
  288. Private Sub Command1_Click()
  289.   Cnn.Execute ("update 人事表 set 部门='" + Txt1 + "',工种='" + DataCombo1 + "',职务='" + DataCombo2 + _
  290.                "',职称='" + DataCombo3 + "'where 编号='" + main_rsgl_rsbd.Text1(0) + "'")
  291.   With main_rsgl_rsbd
  292.      Cnn.Execute ("insert into 人事调动表(职员编号,职员姓名,原部门,现部门,原工种,原职务,原职称,现工种,现职务,现职称,调动时间,登记人)values('" + _
  293.                  .Text1(0) + "','" + .Text1(1) + "','" + .Text1(2) + "','" + Txt1 + "','" + .Text1(3) + "','" + .Text1(4) + "','" + .Text1(5) + _
  294.                  "','" + DataCombo1 + "','" + DataCombo2 + "','" + DataCombo3 + "','" + str(Date) + "','" + czy + "')")
  295.     .Adodc1.Refresh
  296.   End With
  297.   Unload Me
  298. End Sub
  299. Private Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer)
  300.  If KeyCode = vbKeyReturn Then DataCombo2.SetFocus
  301. End Sub
  302. Private Sub DataCombo2_KeyDown(KeyCode As Integer, Shift As Integer)
  303.  If KeyCode = vbKeyReturn Then DataCombo3.SetFocus
  304. End Sub
  305. Private Sub DataCombo3_KeyDown(KeyCode As Integer, Shift As Integer)
  306.  If KeyCode = vbKeyReturn Then Command1.SetFocus
  307. End Sub
  308. Private Sub Txt1_KeyDown(KeyCode As Integer, Shift As Integer)
  309.   If KeyCode = vbKeyReturn Then cmdDept.SetFocus
  310. End Sub
  311. Private Sub Command2_Click()
  312.   Unload Me
  313. End Sub