新增按钮
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
f428e1f257
commit
70591a54ed
|
|
@ -14,10 +14,10 @@ PROJECTS = TradeManage.dll testDll.exe
|
|||
default: $(PROJECTS)
|
||||
#------------------------------------------------------------------------------
|
||||
|
||||
TradeManage.dll: ..\..\D7DJjinchao\复合检验管理\TradeManage.dpr
|
||||
TradeManage.dll: TradeManage.dpr
|
||||
$(DCC)
|
||||
|
||||
testDll.exe: ..\..\D7DJjinchao\复合检验管理\testDll.dpr
|
||||
testDll.exe: testDll.dpr
|
||||
$(DCC)
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||
Left = 296
|
||||
Top = 178
|
||||
Left = 318
|
||||
Top = 307
|
||||
Width = 1400
|
||||
Height = 757
|
||||
Caption = #26816#39564#25253#21578
|
||||
|
|
@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1384
|
||||
Width = 1392
|
||||
Height = 62
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
|
|
@ -279,11 +279,19 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
ImageIndex = 56
|
||||
OnClick = ToolButton15Click
|
||||
end
|
||||
object ToolButton16: TToolButton
|
||||
Left = 1192
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#35843#25972#30721#25968
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton16Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 62
|
||||
Width = 1384
|
||||
Width = 1392
|
||||
Height = 88
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
|
|
@ -811,8 +819,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 150
|
||||
Width = 1384
|
||||
Height = 568
|
||||
Width = 1392
|
||||
Height = 576
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 3
|
||||
|
|
@ -1300,8 +1308,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 496
|
||||
Top = 336
|
||||
Left = 152
|
||||
Top = 552
|
||||
Width = 273
|
||||
Height = 101
|
||||
Color = clSkyBlue
|
||||
|
|
@ -1992,6 +2000,67 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
object Panel16: TPanel
|
||||
Left = 832
|
||||
Top = 560
|
||||
Width = 273
|
||||
Height = 101
|
||||
Color = clSkyBlue
|
||||
TabOrder = 16
|
||||
Visible = False
|
||||
object Label40: TLabel
|
||||
Left = 40
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #35843#25972#26041#24335
|
||||
end
|
||||
object Label41: TLabel
|
||||
Left = 40
|
||||
Top = 40
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #35843#25972#25968#37327
|
||||
end
|
||||
object ComboBox4: TComboBox
|
||||
Left = 92
|
||||
Top = 8
|
||||
Width = 101
|
||||
Height = 20
|
||||
Style = csDropDownList
|
||||
ItemHeight = 12
|
||||
TabOrder = 0
|
||||
Items.Strings = (
|
||||
''
|
||||
#22686#21152
|
||||
#20943#23569)
|
||||
end
|
||||
object Button19: TButton
|
||||
Left = 32
|
||||
Top = 64
|
||||
Width = 60
|
||||
Height = 25
|
||||
Caption = #30830#23450
|
||||
TabOrder = 2
|
||||
OnClick = Button19Click
|
||||
end
|
||||
object Button20: TButton
|
||||
Left = 172
|
||||
Top = 64
|
||||
Width = 60
|
||||
Height = 25
|
||||
Caption = #20851#38381
|
||||
TabOrder = 3
|
||||
OnClick = Button20Click
|
||||
end
|
||||
object Edit7: TEdit
|
||||
Left = 92
|
||||
Top = 35
|
||||
Width = 101
|
||||
Height = 20
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
|
|
|
|||
|
|
@ -237,6 +237,14 @@ type
|
|||
Button17: TButton;
|
||||
Button18: TButton;
|
||||
FMJStr5: TEdit;
|
||||
ToolButton16: TToolButton;
|
||||
Panel16: TPanel;
|
||||
Label40: TLabel;
|
||||
Label41: TLabel;
|
||||
ComboBox4: TComboBox;
|
||||
Button19: TButton;
|
||||
Button20: TButton;
|
||||
Edit7: TEdit;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -304,6 +312,9 @@ type
|
|||
procedure ToolButton15Click(Sender: TObject);
|
||||
procedure Button17Click(Sender: TObject);
|
||||
procedure Button18Click(Sender: TObject);
|
||||
procedure ToolButton16Click(Sender: TObject);
|
||||
procedure Button20Click(Sender: TObject);
|
||||
procedure Button19Click(Sender: TObject);
|
||||
// procedure Edit5Click(Sender: TObject);
|
||||
// procedure CheckBox3Click(Sender: TObject);
|
||||
private
|
||||
|
|
@ -2469,5 +2480,81 @@ begin
|
|||
Panel15.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.ToolButton16Click(Sender: TObject);
|
||||
begin
|
||||
Panel16.Left := (self.Width - Panel16.Width) div 2;
|
||||
Panel16.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.Button20Click(Sender: TObject);
|
||||
begin
|
||||
Panel16.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.Button19Click(Sender: TObject);
|
||||
var
|
||||
SL: string;
|
||||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if trim(ComboBox4.Text) = '' then
|
||||
begin
|
||||
Application.MessageBox('调整方式不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if trim(Edit7.Text) = '' 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
|
||||
if Trim(ComboBox4.Text) = '增加' then
|
||||
begin
|
||||
SL := FloatToStr(Order_Main.fieldbyname('MJma').AsFloat + strtofloat(Edit7.Text));
|
||||
end;
|
||||
if Trim(ComboBox4.Text) = '减少' then
|
||||
begin
|
||||
SL := FloatToStr(Order_Main.fieldbyname('MJma').AsFloat - strtofloat(Edit7.Text));
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update WFB_MJJY Set MJma=''' + SL + ''' ');
|
||||
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
Order_Main.EnableControls;
|
||||
application.MessageBox('数据保存成功！', '提示信息');
|
||||
Panel16.Visible := false;
|
||||
ComboBox4.Text := '';
|
||||
Edit7.Text := '';
|
||||
TBRafresh.Click;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Order_Main.EnableControls;
|
||||
application.MessageBox('数据保存失败！', '提示信息', 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user