Group_DJD/D7DJquanchao
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-12-02 13:31:18 +08:00
parent b134b0ca25
commit 0420c5d321
3 changed files with 144 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
打卷检验管理/TradeManage.dof
View File

@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

110
打卷检验管理/U_JYOrderCDOne.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 302 Left = 196
Top = 296 Top = 135
Width = 1400 Width = 1400
Height = 757 Height = 757
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -221,10 +221,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ItemHeight = 16 ItemHeight = 16
ItemIndex = 0
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Text = #26816#39564#30721#21333'('#33521#25991')'
OnChange = ComboBox1Change OnChange = ComboBox1Change
Items.Strings = ( Items.Strings = (
#26816#39564#30721#21333'('#33521#25991')' #26816#39564#30721#21333'('#33521#25991')'
@ -587,6 +585,19 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label45: TLabel
Left = 906
Top = 63
Width = 38
Height = 19
Caption = #37329#39069
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 84 Left = 84
Top = 34 Top = 34
@ -868,6 +879,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnCellDblClick = Tv1CellDblClick OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -904,6 +916,10 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
item item
Kind = skCount Kind = skCount
Column = v1Column23 Column = v1Column23
end
item
Kind = skSum
Column = Tv1Column3
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsView.Footer = True OptionsView.Footer = True
@ -1187,6 +1203,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 60 Width = 60
end end
object Tv1Column7: TcxGridDBColumn
Caption = #33853#33394
DataBinding.FieldName = 'LS'
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -2021,7 +2043,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False Visible = False
object Label39: TLabel object Label39: TLabel
Left = 37 Left = 37
Top = 37 Top = 33
Width = 56 Width = 56
Height = 14 Height = 14
Caption = #26579#21378#32568#21495 Caption = #26579#21378#32568#21495
@ -2034,7 +2056,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Label40: TLabel object Label40: TLabel
Left = 37 Left = 37
Top = 79 Top = 75
Width = 28 Width = 28
Height = 14 Height = 14
Caption = #31995#25968 Caption = #31995#25968
@ -2047,7 +2069,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Label41: TLabel object Label41: TLabel
Left = 37 Left = 37
Top = 121 Top = 117
Width = 49 Width = 49
Height = 14 Height = 14
Caption = #31867' '#22411 Caption = #31867' '#22411
@ -2060,7 +2082,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Label42: TLabel object Label42: TLabel
Left = 37 Left = 37
Top = 163 Top = 159
Width = 42 Width = 42
Height = 14 Height = 14
Caption = #31561' '#32423 Caption = #31561' '#32423
@ -2073,7 +2095,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Label43: TLabel object Label43: TLabel
Left = 37 Left = 37
Top = 204 Top = 200
Width = 49 Width = 49
Height = 14 Height = 14
Caption = #32568' '#21495 Caption = #32568' '#21495
@ -2083,11 +2105,23 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False end
object Label44: TLabel
Left = 37
Top = 200
Width = 49
Height = 14
Caption = #33853' '#33394
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end end
object Button17: TButton object Button17: TButton
Left = 236 Left = 236
Top = 28 Top = 24
Width = 60 Width = 60
Height = 25 Height = 25
Caption = #20462#25913#21517#31216 Caption = #20462#25913#21517#31216
@ -2106,7 +2140,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Button19: TButton object Button19: TButton
Left = 236 Left = 236
Top = 71 Top = 67
Width = 60 Width = 60
Height = 25 Height = 25
Caption = #20462#25913#39068#33394 Caption = #20462#25913#39068#33394
@ -2116,14 +2150,14 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Edit_RG: TEdit object Edit_RG: TEdit
Left = 100 Left = 100
Top = 35 Top = 31
Width = 121 Width = 121
Height = 20 Height = 20
TabOrder = 3 TabOrder = 3
end end
object Button20: TButton object Button20: TButton
Left = 236 Left = 236
Top = 114 Top = 110
Width = 60 Width = 60
Height = 25 Height = 25
Caption = #20462#25913#20928#37325 Caption = #20462#25913#20928#37325
@ -2133,7 +2167,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Button21: TButton object Button21: TButton
Left = 236 Left = 236
Top = 157 Top = 153
Width = 60 Width = 60
Height = 25 Height = 25
Caption = #20462#25913#25968#37327 Caption = #20462#25913#25968#37327
@ -2143,7 +2177,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Button22: TButton object Button22: TButton
Left = 237 Left = 237
Top = 198 Top = 194
Width = 60 Width = 60
Height = 25 Height = 25
Caption = #20462#25913#32568#21495 Caption = #20462#25913#32568#21495
@ -2153,47 +2187,45 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Edit_C_MJstr4: TEdit object Edit_C_MJstr4: TEdit
Left = 100 Left = 100
Top = 202 Top = 198
Width = 121 Width = 121
Height = 20 Height = 20
TabOrder = 7 TabOrder = 7
Visible = False
end end
object CheckBox4: TCheckBox object CheckBox4: TCheckBox
Left = 12 Left = 12
Top = 37 Top = 33
Width = 20 Width = 20
Height = 17 Height = 17
TabOrder = 8 TabOrder = 8
end end
object CheckBox5: TCheckBox object CheckBox5: TCheckBox
Left = 12 Left = 12
Top = 79 Top = 75
Width = 20 Width = 20
Height = 17 Height = 17
TabOrder = 9 TabOrder = 9
end end
object CheckBox6: TCheckBox object CheckBox6: TCheckBox
Left = 12 Left = 12
Top = 121 Top = 117
Width = 20 Width = 20
Height = 17 Height = 17
TabOrder = 10 TabOrder = 10
end end
object CheckBox7: TCheckBox object CheckBox7: TCheckBox
Left = 12 Left = 12
Top = 163 Top = 159
Width = 20 Width = 20
Height = 17 Height = 17
TabOrder = 11 TabOrder = 11
end end
object CheckBox8: TCheckBox object CheckBox8: TCheckBox
Left = 12 Left = 12
Top = 205 Top = 201
Width = 20 Width = 20
Height = 17 Height = 17
TabOrder = 12 TabOrder = 12
Visible = False
end end
object Button23: TButton object Button23: TButton
Left = 65 Left = 65
@ -2206,7 +2238,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object edit_DJ: TComboBox object edit_DJ: TComboBox
Left = 100 Left = 100
Top = 161 Top = 157
Width = 81 Width = 81
Height = 28 Height = 28
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -2227,7 +2259,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object edit_Grade: TComboBox object edit_Grade: TComboBox
Left = 100 Left = 100
Top = 113 Top = 109
Width = 81 Width = 81
Height = 28 Height = 28
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -2245,13 +2277,37 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Edit_xs: TcxCurrencyEdit object Edit_xs: TcxCurrencyEdit
Left = 100 Left = 100
Top = 72 Top = 68
Properties.DecimalPlaces = 4 Properties.DecimalPlaces = 4
Properties.DisplayFormat = '0.####' Properties.DisplayFormat = '0.####'
Properties.Nullstring = '0' Properties.Nullstring = '0'
TabOrder = 16 TabOrder = 16
Width = 121 Width = 121
end end
object Button24: TButton
Left = 237
Top = 194
Width = 60
Height = 25
Caption = #20462#25913#32568#21495
TabOrder = 17
Visible = False
OnClick = Button8Click
end
object Edit_ls: TEdit
Left = 100
Top = 198
Width = 121
Height = 20
TabOrder = 18
end
object CheckBox9: TCheckBox
Left = 12
Top = 201
Width = 20
Height = 17
TabOrder = 19
end
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1

59
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -267,6 +267,12 @@ type
edit_Grade: TComboBox; edit_Grade: TComboBox;
Edit_xs: TcxCurrencyEdit; Edit_xs: TcxCurrencyEdit;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Label44: TLabel;
Button24: TButton;
Edit_ls: TEdit;
CheckBox9: TCheckBox;
Tv1Column7: TcxGridDBColumn;
Label45: TLabel;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -469,7 +475,7 @@ end;
procedure TfrmJYOrderCDOne.InitSum(); procedure TfrmJYOrderCDOne.InitSum();
var var
sumP, sumLen, sumMZ, sumJZ: double; sumP, sumLen, sumMZ, sumJZ, sumllms: double;
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
@ -478,6 +484,7 @@ begin
sumLen := 0; sumLen := 0;
sumMZ := 0; sumMZ := 0;
sumJZ := 0; sumJZ := 0;
sumllms := 0;
with Order_Main do with Order_Main do
begin begin
DisableControls; DisableControls;
@ -489,8 +496,10 @@ begin
sumP := sumP + 1; sumP := sumP + 1;
sumLen := RoundFloat(sumLen + Order_Main.fieldbyname('mjlen').AsFloat, 2); sumLen := RoundFloat(sumLen + Order_Main.fieldbyname('mjlen').AsFloat, 2);
sumMZ := RoundFloat(sumMZ + Order_Main.fieldbyname('mjmaoz').AsFloat, 2); sumMZ := RoundFloat(sumMZ + Order_Main.fieldbyname('mjmaoz').AsFloat, 2);
sumllms := RoundFloat(sumllms + Order_Main.fieldbyname('llms').AsFloat, 2);
sumJZ := RoundFloat(sumJZ + Order_Main.fieldbyname('mjqty4').AsFloat, 2)// sumMZ := sumMZ + Order_Main.fieldbyname('mjmaoz').AsFloat; sumJZ := RoundFloat(sumJZ + Order_Main.fieldbyname('mjqty4').AsFloat, 2)// sumMZ := sumMZ + Order_Main.fieldbyname('mjmaoz').AsFloat;
// sumJZ := sumJZ + Order_Main.fieldbyname('mjqty4').AsFloat; // sumJZ := sumJZ + Order_Main.fieldbyname('mjqty4').AsFloat;
end; end;
next; next;
@ -502,6 +511,7 @@ begin
label21.Caption := '长度:' + floattostr(sumLen); label21.Caption := '长度:' + floattostr(sumLen);
label20.Caption := '毛重:' + floattostr(sumMZ); label20.Caption := '毛重:' + floattostr(sumMZ);
label23.Caption := '净重:' + floattostr(sumJZ); label23.Caption := '净重:' + floattostr(sumJZ);
Label45.Caption := '理论米数:' + FloatToStr(sumllms);
Order_Main.Locate('mjid', fid, []); Order_Main.Locate('mjid', fid, []);
except except
application.MessageBox('操作失败！', '提示信息', 0); application.MessageBox('操作失败！', '提示信息', 0);
@ -1775,6 +1785,42 @@ begin
end; end;
end; end;
if (trim(ComboBox1.Text) = '码单(理论米数落色)') or (trim(ComboBox1.Text) = '码单(实际米数落色)') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL_copy1_ls ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
// ShowMessage(SQL.TEXT);
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_GH ');
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
@ -2529,6 +2575,11 @@ end;
procedure TfrmJYOrderCDOne.ToolButton16Click(Sender: TObject); procedure TfrmJYOrderCDOne.ToolButton16Click(Sender: TObject);
begin begin
if Order_Main.Locate('ssel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
Panel15.Left := (self.Width - Panel15.Width) div 2; Panel15.Left := (self.Width - Panel15.Width) div 2;
Panel15.Visible := True; Panel15.Visible := True;
end; end;
@ -2591,6 +2642,10 @@ begin
// begin // begin
// sql.Add('update WFB_MJJY SET MJstr4=''' + trim(Edit_C_MJstr4.Text) + ''' where MJID=''' + trim(CDS_Main.fieldbyname('MJID').AsString) + ''' '); // sql.Add('update WFB_MJJY SET MJstr4=''' + trim(Edit_C_MJstr4.Text) + ''' where MJID=''' + trim(CDS_Main.fieldbyname('MJID').AsString) + ''' ');
// end; // end;
if CheckBox9.Checked then
begin
sql.Add('update WFB_MJJY SET ls=''' + trim(Edit_ls.Text) + ''' where MJID=''' + trim(Order_Main.fieldbyname('MJID').AsString) + ''' ');
end;
ExecSQL; ExecSQL;
end; end;
Edit; Edit;
@ -2626,12 +2681,14 @@ begin
Edit_xs.Text := ''; Edit_xs.Text := '';
edit_Grade.Text := ''; edit_Grade.Text := '';
edit_DJ.Text := ''; edit_DJ.Text := '';
edit_ls.Text := '';
// Edit_C_MJstr4.Text := ''; // Edit_C_MJstr4.Text := '';
Exit; Exit;
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('操作异常!', '提示', 0); Application.MessageBox('操作异常!', '提示', 0);
end; end;
initgrid();
end; end;
procedure TfrmJYOrderCDOne.Button18Click(Sender: TObject); procedure TfrmJYOrderCDOne.Button18Click(Sender: TObject);