frmphclothmxcx.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmPHClothMXCX 
   BorderStyle     =   0  'None
   Caption         =   "布料的明细查询"
   ClientHeight    =   6780
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   10170
   LinkTopic       =   "Form1"
   Picture         =   "frmPHClothMXCX.frx":0000
   ScaleHeight     =   6780
   ScaleWidth      =   10170
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      Height          =   270
      Left            =   2280
      TabIndex        =   0
      Top             =   960
      Width           =   1365
   End
   Begin VB.PictureBox Picture6 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   465
      Left            =   5850
      Picture         =   "frmPHClothMXCX.frx":E51E2
      ScaleHeight     =   465
      ScaleWidth      =   1020
      TabIndex        =   4
      Top             =   870
      Width           =   1020
   End
   Begin VB.PictureBox Picture5 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   450
      Left            =   4500
      Picture         =   "frmPHClothMXCX.frx":E6AD8
      ScaleHeight     =   450
      ScaleWidth      =   1020
      TabIndex        =   3
      Top             =   870
      Width           =   1020
   End
   Begin VB.PictureBox Picture7 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   450
      Left            =   7140
      Picture         =   "frmPHClothMXCX.frx":E8302
      ScaleHeight     =   450
      ScaleWidth      =   1020
      TabIndex        =   2
      Top             =   870
      Width           =   1020
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlex1 
      Height          =   4605
      Left            =   570
      TabIndex        =   6
      Top             =   1590
      Width           =   9225
      _ExtentX        =   16272
      _ExtentY        =   8123
      _Version        =   393216
      FixedCols       =   0
      AllowUserResizing=   1
      Appearance      =   0
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "输入布料号"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   4
      Left            =   1170
      TabIndex        =   5
      Top             =   990
      Width           =   1185
   End
   Begin VB.Image Image2 
      Height          =   375
      Left            =   9240
      Picture         =   "frmPHClothMXCX.frx":E9B2C
      Top             =   210
      Width           =   390
   End
   Begin VB.Image Image1 
      Height          =   330
      Left            =   9660
      Picture         =   "frmPHClothMXCX.frx":EA33E
      Top             =   210
      Width           =   330
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "布料的详细使用情况"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   285
      Left            =   870
      TabIndex        =   1
      Top             =   300
      Width           =   1965
   End
End
Attribute VB_Name = "frmPHClothMXCX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim n As Integer
Dim jframe As New dframe
Dim env As rdoEnvironment
Dim cn As rdoConnection
Dim result As rdoResultset
Dim sql As String
Dim d_conn As String
Dim i As Integer
Dim HJ(10) As Single
Private Sub Form_Load()
      rgn1 = 0
   n = 0
   Dim Ma As Dat
   Show
   Open App.Path & "\base.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''''
     ''''''''''连接远程数据库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(255, 255, 255)
    MSFlex1.BackColorFixed = RGB(238, 236, 218)
    ''
    MSFlex1.FormatString = "^      日  期      |^ 喷绘序列 |^ 总面积 |^  幅宽  |^ 原有长度 |^实际用布长度|^ 剩余长度 |^  操作员 "
errmsg:
      'Err.Clear
'    Dim er As rdoError
'    For Each er In rdoErrors
'        MsgBox "号码:" & er.Number & ":" & er.Source & "..." & er.Description
'    Next er
'    If Err.Number <> 0 Then
'       MsgBox "错误号:" & Err.Number & "   " & Err.Source & "和" & Err.Description, vbExclamation
'    End If
    Exit Sub
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
       frmPHClothMXCX.Move frmPHClothMXCX.Left - mX + X, frmPHClothMXCX.Top - mY + Y
    End If
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
End Sub

Private Sub Form_Paint()
        '''''商品编号'''
    jframe.danum = 3
    jframe.rtop = 50
    jframe.rleft = 35
    jframe.rright = 659
    jframe.rbottom = 97
    jframe.ddraw frmPHClothMXCX
    ''''''''
    jframe.danum = 3
    jframe.rtop = 102
    jframe.rleft = 35