tjymcj.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 tjymcj 
   Caption         =   "工时汇总"
   ClientHeight    =   7620
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10935
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   7620
   ScaleWidth      =   10935
   Begin MSComCtl2.MonthView MonthView2 
      Height          =   2370
      Left            =   3900
      TabIndex        =   17
      Top             =   990
      Width           =   4065
      _ExtentX        =   7170
      _ExtentY        =   4180
      _Version        =   393216
      ForeColor       =   -2147483630
      BackColor       =   -2147483633
      Appearance      =   1
      StartOfWeek     =   64094209
      CurrentDate     =   39000
   End
   Begin MSComCtl2.MonthView MonthView1 
      Height          =   2370
      Left            =   2010
      TabIndex        =   16
      Top             =   1050
      Width           =   4065
      _ExtentX        =   7170
      _ExtentY        =   4180
      _Version        =   393216
      ForeColor       =   -2147483630
      BackColor       =   -2147483633
      Appearance      =   1
      StartOfWeek     =   64094209
      CurrentDate     =   39000
   End
   Begin FlexCell.Grid Grid1 
      Height          =   6105
      Left            =   90
      TabIndex        =   15
      Top             =   1140
      Width           =   10755
      _ExtentX        =   18971
      _ExtentY        =   10769
      Cols            =   5
      Rows            =   30
   End
   Begin VB.CommandButton cmdexcel 
      Caption         =   "导出至Excel"
      Height          =   255
      Left            =   8820
      TabIndex        =   6
      Top             =   360
      Width           =   1815
   End
   Begin VB.CommandButton cmdexit 
      Caption         =   "退出"
      Height          =   255
      Left            =   9840
      TabIndex        =   13
      Top             =   780
      Width           =   795
   End
   Begin VB.CommandButton cmdfind 
      Caption         =   "检索"
      Height          =   255
      Left            =   8820
      TabIndex        =   12
      Top             =   780
      Width           =   855
   End
   Begin VB.ComboBox cmbcj 
      Height          =   315
      Left            =   4920
      Style           =   2  'Dropdown List
      TabIndex        =   8
      Top             =   690
      Width           =   1275
   End
   Begin VB.ComboBox cmbbz 
      Height          =   315
      Left            =   7140
      TabIndex        =   7
      Top             =   690
      Width           =   1455
   End
   Begin VB.CommandButton cmddate1 
      Caption         =   "Command2"
      Height          =   195
      Left            =   2220
      TabIndex        =   1
      Top             =   750
      Width           =   195
   End
   Begin VB.CommandButton cmddate2 
      Caption         =   "Command1"
      Height          =   195
      Left            =   3840
      TabIndex        =   0
      Top             =   750
      Width           =   195
   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            =   1020
      TabIndex        =   2
      Top             =   690
      Width           =   1155
      _ExtentX        =   2037
      _ExtentY        =   556
      _Version        =   393216
      PromptChar      =   "_"
   End
   Begin MSMask.MaskEdBox mskdate2 
      Height          =   315
      Left            =   2700
      TabIndex        =   3
      Top             =   690
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   556
      _Version        =   393216
      PromptChar      =   "_"
   End
   Begin VB.Label Label2 
      Caption         =   "注：以上选项日期必须填列，班组/个人可以不选。"
      Height          =   255
      Index           =   1
      Left            =   120
      TabIndex        =   14
      Top             =   7260
      Width           =   7215
   End
   Begin VB.Label Label2 
      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          =   435
      Index           =   0
      Left            =   3120
      TabIndex        =   11
      Top             =   0
      Width           =   4755
   End
   Begin VB.Label Label1 
      Caption         =   "班组/个人"
      Height          =   195
      Index           =   3
      Left            =   6360
      TabIndex        =   10
      Top             =   750
      Width           =   795
   End
   Begin VB.Label Label1 
      Caption         =   "车间名称"
      Height          =   195
      Index           =   4
      Left            =   4140
      TabIndex        =   9
      Top             =   750
      Width           =   795
   End
   Begin VB.Label Label1 
      Caption         =   "工票日期"
      Height          =   195
      Index           =   8
      Left            =   120
      TabIndex        =   5
      Top             =   750
      Width           =   795
   End
   Begin VB.Label Label1 
      Caption         =   "----"
      Height          =   195
      Index           =   5
      Left            =   2460
      TabIndex        =   4
      Top             =   750
      Width           =   255
   End
End
Attribute VB_Name = "tjymcj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'本表行为个人，列为个人＋定额/增拨工序分数＋小计＋小时
Option Explicit
Dim Gsdn As Currency, gszp As Currency, gslx As Currency, gstot As Currency
Dim bzname As String, gsdate1 As String, gsdate2 As String
Dim Totgs As Currency, Totgz As Currency  '工时、工资合计数
Dim totdn As Currency, totzp As Currency, totlx As Currency
Private Sub Form_Load()
    Me.Width = 11000
    Me.Height = 8100
    
    Grid1.AutoRedraw = False
    Grid1.DisplayFocusRect = False
    Grid1.Cols = 10
    Grid1.FixedRows = 2
  
    Grid1.Column(0).Width = 2
    Grid1.Column(1).Width = 40
    dogridfill
    Grid1.AutoRedraw = True
    Grid1.Refresh
  
    '填列车间
    Set rsTempA = oDb.Execute("select * from acj ")
    Do Until rsTempA.EOF
        cmbcj.AddItem rsTempA!cjmc
        rsTempA.MoveNext
    Loop