bsdim.bas

来自「一个用VB的写的音像销售系统」· BAS 代码 · 共 16 行

Attribute VB_Name = "bsdim"
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public yxsql As String
Public yxsql1 As String '定义一个用来保存SQL语句的字符串变量
Public yxsql2 As String
Public yxnumber As Integer '表中字段的个数
Public hang As Integer '取值当前表格鼠标所在为多少行
Public yxadmin As String '当前的操作员
Public yxtable As String '指定当前使用的表名
Public server As String '服务器名称
Public loginname As String 'SQL登陆用户名
Public password As String 'SQL密码