想大家请教个问题,刚学，见笑了。

Question

const
  DemoDataNum=94;
  Demobuf:Array[0..93] of Integer=
      (71, 72, 75, 80, 92, 110, 129, 145,
      159, 169, 176, 179, 178, 176, 173, 170,
      166, 163, 161, 159, 158, 157, 157, 157,
      157, 156, 156, 154, 152, 149, 145, 141,
      136, 131, 128, 126, 124, 124, 123, 123,
      123, 123, 122, 122, 121, 121, 120, 118,
      117, 116, 114, 111, 109, 107, 105, 103,
      102, 100, 98, 97, 95, 94, 93, 91,
      90, 89, 88, 87, 86, 86, 85, 84,
      84, 83, 82, 81, 80, 80, 79, 78,
      77, 77, 76, 75, 74, 74, 74, 74,
      73, 72, 72, 72, 71, 70);type
//单波数据
  TSingleWave=Array[0..199] of Integer;
//采集数据
  TDataBuffer=Array[0..DBUFSIZ-1] of Integer;
//病历卡数据结构
  TCardInfo=record
    ID:String;                      //编号
    CreateDate:TDateTime;           //建档日期
    ZYNo:String;                    //住院号
    BedNo:String;                   //床位号
    Name:String;                    //姓名
    YunCi:Integer;                  //孕次
    ChanCi:Integer;                 //产次
    TotalNum:Integer;               //检查次数
    BYear:Integer;                  //出生年
    PDate:TDateTime;                //怀孕日期
    DST:string;                     //单双胎
    ZRLCS:string;                   //自然流产史
  end;
//病例常规信息数据结构
  TArcInfo=record
    Age:Integer;                    //年龄
    mDate:TDateTime;                //检测日期
    Height:Integer;                 //身高
    Weight:Single;                  //体重
    GongGao:Single;                 //宫高
    Ps:Single;                      //收缩压
    Pd:Single;                      //舒张压
    PWeekDay:Integer;               //孕周
    WWeekDay:integer;               //
  end;
//波形数据和结果参数数据结构
  TResultData=record
    Map:Single;                     //平均动脉压
    Dp:Single;                      //脉压差
    Rate:Integer;                   //心率
    Sv:Single;                      //心博量(每搏)
    Co:Single;                      //心输出量(每分钟)
    Si:Single;                      //心搏指数
    Ci:Single;                      //心脏指数
    K:Single;                       //波形系数
    Tpr:Single;                     //外周阻力
    Ac:Single;                      //血管顺应性
    Alk:Single;                     //血流半更新率
    Alt:Single;                     //血流半更新时间
    Tm:Single;                      //平均滞留时间
    Bv:Single;                      //总血容量
    V:Single;                       //血液粘度
    LocStart:Integer;               //选波起始位置
    LocEnd:Integer;                 //选波结束位置
    DisTime:Integer;                //选定波形时间
    Suggest:String;                 //印象
    Data:TDataBuffer;               //波形数据
    BMI:single;                     //体重指数
    TaiEr:Single;                   //胎儿发育指数
    Pg01:Integer;                   //流行病学风险评估得分
    Pg02:Integer;                   //CVT风险评估得分
    Pg03:Integer;                   //综合评估1得分
    Pg04:Integer;                   //综合评估2得分
  end;var
  Card:TCardInfo;
  Arc: TArcInfo;
  Para:TResultData;**********XX***********
时间：
年龄：     姓名：
身高：
任周： .....
一下是个做标：
\------------------
\
\
\
\
\
        
             我是这样做的 ：
      先建个应用程序，在再addtional 中 添加个Image     想问问大家 这样对不对？   上面定义的东西 应该怎么弄比较好？
   希望给将详细些，谢谢！
          

Answer 1

简单点，用StringGrid，填充一个个Cells。
好看点，用cxGrid来填充。
想玩 GDI 或者 GDI plus ，可以使用TCanvas（比如：TImage）

Answer 2

一般用EDIT作为接收用户输入的数据，然后存到相应的RECORD里面，然后把RECORD的数据再存到数据库里面，这是一般的表示层和业务层分离的方法。HISRECORD.NAME:=EDIT1.TEXT；
HISRECORD.SEX：=EDIT2.TEXT;DBRID是列表显示复合条件的记录，可根据情况选用。其实你现在应该做的是，找几个DELPHI写的完整的源程序代码来，运行，查看界面逻辑和程序代码是怎么对应起来的。可到WWW.GOUGOU.COM上输入 Delphi 源代码 搜索下载下来查看。然后基本的OBJECT PASCAL语法和DELPHI的常用控件要有一定的了解才行哦！买入门书籍看看吧。也不贵哦！