home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / database / tcu32_db / dbform.cuf < prev    next >
Encoding:
Text File  |  1991-08-01  |  2.4 KB  |  77 lines
  1. !===========================================================================
  2. !
  3. !  Demonstration form for use with DBDEMO database demo program.
  4. !
  5. !===========================================================================
  6.  
  7. Size = 73,20
  8. Type = Double
  9.  
  10. Colour =     Black/Cyan
  11. Input  =     Black/LightGray
  12. EditColour = White/Magenta
  13. TColour =    Red/Cyan
  14.  
  15. Title = "Customer Record Sheet"
  16.  
  17.  
  18. ! Fixed text definitions
  19. ! ----------------------
  20.  
  21. Text = @3,2; "Surname:"
  22. Text = @34,2; "Christian Name:"
  23. Text = @3,3; "Address:"
  24. Text = @47,3; "Date of birth:"
  25. Text = @47,4; "Sex:           Age:"
  26. Text = @3,8; "Date first registered:"
  27. Text = @42,8; "Date of last order:"
  28. Text = @3,9; "Priority Code:"
  29. Text = @42,9; "Preferred Shipping:"
  30. Text = @3,11; "Credit Rating:       Credit Card #:"
  31. Text = @59,11; "Type:"
  32. Text = @3,13; "Comments:"
  33.  
  34.  
  35. ! Field Definitions
  36. ! -----------------
  37.  
  38. Field = @12,2; Name=LName; String(20)
  39. Field = @50,2; Name=FName; String(20)
  40.  
  41. Repeat=4
  42.   Field = @12,3; Name=Addr_##; String(30)
  43. EndRepeat
  44.  
  45. Field = @62,3; Name=DOB; Date(MonthFirst)
  46. Field = @52,4; Name=Sex; Choice(6)="MALE|FEMALE"
  47. Field = @67,4; Name=Age; Numeric(3); Range(21,120)
  48.  
  49. Field = @26,8; Name=Date_Reg; Date(MonthFirst)
  50. Field = @62,8; Name=Date_Ord; Date(MonthFirst)
  51.  
  52. Field = @18,9; Name=Priority; String(2); Template="A#"
  53. Field = @62,9; Name=Shipping; Choice(8)="POST|UPS|COA|FREIGHT|COURIER"
  54.  
  55. Field = @18,11; Name=Cr_Rate; String(2); Template="A#"
  56. Field = @39,11; Name=Cr_Num; String(16); Template="################"
  57. Field = @65,11; Name=Cr_Type; Choice(5)="AmEx|MstCd|Visa|Diner"
  58.  
  59. Repeat=3
  60.   Field = @13,13; Name=Cmt_##; String(57)
  61. EndRepeat
  62.  
  63.  
  64. ! Define the Buttons for database functions
  65. ! -----------------------------------------
  66.  
  67. Field = @3,17; Name=B_First; Button="FIRST"; Colour=White/Blue
  68. Field = @10,17; Name=B_Last; Button="LAST"; Colour=White/Blue
  69. Field = @16,17; Name=B_Next; Button="NEXT"; Colour=White/Blue
  70. Field = @22,17; Name=B_Prev; Button="PREVIOUS"; Colour=White/Blue
  71. Field = @32,17; Name=B_Search; Button="SEARCH"; Colour=White/Blue
  72. Field = @40,17; Name=B_Add; Button="ADD"; Colour=White/Blue
  73. Field = @45,17; Name=B_Delete; Button="DELETE"; Colour=White/Blue
  74. Field = @53,17; Name=B_Update; Button="UPDATE"; Colour=White/Blue
  75. Field = @66,17; Name=B_Quit; Button="QUIT"; Colour=LightMagenta/Blue; &
  76.                                             EditColour=LightRed/Magenta
  77.