502 lines
15 KiB
ObjectPascal
502 lines
15 KiB
ObjectPascal
unit U_PDOrderProgress;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
|
||
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
|
||
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
|
||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
|
||
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
|
||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||
cxTextEdit, cxDBLookupComboBox, cxGridBandedTableView, cxGridDBBandedTableView,
|
||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, Menus, Clipbrd, OleServer,
|
||
AccessXP, cxContainer, cxImage, cxDBEdit, StrUtils, RM_e_Graphic, RM_e_Jpeg,
|
||
U_SLT1, IdHTTP, jpeg;
|
||
|
||
type
|
||
TfrmPDOrderProgress = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBRafresh: TToolButton;
|
||
TBClose: TToolButton;
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
ToolButton2: TToolButton;
|
||
ToolButton1: TToolButton;
|
||
RM1: TRMGridReport;
|
||
RMDBHZ: TRMDBDataSet;
|
||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||
cxGrid1: TcxGrid;
|
||
TV1: TcxGridDBBandedTableView;
|
||
cxGridDBBandedColumn35: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn42: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn51: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn52: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn56: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn57: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn59: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn60: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn61: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn62: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn63: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn64: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn77: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn79: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn81: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn87: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn91: TcxGridDBBandedColumn;
|
||
V1Column1: TcxGridDBBandedColumn;
|
||
V1Column2: TcxGridDBBandedColumn;
|
||
V1Column6: TcxGridDBBandedColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
V1Column25: TcxGridDBBandedColumn;
|
||
V1Column28: TcxGridDBBandedColumn;
|
||
V1Column4: TcxGridDBBandedColumn;
|
||
V1Column5: TcxGridDBBandedColumn;
|
||
V1Column7: TcxGridDBBandedColumn;
|
||
CDSPRTHZ: TClientDataSet;
|
||
CDSPRTMX: TClientDataSet;
|
||
RMDBMX: TRMDBDataSet;
|
||
ADOQueryMain: TADOQuery;
|
||
DataSource1: TDataSource;
|
||
CDS_HZ: TClientDataSet;
|
||
TV1Column1: TcxGridDBBandedColumn;
|
||
TV1Column3: TcxGridDBBandedColumn;
|
||
TV1Column8: TcxGridDBBandedColumn;
|
||
PopupMenu1: TPopupMenu;
|
||
N1: TMenuItem;
|
||
TV1Column9: TcxGridDBBandedColumn;
|
||
TV1Column2: TcxGridDBBandedColumn;
|
||
TV1Column4: TcxGridDBBandedColumn;
|
||
TV1Column5: TcxGridDBBandedColumn;
|
||
ToolButton3: TToolButton;
|
||
AccessApplication1: TAccessApplication;
|
||
cxSplitter1: TcxSplitter;
|
||
DataSource2: TDataSource;
|
||
Panel1: TPanel;
|
||
cxGrid2: TcxGrid;
|
||
TV2: TcxGridDBBandedTableView;
|
||
TV1Column6: TcxGridDBBandedColumn;
|
||
TV1Column7: TcxGridDBBandedColumn;
|
||
TV1Column10: TcxGridDBBandedColumn;
|
||
TV1Column11: TcxGridDBBandedColumn;
|
||
TV1Column12: TcxGridDBBandedColumn;
|
||
TV1Column16: TcxGridDBBandedColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
ADOQueryImage: TADOQuery;
|
||
DataSource3: TDataSource;
|
||
IdFTP1: TIdFTP;
|
||
RMJPEGExport1: TRMJPEGExport;
|
||
ScrollBox1: TScrollBox;
|
||
TV2Column1: TcxGridDBBandedColumn;
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBRafreshClick(Sender: TObject);
|
||
procedure MPRTCodeNameChange(Sender: TObject);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure ToolButton3Click(Sender: TObject);
|
||
procedure cxGridDBBandedColumn35CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||
procedure TV1Column6PropertiesEditValueChanged(Sender: TObject);
|
||
procedure MPRTCodeKeyPress(Sender: TObject; var Key: Char);
|
||
procedure DDTYPEChange(Sender: TObject);
|
||
procedure TV1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure N1Click(Sender: TObject);
|
||
procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||
procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||
procedure Picture4DblClick(Sender: TObject);
|
||
procedure TV1Column16PropertiesEditValueChanged(Sender: TObject);
|
||
private
|
||
|
||
{ Private declarations }
|
||
procedure InitImage();
|
||
procedure InitGrid();
|
||
procedure LookImage(FileName: string);
|
||
public
|
||
fkhType: string;
|
||
Fmanage, fmainid: string;
|
||
canshu1: string;
|
||
fFlileFlag: string;
|
||
end;
|
||
|
||
var
|
||
frmPDOrderProgress: TfrmPDOrderProgress;
|
||
Mach: array of TfrmSlt1;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_Fun, U_ZDYHelp, U_JDOrderProgress;
|
||
|
||
{$R *.dfm}
|
||
procedure TfrmPDOrderProgress.LookImage(FileName: string);
|
||
var
|
||
sFieldName: string;
|
||
// ff: TADOBlobStream;
|
||
// FJStream : TMemoryStream;
|
||
begin
|
||
|
||
sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ<CDBC>鿴';
|
||
|
||
if not DirectoryExists(pchar(sFieldName)) then
|
||
CreateDirectory(pchar(sFieldName), nil);
|
||
|
||
sFieldName := sFieldName + '\' + trim(FileName);
|
||
|
||
try
|
||
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ', '127.0.0.1');
|
||
IdFTP1.Username := 'three';
|
||
IdFTP1.Password := '641010';
|
||
IdFTP1.Connect();
|
||
except
|
||
;
|
||
end;
|
||
|
||
if IdFTP1.Connected then
|
||
begin
|
||
|
||
// Panel2.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>Ե<EFBFBD>...';
|
||
// Panel2.Visible:=true;
|
||
// application.ProcessMessages;
|
||
try
|
||
IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false);
|
||
except
|
||
// Panel2.Visible:=false;
|
||
Application.MessageBox('<27>ͻ<EFBFBD>ͼ<EFBFBD><CDBC><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
|
||
IdFTP1.Quit;
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
// Panel2.Visible:=false;
|
||
Application.MessageBox('<27><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
|
||
IdFTP1.Quit;
|
||
Exit;
|
||
end;
|
||
// Panel2.Visible:=false;
|
||
if IdFTP1.Connected then
|
||
IdFTP1.Quit;
|
||
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.InitImage();
|
||
var
|
||
i, j: integer;
|
||
jpg: TJpegImage;
|
||
myStream: TADOBlobStream;
|
||
begin
|
||
j := length(Mach);
|
||
if j > 0 then
|
||
begin
|
||
for i := 0 to j - 1 do
|
||
begin
|
||
Mach[i].free;
|
||
end;
|
||
end;
|
||
SetLength(Mach, 0);
|
||
if CDSPRTMX.IsEmpty then
|
||
exit;
|
||
try
|
||
with ADOQueryImage do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add(' select A.TFID,A.WBID,A.FilesOther,FileName,url from TP_File A ');
|
||
sql.add('where A. WBID= ' + quotedstr(trim(CDSPRTMX.fieldbyname('Jdid').AsString)));
|
||
open;
|
||
end;
|
||
j := ADOQueryImage.RecordCount;
|
||
if j < 1 then
|
||
exit;
|
||
ADOQueryImage.DisableControls;
|
||
ADOQueryImage.First;
|
||
SetLength(Mach, j);
|
||
jpg := TJpegImage.Create();
|
||
for i := 0 to j - 1 do
|
||
begin
|
||
if triM(ADOQueryImage.fieldbyname('FilesOther').AsString) <> '' then
|
||
begin
|
||
myStream := tadoblobstream.Create(tblobfield(ADOQueryImage.fieldbyname('FilesOther')), bmread);
|
||
jpg.LoadFromStream(myStream);
|
||
Mach[i] := TfrmSlt1.Create(Self);
|
||
Mach[i].Name := trim(ADOQueryImage.fieldbyname('TFID').AsString);
|
||
Mach[i].Parent := ScrollBox1;
|
||
Mach[i].Left := 0 + i * 165;
|
||
Mach[i].Init(ADOQueryImage.fieldbyname('TFID').AsString, ADOQueryImage.fieldbyname('FileName').AsString, jpg, ADOQueryImage.fieldbyname('url').AsString);
|
||
end;
|
||
ADOQueryImage.Next;
|
||
end;
|
||
ADOQueryImage.EnableControls;
|
||
finally
|
||
jpg.free;
|
||
application.ProcessMessages;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.InitGrid();
|
||
var
|
||
fwhere, Pwhere: string;
|
||
begin
|
||
|
||
try
|
||
ADOQueryMain.DisableControls;
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add(' select A.*,pdid,pddate,QTY2=B.QTY,B.FILLER AS FILLER2,B.COLORS,B.RollNum,B.QTYUNIT,B.pddate,B.NOTE AS NOTE2 from JYOrder_Main a inner join JYOrder_Main_Pd b on a.mainid=B.mainid');
|
||
sql.Add('where a.mainid=' + QuotedStr(Trim(fmainid)));
|
||
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryMain, CDS_HZ);
|
||
SInitCDSData20(ADOQueryMain, CDS_HZ);
|
||
// CDS_HZ.Last;
|
||
finally
|
||
ADOQueryMain.EnableControls;
|
||
|
||
end
|
||
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmpdOrderProgress := nil;
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
var
|
||
i, j: integer;
|
||
begin
|
||
j := length(Mach);
|
||
if j > 0 then
|
||
begin
|
||
for i := 0 to j - 1 do
|
||
begin
|
||
Mach[i].free;
|
||
end;
|
||
end;
|
||
SetLength(Mach, 0);
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.TBCloseClick(Sender: TObject);
|
||
begin
|
||
WriteCxBandedGrid(trim(self.caption) + '1', Tv1, '<27><><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
WriteCxBandedGrid(trim(self.caption) + '3', Tv2, '<27><><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.FormShow(Sender: TObject);
|
||
begin
|
||
ReadCxBandedGrid(trim(self.caption) + '1', Tv1, '<27><><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
ReadCxBandedGrid(trim(self.caption) + '3', Tv2, '<27><><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.TBRafreshClick(Sender: TObject);
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.MPRTCodeNameChange(Sender: TObject);
|
||
begin
|
||
ToolButton2.Click;
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.ToolButton1Click(Sender: TObject);
|
||
begin
|
||
if ADOQueryMain.IsEmpty then
|
||
Exit;
|
||
TcxGridToExcel(self.Caption, cxgrid1);
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.FormCreate(Sender: TObject);
|
||
begin
|
||
canshu1 := Trim(DParameters1);
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.ToolButton3Click(Sender: TObject);
|
||
begin
|
||
|
||
if CDS_HZ.IsEmpty then
|
||
exit;
|
||
|
||
try
|
||
frmJDOrderProgress := TfrmJDOrderProgress.Create(Application);
|
||
with frmJDOrderProgress do
|
||
begin
|
||
|
||
FMainId := Trim(Self.CDS_HZ.fieldbyname('MainId').AsString);
|
||
|
||
if ShowModal = 1 then
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmJDOrderProgress.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.cxGridDBBandedColumn35CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||
begin
|
||
if (ARow1.Values[TV1Column3.Index] = ARow2.Values[TV1Column3.Index]) then
|
||
AAreEqual := True
|
||
else
|
||
AAreEqual := False;
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.TV1Column6PropertiesEditValueChanged(Sender: TObject);
|
||
var
|
||
mvalues, FFieldName: string;
|
||
begin
|
||
mvalues := TCXTextEdit(Sender).Text;
|
||
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
|
||
with CDS_HZ do
|
||
begin
|
||
edit;
|
||
fieldbyname(FFieldName).Value := mvalues;
|
||
post;
|
||
end;
|
||
tv1.Controller.EditingController.ShowEdit();
|
||
// if trim(mvalues) <> '' then
|
||
// begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update JYORDER_SUB ');
|
||
SQL.Add(' Set ' + FFieldName + '=' + QuotedStr(mvalues));
|
||
sql.Add(' where SUBID=''' + Trim(CDS_HZ.fieldbyname('SUBID').AsString) + '''');
|
||
|
||
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>Ľ<DEB8><C4BD>ȱ<EFBFBD>ע')));
|
||
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>:' + trim(CDS_HZ.FieldByName('subid').AsString) + ';<3B>ֱ<EFBFBD>ע:' + trim(CDS_HZ.FieldByName('JDNOTE').AsString))));
|
||
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
|
||
sql.Add(')');
|
||
ExecSQL;
|
||
end;
|
||
tv1.Controller.EditingController.ShowEdit();
|
||
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.MPRTCodeKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if Key = #13 then
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.DDTYPEChange(Sender: TObject);
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.TV1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
begin
|
||
if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('chk').Index]) = 0 then
|
||
begin
|
||
ACanvas.FONT.Color := CLRED;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.N1Click(Sender: TObject);
|
||
var
|
||
myclipbrd: TClipboard;
|
||
begin
|
||
myclipbrd := TClipboard.Create();
|
||
myclipbrd.AsText := CDS_HZ.FieldByName('MPRTCode').ASSTRING;
|
||
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||
begin
|
||
try
|
||
ADOQueryCmd.DisableControls;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('SELECT C.* FROM JyOrder_Main_Jd C ');
|
||
sql.Add('where C.PDID=' + QuotedStr(Trim(CDS_HZ.FieldByName('PDID').AsString)));
|
||
sql.Add('order by idx');
|
||
// ShowMessage(SQL.Text);
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryCmd, CDSPRTMX);
|
||
SInitCDSData20(ADOQueryCmd, CDSPRTMX);
|
||
// CDS_HZ.Last;
|
||
finally
|
||
ADOQueryCmd.EnableControls;
|
||
|
||
end
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||
begin
|
||
if CDSPRTMX.IsEmpty then
|
||
Exit;
|
||
InitImage();
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.Picture4DblClick(Sender: TObject);
|
||
begin
|
||
if TcxDBImage(Sender).Picture.Height = 0 then
|
||
exit;
|
||
|
||
LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring);
|
||
end;
|
||
|
||
procedure TfrmPDOrderProgress.TV1Column16PropertiesEditValueChanged(Sender: TObject);
|
||
var
|
||
mvalues, FFieldName: string;
|
||
begin
|
||
mvalues := TCXTextEdit(Sender).Text;
|
||
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
|
||
with CDSPRTMX do
|
||
begin
|
||
edit;
|
||
fieldbyname(FFieldName).Value := mvalues;
|
||
post;
|
||
end;
|
||
Tv2.Controller.EditingController.ShowEdit();
|
||
// if trim(mvalues) <> '' then
|
||
// begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update JyOrder_Main_Jd ');
|
||
SQL.Add(' Set ' + FFieldName + '=' + QuotedStr(mvalues));
|
||
sql.Add(' where JDID=''' + Trim(CDSPRTMX.fieldbyname('JDID').AsString) + '''');
|
||
|
||
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>Ĵ<DEB8><C4B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
|
||
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>:' + trim(CDSPRTMX.FieldByName('JDID').AsString) + ';<3B>ֱ<EFBFBD>ע:' + trim(CDSPRTMX.FieldByName('CLNOTE').AsString))));
|
||
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
|
||
sql.Add(')');
|
||
ExecSQL;
|
||
end;
|
||
Tv2.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
end.
|
||
|