📄 inpufrm.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Begin VB.Form inpufrm
BorderStyle = 3 'Fixed Dialog
Caption = "公司业务录入"
ClientHeight = 7200
ClientLeft = 2115
ClientTop = 2895
ClientWidth = 12240
Icon = "inpufrm.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7200
ScaleWidth = 12240
ShowInTaskbar = 0 'False
WhatsThisHelp = -1 'True
Begin VB.Data Data4
Caption = "Data4"
Connect = "Access"
DatabaseName = "C:\Program Files\YWGL\ywy.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 4200
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "kh"
Top = 6960
Visible = 0 'False
Width = 1335
End
Begin MSDBCtls.DBCombo DBCombo3
Bindings = "inpufrm.frx":0442
DataField = "业务员"
DataSource = "Data1"
Height = 330
Left = 8580
TabIndex = 15
Top = 600
Width = 1280
_ExtentX = 2249
_ExtentY = 582
_Version = 327680
ForeColor = 255
ListField = "姓名"
Text = "DBCombo3"
End
Begin MSDBCtls.DBCombo DBCombo2
Bindings = "inpufrm.frx":0456
DataField = "商品名称"
DataSource = "Data1"
Height = 330
Left = 4520
TabIndex = 14
Top = 600
Width = 4095
_ExtentX = 7223
_ExtentY = 582
_Version = 327680
ForeColor = 255
ListField = "商品名称"
Text = "DBCombo2"
End
Begin MSDBCtls.DBCombo DBCombo1
Bindings = "inpufrm.frx":046A
DataField = "客户名称"
DataSource = "Data1"
Height = 330
Left = 960
TabIndex = 13
Top = 600
Width = 3585
_ExtentX = 6324
_ExtentY = 582
_Version = 327680
ForeColor = 255
ListField = "客户名称"
Text = "DBCombo1"
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.CommandButton Command7
Caption = ">>"
Height = 255
Left = 9630
TabIndex = 11
Top = 3240
Width = 375
End
Begin VB.CommandButton Command6
Caption = ">>"
Height = 255
Left = 6910
TabIndex = 10
Top = 3240
Width = 375
End
Begin VB.CommandButton Command5
Caption = ">>"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5400
MaskColor = &H00E0E0E0&
TabIndex = 9
Top = 3240
Width = 375
End
Begin VB.Frame Frame2
Caption = "备注区"
Height = 1335
Left = 240
TabIndex = 7
Top = 5520
Width = 5415
Begin VB.TextBox Text1
BackColor = &H00C0E0FF&
DataField = "备注"
DataSource = "Data1"
Height = 975
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 8
Top = 240
Width = 5175
End
End
Begin MSDBGrid.DBGrid DBGrid2
Bindings = "inpufrm.frx":047E
Height = 2415
Left = 120
OleObjectBlob = "inpufrm.frx":0492
TabIndex = 6
Top = 3000
Width = 12015
End
Begin VB.Frame Frame1
Caption = "操作区"
Height = 1335
Left = 5880
TabIndex = 1
Top = 5520
Width = 5415
Begin VB.CommandButton Command1
Caption = "增加业务&A"
Height = 495
Left = 240
TabIndex = 5
Top = 480
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "删除业务&D"
Height = 495
Left = 1440
TabIndex = 4
Top = 480
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "至表首部&T"
Height = 495
Left = 2760
TabIndex = 3
Top = 480
Width = 1095
End
Begin VB.CommandButton Command4
Caption = "至表尾部&E"
Height = 495
Left = 3960
TabIndex = 2
Top = 480
Width = 1215
End
End
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access"
DatabaseName = "C:\Program Files\YWGL\ywy.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 3000
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "sp"
Top = 6960
Width = 1140
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "C:\Program Files\YWGL\ywy.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 1560
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "ywy"
Top = 6960
Width = 1065
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "C:\Program Files\YWGL\ywy.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "yw"
Top = 6960
Width = 1065
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "inpufrm.frx":2064
Height = 2415
Left = 120
OleObjectBlob = "inpufrm.frx":2078
TabIndex = 0
Top = 360
Width = 12015
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "金 升 科 技 发 展 有 限 公 司 业 务 录 入"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 3120
TabIndex = 12
Top = 75
Width = 5775
End
End
Attribute VB_Name = "inpufrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
With Data1.Recordset
If .RecordCount <> 0 Then
.MoveLast
id = Val(.Fields("编号").Value) + 1
.Edit
Else
id = 1
End If
.AddNew
.Fields("编号").Value = Str(id)
.Fields("备注").Value = "备注说明："
.Update
.MoveLast
Command5.Top = DBGrid2.Top + 200 + DBGrid2.Row * DBGrid2.RowHeight + 40
.Edit
End With
End Sub
Private Sub Command2_Click()
YesNo = MsgBox("真的要删除该业务信息吗？", vbYesNo + vbQuestion, "确认删除否？")
If YesNo = vbYes And Data1.Recordset.RecordCount <> 0 Then
Data1.Recordset.Delete
Command5.Top = DBGrid2.Top + 200 + DBGrid2.Row * DBGrid2.RowHeight + 40
Data1.Recordset.MoveLast
DBGrid1.Refresh
Else
MsgBox "已删除完了！"
End If
End Sub
Private Sub Command3_Click()
Data1.Recordset.MoveFirst
Command5.Top = DBGrid2.Top + 200 + DBGrid2.Row * DBGrid2.RowHeight + 40
End Sub
Private Sub Command4_Click()
Data1.Recordset.MoveLast
Command5.Top = DBGrid2.Top + 200 + DBGrid2.Row * DBGrid2.RowHeight + 40
End Sub
Private Sub Command5_Click()
With Data1.Recordset
.Edit
With Data1.Recordset
.Fields("毛利").Value = (.Fields("售价").Value - .Fields("进价").Value) * .Fields("销售量").Value
End With
.Update
.Edit
End With
End Sub
Private Sub Command6_Click()
With Data1.Recordset
.Edit
With Data1.Recordset
.Fields("应收").Value = .Fields("毛利").Value
End With
.Update
.Edit
End With
End Sub
Private Sub Command7_Click()
With Data1.Recordset
With Data1.Recordset
.Edit
.Fields("欠款").Value = .Fields("应收").Value - .Fields("实收").Value
End With
.Update
.Edit
End With
End Sub
Private Sub DBGrid1_Click()
DBCombo1.Top = DBGrid1.Top + 200 + DBGrid1.Row * DBGrid1.RowHeight + 40
DBCombo2.Top = DBGrid1.Top + 200 + DBGrid1.Row * DBGrid1.RowHeight + 40
DBCombo3.Top = DBGrid1.Top + 200 + DBGrid1.Row * DBGrid1.RowHeight + 40
End Sub
Private Sub DBGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
DBCombo1.Top = DBGrid1.Top + 200 + DBGrid1.Row * DBGrid1.RowHeight + 40
DBCombo2.Top = DBGrid1.Top + 200 + DBGrid1.Row * DBGrid1.RowHeight + 40
DBCombo3.Top = DBGrid1.Top + 200 + DBGrid1.Row * DBGrid1.RowHeight + 40
End Sub
Private Sub DBGrid2_Click()
Command5.Top = DBGrid2.Top + 200 + DBGrid2.Row * DBGrid2.RowHeight + 40
Command6.Top = DBGrid2.Top + 200 + DBGrid2.Row * DBGrid2.RowHeight + 40
Command7.Top = DBGrid2.Top + 200 + DBGrid2.Row * DBGrid2.RowHeight + 40
End Sub
Private Sub DBGrid2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command5.Top = DBGrid2.Top + 200 + DBGrid2.Row * DBGrid2.RowHeight + 40
Command6.Top = DBGrid2.Top + 200 + DBGrid2.Row * DBGrid2.RowHeight + 40
Command7.Top = DBGrid2.Top + 200 + DBGrid2.Row * DBGrid2.RowHeight + 40
End Sub
Private Sub Text1_Change()
If Text1.Text = "" Then
Text1.Text = "备注说明："
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -