📄 frmorder.frm
字号:
ForeColor = &H80000008&
Height = 255
Left = 6060
TabIndex = 32
Top = 1080
Width = 945
End
Begin VB.Label Label11
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "交货地点"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 270
TabIndex = 31
Top = 1440
Width = 945
End
Begin VB.Label Label5
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "交货日期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 3150
TabIndex = 30
Top = 1065
Width = 855
End
Begin VB.Label Label9
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "业 务 员"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 6060
TabIndex = 29
Top = 1440
Width = 855
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "客户名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 300
TabIndex = 25
Top = 1065
Width = 945
End
Begin VB.Label Label3
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "日 期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 6480
TabIndex = 24
Top = 60
Width = 1065
End
Begin VB.Label Label4
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "编 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 7560
TabIndex = 23
Top = 60
Width = 1305
End
Begin VB.Label Label6
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "备 注"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 270
TabIndex = 22
Top = 1800
Width = 945
End
End
Begin VB.CommandButton cmdExit
Caption = "退出"
Height = 435
Left = 9780
TabIndex = 9
Top = 5520
Width = 915
End
Begin VB.CommandButton cmdPrint
Caption = "打印"
Height = 435
Left = 9780
TabIndex = 8
Top = 4968
Width = 915
End
Begin VB.CommandButton cmdSave
Caption = "保存"
DisabledPicture = "FrmOrder.frx":284D
Height = 435
Left = 9780
Picture = "FrmOrder.frx":2C8F
TabIndex = 2
Top = 1692
Width = 915
End
Begin VB.CommandButton cmdRead
Caption = "读取"
Height = 435
Left = 9780
TabIndex = 1
Top = 1146
Width = 915
End
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
BackColor = &H80000006&
ForeColor = &H80000008&
Height = 345
Left = 360
ScaleHeight = 315
ScaleWidth = 9165
TabIndex = 27
Top = 2040
Width = 9195
End
Begin VB.PictureBox Picture4
Appearance = 0 'Flat
BackColor = &H00000040&
ForeColor = &H80000002&
Height = 2175
Left = 9480
ScaleHeight = 2145
ScaleWidth = 75
TabIndex = 28
Top = 180
Width = 105
End
End
Attribute VB_Name = "FrmOrder"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public clsBill As clsOrder
Public IsChange As Boolean, isNew As Boolean
Public BillType As Integer
Public isLockStock As Boolean
Public isLockupBill As Boolean
Public islocal As Integer
Public BillName As String
Public isSize As Integer, intRow As Integer
Public ReturnValue As Integer, ReturnCusName As String, CheckReturn As String
Public OldBillNo As String
Private Sub cmdCheck_Click()
If CheckBill(Me.txtBillNO.Text, Me, CheckReturn) <> 0 Then
'MisMsg "审核成功"
End If
iniBillPower Me, Me.txtBillNO.Text, islocal
End Sub
Private Sub cmdCusHelp_Click()
Me.CombContactName = getCusName
Me.CombContactName.SetFocus
End Sub
Private Sub CmdDel_Click()
If MsgBox("确信要删除吗？", vbYesNoCancel) = vbYes Then
GetCNLocal.Execute "Delete From local_Inventory_Evidence Where Evidence_Number='" & Me.txtBillNO.Text & "'"
GetCNLocal.Execute "Delete From local_Inventory_Evidence_Detail Where Evidence_Number='" & Me.txtBillNO.Text & "'"
End If
End Sub
Private Sub cmdDet_Click()
End Sub
Public Sub CmdExit_Click()
IsSave
Unload Me
End Sub
Public Sub cmdNew_Click()
Dim i As Integer
IsSave
Me.txtBillNO.Text = NewBillNo(BillType)
isNew = True
islocal = 0
iniBillPower Me, Me.txtBillNO.Text, islocal
End Sub
'Public Sub cmdPrint_Click()
'Dim x As Ord_Order, y As Ord_Order11
'
'IsSave
'If Me.CombSize.Text = "女鞋配码" Then
'
' Set x = New Ord_Order
' 'Else
' ' Set X = New Ord_Order11
'
' 'End If
' x.Printer.PaperSize = 255
' x.Printer.Orientation = ddOPortrait
' x.SumText.Text = Me.vsFlexGrid1.Cell(flexcpText, 0, 5) & "双"
' x.SumPiece.Text = Me.vsFlexGrid1.Cell(flexcpText, 0, 6) & "件"
' x.SumPrice.Text = Me.vsFlexGrid1.Cell(flexcpText, 0, 7) & "元"
' x.ClientName = Me.CombClientName.Text
' x.date1.Text = Me.DTPDate1.Value
' x.date2.Text = Me.DTPDate2.Value
' x.LoginName.Text = Me.TxtUserName.Text
' x.BillNO.Text = Me.txtBillNo.Text
' x.Sizetype.Text = Me.CombSize.Text
' x.Memo.Text = Me.TxtMemo.Text
' 'Ord_Order.fSum.Text = str11
' clsOrder.Recordset.Sort = "F2"
' Set x.DataControl1.Recordset = clsOrder.Recordset
' x.Show
'Else
' Set y = New Ord_Order11
' y.Printer.PaperSize = 255
' y.Printer.Orientation = ddOPortrait
' y.SumText.Text = Me.vsFlexGrid1.Cell(flexcpText, 0, 5) & "双"
' y.SumPiece.Text = Me.vsFlexGrid1.Cell(flexcpText, 0, 6) & "件"
' y.SumPrice.Text = Me.vsFlexGrid1.Cell(flexcpText, 0, 7) & "元"
' y.ClientName = Me.CombClientName.Text
' y.date1.Text = Me.DTPDate1.Value
' y.date2.Text = Me.DTPDate2.Value
' y.LoginName.Text = Me.TxtUserName.Text
' y.BillNO.Text = Me.txtBillNo.Text
' y.Sizetype.Text = Me.CombSize.Text
' y.Memo.Text = Me.TxtMemo.Text
' 'Ord_Order.fSum.Text = str11
' Set y.DataControl1.Recordset = clsOrder.Recordset
' y.Show
'
'End If
'End Sub
Private Sub cmdPost_Click()
If Me.cmdPost.Caption = "记帐" Then
If DataPosting(Me.txtBillNO.Text, Me.name, 0) Then
MisMsg Trim(Me.txtBillNO.Text) & " 记帐成功！"
End If
Else
If DataPosting(Me.txtBillNO.Text, Me.name, 1) Then
MisMsg Trim(Me.txtBillNO.Text) & " 反记帐成功！"
End If
End If
iniBillPower Me, Me.txtBillNO.Text, islocal
End Sub
Private Sub cmdPrint_Click()
Dim StrSql As String
'StrSql = "SELECT Description,Q01,Q02,Q03,Q04,Q05,Q06,Q07,Q08,Q09,Q10,Q11,Q12,Q13," & _
' "Q14,Q15,Q16,Q17,Q18,Q19,Q20,Q21,Q22,Q23,Q24,Q25,Q26,Q27,Q28,Q29,Q30 FROM V_EvidenceDetail"
' 'WHERE Evidence_Number='cb3'"
StrSql = "Select * From Inventory_Evidence_Detail where Evidence_Number='" & Me.txtBillNO.Text & "'"
Dim aa(11) As Integer
Dim ss(4) As String
aa(0) = 102
aa(1) = 128
aa(2) = 130
aa(3) = 129
aa(4) = 132
aa(5) = 131
aa(6) = 134
aa(7) = 133
aa(8) = 156
aa(9) = 323
aa(10) = 368
ss(0) = " 1"
ss(1) = " 2"
ss(2) = "3"
ss(3) = "4"
ReportModel StrSql, "cb3", aa, ss
End Sub
Private Sub cmdProve_Click()
If Me.cmdProve.Caption = "凭证" Then
'If clsBill.SaveData(Me.txtBillNo.Text, 0) <> 0 Then
SaveProve Me.txtBillNO.Text, 0
'End If
Else
SaveProve Me.txtBillNO.Text, 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -