📄 frmwaressell.frm
字号:
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmWaresSell.frx":0D08
Key = "Save"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmWaresSell.frx":0E1A
Key = "Undo"
EndProperty
EndProperty
End
Begin VB.Frame FrameHeader
BackColor = &H00C0FFFF&
Height = 1160
Left = 50
TabIndex = 9
Top = 600
Width = 9495
Begin VB.TextBox txtSellNo
Appearance = 0 'Flat
Height = 285
Left = 6480
MaxLength = 10
TabIndex = 2
Top = 240
Visible = 0 'False
Width = 1095
End
Begin VB.TextBox txtNo
Appearance = 0 'Flat
Height = 285
Left = 8280
MaxLength = 10
TabIndex = 3
Top = 240
Width = 1095
End
Begin VB.TextBox txtCheque
Appearance = 0 'Flat
DataField = "FChequeNo"
Height = 285
Left = 8280
MaxLength = 10
TabIndex = 5
Top = 720
Width = 1095
End
Begin MSMask.MaskEdBox maskDate
DataField = "FDate"
Height = 285
Left = 3960
TabIndex = 1
Top = 240
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
Appearance = 0
MaxLength = 11
Format = "YYYY年MM月DD日"
Mask = "####年##月##日"
PromptChar = "_"
End
Begin MSDataListLib.DataCombo DACDepart
DataField = "FDepartCode"
Height = 330
Left = 960
TabIndex = 0
Top = 240
Width = 2295
_ExtentX = 4048
_ExtentY = 582
_Version = 393216
Appearance = 0
Text = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSDataListLib.DataCombo DACCustomer
DataField = "FCustomerCode"
Height = 330
Left = 960
TabIndex = 4
Top = 675
Width = 2295
_ExtentX = 4048
_ExtentY = 582
_Version = 393216
Appearance = 0
ListField = ""
BoundColumn = ""
Text = ""
End
Begin VB.Label lblSellNo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "原单据号"
Height = 180
Left = 5640
TabIndex = 42
Top = 300
Visible = 0 'False
Width = 720
End
Begin VB.Label lblAddressTel
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 285
Left = 4320
TabIndex = 22
Top = 720
Width = 3255
End
Begin VB.Label lblNo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单据号"
Height = 180
Left = 7680
TabIndex = 15
Top = 300
Width = 540
End
Begin VB.Label lblDate
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日期"
Height = 180
Left = 3480
TabIndex = 14
Top = 300
Width = 360
End
Begin VB.Label lblDepart
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "销售部门"
Height = 180
Left = 120
TabIndex = 13
Top = 300
Width = 720
End
Begin VB.Label lblSupplier
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "购货单位"
Height = 180
Left = 120
TabIndex = 12
Top = 750
Width = 720
End
Begin VB.Label lblCheque
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "支票号"
Height = 180
Left = 7680
TabIndex = 11
Top = 750
Width = 540
End
Begin VB.Label lblAddress
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "地址电话"
Height = 180
Left = 3480
TabIndex = 10
Top = 750
Width = 720
End
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "注:日期、单据号及地址电话不绑定"
ForeColor = &H000000FF&
Height = 180
Left = 240
TabIndex = 23
Top = 120
Visible = 0 'False
Width = 2790
End
Begin VB.Label lblTitle
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "销 售 单"
BeginProperty Font
Name = "隶书"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 525
Index = 0
Left = 3600
TabIndex = 7
Top = 0
Width = 2685
End
Begin VB.Label lblTitle
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "销 售 单"
BeginProperty Font
Name = "隶书"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 525
Index = 1
Left = 3630
TabIndex = 8
Top = 30
Width = 2685
End
Begin VB.Label lblbackColor
BackColor = &H00C0FFFF&
Height = 7695
Left = 0
TabIndex = 24
Top = 0
Width = 11655
End
End
Attribute VB_Name = "frmWaresSell"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim WithEvents adoPrimaryRs As ADODB.Recordset
Attribute adoPrimaryRs.VB_VarHelpID = -1
Dim WithEvents adoSecondaryRs As ADODB.Recordset
Attribute adoSecondaryRs.VB_VarHelpID = -1
Dim m_DepartRs As ADODB.Recordset
Dim m_CustomerRs As ADODB.Recordset
Dim m_HouseRs As ADODB.Recordset
Dim m_byType As Byte
Dim m_sWaresCode As String, m_bIsSelectWares As Boolean
Dim m_bEdit As Boolean, m_bAuditer As Boolean, m_bKeeper As Boolean
Dim YearCol As Integer, MonthCol As Integer, TypeCol As Integer, NoCol As Integer
Dim CodeCol As Integer, NameCol As Integer, SpecCol As Integer, MeasCol As Integer
Dim QuantityCol As Integer, PriceCol As Integer, MoneyCol As Integer
Dim RateCol As Integer, TaxCol As Integer, HouseCol As Integer, HouseCodeCol As Integer
Property Let SellType(bEdit As Boolean, bAuditer As Boolean, bKeeper As Boolean, byType As Byte)
m_bEdit = bEdit
m_bAuditer = bAuditer
m_bKeeper = bKeeper
m_byType = byType
End Property
Private Sub InitScreenObject()
Select Case m_byType
Case SELL_INVOICE
Me.Caption = "销售单"
lblTitle(0).Caption = "销 售 单"
lblTitle(1).Caption = "销 售 单"
Case SELFUSE_INVOICE
Me.Caption = "领用单"
lblTitle(0).Caption = "领 用 单"
lblTitle(1).Caption = "领 用 单"
Case REDSELL_INVOICE
Me.Caption = "销售退货单"
lblTitle(0).Caption = "销售退货单"
lblTitle(1).Caption = "销售退货单"
lblTitle(0).ForeColor = QBColor(3)
Me.lblDepart.Caption = "退货部门"
Me.lblSupplier.Caption = "退货单位"
Me.lblSellNo.Visible = True
Me.txtSellNo.Visible = True
End Select
Set m_DepartRs = New ADODB.Recordset
m_DepartRs.Open "Select FDepartCode, FDepartName From Depart Where FDepartAttrib = " & COMPANY_DEPART & " Or FDepartAttrib = " & STOCKUP_SELL_DEPART & " Or FDepartAttrib = " & SELL_DEPART & " Order by FDepartCode", m_gDBCnn
With dacDepart
Set .RowSource = m_DepartRs
.ListField = "FDepartName"
.BoundColumn = "FDepartCode"
End With
Set m_CustomerRs = New ADODB.Recordset
m_CustomerRs.Open "Select FCustomerCode, FCustomerName From Customer Order by FCustomerCode", m_gDBCnn
With DACCustomer
Set .RowSource = m_CustomerRs
.ListField = "FCustomerName"
.BoundColumn = "FCustomerCode"
End With
Set m_HouseRs = New ADODB.Recordset
m_HouseRs.Open "select FHouseCode,FHouseName from wareHouse order by FHouseCode", m_gDBCnn, adOpenStatic, adLockReadOnly
With DALHouse
Set .RowSource = m_HouseRs
.ListField = "FHouseName"
.BoundColumn = "FHouseCode"
End With
End Sub
'////////////////////////////////////////////////
'//日期、单据号及地址电话不绑定
Private Sub BoundingScreenObject()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
If UCase(ctl.Name) <> "TXTNO" Or UCase(ctl.Name) <> "TXTFINDNO" Then
Set ctl.DataSource = adoPrimaryRs
End If
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -