📄 whqgzj.prg
字号:
para m_path
MakeTable_DATA_1()
MakeTable_DATA_2()
MakeTable_DATA_3()
MakeTable_DATA_BAK()
MakeTable_DATA0()
MakeTable_DATA1()
MakeTable_DATA10()
MakeTable_DATA12()
MakeTable_DATA13()
MakeTable_DATA14()
MakeTable_DATA15()
MakeTable_DATA2()
MakeTable_DATA4()
MakeTable_DATA3()
MakeTable_DATA6()
MakeTable_DATA5()
MakeTable_DATA7()
MakeTable_DATA8()
MakeTable_DATA9()
FUNCTION MakeTable_DATA_1
***** 建立表为DATA_1 *****
CREATE TABLE m_path+'DATA_1.DBF' NAME 'DATA_1' (HPBM C(15) NOT NULL, ;
HPPM C(36) NOT NULL, ;
HPDW C(4) NOT NULL, ;
HPCK C(8) NOT NULL, ;
SQSL N(16, 0) NOT NULL, ;
PDSL N(16, 0) NOT NULL, ;
RKSL N(16, 0) NOT NULL, ;
CKSL N(16, 0) NOT NULL, ;
JYSL N(19, 0) NOT NULL)
***** 创建每一索引为 DATA_1 *****
***** 改变属性为 DATA_1 *****
ENDFUNC
FUNCTION MakeTable_DATA_2
***** 建立表为DATA_2 *****
CREATE TABLE m_path+'DATA_2.DBF' NAME 'DATA_2' (HPBM C(15) NOT NULL, ;
HPPM C(36) NOT NULL, ;
HPDW C(4) NOT NULL, ;
SQSL N(16, 0) NOT NULL, ;
SQJE N(16, 2) NOT NULL, ;
PDSL N(16, 0) NOT NULL, ;
RKSL N(16, 0) NOT NULL, ;
RKJE N(16, 0) NOT NULL, ;
CKSL N(16, 0) NOT NULL, ;
CKJE N(16, 0) NOT NULL, ;
JYSL N(19, 0) NOT NULL, ;
JYDJ N(15, 4) NOT NULL, ;
JYJE N(20, 4) NOT NULL, ;
PDJE N(20, 4) NOT NULL, ;
XSML N(20, 4) NOT NULL)
***** 创建每一索引为 DATA_2 *****
***** 改变属性为 DATA_2 *****
ENDFUNC
FUNCTION MakeTable_DATA_3
***** 建立表为DATA_3 *****
CREATE TABLE m_path+'DATA_3.DBF' NAME 'DATA_3' (HPBM C(15) NOT NULL, ;
HPPM C(36) NOT NULL, ;
HPDW C(4) NOT NULL, ;
HPCK C(8) NOT NULL, ;
HPCB N(16, 2) NOT NULL, ;
JYDJ N(13, 2) NOT NULL, ;
JYSL N(13, 2) NOT NULL, ;
SQSL N(16, 0) NOT NULL, ;
SQJE N(16, 2) NOT NULL, ;
PDSL N(16, 0) NOT NULL, ;
RKSL N(16, 0) NOT NULL, ;
RKJE N(16, 0) NOT NULL, ;
CKSL N(16, 0) NOT NULL, ;
CKJE N(16, 0) NOT NULL, ;
JYJE N(20, 4) NOT NULL, ;
PDJE N(20, 2) NOT NULL, ;
XSML N(19, 2) NOT NULL)
***** 创建每一索引为 DATA_3 *****
***** 改变属性为 DATA_3 *****
ENDFUNC
FUNCTION MakeTable_DATA_BAK
***** 建立表为DATA_BAK *****
CREATE TABLE m_path+'DATA_BAK.DBF' NAME 'DATA_BAK' (TYPE N(2, 0) NOT NULL, ;
IO N(1, 0) NOT NULL, ;
JZRQ D NOT NULL, ;
PDHM C(10) NOT NULL, ;
DFDW C(20) NOT NULL, ;
FPHM C(8) NOT NULL, ;
HPCK C(8) NOT NULL, ;
HPBM C(15) NOT NULL, ;
HPSL N(7, 0) NOT NULL, ;
HPYB C(3) NOT NULL, ;
HPYJ N(11, 2) NOT NULL, ;
HPYE N(11, 2) NOT NULL, ;
HPJE N(11, 2) NOT NULL, ;
SUILV N(6, 4) NOT NULL, ;
YBNSF L NOT NULL, ;
CBDJ N(11, 2) NOT NULL, ;
HPCB N(11, 2) NOT NULL, ;
HPZY C(10) NOT NULL, ;
JBR C(8) NOT NULL, ;
SHR C(8) NOT NULL, ;
MON D NOT NULL, ;
SIGN C(10) NOT NULL, ;
HPPM C(36) NOT NULL, ;
HPDW C(4) NOT NULL, ;
MYSIZE N(3, 0) NOT NULL, ;
JLMM M NOT NULL)
***** 创建每一索引为 DATA_BAK *****
***** 改变属性为 DATA_BAK *****
ENDFUNC
FUNCTION MakeTable_DATA0
***** 建立表为DATA0 *****
CREATE TABLE m_path+'DATA0.DBF' NAME 'DATA0' (DWBH N(2, 0) NOT NULL, ;
GJ N(1, 0) NOT NULL, ;
TJF L NOT NULL, ;
SLF L NOT NULL, ;
DLF L NOT NULL, ;
POSF L NOT NULL, ;
PDHF L NOT NULL, ;
FKCF L NOT NULL, ;
JCRQ N(2, 0) NOT NULL, ;
BQRQ D NOT NULL, ;
JJFF N(1, 0) NOT NULL, ;
LEN1 N(2, 0) NOT NULL, ;
LEN2 N(2, 0) NOT NULL, ;
LEN3 N(2, 0) NOT NULL, ;
WID1 N(1, 0) NOT NULL, ;
WID2 N(1, 0) NOT NULL, ;
MYCOMP C(40) NOT NULL, ;
MYADD C(50) NOT NULL, ;
MYTEL C(30) NOT NULL, ;
MYPOST C(8) NOT NULL, ;
MYACNT C(40) NOT NULL, ;
MYNSH C(18) NOT NULL, ;
MYFONT C(23) NOT NULL, ;
MYSIZE N(3, 0) NOT NULL, ;
D1_1 N(2, 0) NOT NULL, ;
D1_2 C(15) NOT NULL)
***** 创建每一索引为 DATA0 *****
***** 改变属性为 DATA0 *****
ENDFUNC
FUNCTION MakeTable_DATA1
***** 建立表为DATA1 *****
CREATE TABLE m_path+'DATA1.DBF' NAME 'DATA1' (USER C(8) NOT NULL, ;
CODE C(6) NOT NULL, ;
CODE1 C(6) NOT NULL, ;
CODE2 N(1, 0) NOT NULL, ;
CODE3 C(10) NOT NULL, ;
CODE4 C(10) NOT NULL, ;
CODE_1 C(28) NOT NULL, ;
CODE_2 C(10) NOT NULL, ;
CODE_3 C(10) NOT NULL, ;
CODE_4 C(10) NOT NULL, ;
CODE_5 C(10) NOT NULL, ;
CODE_6 C(10) NOT NULL, ;
CODE_7 C(10) NOT NULL, ;
CODE_8 C(10) NOT NULL, ;
CODE_9 C(10) NOT NULL)
***** 创建每一索引为 DATA1 *****
***** 改变属性为 DATA1 *****
ENDFUNC
FUNCTION MakeTable_DATA10
***** 建立表为DATA10 *****
CREATE TABLE m_path+'DATA10.DBF' NAME 'DATA10' (MS C(10) NOT NULL, ;
CK C(8) NOT NULL, ;
DW C(20) NOT NULL, ;
BHF L NOT NULL, ;
SSF L NOT NULL, ;
BZF L NOT NULL, ;
DZF L NOT NULL, ;
DZ C(40) NOT NULL, ;
DHF L NOT NULL, ;
DH C(40) NOT NULL, ;
HBF L NOT NULL, ;
JBRF L NOT NULL, ;
ZKF L NOT NULL)
***** 创建每一索引为 DATA10 *****
***** 改变属性为 DATA10 *****
ENDFUNC
FUNCTION MakeTable_DATA12
***** 建立表为DATA12 *****
CREATE TABLE m_path+'DATA12.DBF' NAME 'DATA12' (M_NAME C(16) NOT NULL, ;
IO_1 N(1, 0) NOT NULL, ;
TITLE C(28) NOT NULL, ;
UP1_1 C(9) NOT NULL, ;
UP1_2 N(2, 0) NOT NULL, ;
UP2_1 C(9) NOT NULL, ;
UP2_2 N(2, 0) NOT NULL, ;
UP3_1 C(9) NOT NULL, ;
UP3_2 N(2, 0) NOT NULL, ;
UP4_1 C(9) NOT NULL, ;
UP4_2 N(2, 0) NOT NULL, ;
UP5_1 C(9) NOT NULL, ;
UP5_2 N(2, 0) NOT NULL, ;
UP6_1 C(9) NOT NULL, ;
UP6_2 N(2, 0) NOT NULL, ;
UP7_1 C(9) NOT NULL, ;
UP7_2 N(2, 0) NOT NULL, ;
UP8_1 C(9) NOT NULL, ;
UP8_2 N(2, 0) NOT NULL, ;
MEMO_1 M NOT NULL)
***** 创建每一索引为 DATA12 *****
***** 改变属性为 DATA12 *****
ENDFUNC
FUNCTION MakeTable_DATA13
***** 建立表为DATA13 *****
CREATE TABLE m_path+'DATA13.DBF' NAME 'DATA13' (DH N(3, 0) NOT NULL, ;
CPBM C(15) NOT NULL, ;
HPBM C(15) NOT NULL, ;
HPPM C(36) NOT NULL, ;
HPDW C(4) NOT NULL, ;
SL N(7, 0) NOT NULL, ;
HPSL N(7, 0) NOT NULL, ;
RQ1 D NOT NULL, ;
ZY C(10) NOT NULL)
***** 创建每一索引为 DATA13 *****
SET COLLATE TO 'MACHINE'
INDEX ON DH TAG DH FOR .NOT.DELETED() UNIQUE
***** 改变属性为 DATA13 *****
ENDFUNC
FUNCTION MakeTable_DATA14
***** 建立表为DATA14 *****
CREATE TABLE m_path+'DATA14.DBF' NAME 'DATA14' (TYPES N(1, 0) NOT NULL, ;
NAMES C(30) NOT NULL, ;
MEMOS C(52) NOT NULL)
***** 创建每一索引为 DATA14 *****
***** 改变属性为 DATA14 *****
ENDFUNC
FUNCTION MakeTable_DATA15
***** 建立表为DATA15 *****
CREATE TABLE m_path+'DATA15.DBF' NAME 'DATA15' (MACHINE C(2) NOT NULL, ;
USER C(10) NOT NULL, ;
MODEL1 C(15) NOT NULL, ;
MODEL2 C(15) NOT NULL, ;
INDATE D NOT NULL, ;
INTIME C(8) NOT NULL, ;
OUTIME C(8) NOT NULL, ;
RIGHT L NOT NULL, ;
CHKMEMO C(30) NOT NULL)
***** 创建每一索引为 DATA15 *****
***** 改变属性为 DATA15 *****
ENDFUNC
FUNCTION MakeTable_DATA2
***** 建立表为DATA2 *****
CREATE TABLE m_path+'DATA2.DBF' NAME 'DATA2' (HPBM C(15) NOT NULL, ;
HPPM C(36) NOT NULL, ;
HPDW C(4) NOT NULL, ;
HPFL C(10) NOT NULL, ;
HPBJ N(11, 2) NOT NULL, ;
CBDJ N(11, 2) NOT NULL, ;
HPSL N(9, 0) NOT NULL, ;
XLF L NOT NULL, ;
HPDX N(7, 0) NOT NULL, ;
HPSX N(7, 0) NOT NULL, ;
HPRQ D NOT NULL, ;
HPMM M NOT NULL)
***** 创建每一索引为 DATA2 *****
SET COLLATE TO 'MACHINE'
INDEX ON HPBM TAG HPBM
INDEX ON HPPM TAG HPPM
***** 改变属性为 DATA2 *****
ENDFUNC
FUNCTION MakeTable_DATA4
***** 建立表为DATA4 *****
CREATE TABLE m_path+'DATA4.DBF' NAME 'DATA4' (HPCK C(8) NOT NULL, ;
HPHW C(8) NOT NULL, ;
CKBZ C(20) NOT NULL)
***** 创建每一索引为 DATA4 *****
***** 改变属性为 DATA4 *****
ENDFUNC
FUNCTION MakeTable_DATA3
***** 建立表为DATA3 *****
CREATE TABLE m_path+'DATA3.DBF' NAME 'DATA3' (HBMC C(8) NOT NULL, ;
HBDM C(3) NOT NULL, ;
HBDL N(8, 4) NOT NULL, ;
HBRQ D NOT NULL)
***** 创建每一索引为 DATA3 *****
***** 改变属性为 DATA3 *****
ENDFUNC
FUNCTION MakeTable_DATA6
***** 建立表为DATA6 *****
CREATE TABLE m_path+'DATA6.DBF' NAME 'DATA6' (GRAPHNAME C(10) NOT NULL, ;
OLEGRAPH G NOT NULL)
***** 创建每一索引为 DATA6 *****
***** 改变属性为 DATA6 *****
ENDFUNC
FUNCTION MakeTable_DATA5
***** 建立表为DATA5 *****
CREATE TABLE m_path+'DATA5.DBF' NAME 'DATA5' (TYPE N(2, 0) NOT NULL, ;
IO N(1, 0) NOT NULL, ;
JZRQ D NOT NULL, ;
PDHM C(10) NOT NULL, ;
DFDW C(20) NOT NULL, ;
FPHM C(8) NOT NULL, ;
HPCK C(8) NOT NULL, ;
HPBM C(15) NOT NULL, ;
HPSL N(7, 0) NOT NULL, ;
HPYB C(3) NOT NULL, ;
HPYJ N(11, 2) NOT NULL, ;
HPYE N(12, 2) NOT NULL, ;
HPJE N(12, 2) NOT NULL, ;
SUILV N(6, 4) NOT NULL, ;
YBNSF L NOT NULL, ;
CBDJ N(11, 2) NOT NULL, ;
HPCB N(12, 2) NOT NULL, ;
HPZY C(10) NOT NULL, ;
JBR C(8) NOT NULL, ;
SHR C(8) NOT NULL, ;
MON D NOT NULL, ;
SIGN C(10) NOT NULL, ;
HPPM C(36) NOT NULL, ;
HPDW C(4) NOT NULL, ;
HPFL C(10) NOT NULL, ;
MYSIZE N(3, 0) NOT NULL, ;
JLMM M NOT NULL)
***** 创建每一索引为 DATA5 *****
SET COLLATE TO 'PINYIN'
INDEX ON PDHM TAG PDHM UNIQUE
INDEX ON HPBM+DTOC(JZRQ) TAG JZRQ
INDEX ON HPBM+DTOC(JZRQ) TAG JZRQ2 DESCENDING
INDEX ON JZRQ TAG RK FOR TYPE=1
INDEX ON JZRQ TAG CK FOR TYPE=2
INDEX ON JZRQ TAG DK FOR IO=3
INDEX ON JZRQ TAG PD FOR TYPE=5
***** 改变属性为 DATA5 *****
ENDFUNC
FUNCTION MakeTable_DATA7
***** 建立表为DATA7 *****
CREATE TABLE m_path+'DATA7.DBF' NAME 'DATA7' (DFDW C(20) NOT NULL, ;
DWMC C(40) NOT NULL, ;
DWTYPE N(1, 0) NOT NULL, ;
JUDGE L NOT NULL, ;
NO C(8) NOT NULL, ;
COMPADD C(36) NOT NULL, ;
TELPHONE C(20) NOT NULL, ;
POSTCODE C(8) NOT NULL, ;
COMPACNT C(40) NOT NULL, ;
NAME C(8) NOT NULL, ;
NSH C(18) NOT NULL, ;
XYL N(13, 2) NOT NULL, ;
LQL N(13, 2) NOT NULL, ;
XSL N(13, 2) NOT NULL, ;
ZKL N(4, 2) NOT NULL, ;
KHMEMO M NOT NULL, ;
XYQ D NOT NULL)
***** 创建每一索引为 DATA7 *****
SET COLLATE TO 'MACHINE'
INDEX ON DFDW TAG DFDW
INDEX ON NO TAG NO
***** 改变属性为 DATA7 *****
ENDFUNC
FUNCTION MakeTable_DATA8
***** 建立表为DATA8 *****
CREATE TABLE m_path+'DATA8.DBF' NAME 'DATA8' (HPZY C(10) NOT NULL, ;
NO N(3, 0) NOT NULL)
***** 创建每一索引为 DATA8 *****
SET COLLATE TO 'MACHINE'
INDEX ON NO TAG NO
***** 改变属性为 DATA8 *****
ENDFUNC
FUNCTION MakeTable_DATA9
***** 建立表为DATA9 *****
CREATE TABLE m_path+'DATA9.DBF' NAME 'DATA9' (JZRQ D NOT NULL, ;
DFDW C(20) NOT NULL, ;
TYPE2 N(1, 0) NOT NULL, ;
ZJKE1 N(12, 2) NOT NULL, ;
ZJKE2 N(12, 2) NOT NULL, ;
ZJBZ C(10) NOT NULL, ;
SIGN C(10) NOT NULL, ;
ZJBZ2 C(20) NOT NULL, ;
ZJF1 L NOT NULL)
***** 创建每一索引为 DATA9 *****
SET COLLATE TO 'MACHINE'
INDEX ON DFDW+DTOC(JZRQ) TAG JZRQ
***** 改变属性为 DATA9 *****
ENDFUNC
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -