📄 inout.frm
字号:
Left = 3720
TabIndex = 75
Top = 1800
Width = 855
End
Begin VB.Label Label9
Caption = "未还数量"
Height = 255
Left = 5760
TabIndex = 72
Top = 1800
Width = 855
End
Begin VB.Label Label20
Caption = "借出数量"
Height = 375
Left = 480
TabIndex = 66
Top = 1320
Width = 855
End
Begin VB.Label Label3
Caption = "型号"
Height = 255
Index = 1
Left = 8160
TabIndex = 52
Top = 360
Width = 855
End
Begin VB.Label Label6
Caption = "借用人"
Height = 255
Index = 1
Left = 8160
TabIndex = 51
Top = 840
Width = 975
End
Begin VB.Label Label2
Caption = "资产/设备名称"
Height = 255
Index = 1
Left = 4080
TabIndex = 50
Top = 360
Width = 1335
End
Begin VB.Label Label5
Caption = "借用部门"
Height = 255
Index = 1
Left = 4080
TabIndex = 49
Top = 840
Width = 855
End
Begin VB.Label Label18
Caption = "归还日期"
Height = 255
Index = 1
Left = 8160
TabIndex = 48
Top = 1320
Width = 975
End
Begin VB.Label Label1
Caption = "资产/设备编号 "
Height = 255
Index = 1
Left = 480
TabIndex = 47
Top = 360
Width = 1695
End
Begin VB.Label Label7
Caption = "借出日期"
Height = 255
Index = 1
Left = 4080
TabIndex = 45
Top = 1320
Width = 1095
End
Begin VB.Label Label4
Caption = "配置"
Height = 375
Index = 1
Left = 480
TabIndex = 46
Top = 840
Width = 1455
End
End
Begin VB.Frame Frame1
Caption = "资产/设备借出登记"
Height = 2175
Left = 120
TabIndex = 0
Top = 960
Width = 11655
Begin VB.TextBox Text32
DataField = "数量"
DataSource = "Adodc2"
Height = 375
Left = 3600
TabIndex = 79
Text = "Text32"
Top = 1680
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox Text30
Height = 375
Left = 2040
TabIndex = 74
Text = "0"
Top = 1680
Visible = 0 'False
Width = 1335
End
Begin VB.TextBox Text29
Height = 375
Left = 480
TabIndex = 73
Text = "0"
Top = 1680
Visible = 0 'False
Width = 1215
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 7320
Top = 1800
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.TextBox Text27
Height = 350
Left = 2040
TabIndex = 69
Top = 1200
Width = 1575
End
Begin VB.TextBox Text24
Height = 375
Left = 5640
TabIndex = 65
Top = 1680
Visible = 0 'False
Width = 1455
End
Begin VB.CommandButton Cmd_save
Caption = "数据保存"
Height = 350
Index = 0
Left = 10560
TabIndex = 38
Top = 1680
Width = 900
End
Begin VB.CommandButton Cmd_in
Caption = "归还登记"
Height = 350
Index = 0
Left = 9600
TabIndex = 43
Top = 1680
Width = 900
End
Begin VB.CommandButton Cmd_out
Caption = "借出登记"
Height = 350
Index = 0
Left = 8640
TabIndex = 42
Top = 1680
Width = 900
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 345
Left = 5640
TabIndex = 16
Top = 1200
Width = 2175
_ExtentX = 3836
_ExtentY = 609
_Version = 393216
Format = 30212097
CurrentDate = 38085
End
Begin VB.TextBox Text6
Height = 350
Left = 9120
TabIndex = 14
Top = 720
Width = 2295
End
Begin VB.TextBox Text5
Height = 350
Left = 5640
TabIndex = 12
Top = 720
Width = 2175
End
Begin VB.TextBox Text4
DataField = "详细配置"
DataSource = "Adodc2"
Enabled = 0 'False
Height = 350
Left = 2040
TabIndex = 10
Text = "Text4"
Top = 720
Width = 1575
End
Begin VB.TextBox Text3
DataField = "型号"
DataSource = "Adodc2"
Enabled = 0 'False
Height = 350
Left = 9120
TabIndex = 8
Text = "Text3"
Top = 240
Width = 2295
End
Begin VB.TextBox Text2
DataField = "资产设备名称"
DataSource = "Adodc2"
Height = 350
Left = 5640
Locked = -1 'True
TabIndex = 6
Text = "Text2"
Top = 240
Width = 2175
End
Begin VB.TextBox Text1
DataField = "资产设备编号"
DataSource = "Adodc2"
Height = 350
Left = 2040
TabIndex = 4
Text = "Text1"
Top = 240
Width = 1575
End
Begin VB.Label Label21
Caption = "借出数量"
Height = 375
Left = 480
TabIndex = 68
Top = 1320
Width = 1095
End
Begin VB.Label Label7
Caption = "借出日期"
Height = 255
Index = 0
Left = 4080
TabIndex = 15
Top = 1320
Width = 1095
End
Begin VB.Label Label6
Caption = "借用人"
Height = 255
Index = 0
Left = 8160
TabIndex = 13
Top = 840
Width = 975
End
Begin VB.Label Label5
Caption = "借用部门"
Height = 255
Index = 0
Left = 4080
TabIndex = 11
Top = 840
Width = 855
End
Begin VB.Label Label4
Caption = "配置"
Height = 375
Index = 0
Left = 480
TabIndex = 9
Top = 840
Width = 1455
End
Begin VB.Label Label3
Caption = "型号"
Height = 255
Index = 0
Left = 8160
TabIndex = 7
Top = 360
Width = 855
End
Begin VB.Label Label2
Caption = "资产/设备名称"
Height = 255
Index = 0
Left = 4080
TabIndex = 5
Top = 360
Width = 1335
End
Begin VB.Label Label1
Caption = "资产/设备编号 "
Height = 255
Index = 0
Left = 480
TabIndex = 3
Top = 360
Width = 1695
End
End
End
Attribute VB_Name = "frm_INOUT"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a, I
'Public adoCon As New ADODB.Connection
'Public adoRs As New ADODB.Recordset
Private Sub Cmd_in_Click(Index As Integer)
Frame1.Visible = False
Frame4.Visible = True
End Sub
Private Sub Cmd_out_Click(Index As Integer)
Text1.SetFocus
Frame1.Visible = True
Frame4.Visible = False
End Sub
Private Sub Cmd_save_Click(Index As Integer)
Call main
' Set adoCon = New ADODB.Connection
' adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Data_MRSOFT;Data Source=MRVB"
' Adodc1.Recordset.UpdateBatch
Dim aa As Integer
If Frame1.Visible = True Then
If Text5.Text = "" Then
MsgBox "请输入借出部门的名称", , "提示"
ElseIf Text6.Text = "" Then
MsgBox "请输入借用人的姓名", , "提示"
ElseIf Text27.Text = "" Then
MsgBox "请输入借出数量", , "提示"
Else
Set adoRs = adoCon.Execute("insert into Table_INOUT values(" & Text1 & ",'" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Text27 & "','" & Text5 & "','" & Text6 & "','" & DTPicker1 & "','" & Text24 & "','" & Text29 & "','" & Text30 & "')")
MsgBox "数据保存成功!!", , "提示"
aa = Val(Adodc2.Recordset.Fields("数量")) - Val(Text27.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 借出数量='" + Text27.Text + "',数量= '" + Str(aa) + "' where 资产设备编号='" + Text1.Text + "'")
Adodc1.Refresh
End If
End If
adoCon.Close
End Sub
Private Sub Combo2_Click()
If Combo2.Text = " >" Then
I = 0
ElseIf Combo2.Text = " =" Then
I = 1
ElseIf Combo2.Text = " <" Then
I = 2
ElseIf Combo2.Text = "Like" Then
I = 3
Else
End If
End Sub
Private Sub Comd3_Click(Index As Integer)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -