frmphjitaiin.frm

这是用Visual Basic6开发的大型喷绘业务管理系统,数据库采用Access数据库

   n = 0
   Dim Ma As Dat
   Show
   Open App.Path & "\JiTaiIn.dat" For Random As #1 Len = Len(Ma)
   Do While Not EOF(1)
      n = n + 1
      Get #1, n, Ma
      If rgn1 = 0 Then rgn1 = CreateRectRgn(Ma.sx, Ma.sy, Ma.ex, Ma.ey)
      If rgn1 <> 0 Then
            rgn2 = CreateRectRgn(Ma.sx, Ma.sy, Ma.ex, Ma.ey)
            CombineRgn rgn1, rgn1, rgn2, 2
                  '释放系统资源
            DeleteObject rgn2
      End If
  Loop
'关闭文件
    Close #1
    SetWindowRgn hwnd, rgn1, True
    DeleteObject rgn1
         ''''''''''连接远程数据库SQL SERVER''''
     On Error GoTo errmsg
'    Set env = rdoEnvironments(0)
'    env.CursorDriver = rdUseOdbc
'    d_conn = "uid=sa;pwd=;driver={SQL SERVER};SERVER=ntserver;database=phdatabase;"
'    Set cn = env.OpenConnection(dsname:="odbc_api_demo", Prompt:="rdodriverprompt", ReadOnly:=False, Connect:=d_conn)
    MSFlex1.BackColorBkg = RGB(238, 236, 218)
    MSFlex1.BackColorFixed = RGB(238, 236, 218)
    MSFlex1.FormatString = "^ 文件号 |^ 画面规格(宽*高) |^  设计员  |^ 操作员  "
    Text1.Text = GoodsTree
    Mask1.Text = Format(Now, "yyyymmdd")
    ''''''
     sql = "select * from  clothtable" '  order by  客户编号"
     Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
     If result.RowCount <> 0 Then
        Do While Not result.EOF()
           Combo1.AddItem Trim(result("布料编号"))
           result.MoveNext
        Loop
     End If
     '''''
     sql = "select * from  worktable  where  类别='操作员' order by  类别"
     Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
     If result.RowCount <> 0 Then
        Do While Not result.EOF()
           Combo2.AddItem Trim(result("姓名"))
           result.MoveNext
        Loop
     End If
     If JTflagh = 2 Then
        Mask1.Text = JTPRtableText(0)
        Text1.Text = JTPRtableText(1)
        Text2.Text = JTPRtableText(2)
        Combo1.Text = JTPRtableText(3)
        Text3.Text = JTPRtableText(4)
        Text4.Text = JTPRtableText(5)
        Text5.Text = JTPRtableText(6)
        Text6.Text = JTPRtableText(7)
        Text7.Text = JTPRtableText(8)
        Combo2.Text = JTPRtableText(9)
        MSFlex1.Rows = JTSErows + 1
        For i = 1 To JTSErows
            MSFlex1.TextArray(i * MSFlex1.Cols) = JTSEtableText1(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 1) = JTSEtableText2(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 2) = JTSEtableText3(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 3) = JTSEtableText4(i)
        Next i
     End If
     If JTflagh = 3 Then
        Mask1.Text = JTPRtableText(0)
        Text1.Text = JTPRtableText(1)
        Text2.Text = JTPRtableText(2)
        Combo1.Text = JTPRtableText(3)
        Text3.Text = JTPRtableText(4)
        Text4.Text = JTPRtableText(5)
        Text5.Text = JTPRtableText(6)
        Text6.Text = JTPRtableText(7)
        Text7.Text = JTPRtableText(8)
        Combo2.Text = JTPRtableText(9)
        MSFlex1.Rows = JTSErows + 1
        For i = 1 To JTSErows
            MSFlex1.TextArray(i * MSFlex1.Cols) = JTSEtableText1(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 1) = JTSEtableText2(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 2) = JTSEtableText3(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 3) = JTSEtableText4(i)
        Next i
     End If
     If JTflagh = 4 Then
        Mask1.Text = JTPRtableText(0)
        Text1.Text = JTPRtableText(1)
        Text2.Text = JTPRtableText(2)
        Combo1.Text = JTPRtableText(3)
        Text3.Text = JTPRtableText(4)
        Text4.Text = JTPRtableText(5)
        Text5.Text = JTPRtableText(6)
        Text6.Text = JTPRtableText(7)
        Text7.Text = JTPRtableText(8)
        Combo2.Text = JTPRtableText(9)
        MSFlex1.Rows = JTSErows + 1
        For i = 1 To JTSErows
            MSFlex1.TextArray(i * MSFlex1.Cols) = JTSEtableText1(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 1) = JTSEtableText2(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 2) = JTSEtableText3(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 3) = JTSEtableText4(i)
        Next i
     End If
     If JTflagh = 5 Then
        Mask1.Text = JTPRtableText(0)
        Text1.Text = JTPRtableText(1)
        Text2.Text = JTPRtableText(2)
        Combo1.Text = JTPRtableText(3)
        Text3.Text = JTPRtableText(4)
        Text4.Text = JTPRtableText(5)
        Text5.Text = JTPRtableText(6)
        Text6.Text = JTPRtableText(7)
        Text7.Text = JTPRtableText(8)
        Combo2.Text = JTPRtableText(9)
        MSFlex1.Rows = JTSErows + 1
        For i = 1 To JTSErows
            MSFlex1.TextArray(i * MSFlex1.Cols) = JTSEtableText1(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 1) = JTSEtableText2(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 2) = JTSEtableText3(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 3) = JTSEtableText4(i)
        Next i
     End If
errmsg:
     If Err.Number <> 0 Then
        If JTflagh = 3 Then
        Mask1.Text = JTPRtableText(0)
        Text1.Text = JTPRtableText(1)
        Text2.Text = JTPRtableText(2)
        Combo1.Text = JTPRtableText(3)
        Text3.Text = JTPRtableText(4)
        Text4.Text = JTPRtableText(5)
        Text5.Text = JTPRtableText(6)
        Text6.Text = JTPRtableText(7)
        Text7.Text = JTPRtableText(8)
        Combo2.Text = JTPRtableText(9)
        MSFlex1.Rows = JTSErows + 1
        For i = 1 To JTSErows
            MSFlex1.TextArray(i * MSFlex1.Cols) = JTSEtableText1(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 1) = JTSEtableText2(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 2) = JTSEtableText3(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 3) = JTSEtableText4(i)
        Next i
     End If
     If JTflagh = 4 Then
        Mask1.Text = JTPRtableText(0)
        Text1.Text = JTPRtableText(1)
        Text2.Text = JTPRtableText(2)
        Combo1.Text = JTPRtableText(3)
        Text3.Text = JTPRtableText(4)
        Text4.Text = JTPRtableText(5)
        Text5.Text = JTPRtableText(6)
        Text6.Text = JTPRtableText(7)
        Text7.Text = JTPRtableText(8)
        Combo2.Text = JTPRtableText(9)
        MSFlex1.Rows = JTSErows + 1
        For i = 1 To JTSErows
            MSFlex1.TextArray(i * MSFlex1.Cols) = JTSEtableText1(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 1) = JTSEtableText2(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 2) = JTSEtableText3(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 3) = JTSEtableText4(i)
        Next i
     End If
     If JTflagh = 5 Then
        Mask1.Text = JTPRtableText(0)
        Text1.Text = JTPRtableText(1)
        Text2.Text = JTPRtableText(2)
        Combo1.Text = JTPRtableText(3)
        Text3.Text = JTPRtableText(4)
        Text4.Text = JTPRtableText(5)
        Text5.Text = JTPRtableText(6)
        Text6.Text = JTPRtableText(7)
        Text7.Text = JTPRtableText(8)
        Combo2.Text = JTPRtableText(9)
        MSFlex1.Rows = JTSErows + 1
        For i = 1 To JTSErows
            MSFlex1.TextArray(i * MSFlex1.Cols) = JTSEtableText1(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 1) = JTSEtableText2(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 2) = JTSEtableText3(i)
            MSFlex1.TextArray(i * MSFlex1.Cols + 3) = JTSEtableText4(i)
        Next i
     End If
     End If
     
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
       mX = X
       mY = Y
    End If
    
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
       frmPHJiTaiIn.Move frmPHJiTaiIn.Left - mX + X, frmPHJiTaiIn.Top - mY + Y
    End If
    Picture1.Cls
    Picture2.Cls
End Sub

Private Sub Form_Paint()
        '''''商品编号'''
    jframe.danum = 3
    jframe.rtop = 50
    jframe.rleft = 35
    jframe.rright = 409
    jframe.rbottom = 440
    jframe.ddraw frmPHJiTaiIn
End Sub

Private Sub Image1_Click()
    Unload Me
End Sub

Private Sub Image2_Click()
    frmPHJiTaiIn.WindowState = 1
End Sub

Private Sub Mask1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       KeyAscii = 0
       SendKeys "{tab}"
    End If
End Sub

Private Sub Mask1_LostFocus()
    sql = "select  *  from  PHserial  where  级别='" & Trim(Text1.Text) & "'"
     Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
     If result.RowCount <> 0 Then
        result.MoveLast
        MSFlex1.Rows = result.RowCount + 1
        result.MoveFirst
     End If
     If result.RowCount <> 0 Then
        i = 1
        Do While Not result.EOF()
           MSFlex1.TextArray(i * MSFlex1.Cols) = Trim(result("序列号"))
           result.MoveNext
           i = i + 1
        Loop
     End If
End Sub

Private Sub Maskl1_Change()
      MSFlex1.Text = Maskl1.Text
End Sub

Private Sub Maskl1_LostFocus()
      Maskl1.Visible = False
End Sub

Private Sub MSFlex1_Click()
         If MSFlex1.Col > 0 Then
            Maskl1.Visible = True
            Maskl1.Top = MSFlex1.Top + MSFlex1.CellTop - 10
            Maskl1.Left = MSFlex1.Left + MSFlex1.CellLeft  'MSFlex1.ColWidth(1) ' + frmTSjhd.MSFlex1.ColWidth(2) + frmTSjhd.MSFlex1.ColWidth(3)
            Maskl1.width = MSFlex1.CellWidth
            'Maskl1.height = MSFlex1.CellHeight
            Maskl1.SetFocus
            Maskl1.Text = MSFlex1.Text
            Maskl1.SelStart = 0
            Maskl1.SelLength = Len(Maskl1.Text)
         End If
End Sub

Private Sub Picture1_Click()
     Dim datel As String
    datel = Mid(Mask1.Text, 1, 4) & "年" & Trim(Mid(Mask1.Text, 5, 2)) & "月" & Trim(Mid(Mask1.Text, 7, 2)) & "日"
    If JTflagh = 1 Then
        If Text1.Text <> "" Then
           sql = "select  *  from  JTPRtable  where  喷绘序列='" & Trim(Text1.Text) & "'"
           Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
           sql1 = "select  *  from  JTSEtable  where  喷绘序列='" & Trim(Text1.Text) & "'"
           Set result1 = cn.OpenResultset(sql1, rdOpenDynamic, rdConcurRowVer)
           If result.RowCount <> 0 And result1.RowCount <> 0 Then
              MsgBox "此序列号已经存在..."
           Else
              ''''插入主表''''
              sql = "insert into  JTPRtable(日期,喷绘序列,总面积,布料号,幅宽,原有长度,实际用布长度,实际用布面积,剩余长度,操作员) values('" & Trim(datel) & "','" & Trim(Text1.Text) & "'," & Val(Trim(Text2.Text)) & ",'" & Trim(Combo1.Text) & "','" & Trim(Text3.Text) & "'," & Val(Trim(Text4.Text)) & "," & Val(Trim(Text5.Text)) & "," & Val(Trim(Text6.Text)) & "," & Val(Trim(Text7.Text)) & ",'" & Trim(Combo2.Text) & "')"
              Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
              '''''''插入细表'''
              For i = 1 To MSFlex1.Rows - 1
                  sql = "insert into  JTSEtable(日期,喷绘序列,文件号,画面规格,设计员,负责人) values('" & Trim(datel) & "','" & Trim(Text1.Text) & "','" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols)) & "','" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 1)) & "','" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 2)) & "','" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 3)) & "')"
                  Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
              Next i
              MsgBox "存盘结束..."
           End If
        End If
    End If
    If JTflagh = 2 Then
       sql = "update  JTPRtable  set  日期='" & Trim(datel) & "',喷绘序列='" & Trim(Text1.Text) & "',总面积=" & Val(Trim(Text2.Text)) & ",布料号='" & Trim(Combo1.Text) & "',幅宽='" & Trim(Text3.Text) & "',原有长度=" & Val(Trim(Text4.Text)) & ",实际用布长度=" & Val(Trim(Text5.Text)) & ",实际用布面积=" & Val(Trim(Text6.Text)) & ",剩余长度=" & Val(Trim(Text7.Text)) & ",操作员='" & Trim(Combo2.Text) & "'  where  日期='" & Trim(JTPRtableText(0)) & "' and  喷绘序列='" & Trim(JTPRtableText(1)) & "'"
       'MsgBox sql
       Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
       For i = 1 To MSFlex1.Rows - 1
           sql = "update  JTSEtable  set  日期='" & Trim(datel) & "',喷绘序列='" & Trim(Text1.Text) & "',文件号='" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols)) & "',画面规格='" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 1)) & "',设计员='" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 2)) & "',负责人='" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 3)) & "' where  日期='" & Trim(JTPRtableText(0)) & "' and  喷绘序列='" & Trim(JTPRtableText(1)) & "'  and  文件号='" & Trim(JTSEtableText1(i)) & "'  and  画面规格='" & Trim(JTSEtableText2(i)) & "'  and  设计员='" & Trim(JTSEtableText3(i)) & "'  and  负责人='" & Trim(JTSEtableText4(i)) & "'"
           Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
       Next i
       MsgBox "编辑结束..."
    End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture2.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 80
    jframe.rbottom = 23
    jframe.ddrawc Picture1
End Sub

Private Sub Picture2_Click()
    Unload Me
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Picture1.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 80
    jframe.rbottom = 23
    jframe.ddrawc Picture2
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       KeyAscii = 0
       SendKeys "{tab}"
    End If
End Sub

Private Sub Text2_GotFocus()
    Dim Area As Single
    Area = 0
    If MSFlex1.TextArray(1 * MSFlex1.Cols + 1) <> "" Then
        For i = 1 To MSFlex1.Rows - 1
            Area = Area + Val(Mid(MSFlex1.TextArray(i * MSFlex1.Cols + 1), 1, InStr(MSFlex1.TextArray(i * MSFlex1.Cols + 1), "*") - 1)) * Val(Mid(MSFlex1.TextArray(i * MSFlex1.Cols + 1), InStr(MSFlex1.TextArray(i * MSFlex1.Cols + 1), "*") + 1, Len(MSFlex1.TextArray(i * MSFlex1.Cols + 1)) - InStr(MSFlex1.TextArray(i * MSFlex1.Cols + 1), "*")))
        Next i
        Text2.Text = Format(Area, "fixed")
    End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       KeyAscii = 0
       SendKeys "{tab}"
    End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
       KeyAscii = 0
       SendKeys "{tab}"
    End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
       KeyAscii = 0
       SendKeys "{tab}"
    End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
       KeyAscii = 0
       SendKeys "{tab}"
    End If
End Sub

Private Sub Text5_LostFocus()
    If Text3.Text <> "" Then
       Text6.Text = Val(Text3.Text) * Val(Text5.Text)
       Text6.Text = Format(Text6.Text, "fixed")
       Text7.Text = Val(Text4.Text) - Val(Text5.Text)
    End If
    
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
       KeyAscii = 0
       SendKeys "{tab}"
    End If
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
       KeyAscii = 0
       SendKeys "{tab}"
    End If
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
       KeyAscii = 0
       SendKeys "{tab}"
    End If
End Sub