📄 main_xtsz_czysz.frm
字号:
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
Private Sub CmdAdd_Click()
Dim bh As Long
rs1.Open "select * from 操作员信息表 order by 操作员编号", Cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
If rs1.EOF = False Then rs1.MoveLast
bh = Val(rs1.Fields("操作员编号")) + 1
Txtbh.Text = Format(bh, "00")
Else
Txtbh.Text = "01"
End If
Txtczy.SetFocus
rs1.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub CmdSave_Click() '保存操作员信息
rs1.Open "select * from 操作员信息表 where 操作员名称='" & Txtczy.Text & "'", Cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
rs1.Fields("操作员名称") = Trim(Txtczy.Text)
rs1.Fields("操作员编号") = Trim(Txtbh.Text)
rs1.Fields("密码") = Trim(Txtmm.Text)
rs1.Update '更新数据库
Adodc1.Refresh
Else
rs1.AddNew
rs1.Fields("操作员名称") = Trim(Txtczy.Text)
rs1.Fields("操作员编号") = Trim(Txtbh.Text)
rs1.Fields("密码") = Trim(Txtmm.Text)
rs1.Update '更新数据库
Adodc1.Refresh
End If
rs1.Close
End Sub
Private Sub CmdDelete_Click() '删除操作员信息
Dim a As String
If Adodc1.Recordset.RecordCount > 0 Then
a = MsgBox("您确实要删除这条数据吗?", vbYesNo)
If a = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Refresh
End If
End If
End Sub
Private Sub Cmde_Click()
Call CmdEnd(Me)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -