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.
|
|||
|
|
|