Group_99/D7szChenfeng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
7cf37d83fd
D7szChenfeng/合同管理(ContractManagement.dll)/U_ZdyAttachSX.pas

833 lines
22 KiB
ObjectPascal
Raw Normal View History

移交
2025-07-22 15:51:47 +08:00
unit U_ZdyAttachSX;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ComObj,
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, Menus, cxLookAndFeelPainters, cxButtons,
cxContainer, cxImage, cxDBEdit;
type
FdDy=record
inc: integer; //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>׽<EFBFBD><D7BD>־<EFBFBD><D6BE><EFBFBD>
FDdys:string[32]; //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>׽<EFBFBD><D7BD><EFBFBD>
FdDysName:string[32]; //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>׽<EFBFBD><D7BD><EFBFBD>
end;
TfrmZdyAttachSX = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
Label3: TLabel;
DEFstr6: TEdit;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
ToolButton3: TToolButton;
Label1: TLabel;
ZdyName: TEdit;
ToolButton4: TToolButton;
Label2: TLabel;
OpenDialog1: TOpenDialog;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
v2Column2: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v2DEFstr3: TcxGridDBColumn;
v2Column16: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v2Column4: TcxGridDBColumn;
v2Mrate: TcxGridDBColumn;
v2defflt1: TcxGridDBColumn;
v2Column14: TcxGridDBColumn;
v2Column15: TcxGridDBColumn;
v2Column8: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Pan_image: TPanel;
Picture4: TcxDBImage;
DSImage: TDataSource;
ADOQueryImage: TADOQuery;
Label5: TLabel;
Filler: TEdit;
DEFstr3: TEdit;
Label9: TLabel;
DEFstr2: TEdit;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
Panel2: TPanel;
Label4: TLabel;
RadioGroup1: TRadioGroup;
cxButton1: TcxButton;
cxButton2: TcxButton;
ToYJ: TToolButton;
TFZ: TToolButton;
v2Ssel: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
V2Column1: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
V2Column10: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
Label6: TLabel;
Label7: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CP_Sub: TClientDataSet;
DS_CP: TDataSource;
ADOQueryTmp: TADOQuery;
V1Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure DEFstr6Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure Tv2CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure FormResize(Sender: TObject);
procedure ToYJClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TFZClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView;
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
private
fFlileFlag:string;
procedure InitImage();
procedure InitSub();
{ Private declarations }
procedure InitGrid();
public
canshu1:string;
fkhType:string;
dFdDy: array[0..20] of FdDy;
end;
//var
// frmZdyAttachSX: TfrmZdyAttachSX;
implementation
uses
U_DataLink,U_Fun,U_ZDYHelp,U_ZdyAttInputCP, U_ZdyAttInputCP_other;
{$R *.dfm}
procedure TfrmZdyAttachSX.InitImage();
begin
with ADOQueryImage do
begin
close;
sql.Clear;
sql.Add('select * from TP_File A');
sql.Add('where WBID='+quotedstr(trim(CDS_HZ.fieldbyname('ATID').AsString)));
open;
end;
end;
procedure TfrmZdyAttachSX.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
SQL.Clear;
sql.Add(' select A.* ');
sql.Add(',RKQty=(select Sum(B.Qty) from CK_BanCP_CR B where B.CRFlag=''<27><><EFBFBD><EFBFBD>'' and B.C_Color=A.DEFstr3 ');
sql.Add(' and (B.C_CodeName=A.ZdyName or B.C_CodeName=A.defNote3) and B.CRType=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' and convert(varchar(4),B.CRTime,120)=convert(varchar(4),getdate(),120))');
sql.Add(' from KH_Zdy_Attachment A ');
SQL.Add(' where A.Type=''CP'' ');
sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
sql.Add(' order by zdyName,dbo.getNum(Defstr3) ');
//ShowMessage(SQL.Text);
Open;
end;
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmZdyAttachSX.InitSub();
begin
if CDS_HZ.IsEmpty then
exit;
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select * from KH_Zdy_Attachment_Sub ');
sql.Add('where ATID =' + quotedstr((CDS_HZ.fieldbyname('ATID').AsString)));
open;
// ShowMessage(SQL.Text);
end;
SCreateCDS20(ADOQueryTmp, CP_Sub);
SInitCDSData20(ADOQueryTmp, CP_Sub);
end;
procedure TfrmZdyAttachSX.FormDestroy(Sender: TObject);
begin
// frmZdyAttachCP:=nil;
end;
procedure TfrmZdyAttachSX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmZdyAttachSX.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>13',Tv2,'<27>ͻ<EFBFBD><CDBB>Զ<EFBFBD><D4B6><EFBFBD>');
Close;
end;
procedure TfrmZdyAttachSX.TBDelClick(Sender: TObject);
begin
if CDS_HZ.IsEmpty then Exit;
if CDS_HZ.Locate('Ssel',True,[])=false then
begin
application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ');
exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
CDS_HZ.DisableControls;
with CDS_HZ do
begin
First;
while not eof do
begin
if FieldByName('Ssel').AsBoolean=True then
begin
if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+'''');
sql.Add('delete KH_Zdy_Attachment_Sub where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+'''');
sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+'''');
ExecSQL;
end;
end;
CDS_HZ.Delete;
end
else
next;
end;
end;
CDS_HZ.EnableControls;
end;
procedure TfrmZdyAttachSX.FormShow(Sender: TObject);
begin
ReadCxGrid('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>13',Tv2,'<27>ͻ<EFBFBD><CDBB>Զ<EFBFBD><D4B6><EFBFBD>');
ToolButton4.Visible:=false;
TBDel.Visible:=false;
ToYJ.Visible:=false;
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90;
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
if canshu1='<27><>Ȩ<EFBFBD><C8A8>' then
begin
ToolButton4.Visible:=true;
TBDel.Visible:=true;
ToYJ.Visible:=true;
end;
fFlileFlag:=UserDataFlag+'YP';
//InitGrid();
end;
procedure TfrmZdyAttachSX.TBRafreshClick(Sender: TObject);
begin
Panel1.SetFocus;
InitGrid();
end;
procedure TfrmZdyAttachSX.ToolButton2Click(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
end;
end;
procedure TfrmZdyAttachSX.DEFstr6Change(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmZdyAttachSX.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then Exit;
TcxGridToExcel(self.Caption,cxgrid2);
// SelExportData(Tv2,ADOQueryMain,'<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>');
end;
procedure TfrmZdyAttachSX.ToolButton4Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
Exit;
if CDS_HZ.Locate('SSel',True,[])=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
try
frmZdyAttInputCP_other:=TfrmZdyAttInputCP_other.Create(Application);
with frmZdyAttInputCP_other do
begin
FFlag:=1;
FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString);
fkhType:=self.fkhType;
fFlileFlag:=self.fFlileFlag;
if ShowModal=1 then
begin
TBRafresh.Click;
end;
end;
finally
frmZdyAttInputCP_other.Free;
end;
{
try
frmZdyAttInputCP:=TfrmZdyAttInputCP.Create(Application);
with frmZdyAttInputCP do
begin
FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString);
fkhType:=self.fkhType;
if ShowModal=1 then
begin
TBRafresh.Click;
end;
end;
finally
frmZdyAttInputCP.Free;
end;}
end;
procedure TfrmZdyAttachSX.ToolButton3Click(Sender: TObject);
begin
try
frmZdyAttInputCP_other:=TfrmZdyAttInputCP_other.Create(Application);
with frmZdyAttInputCP_other do
begin
FFlag:=0;
FCYID:='';
fkhType:=self.fkhType;
fFlileFlag:=self.fFlileFlag;
if ShowModal=1 then
begin
TBRafresh.Click;
end;
end;
finally
frmZdyAttInputCP_other.Free;
end;
{
try
frmZdyAttInputCP:=TfrmZdyAttInputCP.Create(Application);
with frmZdyAttInputCP do
begin
FCYID:='';
fkhType:=self.fkhType;
if ShowModal=1 then
begin
TBRafresh.Click;
end;
end;
finally
frmZdyAttInputCP.Free;
end; }
end;
procedure TfrmZdyAttachSX.ToolButton5Click(Sender: TObject);
var
excelApp,WorkBook:Variant;
i,j,k,ExcelRowCount:integer;
maxId:string;
begin
try
ExcelApp:=CreateOleObject('Excel.Application');
openDialog1.Filter:='*.CSV;*.xls';
if opendialog1.Execute then
begin
WorkBook :=ExcelApp.WorkBooks.Open(OpenDialog1.FileName);
end
else
exit;
ExcelApp.Visible := false;
ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
except
application.MessageBox('<27><><EFBFBD><EFBFBD>EXCEL<45><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',MB_ICONERROR);
exit;
end;
try
k:=0;
for i:=1 to 20 do
begin
if trim(excelapp.Cells[1,i].value)='' then break;
if trim(excelapp.Cells[1,i].value)='ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='ZdyCode';
dFdDy[k].FdDysName:='ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='ZdyName';
dFdDy[k].FdDysName:='<27><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27><><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='defNote3';
dFdDy[k].FdDysName:='defNote3';
end;
if trim(excelapp.Cells[1,i].value)='ɫ<><C9AB>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='DEFstr3';
dFdDy[k].FdDysName:='ɫ<><C9AB>';
end;
if trim(excelapp.Cells[1,i].value)='<27><>Ӣ<EFBFBD><D3A2><EFBFBD><EFBFBD>ɫ' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='DEFstr6';
dFdDy[k].FdDysName:='<27><>Ӣ<EFBFBD><D3A2><EFBFBD><EFBFBD>ɫ';
end;
if trim(excelapp.Cells[1,i].value)='<27><><EFBFBD><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='DEFstr1';
dFdDy[k].FdDysName:='<27><><EFBFBD><EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27>ɷ<EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='DEFstr2';
dFdDy[k].FdDysName:='<27>ɷ<EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27>ŷ<EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='DEFstr7';
dFdDy[k].FdDysName:='<27>ŷ<EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27><><EFBFBD><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='DEFstr8';
dFdDy[k].FdDysName:='<27><><EFBFBD><EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27><><EFBFBD><EFBFBD>Ա' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='Filler';
dFdDy[k].FdDysName:='<27><><EFBFBD><EFBFBD>Ա';
end;
if trim(excelapp.Cells[1,i].value)='<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='FillTime';
dFdDy[k].FdDysName:='<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>';
end;
if trim(excelapp.Cells[1,i].value)='<27>ɱ<EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='DEFFlt2';
dFdDy[k].FdDysName:='<27>ɱ<EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27>ƿ<EFBFBD><C6BF><EFBFBD><EFBFBD><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='defstr9';
dFdDy[k].FdDysName:='<27>ƿ<EFBFBD><C6BF><EFBFBD><EFBFBD><EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27>۸<EFBFBD>A' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='Price1';
dFdDy[k].FdDysName:='<27>۸<EFBFBD>A';
end;
if trim(excelapp.Cells[1,i].value)='<27>۸<EFBFBD>B' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='Price2';
dFdDy[k].FdDysName:='<27>۸<EFBFBD>B';
end;
if trim(excelapp.Cells[1,i].value)='<27>۸<EFBFBD>C' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='Price3';
dFdDy[k].FdDysName:='<27>۸<EFBFBD>C';
end;
if trim(excelapp.Cells[1,i].value)='<27><><EFBFBD><EFBFBD><EFBFBD>г<EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='CCShiChang';
dFdDy[k].FdDysName:='<27><><EFBFBD><EFBFBD><EFBFBD>г<EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27>ͻ<EFBFBD><CDBB><EFBFBD>ͷ' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='KHMaiTou';
dFdDy[k].FdDysName:='<27>ͻ<EFBFBD><CDBB><EFBFBD>ͷ';
end;
if trim(excelapp.Cells[1,i].value)='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='KHDaiMa';
dFdDy[k].FdDysName:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27>м<EFBFBD><D0BC><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='ZJSName';
dFdDy[k].FdDysName:='<27>м<EFBFBD><D0BC><EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='ͷ<><CDB7>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='TouJu';
dFdDy[k].FdDysName:='ͷ<><CDB7>';
end;
if trim(excelapp.Cells[1,i].value)='<27><><EFBFBD><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='DBName';
dFdDy[k].FdDysName:='<27><><EFBFBD><EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27><><EFBFBD><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='ZhenQty';
dFdDy[k].FdDysName:='<27><><EFBFBD><EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='ǰ<><C7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='FengGe';
dFdDy[k].FdDysName:='ǰ<><C7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='HDFengGe';
dFdDy[k].FdDysName:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='ǰ<><C7B0><EFBFBD>۸<EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='QDPrice';
dFdDy[k].FdDysName:='ǰ<><C7B0><EFBFBD>۸<EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27><><EFBFBD><EFBFBD><EFBFBD>۸<EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='HDPrice';
dFdDy[k].FdDysName:='<27><><EFBFBD><EFBFBD><EFBFBD>۸<EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='ǰ<><C7B0><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='QDJGName';
dFdDy[k].FdDysName:='ǰ<><C7B0><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27><><EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='HDJGName';
dFdDy[k].FdDysName:='<27><><EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD>';
end;
if trim(excelapp.Cells[1,i].value)='<27><><EFBFBD>ϱ<EFBFBD>ע' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='FLNote';
dFdDy[k].FdDysName:='<27><><EFBFBD>ϱ<EFBFBD>ע';
end;
if trim(excelapp.Cells[1,i].value)='YM' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='Note';
dFdDy[k].FdDysName:='YM';
end;
if trim(excelapp.Cells[1,i].value)='<27><>ע' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='CPNote';
dFdDy[k].FdDysName:='<27><>ע';
end;
if trim(excelapp.Cells[1,i].value)='<27><>Ʒλ<C6B7><CEBB>' then
begin
dFdDy[k].inc:=i;
dFdDy[k].FDdys:='YPPlace';
dFdDy[k].FdDysName:='<27><>Ʒλ<C6B7><CEBB>';
end;
k:=k+1;
end;
except
end;
ADOQueryCmd.Connection.BeginTrans;
try
for i := 2 to excelrowcount do
begin
if GetLSNo(ADOQueryCmd,maxId,'AT','KH_Zdy_Attachment',4,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from KH_Zdy_Attachment where 1=2');
open;
end;
ADOQueryCmd.Append;
for j:=0 to k-1 do
begin
ADOQueryCmd.fieldbyname(dFdDy[j].FDdys).Value:=excelapp.Cells[i,dFdDy[j].inc].Value;
end;
ADOQueryCmd.FieldByName('ATID').Value:=Trim(maxId);
ADOQueryCmd.FieldByName('zdyCode').Value:=Trim(maxId);
ADOQueryCmd.FieldByName('khType').Value:=Trim(fkhType);
ADOQueryCmd.FieldByName('Type').Value:='CP';
ADOQueryCmd.FieldByName('Filler').Value:=Trim(DName);
ADOQueryCmd.Post;
end;
WorkBook.Close;
ExcelApp.Quit;
ExcelApp := Unassigned;
WorkBook := Unassigned;
ADOQueryCmd.Connection.CommitTrans;
InitGrid();
except
WorkBook.Close;
ExcelApp.Quit;
ExcelApp := Unassigned;
WorkBook := Unassigned;
ADOQueryCmd.Connection.RollbackTrans;
end;
end;
procedure TfrmZdyAttachSX.cxButton2Click(Sender: TObject);
begin
Panel2.Visible:=false;
end;
procedure TfrmZdyAttachSX.cxButton1Click(Sender: TObject);
var
fPrintFile:string;
Txt,fImagePath:string;
Moudle: THandle;
Makebar:TMakebar;
Mixtext:TMixtext;
begin
IF CDS_HZ.IsEmpty then exit;
try
Moudle:=LoadLibrary('MakeQRBarcode.dll');
@Makebar:=GetProcAddress(Moudle,'Make');
@Mixtext:=GetProcAddress(Moudle,'MixText');
Txt:=Trim(CDS_HZ.fieldbyname('ZDYCODE').AsString);
fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp' ;
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil);
if FileExists(fImagePath) then DeleteFile(fImagePath);
Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3);
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
exit;
end;
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+trim(RadioGroup1.Items[RadioGroup1.ItemIndex])+'.rmf' ;
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE']:=fImagePath;
RM1.LoadFromFile(fPrintFile);
// Rm2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1);
// RM1.ShowReport;
RM1.PrintReport;
end
else
Application.MessageBox(PChar('û<><C3BB><EFBFBD>ҵ<EFBFBD><D2B5>ļ<EFBFBD>'+fPrintFile),'<27><>ʾ',0);
end;
procedure TfrmZdyAttachSX.ToolButton6Click(Sender: TObject);
begin
Panel2.Left:=(self.Width-Panel2.Width) div 2;
Panel2.Top:=(self.Height-Panel2.Height) div 2 -100;
Panel2.Visible:=true;
end;
procedure TfrmZdyAttachSX.Tv2CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
InitImage();
end;
procedure TfrmZdyAttachSX.FormResize(Sender: TObject);
begin
Pan_image.Left:=self.Width-Pan_image.Width-30;
Pan_image.Top:=self.Height-Pan_image.Height-80;
end;
procedure TfrmZdyAttachSX.ToYJClick(Sender: TObject);
var
FValue,FFValue,FColumn,FFColumn,FZdyName:String;
begin
FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName;
FFColumn:=Tv2.Controller.FocusedColumn.Summary.GroupFormat;
FValue:=Trim(CDS_HZ.fieldbyname(FColumn).AsString);
if Trim(FFColumn)<>'' then
begin
FFValue:=Trim(CDS_HZ.fieldbyname(FFColumn).AsString);
end;
if FValue='' then
begin
FValue:='0';
end;
FZdyName:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
with CDS_HZ do
begin
DisableControls;
First;
while not Eof do
begin
if FZdyName=Trim(CDS_HZ.fieldbyname('ZdyName').AsString) then
begin
Edit;
if FValue='' then
begin
CDS_HZ.FieldByName(FColumn).Value:=null;
end else
begin
CDS_HZ.FieldByName(FColumn).Value:=FValue;
end;
if Trim(FFColumn)<>'' then
begin
if FFValue='' then
begin
CDS_HZ.FieldByName(FFColumn).Value:=null;
end else
begin
CDS_HZ.FieldByName(FFColumn).Value:=FFValue;
end;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update KH_Zdy_Attachment set ');
sql.Add( FColumn+'='+trim(FValue));
sql.Add(' where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+'''');
ExecSQL;
end;
end;
Next;
end;
EnableControls;
end;
end;
procedure TfrmZdyAttachSX.FormCreate(Sender: TObject);
begin
canshu1:=Trim(DParameters1);
end;
procedure TfrmZdyAttachSX.TFZClick(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
Exit;
try
frmZdyAttInputCP_other:=TfrmZdyAttInputCP_other.Create(Application);
with frmZdyAttInputCP_other do
begin
FFlag:=2;
FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString);
fkhType:=self.fkhType;
fFlileFlag:=self.fFlileFlag;
if ShowModal=1 then
begin
TBRafresh.Click;
end;
end;
finally
frmZdyAttInputCP_other.Free;
end;
end;
procedure TfrmZdyAttachSX.N1Click(Sender: TObject);
begin
SelOKNo(CDS_HZ,True);
end;
procedure TfrmZdyAttachSX.N2Click(Sender: TObject);
begin
SelOKNo(CDS_HZ,false);
end;
procedure TfrmZdyAttachSX.Tv2FocusedRecordChanged(
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
begin
InitSub();
end;
end.
Reference in New Issue Copy Permalink