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

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

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