📄 main_xtsz_czysz.frm
字号:
BeginProperty Column13
DataField = "入库查询"
Caption = "入库查询"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column14
DataField = "退货返厂查询"
Caption = "退货返厂查询"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column15
DataField = "报损查询"
Caption = "报损查询"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column16
DataField = "报溢查询"
Caption = "报溢查询"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column17
DataField = "收款单"
Caption = "收款单"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column18
DataField = "付款单"
Caption = "付款单"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column19
DataField = "应收款查询"
Caption = "应收款查询"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column20
DataField = "应付款查询"
Caption = "应付款查询"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column21
DataField = "商品信息"
Caption = "商品信息"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column22
DataField = "员工信息"
Caption = "员工信息"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column23
DataField = "仓库信息"
Caption = "仓库信息"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column24
DataField = "供应商"
Caption = "供应商"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column25
DataField = "客户"
Caption = "客户"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column26
DataField = "系统初始化"
Caption = "系统初始化"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column27
DataField = "操作员设置"
Caption = "操作员设置"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column28
DataField = "权限设置"
Caption = "权限设置"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 1800
EndProperty
BeginProperty Column01
ColumnWidth = 2715.024
EndProperty
BeginProperty Column02
Object.Visible = 0 'False
ColumnWidth = 1365.165
EndProperty
BeginProperty Column03
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column04
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column05
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column06
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column07
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column08
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column09
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column10
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column11
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column12
Object.Visible = 0 'False
ColumnWidth = 1154.835
EndProperty
BeginProperty Column13
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column14
Object.Visible = 0 'False
ColumnWidth = 1154.835
EndProperty
BeginProperty Column15
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column16
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column17
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column18
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column19
Object.Visible = 0 'False
ColumnWidth = 975.118
EndProperty
BeginProperty Column20
Object.Visible = 0 'False
ColumnWidth = 975.118
EndProperty
BeginProperty Column21
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column22
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column23
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column24
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column25
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column26
Object.Visible = 0 'False
ColumnWidth = 14.74
EndProperty
BeginProperty Column27
Object.Visible = 0 'False
ColumnWidth = 14.74
EndProperty
BeginProperty Column28
Object.Visible = 0 'False
ColumnWidth = 14.74
EndProperty
EndProperty
End
End
Attribute VB_Name = "main_xtsz_czysz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义数据集对象
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Private Sub Form_Activate()
Text1.Text = "": Text2.Text = ""
Me.Caption = Me.Caption & " 操作员： " & frm_main.St1.Panels(3).Text
End Sub
Private Sub DataCombo1_Change()
rs1.Open "select * from yginf where 员工姓名='" & DataCombo1.BoundText & "'", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
Text1.Text = Trim(rs1.Fields("员工编号"))
End If
rs1.Close
rs2.Open "select * from qxsz where 操作员名称='" & DataCombo1.BoundText & "'", cnn, adOpenKeyset, adLockOptimistic
If rs2.RecordCount > 0 Then
Text2.Text = Trim(rs2.Fields("密码"))
Else
Text2.Text = ""
End If
rs2.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text2.SetFocus
End Sub
Private Sub Command1_Click() '保存操作员信息
rs1.Open "select * from qxsz where 操作员名称='" & DataCombo1.BoundText & "'", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
rs1.Fields("操作员名称") = Trim(DataCombo1.BoundText)
rs1.Fields("操作员编号") = Trim(Text1.Text)
rs1.Fields("密码") = Trim(Text2.Text)
rs1.Update '更新数据库
Adodc2.Refresh
Else
If DataCombo1.Text <> "" Then
rs1.AddNew
rs1.Fields("操作员名称") = Trim(DataCombo1.BoundText)
rs1.Fields("操作员编号") = Trim(Text1.Text)
rs1.Fields("密码") = Trim(Text2.Text)
rs1.Update '更新数据库
Adodc2.Refresh
End If
End If
rs1.Close
End Sub
Private Sub Command2_Click() '删除操作员信息
Dim a As String
If Adodc2.Recordset.RecordCount > 0 Then
a = MsgBox("您确实要删除这条数据吗?", vbYesNo)
If a = vbYes Then
Adodc2.Recordset.Delete
Adodc2.Refresh
End If
End If
End Sub
Private Sub Command3_Click()
frm_main.Enabled = True
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -