459 lines
12 KiB
ObjectPascal
459 lines
12 KiB
ObjectPascal
unit U_LabelAdd;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, ExtCtrls, DB, ADODB,
|
||
RM_System, RM_Common, RM_Class, RM_GridReport, Buttons, FTComboBox,
|
||
RM_Preview, RM_e_Xls, RM_e_Graphic, RM_e_bmp, RM_BarCode,
|
||
RM_DsgGridReport, RM_Dataset, cxStyles, cxCustomData, cxGraphics,
|
||
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel,
|
||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||
cxControls, cxGridCustomView, cxGrid;
|
||
|
||
type
|
||
TfrmLabelAdd = class(TForm)
|
||
Panel1: TPanel;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
customerNo: TBtnEditA;
|
||
LabelFileName: TBtnEditA;
|
||
beizhu: TMemo;
|
||
ToolBar1: TToolBar;
|
||
Tsave: TToolButton;
|
||
Tclose: TToolButton;
|
||
ADOQueryCmd: TADOQuery;
|
||
OpenDialog1: TOpenDialog;
|
||
RMGridReport1: TRMGridReport;
|
||
Label9: TLabel;
|
||
LabelCaption: TEdit;
|
||
Label10: TLabel;
|
||
LabelType: TFTComboBox;
|
||
ADOQueryTmp: TADOQuery;
|
||
RMPreview1: TRMPreview;
|
||
RMGridReportDesigner1: TRMGridReportDesigner;
|
||
RMBarCodeObject1: TRMBarCodeObject;
|
||
RMBMPExport1: TRMBMPExport;
|
||
RMXLSExport1: TRMXLSExport;
|
||
RMDS_Main: TRMDBDataSet;
|
||
RMDataDictionary1: TRMDataDictionary;
|
||
ADOQuery1: TADOQuery;
|
||
procedure TcloseClick(Sender: TObject);
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure TsaveClick(Sender: TObject);
|
||
procedure LabelFileNameBtnClick(Sender: TObject);
|
||
procedure customerNoBtnClick(Sender: TObject);
|
||
procedure BtOpenClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure RMPreview1DblClick(Sender: TObject);
|
||
private
|
||
fIsChg:Boolean;
|
||
fFileName:string;
|
||
fpathFileName:string;
|
||
function SaveData():Boolean;
|
||
function EditData():Boolean;
|
||
function PostFileToData():boolean;
|
||
// function CovFileDate(Fd:_FileTime):TDateTime;
|
||
procedure InitWinData();
|
||
procedure InitVarDictionary();
|
||
procedure InitDataSetDictionary();
|
||
|
||
public
|
||
fcustomNo:string;
|
||
fKeyNo:string;
|
||
fWinStatus:integer;
|
||
end;
|
||
|
||
var
|
||
frmLabelAdd: TfrmLabelAdd;
|
||
|
||
implementation
|
||
uses
|
||
U_DataLink,U_Fun10;
|
||
{$R *.dfm}
|
||
/////////////////////////////////////////////
|
||
function CovFileDate(Fd:_FileTime):TDateTime;
|
||
var
|
||
Tct:_SystemTime;
|
||
Temp:_FileTime;
|
||
begin
|
||
FileTimeToLocalFileTime(Fd,Temp);
|
||
FileTimeToSystemTime(Temp,Tct);
|
||
CovFileDate:=SystemTimeToDateTime(Tct);
|
||
end;
|
||
procedure GetFileInfo(mFile:string;var mfileSize:integer;var CreationTime:tdatetime;var WriteTime:tdatetime);
|
||
var
|
||
vSearchRec: TSearchRec;
|
||
begin
|
||
FindFirst(mFile,faAnyFile,vSearchRec);
|
||
mfileSize:=vSearchRec.Size;
|
||
CreationTime:=CovFileDate(vSearchRec.FindData.ftCreationTime);//<2F><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>
|
||
//vSearchRec.FindData.ftLastAccessTime//<2F><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>
|
||
WriteTime:=CovFileDate(vSearchRec.FindData.ftLastWriteTime);//<2F><EFBFBD>ʱ<EFBFBD><CAB1>
|
||
FindClose(vSearchRec);
|
||
end;
|
||
/////////////////////////////////////////////////////
|
||
//<2F>ύ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
//////////////////////////////////////////////////////
|
||
function TfrmLabelAdd.PostFileToData():boolean;
|
||
var
|
||
mFileName:string;
|
||
Stream : TMemoryStream;
|
||
mfileSize:integer;
|
||
mCreationTime:TdateTime;
|
||
mWriteTime:TdateTime;
|
||
begin
|
||
result:=false;
|
||
try
|
||
// ADOQueryCmd.Connection.BeginTrans ;
|
||
try
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear ;
|
||
sql.Add('delete from RT_FileUpdate');
|
||
sql.Add('where FileName='+quotedStr(trim(fFileName)));
|
||
execsql;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear ;
|
||
sql.Add('select * from RT_FileUpdate');
|
||
sql.Add('where FileName='+quotedStr(trim(fFileName)));
|
||
Open;
|
||
//////////////////////////
|
||
//<2F><>ȡ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>Ϣ
|
||
GetFileInfo(fpathFileName,mfileSize,mCreationTime,mWriteTime);
|
||
|
||
if RecordCount<=0 then
|
||
begin
|
||
Append;
|
||
fieldByName('FileName').AsString := fFileName;
|
||
end
|
||
else
|
||
begin
|
||
edit;
|
||
end;
|
||
|
||
fieldByName('FileEditDate').Value :=mWriteTime;
|
||
fieldByName('FileCreateDate').Value :=mCreationTime;
|
||
fieldByName('FileSize').Value :=mfileSize;
|
||
fieldByName('Filler').Value :=Dname;
|
||
fieldByName('LastEditer').Value :=Dname;
|
||
fieldByName('LastEditTime').Value :=DServerDate;
|
||
if pos('.rmf',fFileName)>0 then
|
||
begin
|
||
fieldByName('FilePath').Value :='report';
|
||
fieldByName('FileType').Value :='<27><><EFBFBD><EFBFBD>';
|
||
end
|
||
else if pos('.dll',fFileName)>0 then
|
||
begin
|
||
fieldByName('FilePath').Value :='';
|
||
fieldByName('FileType').Value :='һ<><D2BB>';
|
||
end
|
||
else
|
||
begin
|
||
fieldByName('FilePath').Value :='';
|
||
fieldByName('FileType').Value :='<27><><EFBFBD><EFBFBD>';
|
||
end;
|
||
// FJStream.LoadFromFile(fpathFileName);
|
||
// CompressionStream(FJStream);
|
||
//tblobfield(FieldByName('Files')).LoadFromFile(FJStream);
|
||
tblobfield(FieldByName('Files')).LoadFromFile(fpathFileName);
|
||
//<2F><>OLE<4C><45><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD>
|
||
// ADOQueryCmdFileContent.LoadFromFile(fpathFileName);
|
||
//ADOQueryCmdFileContent.LoadFromStream(Stream);
|
||
|
||
post;
|
||
end;
|
||
finally
|
||
// FJStream.free;
|
||
end;
|
||
result:=true;
|
||
// ADOQueryCmd.Connection.CommitTrans ;
|
||
except
|
||
// ADOQueryCmd.Connection.RollbackTrans ;
|
||
// application.MessageBox(pchar('<27>ύ<EFBFBD>ļ<EFBFBD>['+trim(fFileName)+']ʧ<><CAA7>!'),'<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmLabelAdd.TcloseClick(Sender: TObject);
|
||
begin
|
||
if fIsChg then
|
||
begin
|
||
if application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD>ƹ<EFBFBD><C6B9><EFBFBD><EFBFBD>Ƿ<EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>?','<27><>ʾ<EFBFBD><CABE>Ϣ',1)=1 then
|
||
begin
|
||
Tsave.Click ;
|
||
end
|
||
else
|
||
close;
|
||
end
|
||
else
|
||
close;
|
||
end;
|
||
|
||
procedure TfrmLabelAdd.FormCreate(Sender: TObject);
|
||
begin
|
||
fIsChg:=false;
|
||
end;
|
||
|
||
procedure TfrmLabelAdd.TsaveClick(Sender: TObject);
|
||
begin
|
||
if trim(labelCaption.Text)='' then
|
||
begin
|
||
application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ');
|
||
labelCaption.SetFocus;
|
||
exit;
|
||
end;
|
||
if trim(LabelFileName.Text)='' then
|
||
begin
|
||
application.MessageBox('<27><>ǩ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>','<27><>ʾ');
|
||
LabelFileName.SetFocus;
|
||
exit;
|
||
end;
|
||
fpathFileName:= trim(LabelFileName.Text);
|
||
fFileName:=ExtractFileName(fpathFileName);
|
||
if fWinStatus=0 then
|
||
begin
|
||
if SaveData() then
|
||
begin
|
||
ModalResult:=1;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
if EditData() then
|
||
begin
|
||
ModalResult:=1;
|
||
end;
|
||
end;
|
||
end;
|
||
/////////////////////////////////////////////////////////////////////
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
/////////////////////////////////////////////////////////////////////
|
||
function TfrmLabelAdd.SaveData():Boolean;
|
||
begin
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
try
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from P_Label');
|
||
sql.Add('where 1<>1');
|
||
Open;
|
||
|
||
Append;
|
||
fieldByName('CustomerNO').value:=trim(customerno.txtCode);
|
||
fieldByName('filler').value:=DName;
|
||
fieldByName('filltime').value:=DServerDate;
|
||
fieldByName('beizhu').value:= trim(beizhu.text);
|
||
|
||
fieldByName('LabelCaption').value:=trim(LabelCaption.text);
|
||
fieldByName('LabelType').value:=trim(LabelType.text);
|
||
fieldByName('LabelFileName').value:= trim(LabelFileName.text);
|
||
//TBlobField(FieldByName('LabelFile')).LoadFromStream(fStream);
|
||
RMGridReport1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
|
||
Post;
|
||
end;
|
||
|
||
if not postFileToData() then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩģ<C7A9><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',0);
|
||
exit;
|
||
end;
|
||
result:=true;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
except
|
||
Result:=false;
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩģ<C7A9><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',0);
|
||
end;
|
||
end;
|
||
|
||
/////////////////////////////////////////////////////////////////////
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
/////////////////////////////////////////////////////////////////////
|
||
function TfrmLabelAdd.EditData():Boolean;
|
||
begin
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
try
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from P_Label');
|
||
sql.Add('where labelId='+fkeyNo);
|
||
Open;
|
||
Edit;
|
||
fieldByName('LabelCaption').value:=trim(LabelCaption.text);
|
||
fieldByName('LabelType').value:=trim(LabelType.text);
|
||
fieldByName('LabelFileName').value:= trim(LabelFileName.text);
|
||
RMGridReport1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
|
||
fieldByName('Editer').value:=DName;
|
||
fieldByName('EditTime').value:=DServerDate;
|
||
fieldByName('beizhu').value:= trim(beizhu.text);
|
||
Post;
|
||
end;
|
||
if not postFileToData() then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩģ<C7A9><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',0);
|
||
exit;
|
||
end;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
result:=true;
|
||
except
|
||
Result:=false;
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩģ<C7A9><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmLabelAdd.LabelFileNameBtnClick(Sender: TObject);
|
||
begin
|
||
if OpenDialog1.Execute() then
|
||
begin
|
||
LabelFileName.Text:=OpenDialog1.FileName;
|
||
RMGridReport1.LoadFromFile(LabelFileName.Text);
|
||
RMGridReport1.Preview :=RMPreview1;
|
||
RMGridReport1.ShowReport ;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmLabelAdd.customerNoBtnClick(Sender: TObject);
|
||
begin
|
||
{
|
||
FormGetCust:=TFormGetCust.Create(self);
|
||
|
||
if FormGetCust.ShowModal=mrok then
|
||
begin
|
||
customNo.TxtCode:=trim(FormGetCust.ADOQuery1.Fieldbyname('customno').AsString);
|
||
customNo.Text:=trim(FormGetCust.ADOQuery1.Fieldbyname('shortname').AsString);
|
||
end;
|
||
FormGetCust.Free;
|
||
}
|
||
{ frmCustHelp:=TfrmCustHelp.create(self);
|
||
with frmCustHelp do
|
||
begin
|
||
if showModal=1 then
|
||
begin
|
||
customNo.TxtCode:=trim(ADOQueryHelp.Fieldbyname('customno').AsString);
|
||
customNo.Text:=trim(ADOQueryHelp.Fieldbyname('shortname').AsString);
|
||
end;
|
||
free;
|
||
end; }
|
||
end;
|
||
|
||
procedure TfrmLabelAdd.BtOpenClick(Sender: TObject);
|
||
begin
|
||
|
||
|
||
end;
|
||
////////////////////////////////////////////////////////////
|
||
//<2F><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
////////////////////////////////////////////////////////////
|
||
procedure TfrmLabelAdd.InitWinData();
|
||
begin
|
||
try
|
||
with ADOQueryTmp do
|
||
begin
|
||
close;
|
||
sql.Clear ;
|
||
sql.Add('select A.*');
|
||
sql.Add('from P_Label A');
|
||
sql.Add('WHERE LabelId='+fkeyNo);
|
||
Open;
|
||
if isEmpty then
|
||
begin
|
||
close;
|
||
exit;
|
||
end;
|
||
|
||
SSetWinData(ADOQueryTmp,panel1);
|
||
RMGridReport1.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
|
||
//RMGridReport2.FileName:=trim(fieldByName('labelFileName').AsString);
|
||
//RMGridReport2.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
|
||
RMGridReport1.Preview :=RMPreview1;
|
||
RMGridReport1.ShowReport ;
|
||
RMPreview1.Refresh;
|
||
end;
|
||
except
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmLabelAdd.FormShow(Sender: TObject);
|
||
begin
|
||
if fWinStatus>0 then
|
||
InitWinData();
|
||
RMPreview1.Align:=alClient;
|
||
end;
|
||
|
||
procedure TfrmLabelAdd.RMPreview1DblClick(Sender: TObject);
|
||
begin
|
||
//btOpen.Click ;
|
||
end;
|
||
////////////////////////////////////////////////////////////
|
||
//
|
||
////////////////////////////////////////////////////////////
|
||
procedure TfrmLabelAdd.InitVarDictionary();
|
||
var
|
||
i:integer;
|
||
begin
|
||
{ try
|
||
with RMGridReport2 do
|
||
begin
|
||
Dictionary.Variables.Clear ;
|
||
Dictionary.Variables.AddCategory('<27>ͻ<EFBFBD><CDBB><EFBFBD>λ<EFBFBD><CEBB>Ϣ');
|
||
with ADOQueryTmp do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.Add('exec P_Label_CustPrintData');
|
||
sql.Add(quotedStr(fCustomNo));
|
||
Open;
|
||
for i:=0 to FieldCount-1 do
|
||
begin
|
||
|
||
Dictionary.Variables.Add(trim(fields[i].FieldName)
|
||
,'');
|
||
Dictionary.Variables.AsString[trim(fields[i].FieldName)]:=trim(fields[i].AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
|
||
end; }
|
||
end;
|
||
/////////////////////////////////////////////////
|
||
//
|
||
/////////////////////////////////////////////////
|
||
procedure TfrmLabelAdd.InitDataSetDictionary();
|
||
begin
|
||
{ with ADOQuery1 do
|
||
begin
|
||
close;
|
||
sql.Clear ;
|
||
sql.Add('exec P_Label_PrintSet');
|
||
sql.Add(quotedStr(''));
|
||
//sql.Add(','+quotedStr(''));
|
||
//sql.Add(','+quotedStr(''));
|
||
//sql.Add(','+quotedStr(''));
|
||
//sql.Add(','+quotedStr(''));
|
||
OPen;
|
||
end;
|
||
with RMGridReport2 do
|
||
begin
|
||
Dictionary.FieldAliases.Clear;
|
||
Dictionary.FieldAliases['RMDS_Main']:= '<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>';
|
||
Dictionary.FieldAliases['RMDS_Main."barcode"']:='<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>';
|
||
end; }
|
||
end;
|
||
|
||
end.
|