一个很好的c

* * 2003年11月21日酒店管理系统主程序
* *作者:刘学军
* *版权所有(C) 2003程保明酒店
* *广东深圳龚铭镇长春花园
* *广东深圳5000。严禁非法复制，违者必究
clear
clear all
clear dll
Close all
Set talk Off
Set safe Off
Set escape Off
Set Debug Off
Set Exact Off
Set Sysmenu Save
Set Sysmenu Off
Set Null display To ' '
Set Null Off
WindowState=2
。ZOOMBOX=.F.
。可移动=.F.
。MinButton=.F.
。MaxButton=.F.
。closedable = . f .
。Icon= "球。ICO"
。Caption= '酒店管理系统-魏军软件工作室'
。锁屏=。T.
。AddObject ('screenimg '，' Image ')
. screen img . stretch = 2
. screen img . visible = . t .
. screen img . height = Sysmetric(2)-50
. screen img . width = Sysmetric(1)
. screen img . picture = ' desktop pr . jpg '
。lock screen = . f .
end with
= caps lock(. t .)
= Numlock(. t .)
Public TempFile，ExePath，CurWinDir，CurPic，pCompany，ReportFile，pTeamId，pUserGroup，pUserId，pUserName，sConn，gcUpdateId，；
m.Date_From，m.Date_To，nConn，OFBLX，OFBLY，Times
Store 0 To nConn，OFBLX，OFBLY，Times
Store Date()To m . Date _ From，m . Date _ To
Store ' ' To TempFile，ExePath，CurWinDir，CurPic，pCompany，ReportFile，sConn，pTeamId，pUserId，pUserName
TempFile = ' T '+RightFoxUser . Dbf
将路径设置为&ExePath。；&ExePath。帮助
如果！directory(" & exe path . temp ")
MD & exe path . temp
Endif
tmpfiles = " & exe path . temp " & & Set当前VFP使用的临时文件目录
= DelTmpFile()& & delete * Set HELP TO & exe path。帮助\酒店。CHM
If！file(' mydll . dll ')
MessageBox(' mydll . dll丢失，程序无法正常运行！'，48，系统提示))
quit
endif
声明字符串获取" mydll.dll "中的serial integer & &获取硬盘厂商的物理永久ID
声明字符串num2txt _ c在" mydll.dll "中为人民币zhdouble & &小写金额转换为大写金额
声明字符串topyin " mydll.dll "字符串& &汉字到拼音首字母
声明整数changeres在" mydll Integer
在Win32api中声明Integer FindWindow String，String
在Win32API中声明Long BringWindowToTop Long
在Win32API中声明Long show window Long，Long
在user32中声明Integer SendMessage Integer，Integer，Integer，Integer
在SHELL32.Dll声明Integer shell execute Integer，String，String，String，String，String，String，Integer
在Win32API中声明Integer GetPrivateProfileString，String，String，String，String，String @ *在user32 integer hwnd，integer nCmdShow
*中声明整数ShowWindowAsync！* htaskbar = FindWindow(" Shell _ tray wnd "，0)
*！* show window async (htakbar，0)&&0是隐藏任务栏，1是显示任务栏
set class to my labs additive & &使用自己的类库
on error do err _ fix with error()，message()，message (1)，program()，line no()& File(& exe path。LXJ.INI") &&确定配置文件是否存在，如果不存在就创建它。
=WriteIni('REGISTRY '，' Local_Id '，Str(DiskSpace(Sys(5)，1))，' &ExePath。LXJ . INI ')
= WriteIni(' REGISTRY '，' Reg_Date '，Ttoc(Datetime())，' &ExePath。LXJ . INI ')
= WriteIni(' REGISTRY '，' '，' =================== '，' &ExePath。LXJ . INI’)

=WriteIni('作者'，'联系人'，'刘学军'，' & exepath.lxj.ini')
= write ini('作者'，'头衔'，'计算机工程师'，' & exepath . lxj . ini ')[/br/'电话'，' 13613026728 '，' & exe path。LXJ . INI ')
= WriteIni(' AUTHOR '，' '，' ==================== '，' &ExePath。LXJ . INI’)

=WriteIni('SCREEN '，' RandomLoad '，' Yes '，' &ExePath。LXJ . INI ')
= WriteIni(' SCREEN '，' SourceXY '，' Yes '，' &ExePath。LXJ . INI ')
= WriteIni(' SCREEN '，' Picture '，' Picture)。JPG '，' &ExePath。LXJ . INI ')
= WriteIni(' SCREEN '，' StatusBar '，' On '，' &ExePath。LXJ . INI ')
= WriteIni(' SCREEN '，''，' =================== '，' &ExePath。LXJ . INI’)

=WriteIni('CONNECT '，' DRIVER '，' SQL SERVER '，' &ExePath。LXJ . INI ')
= write INI(' CONNECT '，' SERVER '，GETENV("COMPUTERNAME ")，' &ExePath。LXJ . INI ')
= WriteIni(' CONNECT '，' PORTNO '，' 1433 '，' &ExePath。LXJ . INI ')
= write INI(' CONNECT '，' UID '，' SA '，' &ExePath。LXJ . INI ')
= WriteIni(' CONNECT '，' PWD '，' DBA '，' &ExePath)。LXJ . INI ')
= write INI(' CONNECT '，' DATABASE '，' HOTEL '，' &ExePath。LXJ . INI ')
= WriteIni(' CONNECT '，' '，' ==================== '，' &ExePath。LXJ . INI’)

=WriteIni('USER '，' LastUser '，' Guest '，' &ExePath。LXJ.INI')
=WriteIni('USER '，' '，' ==================== '，' &ExePath。LXJ . INI’)

=WriteIni('UPDATE','NewExe','&ExePath.Main.EXE','&ExePath.LXJ.INI') &&工作站自动升级的共享目录
=WriteIni('UPDATE','NewInfo','欢迎使用本系统！','&ExePath.LXJ.INI') &&提示的信息
=WriteIni('UPDATE',' ','======================','&ExePath.LXJ.INI')
=WriteIni('OCXDLLREG',GETENV("COMPUTERNAME"),'NO','&ExePath.LXJ.INI')
Endif
If Upper(ReadIni('SCREEN','StatusBar','&ExePath.LXJ.INI'))='ON'
Set Status Bar On
_vfp.StatusBar=' 欢 迎 您 使 用 本 系 统 . . . '
Else
Set Status Bar Off
Endif
=OleRegister() &&根据INI文件判断是否注册OCX，DLL文件
=SetShortCut('酒店管理') &&在屏幕上创建快捷方式
*!*工作站是否注册判断
If ReadIni('REGISTRY','Local_Id','&ExePath.LXJ.INI')!=WorkJm(Iif(Empty(GetSerial(0)),Str(Diskspace(Sys(5),1)),Allt(GetSerial(0))),'HTL')
Do Form RegWork.SCX &&调用本工作站使用注册表单
Endif
Wait Window "正在连接 SQL SERVER 数据库 ，请稍候 ...... " At Srows()/2-10,(Scol()-45)/2 Nowait Noclear
SQLSETPROP(0,"DispLogin" ,3) &&连接不成功时不显示ODBC登录对话窗口
SQLSETPROP(0,"ConnectTimeOut",20) &&连接超时等待秒数设置，可取值0至600
SQLSETPROP(0,"IdleTimeout",0) &&空闲超时间隔秒数，取0为无限期等待
SQLSETPROP(0,"QueryTimeOut",20) &&超时错误之前等待的时间
SQLSETPROP(0,"Asynchronous",.F.) &&指定结果集合是同步返回
SQLSETPROP(0,"DispWarnings",.F.) &&不显示一个错误信息
*!*从配置文件中获得SQL SERVER的加密连接串
sConn='DRIVER=SQL SERVER'
sConn=sConn+'; SERVER='+Iif(Empty(ReadIni('CONNECT','SERVER','&ExePath.LXJ.INI')),GETENV("COMPUTERNAME"),ReadIni('CONNECT','SERVER','&ExePath.LXJ.INI'))
sConn=sConn+','+Iif(Empty(ReadIni('CONNECT','PORTNO','&ExePath.LXJ.INI')),'1433',ReadIni('CONNECT','PORTNO','&ExePath.LXJ.INI'))
sConn=sConn+';UID='+ReadIni('CONNECT','UID','&ExePath.LXJ.INI')
sConn=sConn+';PWD='+Iif(Empty(ReadIni('CONNECT','PWD','&ExePath.LXJ.INI')),'',JmWd(ReadIni('CONNECT','PWD','&ExePath.LXJ.INI')))
sConn=sConn+';DATABASE='+Iif(Empty(ReadIni('CONNECT','DATABASE','&ExePath.LXJ.INI')),'NoDatabase',ReadIni('CONNECT','DATABASE','&ExePath.LXJ.INI'))
sConn=sConn+';NetWork=DBMSSOCN'
nConn=Sqlstringconnect(sConn)
Wait Clear
Do While nConn