frmphjtin.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmPHjtin 
   Caption         =   "机台数据管理"
   ClientHeight    =   6330
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10140
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6330
   ScaleWidth      =   10140
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Height          =   705
      Left            =   0
      TabIndex        =   5
      Top             =   0
      Width           =   10065
      Begin VB.PictureBox Picture1 
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   120
         Picture         =   "frmPHjtin.frx":0000
         ScaleHeight     =   495
         ScaleWidth      =   105
         TabIndex        =   14
         Top             =   150
         Width           =   105
      End
      Begin VB.PictureBox Picture2 
         BorderStyle     =   0  'None
         Height          =   525
         Left            =   360
         Picture         =   "frmPHjtin.frx":0222
         ScaleHeight     =   525
         ScaleWidth      =   525
         TabIndex        =   13
         Top             =   120
         Width           =   525
      End
      Begin VB.PictureBox Picture3 
         BorderStyle     =   0  'None
         Height          =   525
         Left            =   1830
         Picture         =   "frmPHjtin.frx":05C4
         ScaleHeight     =   525
         ScaleWidth      =   525
         TabIndex        =   12
         Top             =   120
         Width           =   525
      End
      Begin VB.PictureBox Picture4 
         BorderStyle     =   0  'None
         Height          =   525
         Left            =   2550
         Picture         =   "frmPHjtin.frx":18C6
         ScaleHeight     =   525
         ScaleWidth      =   525
         TabIndex        =   11
         Top             =   120
         Width           =   525
      End
      Begin VB.PictureBox Picture5 
         BorderStyle     =   0  'None
         Height          =   525
         Left            =   3300
         Picture         =   "frmPHjtin.frx":1C68
         ScaleHeight     =   525
         ScaleWidth      =   525
         TabIndex        =   10
         Top             =   120
         Width           =   525
      End
      Begin VB.PictureBox Picture6 
         BorderStyle     =   0  'None
         Height          =   525
         Left            =   4830
         Picture         =   "frmPHjtin.frx":200A
         ScaleHeight     =   525
         ScaleWidth      =   525
         TabIndex        =   9
         Top             =   120
         Width           =   525
      End
      Begin VB.PictureBox Picture7 
         BorderStyle     =   0  'None
         Height          =   525
         Left            =   7770
         Picture         =   "frmPHjtin.frx":330C
         ScaleHeight     =   525
         ScaleWidth      =   525
         TabIndex        =   8
         Top             =   120
         Width           =   525
      End
      Begin VB.PictureBox Picture8 
         BorderStyle     =   0  'None
         Height          =   525
         Left            =   1080
         Picture         =   "frmPHjtin.frx":460E
         ScaleHeight     =   525
         ScaleWidth      =   525
         TabIndex        =   7
         Top             =   120
         Width           =   525
      End
      Begin VB.PictureBox Picture9 
         BorderStyle     =   0  'None
         Height          =   525
         Left            =   4080
         Picture         =   "frmPHjtin.frx":5910
         ScaleHeight     =   525
         ScaleWidth      =   525
         TabIndex        =   6
         Top             =   120
         Width           =   525
      End
   End
   Begin VB.Frame Frame2 
      Height          =   5475
      Left            =   0
      TabIndex        =   0
      Top             =   750
      Width           =   10065
      Begin VB.ComboBox Combo1 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   4260
         TabIndex        =   1
         Top             =   3960
         Visible         =   0   'False
         Width           =   1185
      End
      Begin MSMask.MaskEdBox text2 
         Height          =   285
         Left            =   2430
         TabIndex        =   2
         Top             =   4530
         Visible         =   0   'False
         Width           =   1005
         _ExtentX        =   1773
         _ExtentY        =   503
         _Version        =   393216
         Appearance      =   0
         PromptChar      =   "_"
      End
      Begin MSFlexGridLib.MSFlexGrid MSFlex1 
         Height          =   4695
         Left            =   120
         TabIndex        =   3
         Top             =   660
         Width           =   9795
         _ExtentX        =   17277
         _ExtentY        =   8281
         _Version        =   393216
         Cols            =   12
         FixedCols       =   0
         BackColorFixed  =   12632256
         AllowUserResizing=   1
         Appearance      =   0
      End
      Begin MSComCtl2.DTPicker date1 
         Height          =   285
         Left            =   870
         TabIndex        =   15
         Top             =   240
         Width           =   1785
         _ExtentX        =   3149
         _ExtentY        =   503
         _Version        =   393216
         Format          =   24510464
         CurrentDate     =   36529
      End
      Begin VB.Label Label1 
         Caption         =   "日  期:"
         Height          =   255
         Left            =   180
         TabIndex        =   4
         Top             =   300
         Width           =   705
      End
   End
End
Attribute VB_Name = "frmPHjtin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim env As rdoEnvironment
Dim cn As rdoConnection
Dim result As rdoResultset
Dim result1 As rdoResultset
Dim d_conn, sql As String
Dim hrowcount, hrowcount1 As Integer
Dim jframe As New dframe
Private Sub Form_Load()
     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)
     Move Screen.width / 2 - frmPHjtin.width / 2, Screen.height / 2 - frmPHjtin.height / 2
     '''''''列出标题'''''
     MSFlex1.FormatString = "^文件序列|^文件号|^画面规格(宽*高)|^面积(平方米)|^  标  志  |^布料号 |^ 幅宽 |^原长度 |^实际用布长度|^实际面积|^剩余长度|^设计员|^操作员"
     MSFlex1.ROWHEIGHT(1) = 300
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture2.Cls
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    Picture8.Cls
    Picture9.Cls
End Sub

Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture2.Cls
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    Picture8.Cls
    Picture9.Cls
End Sub

Private Sub Picture2_Click()
    jframe.danum = 2
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture2
   frmPHjtin1.Show 1
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    Picture8.Cls
    Picture9.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture2
End Sub

Private Sub Picture3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture2.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    Picture8.Cls
    Picture9.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture3
End Sub

Private Sub Picture4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture3.Cls
    Picture2.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    Picture8.Cls
    Picture9.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture4
End Sub

Private Sub Picture5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture3.Cls
    Picture4.Cls
    Picture2.Cls
    Picture6.Cls
    Picture7.Cls
    Picture8.Cls
    Picture9.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture5
End Sub

Private Sub Picture6_Click()
    Unload Me
End Sub

Private Sub Picture6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture2.Cls
    Picture7.Cls
    Picture8.Cls
    Picture9.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture6
End Sub

Private Sub Picture7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture2.Cls
    Picture8.Cls
    Picture9.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture7
End Sub

Private Sub Picture8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    Picture2.Cls
    Picture9.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture8
End Sub

Private Sub Picture9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture3.Cls
    Picture4.Cls
    Picture5.Cls
    Picture6.Cls
    Picture7.Cls
    Picture8.Cls
    Picture2.Cls
    jframe.danum = 5
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 35
    jframe.rbottom = 35
    jframe.ddrawc Picture9
End Sub