main.frm
来自「一套VB完整的灯具销售管理系统设计」· FRM 代码 · 共 736 行 · 第 1/2 页
FRM
736 行
VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#4.6#0"; "CRYSTL32.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form main
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
ClientHeight = 5685
ClientLeft = 45
ClientTop = 45
ClientWidth = 7395
ControlBox = 0 'False
Icon = "main.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5685
ScaleWidth = 7395
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin Crystal.CrystalReport Report1
Left = 195
Top = 4485
_ExtentX = 741
_ExtentY = 741
_Version = 262150
DiscardSavedData= -1 'True
End
Begin VB.TextBox Ghrtxt
Height = 270
Left = 1320
MaxLength = 8
TabIndex = 1
Top = 1230
Width = 795
End
Begin VB.TextBox Qktxt
Enabled = 0 'False
ForeColor = &H00004040&
Height = 270
Left = 1380
MaxLength = 16
TabIndex = 19
Top = 5250
Width = 1815
End
Begin VB.TextBox Sfktxt
ForeColor = &H00C00000&
Height = 270
Left = 1380
MaxLength = 16
TabIndex = 18
ToolTipText = "（双击）付清!"
Top = 4920
Width = 1815
End
Begin VB.CommandButton Scfp
Caption = "生成"
Height = 420
Left = 3660
TabIndex = 14
Top = 5010
Width = 975
End
Begin VB.CommandButton printfp
Caption = "打印"
Height = 420
Left = 4635
TabIndex = 13
Top = 5010
Width = 975
End
Begin VB.CommandButton closeform
Cancel = -1 'True
Caption = "退出"
Height = 420
Left = 5955
TabIndex = 12
Top = 5010
Width = 975
End
Begin VB.Data fpData
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 420
Left = 7440
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3720
Visible = 0 'False
Width = 1755
End
Begin VB.Data Temp
Caption = "temp"
Connect = "Access"
DatabaseName = "D:\DJ\djdata.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 7380
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "tempk"
Top = 525
Visible = 0 'False
Width = 1725
End
Begin VB.TextBox Jsrtxt
DataField = "经手人"
Height = 300
Left = 3675
MaxLength = 4
TabIndex = 2
Top = 1215
Width = 945
End
Begin VB.TextBox Fptxt
Enabled = 0 'False
Height = 285
Left = 1320
MaxLength = 20
TabIndex = 0
Top = 735
Width = 1680
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "main.frx":0442
Height = 3030
Left = 465
OleObjectBlob = "main.frx":0451
TabIndex = 9
Top = 1740
Width = 6525
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "开票处："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 3135
TabIndex = 21
Top = 105
Width = 960
End
Begin VB.Label Label8
BackColor = &H00800000&
BorderStyle = 1 'Fixed Single
Height = 375
Left = 45
TabIndex = 20
Top = 45
Width = 7275
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "欠款："
ForeColor = &H00004040&
Height = 180
Left = 825
TabIndex = 17
Top = 5310
Width = 540
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "实付款："
ForeColor = &H00C00000&
Height = 180
Left = 720
TabIndex = 16
Top = 4965
Width = 645
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "购货人："
Height = 180
Left = 570
TabIndex = 15
Top = 1275
Width = 720
End
Begin VB.Label Hj
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 210
Left = 5430
TabIndex = 11
Top = 705
Width = 135
End
Begin VB.Label rqlab
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
ForeColor = &H00C00000&
Height = 300
Left = 6000
TabIndex = 10
Top = 1215
Width = 945
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 3015
X2 = 6975
Y1 = 1005
Y2 = 1005
End
Begin VB.Line Line1
X1 = 2985
X2 = 6975
Y1 = 975
Y2 = 975
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "元"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 285
Left = 6480
TabIndex = 8
Top = 675
Width = 315
End
Begin VB.Label Hjtxt
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "0"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 285
Left = 5445
TabIndex = 7
Top = 660
Visible = 0 'False
Width = 165
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "合计："
ForeColor = &H00C000C0&
Height = 180
Left = 3915
TabIndex = 6
Top = 720
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "日期："
Height = 180
Left = 5385
TabIndex = 5
Top = 1275
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "经手人："
Height = 180
Left = 2940
TabIndex = 4
Top = 1275
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "发票号："
Height = 180
Left = 570
TabIndex = 3
Top = 780
Width = 720
End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CloseForm_Click()
'按了生成发票之后,并没有更新时执行如下：
If scfpF = True And updateF = False Then
Unload Me
Exit Sub
End If
'*********************************************
'如果按了生成发票之后,数据又更新情况
If scfpF = True And updateF = True Then
Dim Tc1 As Integer
Tc1 = MsgBox("发票内容有变更，是否更新发票内容（Y/N）?", vbYesNo + 64, "内容更新")
If Tc1 = 6 Then
If Scfp.Enabled = False Then
MsgBox "没有发票号，不能生成新发票", vbOKOnly + 32, "暂停生成"
'发票号栏获得焦点
Fptxt.SetFocus
'退出
Exit Sub
Else
Call Scfp_Click
Unload Me
Exit Sub
End If
Unload Me
Exit Sub
End If
If Tc1 = 7 Then
Unload Me
Exit Sub
End If
End If
'********************************************
'未按生成发票按钮
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?