frmcjsz1.frm

来自「企业工资管理系统的具体实现」· FRM 代码 · 共 89 行

VERSION 5.00
Begin VB.Form frmcjsz1 
   Caption         =   "车间维护副表"
   ClientHeight    =   2250
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3975
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2250
   ScaleWidth      =   3975
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Cmdcancle 
      Caption         =   "取  消"
      Height          =   375
      Left            =   1920
      TabIndex        =   4
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton Cmdsave 
      Caption         =   "保  存"
      Height          =   375
      Left            =   840
      TabIndex        =   3
      Top             =   1680
      Width           =   855
   End
   Begin VB.TextBox txtworkshopname 
      Height          =   375
      Left            =   1560
      TabIndex        =   2
      Top             =   960
      Width           =   1575
   End
   Begin VB.TextBox txtworkshopid 
      Height          =   375
      Left            =   1560
      TabIndex        =   1
      Top             =   360
      Width           =   1455
   End
   Begin VB.Label Lblworkshopname 
      AutoSize        =   -1  'True
      Caption         =   "车间名称："
      Height          =   180
      Left            =   480
      TabIndex        =   5
      Top             =   1080
      Width           =   900
   End
   Begin VB.Label Lblworkshopid 
      AutoSize        =   -1  'True
      Caption         =   "车间代码："
      Height          =   180
      Left            =   480
      TabIndex        =   0
      Top             =   480
      Width           =   900
   End
End
Attribute VB_Name = "frmcjsz1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmdcancle_Click()
Unload Me
End Sub

Private Sub Cmdsave_Click()
On Error GoTo err1
With frmcjsz.adowork
    .Recordset.AddNew
    If Me.txtworkshopid.Text <> "" Then .Recordset.Fields("cjdh").Value = Trim(Me.txtworkshopid.Text)
    If Me.txtworkshopname.Text <> "" Then .Recordset.Fields("cjm").Value = Trim(Me.txtworkshopname.Text)
    .Recordset.Update
End With
Me.txtworkshopid.Text = ""
Me.txtworkshopname.Text = ""
Me.txtworkshopid.SetFocus
err1:
    If Err.Number = "-2147467259" Then
        MsgBox "车间代码不能为空，请输入后再保存！", vbInformation, "提示"
        Me.txtworkshopid.SetFocus
        Exit Sub
    End If
End Sub