1756 lines
48 KiB
ObjectPascal
1756 lines
48 KiB
ObjectPascal
unit U_SketchManage;
|
||
|
||
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, cxDropDownEdit,
|
||
StrUtils, cxPC, ShellAPI, cxCalendar, Math, Menus, cxLookAndFeelPainters,
|
||
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxButtons,
|
||
cxImage, cxDBEdit, cxCheckBox, cxGridBandedTableView, cxGridDBBandedTableView,
|
||
cxLookAndFeels, dxBarBuiltInMenu, cxNavigator;
|
||
|
||
type
|
||
TfrmSketchManage = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBSave: TToolButton;
|
||
TBClose: TToolButton;
|
||
ADOQueryTemp: TADOQuery;
|
||
Panel2: TPanel;
|
||
DS_XM: TDataSource;
|
||
CDS_XM: TClientDataSet;
|
||
ADOQueryCmd: TADOQuery;
|
||
cxPageControl1: TcxPageControl;
|
||
cxTabSheet1: TcxTabSheet;
|
||
CDS_GC: TClientDataSet;
|
||
DS_GC: TDataSource;
|
||
CDS_SQ: TClientDataSet;
|
||
DS_zbgs: TDataSource;
|
||
CDS_ZBGS: TClientDataSet;
|
||
DS_SQ: TDataSource;
|
||
IdFTP1: TIdFTP;
|
||
ADOQueryImage: TADOQuery;
|
||
DSImage: TDataSource;
|
||
Label44: TLabel;
|
||
Panel5: TPanel;
|
||
ADOQuery1: TADOQuery;
|
||
ScrollBox2: TScrollBox;
|
||
Label7: TLabel;
|
||
Label15: TLabel;
|
||
Label16: TLabel;
|
||
Label17: TLabel;
|
||
Label18: TLabel;
|
||
Label19: TLabel;
|
||
Label22: TLabel;
|
||
Label23: TLabel;
|
||
Label39: TLabel;
|
||
Label40: TLabel;
|
||
F_MSMGF: TEdit;
|
||
F_MGF: TEdit;
|
||
F_MSXPKPF: TEdit;
|
||
F_MGQTF: TEdit;
|
||
F_ZFY: TEdit;
|
||
F_XPKPF: TEdit;
|
||
F_MSDPKPF: TEdit;
|
||
F_DPKPF: TEdit;
|
||
YF_MGF: TCheckBox;
|
||
YF_XPKPF: TCheckBox;
|
||
YF_DWZPF: TCheckBox;
|
||
YF_DYQTF: TCheckBox;
|
||
YF_DYF: TCheckBox;
|
||
YF_MGQTF: TCheckBox;
|
||
YF_DPKPF: TCheckBox;
|
||
F_MGHJ: TEdit;
|
||
Panel3: TPanel;
|
||
Panel1: TPanel;
|
||
Label4: TLabel;
|
||
Label14: TLabel;
|
||
Label21: TLabel;
|
||
Label24: TLabel;
|
||
Label25: TLabel;
|
||
Label26: TLabel;
|
||
Label28: TLabel;
|
||
Label30: TLabel;
|
||
Label41: TLabel;
|
||
Label45: TLabel;
|
||
G_FACTORYNAME: TcxButtonEdit;
|
||
G_FACTORYHX: TEdit;
|
||
G_ZBDATE: TDateTimePicker;
|
||
G_ZBFACTORYNAME: TcxButtonEdit;
|
||
G_NOTE: TMemo;
|
||
G_ZBFACTORYCODE: TEdit;
|
||
G_PYW: TComboBox;
|
||
G_SGYDJ: TComboBox;
|
||
G_YMG: TCheckBox;
|
||
G_yyp: TCheckBox;
|
||
G_NG: TCheckBox;
|
||
FileName: TcxButton;
|
||
G_FACTORYCODE: TEdit;
|
||
cxButton1: TcxButton;
|
||
IMG_SLT: TEdit;
|
||
IMG_SJT: TEdit;
|
||
cxButton3: TcxButton;
|
||
Panel4: TPanel;
|
||
cxGrid2: TcxGrid;
|
||
TV3: TcxGridDBTableView;
|
||
V2Column3: TcxGridDBColumn;
|
||
V2Column2: TcxGridDBColumn;
|
||
V2Column1: TcxGridDBColumn;
|
||
V2Column4: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
ToolBar2: TToolBar;
|
||
ToolButton1: TToolButton;
|
||
ToolButton2: TToolButton;
|
||
ScrollBox1: TScrollBox;
|
||
Label1: TLabel;
|
||
Label11: TLabel;
|
||
Label5: TLabel;
|
||
Label43: TLabel;
|
||
lbl1: TLabel;
|
||
Label3: TLabel;
|
||
Label6: TLabel;
|
||
Label8: TLabel;
|
||
Label9: TLabel;
|
||
Label10: TLabel;
|
||
Label12: TLabel;
|
||
Label13: TLabel;
|
||
Label20: TLabel;
|
||
M_HXCODE: TEdit;
|
||
M_COLOR: TEdit;
|
||
YWY: TcxButtonEdit;
|
||
M_ORDERNEWS: TEdit;
|
||
M_KHNAME: TcxButtonEdit;
|
||
M_DBSPEC: TcxButtonEdit;
|
||
M_TYPE: TComboBox;
|
||
M_COLORNO: TEdit;
|
||
M_HXTYPE: TComboBox;
|
||
M_KHHX: TEdit;
|
||
M_GONGYI: TComboBox;
|
||
M_NOTE: TMemo;
|
||
ORDERNO: TcxButtonEdit;
|
||
frommainid: TEdit;
|
||
FROMSUBID: TEdit;
|
||
Panel6: TPanel;
|
||
ToolBar3: TToolBar;
|
||
ToolButton5: TToolButton;
|
||
ToolButton6: TToolButton;
|
||
cxGrid1: TcxGrid;
|
||
TV4: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
cxGridDBColumn4: TcxGridDBColumn;
|
||
cxGridDBColumn5: TcxGridDBColumn;
|
||
cxGridDBColumn6: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
cxGrid4: TcxGrid;
|
||
TV1: TcxGridDBBandedTableView;
|
||
cxGridDBBandedColumn1: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn2: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn3: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn4: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn5: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn6: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn7: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn8: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn9: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn10: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn11: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn12: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn13: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn14: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn15: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn16: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn33: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn34: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn35: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn36: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn37: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn38: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn39: TcxGridDBBandedColumn;
|
||
cxGridLevel4: TcxGridLevel;
|
||
cxGrid3: TcxGrid;
|
||
TV2: TcxGridDBBandedTableView;
|
||
cxGridDBBandedColumn40: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn41: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn42: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn43: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn44: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn45: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn46: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn47: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn48: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn49: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn50: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn51: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn52: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn53: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn54: TcxGridDBBandedColumn;
|
||
cxGridDBBandedColumn55: TcxGridDBBandedColumn;
|
||
cxGridLevel3: TcxGridLevel;
|
||
Label42: TLabel;
|
||
G_ZBFACTORYZBCODE: TEdit;
|
||
V3Column1: TcxGridDBColumn;
|
||
ScrollBox3: TScrollBox;
|
||
Label2: TLabel;
|
||
F_YSTS: TEdit;
|
||
Label29: TLabel;
|
||
Label31: TLabel;
|
||
Label32: TLabel;
|
||
Label33: TLabel;
|
||
F_SOMTZBF: TEdit;
|
||
F_SOMSPSF: TEdit;
|
||
F_MSDPZWF: TEdit;
|
||
F_DYQTFY: TEdit;
|
||
Label27: TLabel;
|
||
F_PSS: TEdit;
|
||
Label34: TLabel;
|
||
Label35: TLabel;
|
||
Label36: TLabel;
|
||
Label37: TLabel;
|
||
F_SOZBF: TEdit;
|
||
F_PSF: TEdit;
|
||
F_DPZWF: TEdit;
|
||
F_DYF: TEdit;
|
||
Label38: TLabel;
|
||
F_NOTE: TMemo;
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBSaveClick(Sender: TObject);
|
||
procedure C_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure tbADDClick(Sender: TObject);
|
||
procedure tbDELClick(Sender: TObject);
|
||
procedure Tv6DblClick(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 C_CodeKeyPress(Sender: TObject; var Key: Char);
|
||
procedure B_YWYBMKeyPress(Sender: TObject; var Key: Char);
|
||
procedure B_FactoryNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure B_NOTEDblClick(Sender: TObject);
|
||
procedure Picture4DblClick(Sender: TObject);
|
||
procedure FileNameClick(Sender: TObject);
|
||
procedure B_KHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure ORDERNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure M_DBSPECPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure G_FACTORYNAMEPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
procedure ToolButton5Click(Sender: TObject);
|
||
procedure G_ZBFACTORYNAMEPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure cxButton1Click(Sender: TObject);
|
||
procedure cxButton3Click(Sender: TObject);
|
||
procedure TV4FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||
procedure cxGridDBColumn1PropertiesChange(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure cxGridDBColumn6PropertiesChange(Sender: TObject);
|
||
procedure G_PYWChange(Sender: TObject);
|
||
procedure G_YMGClick(Sender: TObject);
|
||
procedure F_YSTSExit(Sender: TObject);
|
||
procedure cxTabSheet1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
procedure V2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
private
|
||
FXS, Fint: Integer;
|
||
procedure InitData();
|
||
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
|
||
function SaveData(): Boolean;
|
||
procedure InitImage();
|
||
procedure HQGC();
|
||
procedure HQZBGS();
|
||
// procedure HQXPS();
|
||
// procedure JSFY();
|
||
// procedure JSFY2();
|
||
|
||
procedure JSFYAll();
|
||
procedure LookImage(FileName: string);
|
||
{ Private declarations }
|
||
public
|
||
PState, CopyInt: Integer;
|
||
FMainId, FConNo, PType, FSubId: string;
|
||
FDDID: string;
|
||
ftype: string;
|
||
fFlileFlag: string;
|
||
canshu1: string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmSketchManage: TfrmSketchManage;
|
||
newh: hwnd;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_ZDYHelp, U_RTFun, U_ZdyAttachGYS, U_CompressionFun, U_FjList_RZ,
|
||
U_ZdyAttachment, U_ZDYHelpSel, getpic, getpic2, U_ProductOrderListSel,
|
||
U_CPManageSel;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmSketchManage.JSFYAll();
|
||
var
|
||
F_YSTS1, F_MSMGF1, F_MSXPKPF1, F_MSDPKPF1, F_MGQTF1: Double;
|
||
F_MGF1, F_XPKPF1, F_DPKPF1: Double;
|
||
F_PSS1, F_SOMTZBF1, F_DYQTFY1, F_MSDPZWF1, F_SOMSPSF1: Double;
|
||
F_SOZBF1, F_PSF1: Double;
|
||
J, K, L: Integer;
|
||
begin
|
||
J := 0;
|
||
K := 0;
|
||
L := 0;
|
||
if not CDS_XM.IsEmpty then
|
||
begin
|
||
with CDS_XM do
|
||
begin
|
||
CDS_XM.DisableControls;
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if CDS_XM.fieldbyname('XMNAME').asstring = 'СƬ' then
|
||
begin
|
||
J := J + 1;
|
||
end;
|
||
if (CDS_XM.fieldbyname('XMNAME').asstring = 'СƬ') and (CDS_XM.fieldbyname('XMKP').AsBoolean = True) then
|
||
begin
|
||
K := K + 1;
|
||
end;
|
||
|
||
if (CDS_XM.fieldbyname('XMNAME').asstring = '<27><>Ƭ') and (CDS_XM.fieldbyname('XMKP').AsBoolean = True) then
|
||
begin
|
||
L := L + 1;
|
||
end;
|
||
Next;
|
||
end;
|
||
CDS_XM.EnableControls;
|
||
end;
|
||
end;
|
||
|
||
F_PSS1 := StrToFloatDef(F_PSS.Text, 0); //<2F><>ɫ<EFBFBD><C9AB>
|
||
F_SOMTZBF1 := StrToFloatDef(F_SOMTZBF.Text, 0); //S/Oÿ<4F><C3BF><EFBFBD>ư<EFBFBD><C6B0><EFBFBD>
|
||
F_SOMSPSF1 := StrToFloatDef(F_SOMSPSF.Text, 0); //ÿɫ<C3BF><C9AB>ɫ<EFBFBD><C9AB>
|
||
F_DYQTFY1 := StrToFloatDef(F_DYQTFY.Text, 0); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
F_MSDPZWF1 := StrToFloatDef(F_MSDPZWF.Text, 0); //ÿɫ<C3BF><C9AB>Ƭ<EFBFBD><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
|
||
F_SOZBF1 := StrToFloatDef(F_SOZBF.Text, 0); //S/O<>ư<EFBFBD><C6B0><EFBFBD>
|
||
F_PSF1 := StrToFloatDef(F_PSF.Text, 0); //<2F><>ɫ<EFBFBD><C9AB>
|
||
|
||
F_YSTS1 := StrToFloatDef(F_YSTS.Text, 0); //<2F><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>
|
||
F_MSMGF1 := StrToFloatDef(F_MSMGF.Text, 0); //ÿɫ<C3BF><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
F_MSXPKPF1 := StrToFloatDef(F_MSXPKPF.Text, 0); //ÿɫСƬ<D0A1><C6AC><EFBFBD>̷<EFBFBD>
|
||
F_MSDPKPF1 := StrToFloatDef(F_MSDPKPF.Text, 0); //ÿɫ<C3BF><C9AB>Ƭ<EFBFBD><C6AC><EFBFBD>̷<EFBFBD>
|
||
F_MGQTF1 := StrToFloatDef(F_MGQTF.Text, 0); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
|
||
F_MGF1 := StrToFloatDef(F_MGF.Text, 0); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
|
||
//S/O<>ư<EFBFBD><C6B0><EFBFBD>=S/Oÿ<4F><C3BF><EFBFBD>ư<EFBFBD><C6B0><EFBFBD> * <20><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>
|
||
F_SOZBF.TEXT := FloatToStr(ROUNDFLOAT((F_YSTS1 * F_SOMTZBF1), 2)); //S/O<>ư<EFBFBD><C6B0><EFBFBD>
|
||
//<2F><>ɫ<EFBFBD><C9AB>=<3D><>ɫ<EFBFBD><C9AB> * ÿɫ<C3BF><C9AB>ɫ<EFBFBD><C9AB>
|
||
F_PSF.TEXT := FloatToStr(ROUNDFLOAT((F_PSS1 * F_SOMSPSF1), 2)); //<2F><>ɫ<EFBFBD><C9AB>
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=(S/O<>ư<EFBFBD><C6B0><EFBFBD> + <20><>ɫ<EFBFBD><C9AB> + <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> )*K(СƬ<D0A1><C6AC>)
|
||
F_DYF.TEXT := FloatToStr(ROUNDFLOAT((J * (StrToFloatDef(F_SOZBF.text, 0) + StrToFloatDef(F_PSF.text, 0) + strtofloatdef(F_DYQTFY.text, 0))), 2)); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=ÿɫ<C3BF><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD> * <20><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>˵<EFBFBD><CBB5> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD>
|
||
if G_YMG.Checked = False then
|
||
begin
|
||
F_MGF.TEXT := FloatToStr(ROUNDFLOAT((F_YSTS1 * F_MSMGF1), 2)); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
end
|
||
else
|
||
begin
|
||
F_MGF.TEXT := '0';
|
||
end;
|
||
//<2F><><EFBFBD><EFBFBD>Ƭ<EFBFBD><C6AC><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><CDB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֽƬ<D6BD><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƭ<EFBFBD><C6AC><EFBFBD>ö<EFBFBD><C3B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
if G_yyp.Checked = False then
|
||
begin
|
||
//СƬ<D0A1><C6AC><EFBFBD>̷<EFBFBD>=ÿɫСƬ<D0A1><C6AC><EFBFBD>̷<EFBFBD> * <20><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>
|
||
F_XPKPF.TEXT := FloatToStr(ROUNDFLOAT((K * F_YSTS1 * F_MSXPKPF1), 2)); //СƬ<D0A1><C6AC><EFBFBD>̷<EFBFBD>
|
||
//<2F><>Ƭ<EFBFBD><C6AC><EFBFBD>̷<EFBFBD>=ÿɫ<C3BF><C9AB>Ƭ<EFBFBD><C6AC><EFBFBD>̷<EFBFBD> * <20><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>
|
||
F_DPKPF.TEXT := FloatToStr(ROUNDFLOAT((L * F_YSTS1 * F_MSDPKPF1), 2)); //<2F><>Ƭ<EFBFBD><C6AC><EFBFBD>̷<EFBFBD>
|
||
//<2F><>Ƭ<EFBFBD><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=ÿɫ<C3BF><C9AB>Ƭ<EFBFBD><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> * <20><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>
|
||
F_DPZWF.text := FloatToStr(ROUNDFLOAT((F_MSDPZWF1 * StrToFloatDef(F_YSTS.text, 0)), 2)); //<2F><>Ƭ<EFBFBD><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
|
||
end
|
||
else
|
||
begin
|
||
F_XPKPF.TEXT := '0';
|
||
F_DPKPF.TEXT := '0';
|
||
F_DPZWF.text := '0';
|
||
|
||
end;
|
||
|
||
F_XPKPF1 := StrToFloatDef(F_XPKPF.Text, 0); //СƬ<D0A1><C6AC><EFBFBD>̷<EFBFBD>
|
||
F_DPKPF1 := StrToFloatDef(F_DPKPF.Text, 0); //<2F><>Ƭ<EFBFBD><C6AC><EFBFBD>̷<EFBFBD>
|
||
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>=<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> + СƬ<D0A1><C6AC><EFBFBD>̷<EFBFBD> + <20><>Ƭ<EFBFBD><C6AC><EFBFBD>̷<EFBFBD> + <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
F_MGHJ.Text := FloatToStr(ROUNDFLOAT((StrToFloatDef(F_MGF.Text, 0) + StrToFloatDef(F_DPKPF.Text, 0) + StrToFloatDef(F_XPKPF.Text, 0) + StrToFloatDef(F_MGQTF.Text, 0)), 2)); //<2F><><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>
|
||
|
||
//<2F>ܷ<EFBFBD><DCB7><EFBFBD> = <20><><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD> + <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> + <20><>Ƭ<EFBFBD><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
F_ZFY.Text := FloatToStr(ROUNDFLOAT((StrToFloatDef(F_DPZWF.text, 0) + StrToFloatDef(F_DYF.text, 0) + StrToFloatDef(F_MGHJ.text, 0)), 2)); //<2F>ܷ<EFBFBD><DCB7><EFBFBD>
|
||
end;
|
||
|
||
//procedure TfrmSketchManage.JSFY();
|
||
//var
|
||
// F_YSTS1, F_MSMGF1, F_MSXPKPF1, F_MSDPKPF1, F_MGQTF1: Double;
|
||
// F_MGF1, F_XPKPF1, F_DPKPF1: Double;
|
||
//begin
|
||
//
|
||
// F_YSTS1 := StrToFloatDef(F_YSTS.Text, 0); //<2F><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>
|
||
// F_MSMGF1 := StrToFloatDef(F_MSMGF.Text, 0); //ÿɫ<C3BF><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
// F_MSXPKPF1 := StrToFloatDef(F_MSXPKPF.Text, 0); //ÿɫСƬ<D0A1><C6AC><EFBFBD>̷<EFBFBD>
|
||
// F_MSDPKPF1 := StrToFloatDef(F_MSDPKPF.Text, 0); //ÿɫ<C3BF><C9AB>Ƭ<EFBFBD><C6AC><EFBFBD>̷<EFBFBD>
|
||
// F_MGQTF1 := StrToFloatDef(F_MGQTF.Text, 0); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
//
|
||
// F_MGF1 := StrToFloatDef(F_MGF.Text, 0); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
//
|
||
// //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=ÿɫ<C3BF><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD> * <20><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>
|
||
// //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>˵<EFBFBD><CBB5> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD>
|
||
// if G_YMG.Checked = False then
|
||
// begin
|
||
// F_MGF.TEXT := FloatToStr(ROUNDFLOAT((F_YSTS1 * F_MSMGF1), 2)); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
// end;
|
||
// //<2F><><EFBFBD><EFBFBD>Ƭ<EFBFBD><C6AC><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><CDB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֽƬ<D6BD><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƭ<EFBFBD><C6AC><EFBFBD>ö<EFBFBD><C3B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
// if G_yyp.Checked = False then
|
||
// begin
|
||
// //СƬ<D0A1><C6AC><EFBFBD>̷<EFBFBD>=ÿɫСƬ<D0A1><C6AC><EFBFBD>̷<EFBFBD> * <20><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>
|
||
// F_XPKPF.TEXT := FloatToStr(ROUNDFLOAT((k * F_YSTS1 * F_MSXPKPF1), 2)); //СƬ<D0A1><C6AC><EFBFBD>̷<EFBFBD>
|
||
// //<2F><>Ƭ<EFBFBD><C6AC><EFBFBD>̷<EFBFBD>=ÿɫ<C3BF><C9AB>Ƭ<EFBFBD><C6AC><EFBFBD>̷<EFBFBD> * <20><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>
|
||
// F_DPKPF.TEXT := FloatToStr(ROUNDFLOAT((l * F_YSTS1 * F_MSDPKPF1), 2)); //<2F><>Ƭ<EFBFBD><C6AC><EFBFBD>̷<EFBFBD>
|
||
// end;
|
||
//
|
||
// F_XPKPF1 := StrToFloatDef(F_XPKPF.Text, 0); //СƬ<D0A1><C6AC><EFBFBD>̷<EFBFBD>
|
||
// F_DPKPF1 := StrToFloatDef(F_DPKPF.Text, 0); //<2F><>Ƭ<EFBFBD><C6AC><EFBFBD>̷<EFBFBD>
|
||
//
|
||
// //<2F><><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>=<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> + СƬ<D0A1><C6AC><EFBFBD>̷<EFBFBD> + <20><>Ƭ<EFBFBD><C6AC><EFBFBD>̷<EFBFBD> + <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
// F_MGHJ.Text := FloatToStr(ROUNDFLOAT((StrToFloatDef(F_MGF.Text, 0) + StrToFloatDef(F_DPKPF.Text, 0) + StrToFloatDef(F_XPKPF.Text, 0) + StrToFloatDef(F_MGQTF.Text, 0)), 2)); //<2F><><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>
|
||
//
|
||
// //<2F>ܷ<EFBFBD><DCB7><EFBFBD> = <20><><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD> + <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> + <20><>Ƭ<EFBFBD><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
// F_ZFY.Text := FloatToStr(ROUNDFLOAT((strtofloatDEF(F_DPZWF.text, 0) + strtofloatDEF(F_DYF.text, 0) + strtofloatDEF(F_MGHJ.text, 0)), 2)); //<2F>ܷ<EFBFBD><DCB7><EFBFBD>
|
||
//
|
||
//
|
||
//end;
|
||
|
||
//procedure TfrmSketchManage.HQXPS();
|
||
//begin
|
||
// J := 0;
|
||
// K := 0;
|
||
// L := 0;
|
||
// with CDS_XM do
|
||
// begin
|
||
// First;
|
||
// while not Eof do
|
||
// begin
|
||
// if CDS_XM.fieldbyname('XMNAME').asstring = 'СƬ' then
|
||
// begin
|
||
// J := J + 1;
|
||
// end;
|
||
// if (CDS_XM.fieldbyname('XMNAME').asstring = 'СƬ') and (CDS_XM.fieldbyname('XMKP').AsBoolean = True) then
|
||
// begin
|
||
// K := K + 1;
|
||
// end;
|
||
//
|
||
// if (CDS_XM.fieldbyname('XMNAME').asstring = '<27><>Ƭ') and (CDS_XM.fieldbyname('XMKP').AsBoolean = True) then
|
||
// begin
|
||
// L := L + 1;
|
||
// end;
|
||
//
|
||
// Next;
|
||
// end;
|
||
// end;
|
||
//// ShowMessage(IntToStr(J));
|
||
//end;
|
||
|
||
//procedure TfrmSketchManage.JSFY2();
|
||
//var
|
||
// F_PSS1, F_SOMTZBF1, F_DYQTFY1, F_MSDPZWF1, F_SOMSPSF1: Double;
|
||
// F_SOZBF1, F_PSF1: Double;
|
||
//begin
|
||
// F_PSS1 := StrToFloatDef(F_PSS.Text, 0); //<2F><>ɫ<EFBFBD><C9AB>
|
||
// F_SOMTZBF1 := StrToFloatDef(F_SOMTZBF.Text, 0); //S/Oÿ<4F><C3BF><EFBFBD>ư<EFBFBD><C6B0><EFBFBD>
|
||
// F_SOMSPSF1 := StrToFloatDef(F_SOMSPSF.Text, 0); //ÿɫ<C3BF><C9AB>ɫ<EFBFBD><C9AB>
|
||
// F_DYQTFY1 := StrToFloatDef(F_DYQTFY.Text, 0); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
// F_MSDPZWF1 := StrToFloatDef(F_MSDPZWF.Text, 0); //ÿɫ<C3BF><C9AB>Ƭ<EFBFBD><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
//
|
||
// F_SOZBF1 := StrToFloatDef(F_SOZBF.Text, 0); //S/O<>ư<EFBFBD><C6B0><EFBFBD>
|
||
// F_PSF1 := StrToFloatDef(F_PSF.Text, 0); //<2F><>ɫ<EFBFBD><C9AB>
|
||
//
|
||
// //S/O<>ư<EFBFBD><C6B0><EFBFBD>=S/Oÿ<4F><C3BF><EFBFBD>ư<EFBFBD><C6B0><EFBFBD> * <20><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>
|
||
// F_SOZBF.TEXT := FloatToStr(ROUNDFLOAT((F_PSS1 * F_SOMTZBF1), 2)); //S/O<>ư<EFBFBD><C6B0><EFBFBD>
|
||
// //<2F><>ɫ<EFBFBD><C9AB>=<3D><>ɫ<EFBFBD><C9AB> * ÿɫ<C3BF><C9AB>ɫ<EFBFBD><C9AB>
|
||
// F_PSF.TEXT := FloatToStr(ROUNDFLOAT((F_PSS1 * F_SOMSPSF1), 2)); //<2F><>ɫ<EFBFBD><C9AB>
|
||
// //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=S/O<>ư<EFBFBD><C6B0><EFBFBD> + <20><>ɫ<EFBFBD><C9AB> + <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
// F_DYF.TEXT := FloatToStr(ROUNDFLOAT((J * (StrToFloatDef(F_SOZBF.text, 0) + StrToFloatDef(F_PSF.text, 0) + strtofloatdef(F_DYQTFY.text, 0))), 2)); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
// //<2F><>Ƭ<EFBFBD><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=ÿɫ<C3BF><C9AB>Ƭ<EFBFBD><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> * <20><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>
|
||
// F_DPZWF.text := FloatToStr(ROUNDFLOAT((F_MSDPZWF1 * StrToFloatDef(F_YSTS.text, 0)), 2)); //<2F><>Ƭ<EFBFBD><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
//
|
||
// //<2F>ܷ<EFBFBD><DCB7><EFBFBD> = <20><><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD> + <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> + <20><>Ƭ<EFBFBD><C6AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
// F_ZFY.Text := FloatToStr(ROUNDFLOAT((StrToFloatDef(F_DPZWF.text, 0) + StrToFloatDef(F_DYF.text, 0) + StrToFloatDef(F_MGHJ.text, 0)), 2)); //<2F>ܷ<EFBFBD><DCB7><EFBFBD>
|
||
//end;
|
||
|
||
procedure TfrmSketchManage.HQGC();
|
||
begin
|
||
if CDS_GC.IsEmpty then
|
||
Exit;
|
||
if CDS_GC.fieldbyname('F_XYZPF').AsString <> '' then
|
||
begin
|
||
F_SOMTZBF.Text := CDS_GC.fieldbyname('F_XYZPF').AsString;
|
||
end;
|
||
|
||
if CDS_GC.fieldbyname('F_XYPSF').AsString <> '' then
|
||
begin
|
||
F_SOMSPSF.Text := CDS_GC.fieldbyname('F_XYPSF').AsString;
|
||
end;
|
||
|
||
// F_SOMSPSF.Text := ADOQueryTemp.fieldbyname('F_DPYW').Value;
|
||
// (F_SOMTZBF.Text, 0);
|
||
end;
|
||
|
||
procedure TfrmSketchManage.HQZBGS();
|
||
begin
|
||
if CDS_ZBGS.IsEmpty then
|
||
Exit;
|
||
if G_NG.Checked = True then
|
||
begin
|
||
if CDS_ZBGS.fieldbyname('F_MSMGFFJ').AsString <> '' then
|
||
begin
|
||
F_MSMGF.Text := CDS_ZBGS.fieldbyname('F_MSMGFFJ').AsString;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
if CDS_ZBGS.fieldbyname('F_MSMGFJ').AsString <> '' then
|
||
begin
|
||
F_MSMGF.Text := CDS_ZBGS.fieldbyname('F_MSMGFJ').Value;
|
||
end;
|
||
|
||
end;
|
||
|
||
if G_PYW.Text = 'Բ<><D4B2>' then
|
||
begin
|
||
if CDS_ZBGS.fieldbyname('F_XXGYW').AsString <> '' then
|
||
begin
|
||
F_MSXPKPF.Text := CDS_ZBGS.fieldbyname('F_XXGYW').Value;
|
||
end;
|
||
if CDS_ZBGS.fieldbyname('F_DXGYW').AsString <> '' then
|
||
begin
|
||
F_MSDPKPF.Text := CDS_ZBGS.fieldbyname('F_DXGYW').Value;
|
||
end;
|
||
if CDS_GC.fieldbyname('F_DPYW').AsString <> '' then
|
||
begin
|
||
F_MSDPZWF.Text := CDS_GC.fieldbyname('F_DPYW').Value;
|
||
end;
|
||
|
||
end
|
||
else
|
||
begin
|
||
if CDS_ZBGS.fieldbyname('F_XXGPW').AsString <> '' then
|
||
begin
|
||
F_MSXPKPF.Text := CDS_ZBGS.fieldbyname('F_XXGPW').Value;
|
||
end;
|
||
if CDS_ZBGS.fieldbyname('F_DXGPW').AsString <> '' then
|
||
begin
|
||
F_MSDPKPF.Text := CDS_ZBGS.fieldbyname('F_DXGPW').Value;
|
||
end;
|
||
if CDS_GC.fieldbyname('F_DPPW').AsString <> '' then
|
||
begin
|
||
F_MSDPZWF.Text := CDS_GC.fieldbyname('F_DPPW').Value;
|
||
end;
|
||
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmSketchManage.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
|
||
end;
|
||
|
||
procedure TfrmSketchManage.InitData();
|
||
var
|
||
PBNO, PBFlag, maxconno: string;
|
||
begin
|
||
if ftype = '<27>鿴' then
|
||
begin
|
||
tbsave.visible := false;
|
||
end;
|
||
|
||
/////////////////ˢ<>²<EFBFBD>Ʒ<EFBFBD><C6B7>Ϣ/////////////////////////
|
||
|
||
G_ZBDATE.Date := Now;
|
||
G_ZBDATE.Checked := False;
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' select A.* from Sketch_main A ');
|
||
if PState = 1 then
|
||
begin
|
||
sql.Add(' where A.mgId=' + Quotedstr(Trim(FMainId)));
|
||
end;
|
||
if PState = 0 then
|
||
begin
|
||
sql.Add(' where 1<>1 ');
|
||
end;
|
||
// ShowMessage(sql.Text);
|
||
Open;
|
||
end;
|
||
SCSHData(ADOQueryTemp, ScrollBox1, 0);
|
||
if CopyInt <> 99 then
|
||
begin
|
||
SCSHData(ADOQueryTemp, PANEL1, 1);
|
||
SCSHData(ADOQueryTemp, ScrollBox1, 2);
|
||
SCSHData(ADOQueryTemp, ScrollBox2, 3);
|
||
SCSHData(ADOQueryTemp, ScrollBox3, 3);
|
||
if ADOQueryTemp.fieldbyname('G_ymg').value = '1' then
|
||
begin
|
||
G_ymg.Checked := True;
|
||
end;
|
||
if ADOQueryTemp.fieldbyname('G_yyp').value = '1' then
|
||
begin
|
||
G_yyp.Checked := True;
|
||
end;
|
||
if ADOQueryTemp.fieldbyname('G_ng').value = '1' then
|
||
begin
|
||
G_ng.Checked := True;
|
||
end;
|
||
|
||
if ADOQueryTemp.fieldbyname('YF_MGQTF').value = '1' then
|
||
begin
|
||
YF_MGQTF.Checked := True;
|
||
end;
|
||
if ADOQueryTemp.fieldbyname('YF_DYF').value = '1' then
|
||
begin
|
||
YF_DYF.Checked := True;
|
||
end;
|
||
if ADOQueryTemp.fieldbyname('YF_DYQTF').value = '1' then
|
||
begin
|
||
YF_DYQTF.Checked := True;
|
||
end;
|
||
if ADOQueryTemp.fieldbyname('YF_DWZPF').value = '1' then
|
||
begin
|
||
YF_DWZPF.Checked := True;
|
||
end;
|
||
|
||
if ADOQueryTemp.fieldbyname('YF_MGF').value = '1' then
|
||
begin
|
||
YF_MGF.Checked := True;
|
||
end;
|
||
if ADOQueryTemp.fieldbyname('YF_XPKPF').value = '1' then
|
||
begin
|
||
YF_XPKPF.Checked := True;
|
||
end;
|
||
if ADOQueryTemp.fieldbyname('YF_DPKPF').value = '1' then
|
||
begin
|
||
YF_DPKPF.Checked := True;
|
||
end;
|
||
end;
|
||
// if G_ZBFACTORYCODE.Text <> '' then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('SELECT A.*,B.CONAME FROM Company_MGFY A INNER JOIN Company B ON A.FromCoID=B.CoID WHERE COCODE=' + QUOTEDSTR(G_ZBFACTORYCODE.Text));
|
||
// ShowMessage(SQL.Text);
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_ZBGS);
|
||
SInitCDSData(ADOQueryTemp, CDS_ZBGS);
|
||
end;
|
||
|
||
// if G_FACTORYCODE.Text <> '' then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('SELECT A.*,B.CONAME FROM Company_GCFY A INNER JOIN Company B ON A.FromCoID=B.CoID WHERE COCODE=' + QUOTEDSTR(G_FACTORYCODE.Text));
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_GC);
|
||
SInitCDSData(ADOQueryTemp, CDS_GC);
|
||
end;
|
||
|
||
HQGC();
|
||
HQZBGS();
|
||
if FDDID <> '' then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' select A.*,B.SUBID,PRTHXKH,PRTColorNo,PRTColor from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MAINID ');
|
||
SQL.Add('WHERE SUBID=' + QUOTEDSTR(FDDID));
|
||
// ShowMessage(SQL.Text);
|
||
Open;
|
||
end;
|
||
M_COLOR.Text := Trim(ADOQueryTemp.fieldbyname('PRTColor').AsString);
|
||
M_COLORNO.Text := Trim(ADOQueryTemp.fieldbyname('PRTColorNo').AsString);
|
||
// M_COLORNO.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString);
|
||
M_KHHX.Text := Trim(ADOQueryTemp.fieldbyname('PRTHXKH').AsString);
|
||
orderno.Text := Trim(ADOQueryTemp.fieldbyname('orderno').AsString);
|
||
M_KHNAME.Text := Trim(ADOQueryTemp.fieldbyname('CustomerNoName').AsString);
|
||
frommainid.Text := Trim(ADOQueryTemp.fieldbyname('mainid').AsString);
|
||
|
||
fromsubid.Text := Trim(ADOQueryTemp.fieldbyname('subid').AsString);
|
||
M_DBSPEC.Text := Trim(ADOQueryTemp.fieldbyname('MPRTCODENAME').AsString);
|
||
end;
|
||
/////////////////ˢ<>²<EFBFBD>Ʒ<EFBFBD><C6B7>Ϣ/////////////////////////
|
||
|
||
///////////ˢ<><CBA2><EFBFBD><EFBFBD>Ȩ/////////////////////////
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select A.* ');
|
||
|
||
sql.Add('from Sketch_BQSD A ');
|
||
|
||
sql.Add(' where A.HxCode=''' + Trim(M_HXCODE.Text) + '''');
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_SQ);
|
||
if CopyInt <> 99 then
|
||
SInitCDSData(ADOQueryTemp, CDS_SQ);
|
||
///////////ˢ<><CBA2><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD>/////////////////////////
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select A.* ');
|
||
|
||
sql.Add('from Sketch_XMAP A ');
|
||
|
||
sql.Add(' where A.MGID=''' + Trim(FMainId) + '''');
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_XM);
|
||
if CopyInt <> 99 then
|
||
SInitCDSData(ADOQueryTemp, CDS_XM);
|
||
|
||
|
||
/////////////ˢ<><CBA2>ԭ<EFBFBD><D4AD>/////////////////////////
|
||
//************** <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ID ***************//
|
||
if CopyInt = 99 then
|
||
begin
|
||
PState := 0;
|
||
FMainId := '';
|
||
IMG_SLT.text := '';
|
||
IMG_SJT.text := '';
|
||
with CDS_SQ do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('MGID').Value := null;
|
||
FieldByName('SQID').Value := null;
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
|
||
with CDS_XM do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('MGID').Value := null;
|
||
FieldByName('XMId').Value := null;
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
//************** <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ID ***************//
|
||
end;
|
||
|
||
procedure TfrmSketchManage.ZDYHelp(FButn: TcxButtonEdit; LType: string);
|
||
begin
|
||
|
||
end;
|
||
|
||
procedure TfrmSketchManage.FormShow(Sender: TObject);
|
||
begin
|
||
fFlileFlag := UserDataFlag + 'HX';
|
||
// showmessage(fFlileFlag); UserDataFlag
|
||
InitData();
|
||
|
||
if Trim(canshu1) = '¼<><C2BC>' then
|
||
begin
|
||
ScrollBox2.Visible := False;
|
||
cxGrid4.Visible := False;
|
||
cxGrid3.Visible := False;
|
||
end;
|
||
if Trim(canshu1) = '<27><>ѯ' then
|
||
begin
|
||
Panel1.Enabled := False;
|
||
ToolBar2.Visible := False;
|
||
ToolBar3.Visible := False;
|
||
TV3.OptionsSelection.CellSelect := False;
|
||
ScrollBox2.Visible := False;
|
||
ScrollBox3.Visible := False;
|
||
cxGrid4.Visible := False;
|
||
cxGrid3.Visible := False;
|
||
end;
|
||
// InitImage();
|
||
end;
|
||
|
||
function TfrmSketchManage.SaveData(): Boolean;
|
||
var
|
||
maxno, maxsubno, maxpbno, maxpzno, maxsjno: string;
|
||
begin
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
if Trim(FMainId) = '' then
|
||
begin
|
||
if GetLSNo(ADOQueryCmd, maxno, 'MG', 'Sketch_main', 4, 1) = False then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
maxno := Trim(FMainId);
|
||
end;
|
||
|
||
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from Sketch_main where MGID=''' + Trim(FMainId) + '''');
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
if ADOQueryCmd.IsEmpty 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('MGID').Value := Trim(maxno);
|
||
RTSetsavedata(ADOQueryCmd, 'Sketch_main', ScrollBox1, 0);
|
||
RTSetsavedata(ADOQueryCmd, 'Sketch_main', Panel1, 1);
|
||
RTSetsavedata(ADOQueryCmd, 'Sketch_main', ScrollBox2, 3);
|
||
RTSetsavedata(ADOQueryCmd, 'Sketch_main', ScrollBox3, 3);
|
||
if G_YMG.Checked = True then
|
||
begin
|
||
FieldByName('G_YMG').Value := 1;
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('G_YMG').Value := 0;
|
||
end;
|
||
if G_YYP.Checked = True then
|
||
begin
|
||
FieldByName('G_YYP').Value := 1;
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('G_YYP').Value := 0;
|
||
end;
|
||
if G_NG.Checked = True then
|
||
begin
|
||
FieldByName('G_NG').Value := 1;
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('G_NG').Value := 0;
|
||
end;
|
||
|
||
if YF_MGF.Checked = True then
|
||
begin
|
||
FieldByName('YF_MGF').Value := 1;
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('YF_MGF').Value := 0;
|
||
end;
|
||
if YF_XPKPF.Checked = True then
|
||
begin
|
||
FieldByName('YF_XPKPF').Value := 1;
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('YF_XPKPF').Value := 0;
|
||
end;
|
||
|
||
if YF_DPKPF.Checked = True then
|
||
begin
|
||
FieldByName('YF_DPKPF').Value := 1;
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('YF_DPKPF').Value := 0;
|
||
end;
|
||
if YF_MGQTF.Checked = True then
|
||
begin
|
||
FieldByName('YF_MGQTF').Value := 1;
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('YF_MGQTF').Value := 0;
|
||
end;
|
||
|
||
if YF_DYF.Checked = True then
|
||
begin
|
||
FieldByName('YF_DYF').Value := 1;
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('YF_DYF').Value := 0;
|
||
end;
|
||
|
||
if YF_DYQTF.Checked = True then
|
||
begin
|
||
FieldByName('YF_DYQTF').Value := 1;
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('YF_DYQTF').Value := 0;
|
||
end;
|
||
|
||
if YF_DYQTF.Checked = True then
|
||
begin
|
||
FieldByName('YF_DWZPF').Value := 1;
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('YF_DWZPF').Value := 0;
|
||
end;
|
||
Post;
|
||
end;
|
||
|
||
|
||
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD>
|
||
with CDS_SQ do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(CDS_SQ.fieldbyname('SQID').AsString) = '' then
|
||
begin
|
||
if GetLSNo(ADOQueryTemp, maxpzno, 'SQ', 'Sketch_BQSD', 3, 1) = False then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
maxpzno := Trim(CDS_SQ.fieldbyname('SQID').AsString);
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from Sketch_BQSD where ');
|
||
sql.Add(' SQID=''' + Trim(maxpzno) + '''');
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
if Trim(CDS_SQ.fieldbyname('SQID').AsString) = '' then
|
||
begin
|
||
Append;
|
||
|
||
end
|
||
else
|
||
begin
|
||
Edit;
|
||
|
||
end;
|
||
FieldByName('MGID').Value := Trim(maxno);
|
||
|
||
FieldByName('SQID').Value := Trim(maxpzno);
|
||
RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_SQ, 'Sketch_BQSD', 0);
|
||
Post;
|
||
end;
|
||
CDS_SQ.Edit;
|
||
|
||
CDS_SQ.FieldByName('MGID').Value := Trim(maxno);
|
||
CDS_SQ.FieldByName('SQID').Value := Trim(maxpzno);
|
||
CDS_SQ.Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>
|
||
with CDS_XM do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(CDS_XM.fieldbyname('XMID').AsString) = '' then
|
||
begin
|
||
if GetLSNo(ADOQueryTemp, maxpbno, 'XM', 'Sketch_XMAP', 4, 1) = False then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
maxpbno := Trim(CDS_XM.fieldbyname('XMID').AsString);
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from Sketch_XMAP where ');
|
||
sql.Add(' XMID=''' + Trim(maxpbno) + '''');
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
if Trim(CDS_XM.fieldbyname('XMID').AsString) = '' then
|
||
begin
|
||
Append;
|
||
|
||
end
|
||
else
|
||
begin
|
||
Edit;
|
||
|
||
end;
|
||
FieldByName('MGID').Value := Trim(maxno);
|
||
FieldByName('XMId').Value := Trim(maxpbno);
|
||
RTSetSaveDataCDS(ADOQueryCmd, Tv4, CDS_XM, 'Sketch_XMAP', 0);
|
||
Post;
|
||
end;
|
||
CDS_XM.Edit;
|
||
CDS_XM.FieldByName('MGId').Value := Trim(maxno);
|
||
CDS_XM.FieldByName('XMId').Value := Trim(maxpbno);
|
||
CDS_XM.Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
|
||
FMainId := Trim(maxno);
|
||
FSubId := Trim(maxsubno);
|
||
Result := True;
|
||
except
|
||
Result := False;
|
||
|
||
CDS_XM.EnableControls;
|
||
// CDS_Paizhen.EnableControls;
|
||
CDS_SQ.EnableControls;
|
||
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.TBSaveClick(Sender: TObject);
|
||
var
|
||
FReal: Double;
|
||
maxConNo: string;
|
||
begin
|
||
// b_QDTime.SetFocus;
|
||
|
||
// if Trim(C_CodeName.Text) = '' then
|
||
// begin
|
||
// Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
|
||
// Exit;
|
||
// end;
|
||
|
||
if SaveData() then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
|
||
// ModalResult := 0;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.C_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
var
|
||
fsj: string;
|
||
FWZ: Integer;
|
||
begin
|
||
fsj := Trim(TEdit(Sender).Hint);
|
||
FWZ := Pos('/', fsj);
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := Copy(fsj, 1, FWZ - 1);
|
||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||
if Trim(flag) = 'OrdDefStr2' then
|
||
begin
|
||
V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
fnote := True;
|
||
end;
|
||
if ShowModal = 1 then
|
||
begin
|
||
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmSketchManage.tbADDClick(Sender: TObject);
|
||
var
|
||
i: Integer;
|
||
begin
|
||
i := CDS_SQ.RecordCount;
|
||
i := i + 1;
|
||
with CDS_SQ do
|
||
begin
|
||
Append;
|
||
FieldByName('SQNO').Value := i;
|
||
// FieldByName('jddate').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
|
||
Post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.tbDELClick(Sender: TObject);
|
||
begin
|
||
if CDS_XM.IsEmpty then
|
||
Exit;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
||
Exit;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('delete Sketch_XMAP where XMID=''' + Trim(CDS_XM.fieldbyname('XMID').AsString) + '''');
|
||
ExecSQL;
|
||
end;
|
||
CDS_XM.Delete;
|
||
// HQXPS();
|
||
JSFYAll();
|
||
|
||
end;
|
||
|
||
procedure TfrmSketchManage.Tv6DblClick(Sender: TObject);
|
||
var
|
||
sFieldName: string;
|
||
fileName: string;
|
||
ff: TADOBlobStream;
|
||
FJStream: TMemoryStream;
|
||
begin
|
||
// if CDS_Fujian.IsEmpty then
|
||
// exit;
|
||
// Panel4.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ե<EFBFBD>...';
|
||
// Panel4.Visible := true;
|
||
// application.ProcessMessages;
|
||
// with ADOQueryTemp do
|
||
// begin
|
||
// Close;
|
||
// sql.Clear;
|
||
// sql.Add('select * from TP_File where TFID=''' + Trim(CDS_Fujian.fieldbyname('TFID').AsString) + '''');
|
||
// Open;
|
||
// end;
|
||
// sFieldName := 'D:\ͼƬ<CDBC>鿴';
|
||
// if not DirectoryExists(pchar(sFieldName)) then
|
||
// CreateDirectory(pchar(sFieldName), nil);
|
||
// fileName := CDS_Fujian.fieldbyname('FileName').AsString;
|
||
// sFieldName := sFieldName + '\' + trim(fileName);
|
||
// try
|
||
// ff := TADOBlobstream.Create(ADOQueryTemp.fieldByName('FilesOther') as TblobField, bmRead);
|
||
// FJStream := TMemoryStream.Create;
|
||
// ff.SaveToStream(FJStream);
|
||
// UnCompressionStream(FJStream);
|
||
// FJStream.SaveToFile(sFieldName);
|
||
// Panel4.Visible := False;
|
||
// ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
|
||
// finally
|
||
// Panel4.Visible := False;
|
||
// FJStream.free;
|
||
// ff.Free;
|
||
// end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.Tv3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
Fint := 1;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.Tv5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
Fint := 2;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.C_CodeKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if Key = #13 then
|
||
begin
|
||
Key := #0;
|
||
SelectNext(ActiveControl as TWinControl, True, True);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.B_YWYBMKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if Key = #13 then
|
||
begin
|
||
Key := #0;
|
||
SelectNext(ActiveControl as TWinControl, True, True);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.B_FactoryNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
var
|
||
fsj: string;
|
||
FWZ: Integer;
|
||
begin
|
||
fsj := Trim(TEdit(Sender).Hint);
|
||
if fsj = '' then
|
||
begin
|
||
|
||
end
|
||
else
|
||
begin
|
||
FWZ := Pos('/', fsj);
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := Copy(fsj, 1, FWZ - 1);
|
||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||
if Trim(flag) = 'C_CodeName' then
|
||
begin
|
||
fnote := True;
|
||
V1Note.Caption := '<27><><EFBFBD><EFBFBD>';
|
||
end;
|
||
if ShowModal = 1 then
|
||
begin
|
||
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmSketchManage.B_NOTEDblClick(Sender: TObject);
|
||
var
|
||
fsj: string;
|
||
FWZ: Integer;
|
||
i: integer;
|
||
begin
|
||
// fsj := Trim(TMemo(Sender).Hint);
|
||
// FWZ := Pos('/', fsj);
|
||
// i := 0;
|
||
// try
|
||
// frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
|
||
// with frmZDYHelpSel do
|
||
// begin
|
||
// flag := Copy(fsj, 1, FWZ - 1);
|
||
// flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||
// if ShowModal = 1 then
|
||
// begin
|
||
// B_NOTE.Lines.Clear;
|
||
// with ClientDataSet1 do
|
||
// begin
|
||
// First;
|
||
// while not Eof do
|
||
// begin
|
||
// if FieldByName('SSel').AsBoolean = True then
|
||
// begin
|
||
// i := i + 1;
|
||
// B_NOTE.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
|
||
// end;
|
||
// Next;
|
||
// end;
|
||
// end;
|
||
// end;
|
||
// end;
|
||
// finally
|
||
// frmZDYHelpSel.Free;
|
||
// end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.Picture4DblClick(Sender: TObject);
|
||
begin
|
||
if TcxDBImage(Sender).Picture.Height = 0 then
|
||
exit;
|
||
|
||
LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring);
|
||
end;
|
||
|
||
procedure TfrmSketchManage.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
|
||
|
||
Panel5.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>Ե<EFBFBD>...';
|
||
Panel5.Visible := true;
|
||
application.ProcessMessages;
|
||
try
|
||
IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false);
|
||
except
|
||
Panel5.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
|
||
Panel5.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;
|
||
Panel5.Visible := false;
|
||
if IdFTP1.Connected then
|
||
IdFTP1.Quit;
|
||
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
|
||
end;
|
||
|
||
procedure TfrmSketchManage.FileNameClick(Sender: TObject);
|
||
begin
|
||
if trim(fmainid) = '' then
|
||
begin
|
||
application.MessageBox('Ѱ<><D1B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣδ<CFA2><CEB4><EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD>ȱ<EFBFBD><C8B1><EFBFBD>Ѱ<EFBFBD><D1B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
//
|
||
// try
|
||
// FormGetPic2 := TFormGetPic.Create(Application);
|
||
// with FormGetPic do
|
||
// begin
|
||
// fkeyNO := trim(self.fmainid);
|
||
// pat1 := TCXbutton(Sender).Name;
|
||
// pic1 := TCXbutton(Sender).Hint;
|
||
// FTFType := 'Ѱ<><D1B0>';
|
||
// fFlileFlag := self.fFlileFlag;
|
||
// if ShowModal = 1 then
|
||
// begin
|
||
// // self.Timage(Tbutton(Sender).Hint).Picture.Assign(FormGetPic.Image2.Picture.Bitmap);
|
||
// // zdycode.Enabled:=false;
|
||
// end;
|
||
//
|
||
// Release;
|
||
// end;
|
||
// InitImage();
|
||
// except
|
||
// if FormGetPic <> nil then
|
||
// FormGetPic.Release;
|
||
// end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.InitImage();
|
||
begin
|
||
with ADOQueryImage do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from TP_File A');
|
||
sql.Add('where WBID=' + quotedstr(trim(fmainid)));
|
||
sql.Add('and TFType=' + quotedstr(trim('Ѱ<><D1B0>')));
|
||
open;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.B_KHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZdyAttachment := TfrmZdyAttachment.Create(Application);
|
||
with frmZdyAttachment do
|
||
begin
|
||
|
||
if ShowModal = 1 then
|
||
begin
|
||
M_KHname.Text := Trim(CDS_HZ.fieldbyname('coname').AsString);
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmZdyAttachment.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.ORDERNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
|
||
with frmProductOrderListSel do
|
||
begin
|
||
if ShowModal = 1 then
|
||
begin
|
||
if (PState = 1) and (CopyInt <> 99) then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('SELECT A.* FROM JYORDER_MAIN A INNER JOIN JYORDER_SUB B ON A.MAINID=B.MAINID WHERE A.MAINID=' + QUOTEDSTR(Trim(frmProductOrderListSel.Order_Main.fieldbyname('mainid').AsString)));
|
||
SQL.Add('AND PRTHX=' + QUOTEDSTR(M_HXCODE.TEXT));
|
||
Open;
|
||
end;
|
||
if ADOQueryTemp.IsEmpty = True then
|
||
begin
|
||
application.MessageBox('<27><>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڸû<DAB8><C3BB>ͣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
orderno.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('orderno').AsString);
|
||
frommainid.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('mainid').AsString);
|
||
fromsubid.Text := Trim(frmProductOrderListSel.Order_main.fieldbyname('subid').AsString);
|
||
|
||
end
|
||
else
|
||
begin
|
||
M_COLOR.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
|
||
M_COLORNO.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColorNo').AsString);
|
||
// M_COLORNO.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString);
|
||
M_KHHX.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHXKH').AsString);
|
||
M_HXCODE.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHx').AsString);
|
||
orderno.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('orderno').AsString);
|
||
M_KHNAME.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CustomerNoName').AsString);
|
||
frommainid.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('mainid').AsString);
|
||
fromsubid.Text := Trim(frmProductOrderListSel.Order_main.fieldbyname('subid').AsString);
|
||
M_DBSPEC.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCODENAME').AsString);
|
||
end;
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmProductOrderListSel.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.M_DBSPECPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
frmCPManageSel := TfrmCPManageSel.Create(self);
|
||
with frmCPManageSel do
|
||
begin
|
||
if showmodal = 1 then
|
||
begin
|
||
// M_COLOR.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CYCOLOR').AsString);
|
||
// M_COLORNO.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CYColorNo').AsString);
|
||
//// M_COLORNO.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString);
|
||
// M_KHHX.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHXKH').AsString);
|
||
|
||
M_DBSPEC.Text := CDS_Main.fieldbyname('CYName').asstring;
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.G_FACTORYNAMEPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
var
|
||
fsj: string;
|
||
FWZ: Integer;
|
||
begin
|
||
try
|
||
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
|
||
with frmZdyAttachGYS do
|
||
begin
|
||
FStatus := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
if ShowModal = 1 then
|
||
begin
|
||
|
||
G_FACTORYNAME.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
|
||
G_FACTORYCODE.Text := Trim(CDS_HZ.fieldbyname('CoCODE').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZdyAttachGYS.Free;
|
||
end;
|
||
|
||
if G_FACTORYCODE.Text <> '' then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('SELECT A.*,B.CONAME FROM Company_GCFY A INNER JOIN Company B ON A.FromCoID=B.CoID WHERE COCODE=' + QUOTEDSTR(G_FACTORYCODE.Text));
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_GC);
|
||
SInitCDSData(ADOQueryTemp, CDS_GC);
|
||
end;
|
||
HQGC();
|
||
// JSFY2();
|
||
JSFYAll();
|
||
end;
|
||
|
||
procedure TfrmSketchManage.ToolButton1Click(Sender: TObject);
|
||
var
|
||
i: Integer;
|
||
begin
|
||
if Trim(M_HXCODE.Text) = '' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD>ͱ<EFBFBD><CDB1>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
i := CDS_SQ.RecordCount;
|
||
i := i + 1;
|
||
with CDS_SQ do
|
||
begin
|
||
Append;
|
||
FieldByName('SQNO').Value := i;
|
||
FieldByName('HxCode').Value := M_HXCODE.Text;
|
||
// FieldByName('jddate').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
|
||
Post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.ToolButton5Click(Sender: TObject);
|
||
begin
|
||
with CDS_XM do
|
||
begin
|
||
Append;
|
||
|
||
FieldByName('XMAPSJ').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
|
||
Post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.G_ZBFACTORYNAMEPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
|
||
with frmZdyAttachGYS do
|
||
begin
|
||
FStatus := '<27>ư湫˾';
|
||
if ShowModal = 1 then
|
||
begin
|
||
|
||
G_ZBFACTORYNAME.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
|
||
G_ZBFACTORYCODE.Text := Trim(CDS_HZ.fieldbyname('CoCODE').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZdyAttachGYS.Free;
|
||
end;
|
||
if G_ZBFACTORYCODE.Text <> '' then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('SELECT A.*,B.CONAME FROM Company_MGFY A INNER JOIN Company B ON A.FromCoID=B.CoID WHERE COCODE=' + QUOTEDSTR(G_ZBFACTORYCODE.Text));
|
||
// ShowMessage(SQL.Text);
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_ZBGS);
|
||
SInitCDSData(ADOQueryTemp, CDS_ZBGS);
|
||
end;
|
||
HQZBGS();
|
||
JSFYAll();
|
||
end;
|
||
|
||
procedure TfrmSketchManage.cxButton1Click(Sender: TObject);
|
||
begin
|
||
if Trim(FMainId) = '' then
|
||
begin
|
||
if GetLSNo(ADOQueryCmd, FMainId, 'MG', 'Sketch_main', 4, 1) = False then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
end;
|
||
FormGetPic := TFormGetPic.create(self);
|
||
with FormGetPic do
|
||
begin
|
||
fFlileFlag := self.fFlileFlag;
|
||
FMainId := self.FMainId;
|
||
fkeyNo := IMG_SLT.Text;
|
||
FTFType := 'MGSLT';
|
||
pat1 := 'FileName';
|
||
pic1 := 'FilesOther';
|
||
if showmodal = 1 then
|
||
begin
|
||
IMG_SLT.Text := trim(fkeyNo);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.cxButton3Click(Sender: TObject);
|
||
begin
|
||
if Trim(FMainId) = '' then
|
||
begin
|
||
if GetLSNo(ADOQueryCmd, FMainId, 'MG', 'Sketch_main', 4, 1) = False then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
end;
|
||
FormGetPic := TFormGetPic.create(self);
|
||
with FormGetPic do
|
||
begin
|
||
fFlileFlag := self.fFlileFlag;
|
||
FMainId := self.FMainId;
|
||
fkeyNo := IMG_SJT.Text;
|
||
FTFType := 'MGSJT';
|
||
pat1 := 'FileName';
|
||
pic1 := 'FilesOther';
|
||
if showmodal = 1 then
|
||
begin
|
||
IMG_SJT.Text := trim(fkeyNo);
|
||
end;
|
||
free;
|
||
end;
|
||
|
||
// FormGetPic2 := TFormGetPic2.create(self);
|
||
// with FormGetPic2 do
|
||
// begin
|
||
// fFlileFlag := self.fFlileFlag;
|
||
// FMainId := self.FMainId;
|
||
// fkeyNo := IMG_SJT.Text;
|
||
// FTFType := 'MGSJT';
|
||
// if showmodal = 1 then
|
||
// begin
|
||
// IMG_SJT.Text := trim(fkeyNo);
|
||
// end;
|
||
// free;
|
||
// end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.TV4FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||
begin
|
||
with ADOQuery1 do
|
||
begin
|
||
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from Sketch_XMAP where XMID=''' + Trim(CDS_XM.fieldbyname('XMID').AsString) + '''');
|
||
open;
|
||
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmSketchManage.cxGridDBColumn1PropertiesChange(Sender: TObject);
|
||
var
|
||
mvalue, FFieldName: string;
|
||
begin
|
||
mvalue := TcxTextEdit(Sender).EditValue;
|
||
FFieldName := Trim(Tv4.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
with CDS_XM do
|
||
begin
|
||
Edit;
|
||
FieldByName(FFieldName).Value := mvalue;
|
||
Post;
|
||
|
||
end;
|
||
JSFYAll();
|
||
end;
|
||
|
||
procedure TfrmSketchManage.ToolButton2Click(Sender: TObject);
|
||
begin
|
||
if CDS_SQ.IsEmpty = True then
|
||
Exit;
|
||
|
||
with CDS_SQ do
|
||
begin
|
||
CDS_SQ.Delete;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.cxGridDBColumn6PropertiesChange(Sender: TObject);
|
||
var
|
||
mvalue, FFieldName: string;
|
||
begin
|
||
mvalue := TcxTextEdit(Sender).EditValue;
|
||
FFieldName := Trim(Tv4.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
with CDS_XM do
|
||
begin
|
||
Edit;
|
||
FieldByName(FFieldName).Value := mvalue;
|
||
Post;
|
||
|
||
end;
|
||
JSFYAll();
|
||
end;
|
||
|
||
procedure TfrmSketchManage.G_PYWChange(Sender: TObject);
|
||
begin
|
||
HQZBGS();
|
||
JSFYAll();
|
||
end;
|
||
|
||
procedure TfrmSketchManage.G_YMGClick(Sender: TObject);
|
||
begin
|
||
HQZBGS();
|
||
JSFYAll();
|
||
end;
|
||
|
||
procedure TfrmSketchManage.F_YSTSExit(Sender: TObject);
|
||
begin
|
||
JSFYAll();
|
||
end;
|
||
|
||
procedure TfrmSketchManage.cxTabSheet1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
ToolBar1.SetFocus;
|
||
end;
|
||
|
||
procedure TfrmSketchManage.V2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZdyAttachment := TfrmZdyAttachment.Create(Application);
|
||
with frmZdyAttachment do
|
||
begin
|
||
|
||
if ShowModal = 1 then
|
||
begin
|
||
|
||
with CDS_SQ do
|
||
begin
|
||
Edit;
|
||
FieldByName('SQKHNAME').Value := Trim(CDS_HZ.fieldbyname('coname').AsString);
|
||
Post;
|
||
end;
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmZdyAttachment.Free;
|
||
end;
|
||
tv3.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
end.
|
||
|