gpinfc.frm

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

      Index           =   0
      Left            =   2520
      TabIndex        =   17
      Top             =   120
      Width           =   5235
   End
End
Attribute VB_Name = "gpinfc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim grid1gpbh As String
Private Sub Form_Load()
    Me.Width = 12000
    Me.Height = 8500
    
    Grid1.Cols = 9
    'Grid1.Rows = 1
    Grid1.AutoRedraw = False
    Grid1.DisplayFocusRect = False
    
    Grid1.FixedRows = 1
    Grid1.FixedCols = 2
    Grid1.Column(0).Width = 1
    Grid1.Column(1).Width = 30
    Grid1.Column(2).Width = 30
    Grid1.Column(3).Width = 90
    Grid1.Column(4).Width = 70
    Grid1.Column(5).Width = 70
    Grid1.Column(6).Width = 70
    Grid1.Column(7).Width = 60
    Grid1.Column(8).Width = 60
   
    dofillgrid
    Grid1.AutoRedraw = True
    Grid1.Refresh
     
    'Grid2.Rows = 1
    Grid2.Cols = 10
    Grid2.Column(0).Width = 1
    Grid2.Column(1).Width = 1
    Grid2.Column(2).Width = 80
    Grid2.Column(3).Width = 80
    Grid2.Column(4).Width = 30
    Grid2.Column(5).Width = 40
    Grid2.Column(6).Width = 60
    dofillgrid2
    
    Mskdate1.Text = NOWDate
    MonthView1.Visible = False
    MonthView1.Value = NOWDate
    mskdate2.Text = NOWDate
    MonthView2.Visible = False
    MonthView2.Value = NOWDate
    
    optdn.Value = True
End Sub
Private Sub cmdfind_Click()
    dofillgrid
    
    If optdn.Value = True Then griditem = "select * from gpdnh where "        '定额工票
    If optzp.Value = True Then griditem = "select * from gpzph where "        '增拨工票
    If optwx.Value = True Then griditem = "select * from gpwxh where "        '外协工票
     
    If Mskdate1.Text = "" Then
            griditem = griditem & "gprq >='" & (NOWDate - 30) & "'"
        Else
            griditem = griditem & "gprq >='" & (Mskdate1.Text) & "'"
    End If
            
    If mskdate2.Text = "" Then
            griditem = griditem & "and gprq <='" & (NOWDate) & "'"
        Else
            griditem = griditem & "and gprq <='" & (mskdate2.Text) & "'"
    End If
    If txtgpbh1.Text <> "" Then griditem = griditem & " and gphm >='" & txtgpbh1.Text & "'"
    If txtgpbh2.Text <> "" Then griditem = griditem & " and gphm <='" & txtgpbh2.Text & "'"
        
    i = 1
    Set rsTempA = oDb.Execute(griditem)
    Do Until rsTempA.EOF
        griditem = i & Chr(9) & "" & Chr(9) & rsTempA!gpbh & Chr(9) & rsTempA!gphm & Chr(9) & rsTempA!gprq
        Set rsTempB = oDb.Execute("select * from abj where bjbh='" & rsTempA!gpbjbh & "'")
        griditem = griditem & Chr(9) & rsTempB!bjmc & Chr(9) & rsTempB!bjth & Chr(9) & rsTempA!gpbzmc
        Grid1.AddItem griditem
        
        rsTempA.MoveNext
        i = i + 1
    Loop
End Sub
Private Sub dofillgrid()
    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 = "部件名称"
    Grid1.Cell(0, 7).Text = "部件型号"
    Grid1.Cell(0, 8).Text = "班组/个人"
    Grid1.Column(2).CellType = cellCheckBox
End Sub
Private Sub dofillgrid2()
    Grid2.Rows = 1
    Grid2.Cell(0, 1).Text = "序号"
    Grid2.Cell(0, 2).Text = "零件名称"
    Grid2.Cell(0, 3).Text = "零件图号"
    Grid2.Cell(0, 4).Text = "数量"
    Grid2.Cell(0, 5).Text = "工序名称"
    Grid2.Cell(0, 6).Text = "工时"
    Grid2.Cell(0, 7).Text = " 备  注"
    Grid2.Cell(0, 8).Text = " 备  注"
    Grid2.Cell(0, 9).Text = " 备  注"
End Sub
Private Sub cmddate1_Click()
    MonthView1.Visible = True
End Sub
Private Sub Grid1_Click()
    dofillgrid2
    j = Grid1.ActiveCell.Row
    If j >= 1 And j <= Grid1.Rows - 1 Then
        grid1gpbh = Grid1.Cell(j, 3).Text
                
        If optdn.Value = True Then szSql = "select * from gpdnb where gpbh='" & grid1gpbh & "'"
        If optzp.Value = True Then szSql = "select * from gpzpb where gpbh='" & grid1gpbh & "'"
        If optwx.Value = True Then szSql = "select * from gpwxb where gpbh='" & grid1gpbh & "'"
        
        Set rsTempC = oDb.Execute(szSql)
        Do Until rsTempC.EOF
            Grid2.AddItem "" & Chr(9) & rsTempC!gpljmc & Chr(9) & rsTempC!gpljth & Chr(9) & rsTempC!gpsl & Chr(9) & rsTempC!gpgxmc & Chr(9) & rsTempC!gpgs & Chr(9) & rsTempC!gpbz & Chr(9) & rsTempC!gpbz1 & Chr(9) & rsTempC!gpbz2
            rsTempC.MoveNext
        Loop
    End If
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    MonthView1.Visible = False
    Mskdate1.Text = MonthView1.Value
End Sub

Private Sub cmddate2_Click()
    MonthView2.Visible = True
End Sub
  Private Sub MonthView2_DateClick(ByVal DateClicked As Date)
    MonthView2.Visible = False
    mskdate2.Text = MonthView2.Value
End Sub
Private Sub cmdexit_Click()
    Unload Me
End Sub
Private Sub cmdfc_Click()
    Dim codegp As Integer
    Dim codegpbh As String
    
    For i = 1 To Grid1.Rows - 1
        If Grid1.Cell(i, 2).IntegerValue = 1 Then '打勾，变量＝1
            grid1gpbh = Grid1.Cell(i, 3).Text
            If optdn.Value = True Then  '定额
                    '原内容
                Set rsTempA = oDb.Execute("select * from gpdnh where gpbh='" & grid1gpbh & "'")
                    '新工票编号
                Set rsTempC = oDb.Execute("select max(code) as maxcode from gpdnh where gprq='" & rsTempA!gprq & "'")
                codegp = rsTempC!maxcode + 1
                codegpbh = Left(grid1gpbh, 8) & Format(codegp, "0000")
                
                szSql = "insert gpdnh (gpbh,code,gphm,gprq,gpcpbh,gpbjbh,gpcjbh,gpcjmc,gpbzbh,gpbzmc,gpsh,gpkp) values ( '" & codegpbh & "'," & codegp & ",'" & rsTempA!gphm & "','" _
                    & rsTempA!gprq & "','" & rsTempA!gpcpbh & "','" & rsTempA!gpbjbh & " ','" & rsTempA!gpcjbh & "','" & rsTempA!gpcjmc & "','" & rsTempA!gpbzbh & "','" & rsTempA!gpbzmc & "','" & rsTempA!gpsh & "','" & rsTempA!gpkp & "'" & ")"
                oDb.Execute szSql
            
                '表体内容
                Set rsTempB = oDb.Execute("select * from gpdnb where gpbh='" & grid1gpbh & "'")
                Do Until rsTempB.EOF
                    szSql = "insert gpdnb(gpbh,gpcpbh,gpbjbh,gpljbh,gpljmc,gpljth,gpsl,gpgxbh,gpgxmc,gpgs,gpbz,gpbz1,gpbz2) values ( '" & codegpbh & "','" & rsTempB!gpcpbh & "','" _
                        & rsTempB!gpbjbh & "','" & rsTempB!gpljbh & " ','" & rsTempB!gpljmc & "','" & rsTempB!gpljth & "'," & rsTempB!gpsl & ",'" & rsTempB!gpgxbh & "','" & rsTempB!gpgxmc & "'," & (-rsTempB!gpgs) & ",'" & rsTempB!gpbz & "','" & rsTempB!gpbz1 & "','" & rsTempB!gpbz2 & "'" & ")"
                    oDb.Execute szSql
                    rsTempB.MoveNext
                Loop
            End If
            
            If optzp.Value = True Then  '增拨
                   '原内容
                Set rsTempA = oDb.Execute("select * from gpzph where gpbh='" & grid1gpbh & "'")
                    '新工票编号
                Set rsTempC = oDb.Execute("select max(code) as maxcode from gpzph where gprq='" & rsTempA!gprq & "'")
                codegp = rsTempC!maxcode + 1
                codegpbh = Left(grid1gpbh, 8) & Format(codegp, "0000")
                
                szSql = "insert gpzph (gpbh,code,gphm,gprq,gpgslb,gpcpbh,gpbjbh,gpcjbh,gpcjmc,gpbzbh,gpbzmc,gpsh,gpkp) values ( '" & codegpbh & "'," & codegp & ",'" & rsTempA!gphm & "','" _
                    & rsTempA!gprq & "','" & rsTempA!gpgslb & "','" & rsTempA!gpcpbh & "','" & rsTempA!gpbjbh & " ','" & rsTempA!gpcjbh & "','" & rsTempA!gpcjmc & "','" & rsTempA!gpbzbh & "','" & rsTempA!gpbzmc & "','" & rsTempA!gpsh & "','" & rsTempA!gpkp & "'" & ")"
                oDb.Execute szSql
                                     
                '表体内容
                Set rsTempB = oDb.Execute("select * from gpzpb where gpbh='" & grid1gpbh & "'")
                Do Until rsTempB.EOF
                    szSql = "insert gpzpb(gpbh,gpcpbh,gpbjbh,gpljbh,gpljmc,gpljth,gpsl,gpgxbh,gpgxmc,gpgs,gpbz,gpbz1,gpbz2) values ( '" & codegpbh & "','" & rsTempB!gpcpbh & "','" _
                        & rsTempB!gpbjbh & "','" & rsTempB!gpljbh & " ','" & rsTempB!gpljmc & "','" & rsTempB!gpljth & "'," & rsTempB!gpsl & ",'" & rsTempB!gpgxbh & "','" & rsTempB!gpgxmc & "'," & (-rsTempB!gpgs) & ",'" & rsTempB!gpbz & "','" & rsTempB!gpbz1 & "','" & rsTempB!gpbz2 & "'" & ")"
                    oDb.Execute szSql
                    rsTempB.MoveNext
                Loop
            End If
            
            If optwx.Value = True Then  '外协
                   '原内容
                Set rsTempA = oDb.Execute("select * from gpwxh where gpbh='" & grid1gpbh & "'")
                    '新工票编号
                Set rsTempC = oDb.Execute("select max(code) as maxcode from gpwxh where gprq='" & rsTempA!gprq & "'")
                codegp = rsTempC!maxcode + 1
                codegpbh = Left(grid1gpbh, 8) & Format(codegp, "0000")
                
                szSql = "insert gpwxh (gpbh,code,gphm,gprq,gpcpbh,gpbjbh,gpcjbh,gpcjmc,gpbzbh,gpbzmc,gpsh,gpkp) values ( '" & codegpbh & "'," & codegp & ",'" & rsTempA!gphm & "','" _
                    & rsTempA!gprq & "','" & rsTempA!gpcpbh & "','" & rsTempA!gpbjbh & " ','" & rsTempA!gpcjbh & "','" & rsTempA!gpcjmc & "','" & rsTempA!gpbzbh & "','" & rsTempA!gpbzmc & "','" & rsTempA!gpsh & "','" & rsTempA!gpkp & "'" & ")"
                oDb.Execute szSql
                '表体内容
                Set rsTempB = oDb.Execute("select * from gpwxb where gpbh='" & grid1gpbh & "'")
                Do Until rsTempB.EOF
                    szSql = "insert gpwxb(gpbh,gpcpbh,gpbjbh,gpljbh,gpljmc,gpljth,gpsl,gpgxbh,gpgxmc,gpgs,gpbz,gpbz1,gpbz2) values ( '" & codegpbh & "','" & rsTempB!gpcpbh & "','" _
                        & rsTempB!gpbjbh & "','" & rsTempB!gpljbh & " ','" & rsTempB!gpljmc & "','" & rsTempB!gpljth & "'," & rsTempB!gpsl & ",'" & rsTempB!gpgxbh & "','" & rsTempB!gpgxmc & "'," & (-rsTempB!gpgs) & ",'" & rsTempB!gpbz & "','" & rsTempB!gpbz1 & "','" & rsTempB!gpbz2 & "'" & ")"
                    oDb.Execute szSql
                    rsTempB.MoveNext
                Loop
            End If
        End If
    Next i
    
    MsgBox "工票反冲已保存！", vbOKOnly, "数据保存"
End Sub

Private Sub optdn_Click()
    dofillgrid
End Sub
Private Sub optzp_Click()
    dofillgrid
End Sub
Private Sub optwx_Click()
    dofillgrid
End Sub