xfaw

摘要： 判断数据库是否存在 if exists (select * from sys.databases where name = ’数据库名’) drop database [数据库名] 判断表是否存在 if exists (select * from sysobjects where id = object_id(N’[表名]’) and OBJECTPROPERTY(id, N’IsUserTabl 阅读全文

摘要： 网上的方法大都会影响复制粘贴等快捷键，使用这个可以完美解决 需要引用System.Character单元 procedure TMainForm.EditIMEIKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin // 只能输入数字或控制字符 if not KeyCh... 阅读全文