941 lines
26 KiB
ObjectPascal
941 lines
26 KiB
ObjectPascal
|
unit U_Con_DDXQ;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
|||
|
|
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
|||
|
|
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
|
|||
|
|
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
|
|||
|
|
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
|
|||
|
|
cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxGridBandedTableView,
|
|||
|
|
cxGridDBBandedTableView, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
|
|||
|
|
cxNavigator, cxSplitter, Buttons, commctrl, DateUtils, IdBaseComponent,
|
|||
|
|
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmCon_DDXQ = class(TForm)
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
TBClose: TToolButton;
|
|||
|
|
ADOTemp: TADOQuery;
|
|||
|
|
ADOCmd: TADOQuery;
|
|||
|
|
ScrollBox1: TScrollBox;
|
|||
|
|
cxStyleRepository1: TcxStyleRepository;
|
|||
|
|
cxStyle1: TcxStyle;
|
|||
|
|
cxStyle2: TcxStyle;
|
|||
|
|
ADOQueryMain: TADOQuery;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
OrderNO: TEdit;
|
|||
|
|
Label2: TLabel;
|
|||
|
|
Label3: TLabel;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
Label5: TLabel;
|
|||
|
|
CustomerNoName: TEdit;
|
|||
|
|
Label6: TLabel;
|
|||
|
|
Leader: TEdit;
|
|||
|
|
Label7: TLabel;
|
|||
|
|
FILLER: TEdit;
|
|||
|
|
Label8: TLabel;
|
|||
|
|
GDY: TEdit;
|
|||
|
|
GroupBox1: TGroupBox;
|
|||
|
|
GroupBox2: TGroupBox;
|
|||
|
|
GroupBox3: TGroupBox;
|
|||
|
|
Label9: TLabel;
|
|||
|
|
JGMoney: TEdit;
|
|||
|
|
Label10: TLabel;
|
|||
|
|
SJGFactory: TEdit;
|
|||
|
|
Label11: TLabel;
|
|||
|
|
cqts: TEdit;
|
|||
|
|
Label12: TLabel;
|
|||
|
|
Label13: TLabel;
|
|||
|
|
Cqyy: TEdit;
|
|||
|
|
Label14: TLabel;
|
|||
|
|
Label15: TLabel;
|
|||
|
|
Edit5: TEdit;
|
|||
|
|
Label16: TLabel;
|
|||
|
|
tpqty: TEdit;
|
|||
|
|
Label18: TLabel;
|
|||
|
|
CPS: TEdit;
|
|||
|
|
Label19: TLabel;
|
|||
|
|
Zdgs: TEdit;
|
|||
|
|
Label20: TLabel;
|
|||
|
|
JCS: TEdit;
|
|||
|
|
Label22: TLabel;
|
|||
|
|
cpyy: TEdit;
|
|||
|
|
Label17: TLabel;
|
|||
|
|
Ycqr: TEdit;
|
|||
|
|
Label21: TLabel;
|
|||
|
|
Edit11: TEdit;
|
|||
|
|
GroupBox4: TGroupBox;
|
|||
|
|
Label23: TLabel;
|
|||
|
|
Label24: TLabel;
|
|||
|
|
Label25: TLabel;
|
|||
|
|
Label26: TLabel;
|
|||
|
|
Label27: TLabel;
|
|||
|
|
Label28: TLabel;
|
|||
|
|
Edit13: TEdit;
|
|||
|
|
FPHZ: TEdit;
|
|||
|
|
SSMONEY: TEdit;
|
|||
|
|
spl: TEdit;
|
|||
|
|
FPMONEY: TEdit;
|
|||
|
|
spk: TEdit;
|
|||
|
|
GroupBox5: TGroupBox;
|
|||
|
|
Label29: TLabel;
|
|||
|
|
Label30: TLabel;
|
|||
|
|
Label31: TLabel;
|
|||
|
|
Label33: TLabel;
|
|||
|
|
Label34: TLabel;
|
|||
|
|
Edit19: TEdit;
|
|||
|
|
chdate: TEdit;
|
|||
|
|
ysdate: TEdit;
|
|||
|
|
SHFS: TEdit;
|
|||
|
|
SSdate: TEdit;
|
|||
|
|
GroupBox6: TGroupBox;
|
|||
|
|
Label35: TLabel;
|
|||
|
|
Edit25: TEdit;
|
|||
|
|
Label36: TLabel;
|
|||
|
|
Edit26: TEdit;
|
|||
|
|
DLYDATE: TEdit;
|
|||
|
|
CDS_FP: TClientDataSet;
|
|||
|
|
DS_FP: TDataSource;
|
|||
|
|
CDS_CK: TClientDataSet;
|
|||
|
|
DS_CK: TDataSource;
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
cxGrid2: TcxGrid;
|
|||
|
|
TV3: TcxGridDBTableView;
|
|||
|
|
cxGridDBColumn3: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn5: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn7: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn8: TcxGridDBColumn;
|
|||
|
|
TV3Column1: TcxGridDBColumn;
|
|||
|
|
cxGridLevel2: TcxGridLevel;
|
|||
|
|
Label32: TLabel;
|
|||
|
|
TV3Column2: TcxGridDBColumn;
|
|||
|
|
Panel2: TPanel;
|
|||
|
|
Label37: TLabel;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
TV2: TcxGridDBTableView;
|
|||
|
|
cxGridDBColumn1: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn2: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn4: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn6: TcxGridDBColumn;
|
|||
|
|
cxGridLevel1: TcxGridLevel;
|
|||
|
|
CDS_SS: TClientDataSet;
|
|||
|
|
DS_SS: TDataSource;
|
|||
|
|
Panel3: TPanel;
|
|||
|
|
Label38: TLabel;
|
|||
|
|
cxGrid4: TcxGrid;
|
|||
|
|
TV4: TcxGridDBTableView;
|
|||
|
|
V4Column3: TcxGridDBColumn;
|
|||
|
|
V4Column1: TcxGridDBColumn;
|
|||
|
|
TV4Column1: TcxGridDBColumn;
|
|||
|
|
V4Column5: TcxGridDBColumn;
|
|||
|
|
TV4Column2: TcxGridDBColumn;
|
|||
|
|
V4Column4: TcxGridDBColumn;
|
|||
|
|
cxGrid4Level1: TcxGridLevel;
|
|||
|
|
Panel4: TPanel;
|
|||
|
|
Label39: TLabel;
|
|||
|
|
cxGrid3: TcxGrid;
|
|||
|
|
TV5: TcxGridDBTableView;
|
|||
|
|
cxGridDBColumn9: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn10: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn11: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn13: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn14: TcxGridDBColumn;
|
|||
|
|
cxGridLevel3: TcxGridLevel;
|
|||
|
|
TV5Column1: TcxGridDBColumn;
|
|||
|
|
CDS_CP: TClientDataSet;
|
|||
|
|
DS_CP: TDataSource;
|
|||
|
|
TV5Column2: TcxGridDBColumn;
|
|||
|
|
TV5Column3: TcxGridDBColumn;
|
|||
|
|
Image2: TImage;
|
|||
|
|
Image1: TImage;
|
|||
|
|
Image3: TImage;
|
|||
|
|
Image4: TImage;
|
|||
|
|
TV4Column4: TcxGridDBColumn;
|
|||
|
|
TV4Column5: TcxGridDBColumn;
|
|||
|
|
TV4Column6: TcxGridDBColumn;
|
|||
|
|
TV4Column7: TcxGridDBColumn;
|
|||
|
|
TV4Column3: TcxGridDBColumn;
|
|||
|
|
TV3Column3: TcxGridDBColumn;
|
|||
|
|
TV3Column4: TcxGridDBColumn;
|
|||
|
|
GroupBox7: TGroupBox;
|
|||
|
|
RadioButton1: TRadioButton;
|
|||
|
|
RadioButton2: TRadioButton;
|
|||
|
|
RadioButton3: TRadioButton;
|
|||
|
|
SCNOTE: TMemo;
|
|||
|
|
Label40: TLabel;
|
|||
|
|
GroupBox8: TGroupBox;
|
|||
|
|
Label41: TLabel;
|
|||
|
|
RadioButton4: TRadioButton;
|
|||
|
|
RadioButton5: TRadioButton;
|
|||
|
|
RadioButton6: TRadioButton;
|
|||
|
|
ywnote: TMemo;
|
|||
|
|
Button1: TButton;
|
|||
|
|
IdHTTP1: TIdHTTP;
|
|||
|
|
Button2: TButton;
|
|||
|
|
ZHJCTIME: TEdit;
|
|||
|
|
Label42: TLabel;
|
|||
|
|
GDYNAME: TEdit;
|
|||
|
|
procedure TBCloseClick(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure FPMONEYClick(Sender: TObject);
|
|||
|
|
procedure TV4DblClick(Sender: TObject);
|
|||
|
|
procedure SSMONEYClick(Sender: TObject);
|
|||
|
|
procedure JCSClick(Sender: TObject);
|
|||
|
|
procedure FormCreate(Sender: TObject);
|
|||
|
|
procedure TV3DblClick(Sender: TObject);
|
|||
|
|
procedure TV2DblClick(Sender: TObject);
|
|||
|
|
procedure CPSClick(Sender: TObject);
|
|||
|
|
procedure TV5DblClick(Sender: TObject);
|
|||
|
|
procedure Image2Click(Sender: TObject);
|
|||
|
|
procedure Image1Click(Sender: TObject);
|
|||
|
|
procedure Image3Click(Sender: TObject);
|
|||
|
|
procedure Image4Click(Sender: TObject);
|
|||
|
|
procedure Button1Click(Sender: TObject);
|
|||
|
|
procedure Button2Click(Sender: TObject);
|
|||
|
|
private
|
|||
|
|
procedure ControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
procedure ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
procedure ControlMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
procedure InitData();
|
|||
|
|
procedure InitFP();
|
|||
|
|
procedure InitSS();
|
|||
|
|
procedure InitCK();
|
|||
|
|
procedure InitCP();
|
|||
|
|
procedure gridkz();
|
|||
|
|
function SaveData(): Boolean;
|
|||
|
|
procedure HJ();
|
|||
|
|
procedure QiPaoShowMessage(h: HWND; text, cap: string; IconType: integer = 1; t: integer = 1000; left: Integer = 0; top: Integer = 0);
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
PState, CopyInt: Integer;
|
|||
|
|
FMainId, FSubid, FFMainId: string;
|
|||
|
|
FXS: Integer;
|
|||
|
|
inReposition: boolean;
|
|||
|
|
oldPos: TPoint;
|
|||
|
|
canshu1: string;
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmCon_DDXQ: TfrmCon_DDXQ;
|
|||
|
|
newh: hwnd;
|
|||
|
|
FMAINID, Forderno: string;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
U_DataLink, U_ZDYHelp, U_Fun, U_UserSel;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.ControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
begin
|
|||
|
|
if (Sender is TWinControl) then
|
|||
|
|
begin
|
|||
|
|
inReposition := True;
|
|||
|
|
SetCapture(TWinControl(Sender).Handle);
|
|||
|
|
GetCursorPos(oldPos);
|
|||
|
|
end;
|
|||
|
|
end; (*ControlMouseDown*)
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
const
|
|||
|
|
minWidth = 20;
|
|||
|
|
minHeight = 20;
|
|||
|
|
var
|
|||
|
|
newPos: TPoint;
|
|||
|
|
frmPoint: TPoint;
|
|||
|
|
begin
|
|||
|
|
if inReposition then
|
|||
|
|
begin
|
|||
|
|
with TWinControl(Sender) do
|
|||
|
|
begin
|
|||
|
|
GetCursorPos(newPos);
|
|||
|
|
if ssShift in Shift then
|
|||
|
|
begin //resize
|
|||
|
|
Screen.Cursor := crSizeNWSE;
|
|||
|
|
frmPoint := ScreenToClient(Mouse.CursorPos);
|
|||
|
|
if frmPoint.X > minWidth then
|
|||
|
|
Width := frmPoint.X;
|
|||
|
|
if frmPoint.Y > minHeight then
|
|||
|
|
Height := frmPoint.Y;
|
|||
|
|
end
|
|||
|
|
else //move
|
|||
|
|
begin
|
|||
|
|
Screen.Cursor := crSize;
|
|||
|
|
Left := Left - oldPos.X + newPos.X;
|
|||
|
|
Top := Top - oldPos.Y + newPos.Y;
|
|||
|
|
oldPos := newPos;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end; (*ControlMouseMove*)
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.ControlMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
begin
|
|||
|
|
if inReposition then
|
|||
|
|
begin
|
|||
|
|
Screen.Cursor := crDefault;
|
|||
|
|
ReleaseCapture;
|
|||
|
|
inReposition := False;
|
|||
|
|
end;
|
|||
|
|
end; (*ControlMouseUp*)
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.HJ();
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.gridkz();
|
|||
|
|
var
|
|||
|
|
i: Integer;
|
|||
|
|
begin
|
|||
|
|
// with ScrollBox1 do
|
|||
|
|
// begin
|
|||
|
|
// for i := 0 to 10 do
|
|||
|
|
// begin
|
|||
|
|
// cxGrid[i].visible := False;
|
|||
|
|
// end;
|
|||
|
|
// end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.TBCloseClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
ModalResult := 1;
|
|||
|
|
Close;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.InitData();
|
|||
|
|
var
|
|||
|
|
T1, T2: TDateTime;
|
|||
|
|
D, H, M, S: Integer;
|
|||
|
|
Value: Int64;
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
|
|||
|
|
sql.Add(' exec P_View_DDQKYLB @mainid=' + quotedstr(trim(FMainId)));
|
|||
|
|
sql.Add(' ,@orderno=' + quotedstr(trim(Forderno)));
|
|||
|
|
|
|||
|
|
// ShowMessage(sql.Text);
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCSHDataNew(ADOTemp, ScrollBox1, 1);
|
|||
|
|
// DLYDate.Text := ADOTemp.FieldByName('DLYDate').AsString;
|
|||
|
|
// ZHJCTIME.Text := ADOTemp.FieldByName('ZHJCTIME').AsString;
|
|||
|
|
// cqts.Text := ADOTemp.FieldByName('cqts').AsString;
|
|||
|
|
// JCS.Text := ADOTemp.FieldByName('JCS').AsString;
|
|||
|
|
SCSHDataNew(ADOTemp, GroupBox1, 1);
|
|||
|
|
SCSHDataNew(ADOTemp, GroupBox2, 1);
|
|||
|
|
SCSHDataNew(ADOTemp, GroupBox4, 1);
|
|||
|
|
SCSHDataNew(ADOTemp, GroupBox5, 1);
|
|||
|
|
if CPS.Text <> '0' then
|
|||
|
|
begin
|
|||
|
|
Edit5.Text := FloatToStr(RoundFloat(strtofloatdef(CPS.Text, 0) / strtofloatdef(jcs.Text, 1) * 100, 2));
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Edit5.Text := '0';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
if (ysdate.Text <> '') and (SSdate.Text <> '') then
|
|||
|
|
begin
|
|||
|
|
T1 := StrToDateTime(ysdate.Text);
|
|||
|
|
T2 := StrToDateTime(SSdate.Text);
|
|||
|
|
|
|||
|
|
Value := SecondsBetween(T2, T1);
|
|||
|
|
// ShowMessage(IntToStr(Value));
|
|||
|
|
if T1 < T2 then
|
|||
|
|
begin
|
|||
|
|
D := Value div SecsPerDay;
|
|||
|
|
|
|||
|
|
Edit19.Text := IntToStr(D);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Edit19.Text := '0';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
if trim(ADOTemp.FieldByName('SCKHSTATUS').AsString) = '<27><><EFBFBD>뿼<EFBFBD><EBBFBC>' then
|
|||
|
|
begin
|
|||
|
|
RadioButton1.Checked := True;
|
|||
|
|
end
|
|||
|
|
else if trim(ADOTemp.FieldByName('SCKHSTATUS').AsString) = '<27><><EFBFBD><EFBFBD>' then
|
|||
|
|
begin
|
|||
|
|
RadioButton2.Checked := True;
|
|||
|
|
end
|
|||
|
|
else if trim(ADOTemp.FieldByName('SCKHSTATUS').AsString) = '<27><><EFBFBD><EFBFBD><EFBFBD>뿼<EFBFBD><EBBFBC>' then
|
|||
|
|
begin
|
|||
|
|
RadioButton3.Checked := True;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
if trim(ADOTemp.FieldByName('ywKHSTATUS').AsString) = '<27><><EFBFBD>뿼<EFBFBD><EBBFBC>' then
|
|||
|
|
begin
|
|||
|
|
RadioButton4.Checked := True;
|
|||
|
|
end
|
|||
|
|
else if trim(ADOTemp.FieldByName('ywKHSTATUS').AsString) = '<27><><EFBFBD><EFBFBD>' then
|
|||
|
|
begin
|
|||
|
|
RadioButton5.Checked := True;
|
|||
|
|
end
|
|||
|
|
else if trim(ADOTemp.FieldByName('ywKHSTATUS').AsString) = '<27><><EFBFBD><EFBFBD><EFBFBD>뿼<EFBFBD><EBBFBC>' then
|
|||
|
|
begin
|
|||
|
|
RadioButton6.Checked := True;
|
|||
|
|
end;
|
|||
|
|
SCNOTE.Text := ADOTemp.FieldByName('SCNOTE').AsString;
|
|||
|
|
Ycqr.Text := ADOTemp.FieldByName('Ycqr').AsString;
|
|||
|
|
ywNOTE.Text := ADOTemp.FieldByName('ywNOTE').AsString;
|
|||
|
|
Edit26.Text := ADOTemp.FieldByName('SSMONEY').AsString;
|
|||
|
|
// FPHZ.Text := ADOTemp.FieldByName('FPHZ').AsString;
|
|||
|
|
// FPMONEY.Text := ADOTemp.FieldByName('FPMONEY').AsString;
|
|||
|
|
// SSMONEY.Text := ADOTemp.FieldByName('SSMONEY').AsString;
|
|||
|
|
// tpqty.Text := ADOTemp.FieldByName('tpqty').AsString;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.InitFP();
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
// SQL.Add('SELECT *,yqts=(case when YSDATE>=SSDATE then 0 else DATEDIFF(day,YSDATE,SSDATE) end ) FROM (');
|
|||
|
|
// sql.Add('SELECT A4FPNO,SUM(C4BGQty)C4BGQty,C5BGUnit,C6BGPrice,e1bzunit,SUM(C7BGMoney+ISNULL(CYFEE,0))C7BGMoney ');
|
|||
|
|
//
|
|||
|
|
// sql.Add(',SSDATE=(SELECT MAX (CRTIME) FROM YF_Money_CR D inner join YF_Money_CR_Sub b on D.yfid=b.YFID where ');
|
|||
|
|
// SQL.Add('SKtype=''ˮ<><CBAE>'' and MXOrderNo= ' + QuotedStr(Trim(Forderno)));
|
|||
|
|
// SQL.Add('AND B.SUBWXFPNO=A.A4FPNO)');
|
|||
|
|
// sql.Add(',CHUANDATE=(SELECT MAX(CHUANDATE) FROM JYOrder_BaoGuan_Main D WHERE D.A4FPNO=A.A4FPNO) ');
|
|||
|
|
//
|
|||
|
|
// sql.Add(',YSDATE=DATEADD(day,cast (days as int),(SELECT MAX(CHUANDATE) FROM JYOrder_BaoGuan_Main D WHERE D.A4FPNO=A.A4FPNO)) ');
|
|||
|
|
//
|
|||
|
|
// sql.Add(',DZMONEY=(SELECT SUM(ZDZJE) FROM YF_Money_CR D inner join YF_Money_CR_Sub b on D.yfid=b.YFID where ');
|
|||
|
|
// SQL.Add('SKtype=''ˮ<><CBAE>'' and MXOrderNo= ' + QuotedStr(Trim(Forderno)));
|
|||
|
|
// SQL.Add('AND B.SUBWXFPNO=A.A4FPNO)');
|
|||
|
|
// SQL.Add('FROM JHD_Main A INNER JOIN JHD_SUB B ON A.JHID=B.JHID ');
|
|||
|
|
// SQL.Add('WHERE orderno=' + QuotedStr(Trim(Forderno)));
|
|||
|
|
//
|
|||
|
|
// SQL.Add('GROUP BY A4FPNO,C5BGUnit,C6BGPrice,e1bzunit,DAYS');
|
|||
|
|
// SQL.Add(')AA');
|
|||
|
|
|
|||
|
|
sql.Add(' exec P_VIEW_DDQKYLB_MX_FP ');
|
|||
|
|
sql.Add(' @orderno=' + quotedstr(trim(Forderno)));
|
|||
|
|
|
|||
|
|
// ShowMessage(sql.Text);
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOTemp, CDS_FP);
|
|||
|
|
SInitCDSData20(ADOTemp, CDS_FP);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.InitCP();
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
|
|||
|
|
sql.Add('SELECT *,CPKGQTY=(SELECT SUM(MJMAOZ) FROM WFB_MJJY B WHERE B.APID=A.SPID ) ');
|
|||
|
|
SQL.Add(',CPQTY=(SELECT SUM(MJLEN) FROM WFB_MJJY B WHERE B.APID=A.SPID )');
|
|||
|
|
SQL.Add(',CPyQTY=(SELECT SUM(MJyLEN) FROM WFB_MJJY B WHERE B.APID=A.SPID )');
|
|||
|
|
sql.Add(' FROM CK_SXPB_CR A WHERE ORDMainIdCK=' + QuotedStr(Trim(FMainId)));
|
|||
|
|
SQL.Add('AND CKNAME=''<27><><EFBFBD>첼'' and crflag=''<27><><EFBFBD><EFBFBD>''');
|
|||
|
|
SQL.Add('AND ISNULL(CPYY,'''')<>''''');
|
|||
|
|
SQL.Add('ORDER BY CRTIME');
|
|||
|
|
// ShowMessage(sql.Text);
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOTemp, CDS_CP);
|
|||
|
|
SInitCDSData20(ADOTemp, CDS_CP);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.InitCK();
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
|
|||
|
|
// sql.Add('SELECT A.*,CWPRICE=(SELECT PRICE FROM YF_Money_CR_Sub B WHERE B.YFPZNO=A.SPID) ');
|
|||
|
|
// SQL.Add(',MXMONEY=(SELECT MXMONEY FROM YF_Money_CR_Sub B WHERE B.YFPZNO=A.SPID) ');
|
|||
|
|
// sql.Add('FROM CK_SXPB_CR A WHERE ORDMainIdRK=' + QuotedStr(Trim(FMainId)));
|
|||
|
|
//
|
|||
|
|
// SQL.Add('AND CKNAME=''<27><><EFBFBD>첼'' and crflag=''<27><><EFBFBD><EFBFBD>''');
|
|||
|
|
// SQL.Add('ORDER BY CRTIME');
|
|||
|
|
|
|||
|
|
SQL.ADD('SELECT *,B.QTYUNIT AS QTYUNIT2,CRType2=(SELECT CRTYPE FROM CK_SXPB_CR c where c.spid=b.YFPZNO)');
|
|||
|
|
|
|||
|
|
sql.Add(' from YF_Money_CR A INNER JOIN YF_Money_CR_Sub B ON A.YFID=B.YFID');
|
|||
|
|
SQL.ADD(' WHERE CRFlag=''Ӧ<><D3A6><EFBFBD><EFBFBD>'' AND MXOrderNo=' + QuotedStr(Trim(Forderno)));
|
|||
|
|
sql.Add(' and CHARINDEX(''DH'', YFPZNO)<=0');
|
|||
|
|
// sql.Add(' ,@orderno=' + quotedstr(trim(Forderno)));
|
|||
|
|
// ShowMessage(sql.Text);
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOTemp, CDS_CK);
|
|||
|
|
SInitCDSData20(ADOTemp, CDS_CK);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.InitSS();
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
|
|||
|
|
sql.Add('SELECT * FROM YF_Money_CR A inner join YF_Money_CR_Sub b on a.yfid=b.YFID where ');
|
|||
|
|
SQL.Add('SKtype=''ˮ<><CBAE>'' and MXOrderNo= ' + QuotedStr(Trim(Forderno)));
|
|||
|
|
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOTemp, CDS_SS);
|
|||
|
|
SInitCDSData20(ADOTemp, CDS_SS);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitData();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TfrmCon_DDXQ.SaveData(): Boolean;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.QiPaoShowMessage(h: HWND; text, cap: string; IconType: integer = 1; t: integer = 1000; left: Integer = 0; top: Integer = 0);
|
|||
|
|
var
|
|||
|
|
r: TRect; //<2F><>һ<EFBFBD><D2BB><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>Record<72><64><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾<EFBFBD><CBBE>εģ<CEB5><C4A3><EFBFBD><EFBFBD>Ͻ<EFBFBD><CFBD><EFBFBD><EFBFBD>½<EFBFBD><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>㣩4<E3A3A9><34><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2<EFBFBD><32><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5>
|
|||
|
|
hTooltip: Cardinal; //Cardinal<61><6C><EFBFBD><EFBFBD><DEB7><EFBFBD>32λ<32><CEBB><EFBFBD><EFBFBD> <20><>ȡֵ0<D6B5><30>4294967295<39><35>Χ<EFBFBD><CEA7>
|
|||
|
|
ti: TToolInfo;
|
|||
|
|
///////////////////////----------<2D><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>---------------------//////////////////////
|
|||
|
|
|
|||
|
|
//h:<3A><><EFBFBD><EFBFBD><EFBFBD>пؼ<D0BF><D8BC>ľ<EFBFBD><C4BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ij<EFBFBD><C4B3><EFBFBD>ؼ<EFBFBD><D8BC><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>õĿؼ<C4BF><D8BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
//text:Ҫ<><D2AA>ʾ<EFBFBD><CABE><EFBFBD>ı<EFBFBD>
|
|||
|
|
|
|||
|
|
//cap:<3A><>ʾ<EFBFBD><CABE><EFBFBD>ϵı<CFB5><C4B1><EFBFBD>
|
|||
|
|
|
|||
|
|
//IconType:<3A><>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE>ͼ<EFBFBD>꣨<EFBFBD><EAA3A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5>1<EFBFBD><31>2<EFBFBD><32>3<EFBFBD>ֱ<EFBFBD>Ϊ<EFBFBD><CEAA>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD><EFBFBD>桢<EFBFBD><E6A1A2><EFBFBD><EFBFBD>s<EFBFBD><73>
|
|||
|
|
|
|||
|
|
//t:<3A><>Ϣͣ<CFA2><CDA3><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>(<28>Ժ<EFBFBD><D4BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
|
|||
|
|
|
|||
|
|
//left: <20><>Ϣ<EFBFBD><CFA2>ƫ<EFBFBD><C6AB><EFBFBD>ؼ<EFBFBD><D8BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룬<EFBFBD><EBA3AC>Ϊ0<CEAA><30><EFBFBD><EFBFBD>ʾû<CABE><C3BB>
|
|||
|
|
|
|||
|
|
//top: <20><>Ϣ<EFBFBD><CFA2>ƫ<EFBFBD><C6AB><EFBFBD>ؼ<EFBFBD><D8BC>Ķ<EFBFBD><C4B6><EFBFBD><EFBFBD>룬<EFBFBD><EBA3AC>Ϊ0<CEAA><30><EFBFBD><EFBFBD>ʾû<CABE><C3BB>
|
|||
|
|
begin
|
|||
|
|
hTooltip := CreateWindow('Tooltips_Class32', nil, $40, 0, 0, 0, 0, 0, 0, hInstance, nil);
|
|||
|
|
if hTooltip <> 0 then
|
|||
|
|
begin
|
|||
|
|
SetWindowPos(hTooltip, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǰ<EFBFBD><C7B0>
|
|||
|
|
ti.cbSize := SizeOf(TToolInfo);
|
|||
|
|
ti.uFlags := TTF_IDISHWND or TTF_TRACK;
|
|||
|
|
ti.hInst := hInstance;
|
|||
|
|
ti.lpszText := pchar(text);
|
|||
|
|
SendMessage(hTooltip, TTM_ADDTOOL, 0, Integer(@ti));
|
|||
|
|
if (IconType > 3) or (IconType < 0) then
|
|||
|
|
IconType := 0;
|
|||
|
|
SendMessage(hTooltip, WM_USER + 32, IconType, Integer(pchar(cap)));
|
|||
|
|
GetWindowRect(h, r); //<2F><>ȡָ<C8A1><D6B8><EFBFBD>ؼ<EFBFBD><D8BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,R.Right <20><>R.Left<66><74>R.Bottom<6F><6D>R.Top
|
|||
|
|
r.Left := r.Left - left;
|
|||
|
|
r.Top := r.Top - top;
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB>
|
|||
|
|
SendMessage(hTooltip, TTM_TRACKPOSITION, 0, MAKELONG((r.Right - r.Left) div 2 + r.Left, (r.Bottom - r.Top) div 2 + r.Top));
|
|||
|
|
SendMessage(hTooltip, TTM_TRACKACTIVATE, Integer(True), Integer(@ti));
|
|||
|
|
Sleep(t);
|
|||
|
|
DestroyWindow(hTooltip);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.FPMONEYClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if panel3.Visible = FALSE then
|
|||
|
|
begin
|
|||
|
|
panel3.Visible := True;
|
|||
|
|
// cxGrid1.Visible := False;
|
|||
|
|
// gridkz();
|
|||
|
|
// cxGrid4.Visible := True;
|
|||
|
|
// cxGrid1.Visible := False;
|
|||
|
|
|
|||
|
|
panel3.BringToFront();
|
|||
|
|
|
|||
|
|
InitFP();
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
// control.SetToBack();
|
|||
|
|
panel3.SendToBack();
|
|||
|
|
panel3.Visible := FALSE
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.TV4DblClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Panel3.Visible := False;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.SSMONEYClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
// if PANEL2.Visible = FALSE then
|
|||
|
|
// begin
|
|||
|
|
// PANEL2.Visible := True;
|
|||
|
|
// PANEL2.BringToFront();
|
|||
|
|
// InitSS();
|
|||
|
|
// end
|
|||
|
|
// else
|
|||
|
|
// begin
|
|||
|
|
// PANEL2.SendToBack();
|
|||
|
|
// PANEL2.Visible := FALSE
|
|||
|
|
// end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.JCSClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if (canshu1 = 'ҵ<><D2B5>') or (canshu1 = '<27>鳤') or (Trim(DName) = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|||
|
|
Exit;
|
|||
|
|
if PANEL1.Visible = FALSE then
|
|||
|
|
begin
|
|||
|
|
// cxGrid4.Visible := True;
|
|||
|
|
// cxGrid1.Visible := False;
|
|||
|
|
// gridkz();
|
|||
|
|
PANEL1.Visible := True;
|
|||
|
|
PANEL1.BringToFront();
|
|||
|
|
InitCK();
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
PANEL1.SendToBack();
|
|||
|
|
PANEL1.Visible := FALSE
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.FormCreate(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
// OrderNO.OnMouseDown := ControlMouseDown;
|
|||
|
|
// OrderNO.OnMouseMove := ControlMouseMove;
|
|||
|
|
// OrderNO.OnMouseUp := ControlMouseUp;
|
|||
|
|
|
|||
|
|
PANEL1.OnMouseDown := ControlMouseDown;
|
|||
|
|
PANEL1.OnMouseMove := ControlMouseMove;
|
|||
|
|
PANEL1.OnMouseUp := ControlMouseUp;
|
|||
|
|
|
|||
|
|
PANEL2.OnMouseDown := ControlMouseDown;
|
|||
|
|
PANEL2.OnMouseMove := ControlMouseMove;
|
|||
|
|
PANEL2.OnMouseUp := ControlMouseUp;
|
|||
|
|
|
|||
|
|
PANEL3.OnMouseDown := ControlMouseDown;
|
|||
|
|
PANEL3.OnMouseMove := ControlMouseMove;
|
|||
|
|
PANEL3.OnMouseUp := ControlMouseUp;
|
|||
|
|
|
|||
|
|
PANEL4.OnMouseDown := ControlMouseDown;
|
|||
|
|
PANEL4.OnMouseMove := ControlMouseMove;
|
|||
|
|
PANEL4.OnMouseUp := ControlMouseUp;
|
|||
|
|
|
|||
|
|
// ToolBar2.OnMouseDown := ControlMouseDown;
|
|||
|
|
// ToolBar2.OnMouseMove := ControlMouseMove;
|
|||
|
|
// ToolBar2.OnMouseUp := ControlMouseUp;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.TV3DblClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Panel1.Visible := False;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.TV2DblClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Panel2.Visible := False;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.CPSClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if PANEL4.Visible = FALSE then
|
|||
|
|
begin
|
|||
|
|
// cxGrid4.Visible := True;
|
|||
|
|
// cxGrid1.Visible := False;
|
|||
|
|
// gridkz();
|
|||
|
|
PANEL4.Visible := True;
|
|||
|
|
|
|||
|
|
panel4.BringToFront();
|
|||
|
|
|
|||
|
|
InitCP();
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
// control.SetToBack();
|
|||
|
|
panel4.SendToBack();
|
|||
|
|
PANEL4.Visible := FALSE
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.TV5DblClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Panel4.Visible := False;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.Image2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Panel4.Visible := False;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.Image1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Panel1.Visible := False;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.Image3Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
panel3.Visible := False;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.Image4Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Panel2.Visible := False;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.Button1Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FBJNO: string;
|
|||
|
|
fgdy: string;
|
|||
|
|
begin
|
|||
|
|
// if CDS_Main.IsEmpty then
|
|||
|
|
// exit;
|
|||
|
|
// if CDS_Main.Locate('ssel', true, []) = false then
|
|||
|
|
// begin
|
|||
|
|
// Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
|||
|
|
// Exit;
|
|||
|
|
// end;
|
|||
|
|
if (RadioButton1.Checked = False) and (RadioButton2.Checked = False) and (RadioButton3.Checked = False) then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><EFBFBD><F1BFBCBA><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
fgdy := '';
|
|||
|
|
try
|
|||
|
|
frmUserSel := TfrmUserSel.Create(Application);
|
|||
|
|
with frmUserSel do
|
|||
|
|
begin
|
|||
|
|
fgdy := Trim(GDY.Text);
|
|||
|
|
FGDYNAME := TRIM(GDYNAME.Text);
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
begin
|
|||
|
|
if RadioButton1.Checked = True then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
|
|||
|
|
sql.Add('update JYOrder_Main set SCKHSTATUS=' + QuotedStr(RadioButton1.Caption));
|
|||
|
|
SQL.Add(',SCNOTE=' + QuotedStr(SCNOTE.TEXT));
|
|||
|
|
SQL.Add('where mainid=' + QuotedStr(Trim(FMainId)));
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if RadioButton2.Checked = True then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
|
|||
|
|
sql.Add('update JYOrder_Main set SCKHSTATUS=' + QuotedStr(RadioButton2.Caption));
|
|||
|
|
SQL.Add(',SCNOTE=' + QuotedStr(SCNOTE.TEXT));
|
|||
|
|
SQL.Add('where mainid=' + QuotedStr(Trim(FMainId)));
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if RadioButton3.Checked = True then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
|
|||
|
|
sql.Add('update JYOrder_Main set SCKHSTATUS=' + QuotedStr(RadioButton3.Caption));
|
|||
|
|
SQL.Add(',SCNOTE=' + QuotedStr(SCNOTE.TEXT));
|
|||
|
|
SQL.Add('where mainid=' + QuotedStr(Trim(FMainId)));
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
while frmUserSel.CDS_User.Locate('SSel', True, []) do
|
|||
|
|
begin
|
|||
|
|
if Trim(CDS_User.fieldbyname('wxid').AsString) <> '' then
|
|||
|
|
begin
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
|
|||
|
|
sql.Add('exec P_INSERT_DD ');
|
|||
|
|
sql.Add('@CODE=' + quotedstr(Trim(CDS_User.fieldbyname('wxid').AsString)));
|
|||
|
|
sql.Add(',@MAINID=' + quotedstr(Trim(FMAINID)));
|
|||
|
|
sql.Add(',@ORDERNO=' + quotedstr(Trim(OrderNO.Text)));
|
|||
|
|
sql.Add(',@days=' + quotedstr(Trim(cqts.Text)));
|
|||
|
|
sql.Add(',@CPYY=' + quotedstr(Trim(cpyy.Text)));
|
|||
|
|
sql.Add(',@CLYJ=' + quotedstr(Trim(SCNOTE.Text)));
|
|||
|
|
// ShowMessage(sql.Text);
|
|||
|
|
execsql;
|
|||
|
|
end;
|
|||
|
|
GetHTTP(IdHTTP1, 'http://zhengyong.rightsoft.top/api/message/send/Feedback');
|
|||
|
|
fgdy := '1';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
frmUserSel.CDS_User.Delete;
|
|||
|
|
end;
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
|||
|
|
sql.Add(' ' + quotedstr(trim(DName)));
|
|||
|
|
sql.Add(',getdate() ');
|
|||
|
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
|||
|
|
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
|
|||
|
|
sql.Add(',' + quotedstr(trim('ָʾ<D6B8><CABE><EFBFBD>ţ<EFBFBD>' + trim(OrderNO.Text) + ';<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:' + Trim(SCNOTE.Text))));
|
|||
|
|
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
|
|||
|
|
sql.Add(')');
|
|||
|
|
execsql;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmUserSel.Free;
|
|||
|
|
if fgdy = '1' then
|
|||
|
|
begin
|
|||
|
|
application.MessageBox('<27><><EFBFBD>ͳɹ<CDB3><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCon_DDXQ.Button2Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FBJNO: string;
|
|||
|
|
fgdy: string;
|
|||
|
|
begin
|
|||
|
|
// if CDS_Main.IsEmpty then
|
|||
|
|
// exit;
|
|||
|
|
// if CDS_Main.Locate('ssel', true, []) = false then
|
|||
|
|
// begin
|
|||
|
|
// Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
|||
|
|
// Exit;
|
|||
|
|
// end;
|
|||
|
|
|
|||
|
|
if (RadioButton4.Checked = False) and (RadioButton5.Checked = False) and (RadioButton6.Checked = False) then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><EFBFBD><F1BFBCBA><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
fgdy := '';
|
|||
|
|
try
|
|||
|
|
frmUserSel := TfrmUserSel.Create(Application);
|
|||
|
|
with frmUserSel do
|
|||
|
|
begin
|
|||
|
|
FLeader := Trim(Leader.Text);
|
|||
|
|
FFILLER := Trim(FILLER.Text);
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
begin
|
|||
|
|
while frmUserSel.CDS_User.Locate('SSel', True, []) do
|
|||
|
|
begin
|
|||
|
|
if Trim(CDS_User.fieldbyname('wxid').AsString) <> '' then
|
|||
|
|
begin
|
|||
|
|
if RadioButton4.Checked = True then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
|
|||
|
|
sql.Add('update JYOrder_Main set YWKHSTATUS=' + QuotedStr(RadioButton4.Caption));
|
|||
|
|
SQL.Add(',ywnote=' + QuotedStr(ywnote.TEXT));
|
|||
|
|
SQL.Add('where mainid=' + QuotedStr(Trim(FMainId)));
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if RadioButton5.Checked = True then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
|
|||
|
|
sql.Add('update JYOrder_Main set YWKHSTATUS=' + QuotedStr(RadioButton5.Caption));
|
|||
|
|
SQL.Add(',ywnote=' + QuotedStr(ywnote.TEXT));
|
|||
|
|
SQL.Add('where mainid=' + QuotedStr(Trim(FMainId)));
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if RadioButton6.Checked = True then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
|
|||
|
|
sql.Add('update JYOrder_Main set YWKHSTATUS=' + QuotedStr(RadioButton6.Caption));
|
|||
|
|
SQL.Add(',ywnote=' + QuotedStr(ywnote.TEXT));
|
|||
|
|
SQL.Add('where mainid=' + QuotedStr(Trim(FMainId)));
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
|
|||
|
|
sql.Add('exec P_INSERT_DD_yw ');
|
|||
|
|
sql.Add('@CODE=' + quotedstr(Trim(CDS_User.fieldbyname('wxid').AsString)));
|
|||
|
|
sql.Add(',@MAINID=' + quotedstr(Trim(FMAINID)));
|
|||
|
|
sql.Add(',@ORDERNO=' + quotedstr(Trim(OrderNO.Text)));
|
|||
|
|
sql.Add(',@days=' + quotedstr(Trim(Edit19.Text)));
|
|||
|
|
sql.Add(',@CPYY=' + quotedstr(Trim(cpyy.Text)));
|
|||
|
|
sql.Add(',@CLYJ=' + quotedstr(Trim(ywnote.Text)));
|
|||
|
|
sql.Add(',@spk=' + quotedstr(Trim(spk.Text)));
|
|||
|
|
// ShowMessage(sql.Text);
|
|||
|
|
execsql;
|
|||
|
|
end;
|
|||
|
|
GetHTTP(IdHTTP1, 'http://zhengyong.rightsoft.top/api/message/send/Feedback');
|
|||
|
|
fgdy := '1';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
frmUserSel.CDS_User.Delete;
|
|||
|
|
end;
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
|||
|
|
sql.Add(' ' + quotedstr(trim(DName)));
|
|||
|
|
sql.Add(',getdate() ');
|
|||
|
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
|||
|
|
sql.Add(',' + quotedstr(trim('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
|
|||
|
|
sql.Add(',' + quotedstr(trim('ָʾ<D6B8><CABE><EFBFBD>ţ<EFBFBD>' + trim(OrderNO.Text) + ';<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:' + Trim(ywNOTE.Text))));
|
|||
|
|
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
|
|||
|
|
sql.Add(')');
|
|||
|
|
execsql;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmUserSel.Free;
|
|||
|
|
if fgdy = '1' then
|
|||
|
|
begin
|
|||
|
|
application.MessageBox('<27><><EFBFBD>ͳɹ<CDB3><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|