pgwork.frm

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

VERSION 5.00
Object = "{4F29B06F-16D9-4A0C-9C8A-2F0C02F625FE}#1.0#0"; "FlexCell.ocx"
Begin VB.Form pgwork 
   ClientHeight    =   6735
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   12060
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6735
   ScaleWidth      =   12060
   Begin FlexCell.Grid Grid1 
      Height          =   5295
      Left            =   60
      TabIndex        =   6
      Top             =   630
      Width           =   11835
      _ExtentX        =   20876
      _ExtentY        =   9340
      Cols            =   5
      Rows            =   30
   End
   Begin VB.Frame Frame1 
      Height          =   615
      Left            =   6660
      TabIndex        =   1
      Top             =   6000
      Width           =   5235
      Begin VB.CommandButton cmdadd 
         Caption         =   "增加"
         Height          =   255
         Left            =   360
         TabIndex        =   5
         Top             =   240
         Width           =   795
      End
      Begin VB.CommandButton cmdsave 
         Caption         =   "保存"
         Height          =   255
         Left            =   1605
         TabIndex        =   4
         Top             =   240
         Width           =   795
      End
      Begin VB.CommandButton cmdexit 
         Caption         =   "退出"
         Height          =   255
         Left            =   4080
         TabIndex        =   3
         Top             =   240
         Width           =   795
      End
      Begin VB.CommandButton cmddelete 
         Caption         =   "删行"
         Height          =   255
         Left            =   2835
         TabIndex        =   2
         Top             =   240
         Width           =   795
      End
   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          =   375
      Left            =   4920
      TabIndex        =   0
      Top             =   180
      Width           =   2535
   End
End
Attribute VB_Name = "pgwork"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'表pgwork权限表 中文/列名
 Option Explicit
Private Sub Form_Load()
    Me.Width = 12000
    Me.Height = 7250
    
    Grid1.AutoRedraw = False
    Grid1.AllowUserSort = True
    Grid1.AllowUserResizing = True
    Grid1.DisplayFocusRect = False
    Grid1.ExtendLastCol = False
    Grid1.SelectionMode = cellSelectionNone
    
    Grid1.Cols = 34
    Grid1.FixedRows = 2
    Grid1.FixedCols = 3
   
    Grid1.Range(0, 1, 0, 2).Merge
    Grid1.Range(0, 4, 0, 8).Merge
    Grid1.Range(0, 9, 0, 16).Merge
    Grid1.Range(0, 17, 0, 25).Merge
    Grid1.Range(0, 26, 0, 32).Merge
   
    For i = 4 To 32
        Grid1.Column(i).CellType = cellCheckBox
    Next i
    Grid1.RowHeight(1) = 60
    
    Grid1.Column(2).UserSortIndicator = cellSortIndicatorDisabled
    Grid1.Column(0).Width = 20
    Grid1.Column(1).Width = 50
    Grid1.Column(2).Width = 50
   
    For i = 4 To 32
        Grid1.Column(i).Width = 30
    Next i
    Grid1.Column(3).Width = 0.5
    Grid1.Column(33).Width = 3
    dogridfill

    Grid1.AutoRedraw = True
    Grid1.Refresh
End Sub
Private Sub dogridfill()
    Grid1.Rows = 2
    Grid1.Cell(0, 1).Text = "操作员"
    Grid1.Cell(0, 4).Text = "棊本数据"
    Grid1.Cell(0, 9).Text = "产品部件情况"
    Grid1.Cell(0, 17).Text = "工票"
    Grid1.Cell(0, 26).Text = "统计信息"
   
    Grid1.Cell(1, 1).Text = "姓名"
    Grid1.Cell(1, 2).Text = "ID号"
    Grid1.Cell(1, 3).Text = "Pass"
    Grid1.Cell(1, 4).Text = "车间信息"
    Grid1.Cell(1, 5).Text = "班组个人"
    Grid1.Cell(1, 6).Text = "工序"
    Grid1.Cell(1, 7).Text = "零件去向"
    Grid1.Cell(1, 8).Text = "订货单位"
    
    Grid1.Cell(1, 9).Text = "产品部件"
    Grid1.Cell(1, 10).Text = "产品零件"
    Grid1.Cell(1, 11).Text = "产品复制"
    Grid1.Cell(1, 12).Text = "部件进度表"
    Grid1.Cell(1, 13).Text = "部件完成台帐"
    Grid1.Cell(1, 14).Text = "进度表导出"
    Grid1.Cell(1, 15).Text = "路线表打印"
    Grid1.Cell(1, 16).Text = "零星产品部件"
    
    Grid1.Cell(1, 17).Text = "定额工票"
    Grid1.Cell(1, 18).Text = "增拨工票"
    Grid1.Cell(1, 19).Text = "外协工票"
    Grid1.Cell(1, 20).Text = "零星工票"
    Grid1.Cell(1, 21).Text = "工票反冲"
    Grid1.Cell(1, 22).Text = "工票零星反冲"
    Grid1.Cell(1, 23).Text = "工票流水帐"
    Grid1.Cell(1, 24).Text = "部件工时明细"
    Grid1.Cell(1, 25).Text = "零星工票流水帐"
    
    Grid1.Cell(1, 26).Text = "班组/个人统计"
    Grid1.Cell(1, 27).Text = "车间工序统计"
    Grid1.Cell(1, 28).Text = "产品车间汇总"
    Grid1.Cell(1, 29).Text = "产品工时完成情况"
    Grid1.Cell(1, 30).Text = "车间生产计划表"
    Grid1.Cell(1, 31).Text = "车间零件进度表"
    Grid1.Cell(1, 32).Text = "零星工时统计表"
    Grid1.Cell(1, 33).Text = "权设设定"
     
    For i = 4 To 32
        Grid1.Cell(1, i).WrapText = True   ' 单元格自动换行
    Next i
     
    i = 0
    szSql = "select * from awork order by userid"
    Set rsTempA = oDb.Execute(szSql)
    Do While Not rsTempA.EOF
        griditem = rsTempA!UserName & Chr(9) & rsTempA!userid & Chr(9) & rsTempA!pass & Chr(9) & rsTempA!jpcj & Chr(9) & rsTempA!jpbz & Chr(9) & rsTempA!jpgx & Chr(9) & rsTempA!jplj & Chr(9) & rsTempA!jpdd
        griditem = griditem & Chr(9) & rsTempA!cpbj & Chr(9) & rsTempA!cplj & Chr(9) & rsTempA!cpfz & Chr(9) & rsTempA!cpjd & Chr(9) & rsTempA!cpwc & Chr(9) & rsTempA!cptc & Chr(9) & rsTempA!cpxl & Chr(9) & rsTempA!cplx
        griditem = griditem & Chr(9) & rsTempA!gpdn & Chr(9) & rsTempA!gpzp & Chr(9) & rsTempA!gpwx & Chr(9) & rsTempA!gplx & Chr(9) & rsTempA!gpfc & Chr(9) & rsTempA!gplxfc & Chr(9) & rsTempA!gpls & Chr(9) & rsTempA!gpmc & Chr(9) & rsTempA!gplxls
        griditem = griditem & Chr(9) & rsTempA!tjbz & Chr(9) & rsTempA!tjcj & Chr(9) & rsTempA!tjcp & Chr(9) & rsTempA!tjgs & Chr(9) & rsTempA!tjjh & Chr(9) & rsTempA!tjjd & Chr(9) & rsTempA!tjlx
        griditem = griditem & Chr(9) & rsTempA!ddwork
        Grid1.AddItem griditem
        i = i + 1
        Grid1.Cell(Grid1.Rows - 1, 0).Text = i
        rsTempA.MoveNext
    Loop
End Sub
Private Sub cmddelete_Click()
    i = Grid1.ActiveCell.Row
    griditem = Grid1.Cell(i, 2).Text
    answer = MsgBox("删除此ID号？" & griditem, vbYesNo, "删除")
    If answer = 6 Then
        If griditem = "admini" Then
            MsgBox "管理员ID，你不能删除！", vbOKOnly, "删除"
            Exit Sub
        Else
            szSql = "delete from pgwork where userid='" & griditem & "'"
            oDb.Execute szSql
            Grid1.Selection.DeleteByRow
            dogridfill
        End If
    End If
End Sub
Private Sub cmdexit_Click()
    Unload Me
End Sub
Private Sub cmdadd_Click()
    Grid1.Rows = Grid1.Rows + 1
End Sub
Private Sub cmdsave_Click()
    For i = 2 To Grid1.Rows - 1
        griditem = Grid1.Cell(i, 2).Text
        Set rsTempA = oDb.Execute("select userid from awork where userid='" & griditem & "'")
        If rsTempA.RecordCount > 0 Then  '存在，先删，再存
            szSql = "delete from awork where userid='" & griditem & "'"
            oDb.Execute szSql
        End If
        
        If Grid1.Cell(i, 2).Text <> "" Then
            griditem = "'" & Grid1.Cell(i, 1).Text & "','" & Grid1.Cell(i, 2).Text & "','" & Grid1.Cell(i, 3).Text & "'"
            For j = 4 To Grid1.Cols - 1
                If Grid1.Cell(i, j).IntegerValue = 1 Then
                    griditem = griditem & ",1"
                    Else
                    griditem = griditem & ",0"
                End If
            Next j
            szSql = "insert awork (username,userid,pass,jpcj,jpbz,jpgx,jplj,jpdd,cpbj,cplj,cpfz,cpjd,cpwc,cptc,cpxl,cplx,gpdn,gpzp,gpwx,gplx,gpfc,gplxfc,gpls,gpmc,gplxls,tjbz,tjcj,tjcp,tjgs,tjjh,tjjd,tjlx,ddwork) values (" & griditem & ")"
            oDb.Execute szSql
        End If
    Next i
    
    MsgBox "成功保存", vbOKOnly, "保存"
End Sub