📄 frm实施采购.frm
字号:
Begin VB.CommandButton CmdPrint
Enabled = 0 'False
Height = 495
Left = 5760
Picture = "Frm实施采购.frx":60BE
Style = 1 'Graphical
TabIndex = 11
TabStop = 0 'False
ToolTipText = "打印票据"
Top = 6600
Width = 615
End
Begin MSComctlLib.ListView lstContracts
Height = 6015
Left = 7920
TabIndex = 9
Top = 1080
Width = 2295
_ExtentX = 4048
_ExtentY = 10610
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MSComctlLib.ListView ListView1
Height = 2175
Left = 120
TabIndex = 8
Top = 4320
Width = 7695
_ExtentX = 13573
_ExtentY = 3836
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MovingChar.MovingText MovingText1
Height = 375
Left = 0
TabIndex = 40
Top = 0
Width = 10215
_ExtentX = 18018
_ExtentY = 661
MsgChar = "欢迎您选用《宇迪资源管理系统》 作者：倪德根 13301481112 2008.3"
CharColor = 65535
BackColor = 16744576
FontSize = 9.75
MousePointer = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label LblBH
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 240
Left = 8040
TabIndex = 38
Top = 755
Width = 135
End
Begin VB.Label LSindex
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 240
Left = 2040
TabIndex = 37
Top = 3840
Visible = 0 'False
Width = 135
End
Begin VB.Label LBindex
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 240
Left = 9360
TabIndex = 36
Top = 480
Visible = 0 'False
Width = 135
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "金额:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 240
Index = 8
Left = 480
TabIndex = 35
Top = 2205
Width = 645
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "数量:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 240
Index = 7
Left = 480
TabIndex = 34
Top = 1725
Width = 645
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "单价:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 240
Index = 0
Left = 480
TabIndex = 33
Top = 1245
Width = 645
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "仓库名称"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 120
TabIndex = 17
Top = 2760
Width = 960
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "票据编号"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 120
TabIndex = 16
Top = 674
Width = 960
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "供货单位"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 120
TabIndex = 15
Top = 3240
Width = 960
End
Begin vsElasticLightLibCtl.vsElasticLight vsElasticLight1
Left = 2640
OleObjectBlob = "Frm实施采购.frx":63C8
Top = 6720
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "合计金额："
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 360
TabIndex = 14
Top = 6600
Width = 1290
End
Begin VB.Label LabCount
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Left = 1680
TabIndex = 13
Top = 6600
Width = 1680
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "申请编号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 8160
TabIndex = 10
Top = 480
Width = 960
End
End
Attribute VB_Name = "Frm实施采购"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Rstmp As ADODB.Recordset
Dim RsPJBH As ADODB.Recordset
Dim RsCk As ADODB.Recordset
Dim TxtSqlbj As String
Dim LConRs As ADODB.Recordset
Dim ConPayRs As ADODB.Recordset
Dim TxtSql As String
Dim LSString As String
Dim LongSqsl As Long
Public Sub WZlist(TxtBHStr As String)
TxtSqlbj = "select * from FL_物资信息表 where 物资编号= '" & TxtBHStr & "'"
Set Rstmp = New ADODB.Recordset
Rstmp.Open TxtSqlbj, Cw_DataEnvi.DataConnect, adOpenStatic, adLockReadOnly, adCmdText
If Rstmp.BOF And Rstmp.EOF Then
Text1(1).Text = ""
Text1(2).Text = ""
Text1(3).Text = ""
Text1(4).Text = ""
Text1(5).Text = ""
Text1(6).Text = ""
MovingText1.MsgChar = "欢迎您选用《宇迪资源管理系统》 作者：倪德根 13301481112 2008.4"
MsgBox "没有此物资可用信息！"
Else
Text1(0).Text = Rstmp!物资编号
Text1(1).Text = Rstmp!类别编码
Text1(2).Text = Rstmp!物资名称
Text1(3).Text = Rstmp!物资型号
Text1(4).Text = Rstmp!计量单位
Text2.Text = Rstmp!参考价格
Text1(5).Text = " " & Rstmp!备注信息
MovingText1.MsgChar = "物资：" & Rstmp!物资名称 & " 现库存数量为： "
End If
Rstmp.Close
Set Rstmp = Nothing
End Sub
Private Sub DoList()
Dim ItmX As ListItem
lstContracts.ColumnHeaders.Clear
lstContracts.ColumnHeaders.Add , , "流水号", Len("流水号") * 100 + 550
lstContracts.ColumnHeaders.Add , , "申请编号", Len("申请编号") * 100 + 550 * 2
lstContracts.ColumnHeaders.Add , , "物资编号", Len("物资编号") * 100 + 550
lstContracts.ColumnHeaders.Add , , "申请数量", Len("申请数量") * 100 + 550
lstContracts.ColumnHeaders.Add , , "申请人", Len("申请人") * 100 + 500
lstContracts.ColumnHeaders.Add , , "申请时间", Len("申请时间") * 100 + 950
lstContracts.ColumnHeaders.Add , , "流程管理", Len("流程管理") * 250
lstContracts.ColumnHeaders.Add , , "申请理由", Len("申请理由") * 250 + 550 * 3
lstContracts.ColumnHeaders.Add , , "审核人", Len("审核人") * 250
lstContracts.ColumnHeaders.Add , , "审核理由", Len("审核理由") * 250 + 550 * 3
Set LConRs = New ADODB.Recordset
LConRs.Open "SELECT * FROM Fl_计划申请表 where 流程管理=1", Cw_DataEnvi.DataConnect, adOpenStatic, adLockOptimistic
If Not LConRs.BOF Then LConRs.MoveFirst
lstContracts.ListItems.Clear
Do While Not LConRs.EOF
Set ItmX = lstContracts.ListItems.Add(, , LConRs!流水号)
ItmX.SubItems(1) = LConRs!申请编号
ItmX.SubItems(2) = LConRs!物资编号
ItmX.SubItems(3) = LConRs!申请数量
ItmX.SubItems(4) = LConRs!申请人
ItmX.SubItems(5) = LConRs!申请时间
If LConRs!流程管理 = "0" Then
ItmX.SubItems(6) = "№"
ElseIf LConRs!流程管理 = "1" Then
ItmX.SubItems(6) = "㊣"
ElseIf LConRs!流程管理 = "2" Then
ItmX.SubItems(6) = "X"
ElseIf LConRs!流程管理 = "3" Then
ItmX.SubItems(6) = "√"
End If
ItmX.SubItems(7) = LConRs!申请理由
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -