📄 main_jbzl_gys.frm
字号:
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 1
Left = 1065
MaskColor = &H8000000F&
Picture = "main_jbzl_gys.frx":1A10
Style = 1 'Graphical
TabIndex = 30
Top = 195
Width = 800
End
Begin VB.CommandButton CmdMD
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 2
Left = 1860
MaskColor = &H8000000F&
Picture = "main_jbzl_gys.frx":2F42
Style = 1 'Graphical
TabIndex = 29
Top = 195
Width = 800
End
Begin VB.CommandButton CmdMD
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 3
Left = 2670
MaskColor = &H8000000F&
Picture = "main_jbzl_gys.frx":4446
Style = 1 'Graphical
TabIndex = 28
Top = 195
Width = 800
End
End
End
Attribute VB_Name = "main_jbzl_gys"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：main_jbzl_gys
'**版权说明：吉林省明日科技有限公司享有本软件的所有版权，如果本软件用于商
'** 业用途，必须经过吉林省明日科技有限公司授权。如果提供网上免费
'** 下载，必须经过吉林省明日科技有限公司授权，并保证程序的完整，
'** 不得修改代码、注释和相关内容，否则，我公司将追究其法律责任
'**网 址：www.mingrisoft.com 价值无限，服务无限
'**电 话：（0431）84978981,84978982
'**创 建 人：明日科技
'**日 期：2007-10-31
'**修 改 人：MRLBB
'**日 期：2007-10-31
'**描 述：
'*************************************************************************
Dim i As Integer '定义整型变量
Dim rs1 As New ADODB.Recordset '定义数据集对象
Sub view_data() '定义显示数据的过程
For i = 0 To 13
If Adodc1.Recordset.RecordCount > 0 Then
If Adodc1.Recordset.Fields(i) <> "" Then
gys(i).text = Adodc1.Recordset.Fields(i)
Else
gys(i).text = ""
End If
End If
Next i
End Sub
Private Sub Form_Activate()
'向combo1中添加查询项目列表
Combo1.AddItem ("供应商编号")
Combo1.AddItem ("供应商全称")
Combo1.ListIndex = 1
'打开tb_gys
rs1.Open "select * from tb_gys order by 供应商编号", Cnn, adOpenStatic
If rs1.RecordCount > 0 Then
For i = 0 To 13
If rs1.Fields(i) <> "" Then gys(i).text = rs1.Fields(i)
Next i
End If
rs1.Close '关闭数据集对象
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_JXC;Data Source=."
Adodc2.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_JXC;Data Source=."
Set DataGrid1.DataSource = Adodc1
RegInfo Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub gys_GotFocus(Index As Integer)
gys(Index).BackColor = &HFFFF80
gys(Index).SelStart = 0
gys(Index).SelLength = Len(gys(Index))
End Sub
Private Sub gys_LostFocus(Index As Integer)
gys(Index).BackColor = &HFFFFFF
End Sub
Private Sub gys_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And Index < 13 Then gys(Index + 1).SetFocus '回车获得焦点
If KeyCode = vbKeyReturn And Index = 13 Then cmdSave.SetFocus
If KeyCode = vbKeyUp And Index > 1 Then gys(Index - 1).SetFocus
End Sub
Private Sub text1_GotFocus()
Text1.BackColor = &HFFFF80
End Sub
Private Sub text1_LostFocus()
Text1.BackColor = &HFFFFFF
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
Adodc1.RecordSource = "tb_gys order by 供应商编号"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
If SSTab1.Tab = 1 And cmdAdd.Enabled = False Then
MsgBox "您正在处理数据,请取消数据处理,再执行本操作！", , "明日图书"
SSTab1.Tab = 0
End If
End If
End Sub
Private Sub cmdFind_Click() '查询供应商信息
Adodc1.RecordSource = "tb_gys where (tb_gys." & Combo1.text & " like + '" + Text1.text + "'+'%')"
Adodc1.Refresh
Call view_data '调用过程
SSTab1.Tab = 1
End Sub
Private Sub CmdMD_Click(Index As Integer)
Select Case Index
Case Is = 0 '移到第一条记录
If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
Case Is = 1 '移到上一条记录
If Adodc1.Recordset.RecordCount > 0 Then
If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirst
End If
Case Is = 2 '移到下一条记录
If Adodc1.Recordset.RecordCount > 0 Then
If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast
End If
Case Is = 3 '移到最后一条记录
If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveLast
End Select
Call view_data '调用过程
End Sub
Private Sub cmdAdd_Click()
'自动创建供应商编号
Dim bh As Integer
rs1.Open "select * from tb_gys order by 供应商编号", Cnn, adOpenStatic
If rs1.RecordCount > 0 Then
If Not rs1.EOF Then rs1.MoveLast
If rs1.Fields("供应商编号") <> "" Then
bh = Right(Trim(rs1.Fields("供应商编号")), 4) + 1
gys(0).text = "gys" & Format(bh, "0000")
End If
Else
gys(0).text = "gys0001"
End If
rs1.Close '关闭数据集对象
For i = 1 To 13
gys(i).Enabled = True
gys(i).text = ""
Next i
'设置控件状态
cmdSave.Enabled = True: cmdEsc.Enabled = True: cmdAdd.Enabled = False
cmdModify.Enabled = False: cmdDelete.Enabled = False
For i = 0 To 3
CmdMD(i).Enabled = False
Next i
SSTab1.Tab = 0
gys(1).SetFocus
End Sub
Private Sub cmdModify_Click() '允许用户修改
If Adodc1.Recordset.RecordCount > 0 Then
For i = 0 To 13
gys(i).Enabled = True
Next i
cmdSave.Enabled = True: cmdEsc.Enabled = True: cmdAdd.Enabled = False
cmdModify.Enabled = False: cmdDelete.Enabled = False
For i = 0 To 3
CmdMD(i).Enabled = False
Next i
Else
MsgBox "没有要修改的数据!", , "明日图书"
End If
End Sub
Private Sub cmdDelete_Click() '删除供应商信息
If Adodc1.Recordset.RecordCount > 0 Then
a = MsgBox("您确实要删除这条数据吗?", vbYesNo)
If a = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MovePrevious
view_data
cmdSave.Enabled = False: cmdEsc.Enabled = False: cmdAdd.Enabled = True
cmdModify.Enabled = True: cmdDelete.Enabled = True
For i = 0 To 3
CmdMD(i).Enabled = True
Next i
End If
Else
MsgBox "系统没有要删除的数据！", , "明日图书"
End If
End Sub
Private Sub cmdSave_Click() '保存供应商信息
Adodc2.RecordSource = "select * from tb_gys where 供应商编号='" & Trim(gys(0).text) & "'order by 供应商编号"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
Dim a As String
a = MsgBox("您确实要修改这条数据吗?", vbYesNo, "明日图书")
If a = vbYes Then
For i = 1 To 13
If gys(1).text <> "" Then Adodc2.Recordset.Fields(i) = Trim(gys(i).text)
Next i
Adodc2.Recordset.Update
Adodc1.Refresh
For i = 0 To 13
gys(i).Enabled = False
Next i
cmdSave.Enabled = False: cmdEsc.Enabled = False: cmdAdd.Enabled = True
cmdModify.Enabled = True: cmdDelete.Enabled = True
For i = 0 To 3
CmdMD(i).Enabled = True
Next i
End If
Else
If gys(1).text <> "" And gys(2).text <> "" Then
'添加供应商信息
Adodc2.Recordset.AddNew
For i = 0 To 13
Adodc2.Recordset.Fields(i) = Trim(gys(i).text)
Next i
Adodc2.Recordset.Update '更新数据库
Adodc1.Refresh
MsgBox "保存完成！", vbInformation, "明日图书"
For i = 0 To 13
gys(i).Enabled = False
Next i
cmdSave.Enabled = False: cmdEsc.Enabled = False: cmdAdd.Enabled = True
cmdModify.Enabled = True: cmdDelete.Enabled = True
For i = 0 To 3
CmdMD(i).Enabled = True
Next i
Else
MsgBox "请填写完整的信息", vbCritical, "明日图书"
End If
End If
End Sub
Private Sub cmdEsc_Click() '取消操作
rs1.Open "select * from tb_gys where 供应商编号='" + gys(0).text + "'order by 供应商编号 ", Cnn, adOpenStatic
For i = 0 To 13
If rs1.RecordCount > 0 Then
rs1.CancelUpdate
If rs1.Fields(i) <> "" Then gys(i).text = rs1.Fields(i) '赋值给gys(i)
gys(i).Enabled = False
Else
gys(i).text = ""
End If
Next i
rs1.Close
Adodc1.Refresh
'设置控件有效或无效
cmdSave.Enabled = False: cmdEsc.Enabled = False: cmdAdd.Enabled = True
cmdModify.Enabled = True: cmdDelete.Enabled = True
For i = 0 To 3
CmdMD(i).Enabled = True
Next i
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -