zhidanren.frm

读excel文件生产文本文件导入用友生产凭证

VERSION 5.00
Begin VB.Form zhidanren 
   BackColor       =   &H00D7F9EA&
   Caption         =   "修改制单人"
   ClientHeight    =   2400
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5625
   LinkTopic       =   "Form1"
   ScaleHeight     =   2400
   ScaleWidth      =   5625
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   495
      Left            =   3360
      TabIndex        =   3
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   495
      Left            =   720
      TabIndex        =   2
      Top             =   1680
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   2400
      TabIndex        =   1
      Top             =   480
      Width           =   1935
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "制单人:"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   720
      TabIndex        =   0
      Top             =   480
      Width           =   1050
   End
End
Attribute VB_Name = "zhidanren"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Sub Command1_Click()
Dim zhidanren As String
If Text1.Text <> "" Then
zhidanren = Text1.Text
'zhidanren = SetIniS("system", "zhidanren", "& zhidanren &")
End If

End Sub

Private Sub Command2_Click()
Text1.Text = ""
End Sub

Private Sub Form_Load()
Text1.Text = GetIniS("system", "zhidanren", "")
End Sub
Private Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefString As String) As String
   Dim ResultString As String * 144, Temp As Integer
    Dim s As String, i As Integer
    Temp% = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, App.Path & "\hh.ini")
'检索关键词的值
If Temp% > 0 Then '关键词的值不为空
  s = ""
  For i = 1 To 144
    If Asc(Mid$(ResultString, i, 1)) = 0 Then
      Exit For
    Else
      s = s & Mid$(ResultString, i, 1)
     End If
  Next
Else
  Temp% = WritePrivateProfileString(SectionName, KeyWord, DefString, App.Path & "\hh.ini")
  '将缺省值写入INI文件
  s = DefString
End If
GetIniS = s
End Function

Private Sub SetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String)


Dim res%
res% = WritePrivateProfileString(SectionName, KeyWord, ValStr, App.Path & "\hh.ini")
End Sub