Group_99/D10szGerun
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

检验 仓库

Browse Source
This commit is contained in:
funa 2026-09-14 17:17:52 +08:00
parent 21df23ddfa
commit 39a97f2250
7 changed files with 168 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
E03梭织坯布检验/U_TatClothInspList.dfm
View File

@ -7,7 +7,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -276
ExplicitWidth = 1483 ExplicitWidth = 1483
ExplicitHeight = 621 ExplicitHeight = 621
PixelsPerInch = 96 PixelsPerInch = 96
@ -21,7 +20,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
AutoSize = True AutoSize = True
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 3 TabOrder = 3
ExplicitWidth = 1472
DesignSize = ( DesignSize = (
1463 1463
24) 24)
@ -129,7 +127,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1472
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -268,7 +265,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
end end
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #30133#28857#25968#37327 Caption = #30133#28857#25968#37327
DataBinding.FieldName = 'CDQty' DataBinding.FieldName = 'SumCIFNumber'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -282,6 +279,14 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1SumPoints: TcxGridDBColumn
Caption = #25187#20998
DataBinding.FieldName = 'SumPoints'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object v1Column17: TcxGridDBColumn object v1Column17: TcxGridDBColumn
Caption = #29366#24577 Caption = #29366#24577
DataBinding.FieldName = 'CIIOFlag' DataBinding.FieldName = 'CIIOFlag'
@ -510,7 +515,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1472
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -612,7 +616,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Color = 16242829 Color = 16242829
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
ExplicitWidth = 1472
object Label3: TLabel object Label3: TLabel
Left = 195 Left = 195
Top = 14 Top = 14

3
E03梭织坯布检验/U_TatClothInspList.pas
View File

@ -14,7 +14,7 @@ uses
RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels, RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker, dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker,
Vcl.Buttons, System.StrUtils, dxScrollbarAnnotations; Vcl.Buttons, System.StrUtils, dxScrollbarAnnotations, dxSkinWXI;
type type
TfrmTatClothInspList = class(TfrmBaseList) TfrmTatClothInspList = class(TfrmBaseList)
@ -117,6 +117,7 @@ type
SpeedButton111: TSpeedButton; SpeedButton111: TSpeedButton;
SpeedButton112: TSpeedButton; SpeedButton112: TSpeedButton;
SpeedButton110: TSpeedButton; SpeedButton110: TSpeedButton;
Tv1SumPoints: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

188
E03梭织坯布检验/U_TatMachInsp.dfm
View File

@ -7,7 +7,6 @@
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitTop = -129
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 807 ExplicitHeight = 807
PixelsPerInch = 96 PixelsPerInch = 96
@ -38,9 +37,10 @@
ParentBackground = False ParentBackground = False
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitLeft = 2
object lblLenUnit: TLabel object lblLenUnit: TLabel
Left = 190 Left = 218
Top = 9 Top = 65
Width = 25 Width = 25
Height = 34 Height = 34
Caption = 'M' Caption = 'M'
@ -53,8 +53,8 @@
OnClick = lblLenUnitClick OnClick = lblLenUnitClick
end end
object Label5: TLabel object Label5: TLabel
Left = 2 Left = 30
Top = 9 Top = 68
Width = 62 Width = 62
Height = 34 Height = 34
Caption = #38271#24230 Caption = #38271#24230
@ -66,8 +66,8 @@
ParentFont = False ParentFont = False
end end
object Label22: TLabel object Label22: TLabel
Left = 324 Left = 277
Top = 107 Top = 68
Width = 44 Width = 44
Height = 21 Height = 21
Caption = #31561#32423 Caption = #31561#32423
@ -79,8 +79,8 @@
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 324 Left = 330
Top = 69 Top = 259
Width = 44 Width = 44
Height = 21 Height = 21
Caption = #33394#21035 Caption = #33394#21035
@ -90,10 +90,11 @@
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label12: TLabel object Label12: TLabel
Left = 14 Left = 40
Top = 108 Top = 281
Width = 52 Width = 52
Height = 23 Height = 23
Caption = #25377#36710'2' Caption = #25377#36710'2'
@ -105,8 +106,8 @@
ParentFont = False ParentFont = False
end end
object Label34: TLabel object Label34: TLabel
Left = 14 Left = 40
Top = 66 Top = 243
Width = 52 Width = 52
Height = 23 Height = 23
Caption = #25377#36710'1' Caption = #25377#36710'1'
@ -118,8 +119,8 @@
ParentFont = False ParentFont = False
end end
object Label49: TLabel object Label49: TLabel
Left = 324 Left = 277
Top = 144 Top = 108
Width = 44 Width = 44
Height = 21 Height = 21
Caption = #29677#27425 Caption = #29677#27425
@ -131,8 +132,8 @@
ParentFont = False ParentFont = False
end end
object Label36: TLabel object Label36: TLabel
Left = 193 Left = 204
Top = 65 Top = 278
Width = 42 Width = 42
Height = 23 Height = 23
Caption = #31859#25968 Caption = #31859#25968
@ -144,8 +145,8 @@
ParentFont = False ParentFont = False
end end
object Label38: TLabel object Label38: TLabel
Left = 193 Left = 204
Top = 107 Top = 243
Width = 42 Width = 42
Height = 23 Height = 23
Caption = #31859#25968 Caption = #31859#25968
@ -157,8 +158,8 @@
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 190 Left = 218
Top = 243 Top = 108
Width = 31 Width = 31
Height = 24 Height = 24
Caption = 'KG' Caption = 'KG'
@ -170,8 +171,8 @@
ParentFont = False ParentFont = False
end end
object Label11: TLabel object Label11: TLabel
Left = 22 Left = 50
Top = 240 Top = 108
Width = 42 Width = 42
Height = 24 Height = 24
Caption = #37325#37327 Caption = #37325#37327
@ -211,8 +212,8 @@
Visible = False Visible = False
end end
object Label37: TLabel object Label37: TLabel
Left = 14 Left = 40
Top = 193 Top = 350
Width = 52 Width = 52
Height = 23 Height = 23
Caption = #25377#36710'4' Caption = #25377#36710'4'
@ -224,8 +225,8 @@
ParentFont = False ParentFont = False
end end
object Label39: TLabel object Label39: TLabel
Left = 14 Left = 40
Top = 150 Top = 319
Width = 52 Width = 52
Height = 23 Height = 23
Caption = #25377#36710'3' Caption = #25377#36710'3'
@ -237,8 +238,8 @@
ParentFont = False ParentFont = False
end end
object Label40: TLabel object Label40: TLabel
Left = 193 Left = 206
Top = 149 Top = 350
Width = 42 Width = 42
Height = 23 Height = 23
Caption = #31859#25968 Caption = #31859#25968
@ -250,8 +251,8 @@
ParentFont = False ParentFont = False
end end
object Label41: TLabel object Label41: TLabel
Left = 193 Left = 206
Top = 192 Top = 319
Width = 42 Width = 42
Height = 23 Height = 23
Caption = #31859#25968 Caption = #31859#25968
@ -347,8 +348,8 @@
Visible = False Visible = False
end end
object Label54: TLabel object Label54: TLabel
Left = 22 Left = 50
Top = 294 Top = 149
Width = 42 Width = 42
Height = 24 Height = 24
Caption = #38376#24133 Caption = #38376#24133
@ -360,8 +361,8 @@
ParentFont = False ParentFont = False
end end
object Label55: TLabel object Label55: TLabel
Left = 181 Left = 279
Top = 294 Top = 147
Width = 42 Width = 42
Height = 24 Height = 24
Caption = #20811#37325 Caption = #20811#37325
@ -373,8 +374,8 @@
ParentFont = False ParentFont = False
end end
object Label56: TLabel object Label56: TLabel
Left = 22 Left = 8
Top = 338 Top = 18
Width = 84 Width = 84
Height = 24 Height = 24
Caption = #30721#34920#38271#24230 Caption = #30721#34920#38271#24230
@ -386,9 +387,9 @@
ParentFont = False ParentFont = False
end end
object InputLen: TEdit object InputLen: TEdit
Left = 70 Left = 98
Top = 6 Top = 61
Width = 102 Width = 114
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -401,10 +402,10 @@
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object BTPrint: TButton object BTPrint: TButton
Left = 333 Left = 88
Top = 178 Top = 182
Width = 136 Width = 157
Height = 90 Height = 55
Caption = #30830' '#35748 Caption = #30830' '#35748
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -446,9 +447,9 @@
OnClick = Button8Click OnClick = Button8Click
end end
object Grade: TComboBox object Grade: TComboBox
Left = 374 Left = 327
Top = 101 Top = 65
Width = 102 Width = 122
Height = 32 Height = 32
Style = csDropDownList Style = csDropDownList
DropDownCount = 20 DropDownCount = 20
@ -465,8 +466,8 @@
'C'#21697) 'C'#21697)
end end
object C_ColorDepth: TComboBox object C_ColorDepth: TComboBox
Left = 374 Left = 380
Top = 63 Top = 259
Width = 102 Width = 102
Height = 32 Height = 32
Style = csDropDownList Style = csDropDownList
@ -478,14 +479,15 @@
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
Visible = False
Items.Strings = ( Items.Strings = (
#28145#33394 #28145#33394
#27973#33394) #27973#33394)
end end
object WorkShift: TComboBox object WorkShift: TComboBox
Left = 374 Left = 327
Top = 139 Top = 106
Width = 102 Width = 122
Height = 32 Height = 32
Style = csDropDownList Style = csDropDownList
DropDownCount = 20 DropDownCount = 20
@ -501,8 +503,8 @@
#22812#29677) #22812#29677)
end end
object SCPerson: TcxButtonEdit object SCPerson: TcxButtonEdit
Left = 71 Left = 98
Top = 63 Top = 243
ParentFont = False ParentFont = False
Properties.Buttons = < Properties.Buttons = <
item item
@ -521,8 +523,8 @@
Width = 102 Width = 102
end end
object JBSCPerson: TcxButtonEdit object JBSCPerson: TcxButtonEdit
Left = 71 Left = 98
Top = 105 Top = 278
ParentFont = False ParentFont = False
Properties.Buttons = < Properties.Buttons = <
item item
@ -541,8 +543,8 @@
Width = 102 Width = 102
end end
object OutPutQty1: TEdit object OutPutQty1: TEdit
Left = 241 Left = 252
Top = 62 Top = 243
Width = 72 Width = 72
Height = 29 Height = 29
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -557,8 +559,8 @@
OnMouseDown = OutPutQty1MouseDown OnMouseDown = OutPutQty1MouseDown
end end
object OutPutQty2: TEdit object OutPutQty2: TEdit
Left = 241 Left = 252
Top = 103 Top = 278
Width = 72 Width = 72
Height = 29 Height = 29
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -573,9 +575,9 @@
OnMouseDown = OutPutQty2MouseDown OnMouseDown = OutPutQty2MouseDown
end end
object InputWeight: TEdit object InputWeight: TEdit
Left = 70 Left = 98
Top = 239 Top = 108
Width = 103 Width = 114
Height = 29 Height = 29
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -584,6 +586,7 @@
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 11 TabOrder = 11
OnChange = InputWeightChange
OnClick = CIFBegClick OnClick = CIFBegClick
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
@ -620,8 +623,8 @@
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object JBSCPerson3: TcxButtonEdit object JBSCPerson3: TcxButtonEdit
Left = 71 Left = 98
Top = 147 Top = 313
ParentFont = False ParentFont = False
Properties.Buttons = < Properties.Buttons = <
item item
@ -640,8 +643,8 @@
Width = 102 Width = 102
end end
object JBSCPerson4: TcxButtonEdit object JBSCPerson4: TcxButtonEdit
Left = 71 Left = 98
Top = 190 Top = 348
ParentFont = False ParentFont = False
Properties.Buttons = < Properties.Buttons = <
item item
@ -660,8 +663,8 @@
Width = 102 Width = 102
end end
object OutPutQty3: TEdit object OutPutQty3: TEdit
Left = 241 Left = 254
Top = 146 Top = 313
Width = 72 Width = 72
Height = 29 Height = 29
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -676,8 +679,8 @@
OnMouseDown = OutPutQty3MouseDown OnMouseDown = OutPutQty3MouseDown
end end
object OutPutQty4: TEdit object OutPutQty4: TEdit
Left = 241 Left = 254
Top = 189 Top = 346
Width = 72 Width = 72
Height = 29 Height = 29
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -730,10 +733,10 @@
OnMouseDown = OutPutQty5MouseDown OnMouseDown = OutPutQty5MouseDown
end end
object Button7: TButton object Button7: TButton
Left = 335 Left = 251
Top = 291 Top = 182
Width = 136 Width = 157
Height = 76 Height = 55
Caption = #26242' '#23384 Caption = #26242' '#23384
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -836,9 +839,9 @@
OnClick = Button3Click OnClick = Button3Click
end end
object MF: TEdit object MF: TEdit
Left = 70 Left = 98
Top = 291 Top = 147
Width = 102 Width = 114
Height = 32 Height = 32
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -849,10 +852,11 @@
TabOrder = 26 TabOrder = 26
end end
object KZ: TEdit object KZ: TEdit
Left = 229 Left = 327
Top = 291 Top = 144
Width = 100 Width = 122
Height = 32 Height = 32
Enabled = False
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -21 Font.Height = -21
@ -860,10 +864,11 @@
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 27 TabOrder = 27
OnChange = KZChange
end end
object code_table_length: TEdit object code_table_length: TEdit
Left = 112 Left = 98
Top = 335 Top = 11
Width = 114 Width = 114
Height = 32 Height = 32
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1163,7 +1168,7 @@
end end
object code: TEdit object code: TEdit
Left = 86 Left = 86
Top = 12 Top = 14
Width = 242 Width = 242
Height = 68 Height = 68
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1172,7 +1177,6 @@
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
ReadOnly = True
TabOrder = 8 TabOrder = 8
OnClick = codeClick OnClick = codeClick
OnExit = codeExit OnExit = codeExit
@ -2343,7 +2347,7 @@
end end
object Button1: TButton object Button1: TButton
Left = 171 Left = 171
Top = 277 Top = 272
Width = 66 Width = 66
Height = 43 Height = 43
Caption = #30830#23450 Caption = #30830#23450
@ -2452,6 +2456,7 @@
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 7 TabOrder = 7
Text = '1'
OnClick = CIFBegClick OnClick = CIFBegClick
end end
object points: TEdit object points: TEdit
@ -2505,8 +2510,6 @@
Height = 445 Height = 445
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 0
ExplicitTop = 123
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
OnMouseDown = Tv3MouseDown OnMouseDown = Tv3MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -2626,6 +2629,14 @@
Options.Editing = False Options.Editing = False
Width = 65 Width = 65
end end
object Tv3c_code: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'c_code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = Tv3 GridView = Tv3
@ -2654,6 +2665,7 @@
Height = 169 Height = 169
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 3
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

47
E03梭织坯布检验/U_TatMachInsp.pas
View File

@ -335,6 +335,7 @@ type
code_table_length: TEdit; code_table_length: TEdit;
Label56: TLabel; Label56: TLabel;
Tv3code_table_length: TcxGridDBColumn; Tv3code_table_length: TcxGridDBColumn;
Tv3c_code: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -397,6 +398,8 @@ type
procedure codeClick(Sender: TObject); procedure codeClick(Sender: TObject);
procedure codeExit(Sender: TObject); procedure codeExit(Sender: TObject);
procedure weaver_nameClick(Sender: TObject); procedure weaver_nameClick(Sender: TObject);
procedure InputWeightChange(Sender: TObject);
procedure KZChange(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FCIID, FOperationStatus, FCIFName, FWorkshop: string; FCIID, FOperationStatus, FCIFName, FWorkshop: string;
@ -428,6 +431,7 @@ type
procedure CloseCom(DllName: string); //¹Ø±Õ´®¿Ú procedure CloseCom(DllName: string); //¹Ø±Õ´®¿Ú
procedure On1201(var Message: Tmessage); message 1201; //µç×Ó³Æ procedure On1201(var Message: Tmessage); message 1201; //µç×Ó³Æ
procedure On1301(var Message: Tmessage); message 1301; //Âë±í procedure On1301(var Message: Tmessage); message 1301; //Âë±í
procedure CalcInputLenByWeightKZ;
public public
fmanage: string; fmanage: string;
@ -446,6 +450,28 @@ uses
U_SCPersonColor, U_SCPersonColor5; U_SCPersonColor, U_SCPersonColor5;
{$R *.dfm} {$R *.dfm}
procedure TfrmTatMachInsp.CalcInputLenByWeightKZ;
var
W, KZValue: Double;
begin
if Trim(InputWeight.Text) = '' then
Exit;
if Trim(KZ.Text) = '' then
Exit;
if not TryStrToFloat(Trim(InputWeight.Text), W) then
Exit;
if not TryStrToFloat(Trim(KZ.Text), KZValue) then
Exit;
if KZValue = 0 then
begin
InputLen.Text := '';
Exit;
end;
InputLen.Text := FormatFloat('0.##', W / KZValue);
end;
procedure TfrmTatMachInsp.SetINIFile(); procedure TfrmTatMachInsp.SetINIFile();
begin begin
@ -812,6 +838,11 @@ begin
end; end;
procedure TfrmTatMachInsp.InputWeightChange(Sender: TObject);
begin
CalcInputLenByWeightKZ;
end;
procedure TfrmTatMachInsp.JBSCPerson3Click(Sender: TObject); procedure TfrmTatMachInsp.JBSCPerson3Click(Sender: TObject);
begin begin
inherited; inherited;
@ -942,6 +973,11 @@ begin
end; end;
end; end;
procedure TfrmTatMachInsp.KZChange(Sender: TObject);
begin
CalcInputLenByWeightKZ;
end;
procedure TfrmTatMachInsp.InitJTM(MCIID: string); procedure TfrmTatMachInsp.InitJTM(MCIID: string);
begin begin
with ADOTmp do with ADOTmp do
@ -1732,6 +1768,10 @@ begin
OutPutQty5.Text := ''; OutPutQty5.Text := '';
OutPutQty6.Text := ''; OutPutQty6.Text := '';
OutPutQty7.Text := ''; OutPutQty7.Text := '';
weaver_name.Text := '';
weaver_name.Hint := '';
points.Text := '';
end; end;
procedure TfrmTatMachInsp.PrtData(MCIID: string); procedure TfrmTatMachInsp.PrtData(MCIID: string);
@ -2004,6 +2044,9 @@ begin
if FindField('points') <> nil then if FindField('points') <> nil then
FieldByName('points').AsFloat := StrToFloatDef(Trim(Self.points.Text), 0); FieldByName('points').AsFloat := StrToFloatDef(Trim(Self.points.Text), 0);
if FindField('CIFNumber') <> nil then
FieldByName('CIFNumber').AsString := Trim(Self.CIFNumber.Text);
Post; Post;
end; end;
CIFBeg.Text := ''; CIFBeg.Text := '';
@ -2011,6 +2054,10 @@ begin
CIFQty.Text := ''; CIFQty.Text := '';
MovePanel1.Visible := False; MovePanel1.Visible := False;
cxPageControl1.ActivePageIndex := 0; cxPageControl1.ActivePageIndex := 0;
weaver_name.Text := '';
weaver_name.Hint := '';
points.Text := '';
end; end;
procedure TfrmTatMachInsp.edtScanKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatMachInsp.edtScanKeyPress(Sender: TObject; var Key: Char);

1
E04梭织坯布仓库/U_GetDllForm.pas
View File

@ -77,6 +77,7 @@ begin
pswd := 'right,.soft@2377'; pswd := 'right,.soft@2377';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DParameters1 := '¹ÜÀí'; DParameters1 := '¹ÜÀí';
Parameters1 := '管理';
end end
else else
begin begin

7
E04梭织坯布仓库/U_TatDRtInPut.dfm
View File

@ -328,6 +328,13 @@ object frmTatDRtInPut: TfrmTatDRtInPut
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object Tv1C_code: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'

2
E04梭织坯布仓库/U_TatDRtInPut.pas
View File

@ -55,6 +55,7 @@ type
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
ToolButton6: TToolButton; ToolButton6: TToolButton;
Tv1C_code: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -543,6 +544,7 @@ begin
Append; Append;
FieldByName('C_Name').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_Name').Value; FieldByName('C_Name').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_Name').Value;
FieldByName('C_code').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_code').Value;
FieldByName('Piece').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('js').Value; FieldByName('Piece').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('js').Value;
FieldByName('Qty').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('stkmeter').Value; FieldByName('Qty').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('stkmeter').Value;