📄 addstudgood.frm
字号:
TabIndex = 7
Top = 1680
Width = 2535
End
Begin VB.TextBox Text3
Height = 495
Index = 0
Left = 1200
TabIndex = 6
Top = 1080
Width = 2535
End
Begin VB.TextBox Text1
Height = 495
Index = 0
Left = 1200
TabIndex = 5
Top = 360
Width = 2535
End
Begin VB.Label Label11
Caption = "详细描述"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 25
Top = 4320
Width = 1215
End
Begin VB.Label Label4
Caption = "性别"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 0
Left = 3960
TabIndex = 17
Top = 1080
Width = 735
End
Begin VB.Label Label2
Caption = "学号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 0
Left = 3960
TabIndex = 16
Top = 480
Width = 735
End
Begin VB.Label Label12
Caption = "日期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 3960
TabIndex = 15
Top = 1800
Width = 735
End
Begin VB.Label Label5
Caption = "班级"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 0
Left = 240
TabIndex = 10
Top = 1800
Width = 735
End
Begin VB.Label Label3
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 0
Left = 240
TabIndex = 9
Top = 1080
Width = 735
End
Begin VB.Label Label1
Caption = "编号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 0
Left = 240
TabIndex = 8
Top = 360
Width = 615
End
End
Begin VB.CommandButton Command3
Caption = "关闭(&C)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 9240
TabIndex = 3
Top = 1680
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "重填(&E)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 9240
TabIndex = 2
Top = 960
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "确定(&O)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 9240
TabIndex = 1
Top = 240
Width = 1215
End
Begin VB.Frame Frame2
Height = 2535
Left = 9120
TabIndex = 0
Top = 0
Width = 1455
End
End
Attribute VB_Name = "addstudgood"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Command1.Caption = "确定(&O)" Then
If Not Testtxt(Text1.Text) Then
MsgBox "请输入编号！", 48, "提示"
Text1.SetFocus
Exit Sub
End If
txtSQL = "select * from studgood "
Set dream = ExecuteSQL(txtSQL, Msgtext)
dream.MoveFirst
While (dream.EOF = False)
If (dream.Fields(0)) = Trim(Text1.Text) Then
MsgBox "编号已经存在！", 48, "提示"
Exit Sub
Text1.Text = ""
Text1.SetFocus
Else
dream.MoveNext
End If
Wend
dream.AddNew
dream.Fields(0) = Trim(Text1.Text)
dream.Fields(1) = Trim(Text2.Text)
dream.Fields(2) = Trim(Text3.Text)
dream.Fields(3) = Trim(Combo6.Text)
dream.Fields(4) = Trim(Text4.Text)
dream.Fields(5) = Trim(Text5.Text)
dream.Fields(6) = Trim(Combo1.Text)
dream.Fields(7) = Trim(Combo2.Text)
dream.Fields(8) = Trim(Combo3.Text)
dream.Fields(9) = Trim(Combo4.Text)
dream.Fields(10) = Trim(Combo5.Text)
dream.Fields(11) = Trim(Text6.Text)
dream.UpdateBatch
'=================================================
MsgBox "添加学生奖励信息成功！", 48, "提示"
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
'clean text
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Combo5.Text = ""
Combo6.Text = ""
Else
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Combo5.Text = ""
Combo6.Text = ""
End If
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Text1(0).SetFocus
Text1(0).Text = ""
End Sub
Private Sub Command4_Click()
Calendar1.Visible = True
End Sub
Private Sub Calendar1_Click()
Text5.Text = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub Form_Load()
addstudgood.Width = 11010
addstudgood.Height = 6870
Calendar1.Visible = False
Combo6.AddItem "男"
Combo6.AddItem "女"
Combo1.AddItem "三好生"
Combo1.AddItem "学生干部"
Combo1.AddItem "优秀团员"
Combo2.AddItem "三好生"
Combo2.AddItem "学生干部"
Combo2.AddItem "优秀团员"
Combo3.AddItem "三好生"
Combo3.AddItem "学生干部"
Combo3.AddItem "优秀团员"
Combo4.AddItem "三好生"
Combo4.AddItem "学生干部"
Combo4.AddItem "优秀团员"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -