Group_99/D7szYidui
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
ef99fc8b5e
D7szYidui/梭织计划单(ShuttleSchedule.dll)/U_PlanCardList.pas

1873 lines
58 KiB
ObjectPascal
Raw Normal View History

移交
2025-07-19 09:32:10 +08:00
unit U_PlanCardList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC,
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
cxContainer, cxMaskEdit, Math;
type
TfrmPlanCardList = class(TForm)
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_Plan: TDataSource;
RM1: TRMGridReport;
RMXLSExport1: TRMXLSExport;
RMDBPRT: TRMDBDataSet;
Panel2: TPanel;
Panel3: TPanel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column7: TcxGridDBColumn;
v1OrderNo: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column31: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1PRTMF: TcxGridDBColumn;
v1PRTKZ: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column30: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Panel1: TPanel;
Label1: TLabel;
Label3: TLabel;
Label5: TLabel;
Label10: TLabel;
Label6: TLabel;
Label7: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
ConNo: TEdit;
P_CodeName: TEdit;
P_Code: TEdit;
BatchNo: TEdit;
KHNAME: TEdit;
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
Panel4: TPanel;
Panel5: TPanel;
edtPiE: TEdit;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Label4: TLabel;
cxTabControl1: TcxTabControl;
Label8: TLabel;
edtTouWen: TEdit;
Label9: TLabel;
edtQJingG: TEdit;
Label11: TLabel;
edtLen: TEdit;
Label2: TLabel;
edtFS: TEdit;
DS_Card: TDataSource;
CDS_Card: TClientDataSet;
cxGridPopupMenu2: TcxGridPopupMenu;
Button3: TButton;
CDS_Prt: TClientDataSet;
ADOQueryPrint: TADOQuery;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
APMachineNo: TEdit;
Button4: TButton;
Button1: TButton;
ToolButton1: TToolButton;
N2: TMenuItem;
N3: TMenuItem;
v1Column8: TcxGridDBColumn;
Label12: TLabel;
edtShangP: TEdit;
V2Column3: TcxGridDBColumn;
V2Column4: TcxGridDBColumn;
Label13: TLabel;
edtKaNo: TEdit;
V2Column1: TcxGridDBColumn;
Label14: TLabel;
edZDFNo: TEdit;
V2Column2: TcxGridDBColumn;
CDS_PJS: TClientDataSet;
RMDB_JS: TRMDBDataSet;
CDS_PWS: TClientDataSet;
RMDB_WS: TRMDBDataSet;
CDS_CZ: TClientDataSet;
RMDB_CZ: TRMDBDataSet;
CDS_QZ: TClientDataSet;
RMDB_QZ: TRMDBDataSet;
Button2: TButton;
Button5: TButton;
Tv1Column1: TcxGridDBColumn;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
edtMenFu: TEdit;
edtTiaoshu: TEdit;
edtTiaoKuan: TEdit;
edtYiSiLiang: TEdit;
edtGangKou: TEdit;
Label20: TLabel;
Label21: TLabel;
ZJPiLen: TEdit;
TV2Column1: TcxGridDBColumn;
cbbSYYL: TcxButtonEdit;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
ADOQuery1: TADOQuery;
Tv1Column2: TcxGridDBColumn;
Label22: TLabel;
edtgenshu: TEdit;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
RMDB_Main: TRMDBDataSet;
CDS_PM: TClientDataSet;
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
CDS_YarnJX: TClientDataSet;
DS_YarnJX: TDataSource;
CDS_YarnWX: TClientDataSet;
DS_YarnWX: TDataSource;
CDS_PLAN: TClientDataSet;
Label23: TLabel;
ZZCHEJIAN: TcxButtonEdit;
Label24: TLabel;
MKCR: TEdit;
Panel6: TPanel;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
TV3Column1: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
Panel7: TPanel;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
TV4Column1: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
GroupBox2: TGroupBox;
Y_Note_PLW: TMemo;
Panel8: TPanel;
GroupBox3: TGroupBox;
Y_Note_PLQJ: TMemo;
GroupBox1: TGroupBox;
Y_Note_PLJ: TMemo;
Tv1Column3: TcxGridDBColumn;
Label25: TLabel;
Note: TEdit;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Label26: TLabel;
SXCS: TComboBox;
Label27: TLabel;
edtsjwm: TEdit;
TV2Column4: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure edtQJingGClick(Sender: TObject);
procedure P_CodeChange(Sender: TObject);
procedure cxGridDBColumn11PropertiesEditValueChanged(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure cbbSYYLPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure TV3Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TV4Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure cxGridDBColumn8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton5Click(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure edtLenChange(Sender: TObject);
procedure edtPiEExit(Sender: TObject);
procedure Tv1Column8PropertiesChange(Sender: TObject);
private
FInt, PFInt: Integer;
FMainId, FS, FFPCId: string;
procedure InitGrid();
procedure InitForm();
function SaveData(): Boolean;
procedure PrtDate(MPCid: string);
procedure DelCard(MPCid: string);
procedure InitCard(MSubid: string);
{ Private declarations }
public
canshu1, FCheJian: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_Fun, U_ZDYHelp, U_ZdyMapSel, U_ZdyAttachGYS, U_ZDYHelp2;
{$R *.dfm}
procedure TfrmPlanCardList.InitCard(MSubid: string);
begin
try
ADOQueryTemp.DisableControls;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.* ');
sql.Add(' from PD_Plan_Card A inner join PD_Plan_Card_MS B on A.PCID=B.PCID');
sql.Add(' where B.Subid=' + quotedstr(Trim(MSubid)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_Card);
SInitCDSData20(ADOQueryTemp, CDS_Card);
finally
ADOQueryTemp.EnableControls;
end;
end;
procedure TfrmPlanCardList.DelCard(MPCid: string);
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' select * from PD_Plan_AnPai where PCID=' + quotedstr(Trim(MPCid)));
Open;
end;
if ADOQueryCmd.IsEmpty = False then
begin
Application.MessageBox('<27>Ѵ<EFBFBD>ӡ<EFBFBD><D3A1>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>!', '<27><>ʾ', 0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
close;
sql.Clear;
// sql.Add(' Update PD_Plan_Card Set DelTime=getdate(),DelName=''' + Trim(DName) + ''',DelCode=''' + Trim(DCode) + '''');
// sql.Add(' where PCID=' + quotedstr(Trim(MPCid)));
sql.Add(' delete PD_Plan_Card where PCID=' + quotedstr(Trim(MPCid)));
// sql.Add(' Update PD_Plan_Card_MS Set DelTime=getdate(),DelName=''' + Trim(DName) + ''',DelCode=''' + Trim(DCode) + '''');
// sql.Add(' where PCID=' + quotedstr(Trim(MPCid)));
sql.Add(' delete PD_Plan_Card_MS where PCID=' + quotedstr(Trim(MPCid)));
sql.Add(' delete PD_Plan_Yarn_CAR where PCID=' + quotedstr(Trim(MPCid)));
// ShowMessage(sql.text );
execsql;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ɾ<><C9BE>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
end;
end;
procedure TfrmPlanCardList.PrtDate(MPCid: string);
var
fPrintFile, FFCYID: string;
DPS, i, j: Integer;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
ExportFtErpFile('<27>Ῠ<EFBFBD><E1BFA8>ǩ.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C>Ῠ<EFBFBD><E1BFA8>ǩ.rmf';
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update PD_Plan_Card set PrtFlag=PrtFlag+1 ');
sql.Add(' where PCID=' + quotedstr(MPCid));
ExecSQL;
end;
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.Add('select D.*,A.*,B.* ');
sql.Add(',P_Code2=(STUFF(( SELECT '','' +convert(VARCHAR, P_Code) FROM PD_Plan_sub e ');
sql.Add('inner join PD_Plan_Card_MS f on e.Subid=f.Subid and f.PCID=' + quotedstr(MPCid));
sql.Add('FOR XML PATH('''')), 1, 1, '''') )');
sql.Add(' from PD_Plan_Main A inner join PD_Plan_Sub B on A.Mainid=B.MainId');
sql.Add(' inner join PD_Plan_Card_MS C on C.Subid=B.Subid ');
sql.Add(' inner join PD_Plan_Card D on C.PCID=D.PCID ');
sql.Add(' where D.PCID=' + quotedstr(MPCid));
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS20(ADOQueryPrint, CDS_PM);
SInitCDSData20(ADOQueryPrint, CDS_PM);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select Y.* from PD_Plan_Yarn_car Y INNER JOIN PD_Plan_Card_MS M ON M.MainId=Y.MainId where Y.PYType=''<27><>˿'' and M.mainid=' + Quotedstr(Trim(CDS_PLAN.fieldbyname('mainid').AsString)));
sql.Add(' and M.PCID=' + quotedstr(MPCid));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_PJS);
SInitCDSData20(ADOQueryTemp, CDS_PJS);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select Y.* from PD_Plan_Yarn_car Y INNER JOIN PD_Plan_Card_MS M ON M.MainId=Y.MainId where Y.PYType=''γ˿'' and M.mainid=' + Quotedstr(Trim(CDS_PLAN.fieldbyname('mainid').AsString)));
sql.Add(' and M.PCID=' + quotedstr(MPCid));
//ShowMessage(SQL.Text);
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_PWS);
SInitCDSData20(ADOQueryTemp, CDS_PWS);
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(MPCid);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\' + MPCid + '.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE'] := fImagePath;
//RM1.ShowPrintDialog := False;
RM1.LoadFromFile(fPrintFile);
RM1.DefaultCopies := 1;
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
Exit;
end;
if FileExists(fImagePath) then
DeleteFile(fImagePath);
end;
function TfrmPlanCardList.SaveData(): Boolean;
var
maxno, maxsubno, maxpbno, maxpzno, maxsjno: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
///////////////////////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>Ῠ//////////////////////////////
if GetLSNo(ADOQueryCmd, maxno, 'PC', 'PD_Plan_Card', 4, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from PD_Plan_Card where 1=2 ');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('PCid').Value := Trim(maxno);
FieldByName('C_TouWen').Value := Trim(edtTouWen.Text);
FieldByName('ZJPiLen').Value := Trim(ZJPiLen.Text);
FieldByName('SXCS').Value := Trim(SXCS.Text);
FieldByName('C_QJingG').Value := Trim(edtQJingG.Text);
FieldByName('C_PiE').Value := Trim(edtPiE.Text);
FieldByName('C_Len').Value := Trim(edtLen.Text);
FieldByName('C_ShangPai').Value := Trim(edtShangP.Text);
FieldByName('APMachineNo').Value := Trim(APMachineNo.Text);
FieldByName('edtKaNo').Value := Trim(edtKaNo.Text);
FieldByName('edZDFNo').Value := Trim(edZDFNo.Text);
FieldByName('Filler').Value := Trim(DName);
FieldByName('Tiaoshu').Value := Trim(edtTiaoshu.Text);
FieldByName('genshu').Value := Trim(edtgenshu.Text);
FieldByName('MenFu').Value := Trim(edtMenFu.Text);
FieldByName('TiaoKuan').Value := Trim(edtTiaoKuan.Text);
FieldByName('YiSiLiang').Value := Trim(edtYiSiLiang.Text);
FieldByName('GangKou').Value := Trim(edtGangKou.Text);
FieldByName('SYYL').Value := Trim(cbbSYYL.Text);
FieldByName('C_SJWM').Value := Trim(edtsjwm.Text);
FieldByName('ZZCHEJIAN').Value := Trim(ZZCHEJIAN.Text);
FieldByName('mkcr').Value := Trim(mkcr.Text);
Post;
end;
///////////////////////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>Ῠ//////////////////////////////
///////////////////////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD>//////////////////////////////
///////////////////////////////////<2F><>˿<EFBFBD><CBBF><EFBFBD><EFBFBD>//////////////////////////////
{
with CDS_YarnJX do
begin
First;
while not Eof do
begin
if Trim(CDS_YarnJX.fieldbyname('PYId').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxpbno, 'PY', 'PD_Plan_Yarn_CAR', 4, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><>˿<EFBFBD><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxpbno := Trim(CDS_YarnJX.fieldbyname('PYId').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from PD_Plan_Yarn_Car where ');
sql.Add(' PYId=''' + Trim(maxpbno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_YarnJX.fieldbyname('PYId').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('PYType').Value := '<27><>˿';
FieldByName('MainId').Value := Trim(CDS_Plan.FieldByName('MainId').Value);
FieldByName('SubId').Value := Trim(CDS_Plan.FieldByName('subid').Value);
FieldByName('PCID').Value := Trim(maxno);
FieldByName('PYID').Value := Trim(maxpbno);
FieldByName('Y_Note_PL').Value := Trim(Y_Note_PLJ.Text);
FieldByName('Y_Note_PLQJ').Value := Trim(Y_Note_PLQJ.Text);
RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_YarnJX, 'PD_Plan_Yarn_CAR', 0);
Post;
end;
CDS_YarnJX.Edit;
CDS_YarnJX.FieldByName('SubId').Value := Trim(CDS_Plan.FieldByName('subid').Value);
CDS_YarnJX.FieldByName('MainId').Value := Trim(CDS_Plan.FieldByName('MainId').Value);
CDS_YarnJX.FieldByName('PYId').Value := Trim(maxpbno);
Next;
end;
end;
///////////////////////////////////<2F><>˿<EFBFBD><CBBF><EFBFBD><EFBFBD>//////////////////////////////
///////////////////////////////////γ˿<CEB3><CBBF><EFBFBD><EFBFBD>//////////////////////////////
with CDS_YarnWX do
begin
First;
while not Eof do
begin
if Trim(CDS_YarnWX.fieldbyname('PYId').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxpbno, 'PY', 'PD_Plan_Yarn_CAR', 4, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('γ˿<CEB3><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxpbno := Trim(CDS_YarnWX.fieldbyname('PYId').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from PD_Plan_Yarn_CAR where ');
sql.Add(' PYId=''' + Trim(maxpbno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_YarnWX.fieldbyname('PYId').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('PCID').Value := Trim(maxno);
FieldByName('PYType').Value := 'γ˿';
FieldByName('MainId').Value := Trim(CDS_Plan.FieldByName('MainId').Value);
FieldByName('SubId').Value := Trim(CDS_Plan.FieldByName('subid').Value);
FieldByName('PYID').Value := Trim(maxpbno);
FieldByName('Y_Note_PL').Value := Trim(Y_Note_PLW.Text);
RTSetSaveDataCDS(ADOQueryCmd, Tv4, CDS_YarnWX, 'PD_Plan_Yarn_CAR', 0);
Post;
end;
CDS_YarnwX.Edit;
CDS_YarnwX.FieldByName('SubId').Value := Trim(CDS_Plan.FieldByName('subid').Value);
CDS_YarnwX.FieldByName('MainId').Value := Trim(CDS_Plan.FieldByName('mainid').Value);
CDS_YarnwX.FieldByName('PYId').Value := Trim(maxpbno);
Next;
end;
end;
///////////////////////////////////γ˿<CEB3><CBBF><EFBFBD><EFBFBD>//////////////////////////////
}
///////////////////////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD>//////////////////////////////
///////////////////////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>//////////////////////////////
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('UPDATE Contract_Sub SET SFPaiZ= ''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
SQL.Add(' FROM Contract_Sub A inner join Contract_Main B on B.ConMainId=A.ConMainId ');
SQL.Add(' WHERE A.P_Code=' + QuotedStr(Trim(CDS_Plan.FieldByName('P_Code').AsString)));
SQL.Add(' and B.ConNo=' + QuotedStr(Trim(CDS_Plan.FieldByName('ConNo').AsString)));
//ShowMessage(SQL.Text);
ExecSQL;
end;
with CDS_Plan do
begin
while Locate('SSel', True, []) do
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from PD_Plan_Card_MS where 1=2');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('MainId').Value := CDS_Plan.FieldByName('MainId').Value;
FieldByName('SubId').Value := CDS_Plan.FieldByName('SubId').Value;
FieldByName('PCId').Value := Trim(maxno);
Post;
end;
CDS_Plan.Edit;
CDS_Plan.FieldByName('ssel').AsBoolean := false;
end;
end;
/////////////////////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>//////////////////////////////
ADOQueryCmd.Connection.CommitTrans;
PrtDate(maxno);
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
end;
end;
procedure TfrmPlanCardList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmPlanCardList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.*,APPS=(select count(APID) from PD_Plan_AnPai X where X.Mainid=A.Mainid) ');
sql.Add(',SCZT=(case when (select count(*) from PD_Plan_Yarn_CAR E WHERE E.SUBID=B.SUBID )>0 THEN ''1'' ELSE ''0'' END )');
sql.Add(' from PD_Plan_Main A inner join PD_Plan_Sub B on A.Mainid=B.MainId');
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' where ISNULL(A.ConNoStatu, '''') <>''<27><>ȡ<EFBFBD><C8A1>'' and not exists( select B.SubId from PD_Plan_Card X inner join PD_Plan_Card_MS Y on X.PCId=Y.PCId where Y.SubId=B.SubId )');
end;
1:
begin
sql.Add(' where ISNULL(A.ConNoStatu, '''') <>''<27><>ȡ<EFBFBD><C8A1>'' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
sql.Add(' and exists(select B.SubId from PD_Plan_Card X inner join PD_Plan_Card_MS Y on X.PCId=Y.PCId where Y.SubId=B.SubId )');
end;
end;
sql.Add('and a.valid=''Y''');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS20(ADOQueryMain, CDS_Plan);
SInitCDSData20(ADOQueryMain, CDS_Plan);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmPlanCardList.InitForm();
var
f1, f2: string;
begin
ReadCxGrid(Trim(self.Caption), Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1');
ReadCxGrid(Trim(self.Caption), Tv2, '<27><><EFBFBD><EFBFBD><EFBFBD>Ῠ');
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 30;
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
InitGrid();
end;
procedure TfrmPlanCardList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmPlanCardList.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmPlanCardList.Button1Click(Sender: TObject);
var
i: Integer;
begin
cxGrid1.Enabled := False;
// if Trim(edZDFNo.Text) = '' then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
if CDS_Plan.Locate('SSel', True, []) = False then
begin
cxGrid1.Enabled := True;
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if ZZCHEJIAN.Text = '' then
begin
Application.MessageBox('֯<>쳵<EFBFBD>䲻<EFBFBD><E4B2BB>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
for i := 1 to StrToIntDef(edtFS.Text, 0) do
begin
if SaveData() then
begin
end;
end;
InitCard(CDS_Plan.FieldByName('Subid').AsString);
cxGrid1.Enabled := True;
end;
procedure TfrmPlanCardList.Button3Click(Sender: TObject);
begin
while CDS_Card.Locate('SSel', True, []) do
begin
PrtDate(Trim(CDS_Card.FieldByName('PCID').AsString));
CDS_Card.Edit;
CDS_Card.FieldByName('SSel').Value := False;
end;
end;
procedure TfrmPlanCardList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, CDS_Plan);
SInitCDSData20(ADOQueryMain, CDS_Plan);
end;
procedure TfrmPlanCardList.N1Click(Sender: TObject);
begin
if CDS_Card.IsEmpty then
Exit;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
while CDS_Card.Locate('SSel', True, []) do
begin
DelCard(Trim(CDS_Card.FieldByName('PCID').AsString));
CDS_Card.Delete;
end;
InitCard(CDS_Plan.FieldByName('Subid').AsString);
end;
procedure TfrmPlanCardList.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmPlanCardList.Button4Click(Sender: TObject);
begin
try
frmZdyMapSel := TfrmZdyMapSel.Create(self);
with frmZdyMapSel do
begin
FInitSql := 'select MachNo Note,MachNo ZDYName from BS_Machine where MachType=''Ǥ<><C7A4><EFBFBD><EFBFBD>'' order by MachNo ';
if ShowModal = 1 then
begin
APMachineNo.Text := frmZdyMapSel.FZdyName;
end;
end;
finally
frmZdyMapSel.Free;
end;
end;
procedure TfrmPlanCardList.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(Trim(self.Caption), Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1');
WriteCxGrid(Trim(self.Caption), Tv2, '<27><><EFBFBD><EFBFBD><EFBFBD>Ῠ');
Close;
end;
procedure TfrmPlanCardList.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Card, True);
end;
procedure TfrmPlanCardList.N3Click(Sender: TObject);
begin
SelOKNo(CDS_Card, False);
end;
procedure TfrmPlanCardList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
// InitCard(CDS_Plan.FieldByName('Subid').AsString);
//
// edtTouWen.Text := Trim(CDS_Plan.FieldByName('JX_Wai').AsString);
// ZJPiLen.Text := Trim(CDS_Plan.FieldByName('ZJPiLen').AsString);
// with ADOQuery1 do
// begin
// Close;
// sql.Clear;
// sql.Add('select top 1 A.*,B.* ');
// sql.Add(' from PD_Plan_Card A inner join PD_Plan_Card_MS B on A.PCID=B.PCID');
// sql.Add(' where B.Subid=' + quotedstr(Trim(CDS_Plan.FieldByName('Subid').AsString)));
// sql.Add(' order by A.filltime desc ');
// Open;
// end;
// edZDFNo.text := Trim(ADOQuery1.FieldByName('edZDFNo').AsString);
// APMachineNo.text := Trim(ADOQuery1.FieldByName('APMachineNo').AsString);
// edtKaNo.text := Trim(ADOQuery1.FieldByName('edtKaNo').AsString);
// edtQJingG.text := Trim(ADOQuery1.FieldByName('C_QJingG').AsString);
// edtPiE.text := Trim(ADOQuery1.FieldByName('C_PiE').AsString);
// edtLen.text := Trim(ADOQuery1.FieldByName('C_Len').AsString);
// edtShangP.text := Trim(ADOQuery1.FieldByName('C_ShangPai').AsString);
// edtTiaoshu.text := Trim(ADOQuery1.FieldByName('TiaoShu').AsString);
//
// edtgenshu.text := Trim(ADOQuery1.FieldByName('genshu').AsString);
//
// edtMenFu.text := Trim(ADOQuery1.FieldByName('MenFu').AsString);
// edtTiaoKuan.text := Trim(ADOQuery1.FieldByName('TiaoKuan').AsString);
// edtYiSiLiang.text := Trim(ADOQuery1.FieldByName('YiSiLiang').AsString);
// edtGangKou.text := Trim(ADOQuery1.FieldByName('GangKou').AsString);
// cbbSYYL.text := Trim(ADOQuery1.FieldByName('SYYL').AsString);
end;
procedure TfrmPlanCardList.edtQJingGClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'edtQJingG';
flagname := 'Ǥ<><C7A4><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
edtQJingG.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmPlanCardList.P_CodeChange(Sender: TObject);
begin
if ADOQuerymain.Active = False then
Exit;
SDofilter(ADOQuerymain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQuerymain, CDS_Plan);
SInitCDSData20(ADOQuerymain, CDS_Plan);
CDS_PLAN.First;
Tv1Column8PropertiesChange(Sender);
end;
procedure TfrmPlanCardList.cxGridDBColumn11PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_Card do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate PD_Plan_Card ');
sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
sql.Add(' where PCid=' + quotedstr(CDS_Card.fieldbyname('PCid').AsString));
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
tv2.Controller.EditingController.ShowEdit();
except
tv2.Controller.EditingController.ShowEdit();
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
end
end;
procedure TfrmPlanCardList.Button2Click(Sender: TObject);
var
i: Integer;
begin
if CDS_Card.IsEmpty then
Exit;
if CDS_Card.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
i := 0;
with CDS_Card do
begin
while CDS_Card.Locate('SSel', True, []) = True do
begin
i := i + 1;
Edit;
CDS_Card.FieldByName('SSel').Value := False;
Post;
if i > 1 then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ', 0);
edZDFNo.Text := '';
APMachineNo.Text := '';
edtKaNo.Text := '';
edtTouWen.Text := '';
edtQJingG.Text := '';
edtPiE.Text := '';
edtLen.Text := '';
edtShangP.Text := '';
FFPCId := '';
Exit;
Break;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from PD_Plan_Card A ');
sql.Add(' where A.PCId=' + quotedstr(Trim(CDS_Card.fieldbyname('PCid').AsString)));
Open;
end;
if CDS_Card.IsEmpty = False then
begin
edZDFNo.Text := Trim(ADOQueryCmd.fieldbyname('edZDFNo').AsString);
APMachineNo.Text := Trim(ADOQueryCmd.fieldbyname('APMachineNo').AsString);
edtKaNo.Text := Trim(ADOQueryCmd.fieldbyname('edtKaNo').AsString);
edtTouWen.Text := Trim(ADOQueryCmd.fieldbyname('C_TouWen').AsString);
edtQJingG.Text := Trim(ADOQueryCmd.fieldbyname('C_QJingG').AsString);
edtPiE.Text := Trim(ADOQueryCmd.fieldbyname('C_PiE').AsString);
edtLen.Text := Trim(ADOQueryCmd.fieldbyname('C_Len').AsString);
edtShangP.Text := Trim(ADOQueryCmd.fieldbyname('C_ShangPai').AsString);
FFPCId := Trim(CDS_Card.fieldbyname('PCid').AsString);
edtTiaoshu.Text := Trim(ADOQueryCmd.fieldbyname('tiaoshu').AsString);
edtMenFu.Text := Trim(ADOQueryCmd.fieldbyname('MenFu').AsString);
edtTiaoKuan.Text := Trim(ADOQueryCmd.fieldbyname('TiaoKuan').AsString);
edtYiSiLiang.Text := Trim(ADOQueryCmd.fieldbyname('YiSiLiang').AsString);
edtsjwm.Text := Trim(ADOQueryCmd.fieldbyname('C_SJWM').AsString);
edtGangKou.Text := Trim(ADOQueryCmd.fieldbyname('GangKou').AsString);
ZJPiLen.Text := Trim(ADOQueryCmd.fieldbyname('ZJPiLen').AsString);
edtTouWen.Text := Trim(ADOQueryCmd.fieldbyname('C_TouWen').AsString);
cbbSYYL.Text := Trim(ADOQueryCmd.fieldbyname('SYYL').AsString);
ZZCHEJIAN.Text := Trim(ADOQueryCmd.fieldbyname('ZZCHEJIAN').AsString);
MKCR.Text := Trim(ADOQueryCmd.fieldbyname('MKCR').AsString);
end;
Next;
end;
end;
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from PD_Plan_Yarn_CAR where PYType=''<27><>˿'' and SubID=' + quotedstr(Trim(CDS_Card.fieldbyname('SubID').AsString)));
//// ShowMessage(sql.text);
// Open;
// end;
// SCreateCDS20(ADOQueryTemp, CDS_YarnJX);
// SInitCDSData20(ADOQueryTemp, CDS_YarnJX);
//
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from PD_Plan_Yarn_CAR where PYType=''γ˿'' and SubID=' + quotedstr(Trim(CDS_Card.fieldbyname('SubID').AsString)));
//
// Open;
// end;
// SCreateCDS20(ADOQueryTemp, CDS_YarnWX);
// SInitCDSData20(ADOQueryTemp, CDS_YarnWX);
Button1.Enabled := False;
Button3.Enabled := False;
edtFS.Enabled := False;
end;
procedure TfrmPlanCardList.Button5Click(Sender: TObject);
begin
// if Trim(edZDFNo.Text) = '' then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('UPdate PD_Plan_Card ');
sql.Add(' Set edZDFNo=' + quotedstr(Trim(edZDFNo.Text)));
sql.Add(' ,APMachineNo=' + quotedstr(Trim(APMachineNo.Text)));
sql.Add(' ,edtKaNo=' + quotedstr(Trim(edtKaNo.Text)));
sql.Add(' ,C_TouWen=' + quotedstr(Trim(edtTouWen.Text)));
sql.Add(' ,C_QJingG=' + quotedstr(Trim(edtQJingG.Text)));
sql.Add(' ,C_ShangPai=' + quotedstr(Trim(edtShangP.Text)));
sql.Add(' ,C_sjwm=' + quotedstr(Trim(edtsjwm.Text)));
sql.Add(' ,C_PiE=' + quotedstr(Trim(edtPiE.Text)));
sql.Add(' ,C_Len=' + quotedstr(Trim(edtLen.Text)));
sql.Add(' ,tiaoshu=' + quotedstr(Trim(edtTiaoshu.Text)));
sql.Add(' ,genshu=' + quotedstr(Trim(edtgenshu.Text)));
sql.Add(' ,MenFu=' + quotedstr(Trim(edtMenFu.Text)));
sql.Add(' ,TiaoKuan=' + quotedstr(Trim(edtTiaoKuan.Text)));
sql.Add(' ,YiSiLiang=' + quotedstr(Trim(edtYiSiLiang.Text)));
sql.Add(' ,GangKou=' + quotedstr(Trim(edtGangKou.Text)));
sql.Add(' ,ZJPiLen=' + quotedstr(Trim(ZJPiLen.Text)));
sql.Add(' ,SYYL=' + quotedstr(Trim(cbbSYYL.Text)));
sql.Add(' ,MKCR=' + quotedstr(Trim(MKCR.Text)));
sql.Add(' ,ZZCHEJIAN=' + quotedstr(Trim(ZZCHEJIAN.Text)));
sql.Add(' ,Editer=' + quotedstr(Trim(DName)));
sql.Add(' ,Edittime=GETDATE()');
sql.Add(' where PCid=' + quotedstr(Trim(FFPCId)));
ExecSQL;
end;
///////////////////////////////////<2F><>˿<EFBFBD><CBBF><EFBFBD><EFBFBD>//////////////////////////////
///////////////////////////////////γ˿<CEB3><CBBF><EFBFBD><EFBFBD>//////////////////////////////
finally
ADOQueryMain.EnableControls;
Application.MessageBox('<27>޸ijɹ<C4B3><C9B9><EFBFBD>', '<27><>ʾ', 0);
Button1.Enabled := True;
Button3.Enabled := True;
edtFS.Enabled := True;
edZDFNo.Text := '';
APMachineNo.Text := '';
edtKaNo.Text := '';
edtTouWen.Text := '';
edtQJingG.Text := '';
edtPiE.Text := '';
edtLen.Text := '';
edtShangP.Text := '';
FFPCId := '';
InitCard(CDS_Plan.FieldByName('Subid').AsString);
end
end;
procedure TfrmPlanCardList.cbbSYYLPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(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
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmPlanCardList.ToolButton2Click(Sender: TObject);
var
maxpbno: string;
tMAINID, TORDERNO: string;
begin
if CDS_PLAN.FieldByName('ssel').Value = False then
begin
Application.MessageBox('<27><>ѡ<EFBFBD>к<EFBFBD><D0BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox(PAnsiChar('ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>浽' + CDS_PLAN.FIELDBYNAME('orderno').ASSTRING + '<27><><EFBFBD><EFBFBD>'), '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
panel3.Enabled := False;
tMAINID := CDS_PLAN.FIELDBYNAME('MAINID').ASSTRING;
CDS_PLAN.DisableControls;
try
with ADOQueryTemp do
begin
Close;
sql.Clear;
SQL.Add('UPDATE PD_Plan_Main SET C_edZDFNo=' + QuotedStr(edZDFNo.Text));
SQL.Add(',C_APMachineNo=' + QuotedStr(APMachineNo.Text));
SQL.Add(',C_edtKaNo=' + QuotedStr(edtKaNo.Text));
SQL.Add(',C_edtTouWen=' + QuotedStr(edtTouWen.Text));
SQL.Add(',C_edtQJingG=' + QuotedStr(edtQJingG.Text));
SQL.Add(',C_edtPiE=' + QuotedStr(edtPiE.Text));
SQL.Add(',C_edtLen=' + QuotedStr(edtLen.Text));
SQL.Add(',C_edtFS=' + QuotedStr(edtFS.Text));
SQL.Add(',C_edtShangP=' + QuotedStr(edtShangP.Text));
SQL.Add(',C_edtTiaoshu=' + QuotedStr(edtTiaoshu.Text));
SQL.Add(',C_edtgenshu=' + QuotedStr(edtgenshu.Text));
SQL.Add(',C_edtMenFu=' + QuotedStr(edtMenFu.Text));
SQL.Add(',C_edtTiaoKuan=' + QuotedStr(edtTiaoKuan.Text));
SQL.Add(',C_edtYiSiLiang=' + QuotedStr(edtYiSiLiang.Text));
SQL.Add(',C_edtGangKou=' + QuotedStr(edtGangKou.Text));
SQL.Add(',C_cbbSYYL=' + QuotedStr(cbbSYYL.Text));
SQL.Add(',C_ZJPiLen=' + QuotedStr(ZJPiLen.Text));
SQL.Add(',C_SXCS=' + QuotedStr(SXCS.Text));
SQL.Add(',C_ZZCHEJIAN=' + QuotedStr(ZZCHEJIAN.Text));
SQL.Add(',C_MKCR=' + QuotedStr(MKCR.Text));
SQL.Add(',GYNote=' + QuotedStr(Note.Text));
SQL.Add('where mainid=' + QuotedStr(tMAINID));
ExecSQL;
end;
with CDS_YarnJX do
begin
First;
while not Eof do
begin
if Trim(CDS_YarnJX.fieldbyname('PYId').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxpbno, 'PY', 'PD_Plan_Yarn_CAR', 4, 1) = False then
begin
CDS_PLAN.EnableControls;
Application.MessageBox('<27><>˿<EFBFBD><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxpbno := Trim(CDS_YarnJX.fieldbyname('PYId').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from PD_Plan_Yarn_Car where ');
sql.Add(' PYId=''' + Trim(maxpbno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_YarnJX.fieldbyname('PYId').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('PYType').Value := '<27><>˿';
FieldByName('MainId').Value := Trim(CDS_Plan.FieldByName('MainId').Value);
FieldByName('SubId').Value := Trim(CDS_Plan.FieldByName('subid').Value);
FieldByName('PYID').Value := Trim(maxpbno);
FieldByName('Y_Note_PL').Value := Trim(Y_Note_PLJ.Text);
FieldByName('Y_Note_PLQJ').Value := Trim(Y_Note_PLQJ.Text);
RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_YarnJX, 'PD_Plan_Yarn_CAR', 0);
Post;
end;
CDS_YarnJX.Edit;
CDS_YarnJX.FieldByName('SubId').Value := Trim(CDS_Plan.FieldByName('subid').Value);
CDS_YarnJX.FieldByName('MainId').Value := Trim(CDS_Plan.FieldByName('MainId').Value);
CDS_YarnJX.FieldByName('PYId').Value := Trim(maxpbno);
Next;
end;
end;
///////////////////////////////////<2F><>˿<EFBFBD><CBBF><EFBFBD><EFBFBD>//////////////////////////////
///////////////////////////////////γ˿<CEB3><CBBF><EFBFBD><EFBFBD>//////////////////////////////
with CDS_YarnWX do
begin
First;
while not Eof do
begin
if Trim(CDS_YarnWX.fieldbyname('PYId').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxpbno, 'PY', 'PD_Plan_Yarn_CAR', 4, 1) = False then
begin
CDS_PLAN.EnableControls;
Application.MessageBox('γ˿<CEB3><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxpbno := Trim(CDS_YarnWX.fieldbyname('PYId').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from PD_Plan_Yarn_CAR where ');
sql.Add(' PYId=''' + Trim(maxpbno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_YarnWX.fieldbyname('PYId').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('PYType').Value := 'γ˿';
FieldByName('MainId').Value := Trim(CDS_Plan.FieldByName('MainId').Value);
FieldByName('SubId').Value := Trim(CDS_Plan.FieldByName('subid').Value);
FieldByName('PYID').Value := Trim(maxpbno);
FieldByName('Y_Note_PL').Value := Trim(Y_Note_PLW.Text);
RTSetSaveDataCDS(ADOQueryCmd, Tv4, CDS_YarnWX, 'PD_Plan_Yarn_CAR', 0);
Post;
end;
CDS_YarnwX.Edit;
CDS_YarnwX.FieldByName('SubId').Value := Trim(CDS_Plan.FieldByName('subid').Value);
CDS_YarnwX.FieldByName('MainId').Value := Trim(CDS_Plan.FieldByName('mainid').Value);
CDS_YarnwX.FieldByName('PYId').Value := Trim(maxpbno);
Next;
end;
end;
finally
panel3.Enabled := true;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
CDS_PLAN.EnableControls;
end;
panel3.Enabled := true;
end;
procedure TfrmPlanCardList.ToolButton3Click(Sender: TObject);
begin
try
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from PD_Plan_Main where mainid=' + QuotedStr(CDS_Plan.fieldbyname('mainid').AsString));
open;
end;
if ADOQueryTemp.IsEmpty = false then
begin
edZDFNo.Text := ADOQueryTemp.fieldByname('C_edZDFNo').asstring;
APMachineNo.Text := ADOQueryTemp.fieldByname('C_APMachineNo').asstring;
edtKaNo.Text := ADOQueryTemp.fieldByname('C_edtKaNo').asstring;
edtTouWen.Text := ADOQueryTemp.fieldByname('C_edtTouWen').asstring;
edtQJingG.Text := ADOQueryTemp.fieldByname('C_edtQJingG').asstring;
edtPiE.Text := ADOQueryTemp.fieldByname('C_edtPiE').asstring;
edtLen.Text := ADOQueryTemp.fieldByname('C_edtLen').asstring;
edtFS.Text := ADOQueryTemp.fieldByname('C_edtFS').asstring;
edtShangP.Text := ADOQueryTemp.fieldByname('C_edtShangP').asstring;
edtTiaoshu.Text := ADOQueryTemp.fieldByname('C_edtTiaoshu').asstring;
edtgenshu.Text := ADOQueryTemp.fieldByname('C_edtgenshu').asstring;
edtMenFu.Text := ADOQueryTemp.fieldByname('C_edtMenFu').asstring;
edtTiaoKuan.Text := ADOQueryTemp.fieldByname('C_edtTiaoKuan').asstring;
edtYiSiLiang.Text := ADOQueryTemp.fieldByname('C_edtYiSiLiang').asstring;
edtGangKou.Text := ADOQueryTemp.fieldByname('C_edtGangKou').asstring;
cbbSYYL.Text := ADOQueryTemp.fieldByname('C_cbbSYYL').asstring;
ZJPiLen.Text := ADOQueryTemp.fieldByname('C_ZJPiLen').asstring;
SXCS.Text := ADOQueryTemp.fieldByname('C_SXCS').asstring;
Note.Text := ADOQueryTemp.fieldByname('GYNote').asstring;
SXCS.ItemIndex := SXCS.Items.IndexOf(trim(ADOQueryTemp.fieldbyname('C_SXCS').AsString));
ZZCHEJIAN.Text := ADOQueryTemp.fieldByname('C_ZZCHEJIAN').asstring;
MKCR.Text := ADOQueryTemp.fieldByname('C_MKCR').asstring;
end;
finally
Application.MessageBox('<27><><EFBFBD>ݶ<EFBFBD>ȡ<EFBFBD>ɹ<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>պ󱣴棡', '<27><>ʾ', 0);
end
end;
procedure TfrmPlanCardList.ToolButton4Click(Sender: TObject);
var
fPrintFile, fPrintFileQZ, fPrintFileYWB: string;
i, j, k: integer;
begin
if CDS_Plan.IsEmpty then
Exit;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD>.rmf';
ExportFtErpFile('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD>.rmf', ADOQueryTemp);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from PD_Plan_Main A inner join PD_Plan_Sub B on A.Mainid=B.MainId where A.MainId=' + Quotedstr(Trim(CDS_Plan.fieldbyname('MainId').AsString)));
//ShowMessage(SQL.Text);
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_PM);
SInitCDSData20(ADOQueryTemp, CDS_PM);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from PD_Plan_QZ where MainId=' + Quotedstr(Trim(CDS_Plan.fieldbyname('MainId').AsString)));
//ShowMessage(SQL.Text);
Open;
end;
if not ADOQueryTemp.IsEmpty then
begin
SCreateCDS20(ADOQueryTemp, CDS_QZ);
SInitCDSData20(ADOQueryTemp, CDS_QZ);
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from PD_Plan_Yarn_car where PYType=''<27><>˿'' and MainId=' + Quotedstr(Trim(CDS_Plan.fieldbyname('MainId').AsString)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_PJS);
SInitCDSData20(ADOQueryTemp, CDS_PJS);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from PD_Plan_Yarn_car where PYType=''γ˿'' and MainId=' + Quotedstr(Trim(CDS_Plan.fieldbyname('MainId').AsString)));
//ShowMessage(SQL.Text);
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_PWS);
SInitCDSData20(ADOQueryTemp, CDS_PWS);
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
if FileExists(fPrintFileQZ) then
begin
RM1.LoadFromFile(fPrintFileQZ);
RM1.ShowReport;
end;
if FileExists(fPrintFileYWB) then
begin
RM1.LoadFromFile(fPrintFileYWB);
RM1.ShowReport;
end;
end
else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
end;
end;
procedure TfrmPlanCardList.TV3Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
if ShowModal = 1 then
begin
with CDS_YarnJX do
begin
Self.CDS_YarnJX.Edit;
Self.CDS_YarnJX.FieldByName('FactoryName').Value := Trim(CDS_HZ.fieldbyname('Name').AsString);
Post;
end;
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmPlanCardList.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp2 := TfrmZDYHelp2.Create(Application);
with frmZDYHelp2 do
begin
flag := 'SXYCLName_JS';
flagname := '<27><>γ˿<CEB3><CBBF><EFBFBD><EFBFBD>';
fnote := True;
V1Note.Caption := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
Self.CDS_YarnJX.Edit;
Self.CDS_YarnJX.FieldByName('Y_Name').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp2.Free;
end;
end;
procedure TfrmPlanCardList.TV4Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
if ShowModal = 1 then
begin
with CDS_YarnWX do
begin
Self.CDS_YarnWX.Edit;
Self.CDS_YarnWX.FieldByName('FactoryName').Value := Trim(CDS_HZ.fieldbyname('Name').AsString);
Post;
end;
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmPlanCardList.cxGridDBColumn8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp2 := TfrmZDYHelp2.Create(Application);
with frmZDYHelp2 do
begin
flag := 'SXYCLName_JS';
flagname := '<27><>γ˿<CEB3><CBBF><EFBFBD><EFBFBD>';
fnote := True;
V1Note.Caption := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
Self.CDS_YarnWX.Edit;
Self.CDS_YarnWX.FieldByName('Y_Name').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp2.Free;
end;
end;
procedure TfrmPlanCardList.ToolButton5Click(Sender: TObject);
var
I: Integer;
Column: TcxGridDBColumn;
FieldNames: TStringList;
begin
FieldNames := TStringList.Create;
try
for I := 0 to Tv2.ColumnCount - 1 do
begin
Column := Tv2.Columns[I];
FieldNames.Add(Column.Caption + ':' + Column.DataBinding.FieldName);
end;
ShowMessage(FieldNames.Text);
finally
FieldNames.Free;
end;
end;
procedure TfrmPlanCardList.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if CDS_PLAN.IsEmpty then
Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
SQL.Add('exec P_Del_CF @mainid=''' + Trim(CDS_PLAN.fieldbyname('mainid').AsString) + '''');
ExecSQL;
end;
InitCard(CDS_Plan.FieldByName('Subid').AsString);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select top 1 * from PD_Plan_Yarn_car a where a.mainid=' + QuotedStr(Trim(CDS_PLAN.FieldByName('mainid').AsString)));
Open;
end;
if ADOQueryTemp.IsEmpty = false then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from PD_Plan_Yarn_car where PYType=''<27><>˿'' and Subid=' + quotedstr(Trim(CDS_plan.fieldbyname('subid').AsString)));
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_YarnJX);
SInitCDSData20(ADOQueryTemp, CDS_YarnJX);
Y_Note_PLQJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PLQJ').AsString;
Y_Note_PLJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PL').AsString;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from PD_Plan_Yarn_Car where PYType=''γ˿'' and Subid=' + quotedstr(Trim(CDS_plan.fieldbyname('subid').AsString)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_YarnWX);
SInitCDSData20(ADOQueryTemp, CDS_YarnWX);
Y_Note_PLW.Text := ADOQueryTemp.fieldbyname('Y_Note_PL').AsString;
end
else
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from PD_Plan_Yarn where PYType=''<27><>˿'' and Subid=' + quotedstr(Trim(CDS_plan.fieldbyname('subid').AsString)));
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_YarnJX);
SInitCDSData20(ADOQueryTemp, CDS_YarnJX);
Y_Note_PLQJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PLQJ').AsString;
Y_Note_PLJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PL').AsString;
with CDS_YarnJX do
begin
First;
while not Eof do
begin
Edit;
FieldByName('pyid').Value := '';
Post;
Next;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from PD_Plan_Yarn where PYType=''γ˿'' and Subid=' + quotedstr(Trim(CDS_plan.fieldbyname('subid').AsString)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_YarnWX);
SInitCDSData20(ADOQueryTemp, CDS_YarnWX);
Y_Note_PLW.Text := ADOQueryTemp.fieldbyname('Y_Note_PL').AsString;
with CDS_YarnWX do
begin
First;
while not Eof do
begin
Edit;
FieldByName('pyid').Value := '';
Post;
Next;
end;
end;
end;
edZDFNo.Text := '';
APMachineNo.Text := '';
edtKaNo.Text := '';
edtTouWen.Text := '';
edtQJingG.Text := '';
edtPiE.Text := '';
edtLen.Text := '';
edtFS.Text := '';
edtShangP.Text := '';
edtTiaoshu.Text := '';
edtsjwm.Text := '';
edtgenshu.Text := '';
edtMenFu.Text := '';
edtTiaoKuan.Text := '';
edtYiSiLiang.Text := '';
edtGangKou.Text := '';
cbbSYYL.Text := '';
ZJPiLen.Text := '';
SXCS.Text := '';
ZZCHEJIAN.Text := '';
MKCR.Text := '';
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select *,SJ_WM=(SELECT TOP 1 SJ_WM FROM PD_Plan_SUB B WHERE A.MAINID=B.MAINID) from PD_Plan_Main A where mainid=' + QuotedStr(CDS_Plan.fieldbyname('mainid').AsString));
// ShowMessage(SQL.Text);
open;
end;
if ADOQueryTemp.IsEmpty = false then
begin
edZDFNo.Text := ADOQueryTemp.fieldByname('C_edZDFNo').asstring;
APMachineNo.Text := ADOQueryTemp.fieldByname('C_APMachineNo').asstring;
edtKaNo.Text := ADOQueryTemp.fieldByname('C_edtKaNo').asstring;
edtTouWen.Text := ADOQueryTemp.fieldByname('C_edtTouWen').asstring;
edtQJingG.Text := ADOQueryTemp.fieldByname('C_edtQJingG').asstring;
edtPiE.Text := ADOQueryTemp.fieldByname('C_edtPiE').asstring;
edtLen.Text := ADOQueryTemp.fieldByname('C_edtLen').asstring;
edtFS.Text := ADOQueryTemp.fieldByname('C_edtFS').asstring;
edtShangP.Text := ADOQueryTemp.fieldByname('C_edtShangP').asstring;
edtTiaoshu.Text := ADOQueryTemp.fieldByname('C_edtTiaoshu').asstring;
edtgenshu.Text := ADOQueryTemp.fieldByname('C_edtgenshu').asstring;
edtMenFu.Text := ADOQueryTemp.fieldByname('C_edtMenFu').asstring;
edtTiaoKuan.Text := ADOQueryTemp.fieldByname('C_edtTiaoKuan').asstring;
edtYiSiLiang.Text := ADOQueryTemp.fieldByname('C_edtYiSiLiang').asstring;
edtsjwm.Text := ADOQueryTemp.fieldByname('SJ_WM').asstring;
edtGangKou.Text := ADOQueryTemp.fieldByname('C_edtGangKou').asstring;
cbbSYYL.Text := ADOQueryTemp.fieldByname('C_cbbSYYL').asstring;
ZJPiLen.Text := ADOQueryTemp.fieldByname('C_ZJPiLen').asstring;
SXCS.ItemIndex := SXCS.Items.IndexOf(trim(ADOQueryTemp.fieldbyname('C_SXCS').AsString));
Note.Text := ADOQueryTemp.fieldByname('GYNote').asstring;
ZZCHEJIAN.Text := ADOQueryTemp.fieldByname('CHEJIAN').asstring;
MKCR.Text := ADOQueryTemp.fieldByname('C_MKCR').asstring;
end;
end;
procedure TfrmPlanCardList.edtLenChange(Sender: TObject);
var
f1: double;
f2, f3, f5: double;
f4: Integer;
s, tmpStr: string;
I: Integer;
begin
// if (strToFloatDef(edtLen.Text, 0) <> 0) and (StrToFloatDef(ZJPiLen.Text, 0) <> 0) then
// begin
// f2 := StrToFloatDef(edtLen.Text, 0);
// f3 := StrToFloatDef(ZJPiLen.Text, 0);
// f1 := f2 / f3;
//
// f4 := floor(f1);
// f5 := f2 - f3 * f4;
// if f5 <> 0 then
// begin
// edtPiE.Text := FloatToStr(f4) + 'ƥ+' + FloatToStr(f5) + '<27><>';
// end
// else
// begin
// edtPiE.Text := FloatToStr(f4) + 'ƥ';
// end;
//
// end;
end;
procedure TfrmPlanCardList.edtPiEExit(Sender: TObject);
begin
if (edtPiE.Text <> '') and (ZJPiLen.text <> '') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('exec P_Do_JSZC @PIE=' + QuotedStr(Trim(edtPiE.Text)));
sql.Add(',@ZJPICHANG=' + QuotedStr(Trim(ZJPiLen.Text)));
open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
edtLen.Text := ADOQueryTemp.fieldbyname('zs').AsString;
end;
end;
end;
procedure TfrmPlanCardList.Tv1Column8PropertiesChange(Sender: TObject);
begin
if CDS_PLAN.IsEmpty then
Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
SQL.Add('exec P_Del_CF @mainid=''' + Trim(CDS_PLAN.fieldbyname('mainid').AsString) + '''');
ExecSQL;
end;
InitCard(CDS_Plan.FieldByName('Subid').AsString);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select top 1 * from PD_Plan_Yarn_car a where a.mainid=' + QuotedStr(Trim(CDS_PLAN.FieldByName('mainid').AsString)));
Open;
end;
if ADOQueryTemp.IsEmpty = false then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from PD_Plan_Yarn_car where PYType=''<27><>˿'' and Subid=' + quotedstr(Trim(CDS_plan.fieldbyname('subid').AsString)));
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_YarnJX);
SInitCDSData20(ADOQueryTemp, CDS_YarnJX);
Y_Note_PLQJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PLQJ').AsString;
Y_Note_PLJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PL').AsString;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from PD_Plan_Yarn_Car where PYType=''γ˿'' and Subid=' + quotedstr(Trim(CDS_plan.fieldbyname('subid').AsString)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_YarnWX);
SInitCDSData20(ADOQueryTemp, CDS_YarnWX);
Y_Note_PLW.Text := ADOQueryTemp.fieldbyname('Y_Note_PL').AsString;
end
else
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from PD_Plan_Yarn where PYType=''<27><>˿'' and Subid=' + quotedstr(Trim(CDS_plan.fieldbyname('subid').AsString)));
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_YarnJX);
SInitCDSData20(ADOQueryTemp, CDS_YarnJX);
Y_Note_PLQJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PLQJ').AsString;
Y_Note_PLJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PL').AsString;
with CDS_YarnJX do
begin
First;
while not Eof do
begin
Edit;
FieldByName('pyid').Value := '';
Post;
Next;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from PD_Plan_Yarn where PYType=''γ˿'' and Subid=' + quotedstr(Trim(CDS_plan.fieldbyname('subid').AsString)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_YarnWX);
SInitCDSData20(ADOQueryTemp, CDS_YarnWX);
Y_Note_PLW.Text := ADOQueryTemp.fieldbyname('Y_Note_PL').AsString;
with CDS_YarnWX do
begin
First;
while not Eof do
begin
Edit;
FieldByName('pyid').Value := '';
Post;
Next;
end;
end;
end;
edZDFNo.Text := '';
APMachineNo.Text := '';
edtKaNo.Text := '';
edtTouWen.Text := '';
edtQJingG.Text := '';
edtPiE.Text := '';
edtLen.Text := '';
edtFS.Text := '';
edtShangP.Text := '';
edtTiaoshu.Text := '';
edtsjwm.Text := '';
edtgenshu.Text := '';
edtMenFu.Text := '';
edtTiaoKuan.Text := '';
edtYiSiLiang.Text := '';
edtGangKou.Text := '';
cbbSYYL.Text := '';
ZJPiLen.Text := '';
SXCS.Text := '';
ZZCHEJIAN.Text := '';
MKCR.Text := '';
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select *,SJ_WM=(SELECT TOP 1 SJ_WM FROM PD_Plan_SUB B WHERE A.MAINID=B.MAINID) from PD_Plan_Main A where mainid=' + QuotedStr(CDS_Plan.fieldbyname('mainid').AsString));
// ShowMessage(SQL.Text);
open;
end;
if ADOQueryTemp.IsEmpty = false then
begin
edZDFNo.Text := ADOQueryTemp.fieldByname('C_edZDFNo').asstring;
APMachineNo.Text := ADOQueryTemp.fieldByname('C_APMachineNo').asstring;
edtKaNo.Text := ADOQueryTemp.fieldByname('C_edtKaNo').asstring;
edtTouWen.Text := ADOQueryTemp.fieldByname('C_edtTouWen').asstring;
edtQJingG.Text := ADOQueryTemp.fieldByname('C_edtQJingG').asstring;
edtPiE.Text := ADOQueryTemp.fieldByname('C_edtPiE').asstring;
edtLen.Text := ADOQueryTemp.fieldByname('C_edtLen').asstring;
edtFS.Text := ADOQueryTemp.fieldByname('C_edtFS').asstring;
edtShangP.Text := ADOQueryTemp.fieldByname('C_edtShangP').asstring;
edtTiaoshu.Text := ADOQueryTemp.fieldByname('C_edtTiaoshu').asstring;
edtgenshu.Text := ADOQueryTemp.fieldByname('C_edtgenshu').asstring;
edtMenFu.Text := ADOQueryTemp.fieldByname('C_edtMenFu').asstring;
edtTiaoKuan.Text := ADOQueryTemp.fieldByname('C_edtTiaoKuan').asstring;
edtYiSiLiang.Text := ADOQueryTemp.fieldByname('C_edtYiSiLiang').asstring;
edtsjwm.Text := ADOQueryTemp.fieldByname('SJ_WM').asstring;
edtGangKou.Text := ADOQueryTemp.fieldByname('C_edtGangKou').asstring;
cbbSYYL.Text := ADOQueryTemp.fieldByname('C_cbbSYYL').asstring;
ZJPiLen.Text := ADOQueryTemp.fieldByname('C_ZJPiLen').asstring;
SXCS.ItemIndex := SXCS.Items.IndexOf(trim(ADOQueryTemp.fieldbyname('C_SXCS').AsString));
Note.Text := ADOQueryTemp.fieldByname('GYNote').asstring;
ZZCHEJIAN.Text := ADOQueryTemp.fieldByname('CHEJIAN').asstring;
MKCR.Text := ADOQueryTemp.fieldByname('C_MKCR').asstring;
end;
end;
end.
Reference in New Issue Copy Permalink