Params.Clear;
Params.CreateParam(ftString ,'PARTNO', ptInput );
Params.CreateParam(ftString ,'EMPNAME', ptInput );
Params.CreateParam(ftString ,'REASONCODE', ptInput );
Params.CreateParam(ftString ,'TERMINALNAME', ptInput );
Params.CreateParam(ftString ,'DUTYCODE', ptInput );
Params.CreateParam(ftString ,'WO', ptInput);
Params.CreateParam(ftString ,'SN', ptInput);
Params.CreateParam(ftString ,'eDATE', ptInput);
Params.CreateParam(ftString ,'eDATE2', ptInput); IF Trim(editPart.Text) <> '' Then
Params.CreateParam(ftString ,'PARTNO', ptInput );
IF Trim(editwork.Text) '' Then
Params.CreateParam(ft
IF Trim(editNumber.Text) <> '' Then
Params.CreateParam(ftString ,'SN', ptInput ); sS:= 'SELECT SERIAL_NUMBER,WORK_ORDER,PART_NO,EMP_NAME,REPAIR_TIME,REASON_CODE,TERMINAL_NAME, '
'DUTY_CODE,REMARK,LOCATION '
'FROM SAJET.G_SN_REPAIR A,SAJET.SYS_PART B,SAJET.SYS_HT_EMP C, SAJET.SYS_REASON D, SAJET.SYS_HT_TERMINAL E, SAJET.SYS_HT_DUTY F '; sS := sS 'WHERE A.MODEL_ID = B.PART_ID( ) ';
sS := sS 'AND MODEL_ID LIKE :PARTNO ';
sS := sS 'AND A.REPAIR_EMP_ID = C.EMP_ID( ) ';
sS := sS 'AND REPAIR_EMP_ID LIKE :EMPNAME ';
sS := sS 'AND A.REASON_ID = D.REASON_ID( ) ';
sS := sS 'AND D.REASON_ID LIKE :REASONCODE ';
sS := sS 'AND A.RP_TERMINAL_ID = E.TERMINAL_ID( ) ';
sS := sS 'AND RP_TERMINAL_ID LIKE :TERMINALNAME ';
sS := sS 'AND A.DUTY_ID = F.DUTY_ID( ) ';
sS := sS 'AND F.DUTY_ID LIKE :DUTYCODE ';
sS := sS 'AND WORK_ORDER LIKE :WO ';
sS := sS 'AND SERIAL_NUMBER LIKE :SN '; sS := sS 'AND TO_CHAR(REPAIR_TIME,''YYYYMMDD'') BETWEEN :eDATE AND :eDATE2 ';
sS := sS 'Order By WORK_ORDER '; CommandText := sS; IF Trim(editPart.Text) <> '' Then
sS := sS 'AND MODEL_ID LIKE :PARTNO ';
IF Trim(editwork.Text) <> '' Then
sS := sS 'AND Work_Order LIKE :WO ';
IF Trim(editNumber.Text) <> '' Then
sS := sS 'AND SERIAL_NUMBER LIKE :SN ';
IF Trim(editPart.Text) <> '' Then
Params.ParamByName('PARTNO').AsString := Trim(editPart.Text) '%';
IF Trim(editWork.Text) <> '' Then
Params.ParamByName('WO').AsString := Trim(editwork.Text) '%';
IF Trim(editNumber.Text) <> '' Then
Params.ParamByName('SN').AsString := Trim(editNumber.Text) '%'; Params.ParamByName('PARTNO').AsString := Trim(editPart.Text) '%';
Params.ParamByName('WO').AsString := Trim(editWork.Text) '%';
Params.ParamByName('SN').AsString := Trim(editNumber.Text) '%';
Params.ParamByName('eDATE').AsString := FormatDateTime('YYYYMMDD',dtpkDate.Date);
Params.ParamByName('eDATE2').AsString := FormatDateTime('YYYYMMDD',dtpkDate2.Date); Open; 程式可以跑 可是都抓取不到值 或是在欄位搜尋上也抓取不到
想知道到底那錯了
------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet