Group_01/D7DJxiongshan
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

增加码单

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-22 14:25:36 +08:00
parent d4b722a4e7
commit b787816d16
6 changed files with 200 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
复合检验管理/U_JYOrderCDOne.dfm
View File

@ -2114,8 +2114,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
ClientRectTop = 0 ClientRectTop = 0
end end
object Panel15: TPanel object Panel15: TPanel
Left = 656 Left = 944
Top = 216 Top = 208
Width = 425 Width = 425
Height = 345 Height = 345
Color = clSkyBlue Color = clSkyBlue
@ -2608,8 +2608,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
LaterBuildEvents = True LaterBuildEvents = True
OnlyOwnerDataSet = False OnlyOwnerDataSet = False
OnPrintReportEvent = RM1PrintReportEvent OnPrintReportEvent = RM1PrintReportEvent
Left = 368 Left = 376
Top = 168 Top = 128
ReportData = {} ReportData = {}
end end
object RMXLSExport1: TRMXLSExport object RMXLSExport1: TRMXLSExport

116
复合检验管理/U_JYOrderCDOne.pas
View File

@ -1687,7 +1687,54 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '칭<>쯤데') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL_hx ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''12'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = '劤쉔寬쯤데') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL_hx_SW ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''13'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '코饋쯤데(혤憐)') or (trim(ComboBox1.Text) = '코饋쯤데') then if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '코饋쯤데(혤憐)') or (trim(ComboBox1.Text) = '코饋쯤데') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -1746,6 +1793,40 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '黛薑쯤데') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL_YS ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''22'' ');
Open;
end;
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = '棍처쯤데') then if (trim(ComboBox1.Text) = '棍처쯤데') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -1849,7 +1930,40 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '킵郎쯤데') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL_2L ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' ');
Open;
end;
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') then if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -2086,7 +2200,7 @@ begin
sql.Clear; sql.Clear;
sql.Add('Update WFB_MJJY Set MJQTY3=''' + trim(cxCurrencyEdit2.Text) + ''' '); sql.Add('Update WFB_MJJY Set MJQTY3=''' + trim(cxCurrencyEdit2.Text) + ''' ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('Update WFB_MJJY Set MJMaoZ=MJQty4+MJQty3 '); sql.Add('Update WFB_MJJY Set MJQty4=MJMaoZ-MJQty3 ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL; ExecSQL;
end; end;

15
复合检验管理/U_MJManageNewFDNew.dfm
View File

@ -200,7 +200,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 1639 Left = 1639
Top = 87 Top = 87
Width = 41 Width = 281
Height = 717 Height = 717
Align = alClient Align = alClient
Color = clWhite Color = clWhite
@ -1555,7 +1555,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnChange = MJLenChange OnChange = MJLenChange
OnClick = Edit1Click OnClick = Edit1Click
OnKeyDown = MJQty4KeyDown OnKeyDown = MJQty4KeyDown
OnKeyPress = MJstr3KeyPress
end end
object MJMaoZ: TEdit object MJMaoZ: TEdit
Left = 57 Left = 57
@ -1703,7 +1702,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnChange = MJQty3Change OnChange = MJQty3Change
OnClick = Edit1Click OnClick = Edit1Click
OnKeyDown = MJQty4KeyDown OnKeyDown = MJQty4KeyDown
OnKeyPress = MJstr3KeyPress
end end
object MJQty4: TEdit object MJQty4: TEdit
Left = 57 Left = 57
@ -1720,7 +1718,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnChange = MJQty4Change OnChange = MJQty4Change
OnClick = Edit1Click OnClick = Edit1Click
OnKeyDown = MJQty4KeyDown OnKeyDown = MJQty4KeyDown
OnKeyPress = MJQty4KeyPress
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 132 Left = 132
@ -2446,8 +2443,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 910 Left = 1374
Top = 659 Top = 787
Width = 339 Width = 339
Height = 236 Height = 236
BevelInner = bvLowered BevelInner = bvLowered
@ -2848,8 +2845,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 858 Left = 1002
Top = 341 Top = 517
Width = 353 Width = 353
Height = 334 Height = 334
BevelInner = bvRaised BevelInner = bvRaised
@ -4231,7 +4228,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Timer1: TTimer object Timer1: TTimer
Enabled = False Enabled = False
Interval = 5000 Interval = 7000
OnTimer = Timer1Timer OnTimer = Timer1Timer
Left = 960 Left = 960
Top = 576 Top = 576

6
复合检验管理/U_MJManageNewFDNew.pas
View File

@ -1299,7 +1299,7 @@ begin
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty5').Value := StrToFloatdef(trim(MJQty5.Text), 0); FieldByName('MJQty5').Value := StrToFloatdef(trim(MJQty5.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0) + fjZ; FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0); //+ StrToFloatdef(trim(MJQty5.Text), 0) + fjZ
FieldByName('MJMaoZ').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0) + fjZ; FieldByName('MJMaoZ').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0) + fjZ;
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
@ -2583,7 +2583,7 @@ procedure TfrmMJManageNewFDNewSF.MJstr3KeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
begin begin
BTPrint.Click; // BTPrint.Click;
end; end;
end; end;
@ -2847,7 +2847,7 @@ procedure TfrmMJManageNewFDNewSF.MJQty4KeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
begin begin
BTPrint.Click; // BTPrint.Click;
end; end;
end; end;

16
复合检验管理/U_OrderInPut.dfm
View File

@ -46,10 +46,18 @@ object frmOrderInPut: TfrmOrderInPut
ImageIndex = 14 ImageIndex = 14
OnClick = TBSaveClick OnClick = TBSaveClick
end end
object TBClose: TToolButton object ToolButton4: TToolButton
Left = 63 Left = 63
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #37325#36830
ImageIndex = 56
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
OnClick = TBCloseClick OnClick = TBCloseClick
@ -2003,4 +2011,10 @@ object frmOrderInPut: TfrmOrderInPut
Left = 776 Left = 776
Top = 133 Top = 133
end end
object QryCheckNet: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 92
Top = 349
end
end end

49
复合检验管理/U_OrderInPut.pas
View File

@ -197,6 +197,8 @@ type
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
ToolButton4: TToolButton;
QryCheckNet: TADOQuery;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -229,6 +231,7 @@ type
procedure v1SOrddefstr1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1SOrddefstr1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1PRTHXPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1PRTHXPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject);
private private
procedure InitData(); procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
@ -240,6 +243,7 @@ type
procedure CJEWM(); procedure CJEWM();
procedure InitImage(); procedure InitImage();
procedure InitDataSetDictionary(); procedure InitDataSetDictionary();
function SelfConnData(): Boolean;
{ Private declarations } { Private declarations }
public public
PState, CopyInt, PriceFlag: Integer; PState, CopyInt, PriceFlag: Integer;
@ -435,6 +439,7 @@ begin
OrderNo.Text := ''; OrderNo.Text := '';
orddefnote1.Text := ''; orddefnote1.Text := '';
OrdPerson2.Text := trim(dName); OrdPerson2.Text := trim(dName);
SLBName.text := '';
with Order_Sub do with Order_Sub do
begin begin
First; First;
@ -1313,6 +1318,7 @@ begin
First; First;
while not Eof do while not Eof do
begin begin
with Order_Sub do with Order_Sub do
begin begin
Append; Append;
@ -1790,5 +1796,48 @@ begin
end; end;
end; end;
procedure TfrmOrderInPut.ToolButton4Click(Sender: TObject);
begin
if SelfConnData() = false then
begin
Application.MessageBox('网络链接失败，请重新保存', '提示', 0);
Exit;
end;
end;
function TfrmOrderInPut.SelfConnData(): Boolean;
begin
try
with QryCheckNet do
begin
Close;
sql.Clear;
//查询一个小表检测网络
SQL.Add('select getdate()');
Open;
end;
Result := true;
except
// if Application.MessageBox('是否重新连接网络！','提示',32+4)<>IDYES then Exit;
if not Assigned(DataLink_TradeManage) then
DataLink_TradeManage := TDataLink_TradeManage.Create(Application);
try
with DataLink_TradeManage.ADOLink do
begin
//if not Connected then
begin
Connected := false;
ConnectionString := DConString;
LoginPrompt := false;
Connected := true;
end;
end;
Result := true;
except
Result := false;
end;
end;
end;
end. end.