呆呆痛苦流 发表于 2013-8-19 10:46:30

求助求助 求助求助

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ToolWin, ComCtrls, DB, ADODB, StdCtrls, Grids, DBGrids, Menus,
IdBaseComponent, IdDateTimeStamp, DateUtils;

type
TForm1 = class(TForm)
    tlb1: TToolBar;
    btn1: TButton;
    btn2: TButton;
    qry1: TADOQuery;
    dbgrd1: TDBGrid;
    ds1: TDataSource;
    mm1: TMainMenu;
    F1: TMenuItem;
    E1: TMenuItem;
    O1: TMenuItem;
    H1: TMenuItem;
    A1: TMenuItem;
    F2: TMenuItem;
    B1: TMenuItem;
    C1: TMenuItem;
    V1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    S1: TMenuItem;
    D1: TMenuItem;
    N3: TMenuItem;
    X1: TMenuItem;
    btn3: TButton;
    btn4: TButton;
    tlb2: TToolBar;
    lbl1: TLabel;
    dtp1: TDateTimePicker;
    lbl2: TLabel;
    dtp2: TDateTimePicker;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin

qry1.Close;
qry1.SQL.Clear;
qry1.SQL.Text:= ' select sum(DECODE(SHDJLB,''G'',1,''E'',1,''A'',1,''8'',1,''5'',1,''1'',1,''H'',-1,''D'',-1,''B'',-1,''7'',-1,''4'',-1,''2'',-1,0)*spmoney)' +
                  ' ''yidong'' from sellhead,sellpayment WHERE spbillno=shbillno and ' +
                  '(SHDATE >= TO_DATE(''2013-08-17'',''YYYY-MM-DD'') AND SHDATE < TO_DATE(''2013-08-17'', ''YYYY-MM-DD'')+ 1 ) ' +
                  ' AND SPPMCODE = ''91'' and shsyjid = ''2008'';';
qry1.Open;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
dtp1.Date:= now;
dtp2.Date:= Now;
end;

end.



哪里出错了额 每次都编译提示from keyword not found where expected

格式天下 发表于 2013-8-19 14:36:55

多了一些无用的符号，导致sql语句错误引起的

呆呆痛苦流 发表于 2013-8-19 14:59:52

格式天下 发表于 2013-8-19 14:36 static/image/common/back.gif
多了一些无用的符号，导致sql语句错误引起的

无用的符号 哪些是啊

格式天下 发表于 2013-8-19 19:31:29

呆呆痛苦流 发表于 2013-8-19 14:59 static/image/common/back.gif
无用的符号 哪些是啊

就是说你的sql语句有错误么，你那语句那么长，我哪知道

565123 发表于 2013-8-20 20:57:22

sum 函数后面要接from ，而你的代码中却接了"yidong"
页: [1]
查看完整版本: 求助求助 求助求助