📄 form1.frm
字号:
_ExtentX = 1931
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontColor = 255
ButtonStyle = 2
Caption = "提交保存"
MouseIcon = "Form1.frx":78430
MousePointer = 99
End
Begin StoneXP.XPButton XPButton4
Height = 375
Left = 7440
TabIndex = 45
ToolTipText = "修改该栏目所有内容"
Top = 240
Width = 1095
_ExtentX = 1931
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontColor = 255
ButtonStyle = 2
Caption = "提交修改"
MouseIcon = "Form1.frx":7874A
MousePointer = 99
End
Begin StoneXP.XPButton XPButton6
Height = 375
Left = 8640
TabIndex = 46
ToolTipText = "删除鼠标指定行以及附加数据"
Top = 240
Width = 1095
_ExtentX = 1931
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontColor = 255
ButtonStyle = 2
Caption = "删除对象"
MouseIcon = "Form1.frx":78A64
MousePointer = 99
End
Begin VB.Image Image1
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 405
Left = 240
MouseIcon = "Form1.frx":78D7E
MousePointer = 99 'Custom
Picture = "Form1.frx":78ED0
ToolTipText = "新增一个销售对象单位"
Top = 720
Width = 405
End
Begin VB.Image Image2
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 405
Index = 2
Left = 720
MouseIcon = "Form1.frx":7C919
MousePointer = 99 'Custom
Picture = "Form1.frx":7CA6B
ToolTipText = "添加一个新商品对象"
Top = 720
Width = 405
End
Begin VB.Image Image3
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 405
Index = 2
Left = 1200
MouseIcon = "Form1.frx":803B7
MousePointer = 99 'Custom
Picture = "Form1.frx":80509
ToolTipText = "添加物品单位(如个,张)"
Top = 720
Width = 405
End
End
Begin FlexCell.Grid Grid1
Height = 2985
Left = 1875
TabIndex = 2
Top = 2760
Width = 10125
_ExtentX = 17859
_ExtentY = 5265
Appearance = 0
Cols = 8
Rows = 11
End
Begin FlexCell.Grid Grid2
Height = 1920
Left = 1875
TabIndex = 12
Top = 5730
Width = 10125
_ExtentX = 17859
_ExtentY = 3387
Appearance = 0
Cols = 12
Rows = 11
End
Begin StoneXP.XPButton XPButton1
Height = 375
Left = 7800
TabIndex = 13
Top = 1800
Width = 975
_ExtentX = 1720
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ButtonStyle = 1
Caption = "上一页"
MouseIcon = "Form1.frx":83E01
MousePointer = 99
End
Begin StoneXP.XPButton XPButton2
Height = 375
Left = 8880
TabIndex = 14
Top = 1800
Width = 975
_ExtentX = 1720
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ButtonStyle = 1
Caption = "下一页"
MouseIcon = "Form1.frx":8411B
MousePointer = 99
End
Begin StoneXP.XPButton XPButton13
Height = 375
Left = 9960
TabIndex = 43
Top = 1800
Width = 855
_ExtentX = 1508
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ButtonStyle = 1
Caption = "首页"
MouseIcon = "Form1.frx":84435
MousePointer = 99
End
Begin StoneXP.XPButton XPButton14
Height = 375
Left = 10920
TabIndex = 44
Top = 1800
Width = 855
_ExtentX = 1508
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ButtonStyle = 1
Caption = "未页"
MouseIcon = "Form1.frx":8474F
MousePointer = 99
End
Begin FlexCell.Grid Grid3
Height = 555
Left = 1875
TabIndex = 47
Top = 2235
Width = 10125
_ExtentX = 17859
_ExtentY = 979
Appearance = 0
Cols = 7
Rows = 2
ScrollBars = 0
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "共0页 第0页"
ForeColor = &H00000000&
Height = 255
Left = 6240
TabIndex = 15
Top = 1875
Width = 1575
End
Begin VB.Image Image5
Height = 6630
Index = 1
Left = 1725
Picture = "Form1.frx":84A69
Top = 2240
Width = 150
End
Begin VB.Image Image4
Height = 255
Index = 1
Left = 150
Picture = "Form1.frx":88B57
Top = 8640
Width = 1575
End
Begin VB.Image Image4
Height = 255
Index = 0
Left = 150
Picture = "Form1.frx":8C8D0
Top = 2240
Width = 1575
End
Begin VB.Image Image5
Height = 6630
Index = 0
Left = 0
Picture = "Form1.frx":90649
Top = 2240
Width = 150
End
Begin VB.Menu ZT
Caption = "状态"
Visible = 0 'False
Begin VB.Menu tjsave
Caption = "提交保存"
End
Begin VB.Menu tjedit
Caption = "提交修改"
End
Begin VB.Menu tjdelete
Caption = "删除"
End
End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'作者：星零工作室
'发布日期：2007/03/03
'描 述：简易销售管理系统（带报表)
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Dim i, j, n As Integer
Dim sql As String
Private Declare Function GetKeyState Lib "user32" _
(ByVal nVirtKey As Long) As Integer
Public je As Integer '记忆菜单上次数值，实现数据传送
Private Sub asPopup1_Click(Cancel As Boolean)
gridsave = True
gridedit = False
griddelete = False
yuzhi = True
nnum = 0 '翻页数据洗清
num = 0
Grid1.Visible = False
Grid2.Visible = True
Grid2.Rows = 1 '清除所有记录
Grid2.Rows = 30 '默认为30行
jnumber = 10
xstj
Set qy1 = cnn.Execute("select * from 销售记录")
Grid2.Cols = jnumber '必须+1,因为实际上为11行,但第一行是隐藏的
For i = 0 To jnumber - 2 '显示数据的字段名
Grid2.Cell(0, i + 1).Text = qy1.Fields(i).Name
Next
Grid2.Cell(1, 1).SetFocus
Set s1 = cnn.Execute("select * from 商品类型")
Grid2.ComboBox(1).Clear
Do While s1.EOF = False
Grid2.ComboBox(1).AddItem s1.Fields(0)
s1.MoveNext
Loop
End Sub
Private Sub xstj()
Grid1.Visible = False
Grid2.Top = Grid1.Top
Grid2.Width = Grid1.Width
Grid2.Left = Grid1.Left
Grid2.Height = 4860
Grid2.Cols = 11
Grid2.Column(0).Width = 0
Grid2.Column(1).Width = 80
Grid2.Column(2).Width = 80
Grid2.Column(3).Width = 80
Grid2.Column(4).Width = 40
Grid2.Column(5).Width = 70
Grid2.Column(6).Width = 70
Grid2.Column(7).Width = 70
Grid2.Column(8).Width = 70
Grid2.Column(9).Width = 70
Grid2.Column(1).CellType = cellComboBox
Grid2.Column(2).CellType = cellComboBox
Grid2.Column(3).CellType = cellComboBox
Grid2.Column(5).CellType = cellComboBox
Grid2.Column(8).CellType = cellComboBox
Grid2.Column(9).CellType = cellCheckBox
Grid2.ReadOnly = False
Dim dh As Integer
Dim strdh As String
Dim bdh As Boolean
bdh = False
dh = 1
Do While bdh = False
strdh = dh
Do While Len(strdh) < 6
strdh = "0" & strdh
Loop
Grid3.Cell(1, 1).Text = Year(Date) & Month(Date) & Day(Date) & strdh
Set qy1 = cnn.Execute("select * from 销售单据 where 单号='" & Grid3.Cell(1, 1).Text & "'")
If qy1.EOF = False Then
dh = dh + 1
Else
bdh = True
End If
Loop
Grid3.Cell(1, 4).Text = Grid3.Cell(1, 1).Text
Grid3.Cell(1, 3).Text = Date
Grid3.Cell(1, 6).Text = loginname
Set qy2 = cnn.Execute("select * from 合作单位")
Grid3.ComboBox(2).Clear
Do While qy2.EOF = False
Grid3.ComboBox(2).AddItem qy2.Fields(0)
qy2.MoveNext
Loop
End Sub
Private Sub asPopup2_Click(Cancel As Boolean)
yuzhi = False
Grid1.Cell(0, 0).SetFocus '防止数据被覆盖
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -