摘要：
在SQLPLUS中创建、运行、调试、查看、修改和删除存储过程2011年03月11日 星期五 16:01平时基本上都是用PL/SQL DEVELOPER对ORACLE进行操作，突然有一天没有PL/SQL DEVELOPER可以用了，惨了，不会操作了，经常有这么让人不省心的环境，所以还是要全面一点，好的技术员要能够应付各种恶劣的环境，呵呵，利用一点时间学习和总结如何在SQLPLUS中操作存储过程。一、创建在SQLPLUS命令行界面创建存储过程：SQL> create or replace procedure add_ord(p_ordid number,p_orddate date,p_cu 阅读全文
2012年8月22日
2012年8月17日
摘要：
在创建TreeView的Node时需要将Node和某个结构体进行绑定，此结构体将存放有关Node的信息，当要取这个结构体时则为结构体类型（Node.Data） 阅读全文
2012年8月16日
摘要：
type TPrintProc = function(DataPrint: integer; PrintFile: WideString; PrintMode: Integer = 1): Integer; safecall; //根据动态库中的函数来自定义类型////////////////////////////////////////////////////////////函数中///////////////////////////////////////////////////////////////////////////////////////////////////procedu 阅读全文
摘要：
首先在窗体上放个TScrollBox控件，再在工具栏上双击安放你想放的控件如TImage、TPanel,如果想要响应鼠标滚轮事件代码有两种方式分别如下：if WheelDelta > 0 then ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - 20 else if WheelDelta < 0 then ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + 20;if WheelDelta & 阅读全文
2012年8月15日
摘要：
DatFile: TextFile;AssignFile(DatFile, edtDataFile.Text); //生成路径为edtDataFile.Text的文件ReWrite(DatFile);Writeln();CloseFile(DatFile);内容导读： AssignFile 过程将一个外部文件的文件名与一个File 类型的变量关联，对File 类型的变量进行初始化。过程原型如下： procedure AssignFile(var F; FileName: string);AssignFile 过程AssignFile 过程将一个外部文件的文件名与一个File 类型的变量关联，对 阅读全文
摘要：
Locates the position of a substring within a string.function AnsiPos(const Substr, S: string): Integer;DescriptionCall AnsiPos to obtain the byte offset of the Substr parameter, as it appears in the string S. For example, if Substr is the string 'AB', and S is the string 'ABCDE', Ans 阅读全文
摘要：
procedure TfrmR80.btnSettingClick(Sender: TObject);begin if btnSetting.Caption = '收缩 <<' then begin frmR80.Height := btnSetting.Top + 27 + btnSetting.Height * 3 div 2; btnSetting.Caption := '扩展 >>'; end else begin frmR80.Height := GroupBox2.Top + 27 + GroupBox2.Height + b 阅读全文
摘要：
function myStrToFloat(const myStr: string; var myResult: Real): Boolean; var myTempStr: string; ResultStr: string; myChar: Char; myPos, myLen: integer; begin myPos := 1; ResultStr := ''; myTempStr := Trim(myStr); myLen := Length(myTempStr); while myPos <= myLen do begin myChar := myTempSt 阅读全文
