📄 lingshoumodify.frm
字号:
Top = 240
Width = 1695
End
Begin VB.ComboBox Combo1
Height = 300
Left = 5400
TabIndex = 7
Top = 240
Width = 975
End
Begin VB.TextBox Text2
Height = 375
Left = 3120
TabIndex = 6
Top = 240
Width = 1575
End
Begin VB.TextBox Text1
Height = 375
Left = 1080
TabIndex = 5
Top = 240
Width = 1335
End
Begin VB.Label Label4
Caption = "往来单位"
Height = 255
Left = 6480
TabIndex = 12
Top = 360
Width = 855
End
Begin VB.Label Label3
Caption = "操作员"
Height = 255
Left = 4800
TabIndex = 11
Top = 360
Width = 735
End
Begin VB.Label Label2
Caption = "单据号"
Height = 255
Left = 2520
TabIndex = 10
Top = 360
Width = 855
End
Begin VB.Label Label1
Caption = "操作时间"
Height = 255
Left = 120
TabIndex = 9
Top = 360
Width = 855
End
End
Begin VB.CommandButton Command1
Caption = "修 改"
Height = 495
Left = 1080
TabIndex = 3
Top = 3480
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "删 除"
Height = 495
Left = 2760
TabIndex = 2
Top = 3480
Width = 1335
End
Begin VB.CommandButton Command3
Caption = "保 存"
Height = 495
Left = 4440
TabIndex = 1
Top = 3480
Width = 1335
End
Begin VB.CommandButton Command4
Caption = "退 出"
Height = 495
Left = 6120
TabIndex = 0
Top = 3480
Width = 1335
End
End
Attribute VB_Name = "lingshouModify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Trecordset3 As New ADODB.Recordset
Sub Bai()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Combo4.Enabled = True
Combo5.Enabled = True
Combo6.Enabled = True
Combo7.Enabled = True
Combo8.Enabled = True
Combo9.Enabled = True
Combo10.Enabled = True
Combo11.Enabled = True
Combo12.Enabled = True
Text1.BackColor = &HFFFFFF
Text2.BackColor = &HFFFFFF
Text3.BackColor = &HFFFFFF
Text4.BackColor = &HFFFFFF
Text5.BackColor = &HFFFFFF
Text6.BackColor = &HFFFFFF
Text7.BackColor = &HFFFFFF
Text8.BackColor = &HFFFFFF
Text9.BackColor = &HFFFFFF
Combo1.BackColor = &HFFFFFF
Combo2.BackColor = &HFFFFFF
Combo3.BackColor = &HFFFFFF
Combo4.BackColor = &HFFFFFF
Combo5.BackColor = &HFFFFFF
Combo6.BackColor = &HFFFFFF
Combo7.BackColor = &HFFFFFF
Combo8.BackColor = &HFFFFFF
Combo9.BackColor = &HFFFFFF
Combo10.BackColor = &HFFFFFF
Combo11.BackColor = &HFFFFFF
Combo12.BackColor = &HFFFFFF
End Sub
Sub Hei()
'''''''''init bar
Command3.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Combo5.Enabled = False
Combo6.Enabled = False
Combo7.Enabled = False
Combo8.Enabled = False
Combo9.Enabled = False
Combo10.Enabled = False
Combo11.Enabled = False
Combo12.Enabled = False
Text1.BackColor = &H80000004
Text2.BackColor = &H80000004
Text3.BackColor = &H80000004
Text4.BackColor = &H80000004
Text5.BackColor = &H80000004
Text6.BackColor = &H80000004
Text8.BackColor = &H80000004
Text9.BackColor = &H80000004
Text7.BackColor = &H80000004
Combo1.BackColor = &H80000004
Combo2.BackColor = &H80000004
Combo3.BackColor = &H80000004
Combo4.BackColor = &H80000004
Combo5.BackColor = &H80000004
Combo6.BackColor = &H80000004
Combo7.BackColor = &H80000004
Combo8.BackColor = &H80000004
Combo9.BackColor = &H80000004
Combo10.BackColor = &H80000004
Combo11.BackColor = &H80000004
Combo12.BackColor = &H80000004
End Sub
Sub Gridflex()
If Trecordset3.State = 1 Then Trecordset3.Close
With Trecordset3
Set .ActiveConnection = SGWConnection
.CursorLocation = adUseServer
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = "Select * from lingshou where id= val('" & lingshouID & "') order by id desc"
.Open
End With
Text1.Text = Trecordset3.Fields("shijian")
Text2.Text = Trecordset3.Fields("lingshouhao")
Combo1.Text = Trecordset3.Fields("caozuoyuan")
Combo2.Text = Trecordset3.Fields("wanglaidanwei")
Combo3.Text = Trecordset3.Fields("yaopinming")
Combo4.Text = Trecordset3.Fields("guige")
Combo5.Text = Trecordset3.Fields("jixing")
Combo6.Text = Trecordset3.Fields("leixing")
Text8.Text = Trecordset3.Fields("shengchanriqi")
Text9.Text = Trecordset3.Fields("youxiaoqi")
Text3.Text = Trecordset3.Fields("jiage")
Text4.Text = Trecordset3.Fields("shuliang")
Text5.Text = Trecordset3.Fields("jine")
Text6.Text = Trecordset3.Fields("beizhu")
' Trecordset3.Close
' Set Trecordset3 = Nothing
End Sub
Private Sub Command1_Click()
Bai
Command1.Enabled = False
Command3.Enabled = True
Command2.Enabled = False
Tag = "2"
End Sub
Private Sub Command2_Click()
Command3.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Tag = "1"
End Sub
Private Sub Command3_Click()
If Tag = "1" Then
If MsgBox("您确定删除本条记录吗？", vbYesNo + vbInformation, "提示") = vbYes Then
Trecordset3.Delete
Trecordset3.Requery
Trecordset3.Close
'DataToScreen
' If SGWConnection.State = adStateOpen Then Closconn
MsgBox "记录已删除！", vbOKOnly + vbInformation, "提示"
Unload lingshouModify
' Unload Me
End If
ElseIf Tag = "2" Then
Trecordset3.Fields("shijian") = Trim(Text1.Text)
Trecordset3.Fields("lingshouhao") = Trim(Text2.Text)
Trecordset3.Fields("caozuoyuan") = Trim(Combo1.Text)
Trecordset3.Fields("wanglaidanwei") = Trim(Combo2.Text)
Trecordset3.Fields("yaopinming") = Trim(Combo3.Text)
Trecordset3.Fields("guige") = Trim(Combo4.Text)
Trecordset3.Fields("jixing") = Trim(Combo5.Text)
Trecordset3.Fields("leixing") = Trim(Combo6.Text)
Trecordset3.Fields("shengchanriqi") = Trim(Text8.Text)
Trecordset3.Fields("youxiaoqi") = Trim(Text9.Text)
Trecordset3.Fields("jiage") = Trim(Text3.Text)
Trecordset3.Fields("shuliang") = Trim(Text4.Text)
Trecordset3.Fields("jine") = Trim(Text5.Text)
Trecordset3.Fields("beizhu") = Trim(Text6.Text)
Trecordset3.Update
Trecordset3.Requery
Trecordset3.Close
End If
Hei
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
'set the window in the middle
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
''''''''''''''''''''''''''
For i = 1980 To Year(Date)
Combo7.AddItem i
Combo10.AddItem i
Next
Combo7.Text = Year(Date)
Combo10.Text = Year(Date) + 1
For i = 1 To 12
Combo8.AddItem i
Combo11.AddItem i
Next
Combo8.Text = Month(Date)
Combo11.Text = Month(Date)
For i = 1 To 31
Combo9.AddItem i
Combo12.AddItem i
Next
Combo9.Text = Day(Date)
Combo12.Text = Day(Date)
''''''''''''''''''''''''''
Hei
Gridflex
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -