Uses typinfo,DB;
var
c : TFieldType;
begin
c := ftString;
//根据enum得到字符串
showmessage(GetEnumName(Typeinfo(TFieldType),Ord(c)));
// 根据字符串得到枚举类型
c := TFieldType(GetEnumValue(Typeinfo(TFieldType),'ftInteger'));
showmessage(GetEnumName(Typeinfo(TFieldType),Ord(c)));
end;

IF EXISTS(select 1 from information_schema.key_column_usage where TABLE_NAME=*tbMvouttocustomer_Detail*)
BEGIN
DECLARE @PK_primary_temp VARCHAR(255), @SqlTemp VARCHAR(2048)
SET @PK_primary_temp=(SELECT TOP 1 CONSTRAINT_NAME from information_schema.key_column_usage where TABLE_NAME=*tbMvouttocustomer_Detail*)
SET @SqlTemp =* ALTER TABLE tbMvouttocustomer_Detail DROP CONSTRAINT *+@PK_primary_temp
EXEC(@SqlTemp)
END
GO
--为从表建立主键约束
if not exists(select * from sysindexes where id=object_id(*tbMvouttocustomer_Detail*) and name=*PK_tbmvouttocustomerDetail_PrimaryKey*)
ALTER TABLE tbMvouttocustomer_Detail ADD CONSTRAINT PK_tbmvouttocustomerDetail_PrimaryKey PRIMARY KEY CLUSTERED([sid])
GO

Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\Folder\shell\CmdPrompt]
@=”进入DOS”
[HKEY_CLASSES_ROOT\Folder\shell\CmdPrompt\command]
@=”cmd.exe /k cd %l”