/ Liren Large Software Subsidy 5
/ 05.iso / a / a108 / 15.ddi / CASCDLG.SC_ / CASCDLG.bin ![]() |
Unknown | 1994-03-10 | 5.1 KB |
Confidence | Program | Detection | Match Type | Support |
---|---|---|---|---|
66% | dexvert | AMOS Picture Packer (image/amosPicturePacker) | ext | Supported |
1% | dexvert | Debian floppy split (archive/debianFloppySplit) | ext | Unsupported |
1% | dexvert | Sound Images sound sample (audio/soundImagesSoundSample) | ext | Unsupported |
1% | dexvert | STarKos tune (music/sTarKosTune) | ext | Unsupported |
1% | dexvert | CADVANCE drawing (image/cadvanceDrawing) | ext | Unsupported |
1% | dexvert | DESI-III drawing (image/desiIIIDrawing) | ext | Unsupported |
1% | dexvert | MS-DOS PMODE extender executable (executable/msdosPMODEExtenderExecutable) | ext | Unsupported |
1% | dexvert | Alien Trilogytextures (other/alienTrilogyTextures) | ext | Unsupported |
1% | dexvert | APT cache data (other/aptCacheData) | ext | Unsupported |
1% | dexvert | CADVANCE 2D symbol (other/cadvance2DSymbol) | ext | Unsupported |
1% | dexvert | Cakewalk Groove (other/cakewalkGroove) | ext | Unsupported |
1% | dexvert | Comic Book Creator Background (other/comicBookCreatorBackground) | ext | Unsupported |
1% | dexvert | Comic Book Creator shape Table (other/comicBookCreatorShapeTable) | ext | Unsupported |
1% | dexvert | CorelTRACE configuration (other/corelTRACEConfiguration) | ext | Unsupported |
1% | dexvert | Dreamcast Disc (other/dreamcastDisc) | ext | Unsupported |
1% | dexvert | EST flat binary (other/estFlatBinary) | ext | Unsupported |
1% | dexvert | Finale Enigma Binary Format (other/finaleEnigmaBinaryFormat) | ext | Unsupported |
1% | dexvert | Sega Genesis/Megadrive/32x ROM (other/genesisROM) | ext | Unsupported |
1% | dexvert | Myth: The Fallen Lords game archive (other/mythTheFallenLordsGameArchive) | ext | Unsupported |
1% | dexvert | Sega Saturn ROM (other/segaSaturnROM) | ext | Unsupported |
1% | dexvert | Sound Images Sound Driver (other/soundImagesSoundDriver) | ext | Unsupported |
1% | dexvert | Symantec/Norton Config (other/symantecNortonConfig) | ext | Unsupported |
1% | dexvert | Vectrex ROM (other/vectrexROM) | ext | Unsupported |
1% | dexvert | Adrenaline Rush Hour game data (other/adrenalineRushHourGameData) | ext | Unsupported |
1% | dexvert | Bandai Tamagochi game data (other/bandaiTamagochiGameData) | ext | Unsupported |
1% | dexvert | BIS raP encoded format (other/bisraPEncoded) | ext | Unsupported |
1% | dexvert | Linksys RT31P2-NA firmware (other/linksysRT31P2NAFirmware) | ext | Unsupported |
1% | dexvert | Pascal Script binary (other/pascalScriptBinary) | ext | Unsupported |
1% | dexvert | 7th Level game data archive (other/seventhLevelGameDataArchive) | ext | Unsupported |
1% | dexvert | Star Wars Galaxies TRE archive (other/starWarsGalaxiesTREArchive) | ext | Unsupported |
1% | dexvert | Statistica MFM data (other/statisticaMFMData) | ext | Unsupported |
1% | dexvert | Surf's Up game data archive (other/surfsUpGameDataArchive) | ext | Unsupported |
1% | dexvert | TP-Link router firmware (other/tpLinkRouterFirmware) | ext | Unsupported |
1% | dexvert | Binary Text (image/binaryText) | fallback | Supported |
100% | file | Adobe Photoshop Color swatch, version 0, 160 colors; 1st RGB space (0), w 0x21, x 0, y 0, z 0 ; 2nd RGB space (0), w 0, x 0, y 0, z 0 | default (weak) | |
99% | file | data | default | |
50% | TrID | MacBinary 1 | default (weak) | |
49% | TrID | Adobe PhotoShop Brush | default (weak) | |
100% | siegfried | x-fmt/342 Microsoft FoxPro Memo | default (weak) |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 a0 00 00 00 21 | 00 00 00 00 00 00 00 00 |.......!|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 01 00 00 00 07 | 43 41 53 43 41 44 45 00 |........|CASCADE.|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 01 00 00 00 | 0d 4d 53 20 53 61 6e 73 |........|.MS Sans|
|00000240| 20 53 65 72 69 66 00 00 | 00 00 00 00 00 00 00 00 | Serif..|........|
|00000250| 00 00 00 00 00 01 00 00 | 00 13 22 45 6e 68 61 6e |........|.."Enhan|
|00000260| 63 65 64 20 44 65 6c 65 | 74 69 6f 6e 22 00 00 00 |ced Dele|tion"...|
|00000270| 00 00 00 00 00 00 01 00 | 00 02 22 23 54 52 41 4e |........|.."#TRAN|
|00000280| 20 53 4e 49 50 50 45 54 | 20 4f 4e 4c 59 0d 0a 23 | SNIPPET| ONLY..#|
|00000290| 53 45 43 54 49 4f 4e 20 | 31 0d 0a 50 41 52 41 4d |SECTION |1..PARAM|
|000002a0| 45 54 45 52 53 20 74 68 | 69 73 44 42 46 0d 0a 0d |ETERS th|isDBF...|
|000002b0| 0a 2a 20 47 65 74 20 74 | 68 65 20 73 74 65 6d 20 |.* Get t|he stem |
|000002c0| 6e 61 6d 65 73 20 6f 66 | 20 74 68 65 20 70 61 72 |names of| the par|
|000002d0| 65 6e 74 20 61 6e 64 20 | 63 68 69 6c 64 20 64 61 |ent and |child da|
|000002e0| 74 61 62 61 73 65 73 2e | 20 20 54 68 65 73 65 20 |tabases.| These |
|000002f0| 61 72 65 20 75 73 65 64 | 0d 0a 2a 20 69 6e 20 74 |are used|..* in t|
|00000300| 68 65 20 70 72 6f 6d 70 | 74 20 66 6f 72 20 63 61 |he promp|t for ca|
|00000310| 73 63 61 64 69 6e 67 20 | 64 65 6c 65 74 65 73 2e |scading |deletes.|
|00000320| 0d 0a 0d 0a 2a 20 54 61 | 6b 65 20 70 61 72 65 6e |....* Ta|ke paren|
|00000330| 74 20 6e 61 6d 65 20 66 | 72 6f 6d 20 77 68 61 74 |t name f|rom what|
|00000340| 65 76 65 72 20 68 61 73 | 20 62 65 65 6e 20 73 65 |ever has| been se|
|00000350| 6c 65 63 74 65 64 20 69 | 6e 20 74 68 65 20 70 61 |lected i|n the pa|
|00000360| 72 65 6e 74 20 66 69 65 | 6c 64 20 0d 0a 2a 20 70 |rent fie|ld ..* p|
|00000370| 6f 70 75 70 20 73 6f 20 | 66 61 72 2e 0d 0a 6d 2e |opup so |far...m.|
|00000380| 63 5f 70 61 72 65 6e 74 | 20 3d 20 22 70 61 72 65 |c_parent| = "pare|
|00000390| 6e 74 22 0d 0a 49 46 20 | 41 54 28 27 28 27 2c 6d |nt"..IF |AT('(',m|
|000003a0| 2e 70 61 72 65 6e 74 66 | 6c 64 29 20 3e 20 30 0d |.parentf|ld) > 0.|
|000003b0| 0a 20 20 20 6d 2e 63 5f | 70 61 72 65 6e 74 20 3d |. m.c_|parent =|
|000003c0| 20 41 4c 4c 54 52 49 4d | 28 53 55 42 53 54 52 28 | ALLTRIM|(SUBSTR(|
|000003d0| 6d 2e 70 61 72 65 6e 74 | 66 6c 64 2c 31 2c 4c 45 |m.parent|fld,1,LE|
|000003e0| 4e 28 54 52 49 4d 28 6d | 2e 70 61 72 65 6e 74 66 |N(TRIM(m|.parentf|
|000003f0| 6c 64 29 29 2d 33 29 29 | 0d 0a 20 20 20 6d 2e 63 |ld))-3))|.. m.c|
|00000400| 5f 70 61 72 65 6e 74 20 | 3d 20 50 72 6f 70 65 72 |_parent |= Proper|
|00000410| 28 6a 75 73 74 73 74 65 | 6d 28 6d 2e 63 5f 70 61 |(justste|m(m.c_pa|
|00000420| 72 65 6e 74 29 29 0d 0a | 45 4e 44 49 46 0d 0a 6d |rent))..|ENDIF..m|
|00000430| 2e 63 5f 63 68 69 6c 64 | 20 20 3d 20 50 72 6f 70 |.c_child| = Prop|
|00000440| 65 72 28 6a 75 73 74 73 | 74 65 6d 28 6d 2e 63 68 |er(justs|tem(m.ch|
|00000450| 69 6c 64 64 62 66 29 29 | 0d 0a 0d 0a 6d 2e 63 61 |ilddbf))|....m.ca|
|00000460| 73 63 64 65 6c 20 3d 20 | 28 64 62 66 6c 69 73 74 |scdel = |(dbflist|
|00000470| 5b 6d 2e 64 62 66 73 65 | 6c 65 63 2c 6d 2e 63 61 |[m.dbfse|lec,m.ca|
|00000480| 73 63 61 64 65 6e 75 6d | 5d 20 3d 3d 20 27 59 27 |scadenum|] == 'Y'|
|00000490| 29 0d 0a 23 53 45 43 54 | 49 4f 4e 20 32 00 00 00 |)..#SECT|ION 2...|
|000004a0| 00 00 00 00 00 00 00 01 | 00 00 00 0d 4d 53 20 53 |........|....MS S|
|000004b0| 61 6e 73 20 53 65 72 69 | 66 00 00 00 00 00 00 00 |ans Seri|f.......|
|000004c0| 00 00 00 00 00 00 00 00 | 01 00 00 00 07 6f 6b 63 |........|.....okc|
|000004d0| 61 6e 63 6c 00 00 00 00 | 00 00 00 00 00 00 00 00 |ancl....|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 18 22 40 |........|......"@|
|000004f0| 2a 48 54 20 5c 21 5c 3c | 4f 4b 3b 5c 3f 5c 3c 43 |*HT \!\<|OK;\?\<C|
|00000500| 61 6e 63 65 6c 22 00 00 | 00 00 01 00 00 00 95 49 |ancel"..|.......I|
|00000510| 46 20 6f 6b 63 61 6e 63 | 6c 20 3d 20 31 0d 0a 20 |F okcanc|l = 1.. |
|00000520| 20 20 49 46 20 6d 2e 63 | 61 73 63 64 65 6c 0d 0a | IF m.c|ascdel..|
|00000530| 20 20 20 20 20 20 64 62 | 66 6c 69 73 74 5b 6d 2e | db|flist[m.|
|00000540| 64 62 66 73 65 6c 65 63 | 2c 6d 2e 63 61 73 63 61 |dbfselec|,m.casca|
|00000550| 64 65 6e 75 6d 5d 20 3d | 20 27 59 27 0d 0a 20 20 |denum] =| 'Y'.. |
|00000560| 20 45 4c 53 45 0d 0a 20 | 20 20 20 20 20 64 62 66 | ELSE.. | dbf|
|00000570| 6c 69 73 74 5b 6d 2e 64 | 62 66 73 65 6c 65 63 2c |list[m.d|bfselec,|
|00000580| 6d 2e 63 61 73 63 61 64 | 65 6e 75 6d 5d 20 3d 20 |m.cascad|enum] = |
|00000590| 27 4e 27 0d 0a 20 20 20 | 45 4e 44 49 46 0d 0a 45 |'N'.. |ENDIF..E|
|000005a0| 4e 44 49 46 00 00 00 00 | 00 00 00 00 00 00 00 01 |NDIF....|........|
|000005b0| 00 00 00 04 22 4f 4b 22 | 00 00 00 00 00 00 00 00 |...."OK"|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 01 00 00 00 0d 4d 53 20 | 53 61 6e 73 20 53 65 72 |.....MS |Sans Ser|
|000005e0| 69 66 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |if......|........|
|000005f0| 00 01 00 00 00 25 22 57 | 68 65 6e 20 61 20 26 63 |.....%"W|hen a &c|
|00000600| 5f 70 61 72 65 6e 74 20 | 52 65 63 6f 72 64 20 69 |_parent |Record i|
|00000610| 73 20 44 65 6c 65 74 65 | 64 3f 22 00 00 00 00 00 |s Delete|d?".....|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 01 00 00 00 07 | 63 61 73 63 64 65 6c 00 |........|cascdel.|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 01 00 00 00 | 0d 4d 53 20 53 61 6e 73 |........|.MS Sans|
|00000660| 20 53 65 72 69 66 00 00 | 00 00 00 00 00 00 00 00 | Serif..|........|
|00000670| 00 00 00 00 00 01 00 00 | 00 2b 22 40 2a 43 20 41 |........|.+"@*C A|
|00000680| 75 74 6f 6d 61 74 69 63 | 61 6c 6c 79 20 44 65 6c |utomatic|ally Del|
|00000690| 65 74 65 20 26 63 5f 63 | 68 69 6c 64 20 52 65 63 |ete &c_c|hild Rec|
|000006a0| 6f 72 64 73 22 00 00 00 | 00 00 00 00 00 00 00 00 |ords"...|........|
|000006b0| 00 00 00 00 00 00 00 01 | 00 00 00 0d 4d 53 20 53 |........|....MS S|
|000006c0| 61 6e 73 20 53 65 72 69 | 66 00 00 00 00 00 00 00 |ans Seri|f.......|
|000006d0| 00 00 00 00 00 00 00 00 | 01 00 00 00 07 43 41 53 |........|.....CAS|
|000006e0| 43 41 44 45 00 00 00 00 | 00 00 00 00 00 00 00 00 |CADE....|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 13 22 45 |........|......"E|
|00000700| 6e 68 61 6e 63 65 64 20 | 44 65 6c 65 74 69 6f 6e |nhanced |Deletion|
|00000710| 22 00 00 00 00 00 00 00 | 00 00 01 00 00 00 0d 4d |".......|.......M|
|00000720| 53 20 53 61 6e 73 20 53 | 65 72 69 66 00 00 00 00 |S Sans S|erif....|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 02 22 |........|......."|
|00000740| 23 54 52 41 4e 20 53 4e | 49 50 50 45 54 20 4f 4e |#TRAN SN|IPPET ON|
|00000750| 4c 59 0d 0a 23 53 45 43 | 54 49 4f 4e 20 31 0d 0a |LY..#SEC|TION 1..|
|00000760| 50 41 52 41 4d 45 54 45 | 52 53 20 74 68 69 73 44 |PARAMETE|RS thisD|
|00000770| 42 46 0d 0a 0d 0a 2a 20 | 47 65 74 20 74 68 65 20 |BF....* |Get the |
|00000780| 73 74 65 6d 20 6e 61 6d | 65 73 20 6f 66 20 74 68 |stem nam|es of th|
|00000790| 65 20 70 61 72 65 6e 74 | 20 61 6e 64 20 63 68 69 |e parent| and chi|
|000007a0| 6c 64 20 64 61 74 61 62 | 61 73 65 73 2e 20 20 54 |ld datab|ases. T|
|000007b0| 68 65 73 65 20 61 72 65 | 20 75 73 65 64 0d 0a 2a |hese are| used..*|
|000007c0| 20 69 6e 20 74 68 65 20 | 70 72 6f 6d 70 74 20 66 | in the |prompt f|
|000007d0| 6f 72 20 63 61 73 63 61 | 64 69 6e 67 20 64 65 6c |or casca|ding del|
|000007e0| 65 74 65 73 2e 0d 0a 0d | 0a 2a 20 54 61 6b 65 20 |etes....|.* Take |
|000007f0| 70 61 72 65 6e 74 20 6e | 61 6d 65 20 66 72 6f 6d |parent n|ame from|
|00000800| 20 77 68 61 74 65 76 65 | 72 20 68 61 73 20 62 65 | whateve|r has be|
|00000810| 65 6e 20 73 65 6c 65 63 | 74 65 64 20 69 6e 20 74 |en selec|ted in t|
|00000820| 68 65 20 70 61 72 65 6e | 74 20 66 69 65 6c 64 20 |he paren|t field |
|00000830| 0d 0a 2a 20 70 6f 70 75 | 70 20 73 6f 20 66 61 72 |..* popu|p so far|
|00000840| 2e 0d 0a 6d 2e 63 5f 70 | 61 72 65 6e 74 20 3d 20 |...m.c_p|arent = |
|00000850| 22 70 61 72 65 6e 74 22 | 0d 0a 49 46 20 41 54 28 |"parent"|..IF AT(|
|00000860| 27 28 27 2c 6d 2e 70 61 | 72 65 6e 74 66 6c 64 29 |'(',m.pa|rentfld)|
|00000870| 20 3e 20 30 0d 0a 20 20 | 20 6d 2e 63 5f 70 61 72 | > 0.. | m.c_par|
|00000880| 65 6e 74 20 3d 20 41 4c | 4c 54 52 49 4d 28 53 55 |ent = AL|LTRIM(SU|
|00000890| 42 53 54 52 28 6d 2e 70 | 61 72 65 6e 74 66 6c 64 |BSTR(m.p|arentfld|
|000008a0| 2c 31 2c 4c 45 4e 28 54 | 52 49 4d 28 6d 2e 70 61 |,1,LEN(T|RIM(m.pa|
|000008b0| 72 65 6e 74 66 6c 64 29 | 29 2d 33 29 29 0d 0a 20 |rentfld)|)-3)).. |
|000008c0| 20 20 6d 2e 63 5f 70 61 | 72 65 6e 74 20 3d 20 50 | m.c_pa|rent = P|
|000008d0| 72 6f 70 65 72 28 6a 75 | 73 74 73 74 65 6d 28 6d |roper(ju|ststem(m|
|000008e0| 2e 63 5f 70 61 72 65 6e | 74 29 29 0d 0a 45 4e 44 |.c_paren|t))..END|
|000008f0| 49 46 0d 0a 6d 2e 63 5f | 63 68 69 6c 64 20 20 3d |IF..m.c_|child =|
|00000900| 20 50 72 6f 70 65 72 28 | 6a 75 73 74 73 74 65 6d | Proper(|juststem|
|00000910| 28 6d 2e 63 68 69 6c 64 | 64 62 66 29 29 0d 0a 0d |(m.child|dbf))...|
|00000920| 0a 6d 2e 63 61 73 63 64 | 65 6c 20 3d 20 28 64 62 |.m.cascd|el = (db|
|00000930| 66 6c 69 73 74 5b 6d 2e | 64 62 66 73 65 6c 65 63 |flist[m.|dbfselec|
|00000940| 2c 6d 2e 63 61 73 63 61 | 64 65 6e 75 6d 5d 20 3d |,m.casca|denum] =|
|00000950| 3d 20 27 59 27 29 0d 0a | 23 53 45 43 54 49 4f 4e |= 'Y')..|#SECTION|
|00000960| 20 32 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 | 2......|........|
|00000970| 07 6f 6b 63 61 6e 63 6c | 00 00 00 00 00 00 00 00 |.okcancl|........|
|00000980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000990| 00 18 22 40 2a 48 54 20 | 5c 21 5c 3c 4f 4b 3b 5c |.."@*HT |\!\<OK;\|
|000009a0| 3f 5c 3c 43 61 6e 63 65 | 6c 22 00 00 00 00 01 00 |?\<Cance|l"......|
|000009b0| 00 00 0d 4d 53 20 53 61 | 6e 73 20 53 65 72 69 66 |...MS Sa|ns Serif|
|000009c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000009d0| 00 00 00 95 49 46 20 6f | 6b 63 61 6e 63 6c 20 3d |....IF o|kcancl =|
|000009e0| 20 31 0d 0a 20 20 20 49 | 46 20 6d 2e 63 61 73 63 | 1.. I|F m.casc|
|000009f0| 64 65 6c 0d 0a 20 20 20 | 20 20 20 64 62 66 6c 69 |del.. | dbfli|
|00000a00| 73 74 5b 6d 2e 64 62 66 | 73 65 6c 65 63 2c 6d 2e |st[m.dbf|selec,m.|
|00000a10| 63 61 73 63 61 64 65 6e | 75 6d 5d 20 3d 20 27 59 |cascaden|um] = 'Y|
|00000a20| 27 0d 0a 20 20 20 45 4c | 53 45 0d 0a 20 20 20 20 |'.. EL|SE.. |
|00000a30| 20 20 64 62 66 6c 69 73 | 74 5b 6d 2e 64 62 66 73 | dbflis|t[m.dbfs|
|00000a40| 65 6c 65 63 2c 6d 2e 63 | 61 73 63 61 64 65 6e 75 |elec,m.c|ascadenu|
|00000a50| 6d 5d 20 3d 20 27 4e 27 | 0d 0a 20 20 20 45 4e 44 |m] = 'N'|.. END|
|00000a60| 49 46 0d 0a 45 4e 44 49 | 46 00 00 00 00 00 00 00 |IF..ENDI|F.......|
|00000a70| 00 00 00 00 01 00 00 00 | 04 22 4f 4b 22 00 00 00 |........|."OK"...|
|00000a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a90| 00 00 00 00 00 01 00 00 | 00 25 22 57 68 65 6e 20 |........|.%"When |
|00000aa0| 61 20 26 63 5f 70 61 72 | 65 6e 74 20 52 65 63 6f |a &c_par|ent Reco|
|00000ab0| 72 64 20 69 73 20 44 65 | 6c 65 74 65 64 3f 22 00 |rd is De|leted?".|
|00000ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ad0| 00 00 00 00 00 00 00 01 | 00 00 00 0d 4d 53 20 53 |........|....MS S|
|00000ae0| 61 6e 73 20 53 65 72 69 | 66 00 00 00 00 00 00 00 |ans Seri|f.......|
|00000af0| 00 00 00 00 00 00 00 00 | 01 00 00 00 07 63 61 73 |........|.....cas|
|00000b00| 63 64 65 6c 00 00 00 00 | 00 00 00 00 00 00 00 00 |cdel....|........|
|00000b10| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 2b 22 40 |........|.....+"@|
|00000b20| 2a 43 20 41 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |*C Autom|atically|
|00000b30| 20 44 65 6c 65 74 65 20 | 26 63 5f 63 68 69 6c 64 | Delete |&c_child|
|00000b40| 20 52 65 63 6f 72 64 73 | 22 00 00 00 00 00 00 00 | Records|".......|
|00000b50| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0d |........|........|
|00000b60| 4d 53 20 53 61 6e 73 20 | 53 65 72 69 66 00 00 00 |MS Sans |Serif...|
|00000b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000b80| 0d 4d 53 20 53 61 6e 73 | 20 53 65 72 69 66 00 00 |.MS Sans| Serif..|
|00000b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000ba0| 00 07 43 41 53 43 41 44 | 45 00 00 00 00 00 00 00 |..CASCAD|E.......|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000bc0| 00 00 13 22 45 6e 68 61 | 6e 63 65 64 20 44 65 6c |..."Enha|nced Del|
|00000bd0| 65 74 69 6f 6e 22 00 00 | 00 00 00 00 00 00 00 01 |etion"..|........|
|00000be0| 00 00 02 22 23 54 52 41 | 4e 20 53 4e 49 50 50 45 |..."#TRA|N SNIPPE|
|00000bf0| 54 20 4f 4e 4c 59 0d 0a | 23 53 45 43 54 49 4f 4e |T ONLY..|#SECTION|
|00000c00| 20 31 0d 0a 50 41 52 41 | 4d 45 54 45 52 53 20 74 | 1..PARA|METERS t|
|00000c10| 68 69 73 44 42 46 0d 0a | 0d 0a 2a 20 47 65 74 20 |hisDBF..|..* Get |
|00000c20| 74 68 65 20 73 74 65 6d | 20 6e 61 6d 65 73 20 6f |the stem| names o|
|00000c30| 66 20 74 68 65 20 70 61 | 72 65 6e 74 20 61 6e 64 |f the pa|rent and|
|00000c40| 20 63 68 69 6c 64 20 64 | 61 74 61 62 61 73 65 73 | child d|atabases|
|00000c50| 2e 20 20 54 68 65 73 65 | 20 61 72 65 20 75 73 65 |. These| are use|
|00000c60| 64 0d 0a 2a 20 69 6e 20 | 74 68 65 20 70 72 6f 6d |d..* in |the prom|
|00000c70| 70 74 20 66 6f 72 20 63 | 61 73 63 61 64 69 6e 67 |pt for c|ascading|
|00000c80| 20 64 65 6c 65 74 65 73 | 2e 0d 0a 0d 0a 2a 20 54 | deletes|.....* T|
|00000c90| 61 6b 65 20 70 61 72 65 | 6e 74 20 6e 61 6d 65 20 |ake pare|nt name |
|00000ca0| 66 72 6f 6d 20 77 68 61 | 74 65 76 65 72 20 68 61 |from wha|tever ha|
|00000cb0| 73 20 62 65 65 6e 20 73 | 65 6c 65 63 74 65 64 20 |s been s|elected |
|00000cc0| 69 6e 20 74 68 65 20 70 | 61 72 65 6e 74 20 66 69 |in the p|arent fi|
|00000cd0| 65 6c 64 20 0d 0a 2a 20 | 70 6f 70 75 70 20 73 6f |eld ..* |popup so|
|00000ce0| 20 66 61 72 2e 0d 0a 6d | 2e 63 5f 70 61 72 65 6e | far...m|.c_paren|
|00000cf0| 74 20 3d 20 22 70 61 72 | 65 6e 74 22 0d 0a 49 46 |t = "par|ent"..IF|
|00000d00| 20 41 54 28 27 28 27 2c | 6d 2e 70 61 72 65 6e 74 | AT('(',|m.parent|
|00000d10| 66 6c 64 29 20 3e 20 30 | 0d 0a 20 20 20 6d 2e 63 |fld) > 0|.. m.c|
|00000d20| 5f 70 61 72 65 6e 74 20 | 3d 20 41 4c 4c 54 52 49 |_parent |= ALLTRI|
|00000d30| 4d 28 53 55 42 53 54 52 | 28 6d 2e 70 61 72 65 6e |M(SUBSTR|(m.paren|
|00000d40| 74 66 6c 64 2c 31 2c 4c | 45 4e 28 54 52 49 4d 28 |tfld,1,L|EN(TRIM(|
|00000d50| 6d 2e 70 61 72 65 6e 74 | 66 6c 64 29 29 2d 33 29 |m.parent|fld))-3)|
|00000d60| 29 0d 0a 20 20 20 6d 2e | 63 5f 70 61 72 65 6e 74 |).. m.|c_parent|
|00000d70| 20 3d 20 50 72 6f 70 65 | 72 28 6a 75 73 74 73 74 | = Prope|r(justst|
|00000d80| 65 6d 28 6d 2e 63 5f 70 | 61 72 65 6e 74 29 29 0d |em(m.c_p|arent)).|
|00000d90| 0a 45 4e 44 49 46 0d 0a | 6d 2e 63 5f 63 68 69 6c |.ENDIF..|m.c_chil|
|00000da0| 64 20 20 3d 20 50 72 6f | 70 65 72 28 6a 75 73 74 |d = Pro|per(just|
|00000db0| 73 74 65 6d 28 6d 2e 63 | 68 69 6c 64 64 62 66 29 |stem(m.c|hilddbf)|
|00000dc0| 29 0d 0a 0d 0a 6d 2e 63 | 61 73 63 64 65 6c 20 3d |)....m.c|ascdel =|
|00000dd0| 20 28 64 62 66 6c 69 73 | 74 5b 6d 2e 64 62 66 73 | (dbflis|t[m.dbfs|
|00000de0| 65 6c 65 63 2c 6d 2e 63 | 61 73 63 61 64 65 6e 75 |elec,m.c|ascadenu|
|00000df0| 6d 5d 20 3d 3d 20 27 59 | 27 29 0d 0a 23 53 45 43 |m] == 'Y|')..#SEC|
|00000e00| 54 49 4f 4e 20 32 00 00 | 00 00 00 00 00 00 00 00 |TION 2..|........|
|00000e10| 01 00 00 00 07 6f 6b 63 | 61 6e 63 6c 00 00 00 00 |.....okc|ancl....|
|00000e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e30| 00 01 00 00 00 18 22 40 | 2a 48 54 20 5c 21 5c 3c |......"@|*HT \!\<|
|00000e40| 4f 4b 3b 5c 3f 5c 3c 43 | 61 6e 63 65 6c 22 00 00 |OK;\?\<C|ancel"..|
|00000e50| 00 00 01 00 00 00 95 49 | 46 20 6f 6b 63 61 6e 63 |.......I|F okcanc|
|00000e60| 6c 20 3d 20 31 0d 0a 20 | 20 20 49 46 20 6d 2e 63 |l = 1.. | IF m.c|
|00000e70| 61 73 63 64 65 6c 0d 0a | 20 20 20 20 20 20 64 62 |ascdel..| db|
|00000e80| 66 6c 69 73 74 5b 6d 2e | 64 62 66 73 65 6c 65 63 |flist[m.|dbfselec|
|00000e90| 2c 6d 2e 63 61 73 63 61 | 64 65 6e 75 6d 5d 20 3d |,m.casca|denum] =|
|00000ea0| 20 27 59 27 0d 0a 20 20 | 20 45 4c 53 45 0d 0a 20 | 'Y'.. | ELSE.. |
|00000eb0| 20 20 20 20 20 64 62 66 | 6c 69 73 74 5b 6d 2e 64 | dbf|list[m.d|
|00000ec0| 62 66 73 65 6c 65 63 2c | 6d 2e 63 61 73 63 61 64 |bfselec,|m.cascad|
|00000ed0| 65 6e 75 6d 5d 20 3d 20 | 27 4e 27 0d 0a 20 20 20 |enum] = |'N'.. |
|00000ee0| 45 4e 44 49 46 0d 0a 45 | 4e 44 49 46 00 00 00 00 |ENDIF..E|NDIF....|
|00000ef0| 00 00 00 00 00 00 00 01 | 00 00 00 04 22 4f 4b 22 |........|...."OK"|
|00000f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f10| 00 00 00 00 00 00 00 00 | 01 00 00 00 07 63 61 73 |........|.....cas|
|00000f20| 63 64 65 6c 00 00 00 00 | 00 00 00 00 00 00 00 00 |cdel....|........|
|00000f30| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 2b 22 40 |........|.....+"@|
|00000f40| 2a 43 20 41 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |*C Autom|atically|
|00000f50| 20 44 65 6c 65 74 65 20 | 26 63 5f 63 68 69 6c 64 | Delete |&c_child|
|00000f60| 20 52 65 63 6f 72 64 73 | 22 00 00 00 00 00 00 00 | Records|".......|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 25 |........|.......%|
|00000f80| 22 57 68 65 6e 20 61 20 | 26 63 5f 70 61 72 65 6e |"When a |&c_paren|
|00000f90| 74 20 52 65 63 6f 72 64 | 20 69 73 20 44 65 6c 65 |t Record| is Dele|
|00000fa0| 74 65 64 3f 22 00 00 00 | 00 00 00 00 00 00 00 00 |ted?"...|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000fc0| 00 07 43 41 53 43 41 44 | 45 00 00 00 00 00 00 00 |..CASCAD|E.......|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000fe0| 00 00 13 22 45 6e 68 61 | 6e 63 65 64 20 44 65 6c |..."Enha|nced Del|
|00000ff0| 65 74 69 6f 6e 22 00 00 | 00 00 00 00 00 00 00 01 |etion"..|........|
|00001000| 00 00 00 06 47 65 6e 65 | 76 61 00 00 00 00 00 00 |....Gene|va......|
|00001010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001020| 01 00 00 02 22 23 54 52 | 41 4e 20 53 4e 49 50 50 |...."#TR|AN SNIPP|
|00001030| 45 54 20 4f 4e 4c 59 0d | 0a 23 53 45 43 54 49 4f |ET ONLY.|.#SECTIO|
|00001040| 4e 20 31 0d 0a 50 41 52 | 41 4d 45 54 45 52 53 20 |N 1..PAR|AMETERS |
|00001050| 74 68 69 73 44 42 46 0d | 0a 0d 0a 2a 20 47 65 74 |thisDBF.|...* Get|
|00001060| 20 74 68 65 20 73 74 65 | 6d 20 6e 61 6d 65 73 20 | the ste|m names |
|00001070| 6f 66 20 74 68 65 20 70 | 61 72 65 6e 74 20 61 6e |of the p|arent an|
|00001080| 64 20 63 68 69 6c 64 20 | 64 61 74 61 62 61 73 65 |d child |database|
|00001090| 73 2e 20 20 54 68 65 73 | 65 20 61 72 65 20 75 73 |s. Thes|e are us|
|000010a0| 65 64 0d 0a 2a 20 69 6e | 20 74 68 65 20 70 72 6f |ed..* in| the pro|
|000010b0| 6d 70 74 20 66 6f 72 20 | 63 61 73 63 61 64 69 6e |mpt for |cascadin|
|000010c0| 67 20 64 65 6c 65 74 65 | 73 2e 0d 0a 0d 0a 2a 20 |g delete|s.....* |
|000010d0| 54 61 6b 65 20 70 61 72 | 65 6e 74 20 6e 61 6d 65 |Take par|ent name|
|000010e0| 20 66 72 6f 6d 20 77 68 | 61 74 65 76 65 72 20 68 | from wh|atever h|
|000010f0| 61 73 20 62 65 65 6e 20 | 73 65 6c 65 63 74 65 64 |as been |selected|
|00001100| 20 69 6e 20 74 68 65 20 | 70 61 72 65 6e 74 20 66 | in the |parent f|
|00001110| 69 65 6c 64 20 0d 0a 2a | 20 70 6f 70 75 70 20 73 |ield ..*| popup s|
|00001120| 6f 20 66 61 72 2e 0d 0a | 6d 2e 63 5f 70 61 72 65 |o far...|m.c_pare|
|00001130| 6e 74 20 3d 20 22 70 61 | 72 65 6e 74 22 0d 0a 49 |nt = "pa|rent"..I|
|00001140| 46 20 41 54 28 27 28 27 | 2c 6d 2e 70 61 72 65 6e |F AT('('|,m.paren|
|00001150| 74 66 6c 64 29 20 3e 20 | 30 0d 0a 20 20 20 6d 2e |tfld) > |0.. m.|
|00001160| 63 5f 70 61 72 65 6e 74 | 20 3d 20 41 4c 4c 54 52 |c_parent| = ALLTR|
|00001170| 49 4d 28 53 55 42 53 54 | 52 28 6d 2e 70 61 72 65 |IM(SUBST|R(m.pare|
|00001180| 6e 74 66 6c 64 2c 31 2c | 4c 45 4e 28 54 52 49 4d |ntfld,1,|LEN(TRIM|
|00001190| 28 6d 2e 70 61 72 65 6e | 74 66 6c 64 29 29 2d 33 |(m.paren|tfld))-3|
|000011a0| 29 29 0d 0a 20 20 20 6d | 2e 63 5f 70 61 72 65 6e |)).. m|.c_paren|
|000011b0| 74 20 3d 20 50 72 6f 70 | 65 72 28 6a 75 73 74 73 |t = Prop|er(justs|
|000011c0| 74 65 6d 28 6d 2e 63 5f | 70 61 72 65 6e 74 29 29 |tem(m.c_|parent))|
|000011d0| 0d 0a 45 4e 44 49 46 0d | 0a 6d 2e 63 5f 63 68 69 |..ENDIF.|.m.c_chi|
|000011e0| 6c 64 20 20 3d 20 50 72 | 6f 70 65 72 28 6a 75 73 |ld = Pr|oper(jus|
|000011f0| 74 73 74 65 6d 28 6d 2e | 63 68 69 6c 64 64 62 66 |tstem(m.|childdbf|
|00001200| 29 29 0d 0a 0d 0a 6d 2e | 63 61 73 63 64 65 6c 20 |))....m.|cascdel |
|00001210| 3d 20 28 64 62 66 6c 69 | 73 74 5b 6d 2e 64 62 66 |= (dbfli|st[m.dbf|
|00001220| 73 65 6c 65 63 2c 6d 2e | 63 61 73 63 61 64 65 6e |selec,m.|cascaden|
|00001230| 75 6d 5d 20 3d 3d 20 27 | 59 27 29 0d 0a 23 53 45 |um] == '|Y')..#SE|
|00001240| 43 54 49 4f 4e 20 32 00 | 00 00 00 00 00 00 00 00 |CTION 2.|........|
|00001250| 00 01 00 00 00 07 6f 6b | 63 61 6e 63 6c 00 00 00 |......ok|cancl...|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001270| 00 00 01 00 00 00 19 22 | 40 2a 48 54 33 20 5c 21 |......."|@*HT3 \!|
|00001280| 5c 3c 4f 4b 3b 5c 3f 5c | 3c 43 61 6e 63 65 6c 22 |\<OK;\?\|<Cancel"|
|00001290| 00 00 00 01 00 00 00 06 | 47 65 6e 65 76 61 00 00 |........|Geneva..|
|000012a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012b0| 00 00 00 00 01 00 00 00 | 95 49 46 20 6f 6b 63 61 |........|.IF okca|
|000012c0| 6e 63 6c 20 3d 20 31 0d | 0a 20 20 20 49 46 20 6d |ncl = 1.|. IF m|
|000012d0| 2e 63 61 73 63 64 65 6c | 0d 0a 20 20 20 20 20 20 |.cascdel|.. |
|000012e0| 64 62 66 6c 69 73 74 5b | 6d 2e 64 62 66 73 65 6c |dbflist[|m.dbfsel|
|000012f0| 65 63 2c 6d 2e 63 61 73 | 63 61 64 65 6e 75 6d 5d |ec,m.cas|cadenum]|
|00001300| 20 3d 20 27 59 27 0d 0a | 20 20 20 45 4c 53 45 0d | = 'Y'..| ELSE.|
|00001310| 0a 20 20 20 20 20 20 64 | 62 66 6c 69 73 74 5b 6d |. d|bflist[m|
|00001320| 2e 64 62 66 73 65 6c 65 | 63 2c 6d 2e 63 61 73 63 |.dbfsele|c,m.casc|
|00001330| 61 64 65 6e 75 6d 5d 20 | 3d 20 27 4e 27 0d 0a 20 |adenum] |= 'N'.. |
|00001340| 20 20 45 4e 44 49 46 0d | 0a 45 4e 44 49 46 00 00 | ENDIF.|.ENDIF..|
|00001350| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 04 22 4f |........|......"O|
|00001360| 4b 22 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |K"......|........|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 07 63 |........|.......c|
|00001380| 61 73 63 64 65 6c 00 00 | 00 00 00 00 00 00 00 00 |ascdel..|........|
|00001390| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 2c |........|.......,|
|000013a0| 22 40 2a 43 33 20 41 75 | 74 6f 6d 61 74 69 63 61 |"@*C3 Au|tomatica|
|000013b0| 6c 6c 79 20 44 65 6c 65 | 74 65 20 26 63 5f 63 68 |lly Dele|te &c_ch|
|000013c0| 69 6c 64 20 52 65 63 6f | 72 64 73 22 00 00 00 00 |ild Reco|rds"....|
|000013d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|000013e0| 00 06 47 65 6e 65 76 61 | 00 00 00 00 00 00 00 00 |..Geneva|........|
|000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001400| 00 00 25 22 57 68 65 6e | 20 61 20 26 63 5f 70 61 |..%"When| a &c_pa|
|00001410| 72 65 6e 74 20 52 65 63 | 6f 72 64 20 69 73 20 44 |rent Rec|ord is D|
|00001420| 65 6c 65 74 65 64 3f 22 | 00 00 00 00 00 00 00 00 |eleted?"|........|
|00001430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001440| 01 00 00 00 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00001450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001460| 00 01 00 00 00 06 47 65 | 6e 65 76 61 00 00 00 00 |......Ge|neva....|
|00001470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001480| 00 00 01 00 00 00 06 47 | 65 6e 65 76 61 |.......G|eneva |
+--------+-------------------------+-------------------------+--------+--------+