📄 cooperatecounterclaim.frm
字号:
VERSION 5.00
Begin VB.Form cooperatecounterclaim
Caption = "索赔单"
ClientHeight = 3105
ClientLeft = 60
ClientTop = 450
ClientWidth = 5400
LinkTopic = "Form1"
ScaleHeight = 3105
ScaleWidth = 5400
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame2
Height = 675
Left = 0
TabIndex = 17
Top = 2400
Width = 5415
Begin VB.CommandButton Command1
Caption = "打印"
Height = 350
Left = 3360
TabIndex = 19
Top = 210
Width = 855
End
Begin VB.CommandButton Command3
Caption = "退出"
Height = 350
Left = 4440
TabIndex = 18
Top = 210
Width = 855
End
End
Begin VB.Frame Frame1
Height = 2415
Left = 0
TabIndex = 0
Top = 0
Width = 5415
Begin VB.TextBox Text6
Alignment = 1 'Right Justify
Enabled = 0 'False
Height = 300
Left = 960
TabIndex = 22
Text = "4"
Top = 1320
Width = 1695
End
Begin VB.TextBox Text5
Alignment = 1 'Right Justify
Enabled = 0 'False
Height = 300
Left = 3600
TabIndex = 21
Text = "4"
Top = 1320
Width = 1575
End
Begin VB.TextBox Text8
Enabled = 0 'False
Height = 495
Left = 960
TabIndex = 8
Text = "8"
Top = 1680
Width = 4215
End
Begin VB.TextBox Text7
Enabled = 0 'False
Height = 300
Left = 3600
TabIndex = 7
Top = 960
Width = 1575
End
Begin VB.TextBox Text4
Alignment = 1 'Right Justify
Enabled = 0 'False
Height = 300
Left = 960
TabIndex = 6
Text = "4"
Top = 980
Width = 1695
End
Begin VB.TextBox Text2
Enabled = 0 'False
Height = 300
Left = 3870
TabIndex = 5
Text = "2"
Top = 2565
Width = 1455
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 300
Left = 960
TabIndex = 4
Top = 240
Width = 1695
End
Begin VB.TextBox Text11
Alignment = 1 'Right Justify
Enabled = 0 'False
Height = 300
Left = 3600
TabIndex = 3
Text = "2"
Top = 600
Width = 1575
End
Begin VB.TextBox Text10
Enabled = 0 'False
Height = 300
Left = 3600
TabIndex = 2
Text = "0"
Top = 240
Width = 1575
End
Begin VB.TextBox Text3
Enabled = 0 'False
Height = 300
Left = 960
TabIndex = 1
Text = "2"
Top = 600
Width = 1695
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "索赔价格:"
ForeColor = &H80000008&
Height = 180
Left = 120
TabIndex = 23
Top = 1365
Width = 810
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "索赔费用:"
ForeColor = &H80000008&
Height = 180
Left = 2760
TabIndex = 20
Top = 1360
Width = 810
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "备 注:"
ForeColor = &H80000008&
Height = 180
Left = 120
TabIndex = 16
Top = 1680
Width = 810
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "索赔时间:"
ForeColor = &H80000008&
Height = 180
Left = 2760
TabIndex = 15
Top = 1020
Width = 810
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "索赔数量:"
ForeColor = &H80000008&
Height = 180
Left = 120
TabIndex = 14
Top = 999
Width = 810
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "加工号："
ForeColor = &H80000007&
Height = 180
Left = 3180
TabIndex = 13
Top = 2640
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "外协单号:"
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 12
Top = 300
Width = 810
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "未完工量:"
ForeColor = &H80000007&
Height = 180
Left = 2760
TabIndex = 11
Top = 675
Width = 810
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "外 协 商:"
ForeColor = &H80000008&
Height = 180
Left = 2760
TabIndex = 10
Top = 285
Width = 810
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "生产物料:"
ForeColor = &H80000007&
Height = 180
Left = 120
TabIndex = 9
Top = 675
Width = 810
End
End
End
Attribute VB_Name = "cooperatecounterclaim"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'* 模 块 名 称 :显示索赔单
'* 功 能 描 述 :显示索赔单
'* 程序员姓名 :石春晓
'* 最后修改人 :
'* 最后修改时间:2005/09/24
'* 备 注:
'*******************************************************
Option Explicit
Private m_recordset As ADODB.Recordset
Private m_cooperatecounterclaimDAO As cooperatecounterclaimDAO
Private m_cooperateDAO As CooperateDAO
Public m_cooperatecounterclaimid As String ' 从生产计划单传过来的返工单编号
Private Sub Command1_Click()
' Dim Report As cooperatecounterclaimprint
' Set Report = New cooperatecounterclaimprint
' Report.PrintData Trim(m_cooperatecounterclaimid)
' Report.show 1
PrintCrystalReport "外协索赔单", "'" & m_cooperatecounterclaimid & "'"
Unload Me
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set m_recordset = New ADODB.Recordset
Set m_cooperatecounterclaimDAO = New cooperatecounterclaimDAO
Set m_cooperateDAO = New CooperateDAO
Dim ret As Boolean
Dim lossNum As Double
SetToCenter Me
ret = m_cooperatecounterclaimDAO.cooperatecounterclaim_showid(m_recordset, m_cooperatecounterclaimid)
If ret Then
With m_recordset
Text1.text = Trim(.Fields(2))
Text10.text = Trim(.Fields(1))
Text3.text = Trim(.Fields(3))
If Trim(.Fields(10) & " ") = "" Then
lossNum = 0
Else
lossNum = Trim(.Fields(10))
End If
Text11.text = CDbl(.Fields(7)) - CDbl(Trim(.Fields(8) & " ")) - CDbl(Trim(.Fields(4) & " ")) - CDbl(lossNum)
Text4.text = Trim(.Fields(4))
Text7.text = Trim(.Fields(5))
Text8.text = Trim(.Fields(6))
Text5.text = "￥" & CDbl(Trim(.Fields("价格"))) * CDbl(Trim(.Fields(4)))
Text6.text = "￥" & CDbl(Trim(.Fields("价格")))
End With
End If
m_recordset.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -