Group_DJD/D10myBahong
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-13 15:55:56 +08:00
parent 9ff30f3ceb
commit c677526d36
5 changed files with 31 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
T03贸易布匹检验/TradeInspFile.INI
View File

@ -14,8 +14,8 @@
重量下限=0
重量上限=222
米数小数位=0
码数小数位=0
重量小数位=0
码数小数位=2
重量小数位=1
自定义字母键1=A
自定义字母键2=-

6
T03贸易布匹检验/U_MachRollMain.dfm
View File

@ -2354,11 +2354,9 @@
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton5: TSpeedButton
Left = 58
Top = 59
Top = 62
OnClick = FrameKeyBoard1SpeedButton1Click
ExplicitLeft = 58
ExplicitTop = 59
ExplicitTop = 62
end
inherited SpeedButton8: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click

16
T03贸易布匹检验/U_MachRollMain.pas
View File

@ -2559,15 +2559,17 @@ begin
end;
// if not cds_params.IsEmpty then
// begin
cds_params.Edit;
with cds_params do
begin
cds_params.Edit;
if Trim(edtMaBiao.Text) = '¡Ì' then
cds_params.fieldByName('mabiao').Value := '1'
else
cds_params.fieldByName('mabiao').Value := '0';
end;
cds_params.Post;
end;
// end;
end;
@ -3236,10 +3238,18 @@ begin
frameBads1.lblCIFName.Caption := trim(TSpeedButton(Sender).Hint);
frameBads1.CIFNumber.SetFocus;
frameBads1.CIFNumber.text := '1';
frameBads1.CIFBeg.text := trim(Self.InputLen.text);
// frameBads1.CIFBeg.text := trim(Self.InputLen.text);
frameBads1cxCheckBox_readLenPropertiesChange(frameBads1.IsSubtract);
frameBads1.cxCheck_len.Checked := true;
if frameBads1.cxCheck_len.Checked and (trim(InputLen.Text) <> '') then
begin
frameBads1.CIFBeg.Text := trim(InputLen.Text);
frameBads1.CIFEnd.SetFocus;
end;
end;
procedure TfrmMachRollMain.On1301(var Message: Tmessage);

20
T03贸易布匹检验/U_ProductListHelp.dfm
View File

@ -398,7 +398,7 @@ inherited frmProductListHelp: TfrmProductListHelp
AllowRemove = False
CaptionOptions.Text = #35746#21333#21495
Control = OrderNo
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 21
ControlOptions.OriginalWidth = 109
ControlOptions.ShowBorder = False
Index = 2
@ -408,7 +408,7 @@ inherited frmProductListHelp: TfrmProductListHelp
AllowRemove = False
CaptionOptions.Text = #23458#25143#21517#31216
Control = custName
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 21
ControlOptions.OriginalWidth = 109
ControlOptions.ShowBorder = False
Index = 3
@ -416,7 +416,7 @@ inherited frmProductListHelp: TfrmProductListHelp
object dxLayoutItem_color: TdxLayoutItem
CaptionOptions.Text = #39068#33394
Control = C_Color
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 21
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@ -436,8 +436,8 @@ inherited frmProductListHelp: TfrmProductListHelp
SizeOptions.Width = 197
CaptionOptions.Text = #21046#21333#26085#26399
Control = begdate
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalWidth = 133
ControlOptions.OriginalHeight = 21
ControlOptions.OriginalWidth = 138
ControlOptions.ShowBorder = False
Index = 0
end
@ -446,8 +446,8 @@ inherited frmProductListHelp: TfrmProductListHelp
SizeOptions.Width = 152
CaptionOptions.Text = '--'
Control = enddate
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalWidth = 117
ControlOptions.OriginalHeight = 21
ControlOptions.OriginalWidth = 133
ControlOptions.ShowBorder = False
Index = 1
end
@ -455,7 +455,7 @@ inherited frmProductListHelp: TfrmProductListHelp
Parent = dxLayoutControl_queryGroup_Root
CaptionOptions.Text = #21512#21516#21495
Control = conNo
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 21
ControlOptions.OriginalWidth = 105
ControlOptions.ShowBorder = False
Index = 4
@ -463,7 +463,7 @@ inherited frmProductListHelp: TfrmProductListHelp
object dxLayoutItem_khdh: TdxLayoutItem
CaptionOptions.Text = #23458#25143#21333#21495
Control = BuyConNo
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 21
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@ -471,7 +471,7 @@ inherited frmProductListHelp: TfrmProductListHelp
object dxLayoutItem_Pattern: TdxLayoutItem
CaptionOptions.Text = #33457#22411
Control = C_Pattern
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 21
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1

5
T03贸易布匹检验/U_ProductListHelp.pas
View File

@ -13,7 +13,8 @@ uses
Vcl.ToolWin, Data.Win.ADODB, U_BaseHelp, U_BaseList, System.ImageList,
Vcl.ImgList, Datasnap.DBClient, dxBarBuiltInMenu, cxGridCustomPopupMenu,
cxGridPopupMenu, dxLayoutContainer, dxLayoutControl, cxContainer, dxCore,
cxDateUtils, dxLayoutcxEditAdapters, cxMaskEdit, cxDropDownEdit, cxTextEdit;
cxDateUtils, dxLayoutcxEditAdapters, cxMaskEdit, cxDropDownEdit, cxTextEdit,
dxSkinsCore;
type
TfrmProductListHelp = class(TfrmBaseHelp)
@ -94,7 +95,7 @@ procedure TfrmProductListHelp.FormCreate(Sender: TObject);
begin
inherited;
cxGrid2.Align:=alClient;
BegDate.Date:=SGetServerDateTime(ADOQueryBaseTemp)-3;
BegDate.Date:=SGetServerDateTime(ADOQueryBaseTemp)-30;
endDate.Date:=SGetServerDateTime(ADOQueryBaseTemp)
end;