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

1075 lines
29 KiB
ObjectPascal
Raw Permalink Normal View History

~
2025-07-19 13:52:55 +08:00
unit U_DJBJYInput;
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, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
type
TfrmDJBJYInput = 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;
DataSource2: TDataSource;
CDS_MJCD: TClientDataSet;
DataSource3: TDataSource;
CDS_MJID: TClientDataSet;
Timer1: TTimer;
ADOQueryPrint: TADOQuery;
cxStyleRepository2: TcxStyleRepository;
cxStyle3: TcxStyle;
cxStyleRepository3: TcxStyleRepository;
cxStyle4: TcxStyle;
cxStyleRepository4: TcxStyleRepository;
cxStyle5: TcxStyle;
cxStyleRepository5: TcxStyleRepository;
cxStyle6: TcxStyle;
cxGridPopupMenu2: TcxGridPopupMenu;
ADOQueryMainDSC: TADOQuery;
Panel2: TPanel;
Label9: TLabel;
MJLen: TEdit;
Label5: TLabel;
BTPrint: TButton;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Label1: TLabel;
Label2: TLabel;
Label16: TLabel;
Label24: TLabel;
Label25: TLabel;
APID: TEdit;
BTEdit: TButton;
ToolBar1: TToolBar;
TBClose: TToolButton;
Button3: TButton;
Label36: TLabel;
MJStr4: TEdit;
Label37: TLabel;
MJXH: TEdit;
Label38: TLabel;
ComboBox2: TComboBox;
Label3: TLabel;
ADOTmp1: TADOQuery;
lbl1: TLabel;
BTAdd: TButton;
GroupBox1: TGroupBox;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
v3Column1: TcxGridDBColumn;
v3Column2: TcxGridDBColumn;
v3Column6: TcxGridDBColumn;
v3Column3: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormClick(Sender: TObject);
procedure BTAddClick(Sender: TObject);
procedure BTEditClick(Sender: TObject);
procedure BTPrintClick(Sender: TObject);
procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject);
procedure cxGridDBColumn2PropertiesChange(Sender: TObject);
procedure Button20Click(Sender: TObject);
procedure APIDKeyPress(Sender: TObject; var Key: Char);
procedure Label9Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure MJQty4KeyPress(Sender: TObject; var Key: Char);
procedure MJQty3Change(Sender: TObject);
procedure MJStr4Exit(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure MJLenKeyPress(Sender: TObject; var Key: Char);
procedure Tv3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
private
{ Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK, FFirstJ, FLastJ: Integer;
FColumn, FBanZu, FAPID, FMainId, FSubId, FFFMJID: string;
fRollType: string;
isCommopen, IsJsMessage: boolean;
MValue, FCDName: string;
fxsws, fxsws1: string;
FL: string;
FJC: Double;
procedure InitDDSL();
procedure InitCDGridID();
procedure AddCD(Fbtn: TButton);
function SaveData(): Boolean;
procedure BtnStatus(BSInt: Boolean);
procedure AddCDNew(Fbtn: TSpeedButton);
procedure PrtData(FMJID: string);
public
fmanage: string;
FLen1: Double;
{ Public declarations }
end;
var
frmDJBJYInput: TfrmDJBJYInput;
newh, newh1: hwnd;
implementation
uses
U_DataLink, U_Fun, U_ZDYHelp, U_iniParam;
{$R *.dfm}
procedure TfrmDJBJYInput.FormDestroy(Sender: TObject);
begin
frmDJBJYInput := nil;
end;
procedure TfrmDJBJYInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmDJBJYInput.InitCDGridID();
begin
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select ');
sql.Add(' A.* from WFB_MJJY_DJB A where APID=''' + Trim(FAPID) + '''');
sql.Add(' order by FillTime desc');
Open;
end;
SCreateCDS20(ADOQueryMain, CDS_MJID);
SInitCDSData20(ADOQueryMain, CDS_MJID);
end;
procedure TfrmDJBJYInput.InitDDSL();
begin
with ADOTmp do
begin
Close;
SQL.Clear;
sql.Add('select sum(mjlen) as ZPLen,sum(MJQty4) as ZPJZ,sum(MJMaoz) as ZPMZ,count(mjid) as ZPPI from WFB_MJJY_DJB where apid=''' + trim(FAPID) + ''' and MJType=''<27><>Ʒ'' ');
Open;
end;
lbl1.Visible := True;
lbl1.Caption := '<27><>Ʒƥ<C6B7><C6A5><EFBFBD><EFBFBD>' + ADOTmp.fieldbyname('ZPPI').AsString + ' <20><>Ʒ<EFBFBD><C6B7><EFBFBD>ȣ<EFBFBD>' + ADOTmp.fieldbyname('ZPLen').AsString;
end;
procedure TfrmDJBJYInput.TBCloseClick(Sender: TObject);
var
maxno: string;
begin
if CDS_MJCD.IsEmpty = False then
begin
if Trim(CDS_MJCD.FieldByName('MCID').AsString) = '' then
begin
end
else
begin
Close;
end;
end
else
begin
Close;
end;
end;
procedure TfrmDJBJYInput.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 TfrmDJBJYInput.AddCDNew(Fbtn: TSpeedButton);
begin
with CDS_MJCD do
begin
Append;
FieldByName('cdname').Value := Trim(TSpeedButton(Fbtn).Hint);
Post;
end;
end;
procedure TfrmDJBJYInput.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
FInt := 4;
InitCDGridID();
end;
procedure TfrmDJBJYInput.FormClick(Sender: TObject);
begin
FInt := 4;
end;
function TfrmDJBJYInput.SaveData(): Boolean;
var
maxno, FMJID, BZID, strsql: string;
FMJLen: Double;
FOrder: Integer;
begin
result := false;
if PState = 1 then
FMJID := ''
else if PState = 2 then
FMJID := Trim(CDS_MJID.fieldbyname('MJID').AsString)
else if PState < 1 then
Exit;
if PState = 1 then
begin
if fRollType = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY_DJB X where X.mainID=''' + trim(fmainId) + ''' ');
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end
else if fRollType = '<27><><EFBFBD>׺<EFBFBD><D7BA><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end
else if fRollType = '<27>޹<EFBFBD><DEB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
end
else if fRollType = '<27><>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),(cast(''' + inttostr(FFirstJ) + ''' as int) - 1)) ');
sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
// sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
sql.add('and mjxh>=cast(''' + inttostr(FFirstJ) + ''' as int) ');
sql.add('and mjxh<=cast(''' + inttostr(FLastJ) + ''' as int) ');
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
if strtoint(mjxh.Text) > flastj then
begin
Application.MessageBox('<27><><EFBFBD>ų<EFBFBD><C5B3><EFBFBD><EFBFBD><EFBFBD>Χ<EFBFBD><CEA7>', '<27><>ʾ', 0);
exit;
end;
end;
end
else
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end;
end;
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from WFB_MJJY_DJB where MJId=''' + Trim(FMJID) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FMJID) = '' then
begin
Append;
if GetLSNo(ADOTmp, maxno, Trim(SCXFlag), 'WFB_MJJY_DJB', 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>';
if trim(MJstr4.Text) = '' then
begin
FieldByName('MJstr4').Value := '0';
end
else
begin
FieldByName('MJstr4').Value := Trim(MJstr4.Text);
end;
if combobox2.ItemIndex = 2 then
begin
FieldByName('mjxh').Value := '0';
end
else if combobox2.ItemIndex = 3 then
begin
FieldByName('mjxh').Value := '0';
end
else if combobox2.ItemIndex = 4 then
begin
FieldByName('mjxh').Value := '0';
end
else
begin
FieldByName('mjxh').Value := Trim(mjxh.Text);
end;
FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0);
FieldByName('MJType').Value := '';
FieldByName('MJType').Value := combobox2.Text;
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;
FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
Post;
end;
if PState = 1 then
begin
if combobox2.ItemIndex = 2 then
begin
end
else if combobox2.ItemIndex = 3 then
begin
end
else if combobox2.ItemIndex = 4 then
begin
end
else if fRollType = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('update WFB_MJJY_DJB SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY_DJB X where X.mainID=WFB_MJJY_DJB.mainID and X.MJID<>WFB_MJJY_DJB.MJID),0)');
sql.Add('where MJID=''' + Trim(maxno) + '''');
execsql;
end;
end
else if fRollType = '<27><><EFBFBD>׺<EFBFBD><D7BA><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('update WFB_MJJY_DJB SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY_DJB X where X.subID=WFB_MJJY_DJB.subID and X.mjstr4=WFB_MJJY_DJB.mjstr4 and X.MJID<>WFB_MJJY_DJB.MJID),0)');
sql.Add('where MJID=''' + Trim(maxno) + '''');
execsql;
end;
end
else if fRollType = '<27>޹<EFBFBD><DEB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
end;
end
else if fRollType = '<27><>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
end;
end
else
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('update WFB_MJJY_DJB SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY_DJB X where X.subID=WFB_MJJY_DJB.subID and X.MJID<>WFB_MJJY_DJB.MJID),0)');
sql.Add('where MJID=''' + Trim(maxno) + '''');
execsql;
end;
end;
end;
if combobox2.ItemIndex = 2 then
begin
if fRollType = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY_DJB X where X.mainID=''' + trim(fmainId) + ''' ');
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end
else if fRollType = '<27><><EFBFBD>׺<EFBFBD><D7BA><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end
else if fRollType = '<27>޹<EFBFBD><DEB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
end
else if fRollType = '<27><>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),(cast(''' + inttostr(FFirstJ) + ''' as int) - 1)) ');
sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
// sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
sql.add('and mjxh>=cast(''' + inttostr(FFirstJ) + ''' as int) ');
sql.add('and mjxh<=cast(''' + inttostr(FLastJ) + ''' as int) ');
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
if strtoint(mjxh.Text) > flastj then
begin
Application.MessageBox('<27><><EFBFBD>ų<EFBFBD><C5B3><EFBFBD><EFBFBD><EFBFBD>Χ<EFBFBD><CEA7>', '<27><>ʾ', 0);
exit;
end;
end;
end
else
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end;
end
else if combobox2.ItemIndex = 3 then
begin
if fRollType = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY_DJB X where X.mainID=''' + trim(fmainId) + ''' ');
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end
else if fRollType = '<27><><EFBFBD>׺<EFBFBD><D7BA><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end
else if fRollType = '<27>޹<EFBFBD><DEB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
end
else if fRollType = '<27><>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),(cast(''' + inttostr(FFirstJ) + ''' as int) - 1)) ');
sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
// sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
sql.add('and mjxh>=cast(''' + inttostr(FFirstJ) + ''' as int) ');
sql.add('and mjxh<=cast(''' + inttostr(FLastJ) + ''' as int) ');
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
if strtoint(mjxh.Text) > flastj then
begin
Application.MessageBox('<27><><EFBFBD>ų<EFBFBD><C5B3><EFBFBD><EFBFBD><EFBFBD>Χ<EFBFBD><CEA7>', '<27><>ʾ', 0);
exit;
end;
end;
end
else
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end;
end
else
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select MJXH from WFB_MJJY_DJB');
sql.Add('where MJID=''' + Trim(maxno) + '''');
open;
if not IsEmpty then
begin
MJXH.Text := fieldbyname('mjxh').AsString;
end;
end;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.add('exec P_Do_JYRK ''' + trim(maxno) + ''',''' + trim(DName) + ''' ');
execsql;
end;
FMJID := Trim(maxno);
FFFMJID := Trim(maxno);
ADOCmd.Connection.CommitTrans;
Result := True;
except
btprint.Enabled := true;
Result := False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
end;
end;
procedure TfrmDJBJYInput.BTAddClick(Sender: TObject);
begin
if Trim(Label24.Caption) = '' then
Exit;
PState := 1;
InitCDGridID();
BtnStatus(True);
Label16.Caption := '<27><><EFBFBD><EFBFBD>';
end;
procedure TfrmDJBJYInput.BTEditClick(Sender: TObject);
begin
if CDS_MJID.IsEmpty then
Exit;
PState := 2;
Label16.Caption := '<27>޸<EFBFBD>';
end;
procedure TfrmDJBJYInput.BTPrintClick(Sender: TObject);
var
fPrintFile: string;
mvalue: Double;
mvalue1: integer;
i: Integer;
FLen2: Double;
begin
if (strtofloatdef(trim(MJLen.Text), 0) = 0) then
begin
application.MessageBox('<27><><EFBFBD>Ȳ<EFBFBD><C8B2><EFBFBD>Ϊ<EFBFBD>㣡', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
exit;
end;
if Trim(FAPID) = '' then
Exit;
if trim(MJXH.text) = '' then
begin
application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
exit;
end;
if trim(Label9.Caption) = '' then
begin
Application.MessageBox('<27><><EFBFBD>ȵ<EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if ComboBox2.Text = '' then
begin
Application.MessageBox('<27><><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
with ADOTmp do
begin
Close;
SQL.Clear;
sql.Add('select sum(mjlen) as ZPLen,count(mjid) as ZPPI from WFB_MJJY_DJB where apid=''' + trim(FAPID) + ''' ');
Open;
end;
FLen2 := StrToFloatDef(ADOTmp.fieldbyname('ZPLen').asstring, 0);
FLen2 := StrToFloatDef(Format('%.2f', [FLen2 + StrToFloatDef(MJLen.Text, 0)]), 0);
if FLen2 > FLen1 then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>첼<EFBFBD><ECB2BC><EFBFBD><EFBFBD><EFBFBD>Ǽǵ<C7BC><C7B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
btprint.Enabled := false;
if SaveData() then
begin
MJLen.Text := '';
ComboBox2.ItemIndex := 0;
if combobox2.ItemIndex = 0 then
MJXH.Text := inttostr(strTointdef(trim(MJXH.Text), 0) + 1);
if combobox2.ItemIndex = 1 then
MJXH.Text := inttostr(strTointdef(trim(MJXH.Text), 0) + 1);
if PState = 2 then
begin
apid.Text := FAPID;
Button3.Click;
end;
end
else
begin
btprint.Enabled := true;
exit;
end;
btprint.Enabled := true;
Label16.Caption := '';
BTAdd.Click;
InitDDSL();
MJLen.SetFocus;
end;
procedure TfrmDJBJYInput.PrtData(FMJID: string);
var
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName,B.conno ');
sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) ');
sql.Add(',B.MPRTCF,C.*,A.* ');
sql.Add(' from WFB_MJJY_DJB 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(' where A.MJID=''' + Trim(FMJID) + '''');
Open;
end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(ADOQueryPrint.fieldbyname('MJID').AsString);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
CDS_MJID.EnableControls;
exit;
end;
if Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) <> '' then
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('Slbname').AsString);
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('Slbname').AsString), ADOCmd);
end
else
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨ<>ñ<EFBFBD>ǩ.rmf';
ExportFtErpFile('ͨ<>ñ<EFBFBD>ǩ.rmf', ADOCmd);
end;
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE'] := fImagePath;
RM2.LoadFromFile(fPrintFile);
RM2.PrintReport;
end
else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
end;
end;
procedure TfrmDJBJYInput.BtnStatus(BSInt: Boolean);
begin
// Tv2.OptionsSelection.CellSelect:=BSInt;
end;
procedure TfrmDJBJYInput.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 TfrmDJBJYInput.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 TfrmDJBJYInput.Button20Click(Sender: TObject);
var
fPrintFile: string;
i: Integer;
begin
if CDS_MJID.IsEmpty then
Exit;
PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString));
end;
procedure TfrmDJBJYInput.APIDKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Button3.Click;
end;
end;
procedure TfrmDJBJYInput.Label9Click(Sender: TObject);
begin
if trim(Label9.Caption) = 'M' then
begin
Label9.Caption := 'Y';
end
else
begin
Label9.Caption := 'M';
end;
end;
procedure TfrmDJBJYInput.Button3Click(Sender: TObject);
var
FBaoID: string;
begin
fRollType := '';
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select B.*,B.OrderNo OrderNoM,C.*,D.gangno GN,D.firstJ,D.lastJ, ');
sql.add('maxMJxh=case when B.Orddefstr15=''<27><>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' then isnull((select max(mjxh) from WFB_MJJY_DJB X where X.SubID=C.subID and cast(X.mjxh as int)>=cast(D.firstJ as int) and cast(X.mjxh as int)<=cast(D.lastJ as int)),(cast(D.firstJ as int)-1))');
sql.Add('else isnull((select max(mjxh) from WFB_MJJY_DJB X where X.SubID=C.subID),0) end,');
sql.Add('maxBaoNO=1+isnull((select max(cast(baoNO as int)) from WFB_MJJY_DJB X where X.subID=C.subID ),0)');
sql.Add('from JYOrder_Sub C');
SQL.Add('inner join JYOrder_Main B on B.MainId=C.MainId ');
sql.add('inner join CK_SXPB_CR D on D.ORDSubIdCK=C.subid and D.SPID=''' + Trim(APID.Text) + '''');
sql.Add('where exists(select SPID from CK_SXPB_CR X where X.OrdsubIDCK=C.subID and X.SPID=''' + Trim(APID.Text) + ''' )');
// showmessage(sql.text);
Open;
end;
if ADOTmp.IsEmpty = False then
begin
fRollType := trim(ADOTmp.fieldbyname('Orddefstr15').AsString);
Label24.Visible := True;
Label24.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:' + Trim(ADOTmp.fieldbyname('OrderNoM').AsString);
Label38.Visible := True;
Label38.Caption := '<27><>ɫ:' + Trim(ADOTmp.fieldbyname('PRTColor').AsString);
Label25.Visible := True;
Label25.Caption := 'ɫ<><C9AB>:' + Trim(ADOTmp.fieldbyname('SOrddefstr1').AsString);
Label2.Visible := true;
Label2.Caption := '<27><><EFBFBD>ͺ<EFBFBD>:' + Trim(ADOTmp.fieldbyname('PRTHX').AsString);
FAPID := Trim(APID.Text);
FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString);
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
MJXH.Text := inttostr(ADOTmp.fieldbyname('maxMJxh').AsInteger + 1);
FJC := StrToFloatDef(ADOTmp.fieldbyname('jiaChang').asstring, 0);
fxsws := Trim(ADOTmp.fieldbyname('xsws').AsString);
fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString);
MJStr4.Text := '1';
if trim(ADOTmp.fieldbyname('Orddefstr15').AsString) = '<27><>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
FFirstJ := ADOTmp.fieldbyname('firstJ').AsInteger;
FlastJ := ADOTmp.fieldbyname('lastJ').AsInteger;
end;
end
else
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Label2.Visible := False;
Label2.Caption := '';
APID.Text := '';
FAPID := '';
FMainId := '';
FSubId := '';
MJStr4.Text := '';
fRollType := '';
Exit;
end;
InitDDSL();
APID.Text := '';
BTAdd.Click;
end;
procedure TfrmDJBJYInput.MJQty4KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
// BTPrint.Click;
end;
end;
procedure TfrmDJBJYInput.MJQty3Change(Sender: TObject);
begin
// MJQty3.Text:=JsXj(MJQty3.Text);
end;
procedure TfrmDJBJYInput.MJStr4Exit(Sender: TObject);
begin
if Pstate = 1 then
begin
if fRollType = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY_DJB X where X.mainID=''' + trim(fMainID) + ''' ');
// sql.add('and X.MJStr4='+quotedstr(trim(MJstr4.text)));
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end
else if fRollType = '<27><><EFBFBD>׺<EFBFBD><D7BA><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end
else if fRollType = '<27>޹<EFBFBD><DEB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
end
else if fRollType = '<27><>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),(cast(''' + inttostr(FFirstJ) + ''' as int) - 1)) ');
sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
// sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
sql.add('and mjxh>=cast(''' + inttostr(FFirstJ) + ''' as int) ');
sql.add('and mjxh<=cast(''' + inttostr(FLastJ) + ''' as int) ');
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
if strtoint(mjxh.Text) > flastj then
begin
Application.MessageBox('<27><><EFBFBD>ų<EFBFBD><C5B3><EFBFBD><EFBFBD><EFBFBD>Χ<EFBFBD><CEA7>', '<27><>ʾ', 0);
exit;
end;
end;
end
else
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end;
end;
end;
procedure TfrmDJBJYInput.ToolButton3Click(Sender: TObject);
begin
if CDS_MJID.IsEmpty then
exit;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete WFB_MJJY_DJB where MJID=''' + trim(CDS_MJID.fieldbyName('MJID').AsString) + ''' ');
execsql;
end;
InitCDGridID();
InitDDSL();
end;
procedure TfrmDJBJYInput.MJLenKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
BTPrint.Click;
end;
end;
procedure TfrmDJBJYInput.Tv3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if CDS_MJID.IsEmpty then
exit;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete WFB_MJJY_DJB where MJID=''' + trim(CDS_MJID.fieldbyName('MJID').AsString) + ''' ');
execsql;
end;
InitCDGridID();
InitDDSL();
end;
end.
Reference in New Issue Copy Permalink