Group_02/D7fhyuhan
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
fc7b44d7f6
D7fhyuhan/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.pas

1855 lines
53 KiB
ObjectPascal
Raw Normal View History

移交
2025-09-21 08:59:38 +08:00
unit U_OrderInPut;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, cxPC, Menus,
cxLookAndFeels, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator,
cxCheckBox, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
type
TfrmOrderInPut = class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
Label1: TLabel;
OrderNo: TEdit;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
Label10: TLabel;
ConNo: TEdit;
Label3: TLabel;
Label14: TLabel;
Label12: TLabel;
Label13: TLabel;
OrdDate: TDateTimePicker;
CustomerNoName: TBtnEditC;
Label2: TLabel;
Label6: TLabel;
Label19: TLabel;
Label25: TLabel;
DLYDate: TDateTimePicker;
Label26: TLabel;
MPRTCode: TBtnEditC;
MPRTBZNote: TMemo;
Note: TMemo;
Label23: TLabel;
MPRTMF: TEdit;
MPRTSpec: TEdit;
MPRTKZ: TEdit;
ADOQueryLabel: TADOQuery;
RMGridReport1: TRMGridReport;
Label8: TLabel;
YWY: TBtnEditC;
Label11: TLabel;
orderType: TComboBox;
Label4: TLabel;
PRTColor: TEdit;
MPRTCodeName: TBtnEditC;
Label5: TLabel;
PRTPs: TEdit;
Label9: TLabel;
PRTOrderQty: TEdit;
Label15: TLabel;
OrderUnit: TEdit;
Label16: TLabel;
PopupMenu1: TPopupMenu;
N2: TMenuItem;
N1: TMenuItem;
CDS_PBCK: TClientDataSet;
DS_PBKC: TDataSource;
ADO_PBCK: TADOQuery;
CDS_Glide: TClientDataSet;
DS_Glide: TDataSource;
Label7: TLabel;
Label17: TLabel;
PBSPEC: TEdit;
PBZPS: TEdit;
Label18: TLabel;
PRTPiZhong: TEdit;
ToolButton5: TToolButton;
Label20: TLabel;
KHConNo: TEdit;
Label21: TLabel;
cxPageControl1: TcxPageControl;
cxTabSheet3: TcxTabSheet;
ToolBar3: TToolBar;
ToolButton1: TToolButton;
ToolButton6: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxTabSheet4: TcxTabSheet;
ToolBar2: TToolBar;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
V3Column1: TcxGridDBColumn;
V3Column2: TcxGridDBColumn;
V3Column3: TcxGridDBColumn;
V3Column4: TcxGridDBColumn;
V3Column5: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
gongyi: TcxButtonEdit;
Label22: TLabel;
DBColor: TcxButtonEdit;
TV2Column4: TcxGridDBColumn;
Label24: TLabel;
PBName: TEdit;
Label27: TLabel;
BQKH: TEdit;
Label28: TLabel;
Jlen1: TEdit;
Label29: TLabel;
Jlen2: TEdit;
Label30: TLabel;
Jlen3: TEdit;
Label31: TLabel;
Jlen4: TEdit;
Label32: TLabel;
Jlen5: TEdit;
Label33: TLabel;
Jlen6: TEdit;
Label34: TLabel;
Jlen7: TEdit;
Label35: TLabel;
Jlen8: TEdit;
Label36: TLabel;
Label37: TLabel;
JTname: TBtnEditC;
JTno: TBtnEditC;
Label38: TLabel;
SJSF: TBtnEditC;
cxTabSheet1: TcxTabSheet;
Panel2: TPanel;
Label39: TLabel;
Label40: TLabel;
CRTime: TDateTimePicker;
Button1: TButton;
Button2: TButton;
carnum: TcxCurrencyEdit;
Button3: TButton;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
V1Column7: TcxGridDBColumn;
V1Column1: TcxGridDBColumn;
V1Column10: TcxGridDBColumn;
V1Column5: TcxGridDBColumn;
VC_KKMF: TcxGridDBColumn;
VC_KKKZ: TcxGridDBColumn;
V1Column2: TcxGridDBColumn;
V1Column4: TcxGridDBColumn;
TV1Column1: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
CDS_Car: TClientDataSet;
DS_Car: TDataSource;
TV2Column5: TcxGridDBColumn;
Label41: TLabel;
DIBU: TcxButtonEdit;
Label42: TLabel;
pinzhong: TcxButtonEdit;
cxTabSheet2: TcxTabSheet;
ToolBar4: TToolBar;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
CDS_DBKC: TClientDataSet;
DS_DBKC: TDataSource;
ADO_DBKC: TADOQuery;
TV4Column1: TcxGridDBColumn;
TV4Column2: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure CustomerNoNameBtnUpClick(Sender: TObject);
procedure CustomerNoNameBtnDnClick(Sender: TObject);
procedure MPRTCodeNameBtnUpClick(Sender: TObject);
procedure OrdDefStr2BtnUpClick(Sender: TObject);
procedure YCLFactoryBtnUpClick(Sender: TObject);
procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject);
procedure MPRTBZNoteDblClick(Sender: TObject);
procedure MPRTCodeBtnUpClick(Sender: TObject);
procedure PRTColorChange(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure PRTPsChange(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure PRTPsKeyPress(Sender: TObject; var Key: Char);
procedure TV2Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure gongyiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Jlen1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure TV2Column3PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
private
procedure InitData();
procedure GetGy();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
function SaveData(): Boolean;
function getOrderNo(fconNo: string): string;
function CheckData(): Boolean;
procedure InitPBCK();
procedure InitDBCK();
{ Private declarations }
public
PState, CopyInt, PriceFlag: Integer;
FMainId, FSubId, FKCID, FFMainId, FOrderNo: string;
FXS: Integer;
canshu1: string;
fFlileFlag: string;
{ Public declarations }
end;
var
frmOrderInPut: TfrmOrderInPut;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_Fun, U_ZDYHelpSel, U_ZdyAttachment, U_ZdyAttachGYS,
U_CPManageSel, getpic, U_LabelList, U_ProductFileSel, U_PBCKCMSel, U_PBKcList,
U_GXGL_List_DXCX, U_TCKcListSEL;
{$R *.dfm}
procedure TfrmOrderInPut.GetGy();
begin
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select top 1 OrderNo,MPRTMF,MPRTKZ,MPRTBZNote from JYOrder_Main X inner join JYOrder_Sub Y on X.MainId=Y.MainId ');
sql.Add('where X.MPRTCodeName=' + quotedstr(trim(MPRTCodeName.Text)));
sql.Add(' and X.CustomerNoName=' + quotedstr(trim(CustomerNoName.Text)));
// sql.Add(' and Y.PRTColor=' + quotedstr(trim(PRTColor.Text)));
sql.Add(' and X.MPRTMF=' + quotedstr(trim(MPRTMF.Text)));
sql.Add(' and X.MPRTKZ=' + quotedstr(trim(MPRTKZ.Text)));
sql.Add(' and Status=''1'' order by OrdDate desc ');
// ShowMessage(SQL.Text);
Open;
end;
MPRTBZNote.Text := Trim(ADOTemp.FieldByName('MPRTBZNote').AsString);
// MPRTMF.Text := Trim(ADOTemp.FieldByName('MPRTMF').AsString);
// MPRTKZ.Text := Trim(ADOTemp.FieldByName('MPRTKZ').AsString);
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select GlideNo='''',GlideIdx,CarNo='''',MainId='''',SubId='''',GlideName,MXCOLOR,RollNum,Qty,QtyUnit,Filler,Filltime,Editer,Edittime,Chker,ChkTime,Status,Valid,Note,MXPS,kaipi');
sql.Add('from JYOrder_Glide A ');
sql.Add(' where A.CarNo=(select top 1 OrderNo from JYOrder_Main X inner join JYOrder_Sub Y on X.MainId=Y.MainId where X.MPRTCodeName=' + quotedstr(trim(MPRTCodeName.Text)));
sql.Add(' and X.CustomerNoName=' + quotedstr(trim(CustomerNoName.Text)));
sql.Add(' and X.MPRTMF=' + quotedstr(trim(MPRTMF.Text)));
sql.Add(' and X.MPRTKZ=' + quotedstr(trim(MPRTKZ.Text)));
// sql.Add(' and Y.PRTColor=' + quotedstr(trim(PRTColor.Text)));
sql.Add(' and Status=''1'' order by OrdDate desc)');
sql.Add(' order by Glideidx ');
Open;
end;
SCreateCDS20(ADOTemp, CDS_Glide);
SInitCDSData20(ADOTemp, CDS_Glide);
end;
procedure TfrmOrderInPut.InitPBCK();
begin
try
with ADO_PBCK do
begin
close;
sql.Clear;
sql.Add('select A.*');
sql.Add(',KCPS=(select X.KCPS from CK_PB_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.CRID=A.KCID)');
sql.Add(',CodeName=(select X.CodeName from CK_PB_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.CRID=A.KCID)');
sql.Add('from JYOrder_PBKC A ');
sql.Add(' where A.MainID=' + QUOTEDSTR(Trim(FMainID)));
sql.Add(' AND A.SUBID=' + QUOTEDSTR(Trim(FSUBID)));
// ShowMessage(SQL.Text);
open;
end;
SCreateCDS20(ADO_PBCK, CDS_PBCK);
SInitCDSData20(ADO_PBCK, CDS_PBCK);
finally
end;
end;
procedure TfrmOrderInPut.InitDBCK();
begin
try
with ADO_DBKC do
begin
close;
sql.Clear;
sql.Add('select A.*');
sql.Add(',P_CodeName=(select X.P_CodeName from CK_ML_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.CRNO=A.KCID)');
sql.Add(',area=(select X.area from CK_ML_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.CRNO=A.KCID)');
sql.Add(',p_color=(select X.p_color from CK_ML_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.CRNO=A.KCID)');
sql.Add(',KCPS=(select X.ROLLNUM from CK_ML_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.CRNO=A.KCID)');
sql.Add('from JYOrder_DBKC A ');
sql.Add(' where A.MainID=' + QUOTEDSTR(Trim(FMainID)));
sql.Add(' AND A.SUBID=' + QUOTEDSTR(Trim(FSUBID)));
open;
end;
SCreateCDS20(ADO_DBKC, CDS_DBKC);
SInitCDSData20(ADO_DBKC, CDS_DBKC);
finally
end;
end;
function TfrmOrderInPut.CheckData(): Boolean;
var
mvalue, FReal: double;
begin
OrdDate.SetFocus;
try
// if Trim(conNo.Text) = '' then
// raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
if Trim(MPRTCodeName.Text) = '' then
raise Exception.Create('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
// if CDS_car.Locate('RollNum', null, []) then
// begin
// raise Exception.Create('<27><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>㣡');
//
// end;
// if CDS_car.Locate('RollNum', 0, []) then
// begin
// raise Exception.Create('<27><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>㣡');
//
// end;
if PRTPs.Text <> FloatToStr(TV1.DataController.Summary.FooterSummaryValues[1]) then
raise Exception.Create('<27><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5>ʹ<EFBFBD><CAB9>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>һ<EFBFBD>£<EFBFBD>');
if CDS_Glide.IsEmpty then
raise Exception.Create('<27>׺<EFBFBD><D7BA><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
if CDS_Glide.Locate('GlideName', null, []) = True then
begin
if CDS_Glide.fieldbyname('MXCOLOR').asstring = '' then
begin
raise Exception.Create('<27>׺ź<D7BA><C5BA><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD>ܶ<EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
end;
end;
if CDS_Glide.Locate('GlideName', '', []) = True then
begin
if CDS_Glide.fieldbyname('MXCOLOR').asstring = '' then
begin
raise Exception.Create('<27>׺ź<D7BA><C5BA><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD>ܶ<EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
end;
end;
// if Order_Sub.Locate('PRTOrderQty', null, []) then
// raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
if Trim(PRTPs.Text) = '' then
raise Exception.Create('ƥ<><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
if Tv1.DataController.Summary.FooterSummaryValues[1] < StrToInt(PRTPs.Text) then
raise Exception.Create('<27><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD>㣡');
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
function TfrmOrderInPut.getOrderNo(fconNo: string): string;
var
str1: string;
i: integer;
begin
str1 := trim(fconNo) + '01';
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('select MainID from JYOrder_Main where orderNo=' + quotedstr(trim(str1)));
open;
end;
if not ADOTemp.IsEmpty then
begin
for i := 1 to 99 do
begin
str1 := trim(fconNo) + rightstr(inttostr(100 + i), 2);
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select MainID from JYOrder_Main where orderNo=' + quotedstr(trim(str1)));
open;
end;
if ADOCmd.IsEmpty then
break;
end;
end;
result := str1;
end;
procedure TfrmOrderInPut.TBCloseClick(Sender: TObject);
begin
WriteCxGrid(Self.Caption, Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Close;
end;
procedure TfrmOrderInPut.InitData();
var
a: string;
b: TStrings;
begin
if PState = 0 then
begin
OrdDate.DateTime := SGetServerDateTime(ADOTemp);
DlyDate.DateTime := OrdDate.DateTime;
end;
CRTime.DateTime := SGetServerDateTime(ADOTemp);
//**********************ˢ<>¼ƻ<C2BC><C6BB><EFBFBD><EFBFBD><EFBFBD>Ϣ*****************************
with ADOTemp do
begin
Close;
sql.Clear;
if PState = 0 then
begin
sql.Add('select X.* ');
sql.Add('from CK_PB_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.KCID= ' + QUOTEDSTR(Trim(FKCID)));
end
else
begin
sql.Add('select A.*,B.* from JYOrder_Main A inner join JYOrder_Sub B on A.Mainid=B.Mainid ');
sql.Add(' where B.SubId=' + Quotedstr(Trim(FSubId)));
end;
Open;
end;
if PState = 0 then
begin
CustomerNoName.Text := Trim(ADOTemp.FieldByName('fromFactoryName').AsString);
MPRTCodeName.Text := Trim(ADOTemp.FieldByName('Code').AsString);
MPRTCodeName.Text := Trim(ADOTemp.FieldByName('CodeName').AsString);
MPRTMF.Text := Trim(ADOTemp.FieldByName('MF').AsString);
MPRTKZ.Text := Trim(ADOTemp.FieldByName('KZ').AsString);
MPRTSpec.Text := Trim(ADOTemp.FieldByName('BatchNo').AsString);
PRTColor.Text := Trim(ADOTemp.FieldByName('CPColor').AsString);
PRTPs.Text := Trim(ADOTemp.FieldByName('PS').AsString);
PRTPiZhong.Text := Trim(ADOTemp.FieldByName('PiZhong').AsString);
PRTOrderQty.Text := Trim(ADOTemp.FieldByName('Qty').AsString);
OrderUnit.Text := Trim(ADOTemp.FieldByName('QtyUnit').AsString);
PBZPS.Text := Trim(ADOTemp.FieldByName('PS').AsString);
PBSPEC.Text := Trim(ADOTemp.FieldByName('MF').AsString) + '/' + Trim(ADOTemp.FieldByName('KZ').AsString);
// a:='<27>бߡ<D0B1><DFA1>ס<EFBFBD><D7A1><EFBFBD><EFBFBD><EFBFBD><EFA1A2><EFBFBD><EFBFBD>';
// b.Text:=a;
// ExtractStrings(['#'],[' '],PChar(a),b);
// MPRTBZNote.Text :='<27>бߡ<D0B1><DFA1>ס<EFBFBD><D7A1><EFBFBD><EFBFBD><EFBFBD><EFA1A2><EFBFBD><EFBFBD>';
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add(' select top 1 A.* from JYOrder_Main A ');
sql.Add(' where A.MPRTCodeName=' + Quotedstr(Trim(MPRTCodeName.Text)));
sql.Add(' and A.Status=''1'' order by A.OrdDate desc');
Open;
end;
if Trim(MPRTKZ.Text) = '' then
MPRTMF.Text := Trim(ADOTemp.FieldByName('MPRTMF').AsString);
if Trim(MPRTKZ.Text) = '' then
MPRTKZ.Text := Trim(ADOTemp.FieldByName('MPRTKZ').AsString);
end
else
begin
SCSHDataNew(ADOTemp, ScrollBox1, 1);
SCSHDataNew(ADOTemp, ScrollBox1, 2);
end;
//**********************ˢ<>¼ƻ<C2BC><C6BB><EFBFBD><EFBFBD><EFBFBD>Ϣ*****************************
//**********************ˢ<>°<EFBFBD><C2B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*****************************
with ADOTemp do
begin
Close;
SQL.Clear;
if PState = 0 then
begin
sql.Add('select CodeName,X.KCPS,X.KCId,PBKCID='''',MainId='''',SubId='''', FPPS=KCPS,YYPS=0 ');
sql.Add('from CK_PB_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.KCID= ' + QUOTEDSTR(Trim(FKCID)));
end
else
begin
sql.Add('select A.*');
sql.Add(',CodeName=(select X.CodeName from CK_PB_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.CRID=A.KCID)');
sql.Add(',KCPS=(select X.KCPS from CK_PB_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.CRID=A.KCID)');
sql.Add('from JYOrder_PBKC A ');
sql.Add('where A.MainID=' + QUOTEDSTR(Trim(FMainID)));
sql.Add('AND A.SUBID=' + QUOTEDSTR(Trim(FSUBID)));
end;
Open;
end;
SCreateCDS20(ADOTemp, CDS_PBCK);
SInitCDSData20(ADOTemp, CDS_PBCK);
//**********************ˢ<>°<EFBFBD><C2B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*****************************
//**********************ˢ<>¹<EFBFBD><C2B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*****************************
if PState = 0 then
begin
//2<><32><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD>ʱ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>ɫ<EFBFBD>ź<EFBFBD>֮ǰһ<C7B0><D2BB>ʱ<EFBFBD><CAB1>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>һ<EFBFBD>ε<EFBFBD><CEB5>ŷ<EFBFBD><C5B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ء<EFBFBD><D8A1><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>װҪ<D7B0>󡢹<EFBFBD><F3A1A2B9><EFBFBD>
GetGY()
end
else
begin
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select A.*');
sql.Add('from JYOrder_Glide A ');
sql.Add('where A.CarNo=' + quotedstr(trim(FOrderNo)));
sql.Add(' order by Glideidx ');
// showmessage(SQL.text);
Open;
end;
end;
SCreateCDS20(ADOTemp, CDS_Glide);
SInitCDSData20(ADOTemp, CDS_Glide);
if CDS_Glide.IsEmpty = True then
begin
if FKCID <> '' then
begin
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from CK_PB_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.KCID= ' + QUOTEDSTR(Trim(FKCID)));
Open;
end;
with CDS_Glide do
begin
Append;
CDS_Glide.FieldByName('Glideidx').Value := CDS_Glide.RecordCount + 1;
CDS_Glide.FieldByName('kaipi').Value := '<27><>';
CDS_Glide.FieldByName('GlideName').Value := ADOTemp.FieldByName('batchno').AsString;
CDS_Glide.FieldByName('MXCOLOR').Value := ADOTemp.FieldByName('CPCOLOR').AsString;
CDS_Glide.FieldByName('MXPS').Value := ADOTemp.FieldByName('KCPS').AsString;
end;
end;
end;
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select A.*');
sql.Add('from JYOrder_car A ');
sql.Add('where A.mainid=' + quotedstr(trim(fmainid)));
sql.Add(' order by carxh ');
Open;
end;
SCreateCDS20(ADOTemp, CDS_car);
SInitCDSData20(ADOTemp, CDS_car);
//**********************ˢ<>°<EFBFBD><C2B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*****************************
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select A.*');
sql.Add(',P_CodeName=(select X.P_CodeName from CK_ML_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.CRNO=A.KCID)');
sql.Add(',area=(select X.area from CK_ML_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.CRNO=A.KCID)');
sql.Add(',p_color=(select X.p_color from CK_ML_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.CRNO=A.KCID)');
sql.Add(',KCPS=(select X.ROLLNUM from CK_ML_CR X where X.Valid=''Y'' and X.CRFlag=''<27><><EFBFBD><EFBFBD>'' and X.CRNO=A.KCID)');
sql.Add('from JYOrder_DBKC A ');
sql.Add('where A.MainID=' + QUOTEDSTR(Trim(FMainID)));
sql.Add('AND A.SUBID=' + QUOTEDSTR(Trim(FSUBID)));
Open;
end;
SCreateCDS20(ADOTemp, CDS_DBKC);
SInitCDSData20(ADOTemp, CDS_DBKC);
//**********************ˢ<>°<EFBFBD><C2B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*****************************
//**********************ˢ<>¹<EFBFBD><C2B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*****************************
//**********************<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*****************************
if CopyInt = 99 then
begin
PState := 0;
FMainId := '';
FSubId := '';
OrderNo.Text := '';
end;
//**********************<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*****************************
end;
procedure TfrmOrderInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
var
FType, ZDYName, FText: string;
begin
end;
procedure TfrmOrderInPut.FormShow(Sender: TObject);
begin
readCxGrid(Self.Caption, Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
OrderNo.Text := '';
fFlileFlag := UserDataFlag + 'HX';
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('DELETE JYOrder_PBKC WHERE MAINID=''''');
sql.Add('DELETE JYOrder_DBKC WHERE MAINID=''''');
ExecSQL;
end;
InitData();
if PState = 0 then
begin
MPRTBZNote.Text := '<27>бߡ<D0B1><DFA1>ס<EFBFBD><D7A1><EFBFBD><EFBFBD><EFBFBD><EFA1A2><EFBFBD><EFBFBD>';
end;
end;
function TfrmOrderInPut.SaveData(): Boolean;
var
maxno, Smaxno, maxorderno, MaxPBKCID, MaxGlideNo, MaxdBKCID: string;
begin
try
ADOCmd.Connection.BeginTrans;
//*************************<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*************************
if Trim(FMainId) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'JM', 'JYOrder_Main', 3, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
if GetLSNo(ADOCmd, maxorderno, 'FH', 'JYOrder_Main', 3, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
FOrderNo := TRIM(maxorderno);
OrderNo.Text := TRIM(maxorderno);
end
else
begin
maxno := Trim(FMainId);
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from JYOrder_Main where MainId=''' + Trim(FMainId) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId) = '' then
begin
Append;
FieldByName('status').Value := '1';
FieldByName('XSWS').Value := 1;
FieldByName('CDWS').Value := 1;
end
else
begin
Edit;
end;
FieldByName('MainId').Value := Trim(maxno);
SSetsaveSqlNew(ADOCmd, 'JYOrder_Main', ScrollBox1, 1);
if Trim(FMainId) = '' then
begin
FieldByName('Filler').Value := Trim(DName);
end
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
Post;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Main where orderno=''' + Trim(OrderNo.Text) + '''');
Open;
end;
if ADOCmd.RecordCount > 1 then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
//*************************<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*************************
//*************************<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>*************************
if Trim(FSubId) = '' then
begin
if GetLSNo(ADOCmd, Smaxno, 'JS', 'JYOrder_Sub', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
Smaxno := Trim(FSubId);
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from JYOrder_Sub where SubId=' + quotedstr(Trim(Trim(FSubId))));
Open;
end;
with ADOCmd do
begin
if Trim(FSubId) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('SubId').Value := Trim(Smaxno);
SSetsaveSqlNew(ADOCmd, 'JYOrder_Sub', ScrollBox1, 2);
Post;
end;
//*************************<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>*************************
//*************************<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*************************
with CDS_PBCK do
begin
First;
while not Eof do
begin
if Trim(CDS_PBCK.fieldbyname('PBKCID').AsString) = '' then
begin
if GetLSNo(ADOCmd, MaxPBKCID, 'YK', 'JYOrder_PBKC', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
MaxPBKCID := Trim(CDS_PBCK.fieldbyname('PBKCID').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_PBKC');
sql.Add('where PBKCID=' + QuotedStr(trim(MaxPBKCID)));
Open;
end;
with ADOCmd do
begin
if Trim(CDS_PBCK.fieldbyname('PBKCID').AsString) = '' then
Append
else
Edit;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('SubId').Value := Trim(Smaxno);
FieldByName('KCId').Value := FieldByName('KCId').Value;
RTSetSaveDataCDS(ADOCmd, Tv1, CDS_PBCK, 'JYOrder_PBKC', 0);
FieldByName('PBKCID').Value := Trim(MaxPBKCID);
Post;
end;
CDS_PBCK.Edit;
CDS_PBCK.FieldByName('PBKCID').Value := Trim(MaxPBKCID);
Next;
end;
end;
//*************************<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*************************
//*************************<2A><><EFBFBD><EFBFBD><EFBFBD>ײ<EFBFBD><D7B2><EFBFBD><EFBFBD><EFBFBD>*************************
with CDS_DBKC do
begin
First;
while not Eof do
begin
if Trim(CDS_DBKC.fieldbyname('DBKCID').AsString) = '' then
begin
if GetLSNo(ADOCmd, MaxdBKCID, 'DK', 'JYOrder_DBKC', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
MaxdBKCID := Trim(CDS_DBKC.fieldbyname('DBKCID').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_DBKC');
sql.Add('where DBKCID=' + QuotedStr(trim(MaxdBKCID)));
Open;
end;
with ADOCmd do
begin
if Trim(CDS_DBKC.fieldbyname('DBKCID').AsString) = '' then
Append
else
Edit;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('SubId').Value := Trim(Smaxno);
FieldByName('KCId').Value := FieldByName('KCId').Value;
RTSetSaveDataCDS(ADOCmd, Tv4, CDS_DBKC, 'JYOrder_DBKC', 0);
FieldByName('DBKCID').Value := Trim(MaxdBKCID);
Post;
end;
CDS_DBKC.Edit;
CDS_DBKC.FieldByName('DBKCID').Value := Trim(MaxdBKCID);
Next;
end;
end;
//*************************<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*************************
//*************************<2A><><EFBFBD>湤<EFBFBD><E6B9A4>*************************
with CDS_Glide do
begin
First;
while not Eof do
begin
if Trim(CDS_Glide.fieldbyname('GlideNo').AsString) = '' then
begin
if GetLSNo(ADOCmd, MaxGlideNo, 'CG', 'JYOrder_Glide', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
MaxGlideNo := Trim(CDS_Glide.fieldbyname('GlideNo').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_Glide');
sql.Add('where GlideNo=' + QuotedStr(trim(MaxGlideNo)));
Open;
end;
with ADOCmd do
begin
if Trim(CDS_Glide.fieldbyname('GlideNo').AsString) = '' then
Append
else
Edit;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('SubId').Value := Trim(Smaxno);
FieldByName('GlideNo').Value := Trim(MaxGlideNo);
FieldByName('CarNo').Value := Trim(FOrderNo);
RTSetSaveDataCDS(ADOCmd, Tv2, CDS_Glide, 'JYOrder_Glide', 0);
Post;
end;
CDS_Glide.Edit;
CDS_Glide.FieldByName('GlideNo').Value := Trim(MaxGlideNo);
Next;
end;
end;
with CDS_Car do
begin
while not CDS_Car.Eof do
begin
if CDS_Car.FieldByName('GlideIDx').AsInteger = 0 then
begin
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select * from JYOrder_Car A');
sql.Add('where CarNO=''' + trim(CDS_Car.fieldbyname('CarNo').AsString) + '''');
open;
if IsEmpty then
begin
append;
fieldbyname('Filler').Value := trim(DName);
end
else
begin
edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('carNo').Value := trim(CDS_Car.fieldbyname('carNo').AsString);
FieldByName('CrTime').Value := formatdateTime('yyyy-MM-dd', CDS_Car.fieldbyname('CrTime').AsDateTime);
FieldByName('MainID').Value := trim(maxno);
FieldByName('subID').Value := trim(Smaxno);
FieldByName('carxh').Value := CDS_Car.fieldbyname('carxh').AsInteger;
FieldByName('KKMF').Value := trim(CDS_Car.fieldbyname('KKMF').AsString);
FieldByName('KKKZ').Value := trim(CDS_Car.fieldbyname('KKKZ').AsString);
FieldByName('RollNum').Value := CDS_Car.fieldbyname('RollNum').AsInteger;
FieldByName('Qty').Value := CDS_Car.fieldbyname('Qty').AsFloat;
FieldByName('QtyUnit').Value := trim(CDS_Car.fieldbyname('QtyUnit').AsString);
FieldByName('Note').Value := trim(CDS_Car.fieldbyname('Note').AsString);
FieldByName('valid').Value := 'Y';
// FieldByName('KKGY').Value := Fgongyi;
FieldByName('KKGH').Value := trim(CDS_Car.fieldbyname('KKGH').AsString);
post;
end;
end;
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('exec P_Insert_Glide ' + quotedstr(OrderNo.Text) + ',' + quotedstr(Trim(trim(CDS_Car.fieldbyname('CarNo').AsString))));
ExecSQL;
end;
CDS_Car.Next;
end;
end;
//*************************<2A><><EFBFBD>湤<EFBFBD><E6B9A4>*************************
ADOCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
end;
end;
procedure TfrmOrderInPut.TBSaveClick(Sender: TObject);
begin
if CheckData() = false then
exit;
if CDS_Car.IsEmpty = TRUE then
begin
Button1.Click();
end;
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
ModalResult := 1;
end;
end;
procedure TfrmOrderInPut.CustomerNoNameBtnUpClick(Sender: TObject);
begin
try
frmZdyAttachment := TfrmZdyAttachment.Create(Application);
with frmZdyAttachment do
begin
// IF self.canshu1<>'<27><>Ȩ<EFBFBD><C8A8>' then canshu1:='ҵ<><D2B5>Ա';
if ShowModal = 1 then
begin
CustomerNoName.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
CustomerNoName.TxtCode := Trim(CDS_HZ.fieldbyname('CoCode').AsString);
YWY.Text := Trim(CDS_HZ.fieldbyname('Salesman').AsString);
end;
end;
finally
frmZdyAttachment.Free;
end;
end;
procedure TfrmOrderInPut.CustomerNoNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmOrderInPut.MPRTCodeNameBtnUpClick(Sender: TObject);
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
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.OrdDefStr2BtnUpClick(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 TfrmOrderInPut.YCLFactoryBtnUpClick(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 TfrmOrderInPut.MPRTSCTeBieNoteBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := ReturnStr;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.MPRTBZNoteDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TMemo(Sender).Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
TMemo(Sender).Lines.Add(FieldByName('ZDYName').AsString)
//inttostr(i) + '.' +
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.MPRTCodeBtnUpClick(Sender: TObject);
begin
frmProductFileSel := TfrmProductFileSel.Create(self);
with frmProductFileSel do
begin
if showmodal = 1 then
begin
MPRTCode.Text := CDS_HZ.fieldbyname('SPCode').asstring;
MPRTCodeName.Text := CDS_HZ.fieldbyname('SPName').asstring;
MPRTSpec.Text := CDS_HZ.fieldbyname('SPSpec').asstring;
MPRTMF.Text := CDS_HZ.fieldbyname('SPMF').asstring;
MPRTKZ.Text := CDS_HZ.fieldbyname('SPKZ').asstring;
end;
free;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmOrderInPut.PRTColorChange(Sender: TObject);
begin
// if pos('#', mvalue) = 0 then
// begin
// with Order_Sub do
// begin
// Edit;
// FieldByName(FFieldName).Value := Trim(mvalue) + '#';
// Post;
// end;
// end;
end;
procedure TfrmOrderInPut.ToolButton7Click(Sender: TObject);
var
maxno: string;
begin
frmPBKcList := TfrmPBKcList.create(self);
with frmPBKcList do
begin
FType := 10;
if showmodal = 1 then
begin
with CDS_Main do
begin
while CDS_Main.Locate('SSel', True, []) do
begin
with ADOQueryCmd do
begin
sql.Add('select * from JYOrder_PBKC');
sql.Add('where MainID=' + QuotedStr(trim(Self.fMainID)));
sql.Add('and subID=' + QuotedStr(trim(Self.fsubID)));
sql.Add('and KCID=' + QuotedStr(Trim(CDS_Main.FieldByName('KCID').AsString)));
end;
if ADOQueryCmd.IsEmpty then
begin
if GetLSNo(ADOQueryCmd, maxno, 'YK', 'JYOrder_PBKC', 4, 1) = False then
begin
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('insert into JYOrder_PBKC(PBKCID,MainID,subID,KCID,FPPS ) ');
sql.Add('values(' + QuotedStr(maxno));
sql.Add(',' + QuotedStr(trim(Self.fMainID)));
sql.Add(',' + QuotedStr(trim(Self.fsubID)));
sql.Add(',' + QuotedStr(Trim(CDS_Main.FieldByName('KCID').AsString)));
sql.Add(',' + QuotedStr(Trim(CDS_Main.FieldByName('KCPS').AsString)));
sql.Add(' )');
ExecSQL;
end;
end;
with CDS_Glide do
begin
Append;
CDS_Glide.FieldByName('Glideidx').Value := CDS_Glide.RecordCount + 1;
CDS_Glide.FieldByName('kaipi').Value := '<27><>';
CDS_Glide.FieldByName('GlideName').Value := CDS_Main.FieldByName('batchno').AsString;
CDS_Glide.FieldByName('MXCOLOR').Value := CDS_Main.FieldByName('CPCOLOR').AsString;
CDS_Glide.FieldByName('MXPS').Value := CDS_Main.FieldByName('KCPS').AsString;
end;
CDS_Main.Delete;
end;
end;
end;
free;
end;
InitPBCK();
end;
procedure TfrmOrderInPut.ToolButton8Click(Sender: TObject);
begin
if CDS_PBCK.IsEmpty then
exit;
if CDS_PBCK.fieldbyname('YYPS').AsInteger > 0 then
begin
Application.MessageBox('<27>ѿ<EFBFBD><D1BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add(' delete JYOrder_PBKC where PBKCID=''' + Trim(CDS_PBCK.fieldbyname('PBKCID').AsString) + '''');
sql.Add(' and YYPS=0');
execsql;
end;
CDS_PBCK.Delete;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
end;
procedure TfrmOrderInPut.ToolButton6Click(Sender: TObject);
begin
frmGXGL_List_DXCX := TfrmGXGL_List_DXCX.create(self);
with frmGXGL_List_DXCX do
begin
if showmodal = 1 then
begin
Order_FZ.First;
while not Order_FZ.eof do
begin
CDS_Glide.Append;
CDS_Glide.FieldByName('Glideidx').Value := CDS_Glide.RecordCount + 1;
CDS_Glide.FieldByName('kaipi').Value := '<27><>';
CDS_Glide.FieldByName('GlideName').Value := Order_FZ.fieldbyname('PSName').AsString;
CDS_Glide.FieldByName('Note').Value := trim(Order_FZ.fieldbyname('Note').AsString);
CDS_Glide.Post;
Order_FZ.next;
end;
end;
free;
end;
end;
procedure TfrmOrderInPut.ToolButton2Click(Sender: TObject);
begin
with CDS_Glide do
begin
if IsEmpty then
Exit;
if RecNo >= 1 then
begin
Edit;
fieldByName('GlideIdx').Value := fieldByName('GlideIdx').Value - 1;
Post;
Prior;
Edit;
fieldByName('GlideIdx').Value := fieldByName('GlideIdx').Value + 1;
Post;
end;
Prior;
end;
end;
procedure TfrmOrderInPut.ToolButton3Click(Sender: TObject);
begin
CDS_Glide.IndexFieldNames := 'GlideIdx';
with CDS_Glide do
begin
if IsEmpty then
Exit;
Next;
if not Eof then
Prior
else
begin
exit;
end;
if not Eof then
begin
Edit;
fieldByName('GlideIdx').Value := fieldByName('GlideIdx').Value + 1;
Post;
Prior;
Edit;
fieldByName('GlideIdx').Value := fieldByName('GlideIdx').Value - 1;
Post;
end;
Next;
end;
end;
procedure TfrmOrderInPut.ToolButton4Click(Sender: TObject);
var
k: integer;
begin
if cds_Glide.IsEmpty then
exit;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add(' delete JYOrder_Glide where GlideNo=''' + Trim(cds_Glide.fieldbyname('GlideNo').AsString) + '''');
execsql;
end;
cds_Glide.Delete;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
// cds_Glide.Delete;
cds_Glide.IndexFieldNames := 'GlideIdx';
cds_Glide.DisableControls;
cds_Glide.First;
k := 1;
while not cds_Glide.Eof do
begin
cds_Glide.Edit;
cds_Glide.FieldByName('GlideIdx').Value := k;
cds_Glide.Post;
inc(k);
cds_Glide.Next;
end;
cds_Glide.First;
cds_Glide.EnableControls;
end;
procedure TfrmOrderInPut.ToolButton1Click(Sender: TObject);
var
maxId: string;
begin
// if Trim(FOrderNo) = '' then
// begin
// Application.MessageBox('<27><><EFBFBD>ȱ<EFBFBD><C8B1><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
// exit;
// end;
try
// frmGXGL_List_DXCX := TfrmGXGL_List_DXCX.create(self);
// with frmGXGL_List_DXCX do
// begin
// if showmodal = 1 then
// begin
// Order_FZ.First;
// while not Order_FZ.eof do
// begin
//
// CDS_Glide.Append;
// CDS_Glide.FieldByName('Glideidx').Value := Order_FZ.RecNo;
// CDS_Glide.FieldByName('GlideName').Value := trim(Order_FZ.fieldbyname('PSName').AsString);
// CDS_Glide.FieldByName('Note').Value := trim(Order_FZ.fieldbyname('Note').AsString);
// CDS_Glide.Post;
//
// Order_FZ.Next;
// end;
// end;
// end;
CDS_Glide.Append;
CDS_Glide.FieldByName('Glideidx').Value := CDS_Glide.RecordCount + 1;
CDS_Glide.FieldByName('kaipi').Value := '<27><>';
CDS_Glide.Post;
finally
frmGXGL_List_DXCX.Free;
end;
end;
procedure TfrmOrderInPut.PRTPsChange(Sender: TObject);
begin
PRTOrderQty.Text := FloatToStr(RoundFloat(StrToFloatDef(PRTPs.Text, 0) * StrToFloatDef(PRTPiZhong.Text, 0), 2));
end;
procedure TfrmOrderInPut.ToolButton5Click(Sender: TObject);
begin
GetGy();
end;
procedure TfrmOrderInPut.PRTPsKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if not CDS_PBCK.IsEmpty then
begin
with CDS_PBCK do
begin
First;
if FieldByName('FPPS').AsInteger < StrToIntDef(PRTPs.Text, 0) then
begin
PRTPs.Text := CDS_PBCK.FieldByName('FPPS').AsString;
end;
Edit;
FieldByName('FPPS').Value := StrToIntDef(PRTPs.Text, 0);
Post;
end;
end;
end;
end;
procedure TfrmOrderInPut.TV2Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'GXMF';
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD>ŷ<EFBFBD>';
if ShowModal = 1 then
begin
with CDS_Glide do
begin
Edit;
FieldByName('PSNote').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'GXKZ';
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
with CDS_Glide do
begin
Edit;
FieldByName('PSNote').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.gongyiPropertiesButtonClick(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
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.Jlen1KeyPress(Sender: TObject; var Key: Char);
var
p: integer;
begin
if not (Key in [#8, #13, #127, '.', '-', '0'..'9']) then
Key := #0;
// if Key = '.' then
// begin
// p := Pos('.', Self.Text);
// if p > 0 then Key := #0;
// end;
// //<2F><><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB><EFBFBD>ڵ<EFBFBD>һλ<D2BB><CEBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>'-'<27><>
// if Key = '-' then
// begin
// if TEdit(Controls[26]).SelStart > 0 then Key := #0;
// p := Pos('-', Self.Text);
// if p > 0 then Key := #0;
// end;
end;
procedure TfrmOrderInPut.Button1Click(Sender: TObject);
var
i, k, Fcarxh: integer;
maxId: string;
MRollNum: Double;
begin
// if trim(OrderNo.Text) = '' then
// begin
// application.MessageBox('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
// exit;
// end;
if CDS_Car.IsEmpty then
Fcarxh := 0
else
Fcarxh := CDS_Car.RecordCount;
if strtointdef(trim(carNum.text), 0) <= 1 then
k := 1
else
k := strtointdef(trim(carNum.text), 0);
MRollNum := strtointdef(trim(PRTPs.text), 0);
//RoundFloat(strtointdef(trim(PRTPs.text), 0) / k, 0);
CDS_Car.Last;
for i := 1 to k do
begin
Fcarxh := Fcarxh + 1;
CopyAddRowCDS(CDS_Car);
if GetLSNo(ADOCmd, maxId, 'CZ', 'JYOrder_Car', 3, 1) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
CDS_Car.edit;
CDS_Car.FieldByName('carNo').Value := maxId;
CDS_Car.FieldByName('carxh').Value := Fcarxh;
CDS_Car.FieldByName('CRTime').Value := CRTime.date;
CDS_Car.FieldByName('Sflag').Value := '0';
CDS_Car.FieldByName('KKMF').Value := Trim(MPRTMF.Text);
CDS_Car.FieldByName('KKKZ').Value := Trim(MPRTKZ.Text);
CDS_Car.FieldByName('RollNum').Value := MRollNum;
CDS_Car.Post;
end;
end;
procedure TfrmOrderInPut.Button3Click(Sender: TObject);
begin
if CDS_car.IsEmpty then
exit;
if CDS_car.Locate('ssel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
CDS_car.DisableControls;
with CDS_car do
begin
First;
while not Eof do
begin
if CDS_car.FieldByName('SSel').AsBoolean = True then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_PB_CR where Valid=''Y'' and CRType=''<27>Զ<EFBFBD><D4B6><EFBFBD>ƥ''');
sql.Add('and CarNo=' + quotedstr(Trim(CDS_car.fieldbyname('carNO').AsString)));
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('<27>ѿ<EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
CDS_car.EnableControls;
Exit;
end;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from WFB_MJJY where APID=''' + Trim(CDS_Car.fieldbyname('carNO').AsString) + '''');
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('<27>Ѽ<EFBFBD><D1BC>鲻<EFBFBD><E9B2BB>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
CDS_car.EnableControls;
Exit;
end;
try
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add(' delete JYOrder_car where carNO=''' + Trim(CDS_car.fieldbyname('carNo').AsString) + '''');
sql.Add(' exec P_Do_PbOut_Del @carNO=''' + Trim(CDS_car.fieldbyname('carNo').AsString) + '''');
execsql;
end;
CDS_car.Delete;
except
ADOCmd.Connection.RollbackTrans;
CDS_car.EnableControls;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
end
else
Next;
end;
end;
CDS_car.EnableControls;
end;
procedure TfrmOrderInPut.Button2Click(Sender: TObject);
begin
if CDS_car.IsEmpty then
exit;
if CDS_car.Locate('RollNum', null, []) then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>㣡', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
if CDS_car.Locate('RollNum', 0, []) then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>㣡', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
ADOCmd.Connection.BeginTrans;
try
CDS_Car.DisableControls;
CDS_Car.First;
while not CDS_Car.Eof do
begin
if CDS_Car.FieldByName('GlideIDx').AsInteger = 0 then
begin
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('select * from JYOrder_Car A');
sql.Add('where CarNO=''' + trim(CDS_Car.fieldbyname('CarNo').AsString) + '''');
open;
if IsEmpty then
begin
append;
fieldbyname('Filler').Value := trim(DName);
end
else
begin
edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('carNo').Value := trim(CDS_Car.fieldbyname('carNo').AsString);
FieldByName('CrTime').Value := formatdateTime('yyyy-MM-dd', CDS_Car.fieldbyname('CrTime').AsDateTime);
FieldByName('MainID').Value := trim(fMainID);
FieldByName('subID').Value := trim(fsubID);
FieldByName('carxh').Value := CDS_Car.fieldbyname('carxh').AsInteger;
FieldByName('KKMF').Value := trim(CDS_Car.fieldbyname('KKMF').AsString);
FieldByName('KKKZ').Value := trim(CDS_Car.fieldbyname('KKKZ').AsString);
FieldByName('RollNum').Value := CDS_Car.fieldbyname('RollNum').AsInteger;
FieldByName('Qty').Value := CDS_Car.fieldbyname('Qty').AsFloat;
FieldByName('QtyUnit').Value := trim(CDS_Car.fieldbyname('QtyUnit').AsString);
FieldByName('Note').Value := trim(CDS_Car.fieldbyname('Note').AsString);
FieldByName('valid').Value := 'Y';
FieldByName('KKGH').Value := trim(CDS_Car.fieldbyname('KKGH').AsString);
post;
end;
end;
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('exec P_Insert_Glide ' + quotedstr(OrderNo.Text) + ',' + quotedstr(Trim(trim(CDS_Car.fieldbyname('CarNo').AsString))));
ExecSQL;
end;
CDS_Car.Next;
end;
CDS_Car.EnableControls;
adocmd.Connection.CommitTrans;
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
ModalResult := 1;
except
CDS_Car.EnableControls;
adocmd.Connection.RollbackTrans;
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
end;
end;
procedure TfrmOrderInPut.TV2Column3PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
tvalue: Double;
fps: Double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
with CDS_Glide do
begin
Edit;
CDS_Glide.FieldByName('MXPS').VALUE := mvalue;
Post;
end;
tv2.Controller.EditingController.ShowEdit();
PRTPs.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[0]);
end;
procedure TfrmOrderInPut.ToolButton9Click(Sender: TObject);
var
maxno: string;
begin
frmTCKcListSEL := TfrmTCKcListSEL.create(self);
with frmTCKcListSEL do
begin
FType := 10;
if showmodal = 1 then
begin
with CDS_Main do
begin
while CDS_Main.Locate('SSel', True, []) do
begin
with ADOQueryCmd do
begin
sql.Add('select * from JYOrder_DBKC');
sql.Add('where MainID=' + QuotedStr(trim(Self.fMainID)));
sql.Add('and subID=' + QuotedStr(trim(Self.fsubID)));
sql.Add('and KCID=' + QuotedStr(Trim(CDS_Main.FieldByName('crno').AsString)));
end;
if ADOQueryCmd.IsEmpty then
begin
if GetLSNo(ADOQueryCmd, maxno, 'DK', 'JYOrder_DBKC', 4, 1) = False then
begin
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('insert into JYOrder_DBKC(DBKCID,MainID,subID,KCID,FPPS ) ');
sql.Add('values(' + QuotedStr(maxno));
sql.Add(',' + QuotedStr(trim(Self.fMainID)));
sql.Add(',' + QuotedStr(trim(Self.fsubID)));
sql.Add(',' + QuotedStr(Trim(CDS_Main.FieldByName('crno').AsString)));
sql.Add(',' + QuotedStr(Trim(CDS_Main.FieldByName('rollnum').AsString)));
sql.Add(' )');
ExecSQL;
end;
end;
CDS_Main.Delete;
end;
end;
end;
free;
end;
InitDBCK();
end;
procedure TfrmOrderInPut.ToolButton10Click(Sender: TObject);
begin
if CDS_DBKC.IsEmpty then
exit;
if CDS_DBKC.fieldbyname('YYPS').AsInteger > 0 then
begin
Application.MessageBox('<27>ѿ<EFBFBD><D1BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add(' delete JYOrder_DBKC where DBKCID=''' + Trim(CDS_DBKC.fieldbyname('DBKCID').AsString) + '''');
sql.Add(' and YYPS=0');
execsql;
end;
CDS_DBKC.Delete;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
end;
end.
Reference in New Issue Copy Permalink