癫狂编程

摘要： //获取指定驱动器的当前路径名 GetDirvardir: string;b: Byte;beginb := 0;GetDir(b,dir);ShowMessage(dir); // //第一个参数: 1、2、3、4...分别对应: A、B、C、D...//0 是缺省驱动器end; 阅读全文

摘要： 数据源记录集：ClientDataSetSource；目标记录集：ClientDataSetCopy 1）复制一条记录。 ClientDataSetCopy.Close; ClientDataSetCopy.Fields.Clear; ClientDataSetCopy.FieldDefs.Clea 阅读全文

摘要： ／／表名，关键字段名，单条内容的SQL语句，产生新记录的值 function Tfrmdmmain.CopyTbale(const tablename, fileldname, swhere, newfileldstring: string): integer; var sql,sqlstring,sqlvalue,newsqlvalue:string; i:integer; ... 阅读全文