frmfields.frm
来自「通用书店管理系统」· FRM 代码 · 共 1,590 行 · 第 1/5 页
FRM
1,590 行
frmClientData.txtFields(i).Text = ""
If i = 0 Then
frmClientData.txtFields(i).Enabled = False
frmClientData.txtFields(i).BackColor = gColor_LockedText
End If
'如果记录为NULL则付空值
frmClientData.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
Next i
frmClientData.blnAddNew = False
frmClientData.Move 2000, 1000
frmClientData.Show 1
Case "客户资料"
If Not checkpermission("书店管理系统", strUserName, , "客户管理.客户资料管理.修改") Then
Exit Sub
End If
'绑定数据给文本框
For i = 0 To frmClientData.txtFields.UBound
frmClientData.txtFields(i).Text = ""
If i = 0 Then
frmClientData.txtFields(i).Enabled = False
frmClientData.txtFields(i).BackColor = gColor_LockedText
End If
'如果记录为NULL则付空值
frmClientData.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
Next i
frmClientData.blnAddNew = False
frmClientData.Move 2000, 1000
frmClientData.Show 1
Case "制品分类"
If Not checkpermission("书店管理系统", strUserName, , "基础设置.制品图书分类管理.制品分类.修改") Then
Exit Sub
End If
'绑定数据给文本框
For i = 0 To frmProduceType.txtFields.UBound
frmProduceType.txtFields(i).Text = ""
If i = 0 Then
frmProduceType.txtFields(i).Enabled = False
frmProduceType.txtFields(i).BackColor = gColor_LockedText
End If
'如果记录为NULL则付空值
frmProduceType.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
Next i
frmProduceType.blnAddNew = False
frmProduceType.Move 2500, 2000
frmProduceType.Show 1
Case "图书分类"
If Not checkpermission("书店管理系统", strUserName, , "基础设置.制品图书分类管理.图书分类.修改") Then
Exit Sub
End If
'绑定数据给文本框
For i = 0 To frmBookType.txtFields.UBound
frmBookType.txtFields(i).Text = ""
If i = 0 Then
frmBookType.txtFields(i).Enabled = False
frmBookType.txtFields(i).BackColor = gColor_LockedText
End If
'如果记录为NULL则付空值
frmBookType.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
Next i
frmBookType.blnAddNew = False
frmBookType.Move 2500, 2000
frmBookType.Show 1
Case "图书销售价折扣"
If Not checkpermission("书店管理系统", strUserName, , "基础设置.图书销售价折扣管理.修改") Then
Exit Sub
End If
'绑定数据给文本框
For i = 0 To frmBooksPriceDiscount.txtFields.UBound
frmBooksPriceDiscount.txtFields(i).Text = ""
If i = 0 Then
frmBooksPriceDiscount.txtFields(i).Enabled = False
frmBooksPriceDiscount.txtFields(i).BackColor = gColor_LockedText
End If
'如果记录为NULL则付空值
sqlstring = "select * from BooksPriceDiscount"
Set rstmp = New ADODB.Recordset
rstmp.Open sqlstring, cN, adOpenKeyset, adLockReadOnly
If rstmp.EOF Then
Exit Sub
Else
frmBooksPriceDiscount.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
End If
Next i
frmBooksPriceDiscount.blnAddNew = False
frmBooksPriceDiscount.Move 2500, 2000
frmBooksPriceDiscount.Show 1
Case "库区管理"
If Not checkpermission("书店管理系统", strUserName, , "基础设置.库区管理.修改") Then
Exit Sub
End If
'绑定数据给文本框
For i = 0 To frmStorageSection.txtFields.UBound
frmStorageSection.txtFields(i).Text = ""
If i = 0 Then
frmStorageSection.txtFields(i).Enabled = False
frmStorageSection.txtFields(i).BackColor = gColor_LockedText
End If
'如果记录为NULL则付空值
frmStorageSection.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
Next i
frmStorageSection.blnAddNew = False
frmStorageSection.Move 2500, 2000
frmStorageSection.Show 1
Case "入库类型"
If Not checkpermission("书店管理系统", strUserName, , "基础设置.出(入)库类型管理.入库类型管理.修改") Then
Exit Sub
End If
'绑定数据给文本框
For i = 0 To frmInStorageType.txtFields.UBound
frmInStorageType.txtFields(i).Text = ""
If i = 0 Then
frmInStorageType.txtFields(i).Enabled = False
frmInStorageType.txtFields(i).BackColor = gColor_LockedText
End If
'如果记录为NULL则付空值
frmInStorageType.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
Next i
frmInStorageType.blnAddNew = False
frmInStorageType.Move 2500, 2000
frmInStorageType.Show 1
Case "出库类型"
If Not checkpermission("书店管理系统", strUserName, , "基础设置.出(入)库类型管理.出库类型管理.修改") Then
Exit Sub
End If
'绑定数据给文本框
For i = 0 To frmOutStorageType.txtFields.UBound
frmOutStorageType.txtFields(i).Text = ""
If i = 0 Then
frmOutStorageType.txtFields(i).Enabled = False
frmOutStorageType.txtFields(i).BackColor = gColor_LockedText
End If
'如果记录为NULL则付空值
frmOutStorageType.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
Next i
frmOutStorageType.blnAddNew = False
frmOutStorageType.Move 2500, 2000
frmOutStorageType.Show 1
Case "会员有效期"
If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员项目设置.会员有效期设置.修改") Then
Exit Sub
End If
'绑定数据给文本框
For i = 0 To frmMemberAvailability.txtFields.UBound
frmOutStorageType.txtFields(i).Text = ""
If i = 0 Then
frmMemberAvailability.txtFields(i).Enabled = False
frmMemberAvailability.txtFields(i).BackColor = gColor_LockedText
End If
'如果记录为NULL则付空值
frmMemberAvailability.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
Next i
frmMemberAvailability.blnAddNew = False
frmMemberAvailability.Move 2500, 2000
frmMemberAvailability.Show 1
Case "会员级别"
If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员项目设置.会员级别设置.修改") Then
Exit Sub
End If
'绑定数据给文本框
For i = 0 To frmMemberClass.txtFields.UBound
frmMemberClass.txtFields(i).Text = ""
If i = 0 Then
frmMemberClass.txtFields(i).Enabled = False
frmMemberClass.txtFields(i).BackColor = gColor_LockedText
End If
'如果记录为NULL则付空值
frmMemberClass.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
Next i
frmMemberClass.blnAddNew = False
frmMemberClass.Move 2500, 2000
frmMemberClass.Show 1
Case "会员类型"
If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员项目设置.会员类型设置.修改") Then
Exit Sub
End If
'绑定数据给文本框
For i = 0 To frmMemberType.txtFields.UBound
frmMemberType.txtFields(i).Text = ""
If i = 0 Then
frmMemberType.txtFields(i).Enabled = False
frmMemberType.txtFields(i).BackColor = gColor_LockedText
End If
'如果记录为NULL则付空值
frmMemberType.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
Next i
frmMemberType.blnAddNew = False
frmMemberType.Move 2500, 2000
frmMemberType.Show 1
Case "会员资料"
If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员资料管理.修改") Then
Exit Sub
End If
'绑定数据给文本框
' For i = 0 To frmMemberData.txtFields.UBound
' If i < 4 Then
'
' frmMemberData.txtFields(i).Text = ""
'' If i = 0 Then
'' frmMemberData.txtFields(i).Enabled = False
'' frmMemberData.txtFields(i).BackColor = gColor_LockedText
'' End If
' '如果记录为NULL则付空值
' frmMemberData.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
' ElseIf i = 4 Then
' frmMemberData.cmbFields(0).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
' Else
' frmMemberData.txtFields(i - 1).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
' End If
' Next i
' frmMemberData.txtFields(i - 1).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
frmMemberData.txtFields(0).Text = IIf(IsNull(rstmp.Fields(0).Value), "", rstmp.Fields(0).Value)
frmMemberData.txtFields(1).Text = IIf(IsNull(rstmp.Fields(1).Value), "", rstmp.Fields(1).Value)
frmMemberData.txtFields(2).Text = IIf(IsNull(rstmp.Fields(2).Value), "", rstmp.Fields(2).Value)
frmMemberData.txtFields(3).Text = Format((rstmp.Fields(3).Value), "yyyy-mm-dd")
frmMemberData.cmbFields(0).Text = IIf(IsNull(rstmp.Fields(4).Value), "", rstmp.Fields(4).Value)
frmMemberData.txtFields(4).Text = IIf(IsNull(rstmp.Fields(5).Value), "", rstmp.Fields(5).Value)
frmMemberData.txtFields(5).Text = IIf(IsNull(rstmp.Fields(6).Value), "", rstmp.Fields(6).Value)
frmMemberData.txtFields(6).Text = IIf(IsNull(rstmp.Fields(7).Value), "", rstmp.Fields(7).Value)
frmMemberData.txtFields(7).Text = IIf(IsNull(rstmp.Fields(8).Value), "", rstmp.Fields(8).Value)
frmMemberData.txtFields(8).Text = IIf(IsNull(rstmp.Fields(9).Value), "", rstmp.Fields(9).Value)
frmMemberData.txtFields(9).Text = Format((rstmp.Fields(10).Value), "yyyy-mm-dd")
frmMemberData.txtFields(10).Text = Format((rstmp.Fields(11).Value), "yyyy-mm-dd")
frmMemberData.txtFields(11).Text = IIf(IsNull(rstmp.Fields(12).Value), "", rstmp.Fields(12).Value)
frmMemberData.txtFields(12).Text = IIf(IsNull(rstmp.Fields(13).Value), "", rstmp.Fields(13).Value)
frmMemberData.txtFields(13).Text = IIf(IsNull(rstmp.Fields(14).Value), "", rstmp.Fields(14).Value)
frmMemberData.blnAddNew = False
frmMemberData.Move 2500, 2000
frmMemberData.Show 1
Case "员工资料管理"
If Not checkpermission("书店管理系统", strUserName, , "基础设置.初期建帐管理.员工资料管理.修改") Then
Exit Sub
End If
'绑定数据给文本框
For i = 0 To frmEmployee.txtFields.UBound
frmEmployee.txtFields(i).Text = ""
If i = 0 Then
frmEmployee.txtFields(i).Enabled = False
frmEmployee.txtFields(i).BackColor = gColor_LockedText
End If
'如果记录为NULL则付空值
frmEmployee.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
Next i
frmEmployee.blnAddNew = False
frmEmployee.Move 2500, 2000
frmEmployee.Show 1
Case "使用单位设置"
If Not checkpermission("书店管理系统", strUserName, , "基础设置.初期建帐管理.使用单位设置.修改") Then
Exit Sub
End If
'绑定数据给文本框
For i = 0 To frmCompany.txtFields.UBound
frmCompany.txtFields(i).Text = ""
If i = 0 Then
frmCompany.txtFields(i).Enabled = False
frmCompany.txtFields(i).BackColor = gColor_LockedText
End If
'如果记录为NULL则付空值
frmCompany.txtFields(i).Text = IIf(IsNull(rstmp.Fields(i).Value), "", rstmp.Fields(i).Value)
Next i
frmCompany.blnAddNew = False
frmCompany.Move 2500, 2000
frmCompany.Show 1
End Select
End Sub
Public Sub cmdPrint_Click()
Dim frm As New frmModCommonPrint
Dim p As New ClsPrintInfo
Dim arr, r&, c&
Dim strAboveTable$, strBelowTable$, strSign$
With p
On Error GoTo err
Dim q As New Query
Select Case strWindowCaption
Case "出版社资料"
If Not checkpermission("书店管理系统", strUserName, , "基础设置.出版社资料管理.打印") Then
Exit Sub
End If
With p
'标题
.cqFirstTitle.Content = "出版社资料"
.cqFirstTitle.FontSize = 18
.cqFirstTitle.FontBold = True
'表前叙述
.cqSayingAboveTable.Content = "打印于：|" & Format(Date, "yyyy-MM-dd")
.cqSayingAboveTable.LayOut = "Body align=left cols=3 interwidth=50 |label align=left width=16|text align=left width=20"
If rstmp.Recordcount > 0 Then
arr = rstmp.GetRows
End If
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?