913 lines
24 KiB
ObjectPascal
913 lines
24 KiB
ObjectPascal
unit U_TradeInspSet;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, StrUtils, 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, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
|
||
cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
|
||
dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxImage,
|
||
cxDBEdit, IdExplicitTLSClientServerBase, RM_Preview, cxPC, U_BaseHelp,
|
||
System.ImageList, Vcl.ImgList, RTComboBox, RM_BarCode, RM_e_Xls, RM_e_Jpeg,
|
||
RM_E_llPDF, RM_e_main, RM_e_htm, RM_e_Tiff, RM_e_emf, RM_e_Graphic, RM_e_bmp,
|
||
RM_e_csv, RM_e_txt, RM_DialogCtls, RM_Cross, RM_Diagonal, RM_ChineseMoneyMemo,
|
||
RM_Ole, RM_CheckBox, RM_RichEdit, RM_AngLbl, RM_FormReport, RM_PDBGrid,
|
||
RMD_Dbx, RMD_ADO, RMD_ReportExplorer, RM_DsgGridReport, RM_Designer,
|
||
dxSkinWXI, dxScrollbarAnnotations;
|
||
|
||
type
|
||
TfrmTradeInspSet = class(TfrmBaseHelp)
|
||
ToolBar1: TToolBar;
|
||
TBClose: TToolButton;
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
ADOQueryMain: TADOQuery;
|
||
ToolButton3: TToolButton;
|
||
ScrollBox1: TScrollBox;
|
||
Label14: TLabel;
|
||
Label1: TLabel;
|
||
cxPageControl1: TcxPageControl;
|
||
cxTabSheet4: TcxTabSheet;
|
||
cxTabSheet3: TcxTabSheet;
|
||
RMPreview2: TRMPreview;
|
||
RMPreview1: TRMPreview;
|
||
Label2: TLabel;
|
||
RuleBeforeTare: TEdit;
|
||
RuleConversion: TComboBox;
|
||
Label3: TLabel;
|
||
Coefficient: TEdit;
|
||
Label4: TLabel;
|
||
ADOQueryLabel: TADOQuery;
|
||
RM1: TRMGridReport;
|
||
RMDB_1: TRMDBDataSet;
|
||
ADO_1: TADOQuery;
|
||
RM2: TRMGridReport;
|
||
RMDB_2: TRMDBDataSet;
|
||
cxTabSheet1: TcxTabSheet;
|
||
DS_Label: TDataSource;
|
||
CDS_Label: TClientDataSet;
|
||
RMDB_Label: TRMDBDataSet;
|
||
RMLabel: TRMGridReport;
|
||
Panel1: TPanel;
|
||
Panel2: TPanel;
|
||
cxGridLabel: TcxGrid;
|
||
TVLabel: TcxGridDBTableView;
|
||
TVLabellabelId: TcxGridDBColumn;
|
||
TVLabellabeltype: TcxGridDBColumn;
|
||
TVLabellabelCaption: TcxGridDBColumn;
|
||
TVLabellabelFile: TcxGridDBColumn;
|
||
cxGridLabelLevel1: TcxGridLevel;
|
||
RMPreview3: TRMPreview;
|
||
Panel4: TPanel;
|
||
ToolBar2: TToolBar;
|
||
ToolButton1: TToolButton;
|
||
ToolButton2: TToolButton;
|
||
Tadd: TToolButton;
|
||
Tupd: TToolButton;
|
||
Tdel: TToolButton;
|
||
ToolButton4: TToolButton;
|
||
RMBarCodeObject1: TRMBarCodeObject;
|
||
RMXLSExport1: TRMXLSExport;
|
||
RMDataDictionary1: TRMDataDictionary;
|
||
ADO_Down: TADOQuery;
|
||
TVLabelColumn1: TcxGridDBColumn;
|
||
TVLabelColumn2: TcxGridDBColumn;
|
||
LabVolume: TEdit;
|
||
LabPackage: TEdit;
|
||
Label5: TLabel;
|
||
RulePieceNo: TComboBox;
|
||
Label6: TLabel;
|
||
RuleLenUnit: TComboBox;
|
||
Label8: TLabel;
|
||
RuleLaterTare: TEdit;
|
||
RMReport1: TRMReport;
|
||
RMCompositeReport1: TRMCompositeReport;
|
||
RMDBDataSet1: TRMDBDataSet;
|
||
RMUserDataset1: TRMUserDataset;
|
||
RMAngledLabelObject1: TRMAngledLabelObject;
|
||
RMRichObject1: TRMRichObject;
|
||
RMCheckBoxObject1: TRMCheckBoxObject;
|
||
RMOLEObject1: TRMOLEObject;
|
||
RMChineseMoneyObject1: TRMChineseMoneyObject;
|
||
RMDiagonalObject1: TRMDiagonalObject;
|
||
RMCrossObject1: TRMCrossObject;
|
||
RMDialogControls1: TRMDialogControls;
|
||
RMTextExport1: TRMTextExport;
|
||
RMCSVExport1: TRMCSVExport;
|
||
RMBMPExport1: TRMBMPExport;
|
||
RMEMFExport1: TRMEMFExport;
|
||
RMTiffExport1: TRMTiffExport;
|
||
RMHTMExport1: TRMHTMExport;
|
||
RMllPDFExport1: TRMllPDFExport;
|
||
RMJPEGExport1: TRMJPEGExport;
|
||
RMDesigner1: TRMDesigner;
|
||
RMGridReportDesigner1: TRMGridReportDesigner;
|
||
RMReportExplorer1: TRMReportExplorer;
|
||
RMDADOComponents1: TRMDADOComponents;
|
||
RMDDBXComponents1: TRMDDBXComponents;
|
||
RMFormReport1: TRMFormReport;
|
||
RMPrintDBGrid1: TRMPrintDBGrid;
|
||
RMDB_UP: TRMDBDataSet;
|
||
RMUP: TRMGridReport;
|
||
ToolButton6: TToolButton;
|
||
ToolButton7: TToolButton;
|
||
ToolButton5: TToolButton;
|
||
Label10: TLabel;
|
||
LabelCaption: TEdit;
|
||
Label9: TLabel;
|
||
LabelType: TComboBox;
|
||
ADO_I1: TADOQuery;
|
||
DS_I1: TDataSource;
|
||
IdFTP1: TIdFTP;
|
||
ToolButton8: TToolButton;
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBRafreshClick(Sender: TObject);
|
||
procedure ToolButton3Click(Sender: TObject);
|
||
procedure cxPageControl1Change(Sender: TObject);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure TupdClick(Sender: TObject);
|
||
procedure TdelClick(Sender: TObject);
|
||
procedure TaddClick(Sender: TObject);
|
||
procedure ToolButton4Click(Sender: TObject);
|
||
procedure LabelTypeChange(Sender: TObject);
|
||
procedure TVLabelCellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||
procedure LabVolumeDblClick(Sender: TObject);
|
||
procedure ToolButton6Click(Sender: TObject);
|
||
procedure ToolButton7Click(Sender: TObject);
|
||
procedure ToolButton5Click(Sender: TObject);
|
||
procedure TJDblClick(Sender: TObject);
|
||
procedure PackTypeBtnDnClick(Sender: TObject);
|
||
procedure PackTypeBtnUpClick(Sender: TObject);
|
||
procedure cxDBImage1DblClick(Sender: TObject);
|
||
procedure ToolButton8Click(Sender: TObject);
|
||
private
|
||
{ Private declarations }
|
||
procedure InitGrid();
|
||
function SaveData(): Boolean;
|
||
procedure InitLabel();
|
||
function SaveLabel(MLabelID: string): Boolean;
|
||
procedure InitLabVolume();
|
||
procedure InitLabPackage();
|
||
procedure UpLabelImg(MlabelCaption: string);
|
||
procedure LookImage(FileName: string);
|
||
procedure IintLabelType();
|
||
public
|
||
FDataID: string;
|
||
fFlileFlag: string;
|
||
end;
|
||
|
||
var
|
||
frmTradeInspSet: TfrmTradeInspSet;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_CompanySel, U_LabelInput,
|
||
U_PictureUpload;
|
||
|
||
{$R *.dfm}
|
||
procedure TfrmTradeInspSet.IintLabelType();
|
||
var
|
||
mSql: string;
|
||
begin
|
||
mSql := 'select Name=ZDYName from KH_ZDY where Type=''BQLX'' ';
|
||
SInitComBoxBySql(ADOQueryTemp, LabelType, False, mSql);
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.LookImage(FileName: string);
|
||
var
|
||
sFieldName: string;
|
||
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
|
||
try
|
||
IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false);
|
||
except
|
||
Application.MessageBox('<27>ͻ<EFBFBD>ͼ<EFBFBD><CDBC><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
|
||
IdFTP1.Quit;
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox('<27><EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
|
||
IdFTP1.Quit;
|
||
Exit;
|
||
end;
|
||
if IdFTP1.Connected then
|
||
IdFTP1.Quit;
|
||
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.UpLabelImg(MlabelCaption: string);
|
||
var
|
||
fImagePath2: string;
|
||
OpenDiaLog: TOpenDialog;
|
||
fFileName: string;
|
||
fFilePath: string;
|
||
maxNo: string;
|
||
FJStream: TMemoryStream;
|
||
mfileSize: integer;
|
||
mCreationTime: TdateTime;
|
||
mWriteTime: TdateTime;
|
||
begin
|
||
|
||
with ADOQueryLabel do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select top 1 * from RT_FileUpdate');
|
||
sql.Add('where FileName=' + quotedstr(trim(MlabelCaption) + '.rmf'));
|
||
Open;
|
||
end;
|
||
|
||
if ADOQueryLabel.IsEmpty then
|
||
exit;
|
||
|
||
with RMUP do
|
||
begin
|
||
LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('Files')));
|
||
fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\label0001.jpg';
|
||
if FileExists(fImagePath2) then
|
||
DeleteFile(fImagePath2);
|
||
fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\label.jpg';
|
||
RMUP.PrepareReport;
|
||
RMUP.ExportTo(RMjpegExport1, fImagePath2);
|
||
end;
|
||
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
fFilePath := ExtractFilePath(Application.ExeName) + 'image\label0001.jpg';
|
||
fFileName := 'label.jpg';
|
||
application.ProcessMessages;
|
||
if GetLSNo(ADOQueryCmd, maxNo, 'FJ', 'TP_File', 4, 1) = False then
|
||
begin
|
||
adoqueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
//<2F><>ȡ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>Ϣ
|
||
GetFileInfo(fFilePath, mfileSize, mCreationTime, mWriteTime);
|
||
with adoqueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('delete from TP_File ');
|
||
sql.Add('where TFType=''<27><>ǩͼƬ'' and WBID=' + quotedstr(Trim(MlabelCaption)));
|
||
// ShowMessage(SQL.Text) ;
|
||
execsql;
|
||
end;
|
||
|
||
try
|
||
FJStream := TMemoryStream.Create;
|
||
with adoqueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from TP_File ');
|
||
sql.Add('where TFID=' + quotedstr(trim(maxNo)));
|
||
open;
|
||
append;
|
||
fieldbyname('TFID').Value := trim(maxNo);
|
||
fieldbyname('WBID').Value := Trim(MlabelCaption);
|
||
fieldbyname('TFType').Value := trim('<27><>ǩͼƬ');
|
||
fieldbyname('Filler').Value := trim(DName);
|
||
fieldbyname('FileName').Value := trim(fFileName);
|
||
fieldbyname('TFDate').Value := mWriteTime;
|
||
FJStream.LoadFromFile(fFilePath);
|
||
tblobfield(FieldByName('Filesother')).LoadFromStream(FJStream);
|
||
post;
|
||
end;
|
||
finally
|
||
FJStream.Free;
|
||
end;
|
||
|
||
adoqueryCmd.Connection.CommitTrans;
|
||
except
|
||
adoqueryCmd.Connection.RollbackTrans;
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
end;
|
||
|
||
function TfrmTradeInspSet.SaveLabel(MLabelID: string): Boolean;
|
||
begin
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from Trade_Label');
|
||
sql.Add('where LabelID=' + Quotedstr(MLabelID));
|
||
Open;
|
||
Edit;
|
||
fieldByName('Editer').value := DName;
|
||
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
|
||
// RMLabel.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
|
||
Post;
|
||
end;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
result := true;
|
||
except
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Result := false;
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩģ<C7A9><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.InitLabel();
|
||
begin
|
||
with ADOQueryMain do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add(' select * from Trade_Label');
|
||
sql.Add(' order by labeltype,labelCaption');
|
||
Open;
|
||
end;
|
||
SDofilter(ADOQueryMain, SGetFilters(Panel4, 1, 2));
|
||
SCreateCDS(ADOQueryMain, CDS_Label);
|
||
SInitCDSData(ADOQueryMain, CDS_Label);
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.InitLabVolume();
|
||
begin
|
||
|
||
with ADOQueryLabel do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select top 1 * from RT_FileUpdate');
|
||
sql.Add('where FileName=' + quotedstr(trim(LabVolume.Text) + '.rmf'));
|
||
Open;
|
||
end;
|
||
|
||
if ADOQueryLabel.IsEmpty then
|
||
exit;
|
||
with RM1 do
|
||
begin
|
||
LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('Files')));
|
||
Preview := RMPreview1;
|
||
ShowReport;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.InitLabPackage();
|
||
begin
|
||
|
||
with ADOQueryLabel do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select top 1 * from RT_FileUpdate');
|
||
sql.Add('where FileName=' + quotedstr(trim(LabPackage.Text) + '.rmf'));
|
||
Open;
|
||
end;
|
||
|
||
if ADOQueryLabel.IsEmpty then
|
||
exit;
|
||
|
||
with RM2 do
|
||
begin
|
||
LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('Files')));
|
||
Preview := RMPreview2;
|
||
ShowReport;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.LabelTypeChange(Sender: TObject);
|
||
begin
|
||
if ADOQueryMain.Active then
|
||
begin
|
||
SDofilter(ADOQueryMain, SGetFilters(Panel4, 1, 2));
|
||
SCreateCDS(ADOQueryMain, CDS_Label);
|
||
SInitCDSData(ADOQueryMain, CDS_Label);
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.LabVolumeDblClick(Sender: TObject);
|
||
begin
|
||
TEdit(Sender).Text := '';
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.PackTypeBtnDnClick(Sender: TObject);
|
||
begin
|
||
TBtnEditC(Sender).Text := '';
|
||
TBtnEditC(Sender).TxtCode := '';
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.PackTypeBtnUpClick(Sender: TObject);
|
||
var
|
||
fsj: string;
|
||
FWZ: Integer;
|
||
begin
|
||
fsj := Trim(TEdit(Sender).Hint);
|
||
FWZ := Pos('/', fsj);
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := Copy(fsj, 1, FWZ - 1);
|
||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||
if ShowModal = 1 then
|
||
begin
|
||
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.TJDblClick(Sender: TObject);
|
||
var
|
||
fsj: string;
|
||
FWZ: Integer;
|
||
i: integer;
|
||
begin
|
||
fsj := Trim(TMemo(Sender).Hint);
|
||
FWZ := Pos('/', fsj);
|
||
i := 0;
|
||
try
|
||
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
|
||
with frmZDYHelpSel do
|
||
begin
|
||
flag := Copy(fsj, 1, FWZ - 1);
|
||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||
if ShowModal = 1 then
|
||
begin
|
||
TMemo(Sender).Lines.Clear;
|
||
with ClientDataSet1 do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if FieldByName('SSel').AsBoolean = True then
|
||
begin
|
||
i := i + 1;
|
||
TMemo(Sender).Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString) //inttostr(i)+'.'+
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelpSel.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.InitGrid();
|
||
begin
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' select * from Trade_Cloth_Inspect_Rule where RuleID=''' + Trim(FDataID) + '''');
|
||
Open;
|
||
end;
|
||
SCSHData(ADOQueryTemp, ScrollBox1, 2);
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' select * from Trade_Plan_Main where MainId=''' + Trim(FDataID) + '''');
|
||
Open;
|
||
end;
|
||
SCSHData(ADOQueryTemp, ScrollBox1, 9);
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.FormDestroy(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
frmTradeInspSet := nil;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.cxDBImage1DblClick(Sender: TObject);
|
||
begin
|
||
if TcxDBImage(Sender).Picture.Height = 0 then
|
||
exit;
|
||
LookImage(ADO_I1.fieldbyname(TcxDBImage(Sender).Hint).asstring);
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.cxPageControl1Change(Sender: TObject);
|
||
begin
|
||
case cxPageControl1.ActivePageIndex of
|
||
1:
|
||
begin
|
||
InitLabVolume();
|
||
end;
|
||
2:
|
||
begin
|
||
InitLabPackage();
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
inherited;
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.TaddClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmLabelInput := TfrmLabelInput.create(self);
|
||
with frmLabelInput do
|
||
begin
|
||
FLabelId := '';
|
||
if showModal = 1 then
|
||
begin
|
||
InitLabel();
|
||
end;
|
||
end;
|
||
finally
|
||
frmLabelInput.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.TBCloseClick(Sender: TObject);
|
||
begin
|
||
ModalResult := 1;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.FormShow(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
readCxGrid(self.Caption, TVLabel, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
IintLabelType();
|
||
ExportFtErpFile('ģ<><C4A3><EFBFBD><EFBFBD>ǩ.rmf', ADOQueryTemp);
|
||
fFlileFlag := UserDataFlag + 'HX';
|
||
with ADO_1 do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_BS_Label_Get_Test');
|
||
Open;
|
||
end;
|
||
Initlabel();
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.TBRafreshClick(Sender: TObject);
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.TdelClick(Sender: TObject);
|
||
var
|
||
fPrintFile: string;
|
||
begin
|
||
if CDS_Label.IsEmpty then
|
||
exit;
|
||
if TRIM(DName) <> 'ADMIN' then
|
||
begin
|
||
if TRIM(CDS_Label.fieldByName('Filler').asString) <> TRIM(DName) then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
||
Exit;
|
||
|
||
try
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.Add('delete Trade_Label');
|
||
sql.Add('where labelId=' + quotedstr(CDS_Label.fieldByName('LabelID').asString));
|
||
sql.Add('delete RT_FileUpdate');
|
||
sql.Add('where FileName=' + quotedstr(trim(CDS_Label.fieldByName('labelCaption').asString) + '.rmf'));
|
||
|
||
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><>ǩɾ<C7A9><C9BE>')));
|
||
sql.Add(',' + quotedstr(trim('<27><>ǩ<EFBFBD><C7A9><EFBFBD>ƣ<EFBFBD>' + trim(CDS_Label.fieldByName('labelCaption').asString))));
|
||
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
|
||
sql.Add(')');
|
||
execSql;
|
||
end;
|
||
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'report\' + trim(CDS_Label.fieldByName('labelCaption').asString) + '.rmf';
|
||
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
DeleteFile(fPrintFile);
|
||
end;
|
||
|
||
CDS_Label.Delete;
|
||
except
|
||
application.MessageBox('ɾ<><C9BE>ʧ<EFBFBD><CAA7>!', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ', 0);
|
||
end;
|
||
|
||
end;
|
||
|
||
function TfrmTradeInspSet.SaveData(): Boolean;
|
||
var
|
||
MaxId, MaxSubId, FCoCode, FCCID, MaxCFID: string;
|
||
begin
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
|
||
if Trim(FDataID) = '' then
|
||
begin
|
||
if GetLSNo(ADOQueryCmd, MaxId, 'R', 'Trade_Cloth_Inspect_Rule', 4, 1) = False then
|
||
begin
|
||
Result := False;
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
MaxId := Trim(FDataID);
|
||
end;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from Trade_Cloth_Inspect_Rule where RuleID=''' + Trim(FDataID) + '''');
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
if Trim(FDataID) = '' then
|
||
begin
|
||
Append;
|
||
FieldByName('Filler').Value := Trim(DName);
|
||
end
|
||
else
|
||
begin
|
||
Edit;
|
||
FieldByName('Editer').Value := Trim(DName);
|
||
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
|
||
end;
|
||
FieldByName('RuleID').Value := Trim(MaxId);
|
||
RTSetsavedata(ADOQueryCmd, 'Trade_Cloth_Inspect_Rule', ScrollBox1, 2);
|
||
|
||
Post;
|
||
end;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from Trade_Plan_Main where MainId=''' + Trim(FDataID) + '''');
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
|
||
Edit;
|
||
FieldByName('EditId').Value := Trim(DCode);
|
||
FieldByName('Editer').Value := Trim(DName);
|
||
FieldByName('EditTime').Value := SGetServerDateTime(ADOQuerytemp);
|
||
|
||
RTSetsavedata(ADOQueryCmd, 'Trade_Plan_Main', ScrollBox1, 9);
|
||
Post;
|
||
end;
|
||
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
FCCID := Trim(MaxSubId);
|
||
Result := True;
|
||
except
|
||
Result := false;
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!', '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.ToolButton1Click(Sender: TObject);
|
||
begin
|
||
if CDS_Label.IsEmpty then
|
||
exit;
|
||
LabVolume.Text := trim(CDS_Label.fieldbyname('labelCaption').asstring);
|
||
|
||
UpLabelImg(trim(CDS_Label.fieldbyname('labelCaption').asstring));
|
||
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.ToolButton2Click(Sender: TObject);
|
||
begin
|
||
if CDS_Label.IsEmpty then
|
||
exit;
|
||
LabPackage.Text := trim(CDS_Label.fieldbyname('labelCaption').asstring);
|
||
UpLabelImg(trim(CDS_Label.fieldbyname('labelCaption').asstring));
|
||
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.ToolButton3Click(Sender: TObject);
|
||
begin
|
||
|
||
if SaveData() then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.ToolButton4Click(Sender: TObject);
|
||
var
|
||
fFileName, fPrintFile: string;
|
||
MLabelID, MLabelCaption: string;
|
||
begin
|
||
if CDS_Label.IsEmpty then
|
||
exit;
|
||
|
||
if TRIM(DName) <> 'ADMIN' then
|
||
begin
|
||
if TRIM(CDS_Label.fieldByName('Filler').asString) <> TRIM(DName) then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
|
||
MLabelID := TRIM(CDS_Label.fieldByName('LabelID').asString);
|
||
MLabelCaption := TRIM(CDS_Label.fieldByName('LabelCaption').asString);
|
||
ExportFtErpFile(MLabelCaption + '.rmf', ADOQueryTemp);
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'report\' + MLabelCaption + '.rmf';
|
||
|
||
if not FileExists(fPrintFile) then
|
||
CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\ģ<><C4A3><EFBFBD><EFBFBD>ǩ.rmf'), PChar(fPrintFile), False);
|
||
|
||
with RMLabel do
|
||
begin
|
||
RMLabel.Clear;
|
||
RMDB_Label.DataSet := nil;
|
||
Dictionary.FieldAliases.Clear;
|
||
Dictionary.FieldAliases['RMDB_Label'] := '<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>';
|
||
RMDB_Label.DataSet := ADO_1;
|
||
LoadFromFile(fPrintFile);
|
||
application.ProcessMessages;
|
||
DesignReport();
|
||
SaveLabel(MLabelID);
|
||
ExportToFtErp(fPrintFile, ADOQueryCmd);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.ToolButton5Click(Sender: TObject);
|
||
begin
|
||
try
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.Add(' update RT_FileUpdate set FileEditDate=GETDATE() ');
|
||
sql.Add(',LastEditer=' + quotedstr(dname));
|
||
sql.Add(',Files=(SELECT top 1 Files from RT_FileUpdate where FileName=' + quotedstr(trim(CDS_Label.fieldbyname('labelCaption').asstring) + '.rmf') + ') ');
|
||
sql.Add('where FileName=''ģ<><C4A3><EFBFBD><EFBFBD>ǩ.rmf'' ');
|
||
|
||
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('ģ<><C4A3><EFBFBD><EFBFBD>ǩ<EFBFBD><EFBFBD>')));
|
||
sql.Add(',' + quotedstr(trim('<27><>ǩ<EFBFBD><C7A9><EFBFBD>ƣ<EFBFBD>' + trim(CDS_Label.fieldByName('labelCaption').asString))));
|
||
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
|
||
sql.Add(')');
|
||
execSql;
|
||
end;
|
||
DeleteFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\ģ<><C4A3><EFBFBD><EFBFBD>ǩ.rmf'));
|
||
ExportFtErpFile('ģ<><C4A3><EFBFBD><EFBFBD>ǩ.rmf', ADOQueryTemp);
|
||
application.MessageBox('<27><><EFBFBD>óɹ<C3B3>!', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ', 0);
|
||
except
|
||
application.MessageBox('ɾ<><C9BE>ʧ<EFBFBD><CAA7>!', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.ToolButton6Click(Sender: TObject);
|
||
begin
|
||
WriteCxGrid(self.Caption, TVLabel, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.ToolButton7Click(Sender: TObject);
|
||
var
|
||
MFromLabelId: string;
|
||
begin
|
||
MFromLabelId := trim(CDS_Label.fieldbyname('LabelId').asstring);
|
||
try
|
||
frmLabelInput := TfrmLabelInput.create(self);
|
||
with frmLabelInput do
|
||
begin
|
||
FLabelId := '';
|
||
if showModal = 1 then
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.Add(' exec P_BS_Label_Copy');
|
||
sql.Add(' @FromLabelId=' + quotedstr(trim(MFromLabelId)));
|
||
sql.Add(',@ToLabelId=' + quotedstr(trim(FLabelId)));
|
||
execSql;
|
||
end;
|
||
InitLabel();
|
||
end;
|
||
end;
|
||
finally
|
||
frmLabelInput.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.ToolButton8Click(Sender: TObject);
|
||
begin
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := 'BQLX';
|
||
flagname := '<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>';
|
||
if ShowModal = 1 then
|
||
begin
|
||
|
||
IintLabelType();
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.TupdClick(Sender: TObject);
|
||
begin
|
||
if CDS_Label.IsEmpty then
|
||
exit;
|
||
try
|
||
frmLabelInput := TfrmLabelInput.create(self);
|
||
with frmLabelInput do
|
||
begin
|
||
fLabelId := CDS_Label.fieldByName('LabelId').AsString;
|
||
if showModal = 1 then
|
||
begin
|
||
InitLabel();
|
||
end;
|
||
end;
|
||
finally
|
||
frmLabelInput.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeInspSet.TVLabelCellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||
var
|
||
fPrintFile: string;
|
||
begin
|
||
if CDS_Label.IsEmpty then
|
||
exit;
|
||
ExportFtErpFile(TRIM(CDS_Label.fieldByName('LabelCaption').asString) + '.rmf', ADOQueryTemp);
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + CDS_Label.fieldbyname('LabelCaption').AsString + '.rmf';
|
||
if not FileExists(fPrintFile) then
|
||
CopyFile(PChar(ExtractFilePath(Application.ExeName) + 'Report\ģ<><C4A3><EFBFBD><EFBFBD>ǩ.rmf'), PChar(fPrintFile), False);
|
||
|
||
with RMLabel do
|
||
begin
|
||
RMLabel.LoadFromFile(fPrintFile);
|
||
Preview := RMPreview3;
|
||
ShowReport;
|
||
end;
|
||
end;
|
||
|
||
end.
|
||
|