小编IEl*_*ite的帖子

似乎我的代码中的某个地方我正在使用的文件以某种方式保持它,因为我似乎无法删除它.我的CopyFile例程似乎工作,但在我完成复制后,我似乎无法删除它.

   FSize:=  GetFileSizeExt(InPath + InFileName);
   if FSize <= 0 then
   begin
    //archive file
    if  AfterAction = 'MOVE' then
    begin
     tmpExt:= ExtractFileExt(InFileName);
     if CopyFile(PChar(InPath + InFileName), PChar(MovePath + '\' + ChangeFileExt(InFileName,'') + '_' + FormatDateTime('mmddyyyy-hhmmss', Now) + tmpExt), True) then
     begin
      if not DeleteFile(pchar(InPath + InFileName)) then
      begin
       ExitCode:= 8;
       raise ECustomException.Create('Invalid After Action. Error Deleting File!');
      end;
     end //if CopyFile
     else //if not DeleteFile
     begin
      ExitCode:= 16;
      raise ECustomException.Create('File Copy Error!');
     end; //else
    end; //if  AfterAction = 'MOVE' then
     ExitCode:= …

我想创建一个SQL语句,以便稍后在我的代码中使用,它获取当前月份的日期范围.

示例:这是八月,所以日期范围是

StartDate = 08/01/11
EndDate = 08/31/11

但是,如果是2月份

StartDate = 02/01/11
EndDate = 02/28/11

Select * 
from mytable 
where (check_date >= StartDate) AND (check_date <= EndDate)

感谢您提供的任何帮助

我在Windows上使用Firebird(Delphi 2010开发的应用程序).

是否可以为少数用户使用Firebird Embedded？

http://www.firebirdsql.org/manual/fbmetasecur-embedded.html

如果我们的应用程序在单个计算机(LAN上)上安装了嵌入式firebird,则多个用户(12-25)可以使用它.运行应用程序的每台机器,指向嵌入在单台机器上的应用程序的firebird数据库？共享同一个数据库？

或者只是嵌入式版本1用户？

有没有人知道调用命令行可执行文件的函数,允许传递它的参数(特别是字符串列表,或某种方式的字符串列表,等待执行完成并返回错误代码(整数)？

我调用的可执行文件是一个delphi应用程序,它返回一个错误代码.我没有编写应用程序,我没有源代码以任何方式修改它

感谢名单

SQL专家为您提供简单的SQL.

我有两个字段(AccountNo,CheckNo).可以有多个具有相同值的checkno.它将拥有相同的AccountNo.我希望mytable显示AccountNo和CheckNo的列表,以及它存在多少次的计数.

Select Distinct AccountNo, CheckNo, Count(Distinct AccountNo, CheckNo) as Total
from MyTable

我正在研究编程问题.

注意:这不是学生项目.我正在为这个网站Try My Quest Dot Com的新Quest工作,我是管理员.

问题:

Jenny刚开始担任Justine Java Workshop的程序员.除少数例外,她每小时收费10美元.她每天工作超过8小时,每小时额外收取1.50美元,而在任何一周内,每小时额外收费2.50美元,超过40小时.此外,她在周六工作时获得125%的奖金,在周日工作获得50%的奖金.周六和周日的奖金根据当天的工作时数计算; 他们不习惯计算一周工作超过40小时的任何奖金.您将获得Jenny每周工作的小时数(星期日,星期一等),您需要计算一周的工资.输入将为正整数,小于或等于24.输出必须使用美元符号格式化并向上舍入到最接近的便士.例如,$ 2"和$ 2.136666"是错误的答案; 正确的版本分别是$ 2.00"和$ 2.14".

无论如何,我试图用Delphi(无表格项目)写这个.我传递了一个命令行参数 - timecard.dat

输入

0, 8, 8, 8, 8, 8, 0
0, 10, 10, 10, 10, 10, 0
0, 0, 8, 8, 8, 8, 8
0, 0, 0, 10, 10, 10, 10
10, 10, 10, 9, 9, 9, 9

产量

Output #1: $400.00
Output #2: $540.00
Output #3: $500.00
Output #4: $540.75
Output #5: $905.88

然而,我的出局是:

Output #1: $400.00
Output #2: $540.00
Output #3: …

我需要在下面的地方添加另一个条件

SQL.Add('where (cmcl_bank_cleared is not null) AND ((cmcl_bank_cleared - check_date) >=:DaysParam)');

我还需要补充一下

和(cmcl_bank_cleared <> to_date('01/01/2011','mm/dd/yyyy'))

问题是单引号

我可以做以下吗？

SQL.Add('where (cmcl_bank_cleared is not null) AND ');
SQL.Add('(cmcl_bank_cleared <> to_date(' + QuotedStr(01/01/2011) + ', ' + QuotedStr('mm/dd/yyyy') + ')');
SQL.Add('((cmcl_bank_cleared - check_date) >=:DaysParam)');

我在专家交流中找到了这个问题.

当显示另一个窗口时,Control的OnExit会在新控件上执行mouseup事件

这个问题很容易复制.

在表格上放置3个tedits.在edit1的onexit事件中写一个showmessage('exit')运行程序给edit1焦点使用鼠标给edit3焦点,单击ok给showmessage观察你现在怎么不能在edit3中写任何东西,直到你用鼠标点击某处在表格上!给edit2焦点,然后使用鼠标给edit3焦点观察如何在edit3中键入你想要的东西吧!

到目前为止,我已经确定问题在于当旧控件onExit事件显示任何类型的窗口时,edit3没有收到mouseup消息,我也尝试过显示我自己的一个窗体在onExit事件中,结果相同.事实上,在你点击Ok到showmessage之后,windows的印象是鼠标在edit3上被按住了

我想这是Delphi/Windows中的一个错误但是如何解决它？我知道我可以在edit3的onMouseDown事件上强制WM_LBUTTONUP(因为它是在该过程中调用的最后一个事件)但这不仅乏味,而且并不总是适用

我正在尝试做类似的事情:

在onexit事件中,我显示一个警告框,然后想要正常进行 - 将焦点移动到用户实际点击的位置.那可能吗？

可能重复:
Windows Aero Glass和Compositing(DWM)的资源将
按钮插入窗口标题栏

我正在使用Delphi 2010.

我想知道是否有办法在最小化,最大化和关闭按钮的左侧添加自定义按钮.分配了onClick事件的按钮？

这将用于模态和非模态形式.

感谢名单!

如果我使用Oracle的SQL Developer运行以下SQL.

select payee_id, to_char(check_date,'d') as DOW,  
(cmcl_bank_cleared - check_date) as DateDiff from AP_Master  
where (cmcl_bank_cleared is not null) AND ((cmcl_bank_cleared - check_date) >=1)  
order by payee_address_zip, DOW, DateDiff  

它工作正常,但是当我尝试使用Delphi时

SQL.Add('select payee_id, to_char(check_date, ' + QuotedStr('d') + ') as DOW, ');
SQL.Add('(cmcl_bank_cleared - check_date) as DateDiff from AP_Master ');
SQL.Add('where (cmcl_bank_cleared is not null) AND ((cmcl_bank_cleared - check_date) >=:DaysParam))');
SQL.Add('order by payee_id, DOW, DateDiff;');

我收到"ORA-00933:SQL命令也未正确结束"错误消息