hxgwd_5658

摘要： 原来的代码是先修改这个表，再为这个表加一个新字段： close; sql.Clear; sql.Add('update TableName set columnName=''银行卡'' where columnName=''信用卡'''); //将以前的信用卡都改为银行卡 execsql; sql.Clear; sql.Add('alter table TableName add checked bit'); execsql;执行第二条命令的时候就会提示：“表TableName正在被别的用户或... 阅读全文

摘要： 有时候你可能在编译的时候发现有些本该可以编译到的代码却没显示可设断点标记（就是编译后左侧蓝色的小点），可以出现输入提示的地方却提示不了，设断点调试却执行不到这地方，出现这些情况很有可能你曾经把其他地方的代码粘贴到Delphi中，粘贴内容中有看不见的异常字符，或者这些代码的原环境和Delphi两个环境不一样，代码到了这里“水土不服”，这种情况很令人烦恼，给我们这类码工造成很多麻烦。 解决办法是，找一个文本编辑器，经测试Notepad++不行,EditPlus没试过，UltraEdit试过可以，将你怀疑有问题的代码粘贴到UltraEdit中去，保存为一个文件，然后再复制出来，粘回到Delphi中. 阅读全文

摘要： 如果你操作sql时候碰见这个提示，一般是数据库设计时候有问题，看看该表所有字段字节长度之和是不是超过了8060，一般性的文本长度100即可，一般性的备注200即可，再长的可以用text或其他类型来存储，如果表中varchar或nvarchar的字段长度超过200的有很多个，那十有八九是超了 阅读全文

摘要： 数据库损坏一般会使用一下语句修复：==================================================--修复数据库的某个表--用下面的语句进行修复 exec sp_dboption 'DatabaseName', 'single user', 'true' Go DBCC CHECKTABLE('TableName',repair_allow_data_loss) go sp_dboption 'DatabaseName', 'single user', ' 阅读全文

摘要： 百度上这样解释： “定金”是指当事人约定由一方向对方给付的，作为债权担保的一定数额的货币，它属于一种法律上的担保方式，目的在于促使债务人履行债务，保障债权人的债权得以实现。签合同时，对定金必需以书面形式进行约定，同时还应约定定金的数额和交付期限。给付定金一方如果不履行债务，无权要求另一方返还定金；接受定金的一方如果不履行债务，需向另一方双倍返还债务。债务人履行债务后，依照约定，定金应抵作价款或者收回。 而“订金”目前我国法律没有明确规定，它不具备定金所具有的担保性质，可视为“预付款”，当合同不能履行时，除不可抗力外，应根据双方当事人的过错承担违约责任。从字面上理解，定，就是为了确保能买到某种商 阅读全文

摘要： procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin //水平垂直均可隐藏 WebBrowser1.oleobject.Document.body.Scroll := 'no'; WebBrowser1.oleobject.Document.documentElement.style.overflow := 'hidden';end;procedure TForm1.ApplicationEv 阅读全文

摘要： 错误提示：错误1813：未能打开新数据库’dbname’，createdatabase将终止。设备激活错误。物理文件名’d:sqlservermssqldatadbname_log.ldf’可能有误！解决方法： 1.新建一个同名的数据库2.再停掉sqlserver服务(注重不要分离数据库) 3.用原数据库的数据文件覆盖掉这个新建的数据库4.再重启sqlserver服务 5.此时打开企业治理器时会出现置疑，先不管，执行下面的语句（注重修改其中的数据库名）6.完成后一般就可以访问数据库中的数据了。这时,数据库本身一般还有问题,解决办法是：利用数据库的脚本创建一个新的数据库,然后通过DTS将数据导进 阅读全文

摘要： 如果用SaveToFile导出会出现乱码，但它还有一个函数SaveAllToStrings，可以用来过渡一下。var list:TStrings; list := TStringList.Create; try dxTreeList1.SaveAllToStrings(list); if form1.SaveDialog1.Execute then list.SaveToFile(form1.SaveDialog1.FileName); finally list.free; end;这样导出就没有乱码 阅读全文

摘要： 今天修复一个客户的数据库，竟然发现自增字段作为主键的一个表更新数据时提示主键重复，在表中手动输入数据后，发现自动生成的数字与前面的有重复！而且access的压缩修复功能发现不了这个错误，修复不了它。虽然输入时候是出现过的数，但还会自增，直到增到超过以前最大的数后就正常了。 阅读全文

摘要： if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FormatNumber]') and xtype in (N'FN', N'IF', N'TF'))drop function [dbo].[FormatNumber]Create function FormatNumber (@num int,@width int)returns varchar(50)asbegin return(right(cast(power(10,@width) + 阅读全文