Group_99/D7DJxinwannian
10
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
libingpeng 2025-11-25 09:28:54 +08:00
parent 70591a54ed
commit 2d92c56ed4
4 changed files with 216 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 318 Left = 238
Top = 307 Top = 41
Width = 1400 Width = 1400
Height = 757 Height = 757
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1392 Width = 1392
Height = 62 Height = 92
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 107 ButtonWidth = 107
@ -109,43 +109,43 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
AutoSize = True AutoSize = True
Caption = #20462#25913#25968#37327#21333#20301 Caption = #20462#25913#25968#37327#21333#20301
ImageIndex = 54 ImageIndex = 54
Wrap = True
OnClick = TBDWClick OnClick = TBDWClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 707 Left = 0
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#35843#25972#31859#25968 Caption = #25209#37327#35843#25972#31859#25968
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 818 Left = 111
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#31995#25968 Caption = #25209#37327#20462#25913#31995#25968
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton13Click OnClick = ToolButton13Click
end end
object ToolButton14: TToolButton object ToolButton14: TToolButton
Left = 929 Left = 222
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#33853#33394 Caption = #25209#37327#20462#25913#33853#33394
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton14Click OnClick = ToolButton14Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 1040 Left = 333
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#30382#37325 Caption = #25209#37327#20462#25913#30382#37325
ImageIndex = 54 ImageIndex = 54
Wrap = True
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 444
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26631#31614 Caption = #25171#21360#26631#31614
@ -153,7 +153,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TCPDB: TToolButton object TCPDB: TToolButton
Left = 87 Left = 531
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25104#21697#25171#21253 Caption = #25104#21697#25171#21253
@ -161,7 +161,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TCPDBClick OnClick = TCPDBClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 174 Left = 618
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#21253#26631#31614 Caption = #25171#21360#21253#26631#31614
@ -170,7 +170,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 273 Left = 717
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578 Caption = #25171#21360#26816#39564#25253#21578
@ -178,16 +178,17 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 384 Left = 828
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 12 ImageIndex = 12
Wrap = True
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object Edit3: TEdit object Edit3: TEdit
Left = 447 Left = 0
Top = 30 Top = 60
Width = 68 Width = 68
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -201,8 +202,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = Edit3KeyPress OnKeyPress = Edit3KeyPress
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 515 Left = 68
Top = 33 Top = 63
Width = 149 Width = 149
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -226,8 +227,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333) #26816#39564#30721#21333)
end end
object Edit4: TEdit object Edit4: TEdit
Left = 664 Left = 217
Top = 30 Top = 60
Width = 121 Width = 121
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -240,8 +241,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False Visible = False
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 785 Left = 338
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #20462#25913#30721#21333 Caption = #20462#25913#30721#21333
ImageIndex = 54 ImageIndex = 54
@ -249,48 +250,56 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton12Click OnClick = ToolButton12Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 872 Left = 425
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #24322#24120#25968#25454 Caption = #24322#24120#25968#25454
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 959 Left = 512
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 75 ImageIndex = 75
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1022 Left = 575
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object ToolButton15: TToolButton object ToolButton15: TToolButton
Left = 1085 Left = 638
Top = 30 Top = 60
Caption = #25209#37327#20462#25913#26579#32568 Caption = #25209#37327#20462#25913#26579#32568
ImageIndex = 56 ImageIndex = 56
OnClick = ToolButton15Click OnClick = ToolButton15Click
end end
object ToolButton16: TToolButton object ToolButton16: TToolButton
Left = 1192 Left = 745
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #25209#37327#35843#25972#30721#25968 Caption = #25209#37327#35843#25972#30721#25968
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton16Click OnClick = ToolButton16Click
end end
object ToolButton17: TToolButton
Left = 856
Top = 60
AutoSize = True
Caption = #25209#37327#20462#25913#26550#21495
ImageIndex = 54
OnClick = ToolButton17Click
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 92
Width = 1392 Width = 1392
Height = 88 Height = 88
Align = alTop Align = alTop
@ -408,7 +417,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 15 Top = 15
Width = 40 Width = 40
Height = 12 Height = 12
Caption = #21253' '#21495 Caption = #26550' '#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -715,7 +724,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
TabOrder = 14 TabOrder = 14
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
end end
object BAONO: TEdit object MJJH: TEdit
Tag = 2 Tag = 2
Left = 790 Left = 790
Top = 11 Top = 11
@ -818,9 +827,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 150 Top = 180
Width = 1392 Width = 1392
Height = 576 Height = 546
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -1142,6 +1151,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 60 Width = 60
end end
object Tv1Column4: TcxGridDBColumn
Caption = #26550#21495
DataBinding.FieldName = 'MJJH'
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -2061,6 +2076,47 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
TabOrder = 1 TabOrder = 1
end end
end end
object Panel17: TPanel
Left = 428
Top = 416
Width = 225
Height = 117
Color = clSkyBlue
TabOrder = 17
Visible = False
object Label42: TLabel
Left = 24
Top = 44
Width = 24
Height = 12
Caption = #26550#21495
end
object Button21: TButton
Left = 32
Top = 72
Width = 60
Height = 25
Caption = #30830#23450
TabOrder = 0
OnClick = Button21Click
end
object Button22: TButton
Left = 128
Top = 72
Width = 60
Height = 25
Caption = #20851#38381
TabOrder = 1
OnClick = Button22Click
end
object FMJJH: TEdit
Left = 56
Top = 40
Width = 125
Height = 20
TabOrder = 2
end
end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
@ -2099,8 +2155,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 200 Top = 200
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
Left = 432 Left = 408
Top = 444 Top = 412
object N1: TMenuItem object N1: TMenuItem
Caption = #20840#36873 Caption = #20840#36873
OnClick = N1Click OnClick = N1Click

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

@ -113,7 +113,7 @@ type
Label4: TLabel; Label4: TLabel;
Label9: TLabel; Label9: TLabel;
BAOID: TEdit; BAOID: TEdit;
BAONO: TEdit; MJJH: TEdit;
ToolButton3: TToolButton; ToolButton3: TToolButton;
v1Column2: TcxGridDBColumn; v1Column2: TcxGridDBColumn;
v1Column3: TcxGridDBColumn; v1Column3: TcxGridDBColumn;
@ -245,6 +245,13 @@ type
Button19: TButton; Button19: TButton;
Button20: TButton; Button20: TButton;
Edit7: TEdit; Edit7: TEdit;
Tv1Column4: TcxGridDBColumn;
ToolButton17: TToolButton;
Panel17: TPanel;
Label42: TLabel;
Button21: TButton;
Button22: TButton;
FMJJH: TEdit;
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);
@ -315,6 +322,9 @@ type
procedure ToolButton16Click(Sender: TObject); procedure ToolButton16Click(Sender: TObject);
procedure Button20Click(Sender: TObject); procedure Button20Click(Sender: TObject);
procedure Button19Click(Sender: TObject); procedure Button19Click(Sender: TObject);
procedure ToolButton17Click(Sender: TObject);
procedure Button21Click(Sender: TObject);
procedure Button22Click(Sender: TObject);
// procedure Edit5Click(Sender: TObject); // procedure Edit5Click(Sender: TObject);
// procedure CheckBox3Click(Sender: TObject); // procedure CheckBox3Click(Sender: TObject);
private private
@ -2556,5 +2566,60 @@ begin
end; end;
end; end;
procedure TfrmJYOrderCDOne.ToolButton17Click(Sender: TObject);
begin
Panel17.Left := (self.Width - Panel17.Width) div 2;
Panel17.Visible := true;
end;
procedure TfrmJYOrderCDOne.Button21Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
try
Order_Main.DisableControls;
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update WFB_MJJY Set MJJH=''' + trim(FMJJH.Text) + ''' ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Order_Main.EnableControls;
application.MessageBox('数据保存成功！', '提示信息');
Panel17.Visible := false;
TBRafresh.Click;
except
ADOQueryCmd.Connection.RollbackTrans;
Order_Main.EnableControls;
application.MessageBox('数据保存失败！', '提示信息', 0);
end;
end;
procedure TfrmJYOrderCDOne.Button22Click(Sender: TObject);
begin
Panel17.Visible := false;
end;
end. end.

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

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 322 Left = 157
Top = 165 Top = 247
Width = 1366 Width = 1366
Height = 754 Height = 754
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0 Left = 0
Top = 87 Top = 87
Width = 345 Width = 345
Height = 628 Height = 636
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -137,8 +137,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 633 Left = 633
Top = 87 Top = 87
Width = 717 Width = 725
Height = 628 Height = 636
Align = alClient Align = alClient
Color = clWhite Color = clWhite
ParentColor = False ParentColor = False
@ -989,7 +989,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 409 Left = 409
Top = 87 Top = 87
Width = 224 Width = 224
Height = 628 Height = 636
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1272,14 +1272,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label36: TLabel object Label36: TLabel
Left = 18 Left = 6
Top = 5 Top = 9
Width = 42 Width = 34
Height = 20 Height = 16
Caption = #21367#21495 Caption = #21367#21495
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -20 Font.Height = -16
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -1402,6 +1402,19 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label57: TLabel
Left = 128
Top = 9
Width = 34
Height = 16
Caption = #26550#21495
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object MJFK: TEdit object MJFK: TEdit
Left = 45 Left = 45
Top = 441 Top = 441
@ -1665,7 +1678,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJXH: TEdit object MJXH: TEdit
Left = 67 Left = 38
Top = 1 Top = 1
Width = 90 Width = 90
Height = 34 Height = 34
@ -1824,6 +1837,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = MJXHClick OnClick = MJXHClick
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJJH: TEdit
Left = 161
Top = 1
Width = 90
Height = 34
AutoSize = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -28
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 25
OnClick = MJXHClick
OnKeyPress = MJstr3KeyPress
end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 634 Left = 634
@ -2079,7 +2108,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 345 Left = 345
Top = 87 Top = 87
Width = 64 Width = 64
Height = 628 Height = 636
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -2088,7 +2117,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2 Left = 2
Top = 2 Top = 2
Width = 60 Width = 60
Height = 303 Height = 311
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -2196,7 +2225,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 305 Top = 313
Width = 60 Width = 60
Height = 28 Height = 28
Align = alBottom Align = alBottom
@ -2211,7 +2240,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 333 Top = 341
Width = 60 Width = 60
Height = 293 Height = 293
Align = alBottom Align = alBottom
@ -2438,7 +2467,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1350 Width = 1358
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -2626,7 +2655,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1350 Width = 1358
Height = 57 Height = 57
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

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

@ -272,6 +272,8 @@ type
Tv3Column1: TcxGridDBColumn; Tv3Column1: TcxGridDBColumn;
Label56: TLabel; Label56: TLabel;
MJLS: TEdit; MJLS: TEdit;
Label57: TLabel;
MJJH: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -1043,7 +1045,7 @@ begin
FieldByName('MJstr4').Value := Trim(MJstr4.Text); FieldByName('MJstr4').Value := Trim(MJstr4.Text);
FieldByName('MJstr5').Value := Trim(MJstr5.Text); FieldByName('MJstr5').Value := Trim(MJstr5.Text);
FieldByName('mjxh').Value := Trim(mjxh.Text); FieldByName('mjxh').Value := Trim(mjxh.Text);
// FieldByName('BaoNO').Value := Trim(BaoNO.Text); FieldByName('MJJH').Value := Trim(MJJH.Text);
FieldByName('MJTypeOther').Value := Trim(Label9.Caption); FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
FieldByName('MJStr1').Value := Trim(Label13.Caption); FieldByName('MJStr1').Value := Trim(Label13.Caption);
if Edit12.Text <> '' then if Edit12.Text <> '' then
@ -2463,6 +2465,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select B.*,B.OrderNo OrderNoM,C.*, '); sql.Add('select B.*,B.OrderNo OrderNoM,C.*, ');
sql.Add('MJJH=(select MJJH from WFB_MJJY X where X.SubID=C.subID),');
sql.Add('maxMJxh=isnull((select max(mjxh) from WFB_MJJY X where X.SubID=C.subID),0),'); sql.Add('maxMJxh=isnull((select max(mjxh) from WFB_MJJY X where X.SubID=C.subID),0),');
sql.Add('minMJxh=isnull((select min(mjxh) from WFB_MJJY X where X.SubID=C.subID),1),'); sql.Add('minMJxh=isnull((select min(mjxh) from WFB_MJJY X where X.SubID=C.subID),1),');
// sql.Add('maxBaoNO=1+isnull((select max(cast(baoNO as int)) from WFB_MJJY X where X.subID=C.subID ),0)'); // sql.Add('maxBaoNO=1+isnull((select max(cast(baoNO as int)) from WFB_MJJY X where X.subID=C.subID ),0)');
@ -2525,6 +2528,7 @@ begin
kmxs.Text := Trim(ADOTmp.fieldbyname('kmxs').AsString); kmxs.Text := Trim(ADOTmp.fieldbyname('kmxs').AsString);
MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString); MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString);
MJSJKZ.Text := Trim(ADOTmp.fieldbyname('PRTKZ').AsString); MJSJKZ.Text := Trim(ADOTmp.fieldbyname('PRTKZ').AsString);
MJJH.Text:=Trim(ADOTmp.fieldbyname('MJJH').asstring);
if edit10.Text = '' then if edit10.Text = '' then
begin begin
MJXH.Text := inttostr(ADOTmp.fieldbyname('maxMJxh').AsInteger + 1); MJXH.Text := inttostr(ADOTmp.fieldbyname('maxMJxh').AsInteger + 1);