wi6.5数据库随心所欲XP工作站医疗数据库

wi6.0数据库（随心所欲XP工作站医疗数据库）

/*
 *    Program type:  API Interface
 *
 *    Description:
 *        This program creates a character buffer that displays a list of employee
 *        names and phone extensions in xml.
 *
 *        This example allocates an output XSQLDA and XSLDA data structure.
 *
 *        0.  Create and initialize variables
 *            a.  Including XSQLDA and XSLDA data structures
 *        1.  Prepare and execute the SQL statement
 *        2.  Program creates a buffer （inside a loop）
 *        3.  Fill the buffer （isc_dsql_xml_buffer_fetch）
 *            a.  If the buffer is to small we inclease it and ‘fetch‘ again.
 *
 *
 *
 *    NOTE:
 *          XSQLDA （SQL Descriptor Area） is a host-language data
 *          structure that DSQL uses to transport data to or from a database
 *          when processing an SQL statement.
 *
 *          XSLDA （xml SQL Descriptor Area） is a host-language data
 *          structure for xml that DSQL uses to transport data to
 *          or from a database when processing an SQL statement and
 *          generating xml code.
 *
 * The contents of this file are subject to the Interbase Public
 * License Version 1.0 （the “License“）; you may not use this file
 * except in compliance with the License. You may obtain a copy
 * of the License at:
 * http://www.borland.com/devsupport/interbase/opensource/IPL.html
 *
 * Software distributed under the License is distributed on an
 * “AS IS“ basis WITHOUT WARRANTY OF ANY KIND either express
 * or implied. See the License for the specific language governing
 * rights and limitations under the License.
 *
 * The Original Code was created by Borland Software Corporation
 * and its predecessors.  Portions created by Borland are Copyright （c）
 * 1994 - 2001 Borland Software Corporation.
 * All rights reserved.
 *
 * Contributor（s）:
 *                 Shaunak Mistry Interbase R&D Borland Software Corp.
 *                 Dan Mikhayltsa Interbase QA Borland Software Corp.
 *                 Aaron Ruddick Interbase QA Borland Software Corp.
 */

#include 
#include 
#include 
#include se.h>
#include l.h>
#include l_proto.h>
#include 


/* Define length of variables we are going to SELECT from database */
#define    LASTLEN     20     /* Length of VARCHAR LAST_NAME in database */
#define    FIRSTLEN    15     /* Length of VARCHAR FIRST_NAME in database */
#define    EXTLEN       4     /* Length of VARCHAR（4） PHONE_EXT in database */

/* This macro is used to declare structures representing SQL VARCHAR types */

/* This macro is used to print error messages */
#define ERREXIT（status rc）	{isc_print_status（status）; return rc;}

int main （int argc char ** argv）
{
    /* Declare variables to hold database datatypes */
    char                    last_name[LASTLEN + 2];
    char                    first_name[FIRSTLEN + 2];
    char                    phone_ext[EXTLE

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

    .......   6486144  2001-11-29 14:50  Interbase 6.5\ADOBE\RS40ENG.EXE

    .......     23552  1999-09-06 13:50  Interbase 6.5\CFGMGR32.DLL

     文件     217088  2007-12-17 11:08  Interbase 6.5\CLIENT\BIN\GBAK.EXE

    .......    376832  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\GDS32.DLL

     文件      45056  2007-12-17 11:08  Interbase 6.5\CLIENT\BIN\GFIX.EXE

     文件     368640  2007-12-17 11:08  Interbase 6.5\CLIENT\BIN\GPRE.EXE

    .......     36864  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\GSEC.EXE

    .......      2355  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\IB32.CNT

    .......     58058  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\IB32.HLP

    .......      6906  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\IBConsole.cnt

     文件    2716160  2007-12-17 11:08  Interbase 6.5\CLIENT\BIN\IBConsole.exe

    .......     96211  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\IBConsole.hlp

    .......      1720  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\IBConsole.res

    .......        86  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\IBGLOSS.CNT

    .......     25445  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\IBGLOSS.HLP

    .......     36864  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\iblicense.dll

     文件      45056  2007-12-17 11:08  Interbase 6.5\CLIENT\BIN\iblicense.exe

     文件     208896  2007-12-17 11:08  Interbase 6.5\CLIENT\BIN\IBREPL.EXE

     文件     468480  2007-12-17 11:08  Interbase 6.5\CLIENT\BIN\IBReplServer.exe

     文件     367104  2007-12-17 11:08  Interbase 6.5\CLIENT\BIN\IBReplSrvcInstall.exe

    .......      2501  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\IBRplManager.cnt

     文件    2136576  2007-12-17 11:08  Interbase 6.5\CLIENT\BIN\IBRplManager.exe

    .......     24187  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\IBRplManager.gid

    .......     58514  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\IBRplManager.hlp

     文件     582144  2007-12-17 11:08  Interbase 6.5\CLIENT\BIN\IBScheduler.exe

    .......     28672  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\IBxml.DLL

    .......     20480  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\INSTREG.EXE

     文件     167936  2007-12-17 11:08  Interbase 6.5\CLIENT\BIN\ISQL.EXE

    .......       982  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\PERFORM.CNT

    .......     33168  2001-11-29 14:50  Interbase 6.5\CLIENT\BIN\PERFORM.HLP

............此处省略1023个文件信息