11
This commit is contained in:
parent
70591a54ed
commit
2d92c56ed4
|
|
@ -1,6 +1,6 @@
|
|||
object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||
Left = 318
|
||||
Top = 307
|
||||
Left = 238
|
||||
Top = 41
|
||||
Width = 1400
|
||||
Height = 757
|
||||
Caption = #26816#39564#25253#21578
|
||||
|
|
@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 1392
|
||||
Height = 62
|
||||
Height = 92
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 107
|
||||
|
|
@ -109,43 +109,43 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
AutoSize = True
|
||||
Caption = #20462#25913#25968#37327#21333#20301
|
||||
ImageIndex = 54
|
||||
Wrap = True
|
||||
OnClick = TBDWClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 707
|
||||
Top = 0
|
||||
Left = 0
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#35843#25972#31859#25968
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton13: TToolButton
|
||||
Left = 818
|
||||
Top = 0
|
||||
Left = 111
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#20462#25913#31995#25968
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton14: TToolButton
|
||||
Left = 929
|
||||
Top = 0
|
||||
Left = 222
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#20462#25913#33853#33394
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton14Click
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 1040
|
||||
Top = 0
|
||||
Left = 333
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#20462#25913#30382#37325
|
||||
ImageIndex = 54
|
||||
Wrap = True
|
||||
OnClick = ToolButton8Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 0
|
||||
Left = 444
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#26631#31614
|
||||
|
|
@ -153,7 +153,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TCPDB: TToolButton
|
||||
Left = 87
|
||||
Left = 531
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25104#21697#25171#21253
|
||||
|
|
@ -161,7 +161,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = TCPDBClick
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 174
|
||||
Left = 618
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#21253#26631#31614
|
||||
|
|
@ -170,7 +170,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 273
|
||||
Left = 717
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#26816#39564#25253#21578
|
||||
|
|
@ -178,16 +178,17 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 384
|
||||
Left = 828
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
Wrap = True
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object Edit3: TEdit
|
||||
Left = 447
|
||||
Top = 30
|
||||
Left = 0
|
||||
Top = 60
|
||||
Width = 68
|
||||
Height = 30
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -201,8 +202,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnKeyPress = Edit3KeyPress
|
||||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 515
|
||||
Top = 33
|
||||
Left = 68
|
||||
Top = 63
|
||||
Width = 149
|
||||
Height = 24
|
||||
Style = csDropDownList
|
||||
|
|
@ -226,8 +227,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
#26816#39564#30721#21333)
|
||||
end
|
||||
object Edit4: TEdit
|
||||
Left = 664
|
||||
Top = 30
|
||||
Left = 217
|
||||
Top = 60
|
||||
Width = 121
|
||||
Height = 30
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -240,8 +241,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Visible = False
|
||||
end
|
||||
object ToolButton12: TToolButton
|
||||
Left = 785
|
||||
Top = 30
|
||||
Left = 338
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #20462#25913#30721#21333
|
||||
ImageIndex = 54
|
||||
|
|
@ -249,48 +250,56 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton12Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 872
|
||||
Top = 30
|
||||
Left = 425
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #24322#24120#25968#25454
|
||||
ImageIndex = 2
|
||||
OnClick = ToolButton9Click
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 959
|
||||
Top = 30
|
||||
Left = 512
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 1022
|
||||
Top = 30
|
||||
Left = 575
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
object ToolButton15: TToolButton
|
||||
Left = 1085
|
||||
Top = 30
|
||||
Left = 638
|
||||
Top = 60
|
||||
Caption = #25209#37327#20462#25913#26579#32568
|
||||
ImageIndex = 56
|
||||
OnClick = ToolButton15Click
|
||||
end
|
||||
object ToolButton16: TToolButton
|
||||
Left = 1192
|
||||
Top = 30
|
||||
Left = 745
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#35843#25972#30721#25968
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton16Click
|
||||
end
|
||||
object ToolButton17: TToolButton
|
||||
Left = 856
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#20462#25913#26550#21495
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton17Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 62
|
||||
Top = 92
|
||||
Width = 1392
|
||||
Height = 88
|
||||
Align = alTop
|
||||
|
|
@ -408,7 +417,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Top = 15
|
||||
Width = 40
|
||||
Height = 12
|
||||
Caption = #21253' '#21495
|
||||
Caption = #26550' '#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
|
|
@ -715,7 +724,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
TabOrder = 14
|
||||
OnChange = PRTCodeNameChange
|
||||
end
|
||||
object BAONO: TEdit
|
||||
object MJJH: TEdit
|
||||
Tag = 2
|
||||
Left = 790
|
||||
Top = 11
|
||||
|
|
@ -818,9 +827,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 150
|
||||
Top = 180
|
||||
Width = 1392
|
||||
Height = 576
|
||||
Height = 546
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 3
|
||||
|
|
@ -1142,6 +1151,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #26550#21495
|
||||
DataBinding.FieldName = 'MJJH'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
@ -2061,6 +2076,47 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
TabOrder = 1
|
||||
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
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
|
|
@ -2099,8 +2155,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Top = 200
|
||||
end
|
||||
object PopupMenu1: TPopupMenu
|
||||
Left = 432
|
||||
Top = 444
|
||||
Left = 408
|
||||
Top = 412
|
||||
object N1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N1Click
|
||||
|
|
|
|||
|
|
@ -113,7 +113,7 @@ type
|
|||
Label4: TLabel;
|
||||
Label9: TLabel;
|
||||
BAOID: TEdit;
|
||||
BAONO: TEdit;
|
||||
MJJH: TEdit;
|
||||
ToolButton3: TToolButton;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
|
|
@ -245,6 +245,13 @@ type
|
|||
Button19: TButton;
|
||||
Button20: TButton;
|
||||
Edit7: TEdit;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
ToolButton17: TToolButton;
|
||||
Panel17: TPanel;
|
||||
Label42: TLabel;
|
||||
Button21: TButton;
|
||||
Button22: TButton;
|
||||
FMJJH: TEdit;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -315,6 +322,9 @@ type
|
|||
procedure ToolButton16Click(Sender: TObject);
|
||||
procedure Button20Click(Sender: TObject);
|
||||
procedure Button19Click(Sender: TObject);
|
||||
procedure ToolButton17Click(Sender: TObject);
|
||||
procedure Button21Click(Sender: TObject);
|
||||
procedure Button22Click(Sender: TObject);
|
||||
// procedure Edit5Click(Sender: TObject);
|
||||
// procedure CheckBox3Click(Sender: TObject);
|
||||
private
|
||||
|
|
@ -2556,5 +2566,60 @@ begin
|
|||
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.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||
Left = 322
|
||||
Top = 165
|
||||
Left = 157
|
||||
Top = 247
|
||||
Width = 1366
|
||||
Height = 754
|
||||
Caption = #25104#21697#26816#39564
|
||||
|
|
@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
Left = 0
|
||||
Top = 87
|
||||
Width = 345
|
||||
Height = 628
|
||||
Height = 636
|
||||
Align = alLeft
|
||||
TabOrder = 0
|
||||
object Tv3: TcxGridDBTableView
|
||||
|
|
@ -137,8 +137,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
object ScrollBox1: TScrollBox
|
||||
Left = 633
|
||||
Top = 87
|
||||
Width = 717
|
||||
Height = 628
|
||||
Width = 725
|
||||
Height = 636
|
||||
Align = alClient
|
||||
Color = clWhite
|
||||
ParentColor = False
|
||||
|
|
@ -989,7 +989,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
Left = 409
|
||||
Top = 87
|
||||
Width = 224
|
||||
Height = 628
|
||||
Height = 636
|
||||
Align = alLeft
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -1272,14 +1272,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
ParentFont = False
|
||||
end
|
||||
object Label36: TLabel
|
||||
Left = 18
|
||||
Top = 5
|
||||
Width = 42
|
||||
Height = 20
|
||||
Left = 6
|
||||
Top = 9
|
||||
Width = 34
|
||||
Height = 16
|
||||
Caption = #21367#21495
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -20
|
||||
Font.Height = -16
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
|
|
@ -1402,6 +1402,19 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
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
|
||||
Left = 45
|
||||
Top = 441
|
||||
|
|
@ -1665,7 +1678,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
OnKeyPress = MJstr3KeyPress
|
||||
end
|
||||
object MJXH: TEdit
|
||||
Left = 67
|
||||
Left = 38
|
||||
Top = 1
|
||||
Width = 90
|
||||
Height = 34
|
||||
|
|
@ -1824,6 +1837,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
OnClick = MJXHClick
|
||||
OnKeyPress = MJstr3KeyPress
|
||||
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
|
||||
object MovePanel1: TMovePanel
|
||||
Left = 634
|
||||
|
|
@ -2079,7 +2108,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
Left = 345
|
||||
Top = 87
|
||||
Width = 64
|
||||
Height = 628
|
||||
Height = 636
|
||||
Align = alLeft
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -2088,7 +2117,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
Left = 2
|
||||
Top = 2
|
||||
Width = 60
|
||||
Height = 303
|
||||
Height = 311
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv2: TcxGridDBTableView
|
||||
|
|
@ -2196,7 +2225,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
object Panel8: TPanel
|
||||
Left = 2
|
||||
Top = 305
|
||||
Top = 313
|
||||
Width = 60
|
||||
Height = 28
|
||||
Align = alBottom
|
||||
|
|
@ -2211,7 +2240,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
end
|
||||
object AOrdDefNote1: TRichEdit
|
||||
Left = 2
|
||||
Top = 333
|
||||
Top = 341
|
||||
Width = 60
|
||||
Height = 293
|
||||
Align = alBottom
|
||||
|
|
@ -2438,7 +2467,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1350
|
||||
Width = 1358
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
|
|
@ -2626,7 +2655,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
object Panel6: TPanel
|
||||
Left = 0
|
||||
Top = 30
|
||||
Width = 1350
|
||||
Width = 1358
|
||||
Height = 57
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
|
|||
|
|
@ -272,6 +272,8 @@ type
|
|||
Tv3Column1: TcxGridDBColumn;
|
||||
Label56: TLabel;
|
||||
MJLS: TEdit;
|
||||
Label57: TLabel;
|
||||
MJJH: TEdit;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -1043,7 +1045,7 @@ begin
|
|||
FieldByName('MJstr4').Value := Trim(MJstr4.Text);
|
||||
FieldByName('MJstr5').Value := Trim(MJstr5.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('MJStr1').Value := Trim(Label13.Caption);
|
||||
if Edit12.Text <> '' then
|
||||
|
|
@ -2463,6 +2465,7 @@ begin
|
|||
Close;
|
||||
sql.Clear;
|
||||
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('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)');
|
||||
|
|
@ -2525,6 +2528,7 @@ begin
|
|||
kmxs.Text := Trim(ADOTmp.fieldbyname('kmxs').AsString);
|
||||
MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString);
|
||||
MJSJKZ.Text := Trim(ADOTmp.fieldbyname('PRTKZ').AsString);
|
||||
MJJH.Text:=Trim(ADOTmp.fieldbyname('MJJH').asstring);
|
||||
if edit10.Text = '' then
|
||||
begin
|
||||
MJXH.Text := inttostr(ADOTmp.fieldbyname('maxMJxh').AsInteger + 1);
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user