2025-01-20 13:04:03 +08:00
unit U_ZHCPInPut;
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,
cxDropDownEdit, jpeg, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox,
cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,
2025-09-24 17:37:00 +08:00
IniFiles, Menus;
2025-01-20 13:04:03 +08:00
type
TfrmZHCPInPut = class( TForm)
ToolBar1: TToolBar;
TBClose: TToolButton;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
ADOQuery1: TADOQuery;
TBSave: TToolButton;
Label26: TLabel;
CDS_PRT: TClientDataSet;
RM1: TRMGridReport;
Panel3: TPanel;
Panel5: TPanel;
Label12: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label2: TLabel;
ZIKZ: TEdit;
ZIMF: TEdit;
ZICF: TEdit;
ODPat: TOpenDialog;
IdFTP1: TIdFTP;
SaveDialog1: TSaveDialog;
Panel66: TPanel;
Image2: TImage;
Panel2: TPanel;
Label3: TLabel;
Button2: TButton;
ToolButton1: TToolButton;
Label4: TLabel;
ZIID: TEdit;
adoqueryPicture: TADOQuery;
Panel1: TPanel;
RMDBMain: TRMDBDataSet;
ZIGY: TMemo;
Label7: TLabel;
Label8: TLabel;
ZIName: TEdit;
Label9: TLabel;
Note: TMemo;
ADOQueryCmd: TADOQuery;
Label10: TLabel;
ZICL: TEdit;
Label11: TLabel;
Label13: TLabel;
Label17: TLabel;
Label18: TLabel;
MianBu: TBtnEditA;
ZhongJianC: TBtnEditA;
DiBu: TBtnEditA;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
DiBuName: TBtnEditA;
ZhongJianCName: TEdit;
ZhongJianCID: TEdit;
Label22: TLabel;
DiBuID: TEdit;
Label23: TLabel;
MianBuName: TBtnEditA;
HXNO: TBtnEditC;
Label24: TLabel;
MBCBDJ: TEdit;
Label25: TLabel;
DBCBDJ: TEdit;
Label27: TLabel;
MHDJ: TEdit;
Label28: TLabel;
XHJGFDJ: TEdit;
Label29: TLabel;
CPCBDJ: TEdit;
Panel4: TPanel;
Button3: TButton;
Button4: TButton;
Label30: TLabel;
TSHGYCB: TEdit;
Label31: TLabel;
CPSSL: TEdit;
2025-08-30 10:58:21 +08:00
Panel12: TPanel;
Label32: TLabel;
Panel13: TPanel;
img1: TImage;
WJName: TEdit;
2025-09-24 17:37:00 +08:00
Cancel: TButton;
2025-08-30 10:58:21 +08:00
WJPach: TEdit;
2025-09-24 17:37:00 +08:00
Rename: TButton;
image22: TImage;
Label1: TLabel;
HXNM: TEdit;
pm1: TPopupMenu;
MenuItem2: TMenuItem;
2025-01-20 13:04:03 +08:00
procedure TBCloseClick( Sender: TObject) ;
procedure FormShow( Sender: TObject) ;
procedure TBSaveClick( Sender: TObject) ;
procedure FormClose( Sender: TObject; var Action: TCloseAction) ;
procedure FormCreate( Sender: TObject) ;
procedure Button2Click( Sender: TObject) ;
procedure ToolButton1Click( Sender: TObject) ;
procedure Image1DblClick( Sender: TObject) ;
procedure Image2DblClick( Sender: TObject) ;
procedure HXNO1BtnClick( Sender: TObject) ;
procedure MianBuBtnClick( Sender: TObject) ;
procedure ZhongJianCBtnClick( Sender: TObject) ;
procedure DiBuBtnClick( Sender: TObject) ;
procedure DiBuNameBtnClick( Sender: TObject) ;
procedure MianBuNameBtnClick( Sender: TObject) ;
procedure Button3Click( Sender: TObject) ;
procedure Button4Click( Sender: TObject) ;
procedure HXNOBtnDnClick( Sender: TObject) ;
procedure HXNOBtnUpClick( Sender: TObject) ;
procedure MBCBDJChange( Sender: TObject) ;
2025-09-24 17:37:00 +08:00
procedure MenuItem2Click( Sender: TObject) ;
procedure RenameClick( Sender: TObject) ;
procedure CancelClick( Sender: TObject) ;
procedure img1Click( Sender: TObject) ;
2025-01-20 13:04:03 +08:00
private
lstPat, lstPat2: TStringList;
FangXiang1, FangXiang2: string ;
procedure InitData( ) ;
procedure SaveImage( maxnoWB: string ; FIMNO: string ) ;
procedure ReadINIFile10( ) ;
function SaveData( ) : Boolean ;
2025-08-19 17:40:03 +08:00
function BJData( maxno: string ) : Boolean ;
2025-01-20 13:04:03 +08:00
function StrFenHang( FStr: string ; var FHStr: string ) : Boolean ;
{ Private declarations }
public
canshu1, ZT: string ;
PState, CopyInt: Integer ;
FMainId, FZIType: string ;
{ Public declarations }
end ;
var
frmZHCPInPut: TfrmZHCPInPut;
2025-03-24 15:42:47 +08:00
implementation //ZH_KH_DJ
2025-01-20 13:04:03 +08:00
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_ZHCPBigTP, U_ZdyAttachCP_HX, U_MLMangeRSSel,
U_MCP, U_MLMangeYH;
{$R *.dfm}
2025-08-19 17:40:03 +08:00
function TfrmZHCPInPut. BJData( maxno: string ) : Boolean ;
2025-01-20 13:04:03 +08:00
var
2025-08-19 17:40:03 +08:00
BJmaxmxno, FMXID, FBaoJia, FZIID, FZIIDAdd, FAdd, FZIIDYS: string ;
2025-01-20 13:04:03 +08:00
FXH: Integer ;
FDate: TDateTime;
begin
Result : = False ;
FDate : = SGetServerDate( ADOTemp) ;
try
if GetLSNo( ADOCmd, BJmaxmxno, 'ZC' , 'ZH_KH_DJ_CP' , 4 , 1 ) = False then
begin
// Order_Sub.EnableControls;
ADOCmd. Connection. RollbackTrans;
Application. MessageBox( 'ȡ<> <C8A1> ϸ<EFBFBD> <CFB8> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> <CAA7> ' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
with ADOCmd do
begin
Close;
sql. Clear;
sql. Add( 'select * from ZH_KH_DJ_CP where ZCID=' '' + Trim( BJmaxmxno) + '' '' ) ;
Open;
end ;
with ADOCmd do
begin
Append;
FieldByName( 'Filler' ) . Value : = Trim( DName) ;
FieldByName( 'FillerCode' ) . Value : = Trim( DCode) ;
FieldByName( 'Valid' ) . Value : = 'Y' ;
2025-08-19 17:40:03 +08:00
FieldByName( 'ZIID' ) . Value : = maxno;
2025-01-20 13:04:03 +08:00
FieldByName( 'ZIName' ) . Value : = Trim( ZIName. text ) ;
FieldByName( 'ZIMF' ) . Value : = Trim( ZIMF. text ) ;
FieldByName( 'ZIKZ' ) . Value : = Trim( ZIKZ. text ) ;
FieldByName( 'ZICF' ) . Value : = Trim( ZICF. text ) ;
FieldByName( 'ZICL' ) . Value : = Trim( ZICL. text ) ;
2025-08-19 17:40:03 +08:00
FieldByName( 'ZIIDYS' ) . Value : = maxno;
2025-01-20 13:04:03 +08:00
FieldByName( 'ZCID' ) . Value : = Trim( BJmaxmxno) ;
// FieldByName('CPFiller').Value := Trim(DName);
FieldByName( 'LeiBie' ) . Value : = '<27> Ǽ<EFBFBD> <C7BC> <EFBFBD> ' ;
FieldByName( 'MBBJ' ) . Value : = StrToFloatDef( MBCBDJ. text , 0 ) ;
FieldByName( 'DBBJ' ) . Value : = StrToFloatDef( DBCBDJ. text , 0 ) ;
FieldByName( 'BaoJia' ) . Value : = StrToFloatDef( CPCBDJ. text , 0 ) ;
FieldByName( 'BaoJiaYW' ) . Value : = StrToFloatDef( CPCBDJ. text , 0 ) ;
Post;
end ;
// ADOCmd.Connection.CommitTrans;
// FMainId := Trim(maxno);
Result : = True ;
except
Result : = False ;
// Panel1.Visible := False;
// ADOCmd.Connection.RollbackTrans;
Application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> ʧ<EFBFBD> ܣ<EFBFBD> ' , '<27> <> ʾ , 0 ) ;
end ;
end ;
procedure TfrmZHCPInPut. TBCloseClick( Sender: TObject) ;
begin
Close;
end ;
procedure TfrmZHCPInPut. InitData( ) ;
var
jpg: TJpegImage;
myStream: TADOBlobStream;
FStr: string ;
begin
with ADOQuery1 do
begin
Close;
sql. Clear;
sql. Add( ' select * ' ) ;
sql. Add( ' from ZH_CP_Info ' ) ;
sql. Add( ' where ZIID=' '' + Trim( FMainId) + '' '' ) ;
Open;
end ;
2025-09-24 17:37:00 +08:00
2025-01-20 13:04:03 +08:00
SCSHDataNew( ADOQuery1, Panel5, 9 ) ;
SCSHDataNew( ADOQuery1, Panel5, 2 ) ;
SCSHDataNew( ADOQuery1, Panel3, 9 ) ;
2025-08-19 17:40:03 +08:00
2025-01-20 13:04:03 +08:00
with adoqueryPicture do
begin
Close;
sql. Clear;
sql. Add( 'select * from Image_Info A' ) ;
sql. Add( ' inner join Image_File B on A.IMID=B.IMID' ) ;
sql. Add( ' and A.WBID=' '' + Trim( FMainId) + '' '' ) ;
sql. Add( ' and isnull(A.IMNo,' 'ͼƬ' ')=' 'ͼƬ' ' and A.Valid=' 'Y' ' ' ) ;
Open;
end ;
2025-08-19 17:40:03 +08:00
if ( adoqueryPicture. IsEmpty = False ) and ( CopyInt < > 9 9 ) then
2025-01-20 13:04:03 +08:00
begin
FStr : = Trim( adoqueryPicture. fieldbyname( 'ImageName' ) . AsString) ;
jpg : = TJpegImage. Create( ) ;
myStream : = tadoblobstream. Create( tblobfield( adoqueryPicture. fieldbyname( 'ImageFile' ) ) , bmread) ;
jpg. LoadFromStream( myStream) ;
Image2. Picture. Assign( jpg) ;
Image2. Width : = adoqueryPicture. fieldbyname( 'ImageWidth' ) . Value;
Image2. Height : = adoqueryPicture. fieldbyname( 'ImageHeight' ) . Value;
if Trim( adoqueryPicture. fieldbyname( 'FangXiang' ) . AsString) = '<27> <> ֱ' then
begin
Image2. Top : = 1 ;
Image2. Left : = Round( ( Panel66. Width - Image2. Width) / 2 ) ;
end
else
begin
Image2. Left : = 1 ;
Image2. Top : = Round( ( Panel66. Height - Image2. Height) / 2 ) ;
end ;
Image2. Visible : = True ;
end ;
2025-08-19 17:40:03 +08:00
2025-01-20 13:04:03 +08:00
if TBSave. Visible = False then
begin
Button2. Visible : = False ;
ZIMF. Color : = ZIID. Color;
ZIKZ. Color : = ZIID. Color;
ZICF. Color : = ZIID. Color;
ZIName. Color : = ZIID. Color;
ZIGY. Color : = ZIID. Color;
Note. Color : = ZIID. Color;
end ;
2025-08-19 17:40:03 +08:00
if CopyInt = 9 9 then
begin
PState : = 0 ;
FMainId : = '' ;
ZIID. Text : = ''
end ;
2025-01-20 13:04:03 +08:00
end ;
procedure TfrmZHCPInPut. FormShow( Sender: TObject) ;
begin
InitData( ) ;
end ;
function TfrmZHCPInPut. SaveData( ) : Boolean ;
var
maxno: string ;
begin
Result : = False ;
try
ADOCmd. Connection. BeginTrans;
///<2F> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
if Trim( FMainId) = '' then
begin
if Trim( FZIType) < > '75D<35> <44> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' then
begin
if GetLSNoHZ( ADOCmd, maxno, 'Y' , 'ZH_CP_Info' , 4 , 1 , 1 ) = False then
begin
ADOCmd. Connection. RollbackTrans;
Application. MessageBox( 'ȡ<> <C8A1> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> <CAA7> !' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
end
else
begin
if GetLSNoHZ( ADOCmd, maxno, 'A' , 'ZH_CP_Info' , 4 , 1 , 1 ) = False then
begin
ADOCmd. Connection. RollbackTrans;
Application. MessageBox( 'ȡ<> <C8A1> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> <CAA7> !' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
end ;
end
else
begin
maxno : = Trim( FMainId) ;
end ;
with ADOCmd do
begin
Close;
sql. Clear;
SQL. Add( 'select * from ZH_CP_Info where ZIId=' '' + Trim( maxno) + '' '' ) ;
Open;
end ;
2025-08-19 17:40:03 +08:00
2025-01-20 13:04:03 +08:00
with ADOCmd do
begin
if Trim( FMainId) = '' then
begin
Append;
FieldByName( 'ZIType' ) . Value : = FZIType;
end
else
begin
Edit;
end ;
FieldByName( 'ZIId' ) . Value : = Trim( maxno) ;
2025-08-19 17:40:03 +08:00
2025-01-20 13:04:03 +08:00
if Trim( FMainId) = '' then
begin
FieldByName( 'ZIIdYS' ) . Value : = Trim( maxno) ;
FieldByName( 'Filler' ) . Value : = Trim( DName) ;
FieldByName( 'FillerCode' ) . Value : = Trim( DCode) ;
FieldByName( 'Valid' ) . Value : = 'Y' ;
2025-08-19 17:40:03 +08:00
FieldByName( 'ZIDate' ) . Value : = SGetServerDate( ADOTemp) ;
2025-01-20 13:04:03 +08:00
end
else
begin
FieldByName( 'Editer' ) . Value : = Trim( DName) ;
FieldByName( 'EditerCode' ) . Value : = Trim( DCode) ;
FieldByName( 'EditTime' ) . Value : = SGetServerDateTime( ADOTemp) ;
end ;
RTSetsavedata( ADOCmd, 'ZH_CP_Info' , Panel5, 2 ) ;
RTSetsavedata( ADOCmd, 'ZH_CP_Info' , Panel3, 9 ) ;
2025-09-24 17:37:00 +08:00
// FieldByName('HXNM').Value := Trim(HXNO.TxtCode);
2025-01-20 13:04:03 +08:00
Post;
end ;
2025-08-19 17:40:03 +08:00
2025-01-20 13:04:03 +08:00
if Trim( Image2. Hint) < > '' then
begin
SaveImage( maxno, 'ͼƬ' ) ;
end ;
if trim( FZIType) < > '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' then
begin
2025-08-19 17:40:03 +08:00
if not BJData( maxno) then
2025-01-20 13:04:03 +08:00
begin
ADOCmd. Connection. RollbackTrans;
Application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> 쳣!' , '<27> <> ʾ , 0 ) ;
exit;
end ;
end ;
ADOCmd. Connection. CommitTrans;
FMainId : = Trim( maxno) ;
Result : = True ;
except
Result : = False ;
ADOCmd. Connection. RollbackTrans;
Application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> ʧ<EFBFBD> ܣ<EFBFBD> ' , '<27> <> ʾ , 0 ) ;
end ;
end ;
procedure TfrmZHCPInPut. TBSaveClick( Sender: TObject) ;
begin
ToolBar1. SetFocus;
if Trim( ZIName. Text ) = '' then
begin
Application. MessageBox( 'Ʒ <> <C6B7> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> Ϊ<EFBFBD> <CEAA> !' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
if Trim( ZIMF. Text ) = '' then
begin
Application. MessageBox( '<27> ŷ<EFBFBD> <C5B7> <EFBFBD> <EFBFBD> <EFBFBD> Ϊ<EFBFBD> <CEAA> !' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
if Trim( ZIKZ. Text ) = '' then
begin
Application. MessageBox( '<27> <> <EFBFBD> ز<EFBFBD> <D8B2> <EFBFBD> Ϊ<EFBFBD> <CEAA> !' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
if Trim( ZICF. Text ) = '' then
begin
Application. MessageBox( '<27> ɷݲ<C9B7> <DDB2> <EFBFBD> Ϊ<EFBFBD> <CEAA> !' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
if trim( FZIType) < > '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' then
begin
if Trim( HXNO. Text ) = '' then
begin
Application. MessageBox( '<27> <> <EFBFBD> ͺ <CDBA> <C5B2> <EFBFBD> Ϊ<EFBFBD> <CEAA> !' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
end ;
if Trim( ZICL. Text ) = '' then
begin
if Application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> Ϊ<EFBFBD> գ <EFBFBD> ȷ<EFBFBD> <C8B7> Ҫ<EFBFBD> <D2AA> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ' , '<27> <> ʾ , 3 2 + 4 ) < > IDYES then
Exit;
end ;
Panel1. Visible : = True ;
Panel1. Refresh;
if SaveData( ) then
begin
Panel1. Visible : = False ;
Application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ɹ<EFBFBD> <C9B9> <EFBFBD> ' , '<27> <> ʾ , 0 ) ;
ModalResult : = 1 ;
end ;
end ;
procedure TfrmZHCPInPut. ReadINIFile10( ) ;
var
programIni: Tinifile; //<2F> <> <EFBFBD> <EFBFBD> <EFBFBD> ļ<EFBFBD> <C4BC> <EFBFBD>
FileName: string ;
begin
FileName : = ExtractFilePath( Paramstr( 0 ) ) + 'SYSTEMSET.INI' ;
programIni : = Tinifile. create( FileName) ;
server : = programIni. ReadString( 'SERVER' , '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ַ' , '127.0.0.1' ) ;
programIni. Free;
end ;
2025-09-26 10:10:19 +08:00
2025-01-20 13:04:03 +08:00
procedure TfrmZHCPInPut. SaveImage( maxnoWB: string ; FIMNO: string ) ;
var
ImagePath, ImagName, MaxNo, MaxNoFile: string ;
AJpeg: TJPEGImage;
myStream: TADOBlobStream;
2025-09-24 17:37:00 +08:00
LocalFileName: string ; // <20> <> <EFBFBD> ӵı <D3B5> <C4B1> ر<EFBFBD> <D8B1> <EFBFBD>
2025-01-20 13:04:03 +08:00
begin
try
2025-09-24 17:37:00 +08:00
if Trim( FIMNO) = 'ͼƬ' then
2025-01-20 13:04:03 +08:00
begin
ImagePath : = Image2. Hint;
2025-09-26 10:10:19 +08:00
ImagName : = ExtractFileName( Image2. Hint) ;
if lstPat2. Count > 0 then
begin
LocalFileName : = lstPat2[ 0 ] ; // ʹ <> <CAB9> <EFBFBD> б <EFBFBD> <D0B1> е <EFBFBD> ·<EFBFBD> <C2B7> <EFBFBD> <EFBFBD> ȷ<EFBFBD> <C8B7> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> µ<EFBFBD>
// <20> <> <EFBFBD> <EFBFBD> <EFBFBD> ļ<EFBFBD> <C4BC> Ƿ<EFBFBD> <C7B7> <EFBFBD> <EFBFBD> <EFBFBD>
if not FileExists( LocalFileName) then
begin
Application. MessageBox( '<27> Ҳ<EFBFBD> <D2B2> <EFBFBD> ͼƬ<CDBC> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ѡ <EFBFBD> <D1A1> !' , '<27> <> <EFBFBD> <EFBFBD> ' , 0 ) ;
Exit;
end ;
2025-01-20 13:04:03 +08:00
end ;
2025-09-26 10:10:19 +08:00
ImagePath : = ExtractFilePath( LocalFileName) ; // <20> ļ<EFBFBD> ·<EFBFBD> <C2B7>
ImagName : = ExtractFileName( LocalFileName) ; // <20> <> <EFBFBD> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> չ<EFBFBD> <D5B9> <EFBFBD> <EFBFBD>
2025-01-20 13:04:03 +08:00
AJpeg : = TJpegImage. Create( ) ;
with ADOCmd do
begin
Close;
sql. Clear;
SQL. Add( 'UPdate Image_File Set Valid=' 'N' ' ' ) ;
sql. Add( ' where IMID=(select IMID from Image_Info' ) ;
Sql. Add( 'where WBID=' '' + Trim( maxnoWB) + '' ' and Valid=' 'Y' ' and IMNO=' '' + Trim( FIMNO) + '' ')' ) ;
ExecSQL;
end ;
with ADOCmd do
begin
Close;
sql. Clear;
SQL. Add( 'UPdate Image_Info Set Editer=' '' + Trim( DName) + '' ',EditerCode=' '' + Trim( DCode) + '' ',EditTime=getdate()' ) ;
sql. Add( ',Valid=' 'N' ' where WBID=' '' + Trim( maxnoWB) + '' ' and Valid=' 'Y' ' and IMNO=' '' + Trim( FIMNO) + '' ' ' ) ;
ExecSQL;
end ;
if GetLSNo( ADOCmd, MaxNo, 'IM' , 'Image_Info' , 4 , 1 ) = False then
begin
ADOCmd. Connection. RollbackTrans;
Application. MessageBox( 'ȡͼƬ<CDBC> <C6AC> Ϣ<EFBFBD> <CFA2> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> ܣ<EFBFBD> ' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
with ADOCmd do
begin
Close;
SQL. Clear;
SQL. Add( 'select * from Image_Info where 1=2' ) ;
Open;
end ;
with ADOCmd do
begin
Append;
FieldByName( 'IMID' ) . Value : = Trim( MaxNo) ;
FieldByName( 'IMNo' ) . Value : = FIMNO;
FieldByName( 'WBID' ) . Value : = Trim( maxnoWB) ;
FieldByName( 'ImageName' ) . Value : = Trim( ImagName) ;
FieldByName( 'ImagePath' ) . Value : = Trim( MaxNo) + Trim( ImagName) ;
FieldByName( 'ImageDate' ) . Value : = SGetServerDate( ADOTemp) ;
Fieldbyname( 'ImageType' ) . value : = Trim( 'YP' ) ;
Fieldbyname( 'Valid' ) . value : = Trim( 'Y' ) ;
Post;
end ;
if GetLSNo( ADOCmd, MaxNoFile, 'IF' , 'Image_File' , 4 , 1 ) = False then
begin
ADOCmd. Connection. RollbackTrans;
Application. MessageBox( 'ȡͼƬ<CDBC> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> ܣ<EFBFBD> ' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
with ADOCmd do
begin
close;
sql. Clear;
sql. Add( ' select * from Image_File where 1=2' ) ;
open;
end ;
2025-09-24 17:37:00 +08:00
2025-01-20 13:04:03 +08:00
with ADOCmd do
begin
Append;
FieldByName( 'IMID' ) . Value : = Trim( MaxNo) ;
FieldByName( 'IFID' ) . Value : = Trim( MaxNoFile) ;
Fieldbyname( 'Valid' ) . value : = Trim( 'Y' ) ;
2025-09-24 17:37:00 +08:00
if Trim( FIMNO) = 'ͼƬ' then
2025-01-20 13:04:03 +08:00
begin
FieldByName( 'ImageWidth' ) . Value : = Image2. Width;
FieldByName( 'ImageHeight' ) . Value : = Image2. Height;
FieldByName( 'FangXiang' ) . Value : = FangXiang2;
end ;
FieldByName( 'IFType' ) . Value : = 'С ;
myStream : = TADOBlobStream. Create( TBlobField( ADOCmd. FieldByName( 'ImageFile' ) ) , bmWrite) ;
2025-09-24 17:37:00 +08:00
if Trim( FIMNO) = 'ͼƬ' then
2025-01-20 13:04:03 +08:00
begin
AJpeg. Assign( Image2. Picture. Graphic) ;
end ;
AJpeg. SaveToStream( myStream) ;
myStream. Free;
Post;
end ;
2025-09-24 17:37:00 +08:00
2025-01-20 13:04:03 +08:00
with ADOCmd do
begin
Append;
FieldByName( 'IMID' ) . Value : = Trim( MaxNo) ;
FieldByName( 'IFID' ) . Value : = Trim( MaxNoFile) + 'D' ;
Fieldbyname( 'Valid' ) . value : = Trim( 'Y' ) ;
2025-09-24 17:37:00 +08:00
if Trim( FIMNO) = 'ͼƬ' then
2025-01-20 13:04:03 +08:00
begin
FieldByName( 'ImageWidth' ) . Value : = Image22. Width;
FieldByName( 'ImageHeight' ) . Value : = Image22. Height;
FieldByName( 'FangXiang' ) . Value : = FangXiang2;
end ;
FieldByName( 'IFType' ) . Value : = '<27> <> ' ;
myStream : = TADOBlobStream. Create( TBlobField( ADOCmd. FieldByName( 'ImageFile' ) ) , bmWrite) ;
2025-09-24 17:37:00 +08:00
if Trim( FIMNO) = 'ͼƬ' then
2025-01-20 13:04:03 +08:00
begin
AJpeg. Assign( Image22. Picture. Graphic) ;
end ;
AJpeg. SaveToStream( myStream) ;
myStream. Free;
Post;
end ;
2025-09-24 17:37:00 +08:00
2025-01-20 13:04:03 +08:00
try
ReadINIFile10( ) ;
server : = ReadINIFileStr( 'SYSTEMSET.INI' , 'SERVER' , '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ַ' , '127.0.0.1' ) ;
IdFTP1. Host : = server; //PicSvr;
IdFTP1. Username : = 'three' ;
IdFTP1. Password : = '641010' ;
IdFTP1. Connect( ) ;
except
IdFTP1. Quit;
Application. MessageBox( '<27> <EFBFBD> <DEB7> <EFBFBD> <EFBFBD> ӵ<EFBFBD> <D3B5> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 飡' , '<27> <> ʾ , MB_ICONWARNING) ;
Exit;
end ;
2025-09-24 17:37:00 +08:00
2025-01-20 13:04:03 +08:00
if IdFTP1. Connected then
begin
if Trim( FIMNO) = '<27> <> <EFBFBD> <EFBFBD> ' then
begin
IdFTP1. Put( lstPat[ 0 ] , 'YP' + '\' + Trim( MaxNo) + Trim( ImagName) ) ;
end
else if Trim( FIMNO) = 'ͼƬ' then
begin
2025-09-24 17:37:00 +08:00
IdFTP1. Put( LocalFileName, 'YP' + '\' + Trim( MaxNo) + ImagName) ;
2025-01-20 13:04:03 +08:00
end ;
end ;
if IdFTP1. Connected then
IdFTP1. Quit;
except
ADOCmd. Connection. RollbackTrans;
Application. MessageBox( 'ͼƬ<CDBC> <C6AC> <EFBFBD> <EFBFBD> ʧ<EFBFBD> ܣ<EFBFBD> ' , '<27> <> ʾ , 0 ) ;
end ;
end ;
procedure TfrmZHCPInPut. FormClose( Sender: TObject; var Action: TCloseAction) ;
begin
ModalResult : = 1 ;
end ;
function TfrmZHCPInPut. StrFenHang( FStr: string ; var FHStr: string ) : Boolean ;
var
i, j: Integer ;
LSStr: string ;
begin
Result : = False ;
FStr : = Trim( FStr) ;
FHStr : = '' ;
j : = 1 ;
i : = Pos( ' ' , FStr) ;
while i > 0 do
begin
if j = 1 then
begin
LSStr : = Copy( FStr, 1 , i - 1 ) ; //'1234 5678 456'
FHStr : = '1:' + LSStr;
end
else
begin
LSStr : = Copy( FStr, 1 , i - 1 ) ;
if Trim( LSStr) = '' then
begin
FStr : = Copy( FStr, i + 1 , Length( FStr) - i) ;
end
else
FHStr : = FHStr + #13 + #10 + inttostr( j) + ':' + LSStr;
end ;
if Trim( LSStr) < > '' then
begin
j : = j + 1 ;
FStr : = Copy( FStr, i + 1 , Length( FStr) - i) ;
end ;
i : = Pos( ' ' , FStr) ;
end ;
if j = 1 then
begin
FHStr : = FStr;
end
else
begin
if Trim( FStr) < > '' then
begin
FHStr : = FHStr + #13 + #10 + inttostr( j) + ':' + FStr;
end ;
end ;
Result : = True ;
end ;
procedure TfrmZHCPInPut. FormCreate( Sender: TObject) ;
begin
lstPat : = TStringList. Create;
lstPat2 : = TStringList. Create;
end ;
procedure TfrmZHCPInPut. Button2Click( Sender: TObject) ;
var
AJpeg: TJPEGImage;
Bitmap, Bitmap22: TBitmap;
ARect, ARect22: TRect;
2025-09-24 17:37:00 +08:00
TPHeight: Integer ;
TPWidth: Integer ;
2025-01-20 13:04:03 +08:00
WZFlag: string ;
2025-09-24 17:37:00 +08:00
FullFileName: string ;
FileExt: string ;
2025-01-20 13:04:03 +08:00
begin
2025-09-24 17:37:00 +08:00
// <20> <> ʼ <EFBFBD> <CABC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
WZFlag : = '' ; // <20> <> Ҫ<EFBFBD> <D2AA> <EFBFBD> <EFBFBD> ʼ <EFBFBD> <CABC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
2025-01-20 13:04:03 +08:00
lstPat2. Clear;
2025-09-24 17:37:00 +08:00
// <20> ļ<EFBFBD> ѡ <EFBFBD> <D1A1> <EFBFBD> Ի<EFBFBD> <D4BB> <EFBFBD>
2025-01-20 13:04:03 +08:00
if ODPat. Execute then
begin
lstPat2. AddStrings( ODPat. Files) ;
end
else
begin
Exit;
end ;
2025-09-24 17:37:00 +08:00
// <20> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ֤
2025-01-20 13:04:03 +08:00
if lstPat2. Count > 1 then
begin
lstPat2. Clear;
Application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ϴ<EFBFBD> <CFB4> <EFBFBD> <EFBFBD> <EFBFBD> ͼƬ!' , '<27> <> ʾ , 0 ) ;
Exit;
end
else if lstPat2. Count < 1 then
begin
Exit;
end ;
2025-09-24 17:37:00 +08:00
// <20> <> ʾ <EFBFBD> <CABE> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
2025-01-20 13:04:03 +08:00
Panel1. Visible : = True ;
Panel1. Refresh;
2025-09-24 17:37:00 +08:00
// ʹ <> <CAB9> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ļ<EFBFBD> ·<EFBFBD> <C2B7>
FullFileName : = ODPat. FileName; // <20> <> ȡ<EFBFBD> <C8A1> <EFBFBD> <EFBFBD> ·<EFBFBD> <C2B7>
// <20> <> <EFBFBD> <EFBFBD> <EFBFBD> ļ<EFBFBD> <C4BC> Ƿ<EFBFBD> <C7B7> <EFBFBD> <EFBFBD> <EFBFBD>
if not FileExists( FullFileName) then
2025-01-20 13:04:03 +08:00
begin
2025-09-24 17:37:00 +08:00
Application. MessageBox( PChar( '<27> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> : ' + FullFileName) , '<27> <> <EFBFBD> <EFBFBD> ' , 0 ) ;
Panel1. Visible : = False ;
2025-01-20 13:04:03 +08:00
Exit;
end ;
2025-09-24 17:37:00 +08:00
AJpeg : = TJpegImage. Create( ) ;
Bitmap : = nil ;
Bitmap22 : = nil ;
try
try
// <20> <> <EFBFBD> <EFBFBD> JPEG<45> ļ<EFBFBD> <C4BC> <EFBFBD> ʹ <EFBFBD> <CAB9> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ·<EFBFBD> <C2B7> <EFBFBD> <EFBFBD>
AJpeg. LoadFromFile( FullFileName) ;
// <20> <> ֤JPEG<45> ļ<EFBFBD> <C4BC> Ƿ<EFBFBD> <C7B7> <EFBFBD> Ч
if ( AJpeg. Width < = 0 ) or ( AJpeg. Height < = 0 ) then
begin
Application. MessageBox( 'ͼƬ<CDBC> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> <F0BBB5BB> <EFBFBD> ʽ <EFBFBD> <CABD> ֧<EFBFBD> <D6A7> !' , '<27> <> <EFBFBD> <EFBFBD> ' , 0 ) ;
Exit;
end ;
// <20> 洢<EFBFBD> <E6B4A2> <EFBFBD> <EFBFBD> ·<EFBFBD> <C2B7> <EFBFBD> <EFBFBD> Hint
Image2. Hint : = FullFileName;
// <20> Ľ<EFBFBD> <C4BD> <EFBFBD> <EFBFBD> ļ<EFBFBD> <C4BC> <EFBFBD> ʽ <EFBFBD> <CABD> <EFBFBD> <EFBFBD>
FileExt : = LowerCase( ExtractFileExt( FullFileName) ) ;
if ( FileExt < > '.jpg' ) and ( FileExt < > '.jpeg' ) then
begin
Application. MessageBox( 'ͼƬ<CDBC> <C6AC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> jpg<70> <67> ʽ , '<27> <> ʾ , 0 ) ;
Exit;
end ;
// <20> <> ȡͼƬ<CDBC> ߴ <EFBFBD>
TPWidth : = AJpeg. Width;
TPHeight : = AJpeg. Height;
// <20> <> <EFBFBD> <EFBFBD> λͼ<CEBB> <CDBC> <EFBFBD> <EFBFBD>
Bitmap : = TBitmap. Create;
Bitmap22 : = TBitmap. Create;
// <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ųߴ <C5B3>
Bitmap. Width : = Panel66. Width - 2 ;
Bitmap. Height : = Round( Panel66. Width / TPWidth * TPHeight) ;
// <20> <> <EFBFBD> <EFBFBD> <EFBFBD> ߶ȳ<DFB6> <C8B3> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 壬<EFBFBD> ߶<F2B0B4B8> <DFB6> <EFBFBD> <EFBFBD> <EFBFBD>
if Bitmap. Height > Panel66. Height then
begin
WZFlag : = '<27> <> ֱ' ;
Bitmap. Height : = Panel66. Height - 2 ;
Bitmap. Width : = Round( Panel66. Height / TPHeight * TPWidth) ;
end ;
// <20> <> <EFBFBD> <EFBFBD> ˫<EFBFBD> <CBAB> <EFBFBD> ߴ <EFBFBD> <DFB4> <EFBFBD> λͼ
Bitmap22. Width : = Bitmap. Width * 2 ;
Bitmap22. Height : = Bitmap. Height * 2 ;
// <20> <> <EFBFBD> <EFBFBD> С
Bitmap. Canvas. FillRect( Rect( 0 , 0 , Bitmap. Width, Bitmap. Height) ) ;
ARect : = Rect( 0 , 0 , Bitmap. Width, Bitmap. Height) ;
Bitmap. Canvas. StretchDraw( ARect, AJpeg) ;
// <20> <> ʾ С
Image2. Height : = Bitmap. Height;
Image2. Width : = Bitmap. Width;
Image2. Picture. Assign( Bitmap) ;
// <20> <> <EFBFBD> ݷ<EFBFBD> <DDB7> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ͼƬλ<C6AC> <CEBB>
if Trim( WZFlag) = '<27> <> ֱ' then
begin
Image2. Top : = 1 ;
Image2. Left : = Round( ( Panel66. Width - Image2. Width) / 2 ) ;
end
else
begin
Image2. Left : = 1 ;
Image2. Top : = Round( ( Panel66. Height - Image2. Height) / 2 ) ;
end ;
// <20> <> <EFBFBD> 淽<EFBFBD> <E6B7BD> <EFBFBD> <EFBFBD> Ϣ
FangXiang2 : = WZFlag;
// <20> <> <EFBFBD> ƴ<EFBFBD> ͼ
Bitmap22. Canvas. FillRect( Rect( 0 , 0 , Bitmap22. Width, Bitmap22. Height) ) ;
ARect22 : = Rect( 0 , 0 , Bitmap22. Width, Bitmap22. Height) ;
Bitmap22. Canvas. StretchDraw( ARect22, AJpeg) ;
// <20> <> ʾ <EFBFBD> <CABE> ͼ
Image22. Height : = Bitmap22. Height;
Image22. Width : = Bitmap22. Width;
Image22. Picture. Assign( Bitmap22) ;
Image2. Visible : = True ;
ZIName. Text : = ChangeFileExt( ExtractFileName( FullFileName) , '' ) ;
Panel12. Visible : = True ;
2025-09-26 10:10:19 +08:00
WJName. Text : = ChangeFileExt( ExtractFileName( Image2. Hint) , '' ) ;
WJName. Hint : = ChangeFileExt( ExtractFileName( Image2. Hint) , '' ) ;
2025-09-24 17:37:00 +08:00
except
on E: Exception do
begin
Application. MessageBox( PChar( '<27> <> <EFBFBD> <EFBFBD> ͼƬʱ<C6AC> <CAB1> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> : ' + E. Message ) , '<27> <> <EFBFBD> <EFBFBD> ' , 0 ) ;
end ;
end ;
finally
// ȷ<> <C8B7> <EFBFBD> <EFBFBD> Դ<EFBFBD> <D4B4> <EFBFBD> ͷ<EFBFBD>
if Assigned( AJpeg) then
AJpeg. Free;
if Assigned( Bitmap) then
Bitmap. Free;
if Assigned( Bitmap22) then
Bitmap22. Free;
Panel1. Visible : = False ;
2025-01-20 13:04:03 +08:00
end ;
end ;
procedure TfrmZHCPInPut. ToolButton1Click( Sender: TObject) ;
var
fPrintFile, Txt, fImagePath, maxno: string ;
i, j: Integer ;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
if Trim( FMainId) = '' then
begin
Application. MessageBox( 'û<> б <EFBFBD> <D0B1> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ݣ<EFBFBD> <DDA3> <EFBFBD> <EFBFBD> ܴ<EFBFBD> ӡ!' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
fPrintFile : = ExtractFilePath( Application. ExeName) + 'Report\չ<> <D5B9> <EFBFBD> <EFBFBD> Ʒ <EFBFBD> <C6B7> ǩ85.rmf' ;
if FileExists( fPrintFile) = False then
begin
Application. MessageBox( PChar( 'û<> <C3BB> <EFBFBD> <EFBFBD> ' + ExtractFilePath( Application. ExeName) + 'Report\չ<> <D5B9> <EFBFBD> <EFBFBD> Ʒ <EFBFBD> <C6B7> ǩ85.rmf' ) , '<27> <> ʾ , 0 ) ;
exit;
end ;
with ADOTemp do
begin
Close;
SQL. Clear;
sql. Add( ' select A.* ,C.ImageFile' ) ;
sql. Add( ' from ZH_CP_Info A' ) ;
sql. Add( ' inner join Image_Info B on A.ZIID=B.WBID' ) ;
sql. Add( ' inner join Image_File C on B.IMID=C.IMID' ) ;
sql. Add( ' where A.ZIID=' '' + Trim( FMainId) + '' '' ) ;
sql. Add( ' and B.IMNO=' 'ͼƬ' ' and A.Valid=' 'Y' ' and B.Valid=' 'Y' ' and C.Valid=' 'Y' ' ' ) ;
Open;
end ;
SCreateCDS20( ADOTemp, CDS_PRT) ;
SInitCDSData20( ADOTemp, CDS_PRT) ;
try
ADOQueryCmd. Connection. BeginTrans;
if GetLSNo( ADOQueryCmd, maxno, 'DYKC' , 'ZH_CP_Info_KC' , 4 , 1 , ) = False then
begin
ADOQueryCmd. Connection. RollbackTrans;
Application. MessageBox( 'ȡ<> <C8A1> Ʒ <EFBFBD> <C6B7> ӡ<EFBFBD> <D3A1> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> <CAA7> !' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
with ADOQueryCmd do
begin
Close;
sql. Clear;
SQL. Add( 'select * from ZH_CP_Info_KC where DYId=' '' + Trim( maxno) + '' '' ) ;
Open;
end ;
with ADOQueryCmd do
begin
Append;
FieldByName( 'ZIId' ) . Value : = Trim( FMainId) ;
FieldByName( 'DYId' ) . Value : = Trim( maxno) ;
FieldByName( 'Filler' ) . Value : = Trim( DName) ;
FieldByName( 'FillerCode' ) . Value : = Trim( DCode) ;
FieldByName( 'Valid' ) . Value : = 'Y' ;
Post;
end ;
with ADOQueryCmd do
begin
Close;
sql. Clear;
sql. Add( 'Update ZH_CP_Info_KC Set DYXH=isnull((select max(DYXH) from ZH_CP_Info_KC A ' ) ;
sql. Add( ' where A.ZIID=' '' + Trim( FMainId) + '' '),0)+1 ' ) ;
sql. Add( ' where DYID=' '' + Trim( maxno) + '' '' ) ;
ExecSQL;
end ;
ADOQueryCmd. Connection. CommitTrans;
except
ADOQueryCmd. Connection. RollbackTrans;
Application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ӡ<EFBFBD> <D3A1> ˮ<EFBFBD> <CBAE> <EFBFBD> 쳣<EFBFBD> <ECB3A3> ' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
try
Moudle : = LoadLibrary( 'MakeQRBarcode.dll' ) ;
@ Makebar : = GetProcAddress( Moudle, 'Make' ) ;
@ Mixtext : = GetProcAddress( Moudle, 'MixText' ) ;
Txt : = Trim( maxno) ;
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> <CEAC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> ܣ<EFBFBD> ' , '<27> <> ʾ <EFBFBD> <CABE> Ϣ' , MB_ICONERROR) ;
exit;
end ;
RMVariables[ 'QRBARCODE' ] : = fImagePath;
RMVariables[ 'DYID' ] : = maxno;
RM1. LoadFromFile( fPrintFile) ;
//RM1.ShowReport;
RM1. PrintReport;
end ;
procedure TfrmZHCPInPut. Image1DblClick( Sender: TObject) ;
begin
if Trim( FMainId) = '' then
begin
Application. MessageBox( 'û<> б <EFBFBD> <D0B1> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ݣ<EFBFBD> <DDA3> <EFBFBD> <EFBFBD> ܲ鿴<DCB2> <E9BFB4> ͼ!' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
try
frmZHCPBigTP : = TfrmZHCPBigTP. Create( Application) ;
with frmZHCPBigTP do
begin
frmZHCPBigTP. FMainId : = Self. FMainId;
if Trim( ZIID. Text ) < > '' then
frmZHCPBigTP. FIMNO : = '<27> <> <EFBFBD> <EFBFBD> ' ;
if ShowModal = 1 then
begin
end ;
end ;
finally
frmZHCPBigTP. Free;
end ;
end ;
procedure TfrmZHCPInPut. Image2DblClick( Sender: TObject) ;
begin
if Trim( FMainId) = '' then
begin
Application. MessageBox( 'û<> б <EFBFBD> <D0B1> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ݣ<EFBFBD> <DDA3> <EFBFBD> <EFBFBD> ܲ鿴<DCB2> <E9BFB4> ͼ!' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
try
frmZHCPBigTP : = TfrmZHCPBigTP. Create( Application) ;
with frmZHCPBigTP do
begin
frmZHCPBigTP. FMainId : = Self. FMainId;
if Trim( ZIID. Text ) < > '' then
frmZHCPBigTP. FIMNO : = 'ͼƬ' ;
if ShowModal = 1 then
begin
end ;
end ;
finally
frmZHCPBigTP. Free;
end ;
end ;
procedure TfrmZHCPInPut. HXNO1BtnClick( Sender: TObject) ;
begin
try
frmZdyAttachCP_HX : = TfrmZdyAttachCP_HX. Create( Application) ;
with frmZdyAttachCP_HX do
begin
if ShowModal = 1 then
begin
HXNO. text : = Trim( CDS_HZ. fieldbyname( 'zdyCode' ) . AsString) ;
ZICL. text : = Trim( CDS_HZ. fieldbyname( 'defstr1' ) . AsString) ;
end ;
end ;
finally
frmZdyAttachCP_HX. Free;
end ;
end ;
procedure TfrmZHCPInPut. MianBuBtnClick( Sender: TObject) ;
begin
try
frmMLMangeYH : = TfrmMLMangeYH. Create( Application) ;
with frmMLMangeYH do
begin
if ShowModal = 1 then
begin
MianBu. text : = Trim( CDS_Main. fieldbyname( 'MLXXNO' ) . AsString) ;
MianBuName. text : = Trim( CDS_Main. fieldbyname( 'MLName' ) . AsString) ;
with ADOTemp do
begin
Close;
sql. Clear;
sql. Add( 'select top 1 MBCBDJ from ZH_CP_Info where MianBu=' '' + Trim( CDS_Main. fieldbyname( 'MLXXNO' ) . AsString) + '' ' and Valid=' 'Y' ' order by ZIDate desc ' ) ;
Open;
end ;
MBCBDJ. text : = Trim( ADOTemp. fieldbyname( 'MBCBDJ' ) . AsString) ;
end ;
end ;
finally
frmMLMangeYH. Free;
end ;
end ;
procedure TfrmZHCPInPut. ZhongJianCBtnClick( Sender: TObject) ;
begin
Panel4. Visible : = True ;
ZT : = 'ZJC' ;
end ;
procedure TfrmZHCPInPut. DiBuBtnClick( Sender: TObject) ;
begin
Panel4. Visible : = True ;
ZT : = 'DB' ;
end ;
procedure TfrmZHCPInPut. DiBuNameBtnClick( Sender: TObject) ;
begin
try
frmZDYHelp : = TfrmZDYHelp. Create( Application) ;
with frmZDYHelp do
begin
flag : = 'DiBuName' ;
flagname : = '<27> ײ<EFBFBD> <D7B2> <EFBFBD> <EFBFBD> <EFBFBD> ' ;
if ShowModal = 1 then
begin
DiBuName. text : = Trim( ClientDataSet1. fieldbyname( 'ZDYName' ) . AsString) ;
end ;
end ;
finally
frmZDYHelp. Free;
end ;
end ;
procedure TfrmZHCPInPut. MianBuNameBtnClick( Sender: TObject) ;
begin
try
frmZDYHelp : = TfrmZDYHelp. Create( Application) ;
with frmZDYHelp do
begin
flag : = 'MianBuName' ;
flagname : = '<27> 沼<EFBFBD> <E6B2BC> <EFBFBD> <EFBFBD> ' ;
if ShowModal = 1 then
begin
MianBuName. text : = Trim( ClientDataSet1. fieldbyname( 'ZDYName' ) . AsString) ;
// with ADOTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select top 1 MBCBDJ from ZH_CP_Info where MianBuName=''' + Trim(ClientDataSet1.fieldbyname('ZDYName').AsString) + ''' order by ZIDate desc ');
// Open;
// end;
// MBCBDJ.text := Trim(ADOTemp.fieldbyname('MBCBDJ').AsString);
end ;
end ;
finally
frmZDYHelp. Free;
end ;
end ;
procedure TfrmZHCPInPut. Button3Click( Sender: TObject) ;
begin
Self. Panel4. Visible : = false ;
frmMCP : = TfrmMCP. create( self) ;
with frmMCP do
begin
flag : = 'MName' ;
flagName : = '<27> <> ' ;
ViewFlag : = true ;
Panel4. Align : = alClient;
ToolBar3. Visible : = false ;
ToolBar2. Enabled : = false ;
Button1. Visible : = False ;
if ShowModal = 1 then
begin
if ZT = 'ZJC' then
begin
ZhongJianCName. text : = Trim( ClientDataSet1. fieldbyname( 'BPKZ' ) . AsString) + 'G' + Trim( ClientDataSet1. fieldbyname( 'BPName' ) . AsString) ;
ZhongJianC. text : = Trim( ClientDataSet1. fieldbyname( 'BPCode' ) . AsString) ;
ZhongJianCID. text : = Trim( ClientDataSet1. fieldbyname( 'BPID' ) . AsString) ;
end
else if ZT = 'DB' then
begin
DiBuName. text : = Trim( ClientDataSet1. fieldbyname( 'BPKZ' ) . AsString) + 'G' + Trim( ClientDataSet1. fieldbyname( 'BPName' ) . AsString) ;
DiBu. text : = Trim( ClientDataSet1. fieldbyname( 'BPCode' ) . AsString) ;
DiBuID. text : = Trim( ClientDataSet1. fieldbyname( 'BPID' ) . AsString) ;
end ;
end ;
free;
end ;
end ;
procedure TfrmZHCPInPut. Button4Click( Sender: TObject) ;
begin
Self. Panel4. Visible : = false ;
try
frmMLMangeYH : = TfrmMLMangeYH. Create( Application) ;
with frmMLMangeYH do
begin
if ShowModal = 1 then
begin
if ZT = 'ZJC' then
begin
ZhongJianCName. text : = Trim( CDS_Main. fieldbyname( 'MLName' ) . AsString) ;
ZhongJianC. text : = Trim( CDS_Main. fieldbyname( 'MLXXNO' ) . AsString) ;
end
else if ZT = 'DB' then
begin
DiBuName. text : = Trim( CDS_Main. fieldbyname( 'MLName' ) . AsString) ;
DiBu. text : = Trim( CDS_Main. fieldbyname( 'MLXXNO' ) . AsString) ;
end ;
end ;
end ;
finally
frmMLMangeYH. Free;
end ;
end ;
procedure TfrmZHCPInPut. HXNOBtnDnClick( Sender: TObject) ;
begin
TBtnEditC( Sender) . Text : = '' ;
TBtnEditC( Sender) . TxtCode : = '' ;
end ;
procedure TfrmZHCPInPut. HXNOBtnUpClick( Sender: TObject) ;
begin
try
frmZdyAttachCP_HX : = TfrmZdyAttachCP_HX. Create( Application) ;
with frmZdyAttachCP_HX do
begin
if ShowModal = 1 then
begin
HXNO. text : = Trim( CDS_HZ. fieldbyname( 'zdyCode' ) . AsString) ;
ZICL. text : = Trim( CDS_HZ. fieldbyname( 'defstr1' ) . AsString) ;
2025-09-24 17:37:00 +08:00
// HXNO.TxtCode := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
HXNM. text : = Trim( CDS_HZ. fieldbyname( 'ZdyName' ) . AsString) ;
2025-01-20 13:04:03 +08:00
end ;
end ;
finally
frmZdyAttachCP_HX. Free;
end ;
end ;
procedure TfrmZHCPInPut. MBCBDJChange( Sender: TObject) ;
begin
if ( Trim( MBCBDJ. Text ) < > '' ) and ( Trim( DBCBDJ. Text ) < > '' ) and ( Trim( MHDJ. Text ) < > '' ) and ( Trim( XHJGFDJ. Text ) < > '' ) and ( Trim( TSHGYCB. Text ) < > '' ) then
begin
CPCBDJ. Text : = FloatToStr( StrToFloatdef( Trim( MBCBDJ. Text ) , 0 ) + StrToFloatdef( Trim( DBCBDJ. Text ) , 0 ) + StrToFloatdef( Trim( MHDJ. Text ) , 0 ) + StrToFloatdef( Trim( XHJGFDJ. Text ) , 0 ) + StrToFloatdef( Trim( TSHGYCB. Text ) , 0 ) ) ;
end
else
begin
CPCBDJ. Text : = '' ;
end ;
end ;
2025-09-24 17:37:00 +08:00
procedure TfrmZHCPInPut. MenuItem2Click( Sender: TObject) ;
begin
if lstPat2. Count < 1 then
exit;
Panel12. Visible : = True ;
Cancel. Visible : = True ;
Rename. Visible : = True ;
Panel12. Refresh;
2025-09-26 10:10:19 +08:00
WJName. Text : = ChangeFileExt( ExtractFileName( Image2. Hint) , '' ) ;
WJName. Hint : = ChangeFileExt( ExtractFileName( Image2. Hint) , '' ) ;
2025-09-24 17:37:00 +08:00
end ;
procedure TfrmZHCPInPut. RenameClick( Sender: TObject) ;
var
OldFileName, NewFileName, FileExt: string ;
begin
// <20> <> <EFBFBD> <EFBFBD> <EFBFBD> Ƿ<EFBFBD> <C7B7> <EFBFBD> ͼƬ<CDBC> <C6AC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
if Trim( Image2. Hint) = '' then
begin
Application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> ѡ <EFBFBD> <D1A1> ͼƬ!' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
// <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> Ƿ<EFBFBD> Ϊ<EFBFBD> <CEAA>
if Trim( WJName. Text ) = '' then
begin
Application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ļ<EFBFBD> <C4BC> <EFBFBD> !' , '<27> <> ʾ , 0 ) ;
Exit;
end ;
// <20> <> <EFBFBD> <EFBFBD> ԭ<EFBFBD> ļ<EFBFBD> <C4BC> Ƿ<EFBFBD> <C7B7> <EFBFBD> <EFBFBD> <EFBFBD>
if not FileExists( Image2. Hint) then
begin
Application. MessageBox( 'ԭͼƬ<CDBC> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ڣ<EFBFBD> <DAA3> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ѱ<EFBFBD> ɾ<EFBFBD> <C9BE> <EFBFBD> <EFBFBD> <EFBFBD> ƶ<EFBFBD> !' , '<27> <> <EFBFBD> <EFBFBD> ' , 0 ) ;
Exit;
end ;
// <20> <> ȡ<EFBFBD> <C8A1> ǰ<EFBFBD> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> չ<EFBFBD> <D5B9>
OldFileName : = Image2. Hint;
FileExt : = ExtractFileExt( OldFileName) ; // <20> <> ȡԭ<C8A1> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> չ<EFBFBD> <D5B9>
// <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ͬĿ¼<C4BF> <C2BC> <EFBFBD> <EFBFBD> չ<EFBFBD> <D5B9> <EFBFBD> <EFBFBD>
NewFileName : = ExtractFilePath( OldFileName) + Trim( WJName. Text ) + FileExt;
// <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ļ<EFBFBD> <C4BC> Ƿ<EFBFBD> <C7B7> Ѵ <EFBFBD> <D1B4> ڣ<EFBFBD> <DAA3> Ҳ<EFBFBD> <D2B2> <EFBFBD> ͬһ <CDAC> <D2BB> <EFBFBD> ļ<EFBFBD> <C4BC> <EFBFBD>
if ( NewFileName < > OldFileName) and FileExists( NewFileName) then
begin
if Application. MessageBox( PChar( '<27> ļ<EFBFBD> "' + ExtractFileName( NewFileName) + '" <20> Ѵ <EFBFBD> <D1B4> ڣ<EFBFBD> <DAA3> Ƿ<C7B7> ?' ) , '<27> <> ʾ , MB_YESNO + MB_ICONQUESTION) = IDNO then
Exit;
end ;
// ִ<> <D6B4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
if RenameFile( OldFileName, NewFileName) then
begin
// <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ر<EFBFBD> <D8B1> <EFBFBD>
Image2. Hint : = NewFileName; // <20> <> <EFBFBD> <EFBFBD> Hint<6E> е <EFBFBD> <D0B5> <EFBFBD> <EFBFBD> <EFBFBD> ·<EFBFBD> <C2B7>
// <20> <> <EFBFBD> <EFBFBD> lstPat2<74> е <EFBFBD> <D0B5> ļ<EFBFBD> ·<EFBFBD> <C2B7>
if lstPat2. Count > 0 then
lstPat2[ 0 ] : = NewFileName
else
lstPat2. Add( NewFileName) ;
// <20> <> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> <EFBFBD> <EFBFBD> ʾ <EFBFBD> <CABE> ֻ<EFBFBD> <D6BB> ʾ <EFBFBD> ļ<EFBFBD> <C4BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> չ<EFBFBD> <D5B9> <EFBFBD> <EFBFBD>
// Edit2.Text := Trim(WJName.Text);
// <20> <> <EFBFBD> <EFBFBD> CopyInt<6E> <74> <EFBFBD> <EFBFBD> 99<39> <39> Ҳ<EFBFBD> <D2B2> <EFBFBD> <EFBFBD> ZIName
if CopyInt < > 9 9 then
ZIName. Text : = Trim( WJName. Text ) ;
Application. MessageBox( PChar( '<27> ļ<EFBFBD> <C4BC> ѳɹ<D1B3> <C9B9> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> Ϊ: ' + ExtractFileName( NewFileName) ) , '<27> ɹ<EFBFBD> ' , MB_ICONINFORMATION) ;
// <20> <> ѡ <EFBFBD> <D1A1> <EFBFBD> <EFBFBD> ¼<EFBFBD> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ־
// WriteToLog('ͼƬ<CDBC> <C6AC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> : ' + ExtractFileName(OldFileName) + ' -> ' + ExtractFileName(NewFileName));
Panel12. Visible : = False ;
end
else
begin
Application. MessageBox( '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> ܣ<EFBFBD> <DCA3> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ļ<EFBFBD> <C4BC> Ƿ<EFBFBD> <C7B7> <EFBFBD> ռ <EFBFBD> û<EFBFBD> Ȩ<EFBFBD> <EFBFBD> <DEB2> <EFBFBD> !' , '<27> <> <EFBFBD> <EFBFBD> ' , MB_ICONERROR) ;
end ;
end ;
procedure TfrmZHCPInPut. CancelClick( Sender: TObject) ;
begin
panel12. Visible : = False ;
end ;
procedure TfrmZHCPInPut. img1Click( Sender: TObject) ;
begin
Panel12. Visible : = False ;
end ;
2025-01-20 13:04:03 +08:00
end .
