Group_99/D10djyitong
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D10djyitong/A02基础产品管理/U_TatClothInfoInput.pas

1927 lines
52 KiB
ObjectPascal
Raw Permalink Normal View History

~
2026-02-27 10:14:43 +08:00
unit U_TatClothInfoInput;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit,
cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, cxPC, System.ImageList,
Vcl.ImgList, U_BaseInput, cxCheckBox, dxSkinBasic, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, cxMemo, cxMaskEdit,
Vcl.Menus, cxDropDownEdit;
type
TfrmTatClothInfoInput = class(TfrmBaseInput)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
TBClose: TToolButton;
ADOQueryCmd: TADOQuery;
ADOQueryTemp: TADOQuery;
ScrollBox1: TScrollBox;
Label1: TLabel;
Label5: TLabel;
Label3: TLabel;
ToolButton6: TToolButton;
BCIID: TEdit;
CDS_1: TClientDataSet;
DS_1: TDataSource;
CDS_2: TClientDataSet;
DS_2: TDataSource;
ADOConnection1: TADOConnection;
ImageList1: TImageList;
Label16: TLabel;
Label55: TLabel;
cxPageControl3: TcxPageControl;
cxTabSheet1: TcxTabSheet;
GroupBox1: TGroupBox;
Y_Note_PLJ: TMemo;
Panel1: TPanel;
cxPageControl2: TcxPageControl;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
cxTabSheet2: TcxTabSheet;
GroupBox2: TGroupBox;
Y_Note_PLW: TMemo;
Panel2: TPanel;
cxPageControl1: TcxPageControl;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
v2Column10: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxTabSheet3: TcxTabSheet;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
TV4Column1: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridLevel5: TcxGridLevel;
Panel8: TPanel;
ToolBar4: TToolBar;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
Panel7: TPanel;
Label49: TLabel;
Edit1: TEdit;
CDS_4: TClientDataSet;
DS_4: TDataSource;
GPM_1: TcxGridPopupMenu;
GPM_2: TcxGridPopupMenu;
GPM_4: TcxGridPopupMenu;
ToolButton11: TToolButton;
CINote: TcxMemo;
ThroughHealdOrder: TcxMemo;
C_Code: TcxTextEdit;
Label2: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
LoomType: TcxTextEdit;
C_Name: TcxTextEdit;
C_YarnQty: TcxTextEdit;
C_Width: TcxTextEdit;
C_ReedNo: TcxTextEdit;
C_GramWeight: TcxTextEdit;
C_TestGramWeight: TcxTextEdit;
C_MachLatitudeDensity: TcxTextEdit;
TV1Column7: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
TV1Column8: TcxGridDBColumn;
TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Tv2Column4: TcxGridDBColumn;
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
Tv2Column9: TcxGridDBColumn;
Tv2Column10: TcxGridDBColumn;
lbl1: TLabel;
lbl2: TLabel;
WB_Code: TcxButtonEdit;
WB_Name: TcxTextEdit;
QZF: TMemo;
cxTabSheet4: TcxTabSheet;
CZF: TMemo;
cxTabSheet5: TcxTabSheet;
CKF: TMemo;
TV1Column11: TcxGridDBColumn;
Tv2Column11: TcxGridDBColumn;
Label11: TLabel;
Label12: TLabel;
C_ColorNo: TcxTextEdit;
Label13: TLabel;
C_Pattern: TcxTextEdit;
Label14: TLabel;
C_StyleNo: TcxTextEdit;
Label15: TLabel;
C_Spec: TcxTextEdit;
Label17: TLabel;
C_Composition: TcxTextEdit;
TV1Column12: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
ADOQuery1: TADOQuery;
Label18: TLabel;
Label19: TLabel;
BBNo: TcxTextEdit;
ZS: TcxTextEdit;
TV1Column13: TcxGridDBColumn;
TV1Column14: TcxGridDBColumn;
Tv2Column13: TcxGridDBColumn;
Tv2Column14: TcxGridDBColumn;
PM_1: TPopupMenu;
N1: TMenuItem;
PM_2: TPopupMenu;
MenuItem1: TMenuItem;
Label20: TLabel;
CK: TcxTextEdit;
TV1Column15: TcxGridDBColumn;
Tv2Column15: TcxGridDBColumn;
Tv2Column16: TcxGridDBColumn;
Label27: TLabel;
LLKZ: TcxTextEdit;
Label21: TLabel;
C_FinishLatitudeDensity: TcxTextEdit;
Label22: TLabel;
C_Color: TcxComboBox;
TV1Column16: TcxGridDBColumn;
TV1Column17: TcxGridDBColumn;
TV1Column18: TcxGridDBColumn;
Tv2Column17: TcxGridDBColumn;
Tv2Column18: TcxGridDBColumn;
Tv2Column19: TcxGridDBColumn;
Panel3: TPanel;
Label23: TLabel;
JSMoney: TcxTextEdit;
Label24: TLabel;
WSMoney: TcxTextEdit;
Label25: TLabel;
Label26: TLabel;
ZJ: TcxTextEdit;
ZZJGMoney1: TcxTextEdit;
Label28: TLabel;
Label29: TLabel;
JL: TcxTextEdit;
ZZJGMoney2: TcxTextEdit;
Label30: TLabel;
Money1: TcxTextEdit;
Label31: TLabel;
Shui: TcxTextEdit;
Label32: TLabel;
Money2: TcxTextEdit;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure CYColorKeyPress(Sender: TObject; var Key: Char);
procedure CYMFExit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CYJGGYBtnDnClick(Sender: TObject);
procedure C_WidthBtnDnClick(Sender: TObject);
procedure C_WidthBtnUpClick(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure ToolButton11Click(Sender: TObject);
procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv2Column1PropertiesEditValueChanged(Sender: TObject);
procedure C_ReedWidthPropertiesEditValueChanged(Sender: TObject);
procedure TV1Column1PropertiesEditValueChanged(Sender: TObject);
procedure C_YarnQtyPropertiesEditValueChanged(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure C_ReedNoPropertiesChange(Sender: TObject);
procedure CKPropertiesEditValueChanged(Sender: TObject);
procedure C_YarnQtyClick(Sender: TObject);
procedure C_YarnQtyExit(Sender: TObject);
procedure LLKZClick(Sender: TObject);
procedure LLKZExit(Sender: TObject);
procedure C_GramWeightClick(Sender: TObject);
procedure C_GramWeightExit(Sender: TObject);
private
canshu1: string;
Fint: Integer;
procedure InitGrid();
procedure JSJS(); //<2F><><EFBFBD>㾭˿
procedure JSWS(); //<2F><><EFBFBD><EFBFBD>γ˿
procedure JSKZ(); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
procedure JSTW(); //<2F><><EFBFBD><EFBFBD>ͷ<EFBFBD><CDB7>
function SaveData(): Boolean;
{ Private declarations }
public
FBCIID, FCTID, FJurisdiction: string;
CopyInt: Integer;
{ Public declarations }
end;
var
frmTatClothInfoInput: TfrmTatClothInfoInput;
implementation
uses
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_YarnInfoSel,
U_WBSpecSel;
{$R *.dfm}
procedure TfrmTatClothInfoInput.InitGrid();
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCSHData(ADOQueryTemp, ScrollBox1, 2);
SCSHData(ADOQueryTemp, ScrollBox1, 0);
SCSHData(ADOQueryTemp, Panel3, 2);
QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString);
CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString);
Y_Note_PLJ.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLJ').AsString);
Y_Note_PLW.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLW').AsString);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select BCPH=(select BCPH from Bs_Yarn_Info X where X.Y_Code=A.Y_Code) ');
sql.Add(', SXPrice=(select SXPrice from Bs_Yarn_Info X where X.Y_Code=A.Y_Code)');
sql.Add(', SXMoney= round ( (select SXPrice from Bs_Yarn_Info X where X.Y_Code=A.Y_Code) * A.MeterQty ,2) ');
sql.Add(' , A.* from BS_Cloth_Yarn A ');
sql.Add(' where YRType=''<27><>˿'' and A.BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select BCPH=(select BCPH from Bs_Yarn_Info X where X.Y_Code=A.Y_Code) ');
sql.Add(', SXPrice=(select SXPrice from Bs_Yarn_Info X where X.Y_Code=A.Y_Code)');
sql.Add(', SXMoney= round ( (select SXPrice from Bs_Yarn_Info X where X.Y_Code=A.Y_Code) * A.MeterQty ,2) ');
sql.Add(' , A.* from BS_Cloth_Yarn A ');
sql.Add(' where YRType=''γ˿'' and A.BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
if FBCIID = '' then
begin
with CDS_1 do
begin
Append;
FieldByName('RowNo').Value := 'A';
Post;
Append;
FieldByName('RowNo').Value := 'B';
Post;
Append;
FieldByName('RowNo').Value := 'C';
Post;
Append;
FieldByName('RowNo').Value := 'D';
Post;
Append;
FieldByName('RowNo').Value := 'E';
Post;
Append;
FieldByName('RowNo').Value := 'F';
Post;
Append;
FieldByName('RowNo').Value := 'G';
Post;
end;
with CDS_2 do
begin
Append;
FieldByName('RowNo').Value := 'A';
Post;
Append;
FieldByName('RowNo').Value := 'B';
Post;
Append;
FieldByName('RowNo').Value := 'C';
Post;
Append;
FieldByName('RowNo').Value := 'D';
Post;
Append;
FieldByName('RowNo').Value := 'E';
Post;
Append;
FieldByName('RowNo').Value := 'F';
Post;
Append;
FieldByName('RowNo').Value := 'G';
Post;
end;
end;
/////////////////ˢ<><CBA2><EFBFBD><EFBFBD><EFBFBD>۹<EFBFBD><DBB9>յ<EFBFBD><D5B5><EFBFBD>Ϣ/////////////////////////
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from BS_CLoth_QZ where BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_4);
SInitCDSData(ADOQueryTemp, CDS_4);
/////////////////ˢ<><CBA2><EFBFBD><EFBFBD><EFBFBD>۹<EFBFBD><DBB9>յ<EFBFBD><D5B5><EFBFBD>Ϣ/////////////////////////
///
end;
procedure TfrmTatClothInfoInput.JSJS();
var
GS, ZGS, MF, DS, WM, TW, ZSL, SXPrice: double;
begin
if CDS_1.IsEmpty then
exit;
with CDS_1 do
begin
DisableControls;
first;
while not eof do
begin
with CDS_1 do
begin
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //<2F><><EFBFBD><EFBFBD>
end
else
begin
GS := FieldByName('YarnQty').Value; //<2F><><EFBFBD><EFBFBD>
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
end;
MF := strtofloatdef(C_Width.text, 0); //<2F>ط<EFBFBD>
TW := strtofloatdef(C_YarnQty.text, 0); //ͷ<><CDB7>
if FieldByName('Denier').Value = null then
begin
DS := 0; //D<><44>
end
else
begin
DS := FieldByName('Denier').Value; //D<><44>
end;
ZSL := FieldByName('ZSL').AsFloat;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ<><CEB3>
if FieldByName('SXPrice').Value = null then
begin
SXPrice := 0; //ɴ<>߼۸<DFBC>
end
else
begin
SXPrice := FieldByName('SXPrice').Value; //ɴ<>߼۸<DFBC>
end;
end;
if ZGS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000 * (100 + ZSL) / 100, 2);
FieldByName('SXMoney').Value := roundfloat(GS / ZGS * TW * DS / 9000 * (100 + ZSL) / 100, 2) * SXPrice;
Post;
end;
end;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTatClothInfoInput.JSWS();
var
GS, ZGS, MF, DS, WM, WSSH, SXPrice: double;
begin
if CDS_2.IsEmpty then
exit;
with CDS_2 do
begin
DisableControls;
first;
while not eof do
begin
with CDS_2 do
begin
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //<2F><><EFBFBD><EFBFBD>
end
else
begin
GS := FieldByName('YarnQty').Value; //<2F><><EFBFBD><EFBFBD>
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
end;
MF := strtofloatdef(C_Width.text, 0); //<2F>ط<EFBFBD>
if FieldByName('Denier').Value = null then
begin
DS := 0; //D<><44>
end
else
begin
DS := FieldByName('Denier').Value; //D<><44>
end;
if FieldByName('WSSH').Value = null then
begin
WSSH := 0; //γɴ<CEB3><C9B4><EFBFBD><EFBFBD>
end
else
begin
WSSH := FieldByName('WSSH').Value; //γɴ<CEB3><C9B4><EFBFBD><EFBFBD>
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ<><CEB3>
if FieldByName('SXPrice').Value = null then
begin
SXPrice := 0; //ɴ<>߼۸<DFBC>
end
else
begin
SXPrice := FieldByName('SXPrice').Value; //ɴ<>߼۸<DFBC>
end;
end;
if ZGS <> 0 then
begin
with CDS_2 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * (MF + WSSH) * DS * WM / 9000, 2);
FieldByName('SXMoney').Value := roundfloat(GS / ZGS * (MF + WSSH) * DS * WM / 9000, 2) * SXPrice;
Post;
end;
end;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTatClothInfoInput.LLKZClick(Sender: TObject);
begin
TV1Column1.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV1Column2.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV1Column6.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV1Column15.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV1Column1.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
TV1Column2.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
TV1Column6.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
TV1Column15.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
C_YarnQty.Style.Color := clMoneyGreen;
TV2Column1.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV2Column2.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV2Column16.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV2Column6.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV2Column1.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
TV2Column2.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
TV2Column16.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
TV2Column6.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
C_FinishLatitudeDensity.Style.Color := clMoneyGreen;
end;
procedure TfrmTatClothInfoInput.LLKZExit(Sender: TObject);
begin
TV1Column1.Styles.Header := DataLink_ClothInfo.FontBlue;
TV1Column2.Styles.Header := DataLink_ClothInfo.FontBlue;
TV1Column6.Styles.Header := DataLink_ClothInfo.FontBlue;
TV1Column15.Styles.Header := DataLink_ClothInfo.FontBlue;
TV1Column1.Styles.Content := DataLink_ClothInfo.FontBlue;
TV1Column2.Styles.Content := DataLink_ClothInfo.FontBlue;
TV1Column6.Styles.Content := DataLink_ClothInfo.FontBlue;
TV1Column15.Styles.Content := DataLink_ClothInfo.FontBlue;
C_YarnQty.Style.Color := clFuchsia;
TV2Column1.Styles.Header := DataLink_ClothInfo.FontBlue;
TV2Column2.Styles.Header := DataLink_ClothInfo.FontBlue;
TV2Column16.Styles.Header := DataLink_ClothInfo.FontBlue;
TV2Column6.Styles.Header := DataLink_ClothInfo.FontBlue;
TV2Column1.Styles.Content := DataLink_ClothInfo.FontBlue;
TV2Column2.Styles.Content := DataLink_ClothInfo.FontBlue;
TV2Column16.Styles.Content := DataLink_ClothInfo.FontBlue;
TV2Column6.Styles.Content := DataLink_ClothInfo.FontBlue;
C_FinishLatitudeDensity.Style.Color := clWhite;
end;
procedure TfrmTatClothInfoInput.MenuItem1Click(Sender: TObject);
begin
with CDS_2 do
begin
Edit;
FieldByName('Y_Code').Value := null;
FieldByName('Yarn_Name').Value := null;
FieldByName('Y_Name').Value := null;
FieldByName('Denier').Value := null;
FieldByName('Z_Number').Value := null;
FieldByName('F_Number').Value := null;
FieldByName('Y_Color').Value := null;
FieldByName('YarnQty').Value := null;
FieldByName('CycleYarnQty').Value := null;
FieldByName('FF').Value := null;
FieldByName('ND').Value := null;
FieldByName('Dacron').Value := null;
FieldByName('Cotton').Value := null;
FieldByName('Linen').Value := null;
FieldByName('Y_Composition').Value := null;
FieldByName('MeterQty').Value := null;
FieldByName('PTNo').Value := null;
FieldByName('YLLX').Value := null;
FieldByName('WSSH').Value := null;
FieldByName('SXPrice').Value := null;
FieldByName('SXMoney').Value := null;
Post;
end;
JSJS();
JSWS();
JSKZ();
end;
procedure TfrmTatClothInfoInput.N1Click(Sender: TObject);
begin
with CDS_1 do
begin
Edit;
FieldByName('Y_Code').Value := null;
FieldByName('Yarn_Name').Value := null;
FieldByName('Y_Name').Value := null;
FieldByName('Denier').Value := null;
FieldByName('Z_Number').Value := null;
FieldByName('F_Number').Value := null;
FieldByName('Y_Color').Value := null;
FieldByName('YarnQty').Value := null;
FieldByName('CycleYarnQty').Value := null;
FieldByName('FF').Value := null;
FieldByName('ND').Value := null;
FieldByName('Dacron').Value := null;
FieldByName('Cotton').Value := null;
FieldByName('Linen').Value := null;
FieldByName('Y_Composition').Value := null;
FieldByName('MeterQty').Value := null;
FieldByName('PTNo').Value := null;
FieldByName('ZSL').Value := null;
FieldByName('SXPrice').Value := null;
FieldByName('SXMoney').Value := null;
Post;
end;
JSJS();
JSWS();
JSKZ();
end;
procedure TfrmTatClothInfoInput.JSKZ();
var
SumJS, SumWS, FJSMoney, FWSMoney: double;
begin
// C_GramWeight.SetFocus;
if Tv1.DataController.Summary.FooterSummaryValues[0] <> null then
begin
SumJS := Tv1.DataController.Summary.FooterSummaryValues[0];
end
else
begin
SumJS := 0;
end;
if Tv2.DataController.Summary.FooterSummaryValues[0] <> null then
begin
SumWS := Tv2.DataController.Summary.FooterSummaryValues[0];
end
else
begin
SumWS := 0;
end;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>//
if Tv1.DataController.Summary.FooterSummaryValues[1] <> null then
begin
FJSMoney := Tv1.DataController.Summary.FooterSummaryValues[1];
end
else
begin
FJSMoney := 0;
end;
if Tv2.DataController.Summary.FooterSummaryValues[1] <> null then
begin
FWSMoney := Tv2.DataController.Summary.FooterSummaryValues[1];
end
else
begin
FWSMoney := 0;
end;
JSMoney.text := FloatToStr(FJSMoney);
WSMoney.text := floattostr(FWSMoney);
ZZJGMoney2.text := floattostr(roundfloat(strtofloatdef(ZZJGMoney1.text, 0) * strtofloatdef(C_FinishLatitudeDensity.text, 0), 2));
Money1.text := floattostr(roundfloat(strtofloatdef(JSMoney.text, 0) + strtofloatdef(WSMoney.text, 0) + strtofloatdef(ZZJGMoney2.text, 0) + strtofloatdef(ZJ.text, 0) + strtofloatdef(JL.text, 0), 2));
Money2.text := floattostr(roundfloat(strtofloatdef(Money1.text, 0) * strtofloatdef(Shui.text, 0), 2));
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>//
LLKZ.text := floattostr(roundfloat((SumJS + SumWS), 2));
if strtofloatdef(C_Width.text, 0) > 0 then
C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / strtofloatdef(C_Width.text, 0) * 100, 2));
end;
procedure TfrmTatClothInfoInput.JSTW();
var
FC_ReedNo, FC_Width, FCK, FC_YarnQty: Double;
begin
FC_ReedNo := strtofloatdef(C_ReedNo.text, 0);
FC_Width := strtofloatdef(C_Width.text, 0);
FCK := strtofloatdef(CK.text, 0);
FC_YarnQty := RoundFloat(FC_ReedNo * FC_Width * FCK, 2);
C_YarnQty.text := FloatToStr(FC_YarnQty);
end;
procedure TfrmTatClothInfoInput.FormShow(Sender: TObject);
begin
readCxGrid(self.Caption + 'TV11', Tv1, '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
readCxGrid(self.Caption + 'TV22', Tv2, '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
readCxGrid(self.Caption + 'TV44', Tv4, '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
if FJurisdiction = '<27><>Ȩ<EFBFBD><C8A8>' then
begin
ScrollBox1.Height := 520;
Panel3.Visible := True;
end
else
begin
ScrollBox1.Height := 300;
Panel3.Visible := false;
end;
InitGrid();
JSTW();
JSJS();
JSWS();
JSKZ();
if CopyInt = 1 then
begin
FBCIID := '';
BCIID.text := '';
C_Code.text := '';
with CDS_1 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('BCIID').Value := '';
FieldByName('YRId').Value := '';
Post;
Next;
end;
end;
with CDS_2 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('BCIID').Value := '';
FieldByName('YRId').Value := '';
Post;
Next;
end;
end;
end;
end;
procedure TfrmTatClothInfoInput.TBCloseClick(Sender: TObject);
begin
Close;
end;
function TfrmTatClothInfoInput.SaveData(): Boolean;
var
maxId, maxpbno, maxQZID, HZYRId: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(FBCIID) = '' then
begin
if GetLSNo(ADOQueryCmd, maxId, 'Y', 'BS_Cloth_Info', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
BCIID.Text := trim(maxId);
end
else
begin
maxId := Trim(FBCIID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FBCIID) = '' then
begin
Append;
FieldByName('CTID').Value := Trim(FCTID);
FieldByName('FILLID').Value := Trim(DCode);
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('BCIID').Value := Trim(maxId);
FieldByName('QZF').Value := Trim(QZF.text);
FieldByName('CZF').Value := Trim(CZF.text);
FieldByName('CKF').Value := Trim(CKF.text);
FieldByName('Y_Note_PLJ').Value := Trim(Y_Note_PLJ.text);
FieldByName('Y_Note_PLW').Value := Trim(Y_Note_PLW.text);
if trim(C_Code.Text) = '' then
C_Code.Text := Trim(maxId);
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2);
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', Panel3, 2);
Post;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select count(*) as AA from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + '''');
Open;
if FieldByName('AA').AsInteger > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end;
////////////////////////// <20><><EFBFBD>澭˿<E6BEAD><CBBF><EFBFBD>ȱ<EFBFBD> //////////////////////////
with CDS_1 do
begin
First;
HZYRId := '';
while not Eof do
begin
if Trim(CDS_1.fieldbyname('YRId').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxpbno, 'RJ', 'BS_Cloth_Yarn', 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_1.fieldbyname('YRId').AsString);
end;
HZYRId := HZYRId + ';' + maxpbno;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Cloth_Yarn where ');
sql.Add(' YRId=''' + Trim(maxpbno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_1.fieldbyname('YRId').AsString) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('YRType').Value := '<27><>˿';
FieldByName('BCIID').Value := Trim(maxId);
FieldByName('YRId').Value := Trim(maxpbno);
// FieldByName('ZSL').Value := CDS_1.fieldbyname('ZSL').Value;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'BS_Cloth_Yarn', 0);
Post;
end;
CDS_1.Edit;
CDS_1.FieldByName('BCIID').Value := Trim(maxId);
CDS_1.FieldByName('YRId').Value := Trim(maxpbno);
Next;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('update BS_Cloth_Yarn set BCIID = rtrim(BCIID) + ''ɾ'' where YRType =''<27><>˿'' and BCIID=''' + Trim(maxId) + '''');
sql.Add('and YRId not in (select RTValue from [dbo].[F_Tool_SplitString](''' + Trim(HZYRId) + '''');
sql.Add(', '';'' ))');
ExecSQL;
end;
////////////////////////// <20><><EFBFBD>澭˿<E6BEAD><CBBF><EFBFBD>ȱ<EFBFBD> //////////////////////////
////////////////////////// <20><><EFBFBD><EFBFBD>γ˿<CEB3><CBBF><EFBFBD>ȱ<EFBFBD> //////////////////////////
with CDS_2 do
begin
First;
while not Eof do
begin
if Trim(CDS_2.fieldbyname('YRId').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxpbno, 'RJ', 'BS_Cloth_Yarn', 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_2.fieldbyname('YRId').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Cloth_Yarn where ');
sql.Add(' YRId=''' + Trim(maxpbno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_2.fieldbyname('YRId').AsString) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('YRType').Value := 'γ˿';
FieldByName('BCIID').Value := Trim(maxId);
FieldByName('YRId').Value := Trim(maxpbno);
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_2, 'BS_Cloth_Yarn', 0);
Post;
end;
CDS_2.Edit;
CDS_2.FieldByName('BCIID').Value := Trim(maxId);
CDS_2.FieldByName('YRId').Value := Trim(maxpbno);
Next;
end;
end;
////////////////////////// <20><><EFBFBD><EFBFBD>γ˿<CEB3><CBBF><EFBFBD>ȱ<EFBFBD> //////////////////////////
////////////////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> //////////////////////////
with CDS_4 do
begin
First;
while not Eof do
begin
if Trim(CDS_4.fieldbyname('QZID').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxQZID, 'QZ', 'BS_CLoth_QZ', 4, 1) = False then
raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>');
end
else
begin
maxQZID := Trim(CDS_4.fieldbyname('QZID').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_CLoth_QZ where ');
sql.Add(' QZID=''' + Trim(maxQZID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_4.fieldbyname('QZID').AsString) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('BCIID').Value := Trim(maxId);
FieldByName('QZID').Value := Trim(maxQZID);
RTSetSaveDataCDS(ADOQueryCmd, Tv4, CDS_4, 'BS_CLoth_QZ', 0);
Post;
end;
CDS_4.Edit;
CDS_4.FieldByName('BCIID').Value := Trim(maxId);
CDS_4.FieldByName('QZID').Value := Trim(maxQZID);
Next;
end;
end;
////////////////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> //////////////////////////
ADOQueryCmd.Connection.CommitTrans;
FBCIID := maxId;
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
end;
end;
procedure TfrmTatClothInfoInput.CYJGGYBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
end;
procedure TfrmTatClothInfoInput.ToolButton10Click(Sender: TObject);
begin
if CDS_4.IsEmpty then
exit;
if CDS_4.Locate('ssel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϻ<EFBFBD><CFBA><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ָܻ<DCBB><D6B8><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
CDS_4.DisableControls;
with CDS_4 do
begin
First;
while not Eof do
begin
if CDS_4.FieldByName('SSel').AsBoolean = True then
begin
if Trim(CDS_4.fieldbyname('QZID').AsString) <> '' then
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete BS_CLoth_QZ where QZID=''' + Trim(CDS_4.fieldbyname('QZID').AsString) + '''');
ExecSQL;
end;
CDS_4.Delete;
end
else
Next;
end;
end;
CDS_4.EnableControls;
end;
procedure TfrmTatClothInfoInput.ToolButton11Click(Sender: TObject);
begin
WriteCxGrid(self.Caption + 'TV11', Tv1, '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
WriteCxGrid(self.Caption + 'TV22', Tv2, '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
WriteCxGrid(self.Caption + 'TV44', Tv4, '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
end;
procedure TfrmTatClothInfoInput.ToolButton1Click(Sender: TObject);
var
MC_Code: string;
begin
C_Name.SetFocus;
JSTW();
JSJS();
JSWS();
JSKZ();
if C_Code.Text = '' then
begin
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if C_Name.Text = '' then
begin
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if C_Color.Text = '' then
begin
Application.MessageBox('<27><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if C_Color.Text = '<27><>ɫ' then
begin
if C_ColorNo.Text = '' then
begin
Application.MessageBox('<27><>ɫΪ<C9AB><CEAA>ɫ<EFBFBD><C9AB>ɫ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end;
if C_Width.Text = '' then
begin
Application.MessageBox('<27>ŷ<EFBFBD><C5B7><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if C_ReedNo.Text = '' then
begin
Application.MessageBox('<27>غŲ<D8BA><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if CK.Text = '' then
begin
Application.MessageBox('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if C_YarnQty.Text = '' then
begin
Application.MessageBox('<27><>ͷ<EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if C_MachLatitudeDensity.Text = '' then
begin
Application.MessageBox('<27>»<EFBFBD>γ<EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if C_FinishLatitudeDensity.Text = '' then
begin
Application.MessageBox('<27>ϻ<EFBFBD>γ<EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if C_GramWeight.Text = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>ƽ<EFBFBD><C6BD><EFBFBD><EFBFBD><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if LLKZ.Text = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>׿<EFBFBD><D7BF>ز<EFBFBD><D8B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
CDS_1.First;
if Trim(CDS_1.fieldbyname('Y_Code').AsString) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>дһ<D0B4><D2BB><EFBFBD><EFBFBD>˿ԭ<CBBF>ϣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
with CDS_1 do
begin
while not eof do
begin
if Trim(CDS_1.fieldbyname('Y_Code').AsString) <> '' then
begin
if Trim(CDS_1.fieldbyname('ZSL').AsString) = '' then
begin
Application.MessageBox('֯<><D6AF><EFBFBD>ʲ<EFBFBD><CAB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(CDS_1.fieldbyname('Denier').AsString) = '' then
begin
Application.MessageBox('D<><44><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(CDS_1.fieldbyname('Z_Number').AsString) = '' then
begin
Application.MessageBox('֧<><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(CDS_1.fieldbyname('YarnQty').AsString) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(CDS_1.fieldbyname('CycleYarnQty').AsString) = '' then
begin
Application.MessageBox('ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(CDS_1.fieldbyname('MeterQty').AsString) = '' then
begin
Application.MessageBox('<27><>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end;
next;
end;
end;
CDS_2.First;
if Trim(CDS_2.fieldbyname('Y_Code').AsString) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>дһ<D0B4><D2BB>γ˿ԭ<CBBF>ϣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
with CDS_2 do
begin
while not eof do
begin
if Trim(CDS_2.fieldbyname('Y_Code').AsString) <> '' then
begin
if Trim(CDS_2.fieldbyname('WSSH').AsString) = '' then
begin
Application.MessageBox('γɴ<CEB3><C9B4><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(CDS_2.fieldbyname('Denier').AsString) = '' then
begin
Application.MessageBox('D<><44><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(CDS_2.fieldbyname('Z_Number').AsString) = '' then
begin
Application.MessageBox('֧<><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(CDS_2.fieldbyname('YarnQty').AsString) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(CDS_2.fieldbyname('CycleYarnQty').AsString) = '' then
begin
Application.MessageBox('ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(CDS_2.fieldbyname('MeterQty').AsString) = '' then
begin
Application.MessageBox('<27><>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end;
next;
end;
end;
if trim(C_Code.Text) = '' then
begin
if GetLSNo(ADOQueryCmd, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
C_Code.Text := MC_Code;
end;
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
ModalResult := 1;
end;
end;
procedure TfrmTatClothInfoInput.CKPropertiesEditValueChanged(Sender: TObject);
begin
JSTW();
end;
procedure TfrmTatClothInfoInput.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'Y_Name';
flagname := 'ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
Self.CDS_2.Edit;
Self.CDS_2.FieldByName('Y_Name').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTatClothInfoInput.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmYarnInfoSel := TfrmYarnInfoSel.Create(Application);
with frmYarnInfoSel do
begin
// iSDJ := 0;
// LX := '<27><>ɴ';
if ShowModal = 1 then
begin
with self.CDS_1 do
begin
Edit;
FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value;
FieldByName('Yarn_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Yarn_Name').Value;
FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value;
FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
FieldByName('F_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('F_Number').Value;
FieldByName('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('Z_Number').Value;
FieldByName('BCPH').Value := frmYarnInfoSel.CDS_1.fieldbyname('BCPH').Value;
FieldByName('SXPrice').Value := frmYarnInfoSel.CDS_1.fieldbyname('SXPrice').Value;
FieldByName('SXMoney').Value := 0;
if Trim(frmYarnInfoSel.CDS_1.fieldbyname('ZSL').asstring) = '' then
begin
FieldByName('ZSL').Value := 8;
end
else
begin
FieldByName('ZSL').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZSL').Value;
end;
Post;
end;
JSJS();
JSWS();
JSKZ();
end;
end;
finally
frmYarnInfoSel.Free;
end;
end;
procedure TfrmTatClothInfoInput.cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'Y_Name';
flagname := 'ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
Self.CDS_1.Edit;
Self.CDS_1.FieldByName('Y_Name').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTatClothInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmTatClothInfoInput.C_GramWeightClick(Sender: TObject);
begin
TV1Column1.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV1Column2.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV1Column6.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV1Column15.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV1Column1.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
TV1Column2.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
TV1Column6.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
TV1Column15.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
C_YarnQty.Style.Color := clMoneyGreen;
LLKZ.Style.Color := clMoneyGreen;
TV2Column1.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV2Column2.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV2Column16.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV2Column6.Styles.Header := DataLink_ClothInfo.TextSHuangSe;
TV2Column1.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
TV2Column2.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
TV2Column16.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
TV2Column6.Styles.Content := DataLink_ClothInfo.TextSHuangSe;
C_FinishLatitudeDensity.Style.Color := clMoneyGreen;
end;
procedure TfrmTatClothInfoInput.C_GramWeightExit(Sender: TObject);
begin
TV1Column1.Styles.Header := DataLink_ClothInfo.FontBlue;
TV1Column2.Styles.Header := DataLink_ClothInfo.FontBlue;
TV1Column6.Styles.Header := DataLink_ClothInfo.FontBlue;
TV1Column15.Styles.Header := DataLink_ClothInfo.FontBlue;
TV1Column1.Styles.Content := DataLink_ClothInfo.FontBlue;
TV1Column2.Styles.Content := DataLink_ClothInfo.FontBlue;
TV1Column6.Styles.Content := DataLink_ClothInfo.FontBlue;
TV1Column15.Styles.Content := DataLink_ClothInfo.FontBlue;
C_YarnQty.Style.Color := clFuchsia;
LLKZ.Style.Color := clFuchsia;
TV2Column1.Styles.Header := DataLink_ClothInfo.FontBlue;
TV2Column2.Styles.Header := DataLink_ClothInfo.FontBlue;
TV2Column16.Styles.Header := DataLink_ClothInfo.FontBlue;
TV2Column6.Styles.Header := DataLink_ClothInfo.FontBlue;
TV2Column1.Styles.Content := DataLink_ClothInfo.FontBlue;
TV2Column2.Styles.Content := DataLink_ClothInfo.FontBlue;
TV2Column16.Styles.Content := DataLink_ClothInfo.FontBlue;
TV2Column6.Styles.Content := DataLink_ClothInfo.FontBlue;
C_FinishLatitudeDensity.Style.Color := clWhite;
end;
procedure TfrmTatClothInfoInput.C_ReedNoPropertiesChange(Sender: TObject);
begin
JSTW();
end;
procedure TfrmTatClothInfoInput.C_ReedWidthPropertiesEditValueChanged(Sender: TObject);
begin
JSTW();
JSJS();
JSWS();
JSKZ();
end;
procedure TfrmTatClothInfoInput.C_WidthBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmTatClothInfoInput.C_WidthBtnUpClick(Sender: TObject);
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 ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTatClothInfoInput.C_YarnQtyClick(Sender: TObject);
begin
C_Width.Style.Color := clMoneyGreen;
C_ReedNo.Style.Color := clMoneyGreen;
CK.Style.Color := clMoneyGreen;
end;
procedure TfrmTatClothInfoInput.C_YarnQtyExit(Sender: TObject);
begin
C_Width.Style.Color := clWhite;
C_ReedNo.Style.Color := clWhite;
CK.Style.Color := clWhite;
end;
procedure TfrmTatClothInfoInput.C_YarnQtyPropertiesEditValueChanged(Sender: TObject);
begin
JSJS();
JSWS();
end;
procedure TfrmTatClothInfoInput.Edit1KeyPress(Sender: TObject; var Key: Char);
var
i, j: Integer;
begin
if Key = #13 then
begin
if Edit1.Text <> '' then
begin
i := CDS_4.RecordCount;
i := i + 1;
with CDS_4 do
begin
Append;
FieldByName('SSEL').Value := FALSE;
FieldByName('XuNO').Value := i;
FieldByName('DZZQZGL').Value := Trim(Edit1.Text);
Post;
end;
Edit1.Text := '';
end;
end;
end;
procedure TfrmTatClothInfoInput.CYMFExit(Sender: TObject);
begin
// if pos('"', trim(CYMF.Text)) = 0 then
// begin
// if pos('CM', trim(CYMF.Text)) = 0 then
// CYMF.Text := trim(CYMF.Text) + 'CM';
// end;
end;
procedure TfrmTatClothInfoInput.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
end;
// LaYangDate.DateTime := SGetServerDateTime(ADOQueryTemp);
end;
procedure TfrmTatClothInfoInput.ToolButton6Click(Sender: TObject);
begin
if trim(C_Code.Text) = '' then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
begin
FEditAuthority := True;
fkeyNO := trim(C_Code.Text);
fType := '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
end;
end;
finally
frmAttachmentUpload.Free;
end;
end;
procedure TfrmTatClothInfoInput.ToolButton7Click(Sender: TObject);
begin
// if CDS_2.IsEmpty then
// Exit;
// if Trim(CDS_2.fieldbyname('YRId').AsString) <> '' then
// begin
// 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 BS_Cloth_Yarn where YRId=''' + Trim(CDS_2.fieldbyname('YRId').AsString) + '''');
// ExecSQL;
// end;
// end;
// CDS_2.Delete;
end;
procedure TfrmTatClothInfoInput.ToolButton9Click(Sender: TObject);
var
i, j: Integer;
begin
for j := 0 to 5 do
begin
i := CDS_4.RecordCount;
i := i + 1;
with CDS_4 do
begin
Append;
FieldByName('SSEL').Value := FALSE;
FieldByName('XuNO').Value := i;
Post;
end;
end;
end;
procedure TfrmTatClothInfoInput.TV1Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, TW, ZSL, SXPrice: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
if FFieldName = 'ZSL' then
begin
if mvalue = '' then
mvalue := '8';
end
else
begin
if mvalue = '' then
mvalue := '0';
end;
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //<2F><><EFBFBD><EFBFBD>
end
else
begin
GS := FieldByName('YarnQty').Value; //<2F><><EFBFBD><EFBFBD>
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
end;
ZSL := FieldByName('ZSL').AsFloat;
MF := strtofloatdef(C_Width.text, 0); //<2F>ط<EFBFBD>
if FieldByName('Denier').Value = null then
begin
DS := 0; //D<><44>
end
else
begin
DS := FieldByName('Denier').Value; //D<><44>
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ<><CEB3>
TW := strtofloatdef(C_YarnQty.text, 0); //ͷ<><CDB7>
if FieldByName('SXPrice').Value = null then
begin
SXPrice := 0; //ɴ<>߼۸<DFBC>
end
else
begin
SXPrice := FieldByName('SXPrice').Value; //ɴ<>߼۸<DFBC>
end;
end;
if ZGS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('ZSL').Value := ZSL;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000 * (100 + ZSL) / 100, 2);
FieldByName('SXMoney').Value := roundfloat(GS / ZGS * TW * DS / 9000 * (100 + ZSL) / 100, 2) * SXPrice;
Post;
end;
end;
JSKZ();
end;
procedure TfrmTatClothInfoInput.Tv2Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, WSSH, SXPrice: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
if mvalue = '' then
mvalue := '0';
with CDS_2 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //<2F><><EFBFBD><EFBFBD>
end
else
begin
GS := FieldByName('YarnQty').Value; //<2F><><EFBFBD><EFBFBD>
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
end;
if FieldByName('WSSH').Value = null then
begin
WSSH := 0; //γɴ<CEB3><C9B4><EFBFBD><EFBFBD>
end
else
begin
WSSH := FieldByName('WSSH').Value; //γɴ<CEB3><C9B4><EFBFBD><EFBFBD>
end;
MF := strtofloatdef(C_Width.text, 0); //<2F>ط<EFBFBD>
if FieldByName('Denier').Value = null then
begin
DS := 0; //D<><44>
end
else
begin
DS := FieldByName('Denier').Value; //D<><44>
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ<><CEB3>
if FieldByName('SXPrice').Value = null then
begin
SXPrice := 0; //ɴ<>߼۸<DFBC>
end
else
begin
SXPrice := FieldByName('SXPrice').Value; //ɴ<>߼۸<DFBC>
end;
end;
if ZGS <> 0 then
begin
with CDS_2 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * (MF + WSSH) * DS * WM / 9000, 2);
FieldByName('SXMoney').Value := roundfloat(GS / ZGS * (MF + WSSH) * DS * WM / 9000, 2) * SXPrice;
Post;
end;
end;
JSKZ();
end;
procedure TfrmTatClothInfoInput.v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmYarnInfoSel := TfrmYarnInfoSel.Create(Application);
with frmYarnInfoSel do
begin
// LX := 'γɴ';
if ShowModal = 1 then
begin
with self.CDS_2 do
begin
Edit;
FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value;
FieldByName('Yarn_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Yarn_Name').Value;
FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value;
FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
FieldByName('F_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('F_Number').Value;
FieldByName('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('Z_Number').Value;
FieldByName('YLLX').Value := frmYarnInfoSel.CDS_1.fieldbyname('YLLX').Value;
FieldByName('WSSH').Value := frmYarnInfoSel.CDS_1.fieldbyname('WSSH').Value;
FieldByName('BCPH').Value := frmYarnInfoSel.CDS_1.fieldbyname('BCPH').Value;
FieldByName('SXPrice').Value := frmYarnInfoSel.CDS_1.fieldbyname('SXPrice').Value;
FieldByName('SXMoney').Value := 0;
Post;
end;
JSJS();
JSWS();
JSKZ();
end;
end;
finally
frmYarnInfoSel.Free;
end;
end;
procedure TfrmTatClothInfoInput.WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmWBSpecSel := TfrmWBSpecSel.Create(Application);
with frmWBSpecSel do
begin
if ShowModal = 1 then
begin
Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString);
Self.C_YarnQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').AsString);
Self.C_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
Self.C_Width.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
Self.Y_Note_PLJ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add(' select * from Tat_WB_Formula ');
sql.Add(' where WBSID=''' + Trim(frmWBSpecSel.CDS_1.fieldbyname('WBSID').AsString) + '''');
sql.Add(' Order by RowNo ');
Open;
end;
self.CDS_1.EmptyDataSet;
self.ADOQuery1.First;
while not ADOQuery1.eof do
begin
with self.CDS_1 do
begin
APpend;
FieldByName('RowNo').Value := ADOQuery1.fieldbyname('RowNo').Value;
FieldByName('Y_Code').Value := ADOQuery1.fieldbyname('Y_Code').Value;
FieldByName('Yarn_Name').Value := ADOQuery1.fieldbyname('Yarn_Name').Value;
FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value;
FieldByName('Denier').Value := ADOQuery1.fieldbyname('Denier').Value;
FieldByName('Z_Number').Value := ADOQuery1.fieldbyname('Z_Number').Value;
FieldByName('F_Number').Value := ADOQuery1.fieldbyname('F_Number').Value;
Post;
end;
ADOQuery1.next;
end;
end;
end;
finally
frmWBSpecSel.Free;
end;
end;
end.
Reference in New Issue Copy Permalink