tjlxgs.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 tjlxgs 
   Caption         =   "零星工时统计"
   ClientHeight    =   8490
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   11880
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   8490
   ScaleWidth      =   11880
   Begin MSComCtl2.MonthView MonthView2 
      Height          =   2370
      Left            =   5640
      TabIndex        =   16
      Top             =   1260
      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            =   3930
      TabIndex        =   15
      Top             =   1260
      Width           =   4065
      _ExtentX        =   7170
      _ExtentY        =   4180
      _Version        =   393216
      ForeColor       =   -2147483630
      BackColor       =   -2147483633
      Appearance      =   1
      StartOfWeek     =   25362433
      CurrentDate     =   39000
   End
   Begin FlexCell.Grid Grid1 
      Height          =   7245
      Left            =   60
      TabIndex        =   14
      Top             =   1260
      Width           =   11715
      _ExtentX        =   20664
      _ExtentY        =   12779
      Cols            =   5
      Rows            =   30
   End
   Begin VB.ComboBox cmbcj 
      Height          =   315
      Left            =   6840
      Style           =   2  'Dropdown List
      TabIndex        =   5
      Top             =   840
      Width           =   1275
   End
   Begin VB.CommandButton cmddate1 
      Caption         =   "Command2"
      Height          =   195
      Left            =   4140
      TabIndex        =   4
      Top             =   900
      Width           =   195
   End
   Begin VB.CommandButton cmddate2 
      Caption         =   "Command1"
      Height          =   195
      Left            =   5760
      TabIndex        =   3
      Top             =   900
      Width           =   195
   End
   Begin VB.CommandButton cmdexit 
      Caption         =   "退出"
      Height          =   315
      Left            =   10980
      TabIndex        =   2
      Top             =   840
      Width           =   795
   End
   Begin VB.CommandButton cmdfind 
      Caption         =   "检索"
      Height          =   315
      Left            =   8400
      TabIndex        =   1
      Top             =   840
      Width           =   855
   End
   Begin VB.CommandButton cmdexcel 
      Caption         =   "Excel导出"
      Height          =   315
      Left            =   9540
      TabIndex        =   0
      Top             =   840
      Width           =   1215
   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             =   840
      Width           =   1155
      _ExtentX        =   2037
      _ExtentY        =   556
      _Version        =   393216
      PromptChar      =   "_"
   End
   Begin MSMask.MaskEdBox mskdate2 
      Height          =   315
      Left            =   4620
      TabIndex        =   8
      Top             =   840
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   556
      _Version        =   393216
      PromptChar      =   "_"
   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        =   6
      Top             =   180
      Width           =   3195
   End
   Begin VB.Label lblym 
      Height          =   255
      Left            =   2520
      TabIndex        =   13
      Top             =   240
      Width           =   975
   End
   Begin VB.Line Line1 
      X1              =   2160
      X2              =   3600
      Y1              =   540
      Y2              =   540
   End
   Begin VB.Label Label1 
      Caption         =   "单位：小时、kg"
      Height          =   195
      Index           =   1
      Left            =   10140
      TabIndex        =   12
      Top             =   300
      Width           =   1515
   End
   Begin VB.Label Label1 
      Caption         =   "车间名称"
      Height          =   195
      Index           =   4
      Left            =   6060
      TabIndex        =   11
      Top             =   900
      Width           =   795
   End
   Begin VB.Label Label1 
      Caption         =   "工票日期"
      Height          =   195
      Index           =   8
      Left            =   1980
      TabIndex        =   10
      Top             =   900
      Width           =   795
   End
   Begin VB.Label Label1 
      Caption         =   "----"
      Height          =   195
      Index           =   5
      Left            =   4380
      TabIndex        =   9
      Top             =   900
      Width           =   255
   End
End
Attribute VB_Name = "tjlxgs"
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   '部件工序小计数，部件定额工时
Dim Igx As Integer         '工序数量
Dim cpgstot As Currency, cpgssub As Currency      '分产品小计
Private Sub Form_Load()
    Me.Width = 12000
    Me.Height = 9000
    
    Grid1.AutoRedraw = False
    Grid1.DisplayFocusRect = False
    Grid1.Cols = 4
    Grid1.FixedCols = 4
    
    Grid1.Rows = 1
    Grid1.Column(0).Width = 2
    Grid1.Column(1).Width = 30
    Grid1.Column(2).Width = 80
    Grid1.Column(3).Width = 80
    
    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.AddItem "全部车间"
    cmbcj.ListIndex = 0
    
    Mskdate1.Text = NOWDate - 10
    MonthView1.Visible = False
    MonthView1.Value = NOWDate