contacts.rc

使用perl和C写的基于Web的管理数据库表的程序

[Data]
Table     = contacts
Order     = company
UpdFields = title, sex, first_name, last_name, company, conttyp1, contadr1, conttyp2, contadr2, conttyp3, contadr3, conttyp4, contadr4, conttyp5, contadr5, comments, state, last_change
QryFields = first_name, last_name, company, conttyp1, contadr1, conttyp2, contadr2, comments

[Browser]
MaxRows = 8

[Header]
Title = Contact-database

[GUI]

[State All]
BtnCancel  = Back


[State Init]
Header = "Search / Create"
BtnNew = Create
BtnQry = Search

[State Work]
BtnUpd = Save
BtnDel = Delete
Header = "Work with ..."

[State Qry]
Header = "Select data"

[Layout Table]
Border      = 0

[Layout Label pers_angaben]
Text        = Data of the person
Pos         = +1.0+3.0
Font        = color=blue
Bold        = Ja
Big         = Ja
Align       = Center
BgColor     = #f0f0f0

[Layout Label title_1]
Text        = "Title "
Pos         = +1.0.0
Align       = Right

[Layout Label title_2]
Text        = (b.E. Mr./Mrs.)
Pos         = +0.+0.1
Small       = Ja

[Layout Field title]
Pos         = +0.+1.0
Size        = 8

[Layout Field title1]
Pos         = +0.+0.+1
Size        = 1
Type        = Select
Values      = <<EOF
SELECT DISTINCT title
FROM            contacts
WHERE           title <> ''
ORDER BY        title
EOF

[Layout Label sex]
Pos         = +0.+1.0
Text        = Sex
Align       = Right

[Layout Field sex]
Pos         = +0.+1.0
Type        = Radio
Values      = <<EOF
f\,Female
m\,Male
EOF

[Layout Label first_name]
Pos         = +1.0.0
Align       = Right
Text        = First name

[Layout Field first_name]
Pos         = +0.+1.0

[Layout Label last_name]
Pos         = +0.+1.0
Align       = Right
Text        = Name

[Layout Field last_name]
Pos         = +0.+1.0

[Layout Label company]
Pos         = +1.0.0
Text        = Company
Align       = Right
Bold        = Ja

[Layout Field company]
Pos         = +0.+1+2.0
Size        = 75
MaxLength   = 80

[Layout Label comments]
Pos         = +1.0.0
Text        = Comments
Align       = Right

[Layout Field comments]
Pos         = +0.1+2.0
Type        = Area
Rows        = 3
Size        = 75

[Layout Label cont_angaben_line]
Text        = <hr>
Pos         = +2.0+3.0

[Layout Label cont_angaben]
Text        = Contact-information
Pos         = +1.0+3.0
Font        = color=blue
Bold        = Ja
Big         = Ja
Align       = Center
BgColor     = #f0f0f0

[Layout Label conttyp1]
Pos         = +1.0.0
Text        = 1st Contact
Align       = Right
Bold        = Ja

[Layout Field conttyp1]
Pos         = +0.+1+3.0
Type        = Select
Values      = <<EOF
SELECT   key_value, label, sort_nr
FROM     wwwdb_lookup
WHERE    key = 'conttype'
ORDER BY sort_nr
EOF


[Layout Field contadr1]
Pos         = +0.+0.+1
Size        = 50

[Layout Label conttyp2]
Pos         = +1.0.0
Text        = 2nd Contact
Align       = Right

[Layout Field conttyp2]
Pos         = +0.+1+3.0
Type        = Select
Values      = <<EOF
SELECT   key_value, label, sort_nr
FROM     wwwdb_lookup
WHERE    key = 'conttype'
ORDER BY sort_nr
EOF

[Layout Field contadr2]
Pos         = +0.+0.+1
Size        = 50

[Layout Label conttyp3]
Pos         = +1.0.0
Text        = 3rd Contact
Align       = Right

[Layout Field conttyp3]
Pos         = +0.+1+3.0
Type        = Select
Values      = <<EOF
SELECT   key_value, label, sort_nr
FROM     wwwdb_lookup
WHERE    key = 'conttype'
ORDER BY sort_nr
EOF

[Layout Field contadr3]
Pos         = +0.+0.+1
Size        = 50

[Layout Label conttyp4]
Pos         = +1.0.0
Text        = 4th Contact
Align       = Right

[Layout Field conttyp4]
Pos         = +0.+1+3.0
Type        = Select
Values      = <<EOF
SELECT   key_value, label, sort_nr
FROM     wwwdb_lookup
WHERE    key = 'conttype'
ORDER BY sort_nr
EOF

[Layout Field contadr4]
Pos         = +0.+0.+1
Size        = 50

[Layout Label conttyp5]
Pos         = +1.0.0
Text        = 5th Contact
Align       = Right

[Layout Field conttyp5]
Pos         = +0.+1+3.0
Type        = Select
Values      = <<EOF
SELECT   key_value, label, sort_nr
FROM     wwwdb_lookup
WHERE    key = 'conttype'
ORDER BY sort_nr
EOF

[Layout Field contadr5]
Pos         = +0.+0.+1
Size        = 50

[Layout Label ende_line]
Text        = <hr>
Pos         = +1.0+3.0

[Layout Label state]
Text        = ""

[Layout Field state]
Type        = Hidden

[Layout Label last_change]
Text        = ""

[Layout Field last_change]
Type        = Hidden