table = "e:\\同学通讯录.xls"; #建立一个EXLE表
rc = ddt_open(table, DDT_MODE_READ);
if (rc!= E_OK && rc != E_FILE_OPEN)
pause("Cannot open table.");
ddt_get_row_count(table,table_RowCount);
for(table_Row = 1; table_Row <= table_RowCount; table_Row ++)
{
ddt_set_row(table,table_Row);
}
ddt_close(table);
rc = ddt_open(table, DDT_MODE_READWRITE); #修改表的读 写权 限
pause("同学通讯录."); #显 示表名
ddt_set_val(table,"姓名",""); #写入表头“姓名”
ddt_set_val(table,"性别",""); #写入表头“性别 ”
ddt_set_val(table,"出生日期","");
ddt_set_val(table,"住址","");
ddt_set_val(table,"邮编","");
ddt_set_val(table,"EMAIL","");
ddt_set_val(table,"电话","");
a=create_input_dialog("请确定要录入的同学的人数!"); #创 建输 入对 话 框
for(i=1;i<=a;i++) #循环 语 句,可循环“输 入同学的人数”
{
b=create_input_dialog("请输入此同学的姓名"); #创 建一个输 入姓名的对 话 框
ddt_get_row_count(table,table_RowCount); #显 示出获 得的行数
for(table_Row = 1; table_Row <= table_RowCount; table_Row ++)
#进 行循环 判断 如 : 第 3 次 与 前 两 次 比 较
if(b==ddt_val_by_row(table,table_Row,"姓名"))
#进 行判断,每 次输 入姓名与前几次是否一 样
b=create_input_dialog("请t重新输入此同学的姓名");
ddt_set_val_by_row (table,i,"姓名",b ); #在 为 姓名的列的 i 行 ,输 入 b 的值
c=create_input_dialog("请输入此同学的性别");
ddt_set_val_by_row (table,i,"性别",c);
d=create_input_dialog("请输入此同学的出生日期");
ddt_set_val_by_row (table,i,"出生日期",d);
e=create_input_dialog("请输入此同学的住址");
ddt_set_val_by_row (table,i,"住址",e);
f=create_input_dialog("请输入此同学的邮编");
ddt_set_val_by_row (table,i,"邮编",f);
g=create_input_dialog("请输入此同学的EMAIL");
ddt_set_val_by_row (table,i,"EMAIL",g);
h=create_input_dialog("请输入此同学的电话");
ddt_set_val_by_row (table,i,"电话",h);
}
ddt_save(table);
ddt_close(table);
rc = ddt_open(table, DDT_MODE_READ);
# 打 开
c=create_list_dialog("查询菜单","请选择查询类型","姓名,性别,出生日期")
; # 创 建 列表对 话 框
switch(c)
# 选 择 表单
{
case "姓名":
d=create_input_dialog("请输入此同学的姓名");
ddt_get_row_count(table,table_RowCount);
for(table_Row = 1; table_Row <= table_RowCount; table_Row ++)
if(d==ddt_val_by_row(table,table_Row,"姓名"))
{
pause(ddt_val_by_row(table,table_Row,"姓名"));
break;
}
break;
case"性别":
e=create_input_dialog("请输入此同学的性别");
ddt_get_row_count(table,table_RowCount);
for(table_Row = 1; table_Row <= table_RowCount; table_Row ++)
if(e==ddt_val_by_row(table,table_Row,"性别"))
{
pause(ddt_val_by_row(table,table_Row,"性别"));
break;
}
break;
case"出生日期":
f=create_input_dialog("请输入此同学的出生日期");
ddt_get_row_count(table,table_RowCount);
for(table_Row = 1; table_Row <= table_RowCount; table_Row ++)
if(f==ddt_val_by_row(table,table_Row,"出生日期"))
{
pause(ddt_val_by_row(table,table_Row,"
出生日期"));
break;
}
break;
}
ddt_close(table);