Group_01/D7DJweimianerfen
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:03:20 +08:00
parent 4f2c3393fb
commit 8886dae5e6
4 changed files with 64 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1103,6 +1103,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column5: TcxGridDBColumn
Caption = #25351#31034#21333#20811#37325
DataBinding.FieldName = 'PRTKZ'
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

@ -225,6 +225,7 @@ type
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -385,12 +386,12 @@ var
i: integer;
j: Integer;
begin
try
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
Filtered := False;
Close;
Filtered := False;
sql.Clear;
sql.Add('select A.*,C.CustomerNoName,');
SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,');
@ -1602,7 +1603,31 @@ begin
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL ');
sql.add('exec P_Print_CKMDYDL ');
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;
end;
if (trim(ComboBox1.Text) = '¼ìÑéÂëµ¥(ÂëÊý)') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL_Y ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;
@ -1620,7 +1645,6 @@ begin
Open;
end;
end;
if (trim(ComboBox1.Text) = 'ά¿ÆÂëµ¥') then
begin
with ADOQueryTemp do

26
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -71,6 +71,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
item
Kind = skCount
Column = v3Column1
end
item
Kind = skSum
Column = Tv3Column7
end
item
Kind = skSum
Column = Tv3Column6
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -131,7 +139,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Width = 40
end
object v3Column2: TcxGridDBColumn
Caption = #25968#37327
Caption = #31859#25968
DataBinding.FieldName = 'MJLen'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -139,6 +147,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Styles.Header = cxStyle3
Width = 42
end
object Tv3Column6: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'YMJlen'
HeaderAlignmentHorz = taCenter
Styles.Content = cxStyle3
Styles.Header = cxStyle3
Width = 42
end
object Tv3Column7: TcxGridDBColumn
Caption = #30721#23610#38271#24230
DataBinding.FieldName = 'MCMJlen'
HeaderAlignmentHorz = taCenter
Styles.Content = cxStyle3
Styles.Header = cxStyle3
Width = 47
end
object v3Column4: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'MJMaoZ'

6
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -314,6 +314,8 @@ type
SpeedButton96: TSpeedButton;
SpeedButton97: TSpeedButton;
Button8: TButton;
Tv3Column6: TcxGridDBColumn;
Tv3Column7: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -1121,8 +1123,8 @@ begin
FieldByName('MJLen').Value := FDC;
end
else
begin
if Label9.Caption = 'M' then
begin
if Label9.Caption = 'M' then
begin
MMJlen := RoundFloat(StrToFloatdef(trim(MJlen.Text), 0), StrToint(Fxsws));
MYMJlen := RoundFloat(MMJlen / 0.9144, StrToint(Fysws));