baseclass.vca

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

VCA
745 行
字号 
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] _RX30JXK9Z
[CLASS] commandbutton
[BASECLASS] commandbutton
[OBJNAME] bas_cmdbutton
[START PROPERTIES]
AutoSize = .T.
Height = 25
Width = 70
FontBold = .T.
FontSize = 9
Caption = "Command1"
MousePointer = 99
MouseIcon = ..\graphics\harrow.cur
Name = "bas_cmdbutton"
[END PROPERTIES]
[START METHODS]
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
IF  txnlevel()!=0 &&有事务运行中
	IF _DEBUG
		MSWORD="事务中出现错误:"+ALLTRIM(STR(nError))+CHR(13)+"函数:"+ cMethod+CHR(13)+"行数:"+ALLTRIM(STR(nLine))+CHR(13)+"系统将进行回滚!"
		MESSAGEBOX(MSWORD,16,"系统信息")
		ROLLBACK
		Cancel
	ELSE
		ROLLBACK
		Cancel
	ENDIF
ENDIF
OLDTABLE=ALIAS()
IF _DEBUG
	SET CLASS TO BASECLASS
	ERFORM=CREATEOBJECT("ERRORFORM",nError, cMethod, nLine,THIS.NAME)
	ERFORM.SHOW
ELSE
	=MESSAGEBOX("程序出现错误，为了防止出现更大的错误"+CHR(13)+;
		"请终止运行程序,并与程序员联系.",16,"系统错误信息")
	CHOICE=0
ENDIF
ERROPEN=.F.
IF !USED("ERR_HISTROY")
	ERROPEN=.T.
	USE DATA\ERR_HISTROY IN 0
ENDIF
SELE ERR_HISTROY
APPEND BLANK
REPLACE DATETIME WITH DATETIME(),C_FUN WITH cMethod,N_LINE WITH nLine ;
	,N_CHOICE WITH CHOICE,C_AUTHOR WITH THISFORM.AUTHOR,C_MESS WITH MESS();
	C_CONTROL WITH THIS.NAME

IF ERROPEN
	SELE ERR_HISTROY
	USE
ENDIF
DO CASE
CASE CHOICE=0
	QUIT
CASE CHOICE=1
	DEBUG
	SUSPEND
CASE CHOICE=2
CASE CHOICE=3
	Cancel
ENDCASE

IF OLDTABLE!=""
	SELE &OLDTABLE
ENDIF
RETURN .f.

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

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

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _RX30JZTFP
[CLASS] container
[BASECLASS] container
[OBJNAME] bas_container
[START PROPERTIES]
Width = 200
Height = 200
BackStyle = 0
SpecialEffect = 1
BorderColor = 192,192,192
con_table = 
oldtable = 
Name = "bas_container"
[END PROPERTIES]
[START METHODS]
PROCEDURE LostFocus
IF THIS.T_OPEN
 CON=THIS.CON_TABLE
 SELE &CON
 USE
ENDIF 
IF THIS.OLDTABLE!=""
OLD=THIS.OLDTABLE
 SELE &OLD
ENDIF

ENDPROC
PROCEDURE GotFocus
THIS.OLDTABLE=ALIAS()
IF THIS.CON_TABLE!=""
 CON=THIS.CON_TABLE
 IF !USED(CON)
  USE &CON IN 0
  THIS.T_OPEN=.T
 ENDIF 
 SELE &CON
 
ENDIF 
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
OLDTABLE=ALIAS()
IF _DEBUG
SET CLASS TO BASECLASS
ERFORM=CREATEOBJECT("ERRORFORM",nError, cMethod, nLine,THIS.NAME)
ERFORM.SHOW
ELSE
 =MESSAGEBOX("程序出现错误，为了防止出现更大的错误"+CHR(13)+;
              "请终止运行程序,并与程序员联系.",16,"系统错误信息")
 CHOICE=0              
ENDIF                                
ERROPEN=.F.
IF !USED("ERR_HISTROY")
  ERROPEN=.T.
  USE DATA\ERR_HISTROY IN 0
ENDIF
SELE ERR_HISTROY
APPEND BLANK  
REPLACE DATETIME WITH DATETIME(),C_FUN WITH CMETHOD,N_LINE WITH NLINE ;
       ,N_CHOICE WITH CHOICE,C_AUTHOR WITH THISFORM.AUTHOR,C_MESS WITH MESS();
       C_CONTROL WITH THIS.NAME

IF ERROPEN
 SELE ERR_HISTROY
 USE
ENDIF 
DO CASE
CASE CHOICE=0
 quit
CASE choice=1
 DEBUG
 SUSPEND
CASE CHOICE=2
CASE CHOICE=3
 CANCEL
ENDCASE 

IF OLDTABLE!=""
 SELE &OLDTABLE
ENDIF                
return .f.

ENDPROC
[END METHODS]
[START RESERVED1]
Class[END RESERVED1]
[START RESERVED2]
1[END RESERVED2]
[START RESERVED3]
con_table
t_open
oldtable
[END RESERVED3]
[START RESERVED6]
Pixels[END RESERVED6]

[ RECORD]
[PLATFORM] COMMENT 
[UNIQUEID] RESERVED  
[OBJNAME] bas_container

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _RX30KHDT7
[CLASS] form
[BASECLASS] form
[OBJNAME] bas_form
[START PROPERTIES]
Height = 250
Width = 375
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "萃丰珠宝商品管理系统"
Closable = .F.
FontName = "隶书"
FontShadow = .T.
FontSize = 12
MaxButton = .F.
MinButton = .F.
flag = 0
recno = 0
opcode = 1
Name = "bas_form"
[END PROPERTIES]
[START METHODS]
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
OLDTABLE=ALIAS()
IF _DEBUG
SET CLASS TO BASECLASS
ERFORM=CREATEOBJECT("ERRORFORM",nError, cMethod, nLine,THIS.NAME)
ERFORM.SHOW
ELSE
 =MESSAGEBOX("程序出现错误，为了防止出现更大的错误"+CHR(13)+;
              "请终止运行程序,并与程序员联系.",16,"系统错误信息")
 CHOICE=0              
ENDIF                                
ERROPEN=.F.
IF !USED("ERR_HISTROY")
  ERROPEN=.T.
  USE DATA\ERR_HISTROY IN 0
ENDIF
SELE ERR_HISTROY
APPEND BLANK  
REPLACE DATETIME WITH DATETIME(),C_FUN WITH CMETHOD,N_LINE WITH NLINE ;
       ,N_CHOICE WITH CHOICE,C_AUTHOR WITH THISFORM.AUTHOR,C_MESS WITH MESS();
       C_CONTROL WITH THIS.NAME

IF ERROPEN
 SELE ERR_HISTROY
 USE
ENDIF 
DO CASE
CASE CHOICE=0
 quit
CASE choice=1
 DEBUG
 SUSPEND
CASE CHOICE=2
CASE CHOICE=3
 CANCEL
ENDCASE 

IF OLDTABLE!=""
 SELE &OLDTABLE
ENDIF                
return .f.

ENDPROC
[END METHODS]
[START RESERVED1]
Class[END RESERVED1]
[START RESERVED2]
1[END RESERVED2]
[START RESERVED3]
flag 权限 1: 超级用户(最高权限) 2:操作员(修改记录)3: 普通用户(浏览)
recno 当前记录号
opcode 操作状态,1:普通 ,2:编辑,3:浏览
isbrow
[END RESERVED3]
[START RESERVED6]
Pixels[END RESERVED6]

[ RECORD]
[PLATFORM] COMMENT 
[UNIQUEID] RESERVED  
[OBJNAME] bas_form
[START PROPERTIES]
隶书, 16, 12, 8, 18, 14, 16, 2, 2[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _RX30KOWIE
[CLASS] textbox
[BASECLASS] textbox
[OBJNAME] bas_textbox
[START PROPERTIES]
FontName = "宋体"
FontSize = 10
Height = 24
Width = 96
DisabledBackColor = 207,189,177
DisabledForeColor = 0,0,255
Name = "bas_textbox"
[END PROPERTIES]
[START METHODS]
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
OLDTABLE=ALIAS()
IF _DEBUG
SET CLASS TO BASECLASS
ERFORM=CREATEOBJECT("ERRORFORM",nError, cMethod, nLine,THIS.NAME)
ERFORM.SHOW
ELSE
 =MESSAGEBOX("程序出现错误，为了防止出现更大的错误"+CHR(13)+;
              "请终止运行程序,并与程序员联系.",16,"系统错误信息")
 CHOICE=0              
ENDIF                                
ERROPEN=.F.
IF !USED("ERR_HISTROY")
  ERROPEN=.T.
  USE DATA\ERR_HISTROY IN 0
ENDIF
SELE ERR_HISTROY
APPEND BLANK  
REPLACE DATETIME WITH DATETIME(),C_FUN WITH CMETHOD,N_LINE WITH NLINE ;
       ,N_CHOICE WITH CHOICE,C_AUTHOR WITH THISFORM.AUTHOR,C_MESS WITH MESS();
       C_CONTROL WITH THIS.NAME

IF ERROPEN
 SELE ERR_HISTROY
 USE
ENDIF 
DO CASE
CASE CHOICE=0
 quit
CASE choice=1
 DEBUG
 SUSPEND
CASE CHOICE=2
CASE CHOICE=3
 CANCEL
ENDCASE 

IF OLDTABLE!=""
 SELE &OLDTABLE
ENDIF                
return .f.

ENDPROC
PROCEDURE Refresh
*********************************************
*程序名: refresh
*作  用:TEXTBOX控件的刷新事件
*
*                                 作者:董志锋
*                                 1999/03/18
**********************************************
*如果当前为编辑模式（OPCODE=2）并且用户权限为管理员时该控件可写。
IF !THISFORM.FLAG=3 AND THISFORM.opcode=2
	THIS.ENABLED=.T.
ELSE
	THIS.ENABLED=.F.
ENDIF

ENDPROC
[END METHODS]
[START RESERVED1]
Class[END RESERVED1]
[START RESERVED2]
1[END RESERVED2]
[START RESERVED3]
jiluhao
[END RESERVED3]
[START RESERVED6]
Pixels[END RESERVED6]

[ RECORD]
[PLATFORM] COMMENT 
[UNIQUEID] RESERVED  
[OBJNAME] bas_textbox
[START PROPERTIES]
宋体, 0, 10, 7, 15, 11, 13, 2, 2[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _RX30KT67Y
[CLASS] label
[BASECLASS] label
[OBJNAME] bas_label
[START PROPERTIES]
AutoSize = .T.
FontBold = .T.
FontSize = 11
BackStyle = 0
Caption = "Label1"
Height = 19
Width = 57
Name = "bas_label"
[END PROPERTIES]
[START RESERVED1]
Class[END RESERVED1]
[START RESERVED2]
1[END RESERVED2]
[START RESERVED6]
Pixels[END RESERVED6]

[ RECORD]
[PLATFORM] COMMENT 
[UNIQUEID] RESERVED  
[OBJNAME] bas_label

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _RXA138DOL
[CLASS] label
[BASECLASS] label
[OBJNAME] bas_caption
[START PROPERTIES]
AutoSize = .T.
FontBold = .T.
FontName = "隶书"
FontSize = 36
BackStyle = 0
Caption = "Label1"
Height = 57
Width = 153
ForeColor = 0,0,255
Name = "bas_caption"
[END PROPERTIES]
[START RESERVED1]
Class[END RESERVED1]
[START RESERVED2]
1[END RESERVED2]
[START RESERVED6]
Pixels[END RESERVED6]

[ RECORD]
[PLATFORM] COMMENT 
[UNIQUEID] RESERVED  
[OBJNAME] bas_caption

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S9816EXJI
[CLASS] form
[BASECLASS] form
[OBJNAME] errorform
[START PROPERTIES]
Height = 163
Width = 324
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "系统错误"
Closable = .F.
MaxButton = .F.
MinButton = .F.
Movable = .F.
Visible = .T.
Icon = ..\graphics\trffc14.ico
WindowType = 1
AlwaysOnTop = .T.
BackColor = 192,192,192
choice = 0
Name = "errorform"
[END PROPERTIES]
[START METHODS]
PROCEDURE Init
LPARAMETERS nerror,cmethod,nline,CCONTROL
THIS.LABEL1.CAPTION=MESS()+CHR(13)+"出错控件："+CCONTROL+chr(13);
                    +"出错函数："+cMethod+chr(13);
                    +"行数："+str(nline)


ENDPROC
PROCEDURE Unload
PUBLIC CHOICE
CHOICE=THIS.CHOICE
RETURN
ENDPROC
[END METHODS]
[START RESERVED1]
Class[END RESERVED1]
[START RESERVED2]
13[END RESERVED2]
[START RESERVED3]
choice
[END RESERVED3]
[START RESERVED6]
Pixels[END RESERVED6]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S98189D84
[CLASS] bas_label
[CLASSLOC] baseclass.vcx
[BASECLASS] label
[OBJNAME] Bas_label2
[PARENT] errorform
[START PROPERTIES]
FontSize = 10
Caption = "挂起"
Left = 60
Top = 131
Name = "Bas_label2"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S98189D8J
[CLASS] image
[BASECLASS] image
[OBJNAME] Image2
[PARENT] errorform
[START PROPERTIES]
Picture = ..\graphics\traffic\trffc05.ico
Stretch = 1
BackStyle = 0
Height = 30
Left = 13
Top = 124
Width = 35
Name = "Image2"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S98189D8Y
[CLASS] bas_label
[CLASSLOC] baseclass.vcx
[BASECLASS] label
[OBJNAME] Bas_label3
[PARENT] errorform
[START PROPERTIES]
FontSize = 10
Caption = "忽略"
Left = 160
Top = 131
Name = "Bas_label3"
[END PROPERTIES]
[START METHODS]
PROCEDURE Click
THISFORM.CHOICE=2
RELEASE THISFORM
ENDPROC
[END METHODS]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S98189D9O
[CLASS] image
[BASECLASS] image
[OBJNAME] Image3
[PARENT] errorform
[START PROPERTIES]
Picture = ..\graphics\traffic\trffc03.ico
Stretch = 1
BackStyle = 0
Height = 30
Left = 124
Top = 124
Width = 25
Name = "Image3"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S98189DA4
[CLASS] bas_label
[CLASSLOC] baseclass.vcx
[BASECLASS] label
[OBJNAME] Bas_label4
[PARENT] errorform
[START PROPERTIES]
FontSize = 10
Caption = "结束程序"
Left = 250
Top = 131
Name = "Bas_label4"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S98189DAK
[CLASS] image
[BASECLASS] image
[OBJNAME] Image4
[PARENT] errorform
[START PROPERTIES]
Picture = ..\graphics\traffic\trffc13.ico
Stretch = 1
BackStyle = 0
Height = 30
Left = 220
Top = 125
Width = 25
Name = "Image4"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _RX30K3MNX
[CLASS] bas_container
[CLASSLOC] baseclass.vcx
[BASECLASS] container
[OBJNAME] Bas_container1
[PARENT] errorform
[START PROPERTIES]
Top = 120
Left = 216
Width = 99
Height = 36
Name = "Bas_container1"
[END PROPERTIES]
[START METHODS]
PROCEDURE Click
THISFORM.CHOICE=3
RELEASE THISFORM
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
ThisForm._MOUSEOVERFX1.HIGHLIGHTME(THIS)
ENDPROC
[END METHODS]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S98186ZFW
[CLASS] bas_container
[CLASSLOC] baseclass.vcx
[BASECLASS] container
[OBJNAME] Bas_container2
[PARENT] errorform
[START PROPERTIES]
Top = 120
Left = 112
Width = 99
Height = 38
Name = "Bas_container2"
[END PROPERTIES]
[START METHODS]
PROCEDURE Click
THISFORM.CHOICE=2
RELEASE THISFORM
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
ThisForm._MOUSEOVERFX1.HIGHLIGHTME(THIS)
ENDPROC
[END METHODS]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S98186ZIL
[CLASS] bas_container
[CLASSLOC] baseclass.vcx
[BASECLASS] container
[OBJNAME] Bas_container3
[PARENT] errorform
[START PROPERTIES]
Comment = "aaaa"
Top = 121
Left = 7
Width = 99
Height = 36
Name = "Bas_container3"
[END PROPERTIES]
[START METHODS]
PROCEDURE Click
THISFORM.CHOICE=1
RELEASE THISFORM
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord

ThisForm._MOUSEOVERFX1.HIGHLIGHTME(THIS)
ENDPROC
[END METHODS]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S9816YMO2
[CLASS] _mouseoverfx
[CLASSLOC] ..\..\program files\microsoft visual studio\vfp98\ffc\_ui.vcx
[BASECLASS] custom
[OBJNAME] _MOUSEOVERFX1
[PARENT] errorform
[START PROPERTIES]
Top = 131
Left = 218
nhighlightwidth = 4
Name = "_MOUSEOVERFX1"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S98186ZLM
[CLASS] image
[BASECLASS] image
[OBJNAME] Image1
[PARENT] errorform
[START PROPERTIES]
Picture = ..\graphics\w95mbx01.ico
Stretch = 1
Height = 36
Left = 12
Top = 24
Width = 36
Name = "Image1"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S9819O4A2
[CLASS] bas_label
[CLASSLOC] baseclass.vcx
[BASECLASS] label
[OBJNAME] label1
[PARENT] errorform
[START PROPERTIES]
AutoSize = .F.
FontSize = 10
WordWrap = .T.
Height = 101
Left = 72
Top = 7
Width = 216
Name = "label1"
[END PROPERTIES]

[ RECORD]
[PLATFORM] COMMENT 
[UNIQUEID] RESERVED  
[OBJNAME] errorform
[START PROPERTIES]
宋体, 0, 9, 6, 14, 10, 12, 2, 2[END PROPERTIES]
[EOF]

baseclass.vca - 源码说明

本页面展示了「用WINSOCK做的数据传送程序,分客户端与服务器端,非常实用,与您共享」中的 baseclass.vca 源码文件，采用 VCA 编程语言编写，共 745 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Winsock相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?