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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 其他行业 > 查看源码
frmteacher.frm
资源名称：大学人事管理系统.zip　[点击查看]
上传用户：plkplk66
上传日期：2007-06-06
资源大小：686k
文件大小：12k
源码类别：

其他行业

开发平台：

Visual Basic

frmteacher.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmteacher 
  3.    Caption         =   "教师信息录入"
  4.    ClientHeight    =   7395
  5.    ClientLeft      =   5265
  6.    ClientTop       =   945
  7.    ClientWidth     =   6240
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   7395
  10.    ScaleWidth      =   6240
  11.    StartUpPosition =   2  '屏幕中心
  12.    Begin VB.Frame frteacher 
  13.       Caption         =   "教师信息"
  14.       Height          =   6435
  15.       Left            =   315
  16.       TabIndex        =   2
  17.       Top             =   210
  18.       Width           =   5640
  19.       Begin VB.ComboBox cmbdate 
  20.          Appearance      =   0  'Flat
  21.          Height          =   300
  22.          Left            =   2625
  23.          TabIndex        =   33
  24.          Top             =   1365
  25.          Width           =   645
  26.       End
  27.       Begin VB.ComboBox cmbmonth 
  28.          Appearance      =   0  'Flat
  29.          Height          =   300
  30.          Left            =   1785
  31.          TabIndex        =   32
  32.          Top             =   1365
  33.          Width           =   645
  34.       End
  35.       Begin VB.ComboBox cmbyear 
  36.          Appearance      =   0  'Flat
  37.          Height          =   300
  38.          Left            =   840
  39.          TabIndex        =   31
  40.          Top             =   1365
  41.          Width           =   645
  42.       End
  43.       Begin VB.ComboBox cmbsex 
  44.          Appearance      =   0  'Flat
  45.          Height          =   300
  46.          Left            =   840
  47.          TabIndex        =   30
  48.          Text            =   "男"
  49.          Top             =   945
  50.          Width           =   645
  51.       End
  52.       Begin VB.TextBox txtphone 
  53.          Appearance      =   0  'Flat
  54.          Height          =   270
  55.          Left            =   1155
  56.          TabIndex        =   13
  57.          Top             =   1785
  58.          Width           =   960
  59.       End
  60.       Begin VB.TextBox txtaddress 
  61.          Appearance      =   0  'Flat
  62.          Height          =   270
  63.          Left            =   1155
  64.          TabIndex        =   12
  65.          Top             =   2625
  66.          Width           =   4170
  67.       End
  68.       Begin VB.TextBox txtpostcode 
  69.          Appearance      =   0  'Flat
  70.          Height          =   270
  71.          Left            =   1155
  72.          TabIndex        =   11
  73.          Top             =   2205
  74.          Width           =   960
  75.       End
  76.       Begin VB.TextBox txtID 
  77.          Appearance      =   0  'Flat
  78.          Height          =   270
  79.          Left            =   735
  80.          TabIndex        =   10
  81.          Top             =   4095
  82.          Width           =   1275
  83.       End
  84.       Begin VB.TextBox txtworktime 
  85.          Appearance      =   0  'Flat
  86.          Height          =   270
  87.          Left            =   2625
  88.          TabIndex        =   9
  89.          Top             =   4095
  90.          Width           =   330
  91.       End
  92.       Begin VB.TextBox txtpro 
  93.          Appearance      =   0  'Flat
  94.          Height          =   270
  95.          Left            =   4095
  96.          TabIndex        =   8
  97.          Top             =   4095
  98.          Width           =   1275
  99.       End
  100.       Begin VB.ComboBox cmbmarriage 
  101.          Appearance      =   0  'Flat
  102.          Height          =   300
  103.          Left            =   2310
  104.          TabIndex        =   7
  105.          Text            =   "是"
  106.          Top             =   945
  107.          Width           =   615
  108.       End
  109.       Begin VB.Frame Frame1 
  110.          Caption         =   "备注"
  111.          Height          =   1695
  112.          Left            =   210
  113.          TabIndex        =   5
  114.          Top             =   4515
  115.          Width           =   5160
  116.          Begin VB.TextBox Text5 
  117.             Appearance      =   0  'Flat
  118.             Height          =   1380
  119.             Left            =   105
  120.             MultiLine       =   -1  'True
  121.             ScrollBars      =   2  'Vertical
  122.             TabIndex        =   6
  123.             Text            =   "frmteacher.frx":0000
  124.             Top             =   210
  125.             Width           =   4950
  126.          End
  127.       End
  128.       Begin VB.TextBox txtname 
  129.          Appearance      =   0  'Flat
  130.          Height          =   270
  131.          Left            =   840
  132.          TabIndex        =   4
  133.          Top             =   525
  134.          Width           =   960
  135.       End
  136.       Begin VB.TextBox txtemail 
  137.          Appearance      =   0  'Flat
  138.          Height          =   270
  139.          Left            =   840
  140.          TabIndex        =   3
  141.          Top             =   3150
  142.          Width           =   4530
  143.       End
  144.       Begin VB.Label Label1 
  145.          Caption         =   "姓名："
  146.          Height          =   210
  147.          Index           =   0
  148.          Left            =   210
  149.          TabIndex        =   29
  150.          Top             =   630
  151.          Width           =   615
  152.       End
  153.       Begin VB.Label Label2 
  154.          Caption         =   "性别："
  155.          Height          =   255
  156.          Left            =   210
  157.          TabIndex        =   28
  158.          Top             =   1050
  159.          Width           =   615
  160.       End
  161.       Begin VB.Label Label3 
  162.          Caption         =   "生日："
  163.          Height          =   255
  164.          Left            =   210
  165.          TabIndex        =   27
  166.          Top             =   1470
  167.          Width           =   615
  168.       End
  169.       Begin VB.Image Image1 
  170.          BorderStyle     =   1  'Fixed Single
  171.          Height          =   1755
  172.          Left            =   3990
  173.          Stretch         =   -1  'True
  174.          Top             =   525
  175.          Width           =   1320
  176.       End
  177.       Begin VB.Label Label4 
  178.          Caption         =   "联系电话："
  179.          Height          =   255
  180.          Left            =   210
  181.          TabIndex        =   26
  182.          Top             =   1890
  183.          Width           =   975
  184.       End
  185.       Begin VB.Label Label5 
  186.          Caption         =   "家庭地址："
  187.          Height          =   255
  188.          Left            =   210
  189.          TabIndex        =   25
  190.          Top             =   2730
  191.          Width           =   975
  192.       End
  193.       Begin VB.Label Label6 
  194.          Caption         =   "邮    编："
  195.          Height          =   150
  196.          Left            =   210
  197.          TabIndex        =   24
  198.          Top             =   2310
  199.          Width           =   930
  200.       End
  201.       Begin VB.Line Line1 
  202.          BorderColor     =   &H80000010&
  203.          BorderWidth     =   2
  204.          X1              =   210
  205.          X2              =   5355
  206.          Y1              =   3780
  207.          Y2              =   3780
  208.       End
  209.       Begin VB.Label Label7 
  210.          Caption         =   "点击此处添加照片"
  211.          Height          =   540
  212.          Left            =   4305
  213.          TabIndex        =   23
  214.          Top             =   1155
  215.          Width           =   750
  216.       End
  217.       Begin VB.Label Label8 
  218.          Caption         =   "年"
  219.          Height          =   225
  220.          Left            =   1575
  221.          TabIndex        =   22
  222.          Top             =   1470
  223.          Width           =   225
  224.       End
  225.       Begin VB.Label Label9 
  226.          Caption         =   "月"
  227.          Height          =   225
  228.          Left            =   2415
  229.          TabIndex        =   21
  230.          Top             =   1470
  231.          Width           =   225
  232.       End
  233.       Begin VB.Label Label10 
  234.          Caption         =   "日"
  235.          Height          =   225
  236.          Left            =   3255
  237.          TabIndex        =   20
  238.          Top             =   1470
  239.          Width           =   225
  240.       End
  241.       Begin VB.Label Label11 
  242.          Caption         =   "工号："
  243.          Height          =   225
  244.          Left            =   210
  245.          TabIndex        =   19
  246.          Top             =   4200
  247.          Width           =   540
  248.       End
  249.       Begin VB.Label Label12 
  250.          Caption         =   "工龄："
  251.          Height          =   225
  252.          Left            =   2100
  253.          TabIndex        =   18
  254.          Top             =   4200
  255.          Width           =   540
  256.       End
  257.       Begin VB.Label Label13 
  258.          Caption         =   "年"
  259.          Height          =   225
  260.          Left            =   3045
  261.          TabIndex        =   17
  262.          Top             =   4200
  263.          Width           =   225
  264.       End
  265.       Begin VB.Label Label14 
  266.          Caption         =   "专业："
  267.          Height          =   225
  268.          Left            =   3570
  269.          TabIndex        =   16
  270.          Top             =   4200
  271.          Width           =   540
  272.       End
  273.       Begin VB.Label Label15 
  274.          Caption         =   "婚否："
  275.          Height          =   225
  276.          Left            =   1680
  277.          TabIndex        =   15
  278.          Top             =   1050
  279.          Width           =   540
  280.       End
  281.       Begin VB.Label Label16 
  282.          Caption         =   "email："
  283.          Height          =   225
  284.          Left            =   210
  285.          TabIndex        =   14
  286.          Top             =   3255
  287.          Width           =   750
  288.       End
  289.    End
  290.    Begin VB.CommandButton Command3 
  291.       Caption         =   "退出"
  292.       Height          =   330
  293.       Left            =   3585
  294.       TabIndex        =   1
  295.       Top             =   6825
  296.       Width           =   855
  297.    End
  298.    Begin VB.CommandButton Command1 
  299.       Caption         =   "确定"
  300.       Height          =   330
  301.       Left            =   1800
  302.       TabIndex        =   0
  303.       Top             =   6825
  304.       Width           =   855
  305.    End
  306. End
  307. Attribute VB_Name = "frmteacher"
  308. Attribute VB_GlobalNameSpace = False
  309. Attribute VB_Creatable = False
  310. Attribute VB_PredeclaredId = True
  311. Attribute VB_Exposed = False
  312. Option Explicit
  315. Private Sub Command1_Click()
  317. Set rs = db.OpenRecordset("SELECT * FROM reshi")
  318. If rs Is Nothing Or rs.Updatable = False Then
  319.    MsgBox "不能打开或写入记录集！"
  320.    Exit Sub
  321. End If
  322. rs.AddNew
  323. DataFile = 1
  324. If FNAME <> "" Then
  325. Open FNAME For Binary Access Read As DataFile
  326. Fl = LOF(DataFile)
  327.  If Fl = 0 Then
  328.         Close DataFile
  329.         Exit Sub
  330.     End If
  331.         block = Fl  blocksize
  332.     Fragment = Fl Mod blocksize
  333.     ReDim Chunk(Fragment)
  334.     Get DataFile, , Chunk()
  335.     rs.Fields("photo").AppendChunk Chunk()
  336.     ReDim Chunk(blocksize)
  337.     For I = 1 To block
  338.         Get DataFile, , Chunk()
  339.         rs.Fields("photo").AppendChunk Chunk()
  340.     Next I
  341. Close DataFile
  342. End If
  343. rs.Fields("name") = txtname.Text
  344. rs.Fields("ID") = txtID.Text
  345. rs.Fields("zip") = txtpostcode.Text
  346. rs.Fields("phone") = txtphone.Text
  347. rs.Fields("sex") = cmbsex.Text
  348. rs.Fields("address") = txtaddress.Text
  349. rs.Fields("worktime") = Val(txtworktime.Text)
  350. rs.Fields("profession") = txtpro.Text
  351. rs.Fields("marriage") = cmbmarriage.Text
  352. rs.Fields("remark") = Text5.Text
  353. rs.Fields("email") = txtemail.Text
  354. rs.Fields("birth") = cmbyear.Text + "年" + cmbmonth + "月" + cmbdate + "日"
  355. rs.Fields("flag") = 0
  356. rs.Update
  357. rs.Close
  358. Set rs = Nothing
  359. MsgBox "信息已录入"
  360. End Sub
  362. Private Sub Command3_Click()
  363. frmmain.SetFocus
  364. Unload Me
  365. End Sub
  367. Private Sub Form_Load()
  368. cmbsex.AddItem "男"
  369. cmbsex.AddItem "女"
  370. cmbyear.AddItem "1981"
  371. cmbmonth.AddItem "1"
  372. cmbmonth.AddItem "2"
  373. cmbmonth.AddItem "3"
  374. cmbmonth.AddItem "4"
  375. cmbmonth.AddItem "5"
  376. cmbmonth.AddItem "6"
  377. cmbmonth.AddItem "7"
  378. cmbmonth.AddItem "8"
  379. cmbmonth.AddItem "9"
  380. cmbmonth.AddItem "10"
  381. cmbmonth.AddItem "11"
  382. cmbmonth.AddItem "12"
  383. cmbdate.AddItem "1"
  384. cmbdate.AddItem "2"
  385. cmbdate.AddItem "3"
  386. cmbdate.AddItem "4"
  387. cmbdate.AddItem "5"
  388. cmbdate.AddItem "6"
  389. cmbdate.AddItem "7"
  390. cmbdate.AddItem "8"
  391. cmbdate.AddItem "9"
  392. cmbdate.AddItem "10"
  393. cmbdate.AddItem "11"
  394. cmbdate.AddItem "12"
  395. cmbdate.AddItem "13"
  396. cmbdate.AddItem "14"
  397. cmbdate.AddItem "15"
  398. cmbdate.AddItem "16"
  399. cmbdate.AddItem "17"
  400. cmbdate.AddItem "18"
  401. cmbdate.AddItem "19"
  402. cmbdate.AddItem "20"
  403. cmbdate.AddItem "21"
  404. cmbdate.AddItem "22"
  405. cmbdate.AddItem "23"
  406. cmbdate.AddItem "24"
  407. cmbdate.AddItem "25"
  408. cmbdate.AddItem "26"
  409. cmbdate.AddItem "27"
  410. cmbdate.AddItem "28"
  411. cmbdate.AddItem "29"
  412. cmbdate.AddItem "30"
  413. cmbdate.AddItem "31"
  414. cmbmarriage.AddItem "是"
  415. cmbmarriage.AddItem "否"
  416. Set db = Workspaces(0).OpenDatabase(App.Path & "reshi.mdb")
  418. End Sub
  421. Private Sub Image1_Click()
  422. flag = 0
  423. frmloadpic.Visible = True
  424. frmloadpic.File1.Pattern = "*.bmp;*.jpg;*,ico;*.gif"
  425. Me.Enabled = False
  426. End Sub
  428. Private Sub Label7_Click()
  429. flag = 0
  430. frmloadpic.Visible = True
  431. frmloadpic.File1.Pattern = "*.bmp;*.jpg;*,ico;*.gif"
  432. Me.Enabled = False
  433. End Sub