806 lines
21 KiB
ObjectPascal
806 lines
21 KiB
ObjectPascal
|
unit U_CPAddPN;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
|||
|
|
cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, cxGridCustomTableView,
|
|||
|
|
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
|||
|
|
cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit,
|
|||
|
|
cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, cxDropDownEdit,
|
|||
|
|
cxContainer, cxMaskEdit, cxImage, cxDBEdit, StrUtils, IdBaseComponent,
|
|||
|
|
IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI,
|
|||
|
|
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
|
|||
|
|
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
|
|||
|
|
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
|||
|
|
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
|
|||
|
|
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
|
|||
|
|
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
|||
|
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
|||
|
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
|||
|
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
|||
|
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
|||
|
|
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
|||
|
|
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
|||
|
|
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
|||
|
|
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
|||
|
|
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmCPAddPN = class(TForm)
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
ToolButton1: TToolButton;
|
|||
|
|
TBClose: TToolButton;
|
|||
|
|
CDS_Sub: TClientDataSet;
|
|||
|
|
ADOQueryMain: TADOQuery;
|
|||
|
|
DataSource2: TDataSource;
|
|||
|
|
ADOQueryCmd: TADOQuery;
|
|||
|
|
ADOQueryTemp: TADOQuery;
|
|||
|
|
ScrollBox1: TScrollBox;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
CYNo: TEdit;
|
|||
|
|
Label5: TLabel;
|
|||
|
|
CYName: TEdit;
|
|||
|
|
Label11: TLabel;
|
|||
|
|
CYCF: TEdit;
|
|||
|
|
Label15: TLabel;
|
|||
|
|
CYMF: TEdit;
|
|||
|
|
Label22: TLabel;
|
|||
|
|
CYKZ: TEdit;
|
|||
|
|
Label23: TLabel;
|
|||
|
|
CARTYPE: TEdit;
|
|||
|
|
Label10: TLabel;
|
|||
|
|
CYPrice: TEdit;
|
|||
|
|
CYID: TEdit;
|
|||
|
|
Label3: TLabel;
|
|||
|
|
CYSpec: TMemo;
|
|||
|
|
lbl3: TLabel;
|
|||
|
|
BaoHuDate: TDateTimePicker;
|
|||
|
|
Label12: TLabel;
|
|||
|
|
ClientDataSet3: TClientDataSet;
|
|||
|
|
Label2: TLabel;
|
|||
|
|
CYXIANC50: TEdit;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
CYXIANCZ: TEdit;
|
|||
|
|
Label14: TLabel;
|
|||
|
|
CYANLUNX: TEdit;
|
|||
|
|
Label16: TLabel;
|
|||
|
|
CYZZQTY: TEdit;
|
|||
|
|
Label6: TLabel;
|
|||
|
|
CYGC: TcxButtonEdit;
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
DataSource3: TDataSource;
|
|||
|
|
ClientDataSet6: TClientDataSet;
|
|||
|
|
ADOQuery1: TADOQuery;
|
|||
|
|
ADOQuery2: TADOQuery;
|
|||
|
|
Label7: TLabel;
|
|||
|
|
CYPAIZHEN: TEdit;
|
|||
|
|
Label8: TLabel;
|
|||
|
|
CYPUNIT: TComboBox;
|
|||
|
|
Label9: TLabel;
|
|||
|
|
CYFUNIT: TComboBox;
|
|||
|
|
Label13: TLabel;
|
|||
|
|
CYbili: TEdit;
|
|||
|
|
Label17: TLabel;
|
|||
|
|
CYCONNO: TEdit;
|
|||
|
|
Label18: TLabel;
|
|||
|
|
Label19: TLabel;
|
|||
|
|
CYNOTE: TMemo;
|
|||
|
|
Label20: TLabel;
|
|||
|
|
CYNOTE2: TMemo;
|
|||
|
|
cyzhenshu: TEdit;
|
|||
|
|
Label21: TLabel;
|
|||
|
|
CYCOLOR: TEdit;
|
|||
|
|
Panel2: TPanel;
|
|||
|
|
Panel3: TPanel;
|
|||
|
|
Panel4: TPanel;
|
|||
|
|
cxGrid3: TcxGrid;
|
|||
|
|
Tv3: TcxGridDBTableView;
|
|||
|
|
v3Column37: TcxGridDBColumn;
|
|||
|
|
v3Column1: TcxGridDBColumn;
|
|||
|
|
v3Column2: TcxGridDBColumn;
|
|||
|
|
v3Column3: TcxGridDBColumn;
|
|||
|
|
v3Column4: TcxGridDBColumn;
|
|||
|
|
v3Column5: TcxGridDBColumn;
|
|||
|
|
v3Column6: TcxGridDBColumn;
|
|||
|
|
v3Column7: TcxGridDBColumn;
|
|||
|
|
v3Column8: TcxGridDBColumn;
|
|||
|
|
v3Column9: TcxGridDBColumn;
|
|||
|
|
v3Column10: TcxGridDBColumn;
|
|||
|
|
v3Column11: TcxGridDBColumn;
|
|||
|
|
v3Column12: TcxGridDBColumn;
|
|||
|
|
cxGridLevel2: TcxGridLevel;
|
|||
|
|
Panel5: TPanel;
|
|||
|
|
cxGrid5: TcxGrid;
|
|||
|
|
TV5: TcxGridDBTableView;
|
|||
|
|
cxGridDBColumn32: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn34: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn35: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn36: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn37: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn38: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn39: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn40: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn43: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn44: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn45: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn46: TcxGridDBColumn;
|
|||
|
|
cxGridDBColumn47: TcxGridDBColumn;
|
|||
|
|
cxGridLevel6: TcxGridLevel;
|
|||
|
|
Label24: TLabel;
|
|||
|
|
Label25: TLabel;
|
|||
|
|
CYRSGY: TEdit;
|
|||
|
|
CYDXGY: TEdit;
|
|||
|
|
ToolBar3: TToolBar;
|
|||
|
|
ToolButton3: TToolButton;
|
|||
|
|
ToolButton4: TToolButton;
|
|||
|
|
ToolBar2: TToolBar;
|
|||
|
|
ToolButton2: TToolButton;
|
|||
|
|
ADOQueryImage: TADOQuery;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
Picture4: TcxDBImage;
|
|||
|
|
IdFTP1: TIdFTP;
|
|||
|
|
Tv3Column1: TcxGridDBColumn;
|
|||
|
|
Tv3Column2: TcxGridDBColumn;
|
|||
|
|
Tv3Column3: TcxGridDBColumn;
|
|||
|
|
Tv3Column4: TcxGridDBColumn;
|
|||
|
|
Tv3Column5: TcxGridDBColumn;
|
|||
|
|
Tv3Column6: TcxGridDBColumn;
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure TBCloseClick(Sender: TObject);
|
|||
|
|
procedure ToolButton1Click(Sender: TObject);
|
|||
|
|
procedure CYColorKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
procedure CYKZExit(Sender: TObject);
|
|||
|
|
procedure CYMFExit(Sender: TObject);
|
|||
|
|
procedure CYGCPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
|||
|
|
procedure ToolButton3Click(Sender: TObject);
|
|||
|
|
procedure ToolButton4Click(Sender: TObject);
|
|||
|
|
procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
procedure TV5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
procedure CYFUNITChange(Sender: TObject);
|
|||
|
|
procedure ToolButton2Click(Sender: TObject);
|
|||
|
|
procedure Picture4DblClick(Sender: TObject);
|
|||
|
|
private
|
|||
|
|
canshu1: string;
|
|||
|
|
Fint: Integer;
|
|||
|
|
procedure InitSubGrid();
|
|||
|
|
procedure InitImage();
|
|||
|
|
procedure LookImage(FileName: string);
|
|||
|
|
function SaveData(): Boolean;
|
|||
|
|
function Setstring(cString: string): string;
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
FCYID, FCYCode, FCPID, FCPNO, FCPName: string;
|
|||
|
|
CopyInt: Integer;
|
|||
|
|
fFlileFlag: string;
|
|||
|
|
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmCPAddPN: TfrmCPAddPN;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
U_DataLink, U_Fun, U_iniParam, U_ZDYHelp, U_ZdyAttachGYS, U_FileUp, getpic;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.InitSubGrid();
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
try
|
|||
|
|
ADOQueryMain.DisableControls;
|
|||
|
|
with ADOQueryMain do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
SQL.Add('select * from CP_YDang where CYID=''' + Trim(FCYID) + '''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOQueryMain.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
BaoHuDate.DateTime := SGetServerDateTime(ADOQueryTemp);
|
|||
|
|
BaoHuDate.Checked := False;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
if Trim(ADOQueryMain.FieldByName('BaoHuDate').AsString) = '' then
|
|||
|
|
begin
|
|||
|
|
BaoHuDate.DateTime := SGetServerDateTime(ADOQueryTemp);
|
|||
|
|
BaoHuDate.Checked := False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
SCSHDataNew(ADOQueryMain, ScrollBox1, 2);
|
|||
|
|
SCSHDataNew(ADOQueryMain, ScrollBox1, 0);
|
|||
|
|
|
|||
|
|
with ADOQUERY1 do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(FCYId) + '''');
|
|||
|
|
sql.Add(' and PZType=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQUERY1, ClientDataSet3);
|
|||
|
|
SInitCDSData20(ADOQUERY1, ClientDataSet3);
|
|||
|
|
with ADOQUERY1 do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(FCYId) + '''');
|
|||
|
|
sql.Add(' and PZType=''˫<><CBAB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQUERY1, ClientDataSet6);
|
|||
|
|
SInitCDSData20(ADOQUERY1, ClientDataSet6);
|
|||
|
|
finally
|
|||
|
|
ADOQueryMain.EnableControls;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
if CopyInt = 1 then
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
ClientDataSet3.DisableControls;
|
|||
|
|
with ClientDataSet3 do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('MainId').Value := '';
|
|||
|
|
// FieldByName('SubId').Value := '';
|
|||
|
|
FieldByName('PZId').Value := '';
|
|||
|
|
Post;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
ClientDataSet3.EnableControls;
|
|||
|
|
ClientDataSet6.DisableControls;
|
|||
|
|
with ClientDataSet6 do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('MainId').Value := '';
|
|||
|
|
// FieldByName('SubId').Value := '';
|
|||
|
|
FieldByName('PZId').Value := '';
|
|||
|
|
Post;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
ClientDataSet6.EnableControls;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.FormShow(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
maxId: string;
|
|||
|
|
begin
|
|||
|
|
if (Trim(FCYID) = '') or (CopyInt = 1) then
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOQueryCmd, maxId, 'Y', 'CP_YDang', 4, 1) = False then
|
|||
|
|
begin
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
CYID.Text := trim(maxId);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
maxId := Trim(FCYID);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
InitSubGrid();
|
|||
|
|
InitImage();
|
|||
|
|
if CopyInt = 1 then
|
|||
|
|
begin
|
|||
|
|
FCYID := '';
|
|||
|
|
CYID.text := trim(maxId);
|
|||
|
|
BaoHuDate.DateTime := SGetServerDateTime(ADOQueryTemp);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.TBCloseClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TfrmCPAddPN.SaveData(): Boolean;
|
|||
|
|
var
|
|||
|
|
maxId, FCYNo, maxpz1, maxpz2: string;
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
ADOQueryCmd.Connection.BeginTrans;
|
|||
|
|
// if Trim(FCYID) = '' then
|
|||
|
|
// begin
|
|||
|
|
// if GetLSNo(ADOQueryCmd, maxId, 'Y', 'CP_YDang', 4, 1) = False then
|
|||
|
|
// begin
|
|||
|
|
// Result := False;
|
|||
|
|
// ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
// Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
// Exit;
|
|||
|
|
// end;
|
|||
|
|
// CYID.Text := trim(maxId);
|
|||
|
|
// end
|
|||
|
|
// else
|
|||
|
|
// begin
|
|||
|
|
// maxId := Trim(FCYID);
|
|||
|
|
// end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select * from CP_YDang where CYID=''' + Trim(FCYID) + '''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
if Trim(FCYID) = '' then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('CYType').Value := Trim(FCPID);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
end;
|
|||
|
|
FieldByName('CYID').Value := Trim(cyid.text);
|
|||
|
|
if trim(CYNo.Text) = '' then
|
|||
|
|
CYNo.Text := Trim(cyid.text);
|
|||
|
|
SSetsaveSqlNew(ADOQueryCmd, 'CP_YDang', ScrollBox1, 2);
|
|||
|
|
if Trim(FCYID) = '' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('Filler').Value := Trim(DName);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
FieldByName('Editer').Value := Trim(DName);
|
|||
|
|
FieldByName('EditTime').Value := SGetServerDateTime(ADOQUERYTEMP);
|
|||
|
|
end;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
ClientDataSet3.DisableControls;
|
|||
|
|
with ClientDataSet3 do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
if Trim(ClientDataSet3.fieldbyname('PZId').AsString) = '' then
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOQueryCmd, maxpz1, 'PZ', 'Cloth_PaiZhen', 4, 1) = False then
|
|||
|
|
begin
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
maxpz1 := Trim(ClientDataSet3.fieldbyname('PZId').AsString);
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select * from Cloth_PaiZhen where ');
|
|||
|
|
sql.Add(' PZId=''' + Trim(maxpz1) + '''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
if Trim(ClientDataSet3.fieldbyname('PZId').AsString) = '' then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('Filler').Value := Trim(DName);
|
|||
|
|
FieldByName('FillTime').Value := SGetServerDateTime(adoquerytemp);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('Editer').Value := Trim(DName);
|
|||
|
|
FieldByName('EditTime').Value := SGetServerDateTime(adoquerytemp);
|
|||
|
|
end;
|
|||
|
|
FieldByName('MainId').Value := Trim(cyid.text);
|
|||
|
|
// FieldByName('SubId').Value := Trim(maxsubno);
|
|||
|
|
FieldByName('PZId').Value := Trim(maxpz1);
|
|||
|
|
RTSetSaveDataCDS(ADOQueryCmd, Tv3, ClientDataSet3, 'Cloth_PaiZhen', 0);
|
|||
|
|
FieldByName('PZType').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
FieldByName('PZName').Value := ClientDataSet3.fieldbyname('PZName').AsString;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
ClientDataSet3.Edit;
|
|||
|
|
ClientDataSet3.FieldByName('PZId').Value := Trim(maxpz1);
|
|||
|
|
//Order_Sub.Post;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
ClientDataSet3.EnableControls;
|
|||
|
|
|
|||
|
|
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>DZ<EFBFBD>
|
|||
|
|
ClientDataSet6.DisableControls;
|
|||
|
|
with ClientDataSet6 do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
if Trim(ClientDataSet6.fieldbyname('PZId').AsString) = '' then
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(adoquerycmd, maxpz2, 'PZ', 'Cloth_PaiZhen', 4, 1) = False then
|
|||
|
|
begin
|
|||
|
|
adoquerycmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
maxpz2 := Trim(ClientDataSet6.fieldbyname('PZId').AsString);
|
|||
|
|
end;
|
|||
|
|
with adoquerycmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select * from Cloth_PaiZhen where ');
|
|||
|
|
sql.Add(' PZId=''' + Trim(maxpz2) + '''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with adoquerycmd do
|
|||
|
|
begin
|
|||
|
|
if Trim(ClientDataSet6.fieldbyname('PZId').AsString) = '' then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('Filler').Value := Trim(DName);
|
|||
|
|
FieldByName('FillTime').Value := SGetServerDateTime(ADOQUERYTEMP);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('Editer').Value := Trim(DName);
|
|||
|
|
FieldByName('EditTime').Value := SGetServerDateTime(ADOQUERYTEMP);
|
|||
|
|
end;
|
|||
|
|
// FieldByName('MainId').Value := Trim(maxId);
|
|||
|
|
FieldByName('MainId').Value := Trim(cyid.text);
|
|||
|
|
// FieldByName('SubId').Value := Trim(maxsubno);
|
|||
|
|
FieldByName('PZId').Value := Trim(maxpz2);
|
|||
|
|
RTSetSaveDataCDS(adoquerycmd, Tv5, ClientDataSet6, 'Cloth_PaiZhen', 0);
|
|||
|
|
FieldByName('PZType').Value := '˫<><CBAB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
ClientDataSet6.Edit;
|
|||
|
|
ClientDataSet6.FieldByName('PZId').Value := Trim(maxpz2);
|
|||
|
|
//Order_Sub.Post;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
ClientDataSet6.EnableControls;
|
|||
|
|
with ADOQueryTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select count(*) as AA from CP_YDang where CYNo=''' + Trim(CYNo.Text) + '''');
|
|||
|
|
Open;
|
|||
|
|
if FieldByName('AA').AsInteger > 1 then
|
|||
|
|
begin
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Result := False;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
ADOQueryCmd.Connection.CommitTrans;
|
|||
|
|
FCYID := maxId;
|
|||
|
|
Result := True;
|
|||
|
|
except
|
|||
|
|
Result := False;
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.ToolButton1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
if CYID.Text = '' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD>벻<EFBFBD><EBB2BB>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
if CYName.Text = '' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if SaveData() then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
ModalResult := 1;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.CYColorKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
var
|
|||
|
|
c: Integer;
|
|||
|
|
begin
|
|||
|
|
if Key = '.' then
|
|||
|
|
begin
|
|||
|
|
for c := 1 to length(TEdit(Sender).text) do
|
|||
|
|
begin
|
|||
|
|
if Tedit(Sender).text[c] = '.' then
|
|||
|
|
Key := #0;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else if Key = #13 then
|
|||
|
|
PerForm(WM_NEXTDLGCTL, 0, 0)
|
|||
|
|
else if Key = #8 then
|
|||
|
|
Key := #8
|
|||
|
|
else if (Key < '0') or (Key > '9') then
|
|||
|
|
Key := #0;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.CYKZExit(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
// if pos('GSM', trim(CYKZ.Text)) = 0 then
|
|||
|
|
// CYKZ.Text := trim(CYKZ.Text) + 'GSM';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.CYMFExit(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if pos('CM', trim(CYMF.Text)) = 0 then
|
|||
|
|
CYMF.Text := trim(CYMF.Text) + 'CM';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.CYGCPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
|
|||
|
|
with frmZdyAttachGYS do
|
|||
|
|
begin
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
begin
|
|||
|
|
CYGC.Text := Trim(CDS_HZ.fieldbyname('coName').AsString);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmZdyAttachGYS.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.ToolButton3Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
OpenDiaLog: TOpenDialog;
|
|||
|
|
fFileName: string;
|
|||
|
|
fFilePath: string;
|
|||
|
|
maxNo: string;
|
|||
|
|
FJStream: TMemoryStream;
|
|||
|
|
mfileSize: integer;
|
|||
|
|
mCreationTime: TdateTime;
|
|||
|
|
mWriteTime: TdateTime;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
if Fint = 1 then
|
|||
|
|
begin
|
|||
|
|
with ClientDataSet3 do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else if Fint = 2 then
|
|||
|
|
with ClientDataSet6 do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.ToolButton4Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Fint = 1 then
|
|||
|
|
begin
|
|||
|
|
if ClientDataSet3.IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
|||
|
|
Exit;
|
|||
|
|
with ADOQUERYCMD do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete Cloth_PaiZhen where PZID=''' + Trim(ClientDataSet3.fieldbyname('PZID').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
ClientDataSet3.Delete;
|
|||
|
|
end
|
|||
|
|
else if Fint = 2 then
|
|||
|
|
begin
|
|||
|
|
if ClientDataSet6.IsEmpty then
|
|||
|
|
Exit;
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE>˫<EFBFBD><CBAB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
|||
|
|
Exit;
|
|||
|
|
with ADOQUERYCMD do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete Cloth_PaiZhen where PZID=''' + Trim(ClientDataSet6.fieldbyname('PZID').AsString) + '''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
ClientDataSet6.Delete;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.Tv3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
begin
|
|||
|
|
Fint := 1;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.TV5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|||
|
|
begin
|
|||
|
|
Fint := 2;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TfrmCPAddPN.Setstring(cString: string): string; {<7B><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>}
|
|||
|
|
var
|
|||
|
|
i: integer;
|
|||
|
|
str: string;
|
|||
|
|
begin
|
|||
|
|
str := '';
|
|||
|
|
for i := 1 to length(cString) do
|
|||
|
|
begin
|
|||
|
|
if Pos(cString[i], '0123456789.') <= 0 then
|
|||
|
|
break
|
|||
|
|
else
|
|||
|
|
case cString[i] of
|
|||
|
|
'.':
|
|||
|
|
str := str + '.';
|
|||
|
|
|
|||
|
|
'0':
|
|||
|
|
str := str + '0';
|
|||
|
|
'1':
|
|||
|
|
str := str + '1';
|
|||
|
|
'2':
|
|||
|
|
str := str + '2';
|
|||
|
|
'3':
|
|||
|
|
str := str + '3';
|
|||
|
|
'4':
|
|||
|
|
str := str + '4';
|
|||
|
|
'5':
|
|||
|
|
str := str + '5';
|
|||
|
|
'6':
|
|||
|
|
str := str + '6';
|
|||
|
|
'7':
|
|||
|
|
str := str + '7';
|
|||
|
|
'8':
|
|||
|
|
str := str + '8';
|
|||
|
|
'9':
|
|||
|
|
str := str + '9';
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Setstring := str;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.CYFUNITChange(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FKZ, FMF: string;
|
|||
|
|
begin
|
|||
|
|
// if Pos('GSM', CYKZ.Text) > 0 then
|
|||
|
|
// begin
|
|||
|
|
FKZ := Setstring(CYKZ.Text);
|
|||
|
|
FMF := Setstring(CYmf.Text);
|
|||
|
|
// showmessage(FKZ);
|
|||
|
|
// end;
|
|||
|
|
if (cyfunit.Text = 'M') and (StrToFloatdef(trim(FKZ), 0) <> 0) and (StrToFloatdef(trim(FMF), 0) <> 0) then
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
cybili.text := (format('%.2f', [1000 / strtofloat(FMF) / strtofloat(FKZ) * 100]));
|
|||
|
|
end;
|
|||
|
|
if (cyfunit.Text = 'Y') and (StrToFloatdef(trim(FKZ), 0) <> 0) and (StrToFloatdef(trim(FMF), 0) <> 0) then
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
cybili.text := (format('%.2f', [1000 / strtofloat(FMF) / strtofloat(FKZ) * 100 / 0.9144]));
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.ToolButton2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Trim(cyid.Text) = '' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD>벻<EFBFBD><EBB2BB>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
FormGetPic := TFormGetPic.create(self);
|
|||
|
|
with FormGetPic do
|
|||
|
|
begin
|
|||
|
|
fFlileFlag := self.fFlileFlag;
|
|||
|
|
fkeyNo := trim(cyid.Text);
|
|||
|
|
pat1 := 'FileName';
|
|||
|
|
pic1 := 'FilesOther';
|
|||
|
|
FTFType := 'YPP';
|
|||
|
|
if showmodal = 1 then
|
|||
|
|
begin
|
|||
|
|
end;
|
|||
|
|
free;
|
|||
|
|
end;
|
|||
|
|
Initimage();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.InitImage();
|
|||
|
|
begin
|
|||
|
|
with ADOQueryImage do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from TP_File A');
|
|||
|
|
sql.Add('where WBID=' + quotedstr(Trim(cyid.Text)));
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.Picture4DblClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if TcxDBImage(Sender).Picture.Height = 0 then
|
|||
|
|
exit;
|
|||
|
|
|
|||
|
|
LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmCPAddPN.LookImage(FileName: string);
|
|||
|
|
var
|
|||
|
|
sFieldName: string;
|
|||
|
|
// ff: TADOBlobStream;
|
|||
|
|
// FJStream : TMemoryStream;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ<CDBC>鿴';
|
|||
|
|
|
|||
|
|
if not DirectoryExists(pchar(sFieldName)) then
|
|||
|
|
CreateDirectory(pchar(sFieldName), nil);
|
|||
|
|
|
|||
|
|
sFieldName := sFieldName + '\' + trim(FileName);
|
|||
|
|
|
|||
|
|
try
|
|||
|
|
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ', '127.0.0.1');
|
|||
|
|
IdFTP1.Username := 'three';
|
|||
|
|
IdFTP1.Password := '641010';
|
|||
|
|
IdFTP1.Connect();
|
|||
|
|
except
|
|||
|
|
;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
if IdFTP1.Connected then
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
// 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(fFlileFlag + '\' + 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;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|