VFP常用函數

* VFP編程在SQL Server服務器上建立數據庫、數據表(在WinXp/SQL Server 2000/VFP6.0中調試通過)
* 用CREATE DATABASE、CREATE TABlE、INSERT語句

SET STEP ON
SET TALK ON
SET STAT ON

CLEAR
LOCAL nHandle,cSQLnResult

*cConnString="Driver=SQL Server;Server=SCBHWQ;UID=sa;PWD=67773240;Database=Master"
cConnString="Driver=SQL Server;Server=ZHANGZUO;UID=sa;PWD=;Database=Master"

nHandle=SQLSTRINGCONNECT(cConnString)

IF nHandle<=0
=MESSAGEBOX("無法建立連接",0+48,"提示")
RETURN
ENDIF

* 建立數據庫

cSQL="CREATE DATABASE SCXXGLXT "+;
"ON "+;
"( NAME=SCXXGLXT_dat,"+;
"FILENAME='C:\Program Files\Microsoft SQL Server\MSSQL\data\SCXXGLXTdat.mdf',"+;
"SIZE=10,"+;
"MAXSIZE=50,"+;
"FILEGROWTH=5 )"+;
"LOG ON "+;
"( NAME='SCXXGLXT_log',"+;
"FILENAME='C:\Program Files\Microsoft SQL Server\MSSQL\data\SCXXGLXTlog.ldf',"+;
"SIZE=5MB,"+;
"MAXSIZE=25MB,"+;
"FILEGROWTH=5MB )"
nResult=SQLEXEC(nHandle,cSQL)

IF nResult<0
=MESSAGEBOX("無法建立數據庫!")
ELSE
=MESSAGEBOX("建立數據庫成功")
ENDIF
=SQLDISCONNECT(nHandle) &&斷開連接


*cConnString="Driver=SQL Server;Server=SCBHWQ;UID=sa;PWD=67773240;Database=SCXXGLXT"
cConnString="Driver=SQL Server;Server=ZHANGZUO;UID=sa;PWD=;Database=SCXXGLXT"

nHandle=SQLSTRINGCONNECT(cConnString)

IF nHandle<=0
=MESSAGEBOX("無法建立連接",0+48,"提示")
RETURN
ENDIF

* 建立數據表

cSQL="CREATE TABlE 用戶表 "+;
"( 用戶編號 varchar(10) NOT NULL, "+;
"用戶名稱 varchar(40) NOT NULL, "+;
"用戶密碼 varchar(10) NULL, "+;
"顯示順序 varchar(10) NULL, "+;
"檔案建立時間 varchar(8) NULL "+;
") "+;
"CREATE TABlE 產品表 "+;
"( 產品編號 varchar(10) NOT NULL, "+;
"產品名稱 varchar(70) NULL, "+;
"產品型號 varchar(70) NULL, "+;
"產品基本型號 varchar(40) NULL, "+;
"產品類型 varchar(40) NULL, "+;
"產品功能 varchar(70) NULL, "+;
"顯示順序 varchar(10) NULL, "+;
"檔案建立時間 varchar(8) NULL "+;
") "+;
"CREATE TABlE 物料表 "+;
"( 物料編號 varchar(10) NOT NULL, "+;
"物料名稱 varchar(70) NULL, "+;
"物料型號 varchar(70) NULL, "+;
"物料類型 varchar(40) NULL, "+;
"計量單位 varchar(20) NULL, "+;
"單價 decimal(9,4) NULL, "+;
"不變價 decimal(9,4) NULL, "+;
"加工類型 varchar(30) NULL, "+;
"部門編號 varchar(10) NULL, "+;
"生產部門 varchar(40) NULL, "+;
"供貨商編號 varchar(10) NULL, "+;
"供貨商名稱 varchar(40) NULL, "+;
"供貨商物料編號 varchar(40) NULL, "+;
"供貨商物料名稱 varchar(70) NULL, "+;
"供貨商物料型號 varchar(70) NULL, "+;
"供貨商物料單價 decimal(9,4) NULL, "+;
"大小尺寸 varchar(40) NULL, "+;
"顏色 varchar(20) NULL, "+;
"單件重量 decimal(9,4) NULL, "+;
"原材料名稱 varchar(40) NULL, "+;
"原材料型號 varchar(70) NULL, "+;
"原材料單價 decimal(9,4) NULL, "+;
"原材料單件損耗重量 decimal(9,4) NULL, "+;
"舊物料編號 varchar(8) NOT NULL, "+;
"庫房編號 varchar(10) NULL, "+;
"庫房名稱 varchar(40) NULL, "+;
"顯示順序 varchar(10) NULL, "+;
"檔案建立時間 varchar(8) NULL "+;
") "+;
"INSERT 用戶表 "+;
"(用戶編號,用戶名稱,用戶密碼) VALUES('0000000001','Administrator','1234567890')"
nResult=SQLEXEC(nHandle,cSQL)

IF nResult<0
=MESSAGEBOX("無法建立數據表和增加記錄!")
ELSE
=MESSAGEBOX("建立數據表和增加記錄成功")
ENDIF

=SQLDISCONNECT(nHandle) &&斷開連接
RETURN