addfield.vb

一个小的数据库管理系统

        Me._lblLabels_4.TabIndex = 31
        Me._lblLabels_4.Text = "顺序位置: "
        '
        '_lblLabels_0
        '
        Me._lblLabels_0.AutoSize = True
        Me._lblLabels_0.BackColor = System.Drawing.SystemColors.Control
        Me._lblLabels_0.Cursor = System.Windows.Forms.Cursors.Default
        Me._lblLabels_0.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me._lblLabels_0.ForeColor = System.Drawing.SystemColors.ControlText
        Me._lblLabels_0.Location = New System.Drawing.Point(8, 8)
        Me._lblLabels_0.Name = "_lblLabels_0"
        Me._lblLabels_0.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._lblLabels_0.Size = New System.Drawing.Size(48, 14)
        Me._lblLabels_0.TabIndex = 29
        Me._lblLabels_0.Text = " 名称: "
        '
        '_lblLabels_2
        '
        Me._lblLabels_2.AutoSize = True
        Me._lblLabels_2.BackColor = System.Drawing.SystemColors.Control
        Me._lblLabels_2.Cursor = System.Windows.Forms.Cursors.Default
        Me._lblLabels_2.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me._lblLabels_2.ForeColor = System.Drawing.SystemColors.ControlText
        Me._lblLabels_2.Location = New System.Drawing.Point(8, 48)
        Me._lblLabels_2.Name = "_lblLabels_2"
        Me._lblLabels_2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._lblLabels_2.Size = New System.Drawing.Size(48, 14)
        Me._lblLabels_2.TabIndex = 28
        Me._lblLabels_2.Text = " 类型: "
        '
        '_lblLabels_3
        '
        Me._lblLabels_3.AutoSize = True
        Me._lblLabels_3.BackColor = System.Drawing.SystemColors.Control
        Me._lblLabels_3.Cursor = System.Windows.Forms.Cursors.Default
        Me._lblLabels_3.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me._lblLabels_3.ForeColor = System.Drawing.SystemColors.ControlText
        Me._lblLabels_3.Location = New System.Drawing.Point(8, 88)
        Me._lblLabels_3.Name = "_lblLabels_3"
        Me._lblLabels_3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._lblLabels_3.Size = New System.Drawing.Size(48, 14)
        Me._lblLabels_3.TabIndex = 27
        Me._lblLabels_3.Text = " 大小: "
        '
        '_lblLabels_5
        '
        Me._lblLabels_5.AutoSize = True
        Me._lblLabels_5.BackColor = System.Drawing.SystemColors.Control
        Me._lblLabels_5.Cursor = System.Windows.Forms.Cursors.Default
        Me._lblLabels_5.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me._lblLabels_5.ForeColor = System.Drawing.SystemColors.ControlText
        Me._lblLabels_5.Location = New System.Drawing.Point(144, 48)
        Me._lblLabels_5.Name = "_lblLabels_5"
        Me._lblLabels_5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._lblLabels_5.Size = New System.Drawing.Size(66, 14)
        Me._lblLabels_5.TabIndex = 26
        Me._lblLabels_5.Text = "验证文本: "
        '
        '_lblLabels_6
        '
        Me._lblLabels_6.AutoSize = True
        Me._lblLabels_6.BackColor = System.Drawing.SystemColors.Control
        Me._lblLabels_6.Cursor = System.Windows.Forms.Cursors.Default
        Me._lblLabels_6.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me._lblLabels_6.ForeColor = System.Drawing.SystemColors.ControlText
        Me._lblLabels_6.Location = New System.Drawing.Point(144, 88)
        Me._lblLabels_6.Name = "_lblLabels_6"
        Me._lblLabels_6.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._lblLabels_6.Size = New System.Drawing.Size(66, 14)
        Me._lblLabels_6.TabIndex = 25
        Me._lblLabels_6.Text = "验证规则: "
        '
        '_lblLabels_7
        '
        Me._lblLabels_7.AutoSize = True
        Me._lblLabels_7.BackColor = System.Drawing.SystemColors.Control
        Me._lblLabels_7.Cursor = System.Windows.Forms.Cursors.Default
        Me._lblLabels_7.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me._lblLabels_7.ForeColor = System.Drawing.SystemColors.ControlText
        Me._lblLabels_7.Location = New System.Drawing.Point(144, 128)
        Me._lblLabels_7.Name = "_lblLabels_7"
        Me._lblLabels_7.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._lblLabels_7.Size = New System.Drawing.Size(54, 14)
        Me._lblLabels_7.TabIndex = 24
        Me._lblLabels_7.Text = "缺省值: "
        '
        'frmAddField
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(272, 213)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtOrdinalPos, Me.txtFieldName, Me.cboFieldType, Me.txtFieldSize, Me.txtValidationText, Me.txtValidationRule, Me.txtDefaultValue, Me.cmdOK, Me.cmdClose, Me._lblLabels_4, Me._lblLabels_0, Me._lblLabels_2, Me._lblLabels_3, Me._lblLabels_5, Me._lblLabels_6, Me._lblLabels_7})
        Me.Name = "frmAddField"
        Me.Text = "添加字段"
        Me.ResumeLayout(False)

    End Sub

#End Region

    '>>>>>>>>>>>>>>>>>>>>>>>>
    Const FORMCAPTION As String = "添加字段"
    Const BUTTON1 As String = "确定(&O)"
    Const BUTTON2 As String = "关闭(&C)"
    Const MSG1 As String = " 已经存在！"
    '>>>>>>>>>>>>>>>>>>>>>>>>

    Private Sub cmdClose_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdClose.Click
        Me.Close()
    End Sub

    Sub frmAddField_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        MyRS.Close()
        Me.Text = FORMCAPTION
        cmdOK.Text = BUTTON1
        cmdClose.Text = BUTTON2

        cboFieldType.Items.Add("Boolean")
        FieldType(0) = DAO.DataTypeEnum.dbBoolean

        cboFieldType.Items.Add("Byte")
        FieldType(1) = DAO.DataTypeEnum.dbByte

        cboFieldType.Items.Add("Integer")
        FieldType(2) = DAO.DataTypeEnum.dbInteger

        cboFieldType.Items.Add("Long")
        FieldType(3) = DAO.DataTypeEnum.dbLong

        cboFieldType.Items.Add("Currency")
        FieldType(4) = DAO.DataTypeEnum.dbCurrency

        cboFieldType.Items.Add("Single")
        FieldType(5) = DAO.DataTypeEnum.dbSingle

        cboFieldType.Items.Add("Double")
        FieldType(6) = DAO.DataTypeEnum.dbDouble

        cboFieldType.Items.Add("Date/Time")
        FieldType(7) = DAO.DataTypeEnum.dbDate

        cboFieldType.Items.Add("Text")
        FieldType(8) = DAO.DataTypeEnum.dbText

        cboFieldType.Items.Add("Binary")
        FieldType(9) = DAO.DataTypeEnum.dbBinary

        cboFieldType.Items.Add("Memo")
        FieldType(10) = DAO.DataTypeEnum.dbMemo

        SetDefaults()
    End Sub

    Private Sub txtFieldName_TextChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles txtFieldName.TextChanged
        '只有"名称”(name)字段有内容时，才激活“确定”(OK)按钮
        cmdOK.Enabled = (Len(txtFieldName.Text) > 0)
    End Sub

    Private Sub cboFieldType_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cboFieldType.SelectedIndexChanged
        '调用函数设置字段的大小和类型
        txtFieldSize.Text = cboFieldType.Items(cboFieldType.SelectedIndex).ToString
        txtFieldSize.Enabled = False

        '针对每个字段类型，使适当的控件工作
        If txtFieldSize.Text  = "Text" Then
            '允许输入字段长度
            txtFieldSize.Enabled = True
            'Access UI 的缺省字段大小
            txtFieldSize.Text = "50"
            '对 memo 和 text 有效
        End If
    End Sub

    Private Sub cmdOK_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOK.Click
        Dim fld As DAO.Field
        '本地字段结构
        Dim i As Short
        '得到一个新字段对象
        fld = MyTD.CreateField()
        '填充字段结构
        With fld
            .Name = txtFieldName.Text
            .Type = FieldType(cboFieldType.SelectedIndex)
            .Size = CInt(txtFieldSize.Text)
            If Len(txtOrdinalPos.Text) > 0 Then .OrdinalPosition = CShort(txtOrdinalPos.Text)
            If .Type = DAO.DataTypeEnum.dbText Then
                '这个仅用于 text
            End If
            .ValidationText = txtValidationText.Text
            .ValidationRule = txtValidationRule.Text
            .DefaultValue = txtDefaultValue.Text
        End With

        '试着追加字段
        MyTD.Fields.Append(fld)

        '清除名称并允许输入下一个
        SetDefaults()
        txtFieldName.Focus()
    End Sub

    Private Sub SetDefaults()
        txtFieldName.Text = vbNullString
        cboFieldType.SelectedIndex = 8
        '缺省为 text
        txtFieldSize.Text = CStr(50)
        '缺省为 50
        txtValidationText.Text = vbNullString
        txtValidationRule.Text = vbNullString
        txtDefaultValue.Text = vbNullString
    End Sub
End Class