Group_03/D7DJchenhang
4
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-04 14:45:31 +08:00
parent 915b1ef080
commit 97f3deb714
2 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
打卷检验管理/U_OrderInPut.dfm
View File

@ -18,7 +18,7 @@ object frmOrderInPut: TfrmOrderInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1371 Width = 1363
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -66,7 +66,7 @@ object frmOrderInPut: TfrmOrderInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 29 Top = 29
Width = 1371 Width = 1363
Height = 280 Height = 280
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -1521,7 +1521,7 @@ object frmOrderInPut: TfrmOrderInPut
OnClick = Button1Click OnClick = Button1Click
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 945 Left = 937
Top = 0 Top = 0
Width = 424 Width = 424
Height = 278 Height = 278
@ -1548,7 +1548,7 @@ object frmOrderInPut: TfrmOrderInPut
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 309 Top = 309
Width = 1371 Width = 1363
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -1595,8 +1595,8 @@ object frmOrderInPut: TfrmOrderInPut
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 338 Top = 338
Width = 1371 Width = 1363
Height = 392 Height = 384
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

21
打卷检验管理/U_OrderInPut.pas
View File

@ -12,7 +12,20 @@ uses
cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit, cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit,
cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Preview, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Preview,
RM_DsgGridReport, RM_e_Graphic, RM_e_bmp; RM_DsgGridReport, RM_e_Graphic, RM_e_bmp, 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
TfrmOrderInPut = class(TForm) TfrmOrderInPut = class(TForm)
@ -583,7 +596,7 @@ begin
FieldByName('editcnt').Value := strtointdef(trim(editcnt.Text), 0); FieldByName('editcnt').Value := strtointdef(trim(editcnt.Text), 0);
FieldByName('PBPrice').Value := strtofloatdef(trim(PBPrice.Text), 0); FieldByName('PBPrice').Value := strtofloatdef(trim(PBPrice.Text), 0);
FieldByName('PBQty').Value := strtofloatdef(trim(PBQty.Text), 0); FieldByName('PBQty').Value := strtofloatdef(trim(PBQty.Text), 0);
FieldByName('Orddefstr15').Value := '按缸号生成'; FieldByName('Orddefstr15').Value := '°´ÑÕÉ«Éú³É';
FieldByName('status').Value := '0'; FieldByName('status').Value := '0';
Post; Post;
end; end;
@ -642,8 +655,8 @@ begin
// FieldByName('Filltime').Value := SGetServerDateTime(ADOTemp); // FieldByName('Filltime').Value := SGetServerDateTime(ADOTemp);
// end // end
// else // else
// begin // begin
// FieldByName('Editer').Value := Trim(DName); // FieldByName('Editer').Value := Trim(DName);
// FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); // FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
// end; // end;
// FieldByName('LBNameNote').Value := Trim(LBNameNote.Text); // FieldByName('LBNameNote').Value := Trim(LBNameNote.Text);