dps

摘要： procedure get_stru_SQL(var sql_str:string);begin sql_str:='create table qxgmb ( m_id integer identity(1,1) primary key,'; sql_str:=sql_str+' 编号 varchar(12), '; sql_str:=sql_str+' 购买日期 date, 器械名称 varchar(20), '; sql_str:=sql_str+' 器械类型 varchar(10), 购买数量 short , '; sql_ 阅读全文

摘要： Function AccisTable_exist(AdoCON:TADOConnection; tabname:string):boolean;//检测 TabName 数据表是否存在var index : integer; SL : TStringList;begin result:=false; SL := TStringList.Create; try ADOCon.GetTableNames(SL,False); except raise Exception.Create('装载源库列表错误！错误特征码2003'); end; for index := 0 to (S 阅读全文

摘要： var addi : integer; ftype : Smallint; stn,stc: array[1..10000] of String;function get_st(sl:string):string;var i : integer;begin for i:=length(sl) downto 1 do if (sl[i]<#32) or (sl[i]=#39) or (sl[i]=';') then delete(sl,i,1); result:=sl;end;function tri(sl,st:string):string;//F1Book1.sheet 阅读全文

摘要： function get_py(st : string):string;function GetPYIndexChar( hzchar:string):char;begin //的到一个汉字的拼音头个字母 case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of $B0A1..$B0C4 : result := 'A'; $B0C5..$B2C0 : result := 'B'; $B2C1..$B4ED : result := 'C'; $B4EE..$B6E9 : result := 'D' 阅读全文