main.prg

进销存管理系统医药版,支持自动生成药品首写拼音字母快速查询.

*!* 第1部分
*!* 用于设置系统环境和指定错误处理程序
SET TALK OFF           &&关闭命令显示
SET ESCAPE OFF         &&禁止运行的程序在按 Esc 键后被中断
SET EXCLUSIVE OFF      &&允许网络上的任何用户共享和修改网络上打开的表
SET HELP ON            &&当按下 F1 键或在命令窗口中执行 HELP 命令时，显示帮助窗口
*SET HELP TO MediHelp.chm  &&指定帮助文件
SET CONSOLE ON         &&将所有的结果输出到 Visual FoxPro 主窗口或活动的用户自定义窗口中
SET DATE LONG          &&指定日期表达式的显示格式为长日期格式
SET CENTURY ON         &&设定日期中的年为4位数
SET SAFETY OFF         &&指定在改写已有文件时不显示对话框
SET STATUS BAR ON      &&打开VFP状态栏
SET COLOR TO           &&设置颜色为默认状态
SET HOURS TO 24
SET SYSMENU OFF        &&关闭系统菜单
SET NOTIFY OFF 
SET NOTIFY CURSOR OFF  &&不在状态栏中显示数据信息
SET MESSAGE TO ""
CLEAR                  &&清理主窗口显示
CLEAR ALL              &&清除变量
ON ERROR DO Err.prg ;
    WITH ERROR(), ;
    MESSAGE(), ;
    MESSAGE(1), ;
    PROGRAM(), ;
    LINENO(1)             &&指定当出现错误时执行的命令
    
*!* 第2部分
*!* 用于设置数据库的查找路径
IF NOT FILE("DataPath.txt")  &&如果没有找到DataPath.txt文件，表示没有定义对数据库的查找路径
    DO FORM frmSetDataPath   &&打开设置数据库路径表单
    READ EVENTS 
ELSE 
    cPath=FILETOSTR("DataPath.txt")  &&找到后则读取该文件
    SET PATH TO (cPath)              &&设置对数据库文件的查找路径
ENDIF 

*!* 第3部分
*!* 打开数据库和表
DO OpenDb.prg

*!* 第4部分
*!* 执行操作员登录
DO FORM frmLogin           &&打开登录表单
READ EVENTS                &&开始事务处理
ON SHUTDOWN DO QuitAll.prg &&指定退出VFP时要执行的命令

*!* 第5部分
*!* 设置主窗口的大小、标题，并加入快捷工具栏和菜单
WITH _SCREEN               &&设置VFP主表单为可见、最大化、标题、图标
    .Visible=.T.
    .Closable=.T.
    .ControlBox=.T.
    .MaxButton=.T.
    .MinButton=.T.
    .Movable=.T.
    .Top=50
    .Left=0
    .WindowState=2
    .Caption="进销存管理系统[医药行业]"
    .Icon='Medisoft.ico'
ENDWITH 
 
PUBLIC oToolBar,frmIn,frmOut,frmPrint,frmSysSet,frmBackup,frmStock,frmFinance &&定义表单名称全局变量
DO Menu.mpr       &&打开菜单

oToolbar=NEWOBJECT("Main_gj","Libs.vcx")                 &&建立工具栏对象
oToolbar.Show()                                           &&显示对象
oToolbar.Dock(0)                                          &&在VFP主窗口上方停放
SET MARK OF BAR 1 OF POPView TO VARTYPE(oToolbar)="O"     &&设置在显示工具栏时，在菜单项显示√标记

*!* 第6部分
*!* 在主窗口中加入背景图片和Internet链接
oHandler=NEWOBJECT("MyHook")
BINDEVENT(_SCREEN,"Resize",oHandler,"Resize")  &&绑定主窗口的Resize事件到oHandler对象的Resize事件
_SCREEN.AddObject("Image1","BackImage")        &&在VFP主表单中加入图画
_SCREEN.AddObject("Label1","labClass")
_SCREEN.AddObject("Label2","label")

WITH _SCREEN.Label2
    .BackStyle=0
    .Caption="Microsoft Visual FoxPro编程园地"
    .ForeColor=RGB(0,0,255)
    .Height=20
    .Left=50
    .Top=_Screen.Height-90
    .Visible=.T.
    .Width=300
ENDWITH 
READ EVENTS 

DEFINE CLASS BackImage AS Image
    Name="Image1"
    Top=(_Screen.Height-159)/2-70
    Left=(_Screen.Width-600)/2
    Height=192 
    Width=487
    Picture="BackGround.jpg"
    BackStyle=0
    Stretch=2
    Visible=.T.
ENDDEFINE    

DEFINE CLASS MyHook AS Custom 
    PROCEDURE Resize   &&随窗口大小调整Label1(Internet链接)的位置和背景图片大小
        WITH _SCREEN
            .Label1.Top=_SCREEN.Height-75
            .Label2.Top=_SCREEN.Height-90
            .Image1.Top=(_SCREEN.Height-159)/2-70
            .Image1.Left=(_SCREEN.Width-600)/2
        ENDWITH  
    ENDPROC     
ENDDEFINE

DEFINE CLASS labClass As Label
    BackStyle=0
    Caption="http://www.vfptop.com"
    ForeColor=RGB(0,0,255)
    FontUnderLine=.T.
    Height=20
    Left=100
    MouseIcon="./images/hand-m.cur"
    MousePointer=99
    Name="Label1"
    ToolTipText="欢迎光临Microsoft Visual FoxPro编程园地"
    Visible=.T.
    Width=300
    
    PROCEDURE Init
        This.Left=50
        This.Top=_SCREEN.Height-75
    ENDPROC 
    
    PROCEDURE Click 
        *!* 声明ShellExecute函数
        DECLARE INTEGER ShellExecute IN "Shell32.dll" ;
            INTEGER hwnd, ;
            STRING lpVerb, ;
            STRING lpFile, ;
            STRING lpParameters, ;
            STRING lpDirectory, ;
            LONG nShowCmd    
        *!* 设定要打开的Internet站点
        lpFile="http://www.vfptop.com/"
        *!* 以浏览器窗口最大化方式打开Internet站点
        =ShellExecute(0,"open",lpFile ,"","",3) 
    ENDPROC                 
    
    PROCEDURE MouseEnter
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        This.ForeColor=RGB(255,0,0)   &&当鼠标移动时字体颜色成为红色
    ENDPROC 
    
    PROCEDURE MouseLeave
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        This.ForeColor=RGB(0,0,255)   &&当鼠标移动时字体颜色成为蓝色
    ENDPROC 
ENDDEFINE