gpgxmx.frm

一个机械产品（产品、部件、零件）的工时、工资及进度软件

VERSION 5.00
Object = "{4F29B06F-16D9-4A0C-9C8A-2F0C02F625FE}#1.0#0"; "FlexCell.ocx"
Begin VB.Form gpgxmx 
   Caption         =   "工时明细清单"
   ClientHeight    =   4545
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7590
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   4545
   ScaleWidth      =   7590
   Begin FlexCell.Grid Grid1 
      Height          =   3945
      Left            =   120
      TabIndex        =   6
      Top             =   570
      Width           =   7425
      _ExtentX        =   13097
      _ExtentY        =   6959
      Cols            =   5
      Rows            =   30
   End
   Begin VB.CommandButton cmdexit 
      Caption         =   "退出"
      Height          =   255
      Left            =   6540
      TabIndex        =   3
      Top             =   180
      Width           =   915
   End
   Begin VB.Label Label1 
      Caption         =   "零件名称"
      Height          =   195
      Index           =   1
      Left            =   2880
      TabIndex        =   0
      Top             =   180
      Width           =   795
   End
   Begin VB.Label lblmc 
      Height          =   255
      Left            =   3720
      TabIndex        =   5
      Top             =   180
      Width           =   1575
   End
   Begin VB.Label Label1 
      Caption         =   "单位：分钟"
      Height          =   195
      Index           =   2
      Left            =   5460
      TabIndex        =   4
      Top             =   180
      Width           =   915
   End
   Begin VB.Label lblbh 
      Height          =   255
      Left            =   1080
      TabIndex        =   2
      Top             =   180
      Width           =   1635
   End
   Begin VB.Label Label1 
      Caption         =   "零件号码"
      Height          =   195
      Index           =   0
      Left            =   180
      TabIndex        =   1
      Top             =   180
      Width           =   795
   End
End
Attribute VB_Name = "gpgxmx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
    Me.Width = 7700
    Me.Height = 5050
    Grid1.AllowUserSort = True
    Grid1.ExtendLastCol = True
  
    Grid1.Cols = 7
    Grid1.Column(0).Width = 2
   
    Grid1.Column(1).Width = 70
    Grid1.Column(2).Width = 70
    Grid1.Column(3).Width = 70
    Grid1.Column(4).Width = 60
    Grid1.Column(5).Width = 50
    Grid1.Column(6).Width = 60
    
    Grid1.Column(1).UserSortIndicator = cellSortIndicatorDescending
    Grid1.Column(3).UserSortIndicator = cellSortIndicatorDescending
    Grid1.Column(6).UserSortIndicator = cellSortIndicatorDescending
    'Grid1.Column(2).Alignment = cellRightCenter
    dogridfill
    lblbh.Caption = bhgpgx
    lblmc.Caption = mcgpgx
    
    szSql = "select * from gpdnb where gpljbh='" & bhgpgx & "'"
    Set rsTempA = oDb.Execute(szSql)
    Do Until rsTempA.EOF
         Set rsTempB = oDb.Execute("select gpbh,gphm,gprq from gpdnh where gpbh='" & rsTempA!gpbh & "'")
         griditem = rsTempB!gprq & Chr(9) & "定额工票" & Chr(9) & rsTempA!gpgxbh & Chr(9) & rsTempA!gpgxmc & Chr(9) & rsTempA!gpgs & Chr(9) & rsTempB!gphm
         Grid1.AddItem griditem
        rsTempA.MoveNext
    Loop
    
    szSql = "select * from gpzpb where gpljbh='" & bhgpgx & "'"
    Set rsTempA = oDb.Execute(szSql)
    Do Until rsTempA.EOF
         Set rsTempB = oDb.Execute("select gpbh,gphm,gprq from gpzph where gpbh='" & rsTempA!gpbh & "'")
         griditem = rsTempB!gprq & Chr(9) & "增拨工票" & Chr(9) & rsTempA!gpgxbh & Chr(9) & rsTempA!gpgxmc & Chr(9) & rsTempA!gpgs & Chr(9) & rsTempB!gphm
         Grid1.AddItem griditem
        rsTempA.MoveNext
    Loop
    
    szSql = "select * from gpwxb where gpljbh='" & bhgpgx & "'"
    Set rsTempA = oDb.Execute(szSql)
    Do Until rsTempA.EOF
         Set rsTempB = oDb.Execute("select gpbh,gphm,gprq from gpwxh where gpbh='" & rsTempA!gpbh & "'")
         griditem = rsTempB!gprq & Chr(9) & "外协工票" & Chr(9) & rsTempA!gpgxbh & Chr(9) & rsTempA!gpgxmc & Chr(9) & rsTempA!gpgs & Chr(9) & rsTempB!gphm
         Grid1.AddItem griditem
        rsTempA.MoveNext
    Loop
    
    Grid1.AutoRedraw = True
    Grid1.Refresh
End Sub
 
Private Sub dogridfill()
    Grid1.Rows = 1
    Grid1.Cell(0, 1).Text = "日期"
    Grid1.Cell(0, 2).Text = "工票类别"
    Grid1.Cell(0, 3).Text = "工序编号"
    Grid1.Cell(0, 4).Text = "工序名称"
    Grid1.Cell(0, 5).Text = "工时"
    Grid1.Cell(0, 6).Text = "工票号码"
End Sub
Private Sub cmdexit_Click()
    Unload Me
End Sub