tjymgs2.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 tjymgs2 
   Caption         =   "产品按车间汇总"
   ClientHeight    =   8685
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   11805
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   8685
   ScaleWidth      =   11805
   Begin MSComCtl2.MonthView MonthView2 
      Height          =   2370
      Left            =   7110
      TabIndex        =   17
      Top             =   990
      Width           =   4065
      _ExtentX        =   7170
      _ExtentY        =   4180
      _Version        =   393216
      ForeColor       =   -2147483630
      BackColor       =   -2147483633
      Appearance      =   1
      StartOfWeek     =   25362433
      CurrentDate     =   39000
   End
   Begin MSComCtl2.MonthView MonthView1 
      Height          =   2370
      Left            =   5460
      TabIndex        =   16
      Top             =   990
      Width           =   4065
      _ExtentX        =   7170
      _ExtentY        =   4180
      _Version        =   393216
      ForeColor       =   -2147483630
      BackColor       =   -2147483633
      Appearance      =   1
      StartOfWeek     =   25362433
      CurrentDate     =   39000
   End
   Begin FlexCell.Grid Grid2 
      Height          =   2055
      Left            =   0
      TabIndex        =   15
      Top             =   6600
      Width           =   11775
      _ExtentX        =   20770
      _ExtentY        =   3625
      Cols            =   5
      Rows            =   30
   End
   Begin FlexCell.Grid Grid1 
      Height          =   5145
      Left            =   30
      TabIndex        =   14
      Top             =   1230
      Width           =   11685
      _ExtentX        =   20611
      _ExtentY        =   9075
      Cols            =   5
      Rows            =   30
   End
   Begin VB.CommandButton cmdexcel 
      Caption         =   "Excel导出"
      Height          =   315
      Left            =   9480
      TabIndex        =   4
      Top             =   720
      Width           =   1095
   End
   Begin VB.CommandButton cmddate1 
      Caption         =   "Command2"
      Height          =   195
      Left            =   5580
      TabIndex        =   3
      Top             =   780
      Width           =   195
   End
   Begin VB.CommandButton cmddate2 
      Caption         =   "Command1"
      Height          =   195
      Left            =   7200
      TabIndex        =   2
      Top             =   780
      Width           =   195
   End
   Begin VB.CommandButton cmdexit 
      Caption         =   "退出"
      Height          =   315
      Left            =   10800
      TabIndex        =   1
      Top             =   720
      Width           =   855
   End
   Begin VB.CommandButton cmdfind 
      Caption         =   "检索"
      Height          =   315
      Left            =   8280
      TabIndex        =   0
      Top             =   720
      Width           =   975
   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            =   4380
      TabIndex        =   5
      Top             =   720
      Width           =   1155
      _ExtentX        =   2037
      _ExtentY        =   556
      _Version        =   393216
      PromptChar      =   "_"
   End
   Begin MSMask.MaskEdBox mskdate2 
      Height          =   315
      Left            =   6060
      TabIndex        =   6
      Top             =   720
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   556
      _Version        =   393216
      PromptChar      =   "_"
   End
   Begin VB.Label lblym 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2100
      TabIndex        =   12
      Top             =   180
      Width           =   975
   End
   Begin VB.Label Label3 
      Caption         =   "增拨工时"
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   1
      Left            =   240
      TabIndex        =   13
      Top             =   6420
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "工时、吨位按车间汇总完成情况表"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   0
      Left            =   3120
      TabIndex        =   11
      Top             =   60
      Width           =   5295
   End
   Begin VB.Line Line1 
      X1              =   1980
      X2              =   3120
      Y1              =   480
      Y2              =   480
   End
   Begin VB.Label Label1 
      Caption         =   "单位：小时、kg"
      Height          =   195
      Index           =   1
      Left            =   9780
      TabIndex        =   10
      Top             =   240
      Width           =   1515
   End
   Begin VB.Label Label1 
      Caption         =   "工票日期"
      Height          =   195
      Index           =   8
      Left            =   3420
      TabIndex        =   9
      Top             =   780
      Width           =   795
   End
   Begin VB.Label Label1 
      Caption         =   "----"
      Height          =   195
      Index           =   5
      Left            =   5820
      TabIndex        =   8
      Top             =   780
      Width           =   255
   End
   Begin VB.Label Label3 
      Caption         =   "定额工时"
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   0
      Left            =   240
      TabIndex        =   7
      Top             =   1020
      Width           =   735
   End
End
Attribute VB_Name = "tjymgs2"
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  '部件工序小计数，部件定额工时，部件重量
Private Sub Form_Load()
    Me.Width = 12000
    Me.Height = 9000
    
    Grid1.AutoRedraw = False
    Grid1.DisplayFocusRect = False
    Grid1.Cols = 17
    Grid1.FixedCols = 2
    
    Grid1.Rows = 1
    Grid1.Column(0).Width = 2
    Grid1.Column(1).Width = 25
    Grid1.Column(2).Width = 80
    Grid1.Column(3).Width = 80
    Grid1.Column(4).Width = 80
    Grid1.Column(5).Width = 80
    Grid1.Column(6).Width = 30
    Grid1.Column(7).Width = 40
    For i = 8 To 16
        Grid1.Column(i).Width = 55