laData[17, 1] = ’AJOHNSON’
laData[17, 2] = ’Johnson’
laData[17, 3] = ’Andrew’
laData[18, 1] = ’UGRANT’
laData[18, 2] = ’Grant’
laData[18, 3] = ’Ulysses’
laData[19, 1] = ’RHAYES’
laData[19, 2] = ’Hayes’
laData[19, 3] = ’Rutherford’
laData[20, 1] = ’JGARFIEL’
laData[20, 2] = ’Garfield’
laData[20, 3] = ’James’
laData[21, 1] = ’CARTHUR’
laData[21, 2] = ’Arthur’
laData[21, 3] = ’Chester’
laData[22, 1] = ’GCLEVELA’
laData[22, 2] = ’Cleveland’
laData[22, 3] = ’Grover’
laData[23, 1] = ’BHARRISO’
laData[23, 2] = ’Harrison’
laData[23, 3] = ’Benjamin’
laData[24, 1] = ’WMCKINLE’
laData[24, 2] = ’McKinley’
laData[24, 3] = ’William’
laData[25, 1] = ’TROOSEVE’
laData[25, 2] = ’Roosevelt’
laData[25, 3] = ’Theodore’
laData[26, 1] = ’WTAFT’
laData[26, 2] = ’Taft’
laData[26, 3] = ’William’
laData[27, 1] = ’WWILSON’
laData[27, 2] = ’Wilson’
laData[27, 3] = ’Woodrow’
laData[28, 1] = ’WHARDING’
laData[28, 2] = ’Harding’
laData[28, 3] = ’Warren’
laData[29, 1] = ’CCOOLIDG’
laData[29, 2] = ’Coolidge’
laData[29, 3] = ’Calvin’
laData[30, 1] = ’HHOOVER’
laData[30, 2] = ’Hoover’
laData[30, 3] = ’Herbert’
laData[31, 1] = ’FROOSEVE’
laData[31, 2] = ’Roosevelt’
laData[31, 3] = ’Franklin’
laData[32, 1] = ’HTRUMAN’
laData[32, 2] = ’Truman’
laData[32, 3] = ’Harry’
laData[33, 1] = ’DEISENHO’
laData[33, 2] = ’Eisenhower’
laData[33, 3] = ’Dwight’
laData[34, 1] = ’JKENNEDY’
laData[34, 2] = ’Kennedy’
laData[34, 3] = ’John’
laData[35, 1] = ’LJOHNSON’
laData[35, 2] = ’Johnson’
laData[35, 3] = ’Lyndon’
laData[36, 1] = ’RNIXON’
laData[36, 2] = ’Nixon’
laData[36, 3] = ’Richard’
laData[37, 1] = ’GFORD’
laData[37, 2] = ’Ford’
laData[37, 3] = ’Gerald’
laData[38, 1] = ’JCARTER’
laData[38, 2] = ’Carter’
laData[38, 3] = ’James’
laData[39, 1] = ’RREAGAN’
laData[39, 2] = ’Reagan’
laData[39, 3] = ’Ronald’
laData[40, 1] = ’GBUSH’
laData[40, 2] = ’Bush’
laData[40, 3] = ’George’
laData[41, 1] = ’WCLINTON’
laData[41, 2] = ’Clinton’
laData[41, 3] = ’William’
laData[42, 1] = ’GWBUSH’
laData[42, 2] = ’Bush’
laData[42, 3] = ’George W’
LOCAL lnI, lcSQL
PRIVATE pcLoginID, pcLastName, pcFirstName, pcUpdated_By
pcUpdated_By = "InsTest"
FOR lnI = 1 TO 42
pcLoginID = laData(lnI, 1)
pcLastName = laData(lnI, 2)
pcFirstName = laData(lnI, 3)
lcSQL = "begin MARK.PrezInsert" ;
+ "(cLoginID=>?pcLoginID," ;
+ " cFirstName=>?pcFirstName," ;
+ " cLastName=>?pcLastName," ;
+ " cUpdated_By=>?pcUpdated_By); end;"
THIS.RunSQL(lcSQL)
ENDFOR
ENDPROC
PROTECTED PROCEDURE RunSQL
LPARAMETERS pcSQL
LOCAL lnRetVal
lnRetVal = SQLEXEC(THIS.nHandle, pcSQL)
IF lnRetVal < 0
AERROR(laError)
?
? pcSQL
?
DISPLAY MEMORY LIKE laErr*
ENDIF
RETURN lnRetVal > 0
ENDPROC
ENDDEFINE
上一页 [1] [2] [3]
责任编辑：小草
