JackQu的程序员博客

该文被密码保护。 阅读全文

摘要： procedure OnFormKeyDown(var Key: Word; Shift: TShiftState); begin if Key=112 then //VK_F1 PostMessage(Self.Handle, WM_Print, 2, PP_Print); case Key of 122: BitBtnNewBill.Click; ///VK_F11 123: BtnRead.Click; //VK_F12 end end; 阅读全文

摘要： procedure OpenCRKbills(aActID,aEntityID : Integer); var wfPkg_Bill: TWorkflowPackage; begin wfPkg_Bill.AppHandle:=Application.Handle; wfPkg_Bill.FormHandle:=0; wfPkg_Bill.ParentWindow:=0; wfPkg_Bill.PreSender:=0; wfPkg_Bill.PreSenderID:=0; wfPkg_Bill.Sender:=0; wfPkg_Bill.... 阅读全文

摘要： procedure SendSignMsgToOP; var aloginUser:TLoginUser; s,ARecRang, ANoticeType, ATitle, AContent, AParams: WideString; AmblNos:String; begin aLoginUser:=GetLoginuser; AmblNos:=dsrbill.dataSet.FieldbyName('SRCMBLNOS').AsString; ANoticeType:='INVOICE'; ATitl... 阅读全文

摘要： （1）打开“DELPHI”，选择“工具”菜单下的“环境选项”；（2）选择库路径中按钮，弹出界面；（3）选择路径后的按钮，弹出选择路径界面，将其指向“EH”控件的“common”文件夹； (TOOLS->Environment Options->Library->Library Path)（4）在DELHI中打开“EH/EHLIBEVA/Delphi7”下的“DclEhLibDataDrivers70.dpk”文件；（5）单击“安装”按钮，然后进行保存。 阅读全文

摘要： Firebird/InterBase内置函数使用说明(转自：圣域天堂)2008-10-12 20:56加*号为FB2.0加入的函数整理:剑雷(jianlei) 2006-10-131. COUNT, AVG, MAX, MIN, SUM说明:通用统计函数,不详细介绍了2. EXTRACT(timestamp_part FROM value)说明:EXTRACT(YEAR/MONTHE/DAY/WEEKDAY FROM 字段名)从日期型字段中分离出年,月,日及一个星期的第几天3. CAST(value AS datatype)说明:转换数据类型4. LOWER() *说明:返回小写值5. UPP 阅读全文

摘要： procedure DBGridItemsTtileClick(Column: TColumnEh); begin if DBGridItems.Focused then with cdsBillItems do if Active and not(Bof and Eof) then if FindField(Column.FieldName)<>nil then IndexFieldNames:=Column.FieldName; end; 阅读全文

摘要： 用IBExpert优化Firebird/Interbase技巧集1译注：1.IBExpert的大多数功能并没用过，所以今天收到了IBExpert team的邮件时，感觉很多功能很实用，就花了点时间翻译了一下。2.以下大多数功能均需企业版，个人版缺少部分功能，用morgan提供的处理版即可( http://www.firebird.net.cn/forum_view.asp?forum_id=7&view_id=961&page=1 这个处理版的下载量竟然有3xx次，很高兴有不少人在firebird/interbase)。3.部分快捷键可能没设置比如F9，单击相关的功能按钮即可， 阅读全文

只有注册用户登录后才能阅读该文。 阅读全文

摘要： procedure GetData; var BillNoList,ActidList:TStrings; i:integer; begin ActidList:=TStringList.Create(); BillNoList:=TStringList.Create(); with SQLQuerySrcEntityid do begin Open;First; while not Eof do begin ActidList.Add(FieldByName('SrcActid').asString); ... 阅读全文