📄 tjyngs1.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 = "{4F29B06F-16D9-4A0C-9C8A-2F0C02F625FE}#1.0#0"; "FlexCell.ocx"
Begin VB.Form tjymgs1
Caption = "按车间工时完成情况表"
ClientHeight = 8475
ClientLeft = 60
ClientTop = 450
ClientWidth = 11880
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 8475
ScaleWidth = 11880
Begin MSComCtl2.MonthView MonthView2
Height = 2370
Left = 5940
TabIndex = 19
Top = 1050
Width = 4065
_ExtentX = 7170
_ExtentY = 4180
_Version = 393216
ForeColor = -2147483630
BackColor = -2147483633
Appearance = 1
StartOfWeek = 65077249
CurrentDate = 39000
End
Begin MSComCtl2.MonthView MonthView1
Height = 2370
Left = 4200
TabIndex = 18
Top = 1080
Width = 4065
_ExtentX = 7170
_ExtentY = 4180
_Version = 393216
ForeColor = -2147483630
BackColor = -2147483633
Appearance = 1
StartOfWeek = 65077249
CurrentDate = 39000
End
Begin FlexCell.Grid Grid2
Height = 1935
Left = 0
TabIndex = 17
Top = 6510
Width = 11805
_ExtentX = 20823
_ExtentY = 3413
Cols = 5
Rows = 30
End
Begin FlexCell.Grid Grid1
Height = 5025
Left = 60
TabIndex = 16
Top = 1260
Width = 11775
_ExtentX = 20770
_ExtentY = 8864
Cols = 5
Rows = 30
End
Begin VB.CommandButton cmdexcel
Caption = "Excel导出"
Height = 315
Left = 9540
TabIndex = 3
Top = 720
Width = 1215
End
Begin VB.CommandButton cmdfind
Caption = "检索"
Height = 315
Left = 8400
TabIndex = 13
Top = 720
Width = 855
End
Begin VB.CommandButton cmdexit
Caption = "退出"
Height = 315
Left = 10980
TabIndex = 12
Top = 720
Width = 795
End
Begin VB.CommandButton cmddate2
Caption = "Command1"
Height = 195
Left = 5760
TabIndex = 6
Top = 780
Width = 195
End
Begin VB.CommandButton cmddate1
Caption = "Command2"
Height = 195
Left = 4140
TabIndex = 5
Top = 780
Width = 195
End
Begin VB.ComboBox cmbcj
Height = 315
Left = 6840
Style = 2 'Dropdown List
TabIndex = 4
Top = 720
Width = 1275
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 = 2940
TabIndex = 7
Top = 720
Width = 1155
_ExtentX = 2037
_ExtentY = 556
_Version = 393216
PromptChar = "_"
End
Begin MSMask.MaskEdBox mskdate2
Height = 315
Left = 4620
TabIndex = 8
Top = 720
Width = 1095
_ExtentX = 1931
_ExtentY = 556
_Version = 393216
PromptChar = "_"
End
Begin VB.Label Label3
Caption = "增拨工时"
ForeColor = &H000000FF&
Height = 195
Index = 1
Left = 60
TabIndex = 15
Top = 6300
Width = 735
End
Begin VB.Label Label3
Caption = "定额工时"
ForeColor = &H000000FF&
Height = 195
Index = 0
Left = 240
TabIndex = 14
Top = 1020
Width = 735
End
Begin VB.Label Label1
Caption = "----"
Height = 195
Index = 5
Left = 4380
TabIndex = 11
Top = 780
Width = 255
End
Begin VB.Label Label1
Caption = "工票日期"
Height = 195
Index = 8
Left = 1980
TabIndex = 10
Top = 780
Width = 795
End
Begin VB.Label Label1
Caption = "车间名称"
Height = 195
Index = 4
Left = 6060
TabIndex = 9
Top = 780
Width = 795
End
Begin VB.Label Label1
Caption = "单位：小时、kg"
Height = 195
Index = 1
Left = 10140
TabIndex = 2
Top = 180
Width = 1515
End
Begin VB.Line Line1
X1 = 2160
X2 = 3600
Y1 = 420
Y2 = 420
End
Begin VB.Label lblym
Height = 255
Left = 2520
TabIndex = 1
Top = 180
Width = 975
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 = 3780
TabIndex = 0
Top = 120
Width = 3435
End
End
Attribute VB_Name = "tjymgs1"
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 = 9000
Grid1.AutoRedraw = False
Grid1.DisplayFocusRect = False
Grid1.Cols = 9
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
Grid1.Column(5).Width = 80
Grid1.Column(6).Width = 40
Grid1.Column(7).Width = 40
Grid1.Column(8).Width = 50
Grid1.Column(4).Alignment = cellLeftCenter
Grid1.Column(5).Alignment = cellLeftCenter
dogridfill
Grid1.AutoRedraw = True
Grid1.Refresh
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -