diff --git a/E03梭织坯布检验/U_TatClothInspList.dfm b/E03梭织坯布检验/U_TatClothInspList.dfm index 0cbce4d..5d5f5fb 100644 --- a/E03梭织坯布检验/U_TatClothInspList.dfm +++ b/E03梭织坯布检验/U_TatClothInspList.dfm @@ -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 diff --git a/E03梭织坯布检验/U_TatClothInspList.pas b/E03梭织坯布检验/U_TatClothInspList.pas index dedeee2..6c48a89 100644 --- a/E03梭织坯布检验/U_TatClothInspList.pas +++ b/E03梭织坯布检验/U_TatClothInspList.pas @@ -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); diff --git a/E03梭织坯布检验/U_TatMachInsp.dfm b/E03梭织坯布检验/U_TatMachInsp.dfm index 6c55a87..8040f86 100644 --- a/E03梭织坯布检验/U_TatMachInsp.dfm +++ b/E03梭织坯布检验/U_TatMachInsp.dfm @@ -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 = <> diff --git a/E03梭织坯布检验/U_TatMachInsp.pas b/E03梭织坯布检验/U_TatMachInsp.pas index d889c4f..6babf68 100644 --- a/E03梭织坯布检验/U_TatMachInsp.pas +++ b/E03梭织坯布检验/U_TatMachInsp.pas @@ -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); diff --git a/E04梭织坯布仓库/U_GetDllForm.pas b/E04梭织坯布仓库/U_GetDllForm.pas index cd6362b..b186b92 100644 --- a/E04梭织坯布仓库/U_GetDllForm.pas +++ b/E04梭织坯布仓库/U_GetDllForm.pas @@ -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 diff --git a/E04梭织坯布仓库/U_TatDRtInPut.dfm b/E04梭织坯布仓库/U_TatDRtInPut.dfm index bd90486..0030f80 100644 --- a/E04梭织坯布仓库/U_TatDRtInPut.dfm +++ b/E04梭织坯布仓库/U_TatDRtInPut.dfm @@ -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' diff --git a/E04梭织坯布仓库/U_TatDRtInPut.pas b/E04梭织坯布仓库/U_TatDRtInPut.pas index 9de1307..9f7d2e0 100644 --- a/E04梭织坯布仓库/U_TatDRtInPut.pas +++ b/E04梭织坯布仓库/U_TatDRtInPut.pas @@ -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;