不错,用的以后给你提意见.


http://vcprogram.6to23.com

一。系统介简

(一)实现功能∶
    用于UNIX上做画面、菜单、查询、输入、修改；可操作数据库。

(二)设计思路∶
    将人机对话，可分为基本的输入与输出两大类，在此前提下，为了不同的需要把域分作
    多种类型；对涉及数据库的域指明有关的表名、字段名，以进行数据库的读写。将这些
    不同功能的域有机的组合在一个FORM中，来实现一个功能模块。将FORM编号，按一定的
    结构以二进制的形式存入文件，在使用时，系统按编号读入FORM的数据，按步实现预定
    的功能。

(三)软件环境∶
    1.操作系统SCO UNIX OpenServer 5.0
    2.编程语言 C、INFORMIX/ESQL。

(二)关于普通FORM的制作:

    1.交易号为 100的FORM内容∶
    [命令]  g [交易号]      100 [连接交易]        0 [驱动方式] D [索引项]  1   
    [序] [类型][长度][坐标][嵌入函数]   [      复         合          域      ]
      0    C       4  1240      0    operate.no                                
      1    P       6  1440      0    operate.passwd                            
      2    -       0     0      0    and stat !='9'                            
      3    w       0     0      0    密码错 !!                                 
      4    c       8  1640      0    operate.name                              
      5    l       0  1228      0    操作员:                                   
      6    l       0  1428      0    密  码:                                   
      7    l       0  1628      0    姓  名:                                   
      8    l       0     0      0    签  到                                    
      9    W       0     0      0                                              

    根据坐标及长度建立WINDOW (图 2) 所示∶

                  ┏━━ <100> 签  到 ━━┓ 
                  ┃操作员:    [0101]     ┃
                  ┃                      ┃
                  ┃密  码:    [******]   ┃
                  ┃                      ┃
                  ┃姓  名:    王光红     ┃        
                  ┗━━━━━━━━━━━┛
                 ------------ 图 2 ------------


     驱动方式∶ D 完成后将WINDOW删除.
     索引项∶1  序号<=1的第 0，1项的字段（ oper.no, oper.passwd）为查询条件。

     第 0项∶类型'C'，长度4，复合域说明有关的表及字段。
          作用∶接受 4位长的字符串（操作员号）。

     第 1项∶类型'P'，长度6，复合域的前四位是坐标，以后是提示符号，
          效果同第7、8项.
          作用∶接受 6位长的字符串（密码），不回显。

     第 2项∶类型'-'，复合域说明where子句追加的条件。
          作用∶使stat=9 的操作员不能签到。
          SQL: select * from operate
               where no='01' and stat !='9' and passwd='xxxxxxxx';

     第 3项∶类型'w'，复合域说明警告的信息。
          作用∶向不符合条件的操作员发出警告（即前项的SQL不成功）。


     第 4项∶类型'c'，长度6，复合域说明有关的表及字段。
          作用∶显示 8位长的字符串（姓名）。
          SQL: select name from operate
               where no='01' and stat !='9' and passwd='xxxxxxxx';


     第 5-7项∶类型'l'，复合域说明提示的符号。
            作用∶在规定的坐标后显示标题。

     第  8项∶类型'l'，复合域说明提示的符号。
           作用∶在FORM上方显示标题。

     第  9项∶类型'W'.
           作用∶等待直至收到发送键才继续。
          

     2.交易号为102的FORM内容∶
     [命令]  g [交易号]      102 [连接交易]        0 [驱动方式] D [索引项]  1   
     [序] [类型][长度][坐标][嵌入函数]   [      复         合          域      ]
       0    C       4  1240      0    operate.no                                
       1    P       6  1440      0    operate.passwd                            
       2    -       0     0      0    and stat !='9'                            
       3    w       0     0      0    密码错 !!                                 
       4    c       8  1640      0    operate.name                              
       5    P       6  1840      0    1828新密码:                               
       6    l       0  1228      0    操作员:                                   
       7    l       0  1428      0    原密码:                                   
       8    l       0  1628      0    姓  名:                                   
       9    l       0     0      0    更改密码                                  
      10    x       0     0      0    update operate set passwd=$C3             


                   ┏━━<102> 更改密码━━┓ 
                   ┃操作员:    [0101]     ┃
                   ┃            ┃
                   ┃原密码:    [******]   ┃
                   ┃                      ┃
                   ┃姓  名:     王光红    ┃
                   ┃                      ┃
                   ┃新密码:    [******]   ┃
                   ┗━━━━━━━━━━━┛

                 ------------ 图 3 ------------

      第 10项∶类型'x'，复合域说明SQL语句。
          复合域中的$C3，$标志符，'C'字符类，3字符类内存序号。
          $C3是第 5域的字符串(PASSWD).
          第 0域的字符串(no) 是$C0。
          第 1域的字符串(passwd) 是$C1。
          第 4域的字符串(name) 是$C2。

(三)关于浏览器的制作:
FROM的驱动方式∶B.

1.交易号为104的FORM内容∶
[命令]  g [交易号]      104 [连接交易]        0 [驱动方式] B [索引项]  6   
[序] [类型][长度][坐标][嵌入函数]   [      复         合          域      ]
  0    F       1   629      0    operate.level                             
  1    i       0     0      0    * 确省                                    
  2    t       0     0      0    查询所有的级别              
  3    i       0     0      0    A 业务管理                                
  4    i       0     0      0    B 系统管理                                
  5    i       0     0      0    C 操作员                                  
  6    C       4   648      0    operate.no                                
  7    -       0     0      0    and no !='00' order by 1                  
  8    c       4   923      0    operate.no                                
  9    c       8   945      0    operate.name                              
 10    c       1  1223      0    operate.level                             
 11    c       1  1232      0    operate.stat                              
 12    d       8  1243      0    operate.date                              
 13    l       0   620      0      级别             操作员                 
 14    l       0   820      0      操作号                 姓  名           
 15    l       0  1120      0      级别     状态        起用日期           
 16    l       0     0      0    查阅操作员信息                            
 17    l       0   558      0                                              


 根据以上参数生成浏览窗口（见图 5）。

 104 FORM是单项查询∶同时只显示一项记录。

第 0项∶类型'F': 帮助项. 根据其附属项所提供的数据来选择。
          长度表示数据的前几位。
          本例的附属项是第7-10项, 复合域是提供的数据。
          当程序执行到第 6项时， 就弹出菜单供你选择， 如图4.2所示.
第 2项∶类型't': 菜单提示。

 索引项: 指定查询条件的字段数, 其值是对应于[序]，序号小于等于该值的字段为查询
         条件。

 序号<=索引项的第 0，6项的字段(operate.level, operate.no)为查询条件。
 当级别选择'A'，操作员输入"01"（见图 5.1）

 系统执行SQL: select no, name, level, stat, date
                     from operate
                     where level matches "A*"
                       and no matches "01*"
                       and no !='00'
                       order by 1;                 
 查询结果如图5.1所示。
 按下移键'↓'，显示下一条信息，如图5.2所示.?
 再按上移键'↑'，返回显示上一条信息。

                      ┏━━━━━<104> 查阅操作员信息━━━━┓
                      ┃          ┏━━━选择━━┓          ┃
                      ┃ 级别  [A]┃* 确省_____(0)┃  ]       ┃
                      ┃          ┃A 业务管理_(1)┃          ┃
                      ┃ 操作号   ┃B 系统管理_(2)┃名        ┃
                      ┃          ┃C 操作员___(3)┃          ┃
                      ┃          ┗━━━━━━━┛          ┃
                      ┃ 级别     状态        起用日期        ┃
                      ┃                                      ┃
                      ┗━━━━━━━━━━━━━━━━━━━┛               

                         ------------ 图 5 ------------


                      ┏━━━━━<104> 查阅操作员信息━━━━┓
                      ┃                                      ┃
                      ┃ 级别  [A]       操作员   [01  ]      ┃
                      ┃                                      ┃
                      ┃ 操作号                 姓   名       ┃
                      ┃  0101                  王光红        ┃
                      ┃                                      ┃
                      ┃ 级别     状态        起用日期        ┃
                      ┃  A         1         19980601        ┃
                      ┗━━━━━━━━━━━━━━━━━━━┛               
                         ------------ 图 5.1 ------------




                      ┏━━━━━<104> 查阅操作员信息━━━━┓
                      ┃                                      ┃
                      ┃ 级别  [A]       操作员   [01  ]      ┃
                      ┃                                      ┃
                      ┃ 操作号                 姓   名       ┃
                      ┃  0105                  古飞          ┃
                      ┃                                      ┃
                      ┃ 级别     状态        起用日期        ┃
                      ┃  A         1         19980606        ┃
                      ┗━━━━━━━━━━━━━━━━━━━┛               
                         ------------ 图 5.2 ------------

2.交易号为120的FORM内容∶
 [命令]  g [交易号]      120 [连接交易]        0 [驱动方式] B [索引项]  3   
 [序] [类型][长度][坐标][嵌入函数]   [      复         合          域      ]
   0    C       4   519      0    lsfile.ls_txcode                          
   1    C      11   531      0    lsfile.ls_account[5,16]                   
   2    C       3   550      0    lsfile.ls_bank                            
   3    M       9   561      0    lsfile.ls_money                           
   4    c       4   806      0    lsfile.ls_txcode                          
   5    c      11   812      0    lsfile.ls_account[5,16]                   
   6    c       3   826      0    lsfile.ls_bank                            
   7    m       8   829      0    lsfile.ls_money                           
   8    c       2   844      0    lsfile.ls_limit                           
   9    m       7   847      0    lsfile.ls_interest                        
  10    c       8   859      0    lsfile.ls_name                            
  11    c       2   870      0    lsfile.ls_accflag                         
  12    m     104   872      0    lsfile.ls_balance                         
  13    c      30  8100      0    lsfile.ls_address                         
  14    l       0   512      0    交易码        帐号               所号     
  15    l       0   556      0    金额                                      
  16    l       0   705      0    交易码 帐      号   所号    金    额  期  
  17    l       0   745      0    限  利    息   姓  名  性质    余     额  
  18    l       0  7100      0    地              址                        
  19    l       0  1740      0                                              

 120 FORM是多项查询∶同时能显示若干项记录，多少根据窗口的长度来定。
 序号<=索引项(3)的第 0，1、2、3项的字段
 (ls_txcode, ls_account, ls_bank, ls_money)为查询条件。

 [交易码]输入"63"，其他域为空值。（见图 6.1）
 系统执行SQL: select ls_txcode, ls_account[5,16], ls_bank, ls_money,
                     ls_limit, ls_interest,  ls_name, ls_accflag,
                     ls_balance, ls_address
                     from lsfile
                     where ls_txcode matches "63*";
 注∶ 字符串为空，数值为零都不被列入WHERE子句。
 查询结果如图6.1所示。
 与 120FORM不同， 104是多项单行显示，由于受屏幕宽度的限制，同时只能看到局部的信
 息， 可通过按左右键来回显示信息。 
 按右移键'→'，显示其他信息，如图6.2所示.?

 多项单行显示的制作要点∶
   1.要显示的数据其纵坐标都一样，并且是第一条信息的纵坐标。
     本例中，第4-13项纵坐标都为8。
   2.设定窗口长度。系统根据窗口的长度来确定显示多少记录。
     本例中，第17项纵坐标为17，这样8至17行来显示记录。

 浏览器的窗口坐标的特别规定∶
     为了克服屏幕宽度的限制，使用户可查阅更多的信息，横坐标可大于80。
     当坐标值大于2499∶ 后三位是横坐标，前面是纵坐标。
     横坐标的最大值512.
     例∶坐标值5150表示∶ 横坐标=150，纵坐标=5。
          


┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
┃       交易码[63  ]  帐号[           ]  所号[   ]  金额[         0.00]    ┃
┃                                                                          ┃
┃交易码 帐      号   所号    金    额  期限  利    息   姓  名  性质    余 ┃
┃6301  43240016261   367      625.00   10      20.48  任军飞     10     6, ┃
┃6301  43240016261   367    5,000.00   04     163.83  来丽       10     6, ┃
┃6301  43240016262   367    1,250.00   20      40.96  范军清     10     6, ┃
┃6301  43240016266   367    9,625.00   06     315.37  俞艳娜     10     6, ┃
┃6302  46340010261   363      500.00   08       0.50  沈会宣     10        ┃
┃6302  46340010262   363      500.00   08       0.50  王张富     10        ┃
┃6301  43240016266   362    3,125.00   50     102.39  廖文       10     6, ┃
┃6301  43240016262   362    6,250.00   00     204.78  齐勤       10     6, ┃
┃6301  43440006262   364    6,250.00   00     204.78  王小海     10     3, ┃
┃6301  43240016265   362      625.00   05      20.48  陈胜       20 1,202, ┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
                       ------------ 图 6.1 ------------


┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
┃                                                                          ┃
┃                                                                          ┃
┃    额               地              址                                   ┃
┃20,753.6800         沿朝３－４０－２－４０１                              ┃
┃20,453.6800         大山７－６－２－４０１                                ┃
┃20,493.6800         大德７－６－２－２０２                                ┃
┃20,693.6800         大学新村１７３－２０２                                ┃
┃98,373.6800         建德５－２－６０２                                    ┃
┃98,453.6800         建德５－２－６０２                                    ┃
┃21,853.6800         河西路４６１                                          ┃
┃20,853.6800         望江路＃２－６０２                                    ┃
┃65,223.6800         解放５１２                                            ┃
┃09,735.2800         朝５－７８－４０２                                    ┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
                       ------------ 图 6.2 ------------

(四)数据录入∶

[命令]  g [交易号]      130 [连接交易]       29 [驱动方式]   [索引项]  0   
[序] [类型][长度][坐标][嵌入函数]   [      复         合          域      ]
  0    A       5  2009      0                                              
  1    c       8  2022      0    unit.name                                 
  2    -       0     0      0    unit.code=$C0[1,2]                        
  3    c      10  2036      0    goods.name                                
  4    -       0     0      0    goods.code=$C0[3,5]                       
  5    C       1  2052      0                                              
  6    B       0     0      0                                              
  7    i       0     0      0    [1,2]                                     
  8    M      10  2062      0                                              
  9    l       0  2003      0    帐号:        部门:         品名:          
 10    l       0  2043      0       借贷:     金额:                        
 11    l       0     0      0    办公用品记明细帐                    
 12    l       0  1940      0                                              
 13    l       0  2140      0                                              
 14    x       0     0      0    insert into detail(account, abst, flag,   
 15    -       0     0      0    amount, date) values
 16    -       0     0      0    ($C0, $C1[1,6]$C2[1,8], $C3, $M0, today)         
 130 FORM是记帐输入窗口
 第 0 项∶类型'A'字符型，只接受阿拉伯数字，有复制功能，一般用于输入帐号.?
            复制功能介绍∶
            如上次该域的值为 '12001'，这次输入'35'，那么原前三位不变，
            后两位覆盖变成 '12035'.
 第 1, 2 项∶根据帐号($C0)的前两位将表unit中name读出，如帐号为"12001",
     则sql "select name from unit where code='12'"
 第 3, 4 项∶根据帐号的第三至五位将表goods中name读出,如帐号为"12004"
     则sql "select name from goods where code='004'"

例∶
在表unit中∶code='14', name='电脑部'.
在表goods中∶code='003', name='打印纸'.
当帐号输入'14003' （见图 8.2）
系统执行SQL:
select name from unit where code='14';
select name from goods where code='003';
 第 14,16项∶
将数据插入detail表.
其中detail.abst的值为$C1[1,6]$C2[1,8]，表示取unit.name的前六位和
goods.name的前八位作detail.abst的值。
        detail.date是datetime型，today是SQL函数。

130 FORM运用了连接交易.
130 FORM的连接交易 29 FORM
 29 FORM的连接交易 30 FORM
 30 FORM的连接交易 31 FORM
形成交易链∶ 130->29->30->31->130
29 FORM画边框及标题（见图 8.1）
30 FORM的驱动方式'S'，既屏幕滚动。当输入一条新的记录后，原窗口内的数据
        向上移一行，新数据插入最后一行。
31 FORM的驱动方式'P'，既打印。打印清单。


[命令]  g [交易号]       29 [连接交易]       30 [驱动方式]   [索引项]  0   
[序] [类型][长度][坐标][嵌入函数]   [      复         合          域      ]
  0    l       0   716      0    帐 号  部门     用品名称   借贷       金  
  1    l       0   756      0        额                                    
  2    l       0  1212      0                                              
  3    l       0  1270      0                                              
29 FORM指定窗口的尺寸、标题。

[命令]  g [交易号]       30 [连接交易]       31 [驱动方式] S [索引项]  0   
[序] [类型][长度][坐标][嵌入函数]   [      复         合          域      ]
  0    c       5  1216      0                                              
  1    c       8  1222      0                                              
  2    c      10  1232      0                                              
  3    c       1  1245      0                                              
  4    m      10  1248      0                                              
  5    l       0   940      0                                              

30 FORM驱动方式: S是滚屏窗口。
第0-4项∶其数据类型必须数据输入相同（即于130FORM的类型同）.
         长度可小于原FORM的长度，如不需显示的项可将其长度、坐标置零。但不可省略。
第0项对应[帐号]    第1项对应[部门]   第2项对应[品名] 
        第3项对应[借贷]    第4项对应[金额]                        
指定窗口的尺寸、标题。

[命令]  g [交易号]       31 [连接交易]        0 [驱动方式] P [索引项]  0   
[序] [类型][长度][坐标][嵌入函数]   [      复         合          域      ]
  0    c       5  1031      0                                              
  1    c       8  1225      0                                              
  2    c      10  1239      0                                              
  3    c       1  1425      0                                              
  4    m      10  1439      0                                              
  5    l       0   816      0    _______记  帐  清  单________             
  6    l       0  1025      0    帐号:                                     
  7    l       0  1219      0    部门:         品名:                       
  8    l       0  1419      0    借贷:         金额:                       
31 FORM驱动方式: P打印
向打印设备输出。


        ┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓
        ┃    帐 号  部门      用品名称     标志   金     额  ┃
        ┃    11002  人事部    钢笔          1         25.00  ┃
        ┃    11003  人事部    笔记本        1         15.00  ┃
        ┃    12003  公关部    笔记本        1         35.00  ┃
        ┃    12004  公关部    打印纸        1        245.00  ┃
        ┃    14004  电脑房    打印纸        1        450.00  ┃
        ┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛
                       ------------ 图 8.1 ------------

                                                                         
 帐号:[14004] 部门: 电脑房  品名: 打印纸    借贷:[1]  金额:[        450.00]

                       ------------ 图 8.2 ------------


(五)修改数据:

[命令]  g [交易号]      105 [连接交易]        0 [驱动方式]   [索引项]  0   
[序] [类型][长度][坐标][嵌入函数]   [      复         合          域      ]
  0    C       4  1435      0    operate.no                                
  1    c       8  1624      0    operate.name                              
  2    f       1  1652      0    operate.level                             
  3    i       0     0      0    A  业务管理                               
  4    i       0     0      0    B  系统管理                               
  5    i       0     0      0    C  操作员                                 
  6    d       8  1828      0    operate.date                              
  7    c       1  1852      0    operate.stat                              
  8    G       1  2135      0                                              
  9    t       0     0      0    修改后∶[ENTER]确认 [ESCAPE]取消          
 10    l       0  1428      0    柜员号                                    
 11    l       0  1616      0    1.姓名∶                    2.级别∶      
 12    l       0  1816      0    3.启用日期∶                4.状态∶      
 13    l       0  2128      0    选  择                                    
 14    x       0     0      0    update operate set name=$C1, level=$C2,   
 15    -       0     0      0    stat=$C3, date=$D0 where no=$C0           


 注意∶
1.如你在使用update、delete、insert 进行库更新, 当操作失败时，你不要提示
       可将操作字任意个字母写成大写，如∶Update, deleTe, insErt.
 

105 FORM: 是修改数据窗口
第0-7项∶ 是单项查询。
第 8 项∶ 类型 'G': 选项，当输入 1至4 即进入相关的域，进行修改, 修改完成后返回
          本域（即第5项）,  此时按回车就执行第13-14 SQL, 按[ESCAPE]就取消修改。

第 9 项∶ 类型 't': 提示
                ┏━━━━━━━━━━━━━━━━━━━━━┓
                ┃               柜员号[0101]               ┃
                ┃                                          ┃
                ┃ 1.姓名∶王光红              2.级别∶A    ┃
                ┃                                          ┃
                ┃ 3.启用日期∶19980801        4.状态∶1    ┃
                ┃                                          ┃
                ┃                                          ┃
                ┃            选  择[ ]                     ┃    
                ┗━━━━━━━━━━━━━━━━━━━━━┛  

 修改后∶[ENTER]确认 [ESCAPE]取消          
                       ------------ 图 9.1 ------------

good

up

good

非常好！
能否提供For AIX Unix 4.3版本或源程序？
谢谢！