📄 planljjd.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{4F29B06F-16D9-4A0C-9C8A-2F0C02F625FE}#1.0#0"; "FlexCell.ocx"
Begin VB.Form planljjd
Caption = "零件进度"
ClientHeight = 8490
ClientLeft = 60
ClientTop = 450
ClientWidth = 11880
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 8490
ScaleWidth = 11880
Begin MSComCtl2.MonthView MonthView1
Height = 2370
Left = 4170
TabIndex = 18
Top = 840
Width = 4065
_ExtentX = 7170
_ExtentY = 4180
_Version = 393216
ForeColor = -2147483630
BackColor = -2147483633
Appearance = 1
StartOfWeek = 65077249
CurrentDate = 39000
End
Begin FlexCell.Grid Grid1
Height = 6915
Left = 60
TabIndex = 17
Top = 960
Width = 11775
_ExtentX = 20770
_ExtentY = 12197
Cols = 5
Rows = 30
End
Begin VB.TextBox txtrows
Alignment = 1 'Right Justify
Height = 285
Left = 5460
TabIndex = 16
Top = 600
Width = 735
End
Begin VB.CommandButton cmddate
Caption = "Command1"
Height = 255
Left = 4200
TabIndex = 10
Top = 660
Width = 195
End
Begin MSMask.MaskEdBox mskdate
Height = 315
Left = 2880
TabIndex = 9
Top = 600
Width = 1275
_ExtentX = 2249
_ExtentY = 556
_Version = 393216
PromptChar = "_"
End
Begin VB.CommandButton cmdfind
Caption = "统计"
Height = 255
Left = 8520
TabIndex = 3
Top = 600
Width = 975
End
Begin VB.CommandButton cmdexit
Caption = "退出"
Height = 255
Left = 11100
TabIndex = 2
Top = 600
Width = 795
End
Begin VB.ComboBox cmbcj
Height = 315
Left = 7140
Style = 2 'Dropdown List
TabIndex = 1
Top = 540
Width = 1275
End
Begin VB.CommandButton cmdexcel
Caption = "Excel导出"
Height = 255
Left = 9720
TabIndex = 0
Top = 600
Width = 1155
End
Begin ComctlLib.ProgressBar ProgressBar2
Height = 255
Left = 660
TabIndex = 12
Top = 7920
Width = 11145
_ExtentX = 19659
_ExtentY = 450
_Version = 327682
Appearance = 1
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 270
Left = 600
TabIndex = 13
Top = 8220
Width = 11175
_ExtentX = 19711
_ExtentY = 476
_Version = 393216
Appearance = 1
End
Begin VB.Label Label1
Caption = "表格行数"
Height = 195
Index = 3
Left = 4680
TabIndex = 4
Top = 660
Width = 795
End
Begin VB.Label Label2
Caption = "总进度"
Height = 195
Index = 0
Left = 0
TabIndex = 15
Top = 8220
Width = 555
End
Begin VB.Label Label2
Caption = "当前进度"
Height = 195
Index = 1
Left = 0
TabIndex = 14
Top = 7920
Width = 735
End
Begin VB.Label Label1
Caption = "截止日期"
Height = 195
Index = 2
Left = 2100
TabIndex = 11
Top = 660
Width = 795
End
Begin VB.Label Label3
Caption = "定额工时"
ForeColor = &H000000FF&
Height = 195
Index = 0
Left = 240
TabIndex = 8
Top = 240
Width = 735
End
Begin VB.Label Label1
Caption = "车间名称"
Height = 195
Index = 4
Left = 6300
TabIndex = 7
Top = 600
Width = 795
End
Begin VB.Label Label1
Caption = "单位：小时、kg"
Height = 195
Index = 1
Left = 120
TabIndex = 6
Top = 720
Width = 1515
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 = 3840
TabIndex = 5
Top = 0
Width = 3315
End
End
Attribute VB_Name = "planljjd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'工时统计以工票日期为准
Option Explicit
Dim rsTempD As Recordset, rstempE As Recordset
Dim curdate1 As String
Dim Gsdn As Currency, Tempgs As Currency '定额工时
Dim Igx As Integer '工序数量
Dim mc(13) As String, gs(13) As Currency '工序名称，定额工时数 数组变量，维数为ajdlj表的工序名称、工时数的字段数，现为12
Dim barcount As Integer, barvalue As Integer ' 进程条计数
Dim barcount2 As Integer, barvalue2 As Integer ' 当前进程条计数
Dim subgs As Currency
Private Sub Form_Load()
Me.Width = 12000
Me.Height = 8350 '9000
Grid1.AutoRedraw = False
Grid1.DisplayFocusRect = False
Grid1.Cols = 12
Grid1.Rows = 2
Grid1.FixedCols = 8
Grid1.FixedRows = 2
Grid1.Column(0).Width = 2
Grid1.Column(1).Width = 20
Grid1.Column(2).Width = 70
Grid1.Column(3).Width = 70
Grid1.Column(4).Width = 80
Grid1.Column(5).Width = 70
Grid1.Column(6).Width = 70
Grid1.Column(7).Width = 70
Grid1.Column(8).Width = 70
Grid1.Column(9).Width = 40
Grid1.Column(10).Width = 50
Grid1.Column(11).Width = 55
Grid1.Column(4).Alignment = cellLeftCenter
Grid1.Column(5).Alignment = cellLeftCenter
Grid1.Column(6).Alignment = cellLeftCenter
Grid1.Column(7).Alignment = cellLeftCenter
dogridfill
Grid1.AutoRedraw = True
Grid1.Refresh
'填列车间
Set rsTempA = oDb.Execute("select * from acj ")
Do Until rsTempA.EOF
cmbcj.AddItem rsTempA!cjmc
rsTempA.MoveNext
Loop
cmbcj.ListIndex = 0
mskdate.Text = NOWDate
MonthView1.Visible = False
MonthView1.Value = NOWDate
End Sub
Private Sub cmdfind_Click()
If cmbcj.Text = "" Then
MsgBox "车间必须选择！", vbOKOnly, "车间选择"
Exit Sub
End If
answer = MsgBox("此过程数据量宠大，统计时间较长，确需继续码？", vbYesNo, "编制计划")
If answer <> 6 Then Exit Sub
planljjd.Height = 9000
frmwait.Show 0
DoEvents
dogridfill
curdate1 = mskdate.Text
Screen.MousePointer = vbHourglass
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -