📄 main_xtwh_czysz.frm
字号:
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 = 1005.165
EndProperty
BeginProperty Column01
ColumnWidth = 2984.882
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_xtwh_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
Dim txtSQL As String '定义字符串变量
Private Sub Form_Activate()
'清空文本框中的数据
Text1.Text = ""
Text2.Text = ""
'设置窗体标题栏的内容
' Me.Caption = Me.Caption & " 操作员： " & frm_main.St1.Panels(3).Text
End Sub
Private Sub DataCombo1_Change()
'按员工姓名查询员工信息
txtSQL = "select * from 员工信息表 where 员工姓名='" & DataCombo1.BoundText & "'"
Set rs1 = ESQL(txtSQL)
If rs1.RecordCount > 0 Then '当记录大于零时
Text1.Text = Trim(rs1.Fields("员工编号")) '赋值给text1.text
End If
'按操作员名称查询权限信息
txtSQL = "select * from 权限信息表 where 操作员名称='" & DataCombo1.BoundText & "'"
Set rs2 = ESQL(txtSQL)
If rs2.RecordCount > 0 Then '当记录大于零时
Text2.Text = Trim(rs2.Fields("密码")) '赋值给text2.text
Else
Text2.Text = ""
End If
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() '保存操作员信息
txtSQL = "select * from 权限信息表 where 操作员名称='" & DataCombo1.BoundText & "'"
Set rs1 = ESQL(txtSQL)
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
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 + -