.版本 2 .支持库 spec .程序集 程序集1 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 connect, _SqliteConnect .局部变量 tables, 文本型, , "0" .局部变量 fields, 文本型, , "0" .局部变量 i, 整数型 .局部变量 dbRes, _SqliteRecordSet .局部变量 isql, 文本型 ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。 调试输出 (connect.GetVersion ()) 调试输出 (connect.GetError ()) 调试输出 (connect.Open (取运行目录 () ＋ “\db.db”, , )) ' 调试输出 (connect.IsOpen ()) ' 调试输出 (connect.IsTableExist (“USER”)) 调试输出 (connect.GetTables (tables)) .计次循环首 (取数组成员数 (tables), i) 调试输出 (tables [i]) .计次循环尾 () ' 调试输出 (connect.GetFields (“USER”, fields)) ' ' 调试输出 (fields [i]) ' 计次循环尾 () ' ' isql ＝ SqlFormat (“insert into USER values({0},'{1}','{2}')”, 到文本 (取随机数 (1, 9999)), “test123”, “易语言”, , , , , , , ) ' 调试输出 (connect.Exec (isql), connect.GetChangeCount ()) ' 计次循环尾 () dbRes.SetDB (connect.GetHandle ()) 调试输出 (dbRes.Query (“SELECT ID,USERNAME,PASSWORD,STATE FROM USERS;”), dbRes.GetRowCount ()) .循环判断首 () 调试输出 (dbRes.ReadString (0), dbRes.ReadString (1), dbRes.ReadString (2)) .循环判断尾 (dbRes.Next ()) dbRes.Close () 调试输出 (connect.Close ()) 返回 (0) ' 可以根据您的需要返回任意数值