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

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-01-26 15:41:36 +08:00
parent 69419352db
commit 3a05ad8140
2 changed files with 197 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,11 +21,11 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1392 Width = 1384
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 119 ButtonWidth = 131
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
Flat = True Flat = True
@ -112,7 +112,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton11Click OnClick = ToolButton11Click
end end
object TBDW: TToolButton object TBDW: TToolButton
Left = 671 Left = 683
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913#25968#37327#21333#20301 Caption = #20462#25913#25968#37327#21333#20301
@ -120,7 +120,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TBDWClick OnClick = TBDWClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 782 Left = 794
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#35843#25972#31859#25968 Caption = #25209#37327#35843#25972#31859#25968
@ -128,7 +128,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 893 Left = 905
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#20928#37325#36716#38271#24230 Caption = #25209#37327#20928#37325#36716#38271#24230
@ -137,7 +137,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton13Click OnClick = ToolButton13Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 1016 Left = 1028
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#30382#37325 Caption = #25209#37327#20462#25913#30382#37325
@ -249,7 +249,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton12Click OnClick = ToolButton12Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 904 Left = 916
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #24322#24120#25968#25454 Caption = #24322#24120#25968#25454
@ -257,7 +257,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 991 Left = 1003
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -265,18 +265,25 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1054 Left = 1066
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object ToolButton16: TToolButton
Left = 1129
Top = 30
Caption = #25209#37327#20462#25913#27611#37325#20928#37325
ImageIndex = 57
OnClick = ToolButton16Click
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1392 Width = 1384
Height = 88 Height = 88
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -791,8 +798,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 150 Top = 150
Width = 1392 Width = 1384
Height = 576 Height = 568
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -1258,8 +1265,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 496 Left = 320
Top = 336 Top = 496
Width = 273 Width = 273
Height = 101 Height = 101
Color = clSkyBlue Color = clSkyBlue
@ -1868,6 +1875,67 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
'4') '4')
end end
end end
object Panel14: TPanel
Left = 1040
Top = 248
Width = 273
Height = 101
Color = clSkyBlue
TabOrder = 14
Visible = False
object Label37: TLabel
Left = 40
Top = 12
Width = 48
Height = 12
Caption = #35843#25972#26041#24335
end
object Label38: TLabel
Left = 16
Top = 40
Width = 72
Height = 12
Caption = #37325#37327#35843#25972#25968#37327
end
object ZLTZ: TComboBox
Left = 92
Top = 8
Width = 101
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 0
Items.Strings = (
''
#22686#21152
#20943#23569)
end
object Button15: TButton
Left = 32
Top = 64
Width = 60
Height = 25
Caption = #30830#23450
TabOrder = 2
OnClick = Button15Click
end
object Button16: TButton
Left = 172
Top = 64
Width = 60
Height = 25
Caption = #20851#38381
TabOrder = 3
OnClick = Button16Click
end
object ZLSL: TEdit
Left = 92
Top = 35
Width = 101
Height = 20
TabOrder = 1
end
end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>

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

@ -11,7 +11,20 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
cxCurrencyEdit, MMSystem; cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinscxPCPainter;
type type
TfrmJYOrderCDOne = class(TForm) TfrmJYOrderCDOne = class(TForm)
@ -210,6 +223,14 @@ type
ComboBox3: TComboBox; ComboBox3: TComboBox;
Edit6: TEdit; Edit6: TEdit;
ToolButton14: TToolButton; ToolButton14: TToolButton;
ToolButton16: TToolButton;
Panel14: TPanel;
Label37: TLabel;
Label38: TLabel;
ZLTZ: TComboBox;
Button15: TButton;
Button16: TButton;
ZLSL: 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);
@ -272,6 +293,9 @@ type
procedure Button14Click(Sender: TObject); procedure Button14Click(Sender: TObject);
procedure Button13Click(Sender: TObject); procedure Button13Click(Sender: TObject);
procedure ToolButton14Click(Sender: TObject); procedure ToolButton14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure ToolButton16Click(Sender: TObject);
// procedure Edit5Click(Sender: TObject); // procedure Edit5Click(Sender: TObject);
// procedure CheckBox3Click(Sender: TObject); // procedure CheckBox3Click(Sender: TObject);
private private
@ -297,7 +321,7 @@ var
implementation implementation
uses uses
U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO, U_MJSJFX,U_JSZDZSDXZ1; U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO, U_MJSJFX, U_JSZDZSDXZ1;
{$R *.dfm} {$R *.dfm}
procedure TfrmJYOrderCDOne.JSbaoNum(); procedure TfrmJYOrderCDOne.JSbaoNum();
@ -322,7 +346,7 @@ begin
while not eof do while not eof do
begin begin
if (trim(fieldbyname('BaoNO').AsString) <> '') then if (trim(fieldbyname('BaoNO').AsString) <> '') then
begin begin
if strlist.IndexOf(trim(fieldbyname('subID').AsString) + trim(fieldbyname('baono').AsString)) < 0 then if strlist.IndexOf(trim(fieldbyname('subID').AsString) + trim(fieldbyname('baono').AsString)) < 0 then
begin begin
@ -1582,7 +1606,7 @@ begin
end; end;
end; end;
if (trim(ComboBox1.Text) = '检验码单(全)') then if (trim(ComboBox1.Text) = '检验码单(全)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -2322,7 +2346,7 @@ begin
Exit; Exit;
end; end;
try try
frmJSZDZSD1 := TfrmJSZDZSD1.Create(Application); frmJSZDZSD1 := TfrmJSZDZSD1.Create(Application);
with frmJSZDZSD1 do with frmJSZDZSD1 do
begin begin
if ShowModal = 1 then if ShowModal = 1 then
@ -2355,5 +2379,91 @@ begin
end; end;
end; end;
procedure TfrmJYOrderCDOne.Button15Click(Sender: TObject);
var
FTZMZ, FTZJZ: string;
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
if trim(ZLTZ.Text) = '' then
begin
Application.MessageBox('调整方式不能为空!', '提示', 0);
Exit;
end;
if trim(ZLSL.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(ZLTZ.Text) = '增加' then
begin
FTZMZ := FloatToStr(Order_Main.fieldbyname('MJMaoz').AsFloat + strtofloat(ZLSL.Text));
FTZJZ := FloatToStr(Order_Main.fieldbyname('MJQty4').AsFloat + strtofloat(ZLSL.Text));
end;
if Trim(ZLTZ.Text) = '减少' then
begin
FTZMZ := FloatToStr(Order_Main.fieldbyname('MJMaoz').AsFloat - strtofloat(ZLSL.Text));
FTZJZ := FloatToStr(Order_Main.fieldbyname('MJQty4').AsFloat - strtofloat(ZLSL.Text));
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update WFB_MJJY Set MJMaoz=''' + FTZMZ + ''',MJQty4=''' + FTZJZ + ''' ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('Update CK_BanCP_CR Set Qty=''' + 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('数据保存成功！', '提示信息');
Panel14.Visible := false;
ZLTZ.Text := '';
ZLSL.Text := '';
TBRafresh.Click;
except
ADOQueryCmd.Connection.RollbackTrans;
Order_Main.EnableControls;
application.MessageBox('数据保存失败！', '提示信息', 0);
end;
end;
procedure TfrmJYOrderCDOne.Button16Click(Sender: TObject);
begin
Panel14.Visible := false;
end;
procedure TfrmJYOrderCDOne.ToolButton16Click(Sender: TObject);
begin
Panel14.Left := (self.Width - Panel14.Width) div 2;
Panel14.Visible := true;
end;
end. end.