From a9c0a76acf4f69541c9e5fdac627ef274f1cd41b Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Wed, 23 Apr 2025 15:09:48 +0800 Subject: [PATCH] 11 --- A00通用窗体/U_BankSel.dfm | 113 +++++--- A00通用窗体/U_BankSel.pas | 12 +- A00通用窗体/U_CompanySel.dfm | 16 +- A00通用窗体/U_CompanySel.pas | 1 + A00通用窗体/U_ProductInfoSel.dfm | 10 +- A00通用窗体/U_ProductInfoSel.pas | 6 +- A00通用窗体/U_YarnInfoSel.dfm | 57 ++-- A00通用窗体/U_YarnInfoSel.pas | 2 + A01基础公司管理/Company.dpr | 6 +- A01基础公司管理/Company.dproj | 16 +- A01基础公司管理/Company.dproj.local | 58 +++-- A01基础公司管理/U_BankInput.dfm | 241 +++++++++++++++++ A01基础公司管理/U_BankInput.pas | 198 ++++++++++++++ A01基础公司管理/U_BankList.dfm | 138 ++++++++-- A01基础公司管理/U_BankList.pas | 75 +++++- A01基础公司管理/U_GetDllForm.pas | 7 +- B01基础合同管理/Contract.dpr | 3 +- B01基础合同管理/Contract.dproj | 4 + B01基础合同管理/Contract.dproj.local | 121 ++++----- B01基础合同管理/Contract.identcache | Bin 2430 -> 2512 bytes B01基础合同管理/U_GetDllForm.pas | 6 +- B01基础合同管理/U_SalesConInPut.dfm | 235 ++++++++++++----- B01基础合同管理/U_SalesConInPut.pas | 43 ++- B01基础合同管理/U_SalesContractList.dfm | 59 +++++ B01基础合同管理/U_SalesContractList.pas | 7 + B02基础纱线仓库/U_GetDllForm.pas | 6 +- B02基础纱线仓库/U_YarnInfoInPut.dfm | 128 ++++++--- B02基础纱线仓库/U_YarnInfoInPut.pas | 43 ++- B02基础纱线仓库/U_YarnInfoList.dfm | 33 ++- B02基础纱线仓库/U_YarnInfoList.pas | 2 + B02基础纱线仓库/YarnStk.dpr | 5 +- B02基础纱线仓库/YarnStk.dproj | 8 +- B02基础纱线仓库/YarnStk.dproj.local | 126 ++++----- B03基础物料仓库/ProductStk.identcache | Bin 4471 -> 4471 bytes B03基础物料仓库/U_BSPrtMachInList.dfm | 13 + B04采购计划管理/ProjectGroup1.groupproj.local | 6 +- B04采购计划管理/PurchasePlan.dpr | 3 +- B04采购计划管理/PurchasePlan.dproj | 4 + B04采购计划管理/PurchasePlan.dproj.local | 49 ++-- B04采购计划管理/U_GetDllForm.pas | 6 +- B04采购计划管理/U_YarnPurchasePlanList.dfm | 244 ++++++------------ B04采购计划管理/U_YarnPurchasePlanList.pas | 75 ++---- B04采购计划管理/U_YarnPurchasePlanPut.dfm | 161 +++--------- B04采购计划管理/U_YarnPurchasePlanPut.pas | 211 ++++++--------- B04采购计划管理/testDll.identcache | Bin 180 -> 178 bytes E02梭织经轴仓库/U_GetDllForm.pas | 6 +- E02梭织经轴仓库/U_WBSpecInPut.dfm | 19 +- E02梭织经轴仓库/U_WBSpecInPut.pas | 28 ++ E02梭织经轴仓库/U_WBSpecList.dfm | 22 +- E02梭织经轴仓库/U_WBSpecList.pas | 1 + 50 files changed, 1739 insertions(+), 894 deletions(-) create mode 100644 A01基础公司管理/U_BankInput.dfm create mode 100644 A01基础公司管理/U_BankInput.pas diff --git a/A00通用窗体/U_BankSel.dfm b/A00通用窗体/U_BankSel.dfm index 5fd6b5f..3e8646c 100644 --- a/A00通用窗体/U_BankSel.dfm +++ b/A00通用窗体/U_BankSel.dfm @@ -3,14 +3,14 @@ inherited frmBankSel: TfrmBankSel Top = 106 Caption = #38134#34892#36134#25143#36873#25321 ClientHeight = 558 - ClientWidth = 950 + ClientWidth = 1384 Color = clWhite Font.Charset = GB2312_CHARSET Font.Height = -12 Font.Name = #23435#20307 Position = poScreenCenter OnClose = FormClose - ExplicitWidth = 966 + ExplicitWidth = 1400 ExplicitHeight = 597 PixelsPerInch = 96 TextHeight = 12 @@ -18,7 +18,7 @@ inherited frmBankSel: TfrmBankSel Tag = 1 Left = 0 Top = 0 - Width = 950 + Width = 1384 Height = 38 AutoSize = True ButtonHeight = 38 @@ -36,6 +36,7 @@ inherited frmBankSel: TfrmBankSel ParentFont = False ShowCaptions = True TabOrder = 0 + ExplicitWidth = 950 object ToolButton1: TToolButton Left = 0 Top = 0 @@ -64,12 +65,13 @@ inherited frmBankSel: TfrmBankSel object Panel1: TPanel [1] Left = 0 Top = 38 - Width = 950 + Width = 1384 Height = 44 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 + ExplicitWidth = 950 object Label1: TLabel Left = 18 Top = 15 @@ -87,18 +89,22 @@ inherited frmBankSel: TfrmBankSel OnChange = BankNameChange end end - object cxGrid1: TcxGrid [2] + object cxGrid2: TcxGrid [2] Left = 0 Top = 82 - Width = 950 + Width = 1384 Height = 476 Align = alClient TabOrder = 2 + ExplicitLeft = -545 + ExplicitTop = 77 + ExplicitWidth = 1495 + ExplicitHeight = 481 object Tv1: TcxGridDBTableView - OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -127,60 +133,108 @@ inherited frmBankSel: TfrmBankSel OptionsData.DeletingConfirmation = False OptionsView.Footer = True OptionsView.GroupByBox = False - Styles.Header = DataLink_Financial.Default object v2Column1: TcxGridDBColumn Caption = #24207#21495 DataBinding.FieldName = 'SerialNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False + Options.Focusing = False Width = 50 end + object Tv1Column7: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'GSTT' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end + object Tv1Column8: TcxGridDBColumn + Caption = #20844#21496#22320#22336 + DataBinding.FieldName = 'GSDZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end object Tv1Column3: TcxGridDBColumn Caption = #21517#31216 DataBinding.FieldName = 'BankName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False + Options.Focusing = False Width = 107 end - object Tv1Column4: TcxGridDBColumn - Caption = #21345#21495 - DataBinding.FieldName = 'BankCardNo' - PropertiesClassName = 'TcxTextEditProperties' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 150 - end - object Tv1Column1: TcxGridDBColumn - Caption = #24065#31181 - DataBinding.FieldName = 'Currency' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.DropDownListStyle = lsFixedList - Properties.Items.Strings = ( - #165 - '$' - #8364) - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 85 - end object Tv1Column5: TcxGridDBColumn Caption = #24320#25143#34892 DataBinding.FieldName = 'BankDeposit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False + Options.Focusing = False Width = 112 end + object Tv1Column4: TcxGridDBColumn + Caption = #21345#21495 + DataBinding.FieldName = 'BankCardNo' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 150 + end + object Tv1Column9: TcxGridDBColumn + Caption = #38134#34892#22320#22336 + DataBinding.FieldName = 'YHDZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end + object Tv1Column2: TcxGridDBColumn + Caption = #38134#34892#20195#30721 + DataBinding.FieldName = 'YHDM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end object Tv1Column6: TcxGridDBColumn Caption = #34892#21495 DataBinding.FieldName = 'BankNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False + Options.Focusing = False Width = 133 end + object Tv1Column1: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'Currency' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'CNY' + 'USD' + 'EUR' + 'VND') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 85 + end end object cxGridLevel1: TcxGridLevel GridView = Tv1 @@ -771,6 +825,7 @@ inherited frmBankSel: TfrmBankSel Top = 168 end object GPM_1: TcxGridPopupMenu + Grid = cxGrid2 PopupMenus = <> Left = 416 Top = 272 diff --git a/A00通用窗体/U_BankSel.pas b/A00通用窗体/U_BankSel.pas index e2c9b30..30277e3 100644 --- a/A00通用窗体/U_BankSel.pas +++ b/A00通用窗体/U_BankSel.pas @@ -11,7 +11,7 @@ uses cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, - cxDropDownEdit; + cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations; type TfrmBankSel = class(TfrmBaseHelp) @@ -45,14 +45,18 @@ type handBlack: TcxStyle; cxBlue: TcxStyle; SHuangSeCu: TcxStyle; - cxGrid1: TcxGrid; + cxGrid2: TcxGrid; Tv1: TcxGridDBTableView; v2Column1: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; - Tv1Column4: TcxGridDBColumn; - Tv1Column1: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); diff --git a/A00通用窗体/U_CompanySel.dfm b/A00通用窗体/U_CompanySel.dfm index 8d626ec..4b5c4f6 100644 --- a/A00通用窗体/U_CompanySel.dfm +++ b/A00通用窗体/U_CompanySel.dfm @@ -57,6 +57,14 @@ inherited frmCompanySel: TfrmCompanySel HeaderAlignmentHorz = taCenter Width = 159 end + object TV1Column4: TcxGridDBColumn + Caption = #22320#22336 + DataBinding.FieldName = 'CoAddress' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 150 + end end object cxGrid1Level1: TcxGridLevel GridView = TV1 @@ -70,7 +78,7 @@ inherited frmCompanySel: TfrmCompanySel Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 95 + ButtonWidth = 115 Caption = 'ToolBar1' Images = cxImageList_bar List = True @@ -85,14 +93,14 @@ inherited frmCompanySel: TfrmCompanySel OnClick = ToolButton1Click end object ToolButton2: TToolButton - Left = 63 + Left = 71 Top = 0 AutoSize = True Caption = #26032#22686#20379#24212#21830 ImageIndex = 2 end object TBSave: TToolButton - Left = 162 + Left = 190 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -100,7 +108,7 @@ inherited frmCompanySel: TfrmCompanySel OnClick = TBSaveClick end object TBClose: TToolButton - Left = 249 + Left = 293 Top = 0 AutoSize = True Caption = #20851#38381 diff --git a/A00通用窗体/U_CompanySel.pas b/A00通用窗体/U_CompanySel.pas index 3cb2222..71927e9 100644 --- a/A00通用窗体/U_CompanySel.pas +++ b/A00通用窗体/U_CompanySel.pas @@ -53,6 +53,7 @@ type CoName: TcxTextEdit; cxImageList_bar: TcxImageList; ToolButton2: TToolButton; + TV1Column4: TcxGridDBColumn; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); diff --git a/A00通用窗体/U_ProductInfoSel.dfm b/A00通用窗体/U_ProductInfoSel.dfm index bb8f53c..f6a541e 100644 --- a/A00通用窗体/U_ProductInfoSel.dfm +++ b/A00通用窗体/U_ProductInfoSel.dfm @@ -135,8 +135,16 @@ inherited frmProductInfoSel: TfrmProductInfoSel end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False - OptionsSelection.CellSelect = False + OptionsSelection.CheckBoxPosition = cbpIndicator OptionsView.GroupByBox = False + object Tv1Column3: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 60 + end object Tv1Column2: TcxGridDBColumn Caption = #21697#29260 DataBinding.FieldName = 'Brand' diff --git a/A00通用窗体/U_ProductInfoSel.pas b/A00通用窗体/U_ProductInfoSel.pas index d690b02..11741b8 100644 --- a/A00通用窗体/U_ProductInfoSel.pas +++ b/A00通用窗体/U_ProductInfoSel.pas @@ -11,7 +11,8 @@ uses cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, - cxDropDownEdit, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters; + cxDropDownEdit, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, + cxCheckBox; type TfrmProductInfoSel = class(TfrmBaseHelp) @@ -55,6 +56,7 @@ type v1Column9: TcxGridDBColumn; v1Column12: TcxGridDBColumn; cxGrid2Level1: TcxGridLevel; + Tv1Column3: TcxGridDBColumn; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); @@ -128,7 +130,7 @@ begin sql.Clear; sql.Add(' select A.* '); sql.Add(' from BS_Product_Info A'); - sql.Add(' where isnull(STKNAME,'''')=''' + Trim(FSTKName) + ''''); +// sql.Add(' where isnull(STKNAME,'''')=''' + Trim(FSTKName) + ''''); Open; end; diff --git a/A00通用窗体/U_YarnInfoSel.dfm b/A00通用窗体/U_YarnInfoSel.dfm index a08fbe9..29f38fc 100644 --- a/A00通用窗体/U_YarnInfoSel.dfm +++ b/A00通用窗体/U_YarnInfoSel.dfm @@ -3,14 +3,14 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Top = 106 Caption = #32433#32447#21517#31216#36873#25321 ClientHeight = 558 - ClientWidth = 1353 + ClientWidth = 1584 Color = clWhite Font.Charset = GB2312_CHARSET Font.Height = -16 Font.Name = #24494#36719#38597#40657 Position = poScreenCenter OnClose = FormClose - ExplicitWidth = 1369 + ExplicitWidth = 1600 ExplicitHeight = 597 PixelsPerInch = 96 TextHeight = 21 @@ -18,7 +18,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Tag = 1 Left = 0 Top = 0 - Width = 1353 + Width = 1584 Height = 30 AutoSize = True ButtonHeight = 30 @@ -29,7 +29,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel List = True ShowCaptions = True TabOrder = 0 - ExplicitWidth = 1151 object ToolButton1: TToolButton Left = 0 Top = 0 @@ -74,13 +73,12 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel object Panel1: TPanel [1] Left = 0 Top = 30 - Width = 1353 + Width = 1584 Height = 44 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 - ExplicitWidth = 1151 object Label1: TLabel Left = 216 Top = 10 @@ -115,12 +113,11 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel object cxGrid1: TcxGrid [2] Left = 0 Top = 74 - Width = 1353 + Width = 1584 Height = 484 Align = alClient PopupMenu = PM_1 TabOrder = 2 - ExplicitTop = 80 object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> @@ -163,14 +160,14 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Options.Editing = False Width = 127 end - object v1Column2: TcxGridDBColumn + object v1SPName: TcxGridDBColumn Tag = 2 - Caption = #21697#29260 - DataBinding.FieldName = 'Brand' + Caption = #21697#21517 + DataBinding.FieldName = 'Y_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 100 + Width = 101 end object v1Column18: TcxGridDBColumn Caption = #37319#36141#21152#24037#21512#21516#21495 @@ -206,15 +203,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel VisibleForCustomization = False Width = 103 end - object v1SPName: TcxGridDBColumn - Tag = 2 - Caption = #21697#21517 - DataBinding.FieldName = 'Y_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 101 - end object v1SPSpec: TcxGridDBColumn Tag = 2 Caption = #35268#26684 @@ -266,7 +254,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel end object v1Column3: TcxGridDBColumn Tag = 2 - Caption = #29702#35770'D'#25968 + Caption = #20998#29305'(Dtex)' DataBinding.FieldName = 'Denier' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter @@ -297,6 +285,15 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Options.Editing = False Width = 80 end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end object v1Column12: TcxGridDBColumn Tag = 2 Caption = #22791#27880 @@ -322,6 +319,22 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Options.Editing = False Width = 100 end + object Tv1Column9: TcxGridDBColumn + Caption = #21378#23478 + DataBinding.FieldName = 'CJ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column10: TcxGridDBColumn + Caption = #29702#35770#25439#32791 + DataBinding.FieldName = 'LLSH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/A00通用窗体/U_YarnInfoSel.pas b/A00通用窗体/U_YarnInfoSel.pas index 4775b9d..c8ae8eb 100644 --- a/A00通用窗体/U_YarnInfoSel.pas +++ b/A00通用窗体/U_YarnInfoSel.pas @@ -75,6 +75,8 @@ type ToolButton3: TToolButton; Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); diff --git a/A01基础公司管理/Company.dpr b/A01基础公司管理/Company.dpr index 53fe82b..6aa64f2 100644 --- a/A01基础公司管理/Company.dpr +++ b/A01基础公司管理/Company.dpr @@ -22,7 +22,6 @@ uses U_CompanySel in '..\A00ͨô\U_CompanySel.pas' {frmCompanySel}, U_AttachmentUpload in '..\A00ͨô\U_AttachmentUpload.pas' {frmFjList_RZ}, U_CompressionFun in '..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas', - U_BankList in 'U_BankList.pas' {frmBankList}, U_LabelMapSet in '..\A00ͨô\U_LabelMapSet.pas' {frmLabelMapSet}, U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint}, U_DataLink in 'U_DataLink.pas' {DataLink_Company: TDataModule}, @@ -31,7 +30,6 @@ uses U_FactoryInput in 'U_FactoryInput.pas' {frmFactoryInput}, U_Company in 'U_Company.pas' {frmCompany}, U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, - U_CustomerInput in 'U_CustomerInput.pas' {frmCustomerInput}, U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas', U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas', U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas', @@ -40,7 +38,9 @@ uses FrameDateSel in '..\A00ͨ\FrameDateSel.pas' {frmFrameDateSel: TFrame}, U_LXDept in 'U_LXDept.pas' {frmLXDept}, U_LXInPut in 'U_LXInPut.pas' {frmLXInPut}, - uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; + uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', + U_BankList in 'U_BankList.pas' {frmBankList}, + U_BankInput in 'U_BankInput.pas' {frmBankInput}; {$R *.res} diff --git a/A01基础公司管理/Company.dproj b/A01基础公司管理/Company.dproj index 43b7560..7345264 100644 --- a/A01基础公司管理/Company.dproj +++ b/A01基础公司管理/Company.dproj @@ -172,10 +172,6 @@ dfm - -
frmBankList
- dfm -
frmLabelMapSet
dfm @@ -210,10 +206,6 @@
frmZDYHelp
dfm - -
frmCustomerInput
- dfm - @@ -233,6 +225,14 @@ dfm + +
frmBankList
+ dfm + + +
frmBankInput
+ dfm + Cfg_2 Base diff --git a/A01基础公司管理/Company.dproj.local b/A01基础公司管理/Company.dproj.local index 7ac74d6..c066df0 100644 --- a/A01基础公司管理/Company.dproj.local +++ b/A01基础公司管理/Company.dproj.local @@ -1,42 +1,44 @@  - 1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas - 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas - 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas 1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas - 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas + 1899-12-30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm + 1899-12-30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas + 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm + 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm + 1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas 1899-12-30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas 1899-12-30 00:00:00.000.175,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas + 1899-12-30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm 1899-12-30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm + 1899-12-30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas 1899-12-30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas + 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas= - 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm - 1899-12-30 00:00:00.000.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas - 1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas - 1899-12-30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm + 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas + 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas 1899-12-30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas + 1899-12-30 00:00:00.000.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas + 1899-12-30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas 1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas 1899-12-30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas - 1899-12-30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas= - 1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas - 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm - 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm - 1899-12-30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899-12-30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm - 1899-12-30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm + 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm 1899-12-30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas - 1899-12-30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm + 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas + 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm + 1899-12-30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas + 1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas + 1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas= + 2025-04-23 09:44:21.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.dfm + 2025-04-23 09:44:21.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.pas @@ -67,7 +69,7 @@ - + @@ -116,8 +118,6 @@ - - @@ -134,5 +134,7 @@ + + diff --git a/A01基础公司管理/U_BankInput.dfm b/A01基础公司管理/U_BankInput.dfm new file mode 100644 index 0000000..2fc1390 --- /dev/null +++ b/A01基础公司管理/U_BankInput.dfm @@ -0,0 +1,241 @@ +inherited frmBankInput: TfrmBankInput + Left = 261 + Top = 149 + Caption = #20844#21496#36134#25143#24405#20837 + ClientHeight = 373 + ClientWidth = 1157 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Height = -16 + OldCreateOrder = True + Position = poScreenCenter + OnClose = FormClose + ExplicitWidth = 1173 + ExplicitHeight = 412 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1157 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 67 + Caption = 'ToolBar1' + Color = clWhite + DisabledImages = DataLink_Company.ImageList_new32 + Images = DataLink_Company.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + ExplicitWidth = 599 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox [1] + Left = 0 + Top = 30 + Width = 1157 + Height = 343 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + BorderStyle = bsNone + Color = clWhite + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + ExplicitTop = 36 + object Label6: TLabel + Left = 22 + Top = 75 + Width = 62 + Height = 21 + Caption = #21517' '#31216 + end + object Label3: TLabel + Left = 22 + Top = 28 + Width = 64 + Height = 21 + Caption = #20844#21496#25260#22836 + end + object Label1: TLabel + Left = 510 + Top = 28 + Width = 64 + Height = 21 + Caption = #20844#21496#22320#22336 + end + object Label4: TLabel + Left = 510 + Top = 75 + Width = 58 + Height = 21 + Caption = #24320' '#25143' '#34892 + end + object Label5: TLabel + Left = 22 + Top = 116 + Width = 62 + Height = 21 + Caption = #21345' '#21495 + end + object Label8: TLabel + Left = 510 + Top = 116 + Width = 64 + Height = 21 + Caption = #38134#34892#22320#22336 + end + object Label7: TLabel + Left = 22 + Top = 163 + Width = 64 + Height = 21 + Caption = #38134#34892#20195#30721 + end + object Label9: TLabel + Left = 510 + Top = 163 + Width = 62 + Height = 21 + Caption = #34892' '#21495 + end + object Label10: TLabel + Left = 22 + Top = 215 + Width = 62 + Height = 21 + Caption = #24065' '#31181 + end + object BankName: TcxTextEdit + Tag = 2 + Left = 90 + Top = 71 + TabOrder = 0 + Width = 400 + end + object GSTT: TcxTextEdit + Tag = 2 + Left = 90 + Top = 24 + TabOrder = 1 + Width = 400 + end + object GSDZ: TcxTextEdit + Tag = 2 + Left = 580 + Top = 24 + TabOrder = 2 + Width = 400 + end + object BankDeposit: TcxTextEdit + Tag = 2 + Left = 580 + Top = 71 + TabOrder = 3 + Width = 400 + end + object BankCardNo: TcxTextEdit + Tag = 2 + Left = 90 + Top = 112 + TabOrder = 4 + Width = 400 + end + object YHDZ: TcxTextEdit + Tag = 2 + Left = 580 + Top = 112 + TabOrder = 5 + Width = 400 + end + object YHDM: TcxTextEdit + Tag = 2 + Left = 90 + Top = 159 + TabOrder = 6 + Width = 400 + end + object BankNo: TcxTextEdit + Tag = 2 + Left = 580 + Top = 159 + TabOrder = 7 + Width = 400 + end + object Currency: TComboBox + Tag = 2 + Left = 90 + Top = 212 + Width = 145 + Height = 29 + Style = csDropDownList + TabOrder = 8 + Items.Strings = ( + 'CNY' + 'USD' + 'EUR' + 'VND') + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_Company.ADOLink + Left = 993 + Top = 60 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_Company.ADOLink + Left = 994 + Top = 11 + end + inherited ImageList_new32: TImageList + Left = 1085 + Top = 23 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + Left = 1078 + Top = 96 + DesignInfo = 6292534 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_Company.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 987 + Top = 234 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Company.ADOLink + Parameters = <> + Left = 990 + Top = 117 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_Company.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 995 + Top = 179 + end +end diff --git a/A01基础公司管理/U_BankInput.pas b/A01基础公司管理/U_BankInput.pas new file mode 100644 index 0000000..d1b4072 --- /dev/null +++ b/A01基础公司管理/U_BankInput.pas @@ -0,0 +1,198 @@ +unit U_BankInput; + +interface + +uses + Windows, Messages, StrUtils, SysUtils, Variants, Classes, Graphics, Controls, + Forms, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, + ADODB, cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, + cxDateUtils, cxImage, cxDBEdit, IdExplicitTLSClientServerBase, cxMemo, + U_BaseInput, System.ImageList, Vcl.ImgList, cxImageList, dxSkinsCore, + dxSkinsDefaultPainters; + +type + TfrmBankInput = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ToolButton3: TToolButton; + ScrollBox1: TScrollBox; + Label6: TLabel; + BankName: TcxTextEdit; + GSTT: TcxTextEdit; + Label3: TLabel; + Label1: TLabel; + GSDZ: TcxTextEdit; + Label4: TLabel; + BankDeposit: TcxTextEdit; + Label5: TLabel; + BankCardNo: TcxTextEdit; + Label8: TLabel; + YHDZ: TcxTextEdit; + Label7: TLabel; + YHDM: TcxTextEdit; + Label9: TLabel; + BankNo: TcxTextEdit; + Label10: TLabel; + Currency: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure CoareaBtnDnClick(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function SaveData(): Boolean; + public + fFlileFlag: string; + fkhType: string; + { Public declarations } + FCOID: string; + end; + +var + frmBankInput: TfrmBankInput; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, getpic, U_YWYSel; + +{$R *.dfm} + +procedure TfrmBankInput.InitGrid(); +begin + try + + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select * from BS_Bank where BKID=''' + Trim(FCOID) + ''''); + Open; + end; + SCSHData(ADOQueryMain, ScrollBox1, 2); + + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBankInput.FormDestroy(Sender: TObject); +begin + inherited; + frmBankInput := nil; +end; + +procedure TfrmBankInput.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmBankInput.TBCloseClick(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmBankInput.FormShow(Sender: TObject); +begin + inherited; + InitGrid(); + +end; + +procedure TfrmBankInput.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmBankInput.SaveData(): Boolean; +var + MaxId, MaxSubId, FCoCode, FCCID, MaxCFID: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FCOID) = '' then + begin + if GetLSNo(ADOQueryCmd, MaxId, 'BK', 'BS_Bank', 4, 1) = False then + begin + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + + end + else + begin + MaxId := Trim(FCOID); + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from BS_Bank where BKID=''' + Trim(FCOID) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FCOID) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('BKID').Value := Trim(MaxId); + RTSetsavedata(ADOQueryCmd, 'BS_Bank', ScrollBox1, 2); + Post; + end; + + ADOQueryCmd.Connection.CommitTrans; + FCCID := Trim(MaxSubId); + Result := True; + except + Result := false; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmBankInput.ToolButton3Click(Sender: TObject); +begin + + if SaveData() then + begin + Application.MessageBox('ɹ!', 'ʾ', 0); + end; +end; + +procedure TfrmBankInput.CoareaBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; + TBtnEditC(Sender).TxtCode := ''; +end; + +end. + diff --git a/A01基础公司管理/U_BankList.dfm b/A01基础公司管理/U_BankList.dfm index 68c2c73..7280a38 100644 --- a/A01基础公司管理/U_BankList.dfm +++ b/A01基础公司管理/U_BankList.dfm @@ -3,9 +3,9 @@ inherited frmBankList: TfrmBankList Top = 109 Caption = #38134#34892#36134#25143#31649#29702 ClientHeight = 562 - ClientWidth = 1183 + ClientWidth = 1495 KeyPreview = True - ExplicitWidth = 1199 + ExplicitWidth = 1511 ExplicitHeight = 601 PixelsPerInch = 96 TextHeight = 17 @@ -13,7 +13,7 @@ inherited frmBankList: TfrmBankList Tag = 1 Left = 0 Top = 0 - Width = 1183 + Width = 1495 Height = 38 AutoSize = True ButtonHeight = 38 @@ -41,24 +41,50 @@ inherited frmBankList: TfrmBankList ImageIndex = 0 OnClick = ToolButton2Click end - object btnadd: TToolButton + object ToolButton3: TToolButton Left = 142 Top = 0 AutoSize = True + Caption = #22686#21152 + ImageIndex = 9 + OnClick = ToolButton3Click + end + object ToolButton5: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = ToolButton5Click + end + object ToolButton4: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = ToolButton4Click + end + object btnadd: TToolButton + Left = 355 + Top = 0 + AutoSize = True Caption = #22686#34892 ImageIndex = 2 + Visible = False OnClick = btnaddClick end object btndel: TToolButton - Left = 213 + Left = 426 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 6 + Visible = False OnClick = btndelClick end object ToolButton1: TToolButton - Left = 284 + Left = 497 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -66,7 +92,7 @@ inherited frmBankList: TfrmBankList OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 379 + Left = 592 Top = 0 AutoSize = True Caption = #20851#38381 @@ -77,11 +103,12 @@ inherited frmBankList: TfrmBankList object cxGrid2: TcxGrid [1] Left = 0 Top = 81 - Width = 1183 + Width = 1495 Height = 481 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 + ExplicitTop = 80 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -122,8 +149,28 @@ inherited frmBankList: TfrmBankList PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False Width = 50 end + object Tv2Column7: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'GSTT' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end + object Tv2Column8: TcxGridDBColumn + Caption = #20844#21496#22320#22336 + DataBinding.FieldName = 'GSDZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end object Tv2Column3: TcxGridDBColumn Caption = #21517#31216 DataBinding.FieldName = 'BankName' @@ -131,8 +178,21 @@ inherited frmBankList: TfrmBankList PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False Width = 107 end + object Tv2Column5: TcxGridDBColumn + Caption = #24320#25143#34892 + DataBinding.FieldName = 'BankDeposit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 112 + end object Tv2Column4: TcxGridDBColumn Caption = #21345#21495 DataBinding.FieldName = 'BankCardNo' @@ -140,8 +200,39 @@ inherited frmBankList: TfrmBankList PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False Width = 150 end + object Tv2Column9: TcxGridDBColumn + Caption = #38134#34892#22320#22336 + DataBinding.FieldName = 'YHDZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end + object Tv2Column2: TcxGridDBColumn + Caption = #38134#34892#20195#30721 + DataBinding.FieldName = 'YHDM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 100 + end + object Tv2Column6: TcxGridDBColumn + Caption = #34892#21495 + DataBinding.FieldName = 'BankNo' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 133 + end object Tv2Column1: TcxGridDBColumn Caption = #24065#31181 DataBinding.FieldName = 'Currency' @@ -155,26 +246,10 @@ inherited frmBankList: TfrmBankList 'VND') Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False Width = 85 end - object Tv2Column5: TcxGridDBColumn - Caption = #24320#25143#34892 - DataBinding.FieldName = 'BankDeposit' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged - HeaderAlignmentHorz = taCenter - Width = 112 - end - object Tv2Column6: TcxGridDBColumn - Caption = #34892#21495 - DataBinding.FieldName = 'BankNo' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged - HeaderAlignmentHorz = taCenter - Width = 133 - end end object cxGridLevel1: TcxGridLevel GridView = Tv2 @@ -183,13 +258,14 @@ inherited frmBankList: TfrmBankList object Panel1: TPanel [2] Left = 0 Top = 38 - Width = 1183 + Width = 1495 Height = 43 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 4 + ExplicitWidth = 1183 object Label1: TLabel Left = 66 Top = 15 @@ -207,7 +283,15 @@ inherited frmBankList: TfrmBankList OnChange = CustomerChange end end + inherited loadProcess: TPanel + Left = 296 + Top = 197 + ExplicitLeft = 296 + ExplicitTop = 197 + end inherited cxProgressBar2: TcxProgressBar + Top = 137 + ExplicitTop = 137 ExplicitHeight = 25 end inherited ADOQueryBaseCmd: TADOQuery diff --git a/A01基础公司管理/U_BankList.pas b/A01基础公司管理/U_BankList.pas index 902f458..e44391a 100644 --- a/A01基础公司管理/U_BankList.pas +++ b/A01基础公司管理/U_BankList.pas @@ -13,10 +13,9 @@ uses RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, - dxDateRanges, dxBarBuiltInMenu, U_BaseList, - cxContainer, dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, - dxSkinsDefaultPainters; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, cxContainer, dxScrollbarAnnotations, + cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters; type TfrmBankList = class(TfrmBaseList) @@ -48,6 +47,13 @@ type Tv2Column5: TcxGridDBColumn; Tv2Column6: TcxGridDBColumn; ToolButton1: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + Tv2Column2: TcxGridDBColumn; + Tv2Column7: TcxGridDBColumn; + Tv2Column8: TcxGridDBColumn; + Tv2Column9: TcxGridDBColumn; + ToolButton5: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -65,6 +71,9 @@ type procedure btnokClick(Sender: TObject); procedure v2Column1PropertiesEditValueChanged(Sender: TObject); procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); private { Private declarations } procedure InitGrid(); @@ -80,7 +89,7 @@ var implementation uses - U_DataLink, U_RTFun, U_ZDYHelp; + U_DataLink, U_RTFun, U_ZDYHelp, U_BankInput; {$R *.dfm} @@ -124,7 +133,7 @@ end; procedure TfrmBankList.FormShow(Sender: TObject); begin inherited; - ReadCxGrid(Trim(Self.Caption), Tv2, ''); + ReadCxGrid(Trim(Self.Caption) + '1', Tv2, ''); InitGrid(); end; @@ -143,7 +152,7 @@ end; procedure TfrmBankList.ToolButton1Click(Sender: TObject); begin - WriteCxGrid(Trim(Self.Caption), Tv2, ''); + WriteCxGrid(Trim(Self.Caption) + '1', Tv2, ''); end; procedure TfrmBankList.ToolButton2Click(Sender: TObject); @@ -159,6 +168,58 @@ begin end; end; +procedure TfrmBankList.ToolButton3Click(Sender: TObject); +begin + try + frmBankInput := TfrmBankInput.Create(Application); + with frmBankInput do + begin + FCOID := ''; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmBankInput.Free; + end; +end; + +procedure TfrmBankList.ToolButton4Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BS_Bank where BKID=' + QuotedStr(CDS_1.FieldByName('BKID').AsString)); + ExecSQL; + end; + CDS_1.Delete; +end; + +procedure TfrmBankList.ToolButton5Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + try + frmBankInput := TfrmBankInput.Create(Application); + with frmBankInput do + begin + FCOID := Trim(Self.CDS_1.fieldbyname('BKID').AsString); + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmBankInput.Free; + end; +end; + procedure TfrmBankList.cxTabControl1Change(Sender: TObject); begin InitGrid; diff --git a/A01基础公司管理/U_GetDllForm.pas b/A01基础公司管理/U_GetDllForm.pas index afc71e9..b2e603a 100644 --- a/A01基础公司管理/U_GetDllForm.pas +++ b/A01基础公司管理/U_GetDllForm.pas @@ -1,4 +1,3 @@ - unit U_GetDllForm; interface @@ -72,10 +71,10 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; + server := '150.109.121.232,7781'; dtbase := 'KaiXiYadata'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; + user := 'kaixiyasa'; + pswd := 'rightsoft,.KXY@YN'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; Parameters1 := ''; end diff --git a/B01基础合同管理/Contract.dpr b/B01基础合同管理/Contract.dpr index 6dd1ad0..2487b01 100644 --- a/B01基础合同管理/Contract.dpr +++ b/B01基础合同管理/Contract.dpr @@ -36,7 +36,8 @@ uses U_PictureUpload22 in '..\E01֯ƻ\U_PictureUpload22.pas' {frmPictureUpload22}, U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload}, FrameDateSel in '..\A00ͨ\FrameDateSel.pas' {frmFrameDateSel: TFrame}, - uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; + uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', + U_BankSel in '..\A00ͨô\U_BankSel.pas' {frmBankSel}; {$R *.res} diff --git a/B01基础合同管理/Contract.dproj b/B01基础合同管理/Contract.dproj index afed885..5659e78 100644 --- a/B01基础合同管理/Contract.dproj +++ b/B01基础合同管理/Contract.dproj @@ -222,6 +222,10 @@ TFrame + +
frmBankSel
+ dfm + Cfg_2 Base diff --git a/B01基础合同管理/Contract.dproj.local b/B01基础合同管理/Contract.dproj.local index 3bba790..c2818d8 100644 --- a/B01基础合同管理/Contract.dproj.local +++ b/B01基础合同管理/Contract.dproj.local @@ -2,83 +2,84 @@ 1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899-12-30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899-12-30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= 1899-12-30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas= 1899-12-30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas - 1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm - 1899-12-30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas= - 1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas - 1899-12-30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas + 1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas + 1899-12-30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm + 1899-12-30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas 1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas= - 1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas + 1899-12-30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas + 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas - 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas - 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas - 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm 1899-12-30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas 1899-12-30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas - 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas= + 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas + 1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm + 1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas + 1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas= + 1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= - 1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= - 1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm - 1899-12-30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm - 1899-12-30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas= - 1899-12-30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm + 1899-12-30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas= 1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm - 1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm - 1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas + 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= 1899-12-30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm 1899-12-30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas= - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas + 1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas= + 1899-12-30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas + 1899-12-30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas + 1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas + 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm + 1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm + 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899-12-30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas + 1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas @@ -127,6 +128,8 @@ + + diff --git a/B01基础合同管理/Contract.identcache b/B01基础合同管理/Contract.identcache index c10e10fd3d64ae0264bb6028975a8aff28564894..af63fabbbb3c7894dfd536c6741e29be00a7e5fa 100644 GIT binary patch delta 52 zcmew-bU~O=VI$*lrpfl4N}KJOzc5d3WwB;=O3cd+PR*J8lFe{(2>W@Ur2S@P4jIPD HCzwJ3-&PT> delta 36 rcmca0{7;Bcek0>?rpeWup_3Ijls3O&`ocWffc?Yfcn%pxpol#H^U@4i diff --git a/B01基础合同管理/U_GetDllForm.pas b/B01基础合同管理/U_GetDllForm.pas index e299df2..f4c05e9 100644 --- a/B01基础合同管理/U_GetDllForm.pas +++ b/B01基础合同管理/U_GetDllForm.pas @@ -70,10 +70,10 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; + server := '150.109.121.232,7781'; dtbase := 'KaiXiYadata'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; + user := 'kaixiyasa'; + pswd := 'rightsoft,.KXY@YN'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; Parameters1 := ''; end diff --git a/B01基础合同管理/U_SalesConInPut.dfm b/B01基础合同管理/U_SalesConInPut.dfm index 9de7220..ff39010 100644 --- a/B01基础合同管理/U_SalesConInPut.dfm +++ b/B01基础合同管理/U_SalesConInPut.dfm @@ -60,7 +60,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut Left = 0 Top = 30 Width = 1506 - Height = 307 + Height = 379 Align = alTop BevelInner = bvNone BevelOuter = bvNone @@ -72,7 +72,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut TabOrder = 1 object Label3: TLabel Left = 330 - Top = 86 + Top = 118 Width = 80 Height = 21 Caption = #19979#21333#26085#26399#65306 @@ -93,21 +93,21 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object Label14: TLabel Left = 330 - Top = 49 + Top = 45 Width = 48 Height = 21 Caption = #23458#25143#65306 end object Label20: TLabel Left = 40 - Top = 49 + Top = 45 Width = 80 Height = 21 Caption = #32463#33829#21333#20301#65306 end object Label6: TLabel - Left = 330 - Top = 193 + Left = 715 + Top = 413 Width = 64 Height = 21 Caption = #28322#30701#35013#65306 @@ -122,91 +122,91 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object Label26: TLabel Left = 637 - Top = 49 + Top = 45 Width = 64 Height = 21 Caption = #20013#38388#21830#65306 end object Label27: TLabel Left = 40 - Top = 193 + Top = 225 Width = 80 Height = 21 Caption = #26159#21542#21547#31246#65306 end object Label29: TLabel Left = 330 - Top = 122 + Top = 154 Width = 64 Height = 21 Caption = #36215#36816#28207#65306 end object Label30: TLabel Left = 637 - Top = 122 + Top = 154 Width = 64 Height = 21 Caption = #30446#30340#28207#65306 end object Label2: TLabel Left = 940 - Top = 158 + Top = 190 Width = 48 Height = 21 Caption = #27719#29575#65306 end object Label5: TLabel Left = 637 - Top = 158 + Top = 190 Width = 48 Height = 21 Caption = #24065#31181#65306 end object Label7: TLabel Left = 940 - Top = 49 + Top = 45 Width = 80 Height = 21 Caption = #20323#37329#27604#20363#65306 end object Label11: TLabel Left = 40 - Top = 158 + Top = 190 Width = 80 Height = 21 Caption = #20184#27454#26041#24335#65306 end object Label12: TLabel Left = 40 - Top = 122 + Top = 154 Width = 80 Height = 21 Caption = #36816#36755#26041#24335#65306 end object Label4: TLabel Left = 40 - Top = 230 + Top = 302 Width = 80 Height = 21 Caption = #33337#26679#35201#27714#65306 end object Label13: TLabel Left = 330 - Top = 158 + Top = 190 Width = 80 Height = 21 Caption = #20215#26684#26415#35821#65306 end object Label8: TLabel Left = 40 - Top = 267 + Top = 339 Width = 80 Height = 21 Caption = #21253#35013#35201#27714#65306 end object Label15: TLabel Left = 356 - Top = 427 + Top = 462 Width = 80 Height = 21 Caption = #20132#26399#35828#26126#65306 @@ -214,15 +214,15 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object Label16: TLabel Left = 53 - Top = 427 + Top = 462 Width = 80 Height = 21 Caption = #20132#36135#26085#26399#65306 Visible = False end object Label17: TLabel - Left = 1109 - Top = 316 + Left = 1104 + Top = 398 Width = 80 Height = 21 Caption = #33136#23553#22823#29260#65306 @@ -230,7 +230,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object Label23: TLabel Left = 40 - Top = 86 + Top = 118 Width = 80 Height = 21 Caption = #21512#21516#31867#22411#65306 @@ -244,7 +244,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object lblSalesId: TLabel Left = 63 - Top = 375 + Top = 410 Width = 80 Height = 21 Caption = #19994#21153#32534#21495#65306 @@ -252,7 +252,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object Label25: TLabel Left = 276 - Top = 375 + Top = 410 Width = 80 Height = 21 Caption = #29702#21333#32534#21495#65306 @@ -260,11 +260,60 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object Label1: TLabel Left = 637 - Top = 86 + Top = 118 Width = 80 Height = 21 Caption = #24067#21305#31867#22411#65306 end + object Label18: TLabel + Left = 40 + Top = 81 + Width = 80 + Height = 21 + Caption = #20379#26041#22320#22336#65306 + end + object Label19: TLabel + Left = 637 + Top = 80 + Width = 80 + Height = 21 + Caption = #23458#25143#22320#22336#65306 + end + object Label21: TLabel + Left = 330 + Top = 225 + Width = 80 + Height = 21 + Caption = #38134#34892#36134#25143#65306 + end + object Label22: TLabel + Left = 637 + Top = 225 + Width = 64 + Height = 21 + Caption = #24320#25143#34892#65306 + end + object Label28: TLabel + Left = 940 + Top = 225 + Width = 48 + Height = 21 + Caption = #21345#21495#65306 + end + object Label31: TLabel + Left = 44 + Top = 264 + Width = 80 + Height = 21 + Caption = #38134#34892#22320#22336#65306 + end + object Label32: TLabel + Left = 637 + Top = 265 + Width = 80 + Height = 21 + Caption = #38134#34892#20195#30721#65306 + end object ConNo: TcxTextEdit Tag = 2 Left = 114 @@ -283,7 +332,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object ExchangeRate: TcxTextEdit Tag = 2 Left = 1015 - Top = 152 + Top = 184 TabOrder = 2 OnKeyPress = ExchangeRateKeyPress Width = 200 @@ -291,7 +340,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object CommissionRatio: TcxTextEdit Tag = 2 Left = 1015 - Top = 43 + Top = 41 TabOrder = 3 Width = 200 end @@ -318,7 +367,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object PackSeal: TBtnEditC Tag = 2 Left = 1180 - Top = 312 + Top = 394 Width = 125 Height = 30 TabOrder = 5 @@ -328,7 +377,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object DlyNote: TcxTextEdit Tag = 2 Left = 431 - Top = 421 + Top = 456 ParentFont = False TabOrder = 6 Visible = False @@ -351,7 +400,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object SalesId: TcxTextEdit Tag = 2 Left = 134 - Top = 369 + Top = 404 ParentFont = False TabOrder = 9 Visible = False @@ -360,7 +409,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object TallyId: TcxTextEdit Tag = 2 Left = 335 - Top = 366 + Top = 401 ParentFont = False TabOrder = 10 Visible = False @@ -369,7 +418,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object BuyName: TcxButtonEdit Tag = 2 Left = 403 - Top = 43 + Top = 42 Properties.Buttons = < item Default = True @@ -385,7 +434,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object PackNote: TcxButtonEdit Tag = 2 Left = 114 - Top = 261 + Top = 333 Hint = 'PackNote/'#21253#35013#35201#27714 Properties.Buttons = < item @@ -401,7 +450,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object Sellname: TcxButtonEdit Tag = 2 Left = 114 - Top = 41 + Top = 42 Properties.Buttons = < item Default = True @@ -417,7 +466,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object MiddleName: TcxButtonEdit Tag = 2 Left = 710 - Top = 43 + Top = 41 Properties.Buttons = < item Default = True @@ -433,7 +482,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object ShipMent: TcxButtonEdit Tag = 2 Left = 114 - Top = 116 + Top = 148 Hint = 'ShipMent/'#36816#36755#26041#24335 Properties.Buttons = < item @@ -449,7 +498,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object BegPort: TcxButtonEdit Tag = 2 Left = 403 - Top = 116 + Top = 148 Hint = 'BegPort/'#36215#36816#28207 Properties.Buttons = < item @@ -465,7 +514,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object EndPort: TcxButtonEdit Tag = 2 Left = 710 - Top = 116 + Top = 148 Hint = 'EndPort/'#30446#30340#28207 Properties.Buttons = < item @@ -481,7 +530,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object Payment: TcxButtonEdit Tag = 2 Left = 114 - Top = 152 + Top = 184 Hint = 'Payment/'#20184#27454#26041#24335 Properties.Buttons = < item @@ -496,8 +545,8 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object QtyNote: TcxButtonEdit Tag = 2 - Left = 403 - Top = 187 + Left = 788 + Top = 407 Hint = 'QtyNoteZW/'#28322#30701#35013 Properties.Buttons = < item @@ -514,7 +563,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object PriceTerms: TcxButtonEdit Tag = 2 Left = 403 - Top = 152 + Top = 184 Hint = 'PriceTerms/'#20215#26684#26415#35821 Properties.Buttons = < item @@ -530,7 +579,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object ShippingSample: TcxButtonEdit Tag = 2 Left = 114 - Top = 224 + Top = 296 Hint = 'ShippingSample/'#33337#26679#35201#27714 Properties.Buttons = < item @@ -563,7 +612,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object ConType: TcxComboBox Tag = 2 Left = 114 - Top = 80 + Top = 112 Properties.DropDownListStyle = lsEditFixedList Properties.Items.Strings = ( #20869#38144 @@ -574,7 +623,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object ConDate: TcxDateEdit Tag = 2 Left = 403 - Top = 80 + Top = 112 Properties.ShowTime = False TabOrder = 24 Width = 200 @@ -582,7 +631,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object Currency: TcxComboBox Tag = 2 Left = 710 - Top = 152 + Top = 184 Properties.Items.Strings = ( 'CNY' 'USD' @@ -594,7 +643,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object DlyDate: TcxDateEdit Tag = 2 Left = 126 - Top = 421 + Top = 456 ParentFont = False Properties.ShowTime = False TabOrder = 26 @@ -604,7 +653,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object IsTax: TcxComboBox Tag = 2 Left = 114 - Top = 187 + Top = 221 Properties.Items.Strings = ( #26159 #21542) @@ -615,7 +664,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut object BPType: TcxComboBox Tag = 2 Left = 710 - Top = 80 + Top = 112 Properties.DropDownListStyle = lsEditFixedList Properties.Items.Strings = ( #22383#24067 @@ -623,11 +672,72 @@ inherited frmSalesConInPut: TfrmSalesConInPut TabOrder = 28 Width = 200 end + object GFDZ: TcxTextEdit + Tag = 2 + Left = 114 + Top = 77 + TabOrder = 29 + Width = 489 + end + object KHDZ: TcxTextEdit + Tag = 2 + Left = 710 + Top = 76 + TabOrder = 30 + Width = 505 + end + object BankName: TcxButtonEdit + Tag = 2 + Left = 403 + Top = 221 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = BankNamePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 31 + Width = 200 + end + object BankDeposit: TcxTextEdit + Tag = 2 + Left = 707 + Top = 221 + TabOrder = 32 + OnKeyPress = ExchangeRateKeyPress + Width = 200 + end + object BankCardNo: TcxTextEdit + Tag = 2 + Left = 1015 + Top = 221 + TabOrder = 33 + OnKeyPress = ExchangeRateKeyPress + Width = 200 + end + object YHDZ: TcxTextEdit + Tag = 2 + Left = 114 + Top = 261 + TabOrder = 34 + OnKeyPress = ExchangeRateKeyPress + Width = 489 + end + object YHDM: TcxTextEdit + Tag = 2 + Left = 707 + Top = 261 + TabOrder = 35 + OnKeyPress = ExchangeRateKeyPress + Width = 200 + end end object ToolBar2: TToolBar [2] Tag = 1 Left = 0 - Top = 337 + Top = 409 Width = 1506 Height = 30 AutoSize = True @@ -676,14 +786,13 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object cxGrid1: TcxGrid [3] Left = 0 - Top = 367 + Top = 439 Width = 1506 - Height = 381 + Height = 309 Align = alClient BorderStyle = cxcbsNone PopupMenu = pm_sub TabOrder = 3 - ExplicitTop = 366 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -933,14 +1042,14 @@ inherited frmSalesConInPut: TfrmSalesConInPut Top = 1 end inherited ImageList_new32: TImageList - Left = 1085 - Top = 313 + Left = 1276 + Top = 21 end inherited cxImageList_bar: TcxImageList FormatVersion = 1 - Left = 731 - Top = 217 - DesignInfo = 14222043 + Left = 1015 + Top = 170 + DesignInfo = 11142135 end object ADOTemp: TADOQuery Connection = DataLink_Contract.ADOLink @@ -987,14 +1096,14 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object DataSource1: TDataSource DataSet = ADOQueryImage - Left = 1203 - Top = 294 + Left = 1243 + Top = 302 end object ADOQueryImage: TADOQuery Connection = DataLink_Contract.ADOLink Parameters = <> - Left = 1117 - Top = 325 + Left = 1248 + Top = 258 end object DS_ImgHX: TDataSource DataSet = Qry_ImgHX diff --git a/B01基础合同管理/U_SalesConInPut.pas b/B01基础合同管理/U_SalesConInPut.pas index 9deee52..3dba27d 100644 --- a/B01基础合同管理/U_SalesConInPut.pas +++ b/B01基础合同管理/U_SalesConInPut.pas @@ -136,6 +136,20 @@ type BPType: TcxComboBox; ToolButton4: TToolButton; Tv1Column2: TcxGridDBColumn; + Label18: TLabel; + GFDZ: TcxTextEdit; + Label19: TLabel; + KHDZ: TcxTextEdit; + Label21: TLabel; + BankName: TcxButtonEdit; + Label22: TLabel; + BankDeposit: TcxTextEdit; + Label28: TLabel; + BankCardNo: TcxTextEdit; + Label31: TLabel; + YHDZ: TcxTextEdit; + Label32: TLabel; + YHDM: TcxTextEdit; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -164,6 +178,7 @@ type procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ToolButton4Click(Sender: TObject); procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure BankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); private FLeft, FTop: Integer; fuserName, Fstatus: string; @@ -192,7 +207,7 @@ implementation uses U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel, - U_PictureUpload11, U_TatClothInfoSel; + U_PictureUpload11, U_TatClothInfoSel, U_BankSel; {$R *.dfm} @@ -207,6 +222,7 @@ begin begin self.Sellname.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); self.Sellname.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + self.GFDZ.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAddress').AsString); end; end; @@ -840,6 +856,7 @@ begin // self.Saleser.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Saleser').AsString); self.TallyId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('TallyId').AsString); self.Tallyer.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Tallyer').AsString); + self.KHDZ.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAddress').AsString); end; end; @@ -1047,6 +1064,30 @@ begin end; end; +procedure TfrmSalesConInPut.BankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmBankSel := TfrmBankSel.Create(Application); + with frmBankSel do + begin + if ShowModal = 1 then + begin + self.BankName.Text := Trim(frmBankSel.CDS_1.fieldbyname('BankName').AsString); + self.BankDeposit.Text := Trim(frmBankSel.CDS_1.fieldbyname('BankDeposit').AsString); + + self.BankCardNo.Text := Trim(frmBankSel.CDS_1.fieldbyname('BankCardNo').AsString); + self.YHDZ.Text := Trim(frmBankSel.CDS_1.fieldbyname('YHDZ').AsString); + + self.YHDM.Text := Trim(frmBankSel.CDS_1.fieldbyname('YHDM').AsString); + self.Currency.Text := Trim(frmBankSel.CDS_1.fieldbyname('Currency').AsString); + end; + end; + + finally + frmBankSel.Free; + end; +end; + procedure TfrmSalesConInPut.BuyNameBtnUpClick(Sender: TObject); begin try diff --git a/B01基础合同管理/U_SalesContractList.dfm b/B01基础合同管理/U_SalesContractList.dfm index 1cfd502..d6f935b 100644 --- a/B01基础合同管理/U_SalesContractList.dfm +++ b/B01基础合同管理/U_SalesContractList.dfm @@ -7,6 +7,7 @@ inherited frmSalesContractList: TfrmSalesContractList Font.Height = -16 FormStyle = fsMDIChild Visible = True + ExplicitLeft = -210 ExplicitWidth = 1800 ExplicitHeight = 810 PixelsPerInch = 96 @@ -187,6 +188,8 @@ inherited frmSalesContractList: TfrmSalesContractList Align = alClient PopupMenu = pm1 TabOrder = 3 + ExplicitLeft = -1 + ExplicitTop = 159 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -248,6 +251,14 @@ inherited frmSalesContractList: TfrmSalesContractList Options.Focusing = False Width = 94 end + object Tv1Column9: TcxGridDBColumn + Caption = #20379#26041#22320#22336 + DataBinding.FieldName = 'GFDZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end object v1CustomerNoName: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'BuyName' @@ -257,6 +268,14 @@ inherited frmSalesContractList: TfrmSalesContractList Options.Focusing = False Width = 99 end + object Tv1Column10: TcxGridDBColumn + Caption = #23458#25143#22320#22336 + DataBinding.FieldName = 'KHDZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end object Tv1Column1: TcxGridDBColumn Caption = #20013#38388#21830 DataBinding.FieldName = 'MiddleName' @@ -394,6 +413,46 @@ inherited frmSalesContractList: TfrmSalesContractList Options.Editing = False Width = 100 end + object Tv1Column11: TcxGridDBColumn + Caption = #38134#34892#36134#25143 + DataBinding.FieldName = 'BankName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column12: TcxGridDBColumn + Caption = #24320#25143#34892 + DataBinding.FieldName = 'BankDeposit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column13: TcxGridDBColumn + Caption = #21345#21495 + DataBinding.FieldName = 'BankCardNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column15: TcxGridDBColumn + Caption = #38134#34892#22320#22336 + DataBinding.FieldName = 'YHDZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column16: TcxGridDBColumn + Caption = #38134#34892#20195#30721 + DataBinding.FieldName = 'YHDM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/B01基础合同管理/U_SalesContractList.pas b/B01基础合同管理/U_SalesContractList.pas index 20621ee..941317a 100644 --- a/B01基础合同管理/U_SalesContractList.pas +++ b/B01基础合同管理/U_SalesContractList.pas @@ -135,6 +135,13 @@ type TV2Column1: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; Picture4: TcxDBImage; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; + Tv1Column16: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/B02基础纱线仓库/U_GetDllForm.pas b/B02基础纱线仓库/U_GetDllForm.pas index 4d81269..3ed2a0f 100644 --- a/B02基础纱线仓库/U_GetDllForm.pas +++ b/B02基础纱线仓库/U_GetDllForm.pas @@ -70,10 +70,10 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; + server := '150.109.121.232,7781'; dtbase := 'KaiXiYadata'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; + user := 'kaixiyasa'; + pswd := 'rightsoft,.KXY@YN'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; Parameters1 := ''; Parameters2 := 'ɴ'; diff --git a/B02基础纱线仓库/U_YarnInfoInPut.dfm b/B02基础纱线仓库/U_YarnInfoInPut.dfm index 95cafa1..142145b 100644 --- a/B02基础纱线仓库/U_YarnInfoInPut.dfm +++ b/B02基础纱线仓库/U_YarnInfoInPut.dfm @@ -77,6 +77,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut ParentCtl3D = False ParentFont = False TabOrder = 1 + ExplicitTop = 36 object Label2: TLabel Left = 16 Top = 159 @@ -105,7 +106,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut end object Label7: TLabel Left = 16 - Top = 285 + Top = 332 Width = 32 Height = 21 Caption = #22791#27880 @@ -117,8 +118,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut ParentFont = False end object Label1: TLabel - Left = 16 - Top = 32 + Left = 17 + Top = 35 Width = 32 Height = 21 Caption = #21697#21517 @@ -130,8 +131,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut ParentFont = False end object Label3: TLabel - Left = 387 - Top = 32 + Left = 388 + Top = 35 Width = 32 Height = 21 Caption = #32534#21495 @@ -156,11 +157,11 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut ParentFont = False end object Label8: TLabel - Left = 387 - Top = 74 - Width = 60 + Left = 388 + Top = 72 + Width = 77 Height = 21 - Caption = #29702#35770'D'#25968 + Caption = #20998#29305'(Dtex)' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 @@ -169,7 +170,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut ParentFont = False end object Label9: TLabel - Left = 387 + Left = 388 Top = 201 Width = 32 Height = 21 @@ -195,7 +196,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut ParentFont = False end object Label10: TLabel - Left = 387 + Left = 388 Top = 159 Width = 32 Height = 21 @@ -221,7 +222,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut ParentFont = False end object Label12: TLabel - Left = 387 + Left = 388 Top = 116 Width = 32 Height = 21 @@ -234,7 +235,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut ParentFont = False end object Label13: TLabel - Left = 387 + Left = 388 Top = 243 Width = 64 Height = 21 @@ -246,10 +247,36 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut Font.Style = [] ParentFont = False end + object Label14: TLabel + Left = 16 + Top = 290 + Width = 32 + Height = 21 + Caption = #21378#23478 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 388 + Top = 290 + Width = 64 + Height = 21 + Caption = #29702#35770#25439#32791 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end object Brand: TcxTextEdit Tag = 2 Left = 68 - Top = 237 + Top = 239 ParentColor = True ParentFont = False Style.Font.Charset = GB2312_CHARSET @@ -263,8 +290,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut end object Y_Name: TcxTextEdit Tag = 2 - Left = 68 - Top = 28 + Left = 69 + Top = 31 ParentColor = True ParentFont = False Style.Font.Charset = GB2312_CHARSET @@ -280,8 +307,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut end object Y_Code: TcxTextEdit Tag = 2 - Left = 458 - Top = 28 + Left = 469 + Top = 31 Enabled = False ParentColor = True ParentFont = False @@ -296,7 +323,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut end object Denier: TcxTextEdit Tag = 2 - Left = 458 + Left = 469 Top = 69 ParentColor = True ParentFont = False @@ -314,8 +341,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut end object Note: TcxMemo Tag = 2 - Left = 68 - Top = 285 + Left = 67 + Top = 332 ParentColor = True ParentFont = False Style.Font.Charset = GB2312_CHARSET @@ -326,12 +353,12 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut Style.IsFontAssigned = True TabOrder = 4 Height = 89 - Width = 691 + Width = 702 end object FF: TcxTextEdit Tag = 2 - Left = 458 - Top = 152 + Left = 469 + Top = 155 ParentColor = True ParentFont = False Style.Font.Charset = GB2312_CHARSET @@ -360,8 +387,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut end object ZS: TcxTextEdit Tag = 2 - Left = 458 - Top = 111 + Left = 469 + Top = 112 ParentColor = True ParentFont = False Properties.OnEditValueChanged = ZSPropertiesEditValueChanged @@ -378,8 +405,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut end object BYDate: TcxDateEdit Tag = 2 - Left = 458 - Top = 237 + Left = 469 + Top = 239 ParentFont = False Properties.ShowTime = False Style.Font.Charset = GB2312_CHARSET @@ -393,7 +420,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut end object Y_Color: TcxButtonEdit Tag = 2 - Left = 458 + Left = 469 Top = 194 Hint = 'Y_Color/'#39068#33394 ParentFont = False @@ -418,7 +445,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut object Y_Type: TcxButtonEdit Tag = 2 Left = 68 - Top = 152 + Top = 155 Hint = 'Y_Type/'#31867#22411 ParentFont = False Properties.Buttons = < @@ -442,7 +469,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut object Y_Composition: TcxButtonEdit Tag = 2 Left = 68 - Top = 111 + Top = 112 Hint = 'Y_Composition/'#25104#20998 ParentFont = False Properties.Buttons = < @@ -466,7 +493,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut object Y_Spec: TcxButtonEdit Tag = 2 Left = 68 - Top = 69 + Top = 70 Hint = 'Y_Spec/'#35268#26684 ParentFont = False Properties.Buttons = < @@ -487,6 +514,43 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut OnDblClick = Y_ColorDblClick Width = 300 end + object CJ: TcxButtonEdit + Tag = 2 + Left = 68 + Top = 286 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = CJPropertiesButtonClick + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.ButtonStyle = btsDefault + Style.IsFontAssigned = True + TabOrder = 13 + Width = 300 + end + object LLSH: TcxTextEdit + Tag = 2 + Left = 469 + Top = 286 + ParentColor = True + ParentFont = False + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 14 + Width = 300 + end end inherited ADOQueryBaseCmd: TADOQuery Connection = ADOConnection1 diff --git a/B02基础纱线仓库/U_YarnInfoInPut.pas b/B02基础纱线仓库/U_YarnInfoInPut.pas index 9977115..4e2194e 100644 --- a/B02基础纱线仓库/U_YarnInfoInPut.pas +++ b/B02基础纱线仓库/U_YarnInfoInPut.pas @@ -67,6 +67,10 @@ type Y_Type: TcxButtonEdit; Y_Composition: TcxButtonEdit; Y_Spec: TcxButtonEdit; + Label14: TLabel; + CJ: TcxButtonEdit; + Label15: TLabel; + LLSH: TcxTextEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); @@ -83,6 +87,7 @@ type procedure ZSPropertiesEditValueChanged(Sender: TObject); procedure ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Y_ColorDblClick(Sender: TObject); + procedure CJPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); private { Private declarations } function SaveData(): Boolean; @@ -97,10 +102,28 @@ var implementation uses - U_DataLink, U_RTFun, U_ZDYHelp; //, U_ProductInfoSel + U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel; //, U_ProductInfoSel {$R *.dfm} +procedure TfrmYarnInfoInPut.CJPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + + if ShowModal = 1 then + begin + self.CJ.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + procedure TfrmYarnInfoInPut.DenierClick(Sender: TObject); begin ZS.Style.Color := clMoneyGreen; @@ -113,7 +136,7 @@ end; procedure TfrmYarnInfoInPut.DenierPropertiesEditValueChanged(Sender: TObject); begin - ZS.text := floattostr(roundfloat(9000 / strtofloatdef(Denier.text, 0), 2)); + ZS.text := floattostr(roundfloat(5315.5 / strtofloatdef(Denier.text, 0), 0)); end; procedure TfrmYarnInfoInPut.FormClose(Sender: TObject; var Action: TCloseAction); @@ -290,7 +313,9 @@ begin // Application.MessageBox('ŲΪ!', 'ʾ', 0); // Exit; // end; - Y_Name.SetFocus; + ToolBar1.SetFocus; + + Y_Name.text := Trim(Y_Composition.text) + Trim(ZS.text) + Trim(Y_Color.text) + Trim(FF.text) + Trim(CJ.text); if Trim(Y_Name.Text) = '' then begin Application.MessageBox('ƲΪ!', 'ʾ', 0); @@ -315,21 +340,25 @@ end; procedure TfrmYarnInfoInPut.Y_NameClick(Sender: TObject); begin - Y_Spec.Style.Color := clMoneyGreen; Y_Composition.Style.Color := clMoneyGreen; + ZS.Style.Color := clMoneyGreen; Y_Color.Style.Color := clMoneyGreen; + FF.Style.Color := clMoneyGreen; + CJ.Style.Color := clMoneyGreen; end; procedure TfrmYarnInfoInPut.Y_NameExit(Sender: TObject); begin - Y_Spec.Style.Color := clWhite; Y_Composition.Style.Color := clWhite; + ZS.Style.Color := clWhite; Y_Color.Style.Color := clWhite; + FF.Style.Color := clWhite; + CJ.Style.Color := clWhite; end; procedure TfrmYarnInfoInPut.Y_SpecPropertiesChange(Sender: TObject); begin - Y_Name.text := Trim(Y_Spec.text) + Trim(Y_Composition.text) + Trim(Y_Color.text); + Y_Name.text := Trim(Y_Composition.text) + Trim(ZS.text) + Trim(Y_Color.text) + Trim(FF.text) + Trim(CJ.text); end; procedure TfrmYarnInfoInPut.ZSClick(Sender: TObject); @@ -344,7 +373,7 @@ end; procedure TfrmYarnInfoInPut.ZSPropertiesEditValueChanged(Sender: TObject); begin - Denier.text := floattostr(roundfloat(9000 / strtofloatdef(ZS.text, 0), 2)); + Denier.text := floattostr(roundfloat(5315.5 / strtofloatdef(ZS.text, 0), 0)); end; end. diff --git a/B02基础纱线仓库/U_YarnInfoList.dfm b/B02基础纱线仓库/U_YarnInfoList.dfm index 0636c0c..5fea1f3 100644 --- a/B02基础纱线仓库/U_YarnInfoList.dfm +++ b/B02基础纱线仓库/U_YarnInfoList.dfm @@ -3,9 +3,9 @@ inherited frmYarnInfoList: TfrmYarnInfoList Top = 106 Caption = #32433#32447#20449#24687#21015#34920 ClientHeight = 556 - ClientWidth = 1234 + ClientWidth = 1357 Font.Height = -16 - ExplicitWidth = 1250 + ExplicitWidth = 1373 ExplicitHeight = 595 PixelsPerInch = 96 TextHeight = 21 @@ -13,7 +13,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList Tag = 1 Left = 0 Top = 0 - Width = 1234 + Width = 1357 Height = 30 AutoSize = True ButtonHeight = 30 @@ -31,6 +31,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList ParentFont = False ShowCaptions = True TabOrder = 3 + ExplicitWidth = 1256 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -136,7 +137,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList object Panel1: TPanel [1] Left = 0 Top = 30 - Width = 1234 + Width = 1357 Height = 43 Align = alTop BevelInner = bvRaised @@ -144,6 +145,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList Color = clWhite ParentBackground = False TabOrder = 4 + ExplicitWidth = 1256 object Label2: TLabel Left = 226 Top = 10 @@ -210,10 +212,11 @@ inherited frmYarnInfoList: TfrmYarnInfoList object cxGrid1: TcxGrid [2] Left = 0 Top = 73 - Width = 1234 + Width = 1357 Height = 483 Align = alClient TabOrder = 2 + ExplicitWidth = 1256 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -353,7 +356,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList Width = 89 end object v1Column9: TcxGridDBColumn - Caption = #29702#35770'D'#25968 + Caption = #20998#29305'(Dtex)' DataBinding.FieldName = 'Denier' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter @@ -410,6 +413,22 @@ inherited frmYarnInfoList: TfrmYarnInfoList Options.Editing = False Width = 100 end + object Tv1Column9: TcxGridDBColumn + Caption = #21378#23478 + DataBinding.FieldName = 'CJ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column10: TcxGridDBColumn + Caption = #29702#35770#25439#32791 + DataBinding.FieldName = 'LLSH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end object v1Column12: TcxGridDBColumn Tag = 2 Caption = #22791#27880 @@ -417,7 +436,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 102 + Width = 103 end end object cxGrid1Level1: TcxGridLevel diff --git a/B02基础纱线仓库/U_YarnInfoList.pas b/B02基础纱线仓库/U_YarnInfoList.pas index 7a084c3..6047c11 100644 --- a/B02基础纱线仓库/U_YarnInfoList.pas +++ b/B02基础纱线仓库/U_YarnInfoList.pas @@ -84,6 +84,8 @@ type ToolButton5: TToolButton; Y_Spec: TcxComboBox; Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); diff --git a/B02基础纱线仓库/YarnStk.dpr b/B02基础纱线仓库/YarnStk.dpr index 7a82f64..4b2d351 100644 --- a/B02基础纱线仓库/YarnStk.dpr +++ b/B02基础纱线仓库/YarnStk.dpr @@ -18,14 +18,12 @@ uses U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, U_AttachmentUpload in '..\A00ͨô\U_AttachmentUpload.pas' {frmFjList_RZ}, U_ClothInfoSel in '..\A00ͨô\U_ClothInfoSel.pas' {frmClothInfoSel}, - U_CompanySel in '..\A00ͨô\U_CompanySel.pas' {frmCompanySel}, U_EmployeeSel in '..\A00ͨô\U_EmployeeSel.pas' {frmEmployeeSel}, U_YarnStkList in 'U_YarnStkList.pas' {frmYarnStkList}, U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload}, U_YarnInfoSel in '..\A00ͨô\U_YarnInfoSel.pas' {frmYarnInfoSel}, U_testdll in 'U_testdll.pas' {Form1}, U_ClothPurchasePlanSel in '..\A00ͨô\U_ClothPurchasePlanSel.pas' {frmClothPurchasePlanSel}, -// U_JWLPurchasePlanSel in '..\B03ϲֿ\U_JWLPurchasePlanSel.pas' {frmJWLPurchasePlanSel}, U_YarnWeighing in 'U_YarnWeighing.pas' {frmYarnWeighing}, U_CPSelBig in 'U_CPSelBig.pas' {frmCPSelBig}, U_LabelMapSet in '..\A00ͨô\U_LabelMapSet.pas' {frmLabelMapSet}, @@ -50,7 +48,8 @@ uses U_YarnPurOutReturn1 in 'U_YarnPurOutReturn1.pas' {frmYarnPurOutReturn1}, U_YarnInList_RC in 'U_YarnInList_RC.pas' {frmYarnInList_RC}, U_YarnPurchasePlanSel in '..\A00ͨô\U_YarnPurchasePlanSel.pas' {frmYarnPurchasePlanSel}, - uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; + uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', + U_CompanySel in '..\A00ͨô\U_CompanySel.pas' {frmCompanySel}; {$R *.res} diff --git a/B02基础纱线仓库/YarnStk.dproj b/B02基础纱线仓库/YarnStk.dproj index 1437bcc..f4840d3 100644 --- a/B02基础纱线仓库/YarnStk.dproj +++ b/B02基础纱线仓库/YarnStk.dproj @@ -162,10 +162,6 @@
frmClothInfoSel
dfm - -
frmCompanySel
- dfm -
frmEmployeeSel
dfm @@ -274,6 +270,10 @@ dfm + +
frmCompanySel
+ dfm + Cfg_2 Base diff --git a/B02基础纱线仓库/YarnStk.dproj.local b/B02基础纱线仓库/YarnStk.dproj.local index d873628..d7ab8fc 100644 --- a/B02基础纱线仓库/YarnStk.dproj.local +++ b/B02基础纱线仓库/YarnStk.dproj.local @@ -1,92 +1,92 @@  + 1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899-12-30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas 1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas - 1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas - 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas - 1899-12-30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas - 1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm - 1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm - 1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm - 1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas= + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899-12-30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas + 1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas + 1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm + 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas= + 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj + 1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas + 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm + 1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas 1899-12-30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas - 1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas= - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas - 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas + 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas + 1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm 1899-12-30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas 1899-12-30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas + 1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas 1899-12-30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas - 1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas + 1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas= 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm - 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas - 1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas + 1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas 1899-12-30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas - 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm + 1899-12-30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas + 1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm + 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas + 1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas 1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas - 1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj - 1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas= - 1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas + 1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas + 1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas + 1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas= + 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas + 1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm + 1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas 1899-12-30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas 1899-12-30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas - 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm - 1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas - 1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas - 1899-12-30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm - 1899-12-30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas - 1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas - 1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm + 1899-12-30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas + 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas= 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas - 1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas + 1899-12-30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas + 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm + 1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas + 1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas + 1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm + 1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas 1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899-12-30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm @@ -117,7 +117,7 @@ - + diff --git a/B03基础物料仓库/ProductStk.identcache b/B03基础物料仓库/ProductStk.identcache index b452c632fcdf4f160481faee7b1527cf92f25a2e..2068a09a390bea145624a3acaf31ee165a2797e4 100644 GIT binary patch delta 344 zcmXX?y-LGS7$s@a{5PqMHdJlWph5;0ois`f+M;w21ufc2D-jnT!o|HN$3r%W1Q;ybbM?}lb8`!@SY2!q>i)vLF#?M zIXIEm=)R5*t%^5p7LIDtT%sO*a@~uS05ALzNdoK|7CoQGmr%mD+99ltAEtst?BYqP z#XN`S+&CDqP3v-+(9|80HxX%NSj8<23KQx6s+K7sKts0Ec`e$+_sG)2Kp(@k delta 363 zcmW-du}Z^G6oyICB)z#MZS<1Rw9>TTpimGxY1J6SXhlaAtJZ2kSD(OH9K_@YCj|vJ z(Km2V7hl1}SrHv{=%V0BrgJ&}x!?Kj?brIX(;n(d1Jj)2Om^_9)bODWp=@o$(hkbT zI^N_taNa;yVYrY=Xy-!sa*;-ToS0qg@+!WKBKFi?EG^4aDVm&;=O| - - - + + + diff --git a/B04采购计划管理/PurchasePlan.dpr b/B04采购计划管理/PurchasePlan.dpr index 51143c5..50bf170 100644 --- a/B04采购计划管理/PurchasePlan.dpr +++ b/B04采购计划管理/PurchasePlan.dpr @@ -37,7 +37,8 @@ uses U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas', U_TatClothInfoSel in '..\A00ͨô\U_TatClothInfoSel.pas' {frmTatClothInfoSel}, U_TradeSalesContractSel in '..\T00óͨô\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, - uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; + uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', + U_ProductInfoSel in '..\A00ͨô\U_ProductInfoSel.pas' {frmProductInfoSel}; {$R *.res} diff --git a/B04采购计划管理/PurchasePlan.dproj b/B04采购计划管理/PurchasePlan.dproj index 61133bc..c51ca93 100644 --- a/B04采购计划管理/PurchasePlan.dproj +++ b/B04采购计划管理/PurchasePlan.dproj @@ -226,6 +226,10 @@ dfm + +
frmProductInfoSel
+ dfm + Cfg_2 Base diff --git a/B04采购计划管理/PurchasePlan.dproj.local b/B04采购计划管理/PurchasePlan.dproj.local index d3b7956..b5184a5 100644 --- a/B04采购计划管理/PurchasePlan.dproj.local +++ b/B04采购计划管理/PurchasePlan.dproj.local @@ -1,50 +1,51 @@  - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas - 1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm 1899-12-30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas= - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899-12-30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas 1899-12-30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 1899-12-30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899-12-30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899-12-30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 1899-12-30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas 1899-12-30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas - 1899-12-30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj - 1899-12-30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas + 1899-12-30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas + 1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj + 1899-12-30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 2025-04-23 14:43:20.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas @@ -93,6 +94,8 @@ + + diff --git a/B04采购计划管理/U_GetDllForm.pas b/B04采购计划管理/U_GetDllForm.pas index 9d9f3b5..677c96b 100644 --- a/B04采购计划管理/U_GetDllForm.pas +++ b/B04采购计划管理/U_GetDllForm.pas @@ -70,10 +70,10 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; + server := '150.109.121.232,7781'; dtbase := 'KaiXiYadata'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; + user := 'kaixiyasa'; + pswd := 'rightsoft,.KXY@YN'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; Parameters1 := ''; end diff --git a/B04采购计划管理/U_YarnPurchasePlanList.dfm b/B04采购计划管理/U_YarnPurchasePlanList.dfm index 8f60fed..50a708c 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList.dfm +++ b/B04采购计划管理/U_YarnPurchasePlanList.dfm @@ -178,10 +178,11 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Left = 0 Top = 168 Width = 1364 - Height = 297 + Height = 294 Align = alClient PopupMenu = pm1 TabOrder = 3 + ExplicitHeight = 297 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -384,7 +385,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList BevelOuter = bvLowered Color = clWhite ParentBackground = False - TabOrder = 1 + TabOrder = 5 object Label4: TLabel Left = 452 Top = 45 @@ -450,8 +451,12 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList ExplicitLeft = 2 ExplicitTop = 2 ExplicitWidth = 1360 - inherited cbbType: TcxComboBox - ExplicitHeight = 29 + ExplicitHeight = 37 + inherited lbl2: TLabel + Width = 16 + Height = 21 + ExplicitWidth = 16 + ExplicitHeight = 21 end end object Y_Name: TcxTextEdit @@ -486,22 +491,29 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList end object cxSplitter1: TcxSplitter [4] Left = 0 - Top = 465 + Top = 729 Width = 1364 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom + ExplicitTop = 465 end - object cxGrid2: TcxGrid [5] + inherited cxProgressBar2: TcxProgressBar + Left = 391 + Top = 295 + ExplicitLeft = 391 + ExplicitTop = 295 + ExplicitHeight = 29 + end + object cxGrid2: TcxGrid [7] Left = 0 - Top = 473 + Top = 462 Width = 1364 - Height = 264 + Height = 267 Align = alBottom BorderStyle = cxcbsNone - PopupMenu = pm2 - TabOrder = 5 - object TV2: TcxGridDBTableView + TabOrder = 7 + object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_2 @@ -532,11 +544,10 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList end item Kind = skSum - Column = cxGridDBColumn9 + Column = cxGridDBColumn6 end item Kind = skSum - Column = TV2Column5 end> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True @@ -555,163 +566,111 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Options.Editing = False SortIndex = 0 SortOrder = soAscending - Width = 55 + Width = 70 end - object TV2Column15: TcxGridDBColumn - Caption = #23384#25918#21333#20301 - DataBinding.FieldName = 'StkName2' + object Tv21Column18: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'C_Degree' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 100 + Width = 72 end - object TV2Column2: TcxGridDBColumn - Caption = #20132#36135#26085#26399 - DataBinding.FieldName = 'SDlyDate' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 109 - end - object TV2Column10: TcxGridDBColumn + object cxGridDBColumn2: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'Y_Code' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Width = 67 + end + object Tv21Column16: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end - object TV2Column9: TcxGridDBColumn - Caption = #21697#21517 - DataBinding.FieldName = 'Yarn_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object cxGridDBColumn2: TcxGridDBColumn + object cxGridDBColumn3: TcxGridDBColumn Caption = #35268#26684 - DataBinding.FieldName = 'Y_Name' + DataBinding.FieldName = 'Y_Spec' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 end - object TV2Column3: TcxGridDBColumn - Caption = #24037#24207 - DataBinding.FieldName = 'GX' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end object v1Column5: TcxGridDBColumn - Caption = #32463#32433'/'#32428#32433 - DataBinding.FieldName = 'Y_Spec' + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 105 + Width = 122 end - object TV2Column11: TcxGridDBColumn - Caption = 'D'#25968 + object Tv21Column11: TcxGridDBColumn + Caption = #20998#29305'(Dtex)' DataBinding.FieldName = 'Denier' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 80 + Width = 117 end - object TV2Column12: TcxGridDBColumn + object Tv21Column14: TcxGridDBColumn Caption = #25903#25968 - DataBinding.FieldName = 'Z_Number' + DataBinding.FieldName = 'ZS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 80 + Width = 82 end - object TV2Column13: TcxGridDBColumn - Caption = 'F'#25968 - DataBinding.FieldName = 'F_Number' + object Tv21Column15: TcxGridDBColumn + Caption = #32442#27861 + DataBinding.FieldName = 'FF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 80 + Width = 70 end object cxGridDBColumn4: TcxGridDBColumn - Caption = #32433#32447#31561#32423 - DataBinding.FieldName = 'Y_Type' + Caption = #25467#24230 + DataBinding.FieldName = 'ND' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'A' + 'B' + 'C') HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 104 + Width = 95 end object cxGridDBColumn5: TcxGridDBColumn - Caption = #26412#21378#25209#21495 - DataBinding.FieldName = 'BCPH' + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 91 - end - object TV2Column1: TcxGridDBColumn - Caption = #20379#24212#21830#25209#21495 - DataBinding.FieldName = 'GYSPH' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 103 - end - object TV2Column6: TcxGridDBColumn - Caption = #21152#24037#25209#21495 - DataBinding.FieldName = 'JGPH' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object TV2Column7: TcxGridDBColumn - Caption = #31665#25968'/'#21253#25968 - DataBinding.FieldName = 'Piece' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 98 - end - object TV2Column4: TcxGridDBColumn - Caption = #21333#31665#37325#37327 - DataBinding.FieldName = 'PieceKG' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 88 - end - object TV2Column8: TcxGridDBColumn - Caption = #27599#21253#39063#25968 - DataBinding.FieldName = 'KeShu' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object TV2Column16: TcxGridDBColumn - Caption = #27599#39063#37325#37327 - DataBinding.FieldName = 'KeKg' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 + Width = 108 end object v1PRTOrderQty: TcxGridDBColumn - Caption = #24635#37325#37327 + Caption = #25968#37327 DataBinding.FieldName = 'Qty' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 81 + Width = 94 end object v1OrderUnit: TcxGridDBColumn - Caption = #25968#37327#21333#20301 + Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' @@ -722,10 +681,10 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList 'Y') HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 86 + Width = 80 end object v1PRTPrice: TcxGridDBColumn - Caption = #21547#31246#21333#20215 + Caption = #21333#20215 DataBinding.FieldName = 'Price' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' @@ -734,22 +693,23 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Options.Sorting = False Width = 90 end - object cxGridDBColumn9: TcxGridDBColumn - Caption = #21547#31246#37329#39069 + object cxGridDBColumn6: TcxGridDBColumn + Caption = #37329#39069 DataBinding.FieldName = 'Amount' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 84 + Width = 90 end - object TV2Column14: TcxGridDBColumn - Caption = #19981#21547#31246#37329#39069 - DataBinding.FieldName = 'Amount2' + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'SDlyDate' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 100 + Width = 109 end object v1Column2: TcxGridDBColumn Caption = #22791#27880 @@ -757,45 +717,13 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 70 - end - object TV2Column5: TcxGridDBColumn - Caption = #25910#36135#25968#37327 - DataBinding.FieldName = 'YDHQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 131 - end - object TV2Column17: TcxGridDBColumn - Caption = #23454#38469#21333#20215 - DataBinding.FieldName = 'SJPrice' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object TV2Column18: TcxGridDBColumn - Caption = #23454#38469#37329#39069 - DataBinding.FieldName = 'SJMoney' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = TextEdit - HeaderAlignmentHorz = taCenter - Width = 100 + Width = 122 end end object cxGridLevel1: TcxGridLevel - GridView = TV2 + GridView = Tv2 end end - inherited cxProgressBar2: TcxProgressBar - Left = 391 - Top = 295 - ExplicitLeft = 391 - ExplicitTop = 295 - ExplicitHeight = 28 - end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_PurchasePlan.ADOLink Left = 233 diff --git a/B04采购计划管理/U_YarnPurchasePlanList.pas b/B04采购计划管理/U_YarnPurchasePlanList.pas index d921b7b..b09bcd2 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList.pas +++ b/B04采购计划管理/U_YarnPurchasePlanList.pas @@ -10,26 +10,10 @@ uses cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, - cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator, dxDateRanges, dxBarBuiltInMenu, - U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, - dxScrollbarAnnotations, FrameDateSel, cxContainer, - - - - - - - - - - - - - - - - cxProgressBar; + cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg, + RM_E_llPDF, Vcl.Clipbrd, dxScrollbarAnnotations, FrameDateSel, cxContainer, + cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters; type TfrmYarnPurchasePlanList = class(TfrmBaseList) @@ -89,28 +73,11 @@ type ToolButton7: TToolButton; N3: TMenuItem; N4: TMenuItem; - cxGrid2: TcxGrid; - TV2: TcxGridDBTableView; - v1XHNo: TcxGridDBColumn; - cxGridDBColumn2: TcxGridDBColumn; - v1Column5: TcxGridDBColumn; - cxGridDBColumn4: TcxGridDBColumn; - cxGridDBColumn5: TcxGridDBColumn; - v1PRTOrderQty: TcxGridDBColumn; - v1OrderUnit: TcxGridDBColumn; - v1PRTPrice: TcxGridDBColumn; - cxGridDBColumn9: TcxGridDBColumn; - v1Column2: TcxGridDBColumn; - cxGridLevel1: TcxGridLevel; N5: TMenuItem; N6: TMenuItem; - TV2Column1: TcxGridDBColumn; frmFrameDateSel1: TfrmFrameDateSel; - TV2Column2: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; - TV2Column4: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; - TV2Column5: TcxGridDBColumn; Label1: TLabel; Y_Name: TcxTextEdit; cxStyleRepository1: TcxStyleRepository; @@ -119,26 +86,32 @@ type cxStyle2: TcxStyle; Tv1Column4: TcxGridDBColumn; ADO_1: TADOQuery; - TV2Column6: TcxGridDBColumn; - TV2Column7: TcxGridDBColumn; - TV2Column9: TcxGridDBColumn; - TV2Column10: TcxGridDBColumn; - TV2Column11: TcxGridDBColumn; - TV2Column12: TcxGridDBColumn; - TV2Column13: TcxGridDBColumn; - TV2Column14: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; - TV2Column15: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; - TV2Column8: TcxGridDBColumn; - TV2Column16: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; - TV2Column3: TcxGridDBColumn; - TV2Column17: TcxGridDBColumn; - TV2Column18: TcxGridDBColumn; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v1XHNo: TcxGridDBColumn; + Tv21Column18: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + Tv21Column16: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Tv21Column11: TcxGridDBColumn; + Tv21Column14: TcxGridDBColumn; + Tv21Column15: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.dfm b/B04采购计划管理/U_YarnPurchasePlanPut.dfm index 1fd57ad..d89d98d 100644 --- a/B04采购计划管理/U_YarnPurchasePlanPut.dfm +++ b/B04采购计划管理/U_YarnPurchasePlanPut.dfm @@ -64,7 +64,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 67 + ButtonWidth = 115 Caption = 'ToolBar1' Color = clBtnFace DisabledImages = DataLink_PurchasePlan.cxImageList_bar @@ -79,12 +79,20 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Left = 0 Top = 0 AutoSize = True - Caption = #22686#34892 + Caption = #32433#32447#26723#26696 ImageIndex = 2 OnClick = ToolButton1Click end + object ToolButton4: TToolButton + Left = 103 + Top = 0 + AutoSize = True + Caption = #26426#29289#26009#26723#26696 + ImageIndex = 2 + OnClick = ToolButton4Click + end object ToolButton2: TToolButton - Left = 71 + Left = 222 Top = 0 AutoSize = True Caption = #21024#34892 @@ -136,7 +144,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut end item Kind = skSum - Column = Tv1Column21 end> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True @@ -168,8 +175,8 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Width = 70 end object Tv1Column18: TcxGridDBColumn - Caption = #23384#25918#21333#20301 - DataBinding.FieldName = 'StkName2' + Caption = #31867#22411 + DataBinding.FieldName = 'C_Degree' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < @@ -180,26 +187,20 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Properties.ReadOnly = True Properties.OnButtonClick = Tv1Column18PropertiesButtonClick HeaderAlignmentHorz = taCenter - Width = 103 - end - object Tv1Column3: TcxGridDBColumn - Caption = #20132#36135#26085#26399 - DataBinding.FieldName = 'SDlyDate' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxDateEditProperties' - HeaderAlignmentHorz = taCenter - Width = 109 + Options.Editing = False + Width = 72 end object Tv1Column2: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'Y_Code' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 67 end object Tv1Column16: TcxGridDBColumn Caption = #21697#21517 - DataBinding.FieldName = 'Yarn_Name' + DataBinding.FieldName = 'Y_Code' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False @@ -207,61 +208,47 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut end object v1Column4: TcxGridDBColumn Caption = #35268#26684 - DataBinding.FieldName = 'Y_Name' + DataBinding.FieldName = 'Y_Spec' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 end - object Tv1Column12: TcxGridDBColumn - Caption = #24037#24207 - DataBinding.FieldName = 'GX' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.OnButtonClick = Tv1Column12PropertiesButtonClick - HeaderAlignmentHorz = taCenter - Width = 100 - end object v1Column5: TcxGridDBColumn - Caption = #32463#32433'/'#32428#32433 - DataBinding.FieldName = 'Y_Spec' + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 122 end object Tv1Column11: TcxGridDBColumn - Caption = 'D'#25968 + Caption = #20998#29305'(Dtex)' DataBinding.FieldName = 'Denier' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 70 + Width = 117 end object Tv1Column14: TcxGridDBColumn Caption = #25903#25968 - DataBinding.FieldName = 'Z_Number' + DataBinding.FieldName = 'ZS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 82 end object Tv1Column15: TcxGridDBColumn - Caption = 'F'#25968 - DataBinding.FieldName = 'F_Number' + Caption = #32442#27861 + DataBinding.FieldName = 'FF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 end object Tv1Column1: TcxGridDBColumn - Caption = #32433#32447#31561#32423 - DataBinding.FieldName = 'Y_Type' + Caption = #25467#24230 + DataBinding.FieldName = 'ND' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.Items.Strings = ( @@ -269,65 +256,19 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut 'B' 'C') HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 95 end - object Tv1Column4: TcxGridDBColumn - Caption = #26412#21378#25209#21495 - DataBinding.FieldName = 'BCPH' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end object Tv1Column5: TcxGridDBColumn - Caption = #20379#24212#21830#25209#21495 - DataBinding.FieldName = 'GYSPH' + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 108 end - object Tv1Column6: TcxGridDBColumn - Caption = #21152#24037#25209#21495 - DataBinding.FieldName = 'JGPH' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column8: TcxGridDBColumn - Caption = #31665#25968'/'#21253#25968 - DataBinding.FieldName = 'Piece' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged - HeaderAlignmentHorz = taCenter - Width = 100 - end - object Tv1Column10: TcxGridDBColumn - Caption = #21333#31665#37325#37327 - DataBinding.FieldName = 'PieceKG' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column13: TcxGridDBColumn - Caption = #27599#21253#39063#25968 - DataBinding.FieldName = 'KeShu' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged - HeaderAlignmentHorz = taCenter - Width = 100 - end - object Tv1Column19: TcxGridDBColumn - Caption = #27599#39063#37325#37327 - DataBinding.FieldName = 'KeKG' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 100 - end object v1PRTOrderQty: TcxGridDBColumn - Caption = #24635#37325#37327 + Caption = #25968#37327 DataBinding.FieldName = 'Qty' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' @@ -336,7 +277,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Width = 94 end object v1OrderUnit: TcxGridDBColumn - Caption = #25968#37327#21333#20301 + Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' @@ -349,7 +290,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Width = 80 end object v1PRTPrice: TcxGridDBColumn - Caption = #21547#31246#21333#20215 + Caption = #21333#20215 DataBinding.FieldName = 'Price' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' @@ -359,7 +300,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Width = 90 end object Tv1Column9: TcxGridDBColumn - Caption = #21547#31246#37329#39069 + Caption = #37329#39069 DataBinding.FieldName = 'Amount' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' @@ -367,40 +308,20 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Options.Editing = False Width = 90 end - object Tv1Column17: TcxGridDBColumn - Caption = #19981#21547#31246#37329#39069 - DataBinding.FieldName = 'Amount2' + object Tv1Column3: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'SDlyDate' DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' + PropertiesClassName = 'TcxDateEditProperties' HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv1Column20: TcxGridDBColumn - Caption = #23454#38469#21333#20215 - DataBinding.FieldName = 'SJPrice' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv1Column21: TcxGridDBColumn - Caption = #23454#38469#37329#39069 - DataBinding.FieldName = 'SJMoney' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged - HeaderAlignmentHorz = taCenter - Width = 100 + Width = 109 end object v1Column2: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'SNote' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 48 + Width = 122 end end object cxGrid1Level1: TcxGridLevel diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.pas b/B04采购计划管理/U_YarnPurchasePlanPut.pas index 8543932..a9d9769 100644 --- a/B04采购计划管理/U_YarnPurchasePlanPut.pas +++ b/B04采购计划管理/U_YarnPurchasePlanPut.pas @@ -10,28 +10,12 @@ uses cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator, - dxDateRanges, dxBarBuiltInMenu, dxDateTimeWheelPicker, dxGDIPlusClasses, - Vcl.Menus, MovePanel, cxCheckBox, cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, - System.ImageList, Vcl.ImgList, IdBaseComponent, IdComponent, IdTCPConnection, - IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, - dxScrollbarAnnotations, dxCore, cxDateUtils, - - - - - - - - - - - - - - - - cxImageList, dxSkinsCore, dxSkinsDefaultPainters; + cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, + dxDateTimeWheelPicker, dxGDIPlusClasses, Vcl.Menus, MovePanel, cxCheckBox, + cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, System.ImageList, Vcl.ImgList, + IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, + IdExplicitTLSClientServerBase, IdFTP, ShellAPI, dxScrollbarAnnotations, dxCore, + cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters; type TfrmYarnPurchasePlanPut = class(TfrmBaseInput) @@ -91,26 +75,17 @@ type cxGridLevel2: TcxGridLevel; TV2Column4: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; - Tv1Column4: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn; - Tv1Column6: TcxGridDBColumn; - Tv1Column8: TcxGridDBColumn; - Tv1Column10: TcxGridDBColumn; Label1: TLabel; StkName: TcxButtonEdit; Tv1Column11: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn; Tv1Column16: TcxGridDBColumn; - Tv1Column17: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn; Label2: TLabel; ShuiLv: TcxTextEdit; - Tv1Column13: TcxGridDBColumn; - Tv1Column19: TcxGridDBColumn; - Tv1Column12: TcxGridDBColumn; - Tv1Column20: TcxGridDBColumn; - Tv1Column21: TcxGridDBColumn; + ToolButton4: TToolButton; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -138,6 +113,7 @@ type procedure ShuiLvPropertiesEditValueChanged(Sender: TObject); procedure IsTaxPropertiesChange(Sender: TObject); procedure Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton4Click(Sender: TObject); private FLeft, FTop: Integer; fuserName, Fstatus: string; @@ -166,7 +142,8 @@ var implementation uses - U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel, U_YarnInfoSel; + U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel, U_YarnInfoSel, + U_ProductInfoSel; {$R *.dfm} @@ -384,16 +361,6 @@ begin if Order_Sub.IsEmpty then raise Exception.Create('ϸΪգ'); - if Order_Sub.Locate('StkName2', null, []) then - raise Exception.Create('ŵλΪգ'); - if Order_Sub.Locate('StkName2', '', []) then - raise Exception.Create('ŵλΪգ'); - - if Order_Sub.Locate('SDlyDate', null, []) then - raise Exception.Create('ڲΪգ'); - if Order_Sub.Locate('SDlyDate', '', []) then - raise Exception.Create('ڲΪգ'); - if Order_Sub.Locate('Y_Name', null, []) then raise Exception.Create('ƷΪգ'); if Order_Sub.Locate('Y_Name', '', []) then @@ -409,19 +376,6 @@ begin if Order_Sub.Locate('QtyUnit', '', []) then raise Exception.Create('λΪգ'); - if PurType.text <> '' then - begin - if Order_Sub.Locate('Amount', null, []) then - raise Exception.Create('˰Ϊգ'); - if Order_Sub.Locate('Amount', 0, []) then - raise Exception.Create('˰Ϊ0'); - - if Order_Sub.Locate('Amount2', null, []) then - raise Exception.Create('˰Ϊգ'); - if Order_Sub.Locate('Amount2', 0, []) then - raise Exception.Create('˰Ϊ0'); - end; - Result := True; except Result := false; @@ -813,53 +767,18 @@ begin FieldByName(FFieldName).Value := Trim(mvalue); Post; - FPiece := Fieldbyname('Piece').AsFloat; - FPieceKG := Fieldbyname('PieceKG').AsFloat; - FPrice := Fieldbyname('Price').AsFloat; //˰ - FSJMoney := Fieldbyname('SJMoney').AsFloat; //ʵʽ - FSL := StrToFloatdef(ShuiLv.text, 0); - - FKeShu := Fieldbyname('KeShu').AsInteger; - FKeKG := Fieldbyname('KeKG').AsFloat; + FQty := Fieldbyname('Qty').AsFloat; + FPrice := Fieldbyname('Price').AsFloat; // end; - if FFieldName <> 'Qty' then - begin - FQty := RoundFloat(FPieceKG * FPiece, 2); - end - else - begin - FQty := strtofloatdef(mvalue, 0); - end; - - if FKeShu > 0 then - begin - FKeKG := RoundFloat(FPieceKG / FKeShu, 0); //ÿ=ÿ/ÿ - end; - - FAmount := RoundFloat(FQty * FPrice, 2); //˰ - FAmount2 := RoundFloat(FQty * FPrice * FSL, 2); //˰ - - if FQty > 0 then - FSJPrice := RoundFloat(FSJMoney / FQty, 2); //ʵʽ + FAmount := RoundFloat(FQty * FPrice, 2); // with Order_Sub do begin Edit; - FieldByName('PieceKG').Value := FPieceKG; - FieldByName('Piece').Value := FPiece; FieldByName('Qty').Value := FQty; - - FieldByName('KeShu').Value := FKeShu; - FieldByName('KeKG').Value := FKeKG; - FieldByName('Price').Value := FPrice; - FieldByName('SJPrice').Value := FSJPrice; - FieldByName('Amount').Value := FAmount; - FieldByName('Amount2').Value := FAmount2; - - FieldByName('SJMoney').Value := FSJMoney; Post; end; tv1.Controller.EditingController.ShowEdit(); @@ -884,8 +803,6 @@ begin frmYarnInfoSel := TfrmYarnInfoSel.Create(Application); with frmYarnInfoSel do begin -// ISDJ := 1; - FSTKName := 'ɴԭ'; if ShowModal = 1 then begin with CDS_1 do @@ -902,52 +819,22 @@ begin FieldByName('SerialNo').Value := i; FieldByName('PurSId').Value := maxno + INTTOSTR(i); + FieldByName('C_Degree').Value := 'ɴ'; FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value; - FieldByName('Yarn_Name').Value := CDS_1.fieldbyname('Yarn_Name').value; FieldByName('Y_Name').Value := CDS_1.fieldbyname('Y_Name').value; FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value; + FieldByName('Y_Composition').Value := CDS_1.fieldbyname('Y_Composition').value; FieldByName('Denier').Value := CDS_1.fieldbyname('Denier').value; - FieldByName('Z_Number').Value := CDS_1.fieldbyname('Z_Number').value; - FieldByName('F_Number').Value := CDS_1.fieldbyname('F_Number').value; + FieldByName('ZS').Value := CDS_1.fieldbyname('ZS').value; - FieldByName('Price').Value := Cds_1.FieldByName('SXPrice').Value; + FieldByName('FF').Value := CDS_1.fieldbyname('FF').value; + FieldByName('ND').Value := Cds_1.FieldByName('ND').Value; - if Trim(Shuilv.text) <> '' then - begin - FieldByName('Price2').Value := Cds_1.FieldByName('SXPrice').Value * StrToFloatdef(Trim(Shuilv.text), 0); - end; - - with ADOCmd do - begin - Close; - sql.Clear; - sql.Add(' select top 1 A.BCPH from Pur_YarnPlan_Sub A '); - sql.Add(' INNER JOIN Pur_YarnPlan_Main B on A.PurMId=B.PurMId '); - sql.Add(' where Y_Code=''' + Trim(CDS_1.fieldbyname('Y_Code').AsString) + ''''); - sql.Add(' Order by B.Filltime desc'); - Open; - end; - MAX_BCPH := Trim(ADOCmd.FieldByName('BCPH').AsString); - - if MAX_BCPH <> '' then - begin - with ADOCmd do - begin - Close; - sql.Clear; - sql.Add(' select * from [dbo].[SplitLettersAndNumbers](''' + Trim(MAX_BCPH) + ''); - sql.Add(' '')'); -// ShowMessage(sql.text); - Open; - end; - ZM := ADOCmd.FieldByName('letters').AsString; - SZ := ADOCmd.FieldByName('numbers').AsInteger; - end; - - FieldByName('BCPH').Value := ZM + FloatTostr(SZ + 1); + FieldByName('Y_Color').Value := Cds_1.FieldByName('Y_Color').Value; FieldByName('Qty').Value := 0; + FieldByName('Price').Value := 0; FieldByName('QtyUnit').Value := 'Kg'; end; @@ -1006,6 +893,64 @@ begin WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ۺͬ'); end; +procedure TfrmYarnPurchasePlanPut.ToolButton4Click(Sender: TObject); +var + i, SZ: Integer; + maxno, MAX_BCPH, ZM: string; +begin + + if GetLSNo(ADOCmd, maxno, 'PS', 'Pur_YarnPlan_Sub', 4, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + i := Order_Sub.RecordCount + 1; //ǰdatasetжм¼ + + + try + frmProductInfoSel := TfrmProductInfoSel.Create(Application); + with frmProductInfoSel do + begin + if ShowModal = 1 then + begin + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + with Self.Order_Sub do + begin + Append; + FieldByName('SSEL').Value := False; + FieldByName('SerialNo').Value := i; + FieldByName('PurSId').Value := maxno + INTTOSTR(i); + + FieldByName('C_Degree').Value := ''; + FieldByName('Y_Code').Value := CDS_1.fieldbyname('P_Code').value; + FieldByName('Y_Name').Value := CDS_1.fieldbyname('P_Name').value; + FieldByName('Y_Spec').Value := CDS_1.fieldbyname('P_Spec').value; + + FieldByName('Qty').Value := 0; + FieldByName('Price').Value := CDS_1.fieldbyname('Price').value; + FieldByName('QtyUnit').Value := 'Kg'; + + end; + end; + i := i + 1; + Next; + end; + end; + end; + end; + finally + frmProductInfoSel.Free; + end; + SetXH(); +end; + procedure TfrmYarnPurchasePlanPut.Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try diff --git a/B04采购计划管理/testDll.identcache b/B04采购计划管理/testDll.identcache index 2313f0716950a4d3e7df0994cc991293e07615b0..de25106d5019ed752d918aff75583b295d87d5db 100644 GIT binary patch delta 43 ncmdnOxQUUKiGhK^b7GtVyLVz{L}p~-L|yTTbHy3GQG^Tt`^5}d delta 42 mcmdnQxP_6GiGhK^XJWJhhgW8vb4F@j`oty!MlTcr9X$Z_{tRgV diff --git a/E02梭织经轴仓库/U_GetDllForm.pas b/E02梭织经轴仓库/U_GetDllForm.pas index 7164bd1..bf1aae8 100644 --- a/E02梭织经轴仓库/U_GetDllForm.pas +++ b/E02梭织经轴仓库/U_GetDllForm.pas @@ -75,10 +75,10 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; + server := '150.109.121.232,7781'; dtbase := 'KaiXiYadata'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; + user := 'kaixiyasa'; + pswd := 'rightsoft,.KXY@YN'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; Parameters1 := ''; Parameters2 := ''; diff --git a/E02梭织经轴仓库/U_WBSpecInPut.dfm b/E02梭织经轴仓库/U_WBSpecInPut.dfm index fab5f53..84b3b98 100644 --- a/E02梭织经轴仓库/U_WBSpecInPut.dfm +++ b/E02梭织经轴仓库/U_WBSpecInPut.dfm @@ -2,24 +2,23 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 88 Top = 141 Caption = #25972#32463#24037#33402#24405#20837 - ClientHeight = 755 + ClientHeight = 863 ClientWidth = 1115 Color = clWhite Font.Height = -16 Position = poMainFormCenter ExplicitWidth = 1131 - ExplicitHeight = 794 + ExplicitHeight = 902 PixelsPerInch = 96 TextHeight = 21 object cxGrid1: TcxGrid [0] Left = 0 Top = 455 Width = 1115 - Height = 300 + Height = 408 Align = alClient TabOrder = 0 - ExplicitTop = 461 - ExplicitHeight = 294 + ExplicitHeight = 300 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -149,12 +148,19 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Width = 70 end object Tv1Column7: TcxGridDBColumn - Caption = #29702#35770'D'#25968 + Caption = #20998#29305'(Dtex)' DataBinding.FieldName = 'Denier' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 100 end + object Tv1Column8: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'ZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end object v1Column3: TcxGridDBColumn Caption = #26681#25968 DataBinding.FieldName = 'YarnQty' @@ -550,7 +556,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ShowCaptions = True TabOrder = 3 Visible = False - ExplicitTop = 431 object ToolButton3: TToolButton Left = 0 Top = 0 diff --git a/E02梭织经轴仓库/U_WBSpecInPut.pas b/E02梭织经轴仓库/U_WBSpecInPut.pas index 61ab4e4..66bc982 100644 --- a/E02梭织经轴仓库/U_WBSpecInPut.pas +++ b/E02梭织经轴仓库/U_WBSpecInPut.pas @@ -101,6 +101,7 @@ type Tv1Column7: TcxGridDBColumn; Label18: TLabel; ISSizing: TcxComboBox; + Tv1Column8: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -388,24 +389,50 @@ begin Append; FieldByName('RowNo').Value := 'A'; Post; + Append; FieldByName('RowNo').Value := 'B'; Post; + Append; FieldByName('RowNo').Value := 'C'; Post; + Append; FieldByName('RowNo').Value := 'D'; Post; + Append; FieldByName('RowNo').Value := 'E'; Post; + Append; FieldByName('RowNo').Value := 'F'; Post; + Append; FieldByName('RowNo').Value := 'G'; Post; + + Append; + FieldByName('RowNo').Value := 'H'; + Post; + + Append; + FieldByName('RowNo').Value := 'I'; + Post; + + Append; + FieldByName('RowNo').Value := 'J'; + Post; + + Append; + FieldByName('RowNo').Value := 'K'; + Post; + + Append; + FieldByName('RowNo').Value := 'L'; + Post; end; end; @@ -526,6 +553,7 @@ begin FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').value; FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value; FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').value; + FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').value; FieldByName('Y_Ratio').Value := 0; end; end; diff --git a/E02梭织经轴仓库/U_WBSpecList.dfm b/E02梭织经轴仓库/U_WBSpecList.dfm index 60c008a..dab1823 100644 --- a/E02梭织经轴仓库/U_WBSpecList.dfm +++ b/E02梭织经轴仓库/U_WBSpecList.dfm @@ -3,9 +3,9 @@ inherited frmWBSpecList: TfrmWBSpecList Top = 106 Caption = #25972#32463#24037#33402#21015#34920 ClientHeight = 556 - ClientWidth = 1420 + ClientWidth = 1539 Font.Height = -16 - ExplicitWidth = 1436 + ExplicitWidth = 1555 ExplicitHeight = 595 PixelsPerInch = 96 TextHeight = 21 @@ -13,7 +13,7 @@ inherited frmWBSpecList: TfrmWBSpecList Tag = 1 Left = 0 Top = 0 - Width = 1420 + Width = 1539 Height = 30 AutoSize = True ButtonHeight = 30 @@ -101,7 +101,7 @@ inherited frmWBSpecList: TfrmWBSpecList object Panel1: TPanel [1] Left = 0 Top = 30 - Width = 1420 + Width = 1539 Height = 46 Align = alTop BevelInner = bvRaised @@ -147,7 +147,7 @@ inherited frmWBSpecList: TfrmWBSpecList object cxGrid1: TcxGrid [2] Left = 0 Top = 76 - Width = 824 + Width = 943 Height = 480 Align = alClient TabOrder = 2 @@ -319,7 +319,7 @@ inherited frmWBSpecList: TfrmWBSpecList end end object Panel2: TPanel [3] - Left = 824 + Left = 943 Top = 76 Width = 596 Height = 480 @@ -466,13 +466,21 @@ inherited frmWBSpecList: TfrmWBSpecList Width = 70 end object TV2Column4: TcxGridDBColumn - Caption = #29702#35770'D'#25968 + Caption = #20998#29305'(Dtex)' DataBinding.FieldName = 'Denier' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 100 end + object TV2Column5: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'ZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end object v1Column3: TcxGridDBColumn Caption = #26681#25968 DataBinding.FieldName = 'YarnQty' diff --git a/E02梭织经轴仓库/U_WBSpecList.pas b/E02梭织经轴仓库/U_WBSpecList.pas index 49aa989..46f730d 100644 --- a/E02梭织经轴仓库/U_WBSpecList.pas +++ b/E02梭织经轴仓库/U_WBSpecList.pas @@ -98,6 +98,7 @@ type TV2Column3: TcxGridDBColumn; TV2Column4: TcxGridDBColumn; ToolButton2: TToolButton; + TV2Column5: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject);