form2.frm

时空erp软件sql2000数据库 两数据库间复制单据

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form2 
   Caption         =   "时空倒单系统Ver1.0"
   ClientHeight    =   8145
   ClientLeft      =   2910
   ClientTop       =   1770
   ClientWidth     =   11355
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   ScaleHeight     =   8145
   ScaleWidth      =   11355
   WindowState     =   2  'Maximized
   Begin MSComDlg.CommonDialog cd1 
      Left            =   9840
      Top             =   960
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.PictureBox Picture1 
      Height          =   7095
      Left            =   0
      ScaleHeight     =   7035
      ScaleWidth      =   9195
      TabIndex        =   3
      Top             =   480
      Width           =   9255
      Begin VB.Image Img1 
         Height          =   9000
         Left            =   0
         Picture         =   "Form2.frx":1CCA
         Stretch         =   -1  'True
         Top             =   0
         Width           =   12000
      End
   End
   Begin ComCtl3.CoolBar CoolBar1 
      Height          =   585
      Left            =   0
      TabIndex        =   1
      Top             =   -120
      Width           =   11385
      _ExtentX        =   20082
      _ExtentY        =   1032
      BandCount       =   2
      _CBWidth        =   11385
      _CBHeight       =   585
      _Version        =   "6.7.9782"
      Child1          =   "Toolbar1"
      MinHeight1      =   525
      Width1          =   10995
      NewRow1         =   0   'False
      MinHeight2      =   360
      Width2          =   1440
      NewRow2         =   0   'False
      Begin MSComctlLib.Toolbar Toolbar1 
         Height          =   525
         Left            =   165
         TabIndex        =   2
         Top             =   30
         Width           =   10800
         _ExtentX        =   19050
         _ExtentY        =   926
         ButtonWidth     =   2090
         ButtonHeight    =   926
         Style           =   1
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   9
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "采购单"
               Key             =   "a1"
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "采购退出单"
               Key             =   "a2"
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "销售单"
               Key             =   "a3"
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "销售退回单"
               Key             =   "a4"
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "采购退补单"
               Key             =   "a5"
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "销售退补"
               Key             =   "a6"
            EndProperty
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "更换桌面壁纸"
               Key             =   "a7"
            EndProperty
            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "单据逆转"
               Key             =   "a8"
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "退出系统"
               Key             =   "a9"
            EndProperty
         EndProperty
      End
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   7770
      Width           =   11355
      _ExtentX        =   20029
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   6482
            Picture         =   "Form2.frx":E2D0C
            Text            =   "时空倒单系统Ver1.0"
            TextSave        =   "时空倒单系统Ver1.0"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   6482
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   6482
            Text            =   "辅仁药业集团医药有限公司信息中心"
            TextSave        =   "辅仁药业集团医药有限公司信息中心"
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Calendar1_Click()

End Sub

Private Sub Form_Load()
Dim lstr As String
Dim tp1 As String
Open "c:\导单系统\shikong.txt" For Input As #1
Do While Not EOF(1)
            Line Input #1, lstr
            tp1 = lstr
Loop
Close #1
Img1.Picture = LoadPicture(tp1)
Img1.Refresh
End Sub

Private Sub Form_Resize()
CoolBar1.Width = Me.Width
Picture1.Width = Me.Width
Picture1.Height = Me.Height * 86.5 / 100
Img1.Width = Picture1.Width
Img1.Height = Picture1.Height
End Sub

Private Sub Image1_Click()

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "a1"
Form3.Show
Case "a2"
Form4.Show
Case "a3"
Form6.Show
Case "a4"
Form7.Show
Case "a5"
Form5.Show
Case "a6"
Form8.Show
Case "a7"
Dim a As String
cd1.ShowOpen
a = cd1.FileName
Img1.Picture = LoadPicture(a)
Img1.Refresh
Set fso = CreateObject("scripting.filesystemobject")
Set fle = fso.createtextfile("c:\导单系统\shikong.txt", True)
fle.writeline a
MsgBox "更换完毕!", "64", "袁博提示"
Case "a8"
Form9.Show
Case "a9"
Unload Me
End Select
End Sub