appuse.vca

来自「用WINSOCK做的数据传送程序,分客户端与服务器端,非常实用,与您共享」· VCA 代码 · 共 229 行

SCCTEXT 版本 4.0.0.2
PLATFORM C(8,0),UNIQUEID C(10,0),TIMESTAMP N(10,0),CLASS M(4,0),CLASSLOC M(4,0),BASECLASS M(4,0),OBJNAME M(4,0),PARENT M(4,0),PROPERTIES M(4,0),PROTECTED M(4,0),METHODS M(4,0),OBJCODE M(4,0),OLE M(4,0),OLE2 M(4,0),RESERVED1 M(4,0),RESERVED2 M(4,0),RESERVED3 M(4,0),RESERVED4 M(4,0),RESERVED5 M(4,0),RESERVED6 M(4,0),RESERVED7 M(4,0),RESERVED8 M(4,0),USER M(4,0)
936

[ RECORD]
[PLATFORM] COMMENT 
[UNIQUEID] Class     
[START RESERVED1]
VERSION =   3.00[END RESERVED1]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S3H04UZ48
[CLASS] bas_form
[CLASSLOC] baseclass.vcx
[BASECLASS] form
[OBJNAME] app_form
[START PROPERTIES]
Height = 458
Width = 633
DoCreate = .T.
Picture = ..\graphics\little.bmp
BorderStyle = 3
Caption = "萃丰珠宝商品管理系统"
Icon = ..\graphics\key04.ico
author = 
Name = "app_form"
[END PROPERTIES]
[START METHODS]
PROCEDURE Init
*********************************************
*程序名: init
*作  用:表单初始化，接收权限参数
*
*                                 作者:董志锋
*                                 1999/03/18
**********************************************
LPARAMETERS IN_FLAG
****FOR TEST****
*!*	IF _DEBUG
 IN_FLAG=1
*!*	ENDIF
****************
THISFORM.FLAG=IN_FLAG
ENDPROC
[END METHODS]
[START RESERVED1]
Class[END RESERVED1]
[START RESERVED2]
5[END RESERVED2]
[START RESERVED3]
author
[END RESERVED3]
[START RESERVED6]
Pixels[END RESERVED6]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S3H0LMJUI
[CLASS] cmdreturn
[CLASSLOC] basecmds.vcx
[BASECLASS] commandbutton
[OBJNAME] Cmdreturn1
[PARENT] app_form
[START PROPERTIES]
Top = 408
Left = 540
Name = "Cmdreturn1"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S3H0UL52S
[CLASS] bas_caption
[CLASSLOC] baseclass.vcx
[BASECLASS] label
[OBJNAME] Stu_caption1
[PARENT] app_form
[START PROPERTIES]
Left = 24
Top = 12
Name = "Stu_caption1"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S3H03FLQW
[CLASS] shape
[BASECLASS] shape
[OBJNAME] Shape1
[PARENT] app_form
[START PROPERTIES]
Top = 384
Left = 21
Height = 5
Width = 590
SpecialEffect = 0
BackColor = 0,0,255
Name = "Shape1"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S3H0UL533
[CLASS] shape
[BASECLASS] shape
[OBJNAME] Shape2
[PARENT] app_form
[START PROPERTIES]
Top = 60
Left = 21
Height = 5
Width = 590
SpecialEffect = 0
BackColor = 0,0,255
Name = "Shape2"
[END PROPERTIES]

[ RECORD]
[PLATFORM] COMMENT 
[UNIQUEID] RESERVED  
[OBJNAME] app_form
[START PROPERTIES]
隶书, 16, 12, 8, 18, 14, 16, 2, 2
宋体, 1, 9, 7, 14, 10, 13, 2, 2
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S4W0SUSMO
[CLASS] bas_container
[CLASSLOC] baseclass.vcx
[BASECLASS] container
[OBJNAME] app_edit_esc
[START PROPERTIES]
Width = 214
Height = 28
Name = "app_edit_esc"
[END PROPERTIES]
[START METHODS]
PROCEDURE Init
this.height=this.cmdcancle1.height+1
ENDPROC
PROCEDURE Refresh
*************************************
*程序名:REFRESH
*作用:
*
*                   作者:董志锋
*************************************

LPARAMETERS NOFLAG,ISEDIT,ISBROW
NOFLAG=.F.
ISEDIT=.F.
ISBROW=.F.
IF THISFORM.FLAG=3
	NOFLAG=.T.
ENDIF
IF  THISFORM.OPCODE!=1
	ISEDIT=.T.
ENDIF
IF THISFORM.OPCODE=3
    ISBROW=.T.
ENDIF   
THIS.Cmdcancle1.ENABLED=(NOT NOFLAG) AND ISEDIT AND (NOT ISBROW)

THIS.Cmdedit1.ENABLED=(NOT NOFLAG ) AND (NOT ISEDIT) AND (NOT ISBROW)
THIS.Cmdsave1.ENABLED=(NOT NOFLAG) AND ISEDIT AND (NOT ISBROW)

ENDPROC
[END METHODS]
[START RESERVED1]
Class[END RESERVED1]
[START RESERVED2]
4[END RESERVED2]
[START RESERVED6]
Pixels[END RESERVED6]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S4W0SWM5P
[CLASS] cmdsave
[CLASSLOC] basecmds.vcx
[BASECLASS] commandbutton
[OBJNAME] Cmdsave1
[PARENT] app_edit_esc
[START PROPERTIES]
Top = 2
Left = 71
Name = "Cmdsave1"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S4W0SWM5U
[CLASS] cmdedit
[CLASSLOC] basecmds.vcx
[BASECLASS] commandbutton
[OBJNAME] Cmdedit1
[PARENT] app_edit_esc
[START PROPERTIES]
Top = 2
Left = 0
Name = "Cmdedit1"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S4W0SWM5Y
[CLASS] cmdcancle
[CLASSLOC] basecmds.vcx
[BASECLASS] commandbutton
[OBJNAME] Cmdcancle1
[PARENT] app_edit_esc
[START PROPERTIES]
Top = 2
Left = 142
Name = "Cmdcancle1"
[END PROPERTIES]

[ RECORD]
[PLATFORM] COMMENT 
[UNIQUEID] RESERVED  
[OBJNAME] app_edit_esc
[START PROPERTIES]
宋体, 1, 9, 7, 14, 10, 13, 2, 2
[END PROPERTIES]
[EOF]