Group_01/D7wmguihua
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
b4b5840f18
D7wmguihua/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.pas

2348 lines
63 KiB
ObjectPascal
Raw Normal View History

1
2025-01-18 16:22:10 +08:00
unit U_MJManageNewFDNewCD;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu,
cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons,
cxSplitter, cxCheckBox, MovePanel;
function CommOpen(fhandle:hwnd;sCommName:PAnsiChar;
IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL';
function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL';
function CommOpen1301(fhandle:hwnd;sCommName:PAnsiChar;
IntTime:integer;IsMessage:integer):integer;stdcall;external 'JZCRS323C.DLL';
function CommClose1301(sCommName:PAnsiChar):integer;stdcall;external 'JZCRS323C.DLL';
//function GetCommData(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL';
type
TfrmMJManageNewFDNewCD = class(TForm)
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
cxGridPopupMenu1: TcxGridPopupMenu;
DataSource1: TDataSource;
Order_MJ: TClientDataSet;
ADOQueryMain: TADOQuery;
ADOCmd: TADOQuery;
ADOTmp: TADOQuery;
RMDB_Main: TRMDBDataSet;
RM2: TRMGridReport;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
DataSource2: TDataSource;
CDS_MJCD: TClientDataSet;
DataSource3: TDataSource;
CDS_MJID: TClientDataSet;
Timer1: TTimer;
ADOQueryPrint: TADOQuery;
ScrollBox1: TScrollBox;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
cxStyleRepository2: TcxStyleRepository;
cxStyle3: TcxStyle;
cxStyleRepository3: TcxStyleRepository;
cxStyle4: TcxStyle;
cxStyleRepository4: TcxStyleRepository;
cxStyle5: TcxStyle;
cxStyleRepository5: TcxStyleRepository;
cxStyle6: TcxStyle;
cxGridPopupMenu2: TcxGridPopupMenu;
ADOQueryMainDSC: TADOQuery;
Panel2: TPanel;
Label9: TLabel;
MJFK: TEdit;
Label3: TLabel;
MJLen: TEdit;
Label4: TLabel;
MJMaoZ: TEdit;
Label5: TLabel;
Label6: TLabel;
Label11: TLabel;
BTPrint: TButton;
Button5: TButton;
Edit3: TEdit;
Label10: TLabel;
Edit4: TEdit;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
MJQty1: TEdit;
Label15: TLabel;
Label22: TLabel;
Label23: TLabel;
MJSJKZ: TEdit;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton49: TSpeedButton;
v3Column1: TcxGridDBColumn;
v3Column2: TcxGridDBColumn;
v3Column3: TcxGridDBColumn;
Label27: TLabel;
MJQty2: TEdit;
Label28: TLabel;
Edit5: TEdit;
Label26: TLabel;
Edit6: TEdit;
Label29: TLabel;
MJstr3: TEdit;
Label30: TLabel;
MJQty3: TEdit;
Label31: TLabel;
Label32: TLabel;
MJQty4: TEdit;
Label33: TLabel;
Panel4: TPanel;
MovePanel1: TMovePanel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit1: TEdit;
Button1: TButton;
Button4: TButton;
Edit2: TEdit;
CDQty: TEdit;
Panel5: TPanel;
Panel6: TPanel;
Label1: TLabel;
Label2: TLabel;
Label16: TLabel;
Label24: TLabel;
Label25: TLabel;
APID: TEdit;
BTAdd: TButton;
BTEdit: TButton;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
TBCD: TToolButton;
TBClose: TToolButton;
Panel7: TPanel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
tv2CDType: TcxGridDBColumn;
tv2CDWZ: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
Tv2CDQty: TcxGridDBColumn;
Tv2CDReason: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Panel8: TPanel;
Button3: TButton;
BZNote: TRichEdit;
Label34: TLabel;
ComboBox1: TComboBox;
Edit7: TEdit;
Label35: TLabel;
v3Column4: TcxGridDBColumn;
Label36: TLabel;
Edit8: TEdit;
SpeedButton18: TSpeedButton;
SpeedButton19: TSpeedButton;
SpeedButton20: TSpeedButton;
SpeedButton21: TSpeedButton;
SpeedButton22: TSpeedButton;
SpeedButton23: TSpeedButton;
SpeedButton24: TSpeedButton;
SpeedButton25: TSpeedButton;
SpeedButton26: TSpeedButton;
SpeedButton27: TSpeedButton;
SpeedButton28: TSpeedButton;
SpeedButton29: TSpeedButton;
SpeedButton30: TSpeedButton;
SpeedButton31: TSpeedButton;
SpeedButton32: TSpeedButton;
SpeedButton33: TSpeedButton;
SpeedButton34: TSpeedButton;
SpeedButton35: TSpeedButton;
SpeedButton36: TSpeedButton;
SpeedButton37: TSpeedButton;
SpeedButton38: TSpeedButton;
SpeedButton39: TSpeedButton;
SpeedButton40: TSpeedButton;
SpeedButton41: TSpeedButton;
SpeedButton42: TSpeedButton;
SpeedButton43: TSpeedButton;
SpeedButton44: TSpeedButton;
SpeedButton45: TSpeedButton;
SpeedButton46: TSpeedButton;
SpeedButton47: TSpeedButton;
SpeedButton48: TSpeedButton;
SpeedButton50: TSpeedButton;
SpeedButton51: TSpeedButton;
SpeedButton52: TSpeedButton;
SpeedButton53: TSpeedButton;
SpeedButton54: TSpeedButton;
SpeedButton55: TSpeedButton;
SpeedButton56: TSpeedButton;
SpeedButton57: TSpeedButton;
SpeedButton58: TSpeedButton;
SpeedButton59: TSpeedButton;
SpeedButton60: TSpeedButton;
SpeedButton61: TSpeedButton;
SpeedButton62: TSpeedButton;
SpeedButton63: TSpeedButton;
Edit9: TEdit;
Button2: TButton;
Label37: TLabel;
BitBtn1: TBitBtn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure Tv2CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure TBCDClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Tv2CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure MJMaoZClick(Sender: TObject);
procedure MJLenClick(Sender: TObject);
procedure MJFKClick(Sender: TObject);
procedure MJBanZuClick(Sender: TObject);
procedure MJSJKZClick(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure Tv3CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure FormClick(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure BTAddClick(Sender: TObject);
procedure BTEditClick(Sender: TObject);
procedure BTPrintClick(Sender: TObject);
procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure cxGridDBColumn2PropertiesChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure SpeedButton49Click(Sender: TObject);
procedure APIDKeyPress(Sender: TObject; var Key: Char);
procedure Edit1Click(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Click(Sender: TObject);
procedure Edit4Click(Sender: TObject);
procedure Edit5Click(Sender: TObject);
procedure Edit6Click(Sender: TObject);
procedure MJstr3KeyPress(Sender: TObject; var Key: Char);
procedure MJQty3Exit(Sender: TObject);
procedure MJMaoZExit(Sender: TObject);
procedure Label9Click(Sender: TObject);
procedure MJLenExit(Sender: TObject);
procedure MJQty4Exit(Sender: TObject);
procedure MJQty4Change(Sender: TObject);
procedure MJMaoZChange(Sender: TObject);
procedure APIDClick(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure MJFKChange(Sender: TObject);
procedure Edit7Click(Sender: TObject);
procedure BTPrintKeyPress(Sender: TObject; var Key: Char);
procedure MJQty4KeyPress(Sender: TObject; var Key: Char);
procedure MJQty2KeyPress(Sender: TObject; var Key: Char);
procedure MJLenKeyPress(Sender: TObject; var Key: Char);
procedure MJMaoZKeyPress(Sender: TObject; var Key: Char);
procedure Edit8Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure CDQtyChange(Sender: TObject);
private
{ Private declarations }
FInt,PState,PrintInt,SCInitGrid,FState,FCK,FCKCheng:Integer;
FColumn,FBanZu,FAPID,FMainId,FSubId,FFFMJID,NewFlag:String;
MValue,FCDName:String;
procedure InitJP();
procedure InitCDGrid();
procedure InitCDGridID();
procedure AddCD(Fbtn:TButton);
procedure AddSL(Fbtn:TButton);
function SaveData():Boolean;
procedure BtnStatus(BSInt:Boolean);
procedure AddSLNew(Fbtn:TSpeedButton);
procedure AddCDNew(Fbtn:TSpeedButton);
procedure SavedataCK();
procedure PrtData(FMJID:String);
procedure On1201(Var Message:Tmessage);Message 1201;
procedure On1301(Var Message:Tmessage);Message 1301;
public
{ Public declarations }
end;
var
frmMJManageNewFDNewCD: TfrmMJManageNewFDNewCD;
implementation
uses
U_DataLink,U_RTFun,U_ZDYHelp,U_iniParam;
{$R *.dfm}
procedure TfrmMJManageNewFDNewCD.FormDestroy(Sender: TObject);
begin
frmMJManageNewFDNewCD:=nil;
end;
procedure TfrmMJManageNewFDNewCD.On1201(Var Message:Tmessage);
var
i1,i2:integer;
unitname:string;
fdata:double;
begin
i1:=message.WParam;
i2:=message.LParam;
//Edit1.Text:= floattostr(i1 *i2 /100000 );
edit9.Text:= floattostr(i1/100000 );
end;
procedure TfrmMJManageNewFDNewCD.On1301(Var Message:Tmessage);
var
i1,i2:integer;
unitname:string;
fdata:double;
begin
i1:=message.WParam;
i2:=message.LParam;
MJMaoZ.Text:= floattostr(i1/100000 );
end;
procedure TfrmMJManageNewFDNewCD.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
//DataLink_WFBProducttion.ADOLink.Connected:=False;
Action:=caFree;
if FCK=9 then
begin
CommClose(pchar(PortNoStr));
end;
if FCKCheng=9 then
begin
CommClose1301(pchar(PortNoStr));
end;
end;
procedure TfrmMJManageNewFDNewCD.InitCDGrid();
begin
if PState=1 then
begin
if CDS_MJCD.IsEmpty=False then Exit;
end;
with ADOQueryMain do
begin
Close;
SQL.Clear;
if PState=1 then
begin
sql.Add('select * from WFB_MJJY_CD where MJID='''' ')
end
else
sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+'''');
Open;
end;
SCreateCDS20(ADOQueryMain,CDS_MJCD);
SInitCDSData20(ADOQueryMain,CDS_MJCD);
end;
procedure TfrmMJManageNewFDNewCD.InitCDGridID();
begin
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select ');
sql.Add('Case when isnull(MJType,'''')=''<27><>Ʒ'' then ''B''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH ');
sql.Add(', A.* from WFB_MJJY A where APID='''+Trim(FAPID)+'''');
if Trim(SCXFlag)<>'' then
sql.Add(' and JTType='''+Trim(SCXFlag)+'''');
Open;
end;
SCreateCDS20(ADOQueryMain,CDS_MJID);
SInitCDSData20(ADOQueryMain,CDS_MJID);
end;
procedure TfrmMJManageNewFDNewCD.TBCloseClick(Sender: TObject);
var
maxno:string;
begin
if CDS_MJCD.IsEmpty=False then
begin
if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then
begin
//try
//ADOCmd.Connection.BeginTrans;
{with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+'''');
Execsql;
end;
with CDS_MJCD do
begin
First;
while not Eof do
begin
if GetLSNo(ADOCmd,maxno,'LS','WFB_MJJY_CD_Temp',2,1)=False then
begin
// ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<>õ<EFBFBD><C3B5><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from WFB_MJJY_CD_Temp where 1<>1');
Open;
end;
with ADOCmd do
begin
Append;
FieldByName('MCID').Value:=Trim(maxno);
SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD_Temp',0);
FieldByName('JTType').Value:=Trim(SCXFlag);
Post;
end;
Next;
end;
end; }
close;
//ADOCmd.Connection.CommitTrans;
//ModalResult:=1;
//except
//ADOCmd.Connection.RollbackTrans;
//Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
//end;
end else
begin
Close;
end;
end else
begin
Close;
end;
end;
procedure TfrmMJManageNewFDNewCD.Tv2CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
var
fsj:string;
begin
//FInt:=0;
//Tv1.DataController.FocusedRecordIndex;
//fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName;
end;
procedure TfrmMJManageNewFDNewCD.TBCDClick(Sender: TObject);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='WFBCD';
flagname:='<27>õ<EFBFBD>';
fnote:=True;
V1Note.Caption:='Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
Self.InitJP();
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmMJManageNewFDNewCD.FormShow(Sender: TObject);
begin
//InitJP();
{with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+'''');
Open;
FBanZu:=Trim(Fieldbyname('BanZu').AsString);
end; }
{if Trim(FBanZu)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ð<EFBFBD><C3B0>飡','<27><>ʾ',0);
Exit;
end; }
APID.SetFocus;
//{if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then
if CommOpen(frmMJManageNewFDNewCD.Handle,pchar(PortNoStr),500,1)<1 then
begin
FCK:=1;
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڴ<EFBFBD><DAB4><EFBFBD>ʧ<EFBFBD><CAA7>!');
end else
begin
FCk:=9;
end;
if CommOpen1301(frmMJManageNewFDNewCD.Handle,pchar(PortNoStr),1000,1)<1 then
begin
FCKCheng:=1;
showmessage('<27><><EFBFBD>ӳƴ<D3B3><C6B4>ڴ<EFBFBD><DAB4><EFBFBD>ʧ<EFBFBD><CAA7>!');
end else
begin
FCKCheng:=9;
end;
NewFlag:='';
end;
procedure TfrmMJManageNewFDNewCD.InitJP();
var
AA:array[0..100] of string;
i,j:Integer;
begin
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_CD where MainId='''+Trim(FMainId)+'''');
Open;
end;
if ADOTmp.IsEmpty then
begin
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO ');
Open;
end;
end;
if ADOTmp.IsEmpty then
begin
Application.MessageBox('û<>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>õ㣡','<27><>ʾ',0);
Exit;
end;
with ADOTmp do
begin
First;
i:=0;
while not Eof do
begin
AA[i]:=Trim(fieldbyname('ZDYName').AsString);
i:=i+1;
Next;
end;
end;
i:=i-1;
if i>49 then
begin
i:=49;
end;
for j:=0 to i do
begin
with ScrollBox1 do
begin
TSpeedButton(Controls[j]).Visible:=True;
TSpeedButton(Controls[j]).Hint:=AA[j];
if Length(AA[j])>4 then
begin
TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4);
end else
TSpeedButton(Controls[j]).Caption:=AA[j];
end;
end;
end;
procedure TfrmMJManageNewFDNewCD.AddCD(Fbtn:TButton);
begin
if PState<1 then Exit;
if Order_MJ.IsEmpty then Exit;
with CDS_MJCD do
begin
Append;
FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption);
Post;
end;
end;
procedure TfrmMJManageNewFDNewCD.AddCDNew(Fbtn:TSpeedButton);
begin
with CDS_MJCD do
begin
Append;
FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint);
Post;
end;
end;
procedure TfrmMJManageNewFDNewCD.AddSL(Fbtn:TButton);
begin
if PState<1 then Exit;
if Order_MJ.IsEmpty then Exit;
//if MJMaoZ.Focused then
if FInt=4 then Exit;
if CDS_MJCD.IsEmpty=False then
begin
FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName;
if Trim(FColumn)<>'' then
begin
with CDS_MJCD do
begin
Edit;
FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption);
if Trim(fieldbyname('CDQtyS').AsString)<>'' then
Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString);
Post;
end;
end;
end;
end;
procedure TfrmMJManageNewFDNewCD.AddSLNew(Fbtn:TSpeedButton);
begin
if PState<1 then Exit;
if Trim(FAPID)='' then Exit;
//if MJMaoZ.Focused then
if FInt=4 then Exit;
if FInt=11 then
begin
if TSpeedButton(Fbtn).Tag=9 then Exit;
Edit1.Text:=Trim(Edit1.Text)+Trim(TSpeedButton(Fbtn).Caption);
Edit1.SelectAll;
end else
if FInt=12 then
begin
if TSpeedButton(Fbtn).Tag=9 then Exit;
Edit2.Text:=Trim(Edit2.Text)+Trim(TSpeedButton(Fbtn).Caption);
Edit2.SelectAll;
end;{ else
if CDS_MJCD.IsEmpty=False then
begin
FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName;
if Trim(FColumn)<>'' then
begin
with CDS_MJCD do
begin
Edit;
FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption);
if Trim(fieldbyname('CDQtyS').AsString)<>'' then
Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString);
Post;
end;
end;
end; }
end;
procedure TfrmMJManageNewFDNewCD.Tv2CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
//if Tv2.OptionsSelection.CellSelect=True then
if CDS_MJCD.IsEmpty then Exit;
if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then
begin
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
CDS_MJCD.Delete;
end;
end;
procedure TfrmMJManageNewFDNewCD.MJMaoZClick(Sender: TObject);
begin
FInt:=1;
FColumn:='';
panel3.Visible:=True;
end;
procedure TfrmMJManageNewFDNewCD.MJLenClick(Sender: TObject);
begin
FInt:=2;
FColumn:='';
panel3.Visible:=True;
end;
procedure TfrmMJManageNewFDNewCD.MJFKClick(Sender: TObject);
begin
FInt:=3;
FColumn:='';
panel3.Visible:=True;
end;
procedure TfrmMJManageNewFDNewCD.MJBanZuClick(Sender: TObject);
begin
FInt:=4;
end;
procedure TfrmMJManageNewFDNewCD.MJSJKZClick(Sender: TObject);
begin
FInt:=4;
end;
procedure TfrmMJManageNewFDNewCD.Tv1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
//DataLink_WFBProducttion.ADOLink.Connected:=False;
FInt:=4;
// if PState=1 then Exit;
InitCDGridID();
//InitCDGrid();
{with ADOTmp do
begin
close;
sql.Clear;
sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+'''');
Open;
end;
if ADOTmp.IsEmpty then
begin
MJMaoZ.Text:='';
MJLen.Text:='';
MJFK.Text:='';
MJSJKZ.Text:='';
end else
SSetWinData(ADOTmp,Panel5); }
end;
procedure TfrmMJManageNewFDNewCD.Tv3CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
if CDS_MJCD.IsEmpty=False then
begin
if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end;
FInt:=4;
PState:=0;
InitCDGrid();
with ADOTmp do
begin
close;
sql.Clear;
sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+'''');
Open;
end;
MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString);
MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString);
MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString);
MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString);
MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString);
Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString);
MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString);
if Trim(ADOTmp.fieldbyname('MJType').AsString)='<27><>Ʒ' then
begin
Edit3.Text:='<27><>';
Edit4.Text:='';
Edit5.Text:='';
end else
if Trim(ADOTmp.fieldbyname('MJType').AsString)='<27><>Ʒ' then
begin
Edit4.Text:='<27><>';
Edit3.Text:='';
Edit5.Text:='';
end else
if Trim(ADOTmp.fieldbyname('MJType').AsString)='<27><><EFBFBD><EFBFBD>' then
begin
Edit4.Text:='';
Edit3.Text:='';
Edit5.Text:='<27><>';
end;
BtnStatus(False);
Label16.Caption:='';
end;
procedure TfrmMJManageNewFDNewCD.FormClick(Sender: TObject);
begin
FInt:=4;
end;
procedure TfrmMJManageNewFDNewCD.Button12Click(Sender: TObject);
var
fsj:string;
begin
if PState<1 then Exit;
if Trim(FAPID)='' then Exit;
if FInt=4 then Exit;
begin
FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName;
if Trim(FColumn)<>'' then
begin
if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then
begin
with CDS_MJCD do
begin
Edit;
if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then
begin
FieldByName(FColumn).Value:=null ;
FieldByName('CDQty').Value:=0;
end
else
begin
FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1);
FieldByName('CDQty').Value:=FieldByName(FColumn).Value;
end;
Post;
end;
end;
end;
end;
end;
function TfrmMJManageNewFDNewCD.SaveData():Boolean;
var
maxno,FMJID,BZID,strsql:String;
FMJLen:Double;
FOrder:Integer;
begin
if PState=1 then
FMJID:=''
else if PState=2 then
FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString)
else if PState<1 then Exit;
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(FMJID)='' then
begin
Append;
if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
exit;
end;
end
else begin
maxno:=Trim(FMJID);
Edit;
end;
FieldByName('MainId').value:=Trim(FMainId);
FieldByName('SubId').value:=Trim(FSubId);
FieldByName('APId').value:=Trim(FAPID);
FieldByName('MJID').Value:=Trim(maxno);
FieldByName('MJStr2').Value:='δ<><CEB4><EFBFBD><EFBFBD>';
FieldByName('MJBanZu').Value:=Trim(FBanZu);
FieldByName('MJstr3').Value:=Trim(MJstr3.Text);
// FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0);
if Trim(MJLen.Text)<>'' then
begin
FieldByName('MJLen').Value:=StrToFloat(MJLen.Text);
end;
if Trim(MJQty1.Text)<>'' then
begin
FieldByName('MJQty1').Value:=StrToFloat(MJQty1.Text);
end;
if Trim(MJQty2.Text)<>'' then
begin
FieldByName('MJQty2').Value:=StrToFloat(MJQty2.Text);
end;
FieldByName('MJQty3').Value:=StrToFloatdef(trim(MJQty3.Text),0);
FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0);
if Trim(MJFK.Text)<>'' then
begin
FieldByName('MJFK').Value:=StrToFloat(MJFK.Text);
end;
if Trim(MJMaoZ.Text)<>'' then
begin
FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text);
end;
if Trim(MJSJKZ.Text)<>'' then
begin
FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text);
end;
if Trim(Edit3.Text)<>'' then
begin
FieldByName('MJType').Value:='<27><>Ʒ';
end;
if Trim(Edit4.Text)<>'' then
begin
FieldByName('MJType').Value:='<27><>Ʒ';
end;
if Trim(Edit5.Text)<>'' then
begin
FieldByName('MJType').Value:='<27><>ƴ';
end;
FieldByName('MJTypeOther').Value:=Trim(Label9.Caption);
FieldByName('MJStr1').Value:=Trim(Label13.Caption);
{if Trim(MJSJKZ.Text)<>'' then
begin
FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text);
end; }
if Trim(FMJID)='' then
begin
FieldByName('Filler').Value:=Trim(DName);
end else
begin
FieldByName('Editer').Value:=Trim(DName);
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp);
end;
if Trim(SCXFlag)<>'' then
begin
FieldByName('JTType').Value:=Trim(SCXFlag);
end;
Post;
end;
{strsql:=' UPdate WFB_MJJY Set MJXH=(select isnull(max(X1.MJXH),0)+1 '+
' from WFB_MJJY X1,JYorder_sub X2 '+
' where X1.mainID=X2.mainID and X1.subID=X2.SubID '+
' and X1.MainID=A.MainID and X2.PrTColor=B.PrTColor '+
' and isnull(X1.MJstr3,'''')='+quotedstr(trim(MJstr3.Text));
if Trim(Edit3.Text)<>'' then
begin
strsql:=strsql+' and X1.MJType= ''<27><>Ʒ'' ';
end;
if Trim(Edit4.Text)<>'' then
begin
strsql:=strsql+' and X1.MJType= ''<27><>Ʒ'' ';
end;
if Trim(Edit5.Text)<>'' then
begin
strsql:=strsql+' and X1.MJType= ''<27><>Ʒ'' ';
end;
strsql:=strsql+' )FROM WFB_MJJY A '+
' inner join JYorder_sub B on B.MainID=A.MainID and B.subID=A.subID '+
' where MJID ='+quotedstr(trim(maxno)); }
with ADOCmd do
begin
Close;
sql.Clear;
//SQL.Add(strsql);
SQL.Add('UPdate WFB_MJJY Set MJXH=(select max(MJXH)+1 ');
SQL.Add(' from WFB_MJJY A ');
SQL.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID');
sql.Add(' where A.SubID=WFB_MJJY.SubID');
sql.Add(' and B.SelfGangNo='''+Trim(Label2.Caption)+'''');
if Trim(Edit3.Text)<>'' then
begin
sql.Add(' and A.MJType=''<27><>Ʒ''');
end;
if Trim(Edit4.Text)<>'' then
begin
sql.Add(' and A.MJType=''<27><>Ʒ'' ');
end;
if Trim(Edit5.Text)<>'' then
begin
sql.Add(' and A.MJType=''<27><>ƴ'' ');
end;
sql.Add(' )where MJID='''+Trim(maxno)+'''');
ExecSQL;
end;
FMJID:=Trim(maxno);
FFFMJID:=Trim(maxno);
///<2F><><EFBFBD><EFBFBD>ĸ<EFBFBD><C4B8><EFBFBD>õ<EFBFBD><C3B5><EFBFBD>
with CDS_MJCD do
begin
First;
while not Eof do
begin
if Trim(CDS_MJCD.fieldbyname('SFlag').AsString)='' then
begin
if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then
begin
if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
end else
begin
maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from WFB_MJJY_CD ');
sql.Add(' where MCID='''+Trim(maxno)+'''');
Open;
end;
with ADOCmd do
begin
if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then
Append
else
Edit;
FieldByName('MJId').Value:=Trim(FMJID);
FieldByName('MCID').Value:=Trim(maxno);
SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0);
// FieldByName('KouFenType').Value:=CDS_MJCD.fieldbyname('KouFenType').Value;
Post;
end;
CDS_MJCD.Delete;
end else
begin
CDS_MJCD.Edit;
CDS_MJCD.FieldByName('SFlag').Value:='';
Next;
end;
//CDS_MJCD.Edit;
//CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno);
//Next;
end;
end;
with CDS_MJID do
begin
Append;
FieldByName('MJID').Value:=Trim(FMJID);
Post;
end;
//SavedataCK();
ADOCmd.Connection.CommitTrans;
Result:=True;
NewFlag:='';
PState:=0;
except
Result:=False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
end;
end;
procedure TfrmMJManageNewFDNewCD.BTAddClick(Sender: TObject);
begin
//if Trim(Label2.Caption)='' then Exit;
PState:=1;
InitCDGridID();
InitCDGrid();
BtnStatus(True);
Label16.Caption:='<27><><EFBFBD><EFBFBD>';
end;
procedure TfrmMJManageNewFDNewCD.BTEditClick(Sender: TObject);
begin
if CDS_MJID.IsEmpty then Exit;
PState:=2;
Label16.Caption:='<27>޸<EFBFBD>';
end;
procedure TfrmMJManageNewFDNewCD.BTPrintClick(Sender: TObject);
var
fPrintFile:String;
mvalue:Double;
i:Integer;
begin
if trim(MJMaoZ.Text)='' then
begin
MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) );
end;
if trim(MJQty4.Text)='' then
begin
MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) );
end;
if trim(MJQty3.Text)='' then
MJQty3.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty4.Text),0) );
if Trim(FAPID)='' then Exit;
if FInt=4 then
begin
if CDS_MJID.IsEmpty=False then
begin
Application.MessageBox('<27>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룿<EFBFBD>볢<EFBFBD><EBB3A2><EFBFBD>ش<EFBFBD><D8B4><EFBFBD>','<27><>ʾ',0);
Exit;
end;
end;
if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then
begin
Application.MessageBox('<27><><EFBFBD>أ<EFBFBD>ë<EFBFBD>ز<EFBFBD><D8B2>ܶ<EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
{ if Trim(MJMaoZ.Text)='' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end; }
{ if TryStrToFloat(MJLen.Text,mvalue)=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end; }
{if Trim(MJQty1.Text)='' then
begin
Application.MessageBox('ԭ<>벻<EFBFBD><EBB2BB>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end; }
if Trim(MJQty1.Text)<>'' then
begin
if TryStrToFloat(MJQty1.Text,mvalue)=False then
begin
Application.MessageBox('ԭ<><D4AD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end;
if Trim(MJFK.Text)<>'' then
begin
if TryStrToFloat(MJFK.Text,mvalue)=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end;
if Trim(MJMaoZ.Text)<>'' then
begin
if TryStrToFloat(MJMaoZ.Text,mvalue)=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end;
if Trim(MJSJKZ.Text)<>'' then
begin
if TryStrToFloat(MJSJKZ.Text,mvalue)=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end;
if Trim(MJQty2.Text)<>'' then
begin
if TryStrToFloat(MJQty2.Text,mvalue)=False then
begin
Application.MessageBox('<27><><EFBFBD>ͳ<EFBFBD><CDB3><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end;
{if Trim(MJSJKZ.Text)<>'' then
begin
if TryStrToFloat(MJSJKZ.Text,mvalue)=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end; }
if PState=1 then
begin
if Application.MessageBox('<27>Ƿ<EFBFBD>Ҫ<EFBFBD><D2AA>ӡ<EFBFBD><D3A1><EFBFBD>룿<EFBFBD><EBA3BF>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD>ݽ<EFBFBD><DDBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8>','<27><>ʾ',32+4)<>IDYES then Exit;
end;
if SaveData() then
begin
//BtnStatus(False);
//MJFK.Text:='';
//MJSJKZ.Text:='';
MJLen.Text:='';
MJMaoZ.Text:='';
MJQty1.Text:='';
MJQty2.Text:='';
//MJSJKZ.Text:='';
Label15.Caption:='';
//MJQty3.Text:='';
MJQty4.Text:='';
Edit3.Text:='<27><>';
Edit4.Text:='';
Edit5.Text:='';
end;
if Trim(Edit6.Text)='<27><>' then
begin
for i:=1 to StrToInt(ComboBox1.Text) do
begin
PrtData(FFFMJID);
end;
{with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName ');
sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty ');
sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)');
sql.Add('Case when ');
sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* ');
sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty');
sql.Add(' from WFB_MJJY A') ;
sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid');
sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
sql.Add(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' ');
sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId ');
SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+'''');
Open;
end;
if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf'
else
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨ<><CDA8>Ӣ<EFBFBD>ı<EFBFBD>ǩ.rmf' ;
if FileExists(fPrintFile) then
begin
RM2.LoadFromFile(fPrintFile);
//RM2.ShowReport;
RM2.PrintReport;
end else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'<27><>ʾ',0);
end; }
end;
Label16.Caption:='';
BTAdd.Click;
//MJQty4.SetFocus;
MJMaoZ.SetFocus;
end;
procedure TfrmMJManageNewFDNewCD.PrtData(FMJID:String);
var
fPrintFile:String;
begin
with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add('exec P_Print_Lable :MJID');
Parameters.ParamByName('MJID').Value:=Trim(FMJID);
Open;
end;
if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)
else
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨ<><CDA8>Ӣ<EFBFBD>ı<EFBFBD>ǩ.rmf' ;
if FileExists(fPrintFile) then
begin
RM2.LoadFromFile(fPrintFile);
//RM2.ShowReport;
RM2.PrintReport;
end else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'<27><>ʾ',0);
end;
end;
procedure TfrmMJManageNewFDNewCD.SavedataCK();
var
CRID:Integer;
MaxCkNo,MaxCkSubNo:String;
begin
//if Trim(Cds_Main.fieldbyname('SubType').AsString)='<27><><EFBFBD><EFBFBD>' then
//////////////////////////////////////////////////////////////<2F><><EFBFBD>浽<EFBFBD><E6B5BD><EFBFBD><EFBFBD>Ʒ<EFBFBD>ֿ<EFBFBD>////////////////////////////////////////////////
with ADOCmd do
begin
Close;
sql.Clear;
SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1');
sql.Add('select * from CK_BanCP_CRID');
Open;
end;
CRID:=ADOCmd.fieldbyname('CRID').Value;
if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>Ʒ<EFBFBD>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from CK_BanCP_CR where 1<>1');
Open;
end;
with ADOCmd do
begin
Append;
FieldByName('MainId').Value:=Trim(FMainId);
FieldByName('SubId').Value:=Trim(FSubId);
FieldByName('APID').Value:=Trim(FAPID);
FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString);
FieldByName('BCID').Value:=Trim(MaxCkNo);
FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp);
FieldByName('CRFlag').Value:='<27><><EFBFBD><EFBFBD>';
FieldByName('CRType').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
//FieldByName('JTType').Value:=Trim(XJFlag);
FieldByName('CRID').Value:=CRID;
if Trim(MJMaoZ.Text)<>'' then
begin
FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text);
end;
if Trim(MJLen.Text)<>'' then
begin
FieldByName('Qty').Value:=StrToFloat(MJLen.Text);
end;
FieldByName('QtyUnit').Value:=Trim(Label9.Caption);
FieldByName('Filler').Value:=Trim(DName);
FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp);
if Trim(Edit3.Text)<>'' then
begin
FieldByName('CPType').Value:='<27><>Ʒ';
end;
if Trim(Edit4.Text)<>'' then
begin
FieldByName('CPType').Value:='<27><>Ʒ';
end;
Post;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from CK_BanCP_KC where 1<>1');
Open;
end;
with ADOCmd do
begin
Append;
FieldByName('CRID').Value:=CRID;
FieldByName('BCID').Value:=Trim(MaxCkNo);
FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString);
if Trim(MJMaoZ.Text)<>'' then
begin
FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text);
end;
if Trim(MJLen.Text)<>'' then
begin
FieldByName('KCQty').Value:=StrToFloat(MJLen.Text);
end;
FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption);
Post;
end;
end;
procedure TfrmMJManageNewFDNewCD.BtnStatus(BSInt:Boolean);
begin
// Tv2.OptionsSelection.CellSelect:=BSInt;
end;
procedure TfrmMJManageNewFDNewCD.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject);
var
mvalue:string;
begin
try
mvalue:=TcxTextEdit(Sender).EditingText;
if Trim(mvalue)<>'' then
begin
CDS_MJCD.Edit;
CDS_MJCD.FieldByName('CDQty').Value:=mvalue;
CDS_MJCD.Post;
end else
begin
CDS_MJCD.Edit;
CDS_MJCD.FieldByName('CDQty').Value:=0;
CDS_MJCD.Post;
end;
CDS_MJCD.Edit;
CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue;
except
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>֣<EFBFBD>','<27><>ʾ',0);
end;
end;
procedure TfrmMJManageNewFDNewCD.SpeedButton1Click(Sender: TObject);
var
fsj:string;
begin
fsj:=Trim(TSpeedButton(Sender).Hint);
if Trim(fsj)='' then Exit;
fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text);
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption);
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll;
end;
procedure TfrmMJManageNewFDNewCD.SpeedButton12Click(Sender: TObject);
var
fsj:string;
begin
fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text);
if Trim(fsj)='' then Exit;
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1);
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll;
end;
procedure TfrmMJManageNewFDNewCD.SpeedButton13Click(Sender: TObject);
var
i:Integer;
begin
if Trim(Label2.Caption)='' then Exit;
if Label2.Visible=False then Exit;
{with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select * from Order_JYResult where APID='''+Trim(FAPID)+'''');
Open;
end;
if ADOTmp.IsEmpty then
begin
Application.MessageBox('<27>ŷ<EFBFBD><C5B7><EFBFBD><EFBFBD><EFBFBD>δ¼<CEB4><C2BC>,<2C><><EFBFBD>ܼ<EFBFBD><DCBC><EFBFBD>!','<27><>ʾ',0);
Exit;
end; }
if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then
begin
BTAdd.Click;
end;
if Trim(Label15.Caption)<>'' then
begin
//MJFK.Text:='';
//MJSJKZ.Text:='';
MJLen.Text:='';
MJMaoZ.Text:='';
MJQty1.Text:='';
//MJSJKZ.Text:='';
Label15.Caption:='';
end;
if Trim(FAPID)='' then Exit;
FCDName:=Trim(TSpeedButton(Sender).Hint);
MovePanel1.Visible:=True;
Label21.Caption:=Trim(FCDName);
FInt:=11;
Edit1.SetFocus;
if Trim(Edit7.Text)<>'' then
Edit1.Text:=Trim(Edit9.Text);
//CDQty.SetFocus;
Panel3.Visible:=True;
PState:=1;
with Panel3 do
begin
for i:=0 to ControlCount-1 do
begin
if Controls[i] is TSpeedButton then
begin
TSpeedButton(Controls[i]).Hint:=Trim(Edit1.Name);
end;
end;
end;
end;
procedure TfrmMJManageNewFDNewCD.cxGridDBColumn2PropertiesChange(Sender: TObject);
var
fsj:String;
begin
fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString);
Order_MJ.DisableControls;
with Order_MJ do
begin
First;
while not Eof do
begin
if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then
begin
Edit;
FieldByName('SSel').Value:=False;
end;
Next;
end;
end;
Order_MJ.EnableControls;
Order_MJ.Locate('SubId',fsj,[]);
end;
procedure TfrmMJManageNewFDNewCD.Button1Click(Sender: TObject);
var
mvalue:Double;
begin
{ if Trim(Edit1.Text)='' then
begin
Application.MessageBox('λ<>ò<EFBFBD><C3B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
exit;
end; }
{if Trim(Edit7.Text)<>'' then
Edit2.Text:=Trim(Edit9.Text); }
if Trim(Edit1.Text)<>'' then
begin
if Trim(Edit2.Text)<>'' then
begin
if StrToFloat(Edit2.Text)<StrToFloat(Edit1.Text) then
begin
Application.MessageBox('<27>õ<EFBFBD>λ<EFBFBD><CEBB>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end;
end;
if Trim(Edit1.Text)<>'' then
begin
if TryStrToFloat(Edit1.Text,mvalue)=False then
begin
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end else
begin
Exit;
end;
if Trim(Edit2.Text)<>'' then
begin
if TryStrToFloat(Edit2.Text,mvalue)=False then
begin
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end else
begin
Exit;
end;
CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text));
if CDQty.Text<>'' then
begin
if TryStrToFloat(CDQty.Text,mvalue)=False then
begin
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end;
with CDS_MJCD do
begin
Append;
FieldByName('cdname').Value:=Trim(FCDName);
FieldByName('CDbeg').Value:=Trim(Edit1.Text);
FieldByName('CDEnd').Value:=Trim(Edit2.Text);
FieldByName('SFlag').Value:=NewFlag;
{if RadioGroup1.ItemIndex>-1 then
FieldByName('KouFenType').Value:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex];
if RadioGroup1.ItemIndex>-1 then
begin
if RadioGroup1.ItemIndex<3 then
begin
FieldByName('KouFenQty').Value:=RadioGroup1.ItemIndex+1;
end else
begin
FieldByName('KouFenQty').Value:=4;
end;
end; }
if Trim(CDQty.Text)<>'' then
begin
FieldByName('CDQty').Value:=StrToFloat(CDQty.Text);
end else
begin
FieldByName('CDQty').Value:=0;
end;
{if Trim(Edit2.Text)<>'' then
begin
FieldByName('CDQty').Value:=StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text);
end else
begin
FieldByName('CDQty').Value:=0;
end; }
Post;
end;
Edit1.Text:='';
Edit2.Text:='';
CDQty.Text:='';
MovePanel1.Visible:=False;
Panel3.Visible:=False;
end;
procedure TfrmMJManageNewFDNewCD.Button4Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
CDQty.Text:='';
MovePanel1.Visible:=False;
Panel3.Visible:=False;
end;
procedure TfrmMJManageNewFDNewCD.ToolButton1Click(Sender: TObject);
begin
InitJP();
MJLen.Text:='';
MJMaoZ.Text:='';
MJQty1.Text:='';
MJQty2.Text:='';
Label15.Caption:='';
MJQty4.Text:='';
Edit3.Text:='<27><>';
Edit4.Text:='';
Edit5.Text:='';
InitCDGridID();
InitCDGrid();
if Trim(FAPID)<>'' then
begin
if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then
begin
BTAdd.Click;
FInt:=11;
end;
end;
//BTAdd.Click;
MJMaoZ.SetFocus;
end;
procedure TfrmMJManageNewFDNewCD.Button5Click(Sender: TObject);
var
fPrintFile:String;
i:Integer;
begin
if CDS_MJID.IsEmpty then Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+'''');
sql.Add(' where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+'''');
ExecSQL;
end;
for i:=1 to StrToInt(ComboBox1.Text) do
begin
PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString));
end;
PState:=1;
MJLen.Text:='';
MJMaoZ.Text:='';
MJQty1.Text:='';
MJQty2.Text:='';
Label15.Caption:='';
MJQty4.Text:='';
Edit3.Text:='<27><>';
Edit4.Text:='';
Edit5.Text:='';
BTAdd.Click;
FInt:=11;
MJMaoZ.SetFocus;
{ with ADOQueryPrint do
begin
Close;
SQL.Clear;
with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName ');
sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty ');
sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)');
sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* ');
sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty');
sql.Add(' from WFB_MJJY A') ;
sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid');
sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
sql.Add(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' ');
sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId ');
SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+'''');
Open;
end;
//SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+'''');
//Open;
end;
if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf'
else
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨ<><CDA8>Ӣ<EFBFBD>ı<EFBFBD>ǩ.rmf' ;
if FileExists(fPrintFile) then
begin
RM2.LoadFromFile(fPrintFile);
//RM2.ShowReport;
RM2.PrintReport;
end else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\<5C><><EFBFBD><EFBFBD>ǩ.rmf'),'<27><>ʾ',0);
end; }
end;
procedure TfrmMJManageNewFDNewCD.SpeedButton49Click(Sender: TObject);
begin
Panel3.Visible:=False;
end;
procedure TfrmMJManageNewFDNewCD.APIDKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong ');
sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo');
sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote');
sql.Add('from JYOrder_Main_MD A');
SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId');
sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId');
sql.Add('where MDID='''+Trim(APID.Text)+'''');
Open;
end;
if ADOTmp.IsEmpty=False then
begin
Label2.Visible:=True;
Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString);
Label24.Visible:=True;
Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString);
Label25.Visible:=True;
Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString);
FAPID:=Trim(APID.Text);
FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString);
FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString);
BZNote.Text:='ֽ<>ܳ<EFBFBD><DCB3><EFBFBD>: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+
',ֽ<>ܺ<EFBFBD><DCBA><EFBFBD>: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+
',ֽ<><D6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+
'<27><><EFBFBD>޴<EFBFBD><DEB4><EFBFBD><EFBFBD><EFBFBD>: '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+
'<27><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+
Trim(ADOTmp.fieldbyname('BZNote').AsString);
MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString);
MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString);
MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString);
{if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then
begin
Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString);
Label19.Caption:=Label9.Caption;
Label20.Caption:=Label9.Caption;
Label7.Caption:=Label9.Caption;
end;
Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString);
if ADOTmp.FieldByName('JYMF').Value>0 then
MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString);
if ADOTmp.FieldByName('JYKZ').Value>0 then
MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); }
MJMaoZ.SetFocus;
end else
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Label2.Visible:=False;
Label2.Caption:='';
APID.Text:='';
FAPID:='';
FMainId:='';
FSubId:='';
BZNote.Text:='';
Exit;
end;
{if Trim(SCXFlag)<>Trim(ADOTmp.fieldbyname('AOrdDefNote29').AsString) then
begin
APID.Text:='';
if Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̨<EFBFBD>뵱ǰ<EBB5B1><C7B0>̨<EFBFBD><CCA8>һ<EFBFBD><D2BB>,'+#13+'<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>飿','<27><>ʾ',32+4)<>IDYES then
begin
Label2.Visible:=False;
Label2.Caption:='';
FAPID:='';
FMainId:='';
FSubId:='';
Exit;
end;
end; }
APID.Text:='';
BTAdd.Click;
InitJP();
end;
end;
procedure TfrmMJManageNewFDNewCD.Edit1Click(Sender: TObject);
var
i:Integer;
begin
Panel3.Visible:=True;
with Panel3 do
begin
for i:=0 to ControlCount-1 do
begin
if Controls[i] is TSpeedButton then
begin
TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name);
end;
end;
end;
end;
procedure TfrmMJManageNewFDNewCD.Edit2Change(Sender: TObject);
var
mvalue:Double;
begin
if Trim(Edit1.Text)<>'' then
begin
if TryStrToFloat(Edit1.Text,mvalue)=False then
begin
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end else
begin
Exit;
end;
if Trim(Edit2.Text)<>'' then
begin
if TryStrToFloat(Edit2.Text,mvalue)=False then
begin
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end else
begin
Exit;
end;
CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text));
end;
procedure TfrmMJManageNewFDNewCD.Edit3Click(Sender: TObject);
begin
if Trim(Edit3.Text)='' then
begin
Edit3.Text:='<27><>';
Edit4.Text:='';
Edit5.Text:='';
end else
begin
Edit3.Text:='';
Edit4.Text:='<27><>';
Edit5.Text:='';
end;
end;
procedure TfrmMJManageNewFDNewCD.Edit4Click(Sender: TObject);
begin
if Trim(Edit4.Text)='' then
begin
Edit4.Text:='<27><>';
Edit3.Text:='';
Edit5.Text:='';
end else
begin
Edit4.Text:='';
Edit3.Text:='<27><>';
Edit5.Text:='';
end;
end;
procedure TfrmMJManageNewFDNewCD.Edit5Click(Sender: TObject);
begin
if Trim(Edit5.Text)='' then
begin
Edit5.Text:='<27><>';
Edit3.Text:='';
Edit4.Text:='';
end else
begin
Edit5.Text:='';
Edit3.Text:='<27><>';
Edit4.Text:='';
end;
end;
procedure TfrmMJManageNewFDNewCD.Edit6Click(Sender: TObject);
begin
if Trim(Edit6.Text)='' then
begin
Edit6.Text:='<27><>';
end else
begin
Edit6.Text:='';
end;
end;
procedure TfrmMJManageNewFDNewCD.MJstr3KeyPress(Sender: TObject;
var Key: Char);
begin
if Key = #13 then
begin
Key:= #0;
//MJQty2.SetFocus;
SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmMJManageNewFDNewCD.MJQty3Exit(Sender: TObject);
begin
if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit;
if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit;
if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit;
if (trim(MJQty3.Text)='') then exit;
if (trim(MJQty4.Text)<>'') then
begin
MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) );
exit;
end;
end;
procedure TfrmMJManageNewFDNewCD.MJMaoZExit(Sender: TObject);
begin
if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit;
if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit;
if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit;
if (trim(MJQty3.Text)='') then exit;
if (trim(MJMaoZ.Text)<>'') then
begin
MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) );
exit;
end;
end;
procedure TfrmMJManageNewFDNewCD.Label9Click(Sender: TObject);
begin
{if trim(Label9.Caption)='M' then
begin
Label9.Caption:='Y';
Label19.Caption:='Y';
Label20.Caption:='Y';
Label7.Caption:='Y';
end
else
begin
Label9.Caption:='M';
Label19.Caption:='M';
Label20.Caption:='M';
Label7.Caption:='M';
end; }
end;
procedure TfrmMJManageNewFDNewCD.MJLenExit(Sender: TObject);
begin
MJQty3.OnExit(self);
end;
procedure TfrmMJManageNewFDNewCD.MJQty4Exit(Sender: TObject);
begin
if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit;
if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit;
if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit;
if (trim(MJQty3.Text)='') then exit;
if (trim(MJQty4.Text)<>'') then
begin
MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) );
exit;
end;
end;
procedure TfrmMJManageNewFDNewCD.MJQty4Change(Sender: TObject);
var
FReal:Double;
begin
if Trim(MJQty4.Text)='' then
begin
MJLen.Text:='';
MJMaoZ.Text:='';
Exit;
end;
if TryStrToFloat(MJQty4.Text,FReal)=False then Exit;
if Trim(MJQty3.Text)<>'' then
begin
if TryStrToFloat(MJQty3.Text,FReal)=True then
MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text));
end else
begin
MJMaoZ.Text:=MJQty4.Text;
end;
if Trim(MJSJKZ.Text)='' then Exit;
if TryStrToFloat(MJSJKZ.Text,FReal)=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
if Trim(MJFK.Text)='' then Exit;
if TryStrToFloat(MJFK.Text,FReal)=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit;
{if Trim(Label9.Caption)='M' then
begin
//MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text));
MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)));
end else
begin
MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936));
end; }
end;
procedure TfrmMJManageNewFDNewCD.MJMaoZChange(Sender: TObject);
var
FReal:Double;
begin
// if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit;
if Trim(MJMaoZ.Text)='' then
begin
MJLen.Text:='';
MJQty4.Text:='';
Exit;
end;
if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit;
if Trim(MJQty3.Text)<>'' then
begin
if TryStrToFloat(MJQty3.Text,FReal)=False then Exit;
MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text));
end else
begin
MJQty4.Text:=MJMaoZ.Text;
end;
if Trim(MJSJKZ.Text)='' then Exit;
if TryStrToFloat(MJSJKZ.Text,FReal)=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
if Trim(MJFK.Text)='' then Exit;
if TryStrToFloat(MJFK.Text,FReal)=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit;
{if Trim(Label9.Caption)='M' then
begin
//MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text));
MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text));
end else
begin
//MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936);
MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936);
end; }
end;
procedure TfrmMJManageNewFDNewCD.APIDClick(Sender: TObject);
var
i:Integer;
begin
Panel3.Visible:=True;
with Panel3 do
begin
for i:=0 to ControlCount-1 do
begin
if Controls[i] is TSpeedButton then
begin
TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name);
end;
end;
end;
end;
procedure TfrmMJManageNewFDNewCD.Button3Click(Sender: TObject);
begin
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong ');
sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo');
sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote');
sql.Add('from JYOrder_Main_MD A');
SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId');
sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId');
sql.Add('where MDID='''+Trim(APID.Text)+'''');
Open;
end;
if ADOTmp.IsEmpty=False then
begin
Label2.Visible:=True;
Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString);
Label24.Visible:=True;
Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString);
Label25.Visible:=True;
Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString);
FAPID:=Trim(APID.Text);
FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString);
FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString);
BZNote.Text:='ֽ<>ܳ<EFBFBD><DCB3><EFBFBD>: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+
',ֽ<>ܺ<EFBFBD><DCBA><EFBFBD>: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+
',ֽ<><D6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+
'<27><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+
Trim(ADOTmp.fieldbyname('BZNote').AsString);
MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString);
MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString);
MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString);
{if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then
begin
Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString);
Label19.Caption:=Label9.Caption;
Label20.Caption:=Label9.Caption;
Label7.Caption:=Label9.Caption;
end;
Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString);
if ADOTmp.FieldByName('JYMF').Value>0 then
MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString);
if ADOTmp.FieldByName('JYKZ').Value>0 then
MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); }
MJMaoZ.SetFocus;
end else
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Label2.Visible:=False;
Label2.Caption:='';
APID.Text:='';
FAPID:='';
FMainId:='';
FSubId:='';
BZNote.Text:='';
Exit;
end;
APID.Text:='';
BTAdd.Click;
InitJP();
end;
procedure TfrmMJManageNewFDNewCD.MJFKChange(Sender: TObject);
var
FReal:Double;
begin
// if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit;
{if TryStrToFloat(MJQty4.Text,FReal)=False then Exit;
if Trim(MJSJKZ.Text)='' then Exit;
if TryStrToFloat(MJSJKZ.Text,FReal)=False then
begin
Exit;
end;
if Trim(MJFK.Text)='' then Exit;
if TryStrToFloat(MJFK.Text,FReal)=False then
begin
Exit;
end;
if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit;
if Trim(Label9.Caption)='M' then
begin
//MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text));
MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)));
end else
begin
//MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936);
MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936));
end; }
end;
procedure TfrmMJManageNewFDNewCD.Edit7Click(Sender: TObject);
begin
if Trim(Edit7.Text)='' then
begin
Edit7.Text:='<27><>';
if FCK=9 then
begin
if CommOpen(frmMJManageNewFDNewCD.Handle,pchar(PortNoStr),500,1)<1 then
begin
FCK:=1;
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڴ<EFBFBD><DAB4><EFBFBD>ʧ<EFBFBD><CAA7>!');
Exit;
end
else
begin
FCK:=9;
end;
end;
if FCKCheng=9 then
begin
if CommOpen1301(frmMJManageNewFDNewCD.Handle,pchar(PortNoStr),1000,1)<1 then
begin
FCKCheng:=1;
showmessage('<27><><EFBFBD>ӳƴ<D3B3><C6B4>ڴ<EFBFBD><DAB4><EFBFBD>ʧ<EFBFBD><CAA7>!');
Exit;
end
else
begin
FCKCheng:=9;
end;
end;
end else
begin
Edit7.Text:='';
if FCK=9 then
CommClose(pchar(PortNoStr));
if FCKCheng=9 then
CommClose1301(pchar(PortNoStr));
end;
end;
procedure TfrmMJManageNewFDNewCD.BTPrintKeyPress(Sender: TObject;
var Key: Char);
begin
if Key=#13 then
begin
BTPrint.Click;
end;
end;
procedure TfrmMJManageNewFDNewCD.MJQty4KeyPress(Sender: TObject;
var Key: Char);
begin
if Key = #13 then
begin
Key:= #0;
MJLen.SetFocus;
// SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmMJManageNewFDNewCD.MJQty2KeyPress(Sender: TObject;
var Key: Char);
begin
if Key = #13 then
begin
Key:= #0;
BTPrint.SetFocus;
//SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmMJManageNewFDNewCD.MJLenKeyPress(Sender: TObject;
var Key: Char);
begin
if Key = #13 then
begin
Key:= #0;
MJQty2.SetFocus;
// SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmMJManageNewFDNewCD.MJMaoZKeyPress(Sender: TObject;
var Key: Char);
begin
if Key = #13 then
begin
Key:= #0;
MJLen.SetFocus;
//SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmMJManageNewFDNewCD.Edit8Click(Sender: TObject);
begin
if Trim(Edit8.Text)='' then
begin
Edit8.Text:='<27><>';
end else
begin
Edit8.Text:='';
end;
end;
procedure TfrmMJManageNewFDNewCD.Button2Click(Sender: TObject);
begin
MJLen.Text:=Trim(Edit9.Text);
NewFlag:='1';
end;
procedure TfrmMJManageNewFDNewCD.BitBtn1Click(Sender: TObject);
var
mvalue:Double;
begin
Edit2.Text:=Trim(Edit9.Text);
if Trim(Edit1.Text)<>'' then
begin
if Trim(Edit2.Text)<>'' then
begin
if StrToFloat(Edit2.Text)<StrToFloat(Edit1.Text) then
begin
Application.MessageBox('<27>õ<EFBFBD>λ<EFBFBD><CEBB>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end;
end;
if Trim(Edit1.Text)<>'' then
begin
if TryStrToFloat(Edit1.Text,mvalue)=False then
begin
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end else
begin
Exit;
end;
if Trim(Edit2.Text)<>'' then
begin
if TryStrToFloat(Edit2.Text,mvalue)=False then
begin
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end else
begin
Exit;
end;
CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text));
if CDQty.Text<>'' then
begin
if TryStrToFloat(CDQty.Text,mvalue)=False then
begin
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
end;
end;
procedure TfrmMJManageNewFDNewCD.CDQtyChange(Sender: TObject);
var
FReal:Double;
begin
if Trim(CDQty.Text)<>'' then
begin
if TryStrToFloat(CDQty.Text,FReal)=False then
begin
Exit;
end;
end else
begin
Exit;
end;
if Trim(Edit1.Text)<>'' then
begin
if TryStrToFloat(Edit1.Text,FReal)=False then
begin
Exit;
end;
end else
begin
Exit;
end;
Edit2.Text:=FloatToStr((StrToFloat(Edit1.Text)+StrToFloat(CDQty.Text)) );
end;
end.
Reference in New Issue Copy Permalink