📄 tjgxgs.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{4777436C-EB8C-4596-98A8-EBCF98683969}#1.0#0"; "FlexCell.ocx"
Begin VB.Form tjgxgs
Caption = "增拨工票工序统计"
ClientHeight = 8370
ClientLeft = 60
ClientTop = 450
ClientWidth = 11850
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 8370
ScaleWidth = 11850
Begin VB.ComboBox cmbgslb
Height = 315
Left = 7200
TabIndex = 17
Top = 780
Width = 1335
End
Begin VB.ComboBox cmbcj
Height = 315
Left = 5040
Style = 2 'Dropdown List
TabIndex = 7
Top = 780
Width = 1275
End
Begin VB.CommandButton cmddate1
Caption = "Command2"
Height = 195
Left = 2340
TabIndex = 6
Top = 840
Width = 195
End
Begin VB.CommandButton cmddate2
Caption = "Command1"
Height = 195
Left = 3960
TabIndex = 5
Top = 840
Width = 195
End
Begin VB.CommandButton cmdexit
Caption = "退出"
Height = 315
Left = 10980
TabIndex = 4
Top = 780
Width = 795
End
Begin VB.CommandButton cmdfind
Caption = "检索"
Height = 315
Left = 8700
TabIndex = 3
Top = 780
Width = 855
End
Begin VB.CommandButton cmdexcel
Caption = "Excel导出"
Height = 315
Left = 9660
TabIndex = 0
Top = 780
Width = 1215
End
Begin MSComCtl2.MonthView MonthView2
Height = 2370
Left = 3120
TabIndex = 1
Top = 1020
Width = 4065
_ExtentX = 7170
_ExtentY = 4180
_Version = 393216
ForeColor = -2147483630
BackColor = -2147483633
Appearance = 1
StartOfWeek = 54460417
CurrentDate = 38916
End
Begin MSComCtl2.MonthView MonthView1
Height = 2370
Left = 2100
TabIndex = 2
Top = 1020
Width = 4065
_ExtentX = 7170
_ExtentY = 4180
_Version = 393216
ForeColor = -2147483630
BackColor = -2147483633
Appearance = 1
StartOfWeek = 54460417
CurrentDate = 38916
End
Begin FlexCell.Grid Grid1
Height = 6975
Left = 60
TabIndex = 8
Top = 1320
Width = 11715
_ExtentX = 20664
_ExtentY = 12303
Cols = 5
Rows = 3
End
Begin MSMask.MaskEdBox Mskdate1
BeginProperty DataFormat
Type = 1
Format = "yyyy-MM-dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Height = 315
Left = 1140
TabIndex = 9
Top = 780
Width = 1155
_ExtentX = 2037
_ExtentY = 556
_Version = 393216
PromptChar = "_"
End
Begin MSMask.MaskEdBox mskdate2
Height = 315
Left = 2820
TabIndex = 10
Top = 780
Width = 1095
_ExtentX = 1931
_ExtentY = 556
_Version = 393216
PromptChar = "_"
End
Begin VB.Label Label1
Caption = "工时类别"
Height = 195
Index = 2
Left = 6420
TabIndex = 16
Top = 840
Width = 795
End
Begin VB.Label Label1
Caption = "增拨工票按工序统计"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Index = 0
Left = 4020
TabIndex = 15
Top = 120
Width = 3075
End
Begin VB.Label Label1
Caption = "单位：小时、kg"
Height = 195
Index = 1
Left = 10080
TabIndex = 14
Top = 240
Width = 1515
End
Begin VB.Label Label1
Caption = "车间名称"
Height = 195
Index = 4
Left = 4260
TabIndex = 13
Top = 840
Width = 795
End
Begin VB.Label Label1
Caption = "工票日期"
Height = 195
Index = 8
Left = 180
TabIndex = 12
Top = 840
Width = 795
End
Begin VB.Label Label1
Caption = "----"
Height = 195
Index = 5
Left = 2580
TabIndex = 11
Top = 840
Width = 255
End
End
Attribute VB_Name = "tjgxgs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'工时统计以工票日期为准
Option Explicit
Dim rsTempD As Recordset
Dim gsdate1 As String, gsdate2 As String
Dim Gxgstot As Currency, Bjdngs As Currency, Bjdnzl As Currency '部件工序小计数，部件定额工时，部件重量
Dim Igx As Integer '工序数量
Private Sub Form_Load()
Me.Width = 12000
Me.Height = 8880
Grid1.AutoRedraw = False
Grid1.DisplayFocusRect = False
Grid1.Cols = 8
Grid1.FixedCols = 6
Grid1.Rows = 1
Grid1.Column(0).Width = 2
Grid1.Column(1).Width = 30
Grid1.Column(2).Width = 80
Grid1.Column(3).Width = 80
Grid1.Column(4).Width = 80
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -