frmwaressell.frm
来自「针对农资系统的管理模式而开发的业务部门与财务部门的转账模式和过程」· FRM 代码 · 共 1,767 行 · 第 1/5 页
FRM
1,767 行
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 = 18
Top = 600
Width = 9495
Begin VB.TextBox txtCustomerInfo
Appearance = 0 'Flat
DataField = "FCustomerInfo"
Height = 285
Left = 4320
MaxLength = 10
TabIndex = 4
Top = 720
Width = 2775
End
Begin VB.TextBox txtCustomerName
Appearance = 0 'Flat
DataField = "FCustomerName"
Height = 285
Left = 960
MaxLength = 10
TabIndex = 3
Top = 720
Width = 2295
End
Begin VB.TextBox txtNo
Appearance = 0 'Flat
Height = 285
Left = 6000
MaxLength = 10
TabIndex = 45
Top = 240
Width = 1095
End
Begin VB.TextBox txtEntryNo
Appearance = 0 'Flat
DataField = "FEntryCode"
Height = 285
Left = 7920
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 = 15
Top = 675
Visible = 0 'False
Width = 2295
_ExtentX = 4048
_ExtentY = 582
_Version = 393216
Appearance = 0
ListField = ""
BoundColumn = ""
Text = ""
End
Begin MSDataListLib.DataCombo DacEntryType
DataField = "FEntryType"
Height = 330
Left = 7920
TabIndex = 2
Top = 240
Width = 1095
_ExtentX = 1931
_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 VB.Label lblNo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单据号"
Height = 180
Left = 5400
TabIndex = 46
Top = 300
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "凭证类"
Height = 180
Left = 7200
TabIndex = 44
Top = 300
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "凭证号"
Height = 180
Left = 7200
TabIndex = 43
Top = 780
Width = 540
End
Begin VB.Label lblAddressTel
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 285
Left = 4320
TabIndex = 29
Top = 720
Width = 2775
End
Begin VB.Label lblDate
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日期"
Height = 180
Left = 3480
TabIndex = 22
Top = 300
Width = 360
End
Begin VB.Label lblDepart
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "销售部门"
Height = 180
Left = 120
TabIndex = 21
Top = 300
Width = 720
End
Begin VB.Label lblSupplier
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "购货单位"
Height = 180
Left = 120
TabIndex = 20
Top = 750
Width = 720
End
Begin VB.Label lblAddress
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "地址电话"
Height = 180
Left = 3480
TabIndex = 19
Top = 750
Width = 720
End
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "注:日期、单据号及地址电话不绑定"
ForeColor = &H000000FF&
Height = 180
Left = 240
TabIndex = 30
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 = 16
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 = 17
Top = 30
Width = 2685
End
Begin VB.Label lblbackColor
BackColor = &H00C0FFFF&
Height = 7695
Left = 0
TabIndex = 31
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_EntryTypeRs 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
Set m_EntryTypeRs = New ADODB.Recordset
m_EntryTypeRs.Open "Select FEntryTypeCode,FentryTypeName From EntryType order by FentryTypeCode", m_gDBCnn
With DacEntryType
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?