Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
e5a0893d5d
D7myYunxiang/云翔生产管理(MYSC.dll)/U_RCCKInPut.pas

1433 lines
38 KiB
ObjectPascal
Raw Normal View History

1
2025-01-20 13:04:03 +08:00
unit U_RCCKInPut;
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,IniFiles, Menus,
ImgList,ShellAPI;
type
TfrmRCCKInPut = class(TForm)
ToolBar1: TToolBar;
TBClose: TToolButton;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
ADOQuery1: TADOQuery;
TBSave: TToolButton;
DataSource1: TDataSource;
ClientDataSet1: TClientDataSet;
cxGridPopupMenu1: TcxGridPopupMenu;
Label21: TLabel;
Label26: TLabel;
Label19: TLabel;
CDS_Print: TClientDataSet;
RM1: TRMGridReport;
Panel3: TPanel;
labMYType: TLabel;
Panel4: TPanel;
Label13: TLabel;
Label27: TLabel;
CRTime: TDateTimePicker;
KHName: TBtnEditA;
Panel5: TPanel;
Label12: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label31: TLabel;
Label32: TLabel;
MYKZ: TEdit;
MYMF: TEdit;
PS: TEdit;
Qty: TEdit;
KgQty: TEdit;
Label4: TLabel;
Label5: TLabel;
MXHZPS: TEdit;
MXHZQty: TEdit;
MXHZKgQty: TEdit;
Label9: TLabel;
Label10: TLabel;
Label17: TLabel;
Label18: TLabel;
PSChaE: TEdit;
QtyChaE: TEdit;
KgQtyChaE: TEdit;
Panel7: TPanel;
Panel1: TPanel;
Label20: TLabel;
PTID: TEdit;
ODPat: TOpenDialog;
IdFTP1: TIdFTP;
SaveDialog1: TSaveDialog;
adoqueryPicture: TADOQuery;
Label2: TLabel;
MYCF: TEdit;
Label3: TLabel;
MYJWS: TEdit;
Label11: TLabel;
MYMD: TEdit;
Label23: TLabel;
MYPrice: TEdit;
Panel16: TPanel;
Label24: TLabel;
Panel6: TPanel;
Panel8: TPanel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column4: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1JH: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Button5: TButton;
cxGridPopupMenu2: TcxGridPopupMenu;
DataSource2: TDataSource;
KHNo: TEdit;
PopupMenu2: TPopupMenu;
MenuItem1: TMenuItem;
N3: TMenuItem;
MenuItem2: TMenuItem;
N4: TMenuItem;
ImageList1: TImageList;
ADOQueryCmd: TADOQuery;
ADOQueryTmp: TADOQuery;
cxGroupBox2: TcxGroupBox;
ListView1: TListView;
Label33: TLabel;
JCDanWei: TBtnEditA;
JCNo: TEdit;
Panel10: TPanel;
Button10: TButton;
Label41: TLabel;
Label42: TLabel;
KgQtyAvg: TEdit;
QtyAvg: TEdit;
Label39: TLabel;
RCGangNo1: TEdit;
Label40: TLabel;
JH: TEdit;
ADOQuery2: TADOQuery;
Panel12: TPanel;
Label8: TLabel;
Button2: TButton;
Panel13: TPanel;
Image2: TImage;
WJName: TEdit;
Button7: TButton;
WJPach: TEdit;
Button8: TButton;
Label44: TLabel;
Label45: TLabel;
Label49: TLabel;
Label50: TLabel;
Panel15: TPanel;
Label22: TLabel;
MYCode: TEdit;
MYName: TBtnEditA;
Panel2: TPanel;
Label1: TLabel;
Note: TEdit;
v1MXNote: TcxGridDBColumn;
Panel17: TPanel;
Label34: TLabel;
Label30: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
Label58: TLabel;
Edit1: TEdit;
Edit3: TEdit;
MYColor: TEdit;
Edit4: TEdit;
Edit5: TEdit;
MYColorNo: TEdit;
Edit7: TEdit;
Panel18: TPanel;
Button4: TButton;
Edit8: TEdit;
GYLXName: TEdit;
Button6: TButton;
Panel14: TPanel;
Label51: TLabel;
Label43: TLabel;
MYMDPrice: TEdit;
MDMFlag: TCheckBox;
MDKGFlag: TCheckBox;
HSFlag: TCheckBox;
BHSFlag: TCheckBox;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxMYColor: TcxGridDBColumn;
cxMYColorNo: TcxGridDBColumn;
cxGangQty: TcxGridDBColumn;
cxPS: TcxGridDBColumn;
cxKgQty: TcxGridDBColumn;
cxQty: TcxGridDBColumn;
cxNote: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Panel6DblClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure KHNameBtnClick(Sender: TObject);
procedure Image1DblClick(Sender: TObject);
procedure Panel1Click(Sender: TObject);
procedure Label20Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure MYNameBtnClick(Sender: TObject);
procedure Panel13Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Panel2Click(Sender: TObject);
procedure ListView1DblClick(Sender: TObject);
procedure JCDanWeiBtnClick(Sender: TObject);
procedure RCGangNo1Change(Sender: TObject);
procedure HSFlagClick(Sender: TObject);
procedure BHSFlagClick(Sender: TObject);
procedure PSChaEChange(Sender: TObject);
procedure QtyChaEChange(Sender: TObject);
procedure KgQtyChaEChange(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Panel18DblClick(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
lstPat:TStringList;
FangXiang1,FSaveFlag:String;
procedure InitData();
procedure SaveImage(maxnoWB:String);
procedure ReadINIFile10();
function SaveData():Boolean;
procedure InitColor();
procedure ShowImage();
procedure GetHZData();
function SaveDataMX():Boolean;
procedure InitMXData();
procedure Initimage();
{ Private declarations }
public
canshu1:String;
PState,CopyInt:Integer;
FMainId:String;
FRead:String;
FMYType,FMYTypeFlag,FML:string;
{ Public declarations }
end;
var
frmRCCKInPut: TfrmRCCKInPut;
implementation
uses
U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel, U_GYSList,U_SCPerson,U_QCRKJLList,U_RSColorBig,U_MLMangeRS_GYCX,
U_RTPTColor,U_KHListSelJJ,U_ZHCPBigTP,U_LLRKMXInPutMH,U_ZDYCPName,U_BPZdy_LRPB,U_MLMangeRS_CX;
{$R *.dfm}
procedure TfrmRCCKInPut.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>1',Tv1,'ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Close;
end;
procedure TfrmRCCKInPut.Initimage();
var
ListItem: TListItem;
Flag: Cardinal;
info: SHFILEINFOA;
Icon: TIcon;
begin
ListView1.Items.Clear;
with adoqueryTmp do
begin
close;
sql.Clear;
sql.Add('select fileName from TP_File ');
sql.Add('where WBID='''+trim(FMainId)+''' ');
sql.Add('and TFType=''<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>''');
//ShowMessage(sql.Text);
open;
if not IsEmpty then
begin
while not eof do
begin
with ListView1 do
begin
LargeImages := ImageList1;
Icon := TIcon.Create;
ListItem := Items.Add;
Listitem.Caption := trim(fieldbyname('fileName').AsString);
Flag := (SHGFI_LARGEICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES);
SHGetFileInfo(Pchar(trim(fieldbyname('fileName').AsString)), 0, info, Sizeof(info), Flag);
Icon.Handle := info.hIcon;
ImageList1.AddIcon(Icon);
ListItem.ImageIndex := ImageList1.Count - 1;
end;
next;
end;
end;
end;
end;
procedure TfrmRCCKInPut.InitData();
begin
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add(' select * ');
sql.Add(' from CK_MYSC_CR ');
sql.Add(' where MYID='''+Trim(FMainId)+'''');
Open;
end;
SCSHDataNew(ADOQuery1,Panel4,2);
SCSHDataNew(ADOQuery1,Panel4,0);
SCSHDataNew(ADOQuery1,Panel5,2);
SCSHDataNew(ADOQuery1,Panel5,0);
MDMFlag.Checked:=ADOQuery1.FieldByName('MDMflag').AsBoolean;
MDKGFlag.Checked:=ADOQuery1.FieldByName('MDKGFlag').AsBoolean;
HSFlag.Checked:=ADOQuery1.FieldByName('HSFlag').AsBoolean;
BHSFlag.Checked:=ADOQuery1.FieldByName('BHSFlag').AsBoolean;
KHName.TxtCode:=Trim(ADOQuery1.fieldbyname('KHCode').AsString);
labMYType.Caption:=Trim(ADOQuery1.fieldbyname('MYType').AsString);
MYName.text:=Trim(ADOQuery1.fieldbyname('MYName').AsString);
MYCode.text:=Trim(ADOQuery1.fieldbyname('MYCode').AsString);
MYMDPrice.text:=Trim(floattostr(ADOQuery1.fieldbyname('MYMDPrice').asfloat));
ShowImage();
if PState=0 then
begin
CRTime.Date:=SGetServerDate(ADOTemp);
labMYType.Caption:=FMYType;
end;
if TBSave.Visible=False then
begin
// Panel8.Visible:=False;
Panel2.Visible:=False;
initBtnColor(Panel4,clMenu);
initBtnColor(Panel5,clMenu);
end;
InitMXData();
GetHZData();
initImage();
end;
procedure TfrmRCCKInPut.InitMXData();
begin
with ADOQuery2 do
begin
Close;
sql.Clear;
sql.Add('select A.*,A.RCGangNo RCGangNo1');
sql.Add(',Laster=isnull(Editer,Filler) from CK_MYSC_CR_MX A where isnull(MYID,'''')='''+Trim(FMainId)+'''');
Open;
end;
SCreateCDS20(ADOQuery2,ClientDataSet1);
SInitCDSData20(ADOQuery2,ClientDataSet1);
end;
procedure TfrmRCCKInPut.FormShow(Sender: TObject);
begin
InitData();
end;
function TfrmRCCKInPut.SaveData():Boolean;
var
maxno,maxmxno,maxnoflag,fsj,FMXID:String;
begin
Result:=False;
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if Trim(FMainId)='' then
begin
if GetLSNo(ADOCmd,maxno,'LL','CK_MYSC_CR',3,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
Exit;
end;
maxno:=Trim(maxno);
end else
begin
maxno:=Trim(FMainId);
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from CK_MYSC_CR where MYId='''+Trim(FMainId)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId)='' then
begin
Append;
end
else begin
Edit;
end;
FieldByName('MYId').Value:=Trim(maxno);
FieldByName('CRType').Value:='<27><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>';
FieldByName('CRFlag').Value:='<27><><EFBFBD><EFBFBD>';
FieldByName('CRQtyFlag').Value:=-1;
if Trim(FMainId)='' then
begin
FieldByName('Filler').Value:=Trim(DName);
FieldByName('FillerCode').Value:=Trim(DCode);
end else
begin
FieldByName('Editer').Value:=Trim(DName);
FieldByName('EditerCode').Value:=Trim(DCode);
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
end;
RTSetsavedata(ADOCmd,'CK_MYSC_CR',Panel4,2);
RTSetsavedata(ADOCmd,'CK_MYSC_CR',Panel5,2);
FieldByName('MDMflag').Value:=MDMFlag.Checked;
FieldByName('MDKGflag').Value:=MDKGflag.Checked;
FieldByName('HSFlag').AsBoolean:=HSFlag.Checked;
FieldByName('BHSFlag').AsBoolean:=BHSFlag.Checked;
FieldByName('MYType').Value:=Trim(FMYType);
FieldByName('MYTypeFlag').Value:=Trim(FMYTypeFlag);
fieldbyname('KHCode').AsString:=Trim(KHName.TxtCode);
fieldbyname('MYName').AsString:=Trim(MYName.Text);
fieldbyname('MYCode').AsString:=Trim(MYCode.Text);
fieldbyname('MYMDPrice').Value:=StrToFloatdef(MYMDPrice.Text,0);
Post;
end;
FMainId:=Trim(maxno);
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('UPdate CK_MYSC_CR Set KHDayCS=isnull((select isnull(max(KHDayCS),0) from CK_MYSC_CR A ');
sql.Add(' where A.CRTime=CK_MYSC_CR.CRTime and A.MYType=CK_MYSC_CR.MYType and isnull(A.KHName,'''')=isnull(CK_MYSC_CR.KHName,'''')),0)+1');
SQL.Add('where MYID='''+Trim(FMainId)+''' and isnull(KHName,'''')<>'''' ');
sql.Add(' and isnull(KHDayCS,0)=0');
ExecSQL;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Update_LLRK_Qty :MYID');
Parameters.ParamByName('MYID').Value:=Trim(maxno);
ExecSQL;
end;
with ADOCmd do
begin
close;
sql.Clear;
SQL.Add('update BP_ZDY set BPPrice='''+trim(MYMDPrice.Text)+''' ');
if HSFlag.Checked=True then
sql.Add(',IFHS=''<27><>˰''')
else
sql.Add(',IFHS=''<27><><EFBFBD><EFBFBD>˰''');
sql.Add(' where BPCode='''+trim(MYCode.Text)+'''');
sql.Add(' and BPName='''+trim(MYName.Text)+'''');
ExecSQL;
end;
Button5.Click;
ADOCmd.Connection.CommitTrans;
FMainId:=Trim(maxno);
Result:=True;
except
Result:=False;
ClientDataSet1.EnableControls;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
end;
end;
procedure TfrmRCCKInPut.TBSaveClick(Sender: TObject);
var
FReal:Double;
FInt:Integer;
begin
ToolBar1.SetFocus;
if Trim(KHName.Text)='' then
begin
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if Trim(MYName.Text)='' then
begin
Application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if Trim(MYCode.Text)='' then
begin
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if (MDMFlag.Checked=False) and (MDKGFlag.Checked=False) then
begin
Application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD>Ƽ۷<C6BC>ʽ','<27><>ʾ',0);
Exit;
end;
if (HSFlag.Checked=False) and (BHSFlag.Checked=False) then
begin
Application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>˰<EFBFBD>򲻺<EFBFBD>˰','<27><>ʾ',0);
Exit;
end;
if Trim(PS.Text)='' then
begin
Application.MessageBox('ƥ<><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
if TryStrToInt(PS.Text,FInt)=False then
begin
Application.MessageBox('ƥ<><C6A5><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
exit;
end;
if (Trim(Qty.Text)='') and (Trim(KgQty.text)='') then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>͹<EFBFBD><CDB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬʱΪ<CAB1><CEAA>!','<27><>ʾ',0);
exit;
end;
if Trim(Qty.Text)<>'' then
begin
if TryStrToFloat(Qty.Text,FReal)=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
exit;
end;
end;
if Trim(KgQty.Text)<>'' then
begin
if TryStrToFloat(KgQty.Text,FReal)=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
exit;
end;
end;
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
ModalResult:=1;
end;
end;
procedure TfrmRCCKInPut.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;
procedure TfrmRCCKInPut.SaveImage(maxnoWB:string);
begin
end;
Procedure TfrmRCCKInPut.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ModalResult:=1;
end;
procedure TfrmRCCKInPut.InitColor();
var
fsj:string;
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from RT_PTColor where PTID='''+Trim(PTID.Text)+'''');
Open;
end;
fsj:=Trim(ADOTemp.fieldbyname('ColDaiMa').AsString);
if Trim(fsj)<>'' then
begin
Panel18.Color:=StrToInt('$'+Trim(fsj));
end;
end;
procedure TfrmRCCKInPut.ShowImage();
begin
end;
procedure TfrmRCCKInPut.Panel6DblClick(Sender: TObject);
begin
{try
frmRSColorBig:=TfrmRSColorBig.Create(Application);
with frmRSColorBig do
begin
frmRSColorBig.Label1.Caption:=Self.MYColorNo.Text+'#';
frmRSColorBig.Label2.Caption:=Self.MYColor.Text;
frmRSColorBig.Color:=Self.Panel6.Color;
if ShowModal=1 then
begin
end;
end;
finally
end; }
end;
procedure TfrmRCCKInPut.FormCreate(Sender: TObject);
begin
lstPat := TStringList.Create;
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>1',Tv1,'ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure TfrmRCCKInPut.KHNameBtnClick(Sender: TObject);
begin
try
frmGYSList:=TfrmGYSList.Create(Application);
with frmGYSList do
begin
KHType.Text:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
KHType.TxtCode:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
Self.KHName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHName').AsString);
Self.KHNo.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNo').AsString);
end;
end;
finally
frmGYSList.Free;
end;
end;
procedure TfrmRCCKInPut.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;
frmZHCPBigTP.FIMNO:='';
if ShowModal=1 then
begin
end;
end;
finally
frmZHCPBigTP.Free;
end;
end;
procedure TfrmRCCKInPut.Panel1Click(Sender: TObject);
begin
if Trim(FMainId)='' then
begin
Application.MessageBox('δ<><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>','',0);
Exit;
end;
try
frmLLRKMXInPutMH:=TfrmLLRKMXInPutMH.Create(Application);
with frmLLRKMXInPutMH do
begin
PState:=1;
frmLLRKMXInPutMH.FMainId:=Trim(Self.FMainId);
if Self.TBSave.Visible=False then
begin
frmLLRKMXInPutMH.TBSave.Visible:=False;
end;
if ShowModal=1 then
begin
InitData();
end;
end;
finally
frmLLRKMXInPutMH.Free;
end;
end;
procedure TfrmRCCKInPut.Label20Click(Sender: TObject);
begin
if Trim(FMainId)='' then
begin
Application.MessageBox('δ<><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>','',0);
Exit;
end;
try
frmLLRKMXInPutMH:=TfrmLLRKMXInPutMH.Create(Application);
with frmLLRKMXInPutMH do
begin
PState:=1;
frmLLRKMXInPutMH.FMainId:=Trim(Self.FMainId);
if Self.TBSave.Visible=False then
begin
frmLLRKMXInPutMH.TBSave.Visible:=False;
end;
if ShowModal=1 then
begin
InitData();
end;
end;
finally
frmLLRKMXInPutMH.Free;
end;
end;
procedure TfrmRCCKInPut.GetHZData();
var
FKG,FM,FPS:String;
begin
FKG:=Tv1.DataController.Summary.FooterSummaryTexts[0];
FM:=Tv1.DataController.Summary.FooterSummaryTexts[1];
FPS:=Tv1.DataController.Summary.FooterSummaryTexts[2];
MXHZPS.Text:=FPS;
MXHZKGQty.Text:=FKG;
MXHZQty.Text:=FM;
if (Trim(FPS)='') or (Trim(FPS)='0') then
begin
SClearData(Panel2,2);
SClearData(Panel2,99);
end else
begin
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('exec P_Avg_JS :KgQty,:MQty,:PS');
if Trim(FKG)<>'' then
begin
Parameters.ParamByName('KGQty').Value:=FKG;
end else
begin
Parameters.ParamByName('KGQty').Value:=Null;
end;
if Trim(FM)<>'' then
begin
Parameters.ParamByName('MQty').Value:=FM;
end else
begin
Parameters.ParamByName('MQty').Value:=Null;
end;
Parameters.ParamByName('PS').Value:=FPS;
Open;
end;
KgQtyAvg.Text:=ADOTemp.fieldbyname('KgQtyAvg').Value;
QtyAvg.Text:=ADOTemp.fieldbyname('QtyAvg').Value;
end;
PSChaE.Text:=FloatToStr(strtofloatdef(MXHZPS.Text,0)-strtofloatdef(PS.Text,0));
QtyChaE.Text:=FloatToStr(strtofloatdef(MXHZQty.Text,0)-strtofloatdef(Qty.Text,0));
KgQtyChaE.Text:=FloatToStr(strtofloatdef(MXHZKgQty.Text,0)-strtofloatdef(KGQty.Text,0));
end;
function TfrmRCCKInPut.SaveDataMX():Boolean;
var
maxmxno,maxnoflag,fsj,FMXID:String;
begin
Result:=False;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete from CK_MYSC_CR_MX where MYID='''+Trim(FMainId)+'''');
ExecSQL;
end;
try
ClientDataSet1.DisableControls;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if Trim(FMXID)='' then
begin
if GetLSNo(ADOCmd,maxmxno,'LM','CK_MYSC_CR_MX',4,1)=False then
begin
ClientDataSet1.EnableControls;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>','<27><>ʾ',0);
Exit;
end;
maxmxno:=maxmxno+'LML';
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from CK_MYSC_CR_MX where MXID='''+Trim(maxmxno)+'''');
Open;
end;
with ADOCmd do
begin
Append;
FieldByName('MYID').Value:=Trim(FMainId);
FieldByName('MXID').Value:=Trim(maxmxno);
FieldByName('RCGangNo').Value:=ClientDataSet1.fieldbyname('RCGangNo').Value;
FieldByName('MXPrice').Value:=ClientDataSet1.fieldbyname('MXPrice').Value;
FieldByName('MXMoney').Value:=ClientDataSet1.fieldbyname('MXMoney').Value;
FieldByName('KgQty').Value:=ClientDataSet1.fieldbyname('KgQty').Value;
FieldByName('MQty').Value:=ClientDataSet1.fieldbyname('MQty').Value;
FieldByName('JH').Value:=ClientDataSet1.fieldbyname('JH').Value;
FieldByName('Filler').Value:=Trim(DName);
FieldByName('FillerCode').Value:=Trim(DCode);
Post;
end;
if ClientDataSet1.fieldbyname('GangNo').AsString='' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Update_QCRK_GangNo :MYID');
Parameters.ParamByName('MYID').Value:=Trim(FMainId);
ExecSQL;
end;
end;
if ClientDataSet1.fieldbyname('JH').AsFloat=0 then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_MYSC_CR_MX Set JH=isnull((select isnull(max(JH),0) from CK_MYSC_CR_MX A ');
sql.Add(' where A.MYID='''+Trim(FMainId)+''' and isnull(A.RCGangNO,'''')=isnull(CK_MYSC_CR_MX.RCGangNO,'''')');
sql.Add(' and isnull(A.GangNO,'''')=isnull(CK_MYSC_CR_MX.GangNO,'''')),0)+1 ');
sql.Add(' where MXID='''+Trim(maxmxno)+'''');
ExecSQL;
end;
end;
Edit;
FieldByName('MYID').Value:=Trim(FMainId);
FieldByName('MXID').Value:=Trim(maxmxno);
Post;
end;
Next;
end;
end;
ClientDataSet1.EnableControls;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Update_LLRK_Qty :MYID');
Parameters.ParamByName('MYID').Value:=Trim(FMainId);
ExecSQL;
end;
//InitData();
Result:=True;
except
Result:=False;
ClientDataSet1.EnableControls;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
end;
end;
procedure TfrmRCCKInPut.Button5Click(Sender: TObject);
var
FReal:Double;
begin
if SaveDataMX() then
begin
GetHZData();
end;
end;
procedure TfrmRCCKInPut.N1Click(Sender: TObject);
begin
SelOKNo(ClientDataSet1,True);
end;
procedure TfrmRCCKInPut.N2Click(Sender: TObject);
begin
SelOKNo(ClientDataSet1,False);
end;
procedure TfrmRCCKInPut.MYNameBtnClick(Sender: TObject);
begin
frmBPZDY_LRPB:=TfrmBPZDY_LRPB.create(self);
with frmBPZDY_LRPB do
begin
flag:='PBName';
flagName:='<27><><EFBFBD><EFBFBD>';
ViewFlag:=true;
Panel4.Align:=alClient;
ToolBar3.Visible:=false;
Button1.Visible:=False;
if ShowModal=1 then
begin
MYName.text:=Trim(ClientDataSet1.fieldbyname('BPName').AsString);
MYCode.text:=Trim(ClientDataSet1.fieldbyname('BPCode').AsString);
MYCF.text:=Trim(ClientDataSet1.fieldbyname('BPCF').AsString);
MYMF.text:=Trim(ClientDataSet1.fieldbyname('BPMF').AsString);
MYKZ.text:=Trim(ClientDataSet1.fieldbyname('BPKZ').AsString);
MYJWS.text:=Trim(ClientDataSet1.fieldbyname('BPJS').AsString);
MYMD.text:=Trim(ClientDataSet1.fieldbyname('BPMiDu').AsString);
MYPrice.text:=Trim(ClientDataSet1.fieldbyname('BPPrice').AsString);
MYMDPrice.text:=Trim(ClientDataSet1.fieldbyname('BPPrice').AsString);
Note.text:=Trim(ClientDataSet1.fieldbyname('BPNote').AsString);
if ClientDataSet1.fieldbyname('IFHS').AsString='<27><>˰' then
begin
HSFlag.Checked:=True;
BHSFlag.Checked:=false;
end
else
begin
HSFlag.Checked:=false;
BHSFlag.Checked:=true;
end;
end;
free;
end;
end;
procedure TfrmRCCKInPut.Panel13Click(Sender: TObject);
begin
Panel12.Visible:=False;
end;
procedure TfrmRCCKInPut.Button2Click(Sender: TObject);
var
fFileName:string;
fFilePath:string;
maxNo:string;
begin
try
adoqueryCmd.Connection.BeginTrans;
begin
fFilePath:=WJPach.Text;
fFileName:=WJName.Text;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select TFId from TP_File ');
sql.Add('where WBID='''+trim(FMainid)+'''');
sql.Add('and TFType=''<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>''');
sql.Add('and FileName='+quotedstr(trim(fFileName)));
open;
end;
IF ADOQueryCmd.IsEmpty=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('<27>˸<EFBFBD><CBB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4>ڣ<EFBFBD><DAA3><EFBFBD><EFBFBD>޸<EFBFBD><DEB8>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
exit;
end;
Panel12.Visible:=False;
Panel2.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>Ե<EFBFBD>...';
Panel2.Visible:=true;
application.ProcessMessages;
if GetLSNo(ADOQueryCmd,maxNo,'MD','TP_File',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('delete from TP_File ');
sql.Add('where WBID='''+trim(FMainid)+'''');
sql.Add('and TFType=''<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>''');
sql.Add('and FileName='+quotedstr(trim(fFileName)));
execsql;
end;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from TP_File ');
sql.Add('where WBID='''+trim(FMainid)+'''');
sql.Add('and TFType=''<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>''');
sql.Add('and FileName='+quotedstr(trim(fFileName)));
open;
append;
fieldbyname('TFID').Value:=trim(maxNO);
fieldbyname('WBID').Value:=trim(FMainid);
fieldbyname('TFType').Value:='<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>';
fieldbyname('FileName').Value:=trim(fFileName);
post;
end;
if fFilePath <> '' then
begin
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();
IdFTP1.Put(fFilePath, 'FJ\' + Trim(fFileName));
IdFTP1.Quit;
except
IdFTP1.Quit;
Application.MessageBox('<27>ϴ<EFBFBD><CFB4>ļ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
end;
end;
IdFTP1.Quit;
Panel2.Visible:=false;
Initimage();
end;
adoqueryCmd.Connection.CommitTrans;
except
adoqueryCmd.Connection.RollbackTrans;
application.MessageBox('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
end;
end;
procedure TfrmRCCKInPut.Button8Click(Sender: TObject);
var
fFileName:String;
begin
fFileName:=WJName.Hint;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('UPdate TP_File Set FileName='''+Trim(WJName.Text)+'''');
sql.Add('where WBID='''+trim(FMainid)+'''');
sql.Add('and TFType=''<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>''');
sql.Add('and FileName='+quotedstr(trim(fFileName)));
execsql;
end;
Panel12.Visible:=False;
Initimage();
end;
procedure TfrmRCCKInPut.Button7Click(Sender: TObject);
var
fFileName:string;
fFilePath:string;
maxNo:string;
begin
try
adoqueryCmd.Connection.BeginTrans;
fFilePath:=WJPach.Text;
fFileName:=WJName.Hint;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select TFId from TP_File ');
sql.Add('where WBID='''+trim(FMainid)+'''');
sql.Add('and TFType=''<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>''');
sql.Add('and FileName='+quotedstr(trim(fFileName)));
open;
IF not adoqueryCmd.IsEmpty then
begin
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('<27>˸<EFBFBD><CBB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4>ڣ<EFBFBD><DAA3><EFBFBD><EFBFBD>޸<EFBFBD><DEB8>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
exit;
end;
end;
Panel12.Visible:=False;
Panel2.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>Ե<EFBFBD>...';
Panel2.Visible:=true;
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;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from TP_File ');
sql.Add('where WBID='''+trim(FMainid)+'''');
sql.Add('and TFType=''<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>''');
sql.Add('and FileName='+quotedstr(trim(fFileName)));
execsql;
end;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from TP_File ');
sql.Add('where WBID='''+trim(FMainid)+'''');
sql.Add('and TFType=''<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>''');
sql.Add('and FileName='+quotedstr(trim(fFileName)));
open;
append;
fieldbyname('TFID').Value:=trim(maxNO);
fieldbyname('WBID').Value:=trim(FMainid);
fieldbyname('TFType').Value:='<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>';
fieldbyname('FileName').Value:=trim(fFileName);
post;
end;
if fFilePath <> '' then
begin
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();
IdFTP1.Put(fFilePath, 'FJ\' + Trim(fFileName));
IdFTP1.Quit;
except
IdFTP1.Quit;
Application.MessageBox('<27>ϴ<EFBFBD><CFB4>ļ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
end;
end;
IdFTP1.Quit;
Panel2.Visible:=false;
Initimage();
adoqueryCmd.Connection.CommitTrans;
except
adoqueryCmd.Connection.RollbackTrans;
application.MessageBox('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
end;
end;
procedure TfrmRCCKInPut.Image2Click(Sender: TObject);
begin
Panel12.Visible:=false;
end;
procedure TfrmRCCKInPut.MenuItem1Click(Sender: TObject);
var
OpenDiaLog: TOpenDialog;
fFileName:string;
fFilePath:string;
begin
OpenDiaLog := TOpenDialog.Create(Self);
if OpenDiaLog.Execute then
begin
fFilePath:=OpenDiaLog.FileName;
fFileName:=ExtractFileName(OpenDiaLog.FileName);
Panel12.Visible:=True;
WJName.Text:=Trim(fFileName);
WJName.Hint:=Trim(fFileName);
WJPach.Text:=fFilePath;
Button8.Visible:=False;
Button2.Visible:=True;
Button7.Visible:=True;
Panel12.Refresh;
end;
end;
procedure TfrmRCCKInPut.N3Click(Sender: TObject);
var
fFileName:string;
begin
if listView1.SelCount<1 then exit;
try
fFileName:=ListView1.Selected.Caption;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from TP_File ');
sql.Add('where WBID='''+trim(FMainid)+'''');
sql.Add('and TFType=''<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>''');
sql.Add('and FileName='+quotedstr(trim(fFileName)));
execsql;
end;
Initimage();
except
end;
end;
procedure TfrmRCCKInPut.MenuItem2Click(Sender: TObject);
begin
if listView1.SelCount<1 then exit;
Panel12.Visible:=True;
Button2.Visible:=False;
Button7.Visible:=False;
Button8.Visible:=True;
Panel12.Refresh;
WJName.Text:=Trim(ListView1.Selected.Caption);
WJName.Hint:=Trim(ListView1.Selected.Caption);
end;
procedure TfrmRCCKInPut.N4Click(Sender: TObject);
var
SaveDialog: TSaveDialog;
fFileName:string;
fFilePath:string;
begin
if listView1.SelCount<1 then exit;
try
fFileName:=ListView1.Selected.Caption;
SaveDialog := TSaveDialog.Create(Self);
SaveDialog.FileName:=fFileName;
if SaveDialog.Execute then
begin
Panel2.Caption:='<27><><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>Ե<EFBFBD>...';
Panel2.Visible:=true;
application.ProcessMessages;
fFilePath:=SaveDialog.FileName;
try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','FTP<54><50>ַ','127.0.0.1');;
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
;
end;
if IdFTP1.Connected then
begin
Panel2.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>Ե<EFBFBD>...';
Panel2.Visible:=true;
application.ProcessMessages;
try
IdFTP1.Get('FJ\'+ Trim(fFileName), fFilePath,false, true);
except
Panel2.Visible:=false;
Application.MessageBox('<27>ͻ<EFBFBD>ͼ<EFBFBD><CDBC><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
end else
begin
Panel2.Visible:=false;
Application.MessageBox('<27>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
Panel2.Visible:=false;
if IdFTP1.Connected then IdFTP1.Quit;
end;
except
Panel2.Visible:=false;
end;
end;
procedure TfrmRCCKInPut.Panel2Click(Sender: TObject);
begin
Panel2.Visible:=false;
end;
procedure TfrmRCCKInPut.ListView1DblClick(Sender: TObject);
var
sFieldName:string;
fileName:string;
begin
if ListView1.Items.Count<1 THEN EXIT;
if listView1.SelCount<1 then exit;
sFieldName:=leftbstr(ExtractFilePath(Application.ExeName),1)+':\ͼƬ<CDBC>鿴';
if not DirectoryExists(pchar(sFieldName)) then
CreateDirectory(pchar(sFieldName),nil);
fileName:=ListView1.Selected.Caption;
sFieldName:=sFieldName+'\'+trim(fileName);
try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI','SERVER','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ','127.0.0.1');
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
;
end;
if IdFTP1.Connected then
begin
Panel2.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>Ե<EFBFBD>...';
Panel2.Visible:=true;
application.ProcessMessages;
try
IdFTP1.Get('FJ\'+ Trim(fileName), sFieldName,true, false);
except
Panel2.Visible:=false;
Application.MessageBox('<27>ͻ<EFBFBD>ͼ<EFBFBD><CDBC><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
end
else
begin
Panel2.Visible:=false;
Application.MessageBox('<27>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
Panel2.Visible:=false;
if IdFTP1.Connected then IdFTP1.Quit;
ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL);
end;
procedure TfrmRCCKInPut.JCDanWeiBtnClick(Sender: TObject);
begin
try
frmGYSList:=TfrmGYSList.Create(Application);
with frmGYSList do
begin
KHType.Text:='Ⱦ<><C8BE>';
KHType.TxtCode:='Ⱦ<><C8BE>';
if ShowModal=1 then
begin
Self.JCDanWei.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHName').AsString);
Self.JCNo.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNo').AsString);
end;
end;
finally
frmGYSList.Free;
end;
end;
procedure TfrmRCCKInPut.RCGangNo1Change(Sender: TObject);
begin
SDofilter(ADOQuery2,SGetFilters(Panel8,1,2));
SCreateCDS20(ADOQuery2,ClientDataSet1);
SInitCDSData20(ADOQuery2,ClientDataSet1);
end;
procedure TfrmRCCKInPut.HSFlagClick(Sender: TObject);
begin
if HSFlag.Checked=true then
begin
if BHSFlag.Checked=true then
BHSFlag.Checked:=false;
end
else
begin
if BHSFlag.Checked=false then
BHSFlag.Checked:=true;
end;
end;
procedure TfrmRCCKInPut.BHSFlagClick(Sender: TObject);
begin
if BHSFlag.Checked=true then
begin
if HSFlag.Checked=true then
HSFlag.Checked:=false;
end
else
begin
if HSFlag.Checked=false then
HSFlag.Checked:=true;
end;
end;
procedure TfrmRCCKInPut.PSChaEChange(Sender: TObject);
begin
if StrToFloatDef(PSChaE.Text,0)>0 then
begin
PSChaE.Font.Color:=clGreen;
end;
if StrToFloatDef(PSChaE.Text,0)<0 then
begin
PSChaE.Font.Color:=clRed;
end;
end;
procedure TfrmRCCKInPut.QtyChaEChange(Sender: TObject);
begin
if StrToFloatDef(QtyChaE.Text,0)>0 then
begin
QtyChaE.Font.Color:=clGreen;
end;
if StrToFloatDef(QtyChaE.Text,0)<0 then
begin
QtyChaE.Font.Color:=clRed;
end;
end;
procedure TfrmRCCKInPut.KgQtyChaEChange(Sender: TObject);
begin
if StrToFloatDef(KgQtyChaE.Text,0)>0 then
begin
KgQtyChaE.Font.Color:=clGreen;
end;
if StrToFloatDef(KgQtyChaE.Text,0)<0 then
begin
KgQtyChaE.Font.Color:=clRed;
end;
end;
procedure TfrmRCCKInPut.Button4Click(Sender: TObject);
var FDate:TDateTime;
SXMaxno:string;
begin
frmMLMangeRS_CX:=TfrmMLMangeRS_CX.create(self);
with frmMLMangeRS_CX do
begin
if showmodal=1 then
begin
Self.MYCode.Text:=Trim(CDS_Main.fieldbyname('MLNo').AsString);
Self.MYCode.Hint:=Trim(CDS_Main.fieldbyname('MLNo').AsString);
Self.MYName.Text:=Trim(CDS_Main.fieldbyname('MLName').AsString);
Self.MYMF.Text:=Trim(CDS_Main.fieldbyname('MLMF').AsString);
Self.MYKZ.Text:=Trim(CDS_Main.fieldbyname('MLKZ').AsString);
Self.MYColor.Text:=Trim(CDS_Main.fieldbyname('ColNamekh').AsString);
Self.MYColorNo.Text:=Trim(CDS_Main.fieldbyname('ColNo').AsString);
Self.PTID.Text:=Trim(CDS_Main.fieldbyname('PTID').AsString);
Self.GYLXName.Text:=Trim(CDS_Main.fieldbyname('GYLXName').AsString);
FDate:=SGetServerDate(ADOTemp);
InitColor();
end;
free;
end;
end;
procedure TfrmRCCKInPut.Panel18DblClick(Sender: TObject);
begin
try
frmRSColorBig:=TfrmRSColorBig.Create(Application);
with frmRSColorBig do
begin
frmRSColorBig.Label1.Caption:=Self.MYColorNo.Text+'#';
frmRSColorBig.Label2.Caption:=Self.MYColor.Text;
frmRSColorBig.Color:=Self.Panel6.Color;
if ShowModal=1 then
begin
end;
end;
finally
end;
end;
procedure TfrmRCCKInPut.Button6Click(Sender: TObject);
var FDate:TDateTime;
SXMaxno:string;
begin
frmMLMangeRS_GYCX:=TfrmMLMangeRS_GYCX.create(self);
with frmMLMangeRS_GYCX do
begin
MLNo.Text:=Trim(MYCode.Text);
if showmodal=1 then
begin
Self.MYCode.Text:=Trim(CDS_Main.fieldbyname('MLNo').AsString);
Self.MYCode.Hint:=Trim(CDS_Main.fieldbyname('MLNo').AsString);
Self.MYName.Text:=Trim(CDS_Main.fieldbyname('MLName').AsString);
Self.MYMF.Text:=Trim(CDS_Main.fieldbyname('MLMF').AsString);
Self.MYKZ.Text:=Trim(CDS_Main.fieldbyname('MLKZ').AsString);
Self.GYLXName.Text:=Trim(CDS_Main.fieldbyname('GYLXName').AsString);
end;
free;
end;
end;
end.
Reference in New Issue Copy Permalink