检验 仓库
This commit is contained in:
parent
21df23ddfa
commit
39a97f2250
|
|
@ -7,7 +7,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitLeft = -276
|
||||
ExplicitWidth = 1483
|
||||
ExplicitHeight = 621
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -21,7 +20,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
AutoSize = True
|
||||
BorderStyle = bsSingle
|
||||
TabOrder = 3
|
||||
ExplicitWidth = 1472
|
||||
DesignSize = (
|
||||
1463
|
||||
24)
|
||||
|
|
@ -129,7 +127,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 2
|
||||
ExplicitWidth = 1472
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseUp = Tv1MouseUp
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
|
|
@ -268,7 +265,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #30133#28857#25968#37327
|
||||
DataBinding.FieldName = 'CDQty'
|
||||
DataBinding.FieldName = 'SumCIFNumber'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -282,6 +279,14 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1SumPoints: TcxGridDBColumn
|
||||
Caption = #25187#20998
|
||||
DataBinding.FieldName = 'SumPoints'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 65
|
||||
end
|
||||
object v1Column17: TcxGridDBColumn
|
||||
Caption = #29366#24577
|
||||
DataBinding.FieldName = 'CIIOFlag'
|
||||
|
|
@ -510,7 +515,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1472
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -612,7 +616,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
Color = 16242829
|
||||
ParentBackground = False
|
||||
TabOrder = 4
|
||||
ExplicitWidth = 1472
|
||||
object Label3: TLabel
|
||||
Left = 195
|
||||
Top = 14
|
||||
|
|
|
|||
|
|
@ -14,7 +14,7 @@ uses
|
|||
RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker,
|
||||
Vcl.Buttons, System.StrUtils, dxScrollbarAnnotations;
|
||||
Vcl.Buttons, System.StrUtils, dxScrollbarAnnotations, dxSkinWXI;
|
||||
|
||||
type
|
||||
TfrmTatClothInspList = class(TfrmBaseList)
|
||||
|
|
@ -117,6 +117,7 @@ type
|
|||
SpeedButton111: TSpeedButton;
|
||||
SpeedButton112: TSpeedButton;
|
||||
SpeedButton110: TSpeedButton;
|
||||
Tv1SumPoints: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -7,7 +7,6 @@
|
|||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitTop = -129
|
||||
ExplicitWidth = 1556
|
||||
ExplicitHeight = 807
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -38,9 +37,10 @@
|
|||
ParentBackground = False
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 2
|
||||
object lblLenUnit: TLabel
|
||||
Left = 190
|
||||
Top = 9
|
||||
Left = 218
|
||||
Top = 65
|
||||
Width = 25
|
||||
Height = 34
|
||||
Caption = 'M'
|
||||
|
|
@ -53,8 +53,8 @@
|
|||
OnClick = lblLenUnitClick
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 2
|
||||
Top = 9
|
||||
Left = 30
|
||||
Top = 68
|
||||
Width = 62
|
||||
Height = 34
|
||||
Caption = #38271#24230
|
||||
|
|
@ -66,8 +66,8 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object Label22: TLabel
|
||||
Left = 324
|
||||
Top = 107
|
||||
Left = 277
|
||||
Top = 68
|
||||
Width = 44
|
||||
Height = 21
|
||||
Caption = #31561#32423
|
||||
|
|
@ -79,8 +79,8 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 324
|
||||
Top = 69
|
||||
Left = 330
|
||||
Top = 259
|
||||
Width = 44
|
||||
Height = 21
|
||||
Caption = #33394#21035
|
||||
|
|
@ -90,10 +90,11 @@
|
|||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 14
|
||||
Top = 108
|
||||
Left = 40
|
||||
Top = 281
|
||||
Width = 52
|
||||
Height = 23
|
||||
Caption = #25377#36710'2'
|
||||
|
|
@ -105,8 +106,8 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object Label34: TLabel
|
||||
Left = 14
|
||||
Top = 66
|
||||
Left = 40
|
||||
Top = 243
|
||||
Width = 52
|
||||
Height = 23
|
||||
Caption = #25377#36710'1'
|
||||
|
|
@ -118,8 +119,8 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object Label49: TLabel
|
||||
Left = 324
|
||||
Top = 144
|
||||
Left = 277
|
||||
Top = 108
|
||||
Width = 44
|
||||
Height = 21
|
||||
Caption = #29677#27425
|
||||
|
|
@ -131,8 +132,8 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object Label36: TLabel
|
||||
Left = 193
|
||||
Top = 65
|
||||
Left = 204
|
||||
Top = 278
|
||||
Width = 42
|
||||
Height = 23
|
||||
Caption = #31859#25968
|
||||
|
|
@ -144,8 +145,8 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object Label38: TLabel
|
||||
Left = 193
|
||||
Top = 107
|
||||
Left = 204
|
||||
Top = 243
|
||||
Width = 42
|
||||
Height = 23
|
||||
Caption = #31859#25968
|
||||
|
|
@ -157,8 +158,8 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 190
|
||||
Top = 243
|
||||
Left = 218
|
||||
Top = 108
|
||||
Width = 31
|
||||
Height = 24
|
||||
Caption = 'KG'
|
||||
|
|
@ -170,8 +171,8 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 22
|
||||
Top = 240
|
||||
Left = 50
|
||||
Top = 108
|
||||
Width = 42
|
||||
Height = 24
|
||||
Caption = #37325#37327
|
||||
|
|
@ -211,8 +212,8 @@
|
|||
Visible = False
|
||||
end
|
||||
object Label37: TLabel
|
||||
Left = 14
|
||||
Top = 193
|
||||
Left = 40
|
||||
Top = 350
|
||||
Width = 52
|
||||
Height = 23
|
||||
Caption = #25377#36710'4'
|
||||
|
|
@ -224,8 +225,8 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object Label39: TLabel
|
||||
Left = 14
|
||||
Top = 150
|
||||
Left = 40
|
||||
Top = 319
|
||||
Width = 52
|
||||
Height = 23
|
||||
Caption = #25377#36710'3'
|
||||
|
|
@ -237,8 +238,8 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object Label40: TLabel
|
||||
Left = 193
|
||||
Top = 149
|
||||
Left = 206
|
||||
Top = 350
|
||||
Width = 42
|
||||
Height = 23
|
||||
Caption = #31859#25968
|
||||
|
|
@ -250,8 +251,8 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object Label41: TLabel
|
||||
Left = 193
|
||||
Top = 192
|
||||
Left = 206
|
||||
Top = 319
|
||||
Width = 42
|
||||
Height = 23
|
||||
Caption = #31859#25968
|
||||
|
|
@ -347,8 +348,8 @@
|
|||
Visible = False
|
||||
end
|
||||
object Label54: TLabel
|
||||
Left = 22
|
||||
Top = 294
|
||||
Left = 50
|
||||
Top = 149
|
||||
Width = 42
|
||||
Height = 24
|
||||
Caption = #38376#24133
|
||||
|
|
@ -360,8 +361,8 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object Label55: TLabel
|
||||
Left = 181
|
||||
Top = 294
|
||||
Left = 279
|
||||
Top = 147
|
||||
Width = 42
|
||||
Height = 24
|
||||
Caption = #20811#37325
|
||||
|
|
@ -373,8 +374,8 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object Label56: TLabel
|
||||
Left = 22
|
||||
Top = 338
|
||||
Left = 8
|
||||
Top = 18
|
||||
Width = 84
|
||||
Height = 24
|
||||
Caption = #30721#34920#38271#24230
|
||||
|
|
@ -386,9 +387,9 @@
|
|||
ParentFont = False
|
||||
end
|
||||
object InputLen: TEdit
|
||||
Left = 70
|
||||
Top = 6
|
||||
Width = 102
|
||||
Left = 98
|
||||
Top = 61
|
||||
Width = 114
|
||||
Height = 41
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
|
@ -401,10 +402,10 @@
|
|||
OnKeyPress = MJstr3KeyPress
|
||||
end
|
||||
object BTPrint: TButton
|
||||
Left = 333
|
||||
Top = 178
|
||||
Width = 136
|
||||
Height = 90
|
||||
Left = 88
|
||||
Top = 182
|
||||
Width = 157
|
||||
Height = 55
|
||||
Caption = #30830' '#35748
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
|
@ -446,9 +447,9 @@
|
|||
OnClick = Button8Click
|
||||
end
|
||||
object Grade: TComboBox
|
||||
Left = 374
|
||||
Top = 101
|
||||
Width = 102
|
||||
Left = 327
|
||||
Top = 65
|
||||
Width = 122
|
||||
Height = 32
|
||||
Style = csDropDownList
|
||||
DropDownCount = 20
|
||||
|
|
@ -465,8 +466,8 @@
|
|||
'C'#21697)
|
||||
end
|
||||
object C_ColorDepth: TComboBox
|
||||
Left = 374
|
||||
Top = 63
|
||||
Left = 380
|
||||
Top = 259
|
||||
Width = 102
|
||||
Height = 32
|
||||
Style = csDropDownList
|
||||
|
|
@ -478,14 +479,15 @@
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
Visible = False
|
||||
Items.Strings = (
|
||||
#28145#33394
|
||||
#27973#33394)
|
||||
end
|
||||
object WorkShift: TComboBox
|
||||
Left = 374
|
||||
Top = 139
|
||||
Width = 102
|
||||
Left = 327
|
||||
Top = 106
|
||||
Width = 122
|
||||
Height = 32
|
||||
Style = csDropDownList
|
||||
DropDownCount = 20
|
||||
|
|
@ -501,8 +503,8 @@
|
|||
#22812#29677)
|
||||
end
|
||||
object SCPerson: TcxButtonEdit
|
||||
Left = 71
|
||||
Top = 63
|
||||
Left = 98
|
||||
Top = 243
|
||||
ParentFont = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -521,8 +523,8 @@
|
|||
Width = 102
|
||||
end
|
||||
object JBSCPerson: TcxButtonEdit
|
||||
Left = 71
|
||||
Top = 105
|
||||
Left = 98
|
||||
Top = 278
|
||||
ParentFont = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -541,8 +543,8 @@
|
|||
Width = 102
|
||||
end
|
||||
object OutPutQty1: TEdit
|
||||
Left = 241
|
||||
Top = 62
|
||||
Left = 252
|
||||
Top = 243
|
||||
Width = 72
|
||||
Height = 29
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -557,8 +559,8 @@
|
|||
OnMouseDown = OutPutQty1MouseDown
|
||||
end
|
||||
object OutPutQty2: TEdit
|
||||
Left = 241
|
||||
Top = 103
|
||||
Left = 252
|
||||
Top = 278
|
||||
Width = 72
|
||||
Height = 29
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -573,9 +575,9 @@
|
|||
OnMouseDown = OutPutQty2MouseDown
|
||||
end
|
||||
object InputWeight: TEdit
|
||||
Left = 70
|
||||
Top = 239
|
||||
Width = 103
|
||||
Left = 98
|
||||
Top = 108
|
||||
Width = 114
|
||||
Height = 29
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
|
@ -584,6 +586,7 @@
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 11
|
||||
OnChange = InputWeightChange
|
||||
OnClick = CIFBegClick
|
||||
OnKeyPress = MJstr3KeyPress
|
||||
end
|
||||
|
|
@ -620,8 +623,8 @@
|
|||
OnKeyPress = MJstr3KeyPress
|
||||
end
|
||||
object JBSCPerson3: TcxButtonEdit
|
||||
Left = 71
|
||||
Top = 147
|
||||
Left = 98
|
||||
Top = 313
|
||||
ParentFont = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -640,8 +643,8 @@
|
|||
Width = 102
|
||||
end
|
||||
object JBSCPerson4: TcxButtonEdit
|
||||
Left = 71
|
||||
Top = 190
|
||||
Left = 98
|
||||
Top = 348
|
||||
ParentFont = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -660,8 +663,8 @@
|
|||
Width = 102
|
||||
end
|
||||
object OutPutQty3: TEdit
|
||||
Left = 241
|
||||
Top = 146
|
||||
Left = 254
|
||||
Top = 313
|
||||
Width = 72
|
||||
Height = 29
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -676,8 +679,8 @@
|
|||
OnMouseDown = OutPutQty3MouseDown
|
||||
end
|
||||
object OutPutQty4: TEdit
|
||||
Left = 241
|
||||
Top = 189
|
||||
Left = 254
|
||||
Top = 346
|
||||
Width = 72
|
||||
Height = 29
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -730,10 +733,10 @@
|
|||
OnMouseDown = OutPutQty5MouseDown
|
||||
end
|
||||
object Button7: TButton
|
||||
Left = 335
|
||||
Top = 291
|
||||
Width = 136
|
||||
Height = 76
|
||||
Left = 251
|
||||
Top = 182
|
||||
Width = 157
|
||||
Height = 55
|
||||
Caption = #26242' '#23384
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
|
@ -836,9 +839,9 @@
|
|||
OnClick = Button3Click
|
||||
end
|
||||
object MF: TEdit
|
||||
Left = 70
|
||||
Top = 291
|
||||
Width = 102
|
||||
Left = 98
|
||||
Top = 147
|
||||
Width = 114
|
||||
Height = 32
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clBlack
|
||||
|
|
@ -849,10 +852,11 @@
|
|||
TabOrder = 26
|
||||
end
|
||||
object KZ: TEdit
|
||||
Left = 229
|
||||
Top = 291
|
||||
Width = 100
|
||||
Left = 327
|
||||
Top = 144
|
||||
Width = 122
|
||||
Height = 32
|
||||
Enabled = False
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -21
|
||||
|
|
@ -860,10 +864,11 @@
|
|||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 27
|
||||
OnChange = KZChange
|
||||
end
|
||||
object code_table_length: TEdit
|
||||
Left = 112
|
||||
Top = 335
|
||||
Left = 98
|
||||
Top = 11
|
||||
Width = 114
|
||||
Height = 32
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -1163,7 +1168,7 @@
|
|||
end
|
||||
object code: TEdit
|
||||
Left = 86
|
||||
Top = 12
|
||||
Top = 14
|
||||
Width = 242
|
||||
Height = 68
|
||||
Font.Charset = ANSI_CHARSET
|
||||
|
|
@ -1172,7 +1177,6 @@
|
|||
Font.Name = 'Arial'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
ReadOnly = True
|
||||
TabOrder = 8
|
||||
OnClick = codeClick
|
||||
OnExit = codeExit
|
||||
|
|
@ -2343,7 +2347,7 @@
|
|||
end
|
||||
object Button1: TButton
|
||||
Left = 171
|
||||
Top = 277
|
||||
Top = 272
|
||||
Width = 66
|
||||
Height = 43
|
||||
Caption = #30830#23450
|
||||
|
|
@ -2452,6 +2456,7 @@
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 7
|
||||
Text = '1'
|
||||
OnClick = CIFBegClick
|
||||
end
|
||||
object points: TEdit
|
||||
|
|
@ -2505,8 +2510,6 @@
|
|||
Height = 445
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 123
|
||||
object Tv3: TcxGridDBTableView
|
||||
OnMouseDown = Tv3MouseDown
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
|
|
@ -2626,6 +2629,14 @@
|
|||
Options.Editing = False
|
||||
Width = 65
|
||||
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
|
||||
object cxGridLevel2: TcxGridLevel
|
||||
GridView = Tv3
|
||||
|
|
@ -2654,6 +2665,7 @@
|
|||
Height = 169
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 3
|
||||
object Tv2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
|
|||
|
|
@ -335,6 +335,7 @@ type
|
|||
code_table_length: TEdit;
|
||||
Label56: TLabel;
|
||||
Tv3code_table_length: TcxGridDBColumn;
|
||||
Tv3c_code: TcxGridDBColumn;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
|
@ -397,6 +398,8 @@ type
|
|||
procedure codeClick(Sender: TObject);
|
||||
procedure codeExit(Sender: TObject);
|
||||
procedure weaver_nameClick(Sender: TObject);
|
||||
procedure InputWeightChange(Sender: TObject);
|
||||
procedure KZChange(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
FCIID, FOperationStatus, FCIFName, FWorkshop: string;
|
||||
|
|
@ -428,6 +431,7 @@ type
|
|||
procedure CloseCom(DllName: string); //¹Ø±Õ´®¿Ú
|
||||
procedure On1201(var Message: Tmessage); message 1201; //µç×Ó³Æ
|
||||
procedure On1301(var Message: Tmessage); message 1301; //Âë±í
|
||||
procedure CalcInputLenByWeightKZ;
|
||||
|
||||
public
|
||||
fmanage: string;
|
||||
|
|
@ -446,6 +450,28 @@ uses
|
|||
U_SCPersonColor, U_SCPersonColor5;
|
||||
|
||||
{$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();
|
||||
begin
|
||||
|
|
@ -812,6 +838,11 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachInsp.InputWeightChange(Sender: TObject);
|
||||
begin
|
||||
CalcInputLenByWeightKZ;
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachInsp.JBSCPerson3Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
|
@ -942,6 +973,11 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachInsp.KZChange(Sender: TObject);
|
||||
begin
|
||||
CalcInputLenByWeightKZ;
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachInsp.InitJTM(MCIID: string);
|
||||
begin
|
||||
with ADOTmp do
|
||||
|
|
@ -1732,6 +1768,10 @@ begin
|
|||
OutPutQty5.Text := '';
|
||||
OutPutQty6.Text := '';
|
||||
OutPutQty7.Text := '';
|
||||
|
||||
weaver_name.Text := '';
|
||||
weaver_name.Hint := '';
|
||||
points.Text := '';
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachInsp.PrtData(MCIID: string);
|
||||
|
|
@ -2004,6 +2044,9 @@ begin
|
|||
if FindField('points') <> nil then
|
||||
FieldByName('points').AsFloat := StrToFloatDef(Trim(Self.points.Text), 0);
|
||||
|
||||
if FindField('CIFNumber') <> nil then
|
||||
FieldByName('CIFNumber').AsString := Trim(Self.CIFNumber.Text);
|
||||
|
||||
Post;
|
||||
end;
|
||||
CIFBeg.Text := '';
|
||||
|
|
@ -2011,6 +2054,10 @@ begin
|
|||
CIFQty.Text := '';
|
||||
MovePanel1.Visible := False;
|
||||
cxPageControl1.ActivePageIndex := 0;
|
||||
|
||||
weaver_name.Text := '';
|
||||
weaver_name.Hint := '';
|
||||
points.Text := '';
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachInsp.edtScanKeyPress(Sender: TObject; var Key: Char);
|
||||
|
|
|
|||
|
|
@ -77,6 +77,7 @@ begin
|
|||
pswd := 'right,.soft@2377';
|
||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||
DParameters1 := '¹ÜÀí';
|
||||
Parameters1 := '管理';
|
||||
end
|
||||
else
|
||||
begin
|
||||
|
|
|
|||
|
|
@ -328,6 +328,13 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
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
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
|
|
|
|||
|
|
@ -55,6 +55,7 @@ type
|
|||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
ToolButton6: TToolButton;
|
||||
Tv1C_code: TcxGridDBColumn;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
|
|
@ -543,6 +544,7 @@ begin
|
|||
Append;
|
||||
|
||||
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('Qty').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('stkmeter').Value;
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user