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
-
-
- dfm
-
dfm
@@ -210,10 +206,6 @@
dfm
-
-
- dfm
-
@@ -233,6 +225,14 @@
dfm
+
+
+ dfm
+
+
+
+ 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
+
+
+ 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 c10e10f..af63fab 100644
Binary files a/B01基础合同管理/Contract.identcache and b/B01基础合同管理/Contract.identcache differ
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 @@
dfm
-
-
- dfm
-
dfm
@@ -274,6 +270,10 @@
dfm
+
+
+ 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 b452c63..2068a09 100644
Binary files a/B03基础物料仓库/ProductStk.identcache and b/B03基础物料仓库/ProductStk.identcache differ
diff --git a/B03基础物料仓库/U_BSPrtMachInList.dfm b/B03基础物料仓库/U_BSPrtMachInList.dfm
index 422730f..c42b47d 100644
--- a/B03基础物料仓库/U_BSPrtMachInList.dfm
+++ b/B03基础物料仓库/U_BSPrtMachInList.dfm
@@ -430,6 +430,19 @@ inherited frmBSPrtMachInList: TfrmBSPrtMachInList
GridView = Tv1
end
end
+ inherited loadProcess: TPanel
+ Left = 276
+ Top = 287
+ ExplicitLeft = 276
+ ExplicitTop = 287
+ end
+ inherited cxProgressBar2: TcxProgressBar
+ Left = 276
+ Top = 228
+ ExplicitLeft = 276
+ ExplicitTop = 228
+ ExplicitHeight = 29
+ end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_ProductStk.ADOLink
Left = 113
diff --git a/B04采购计划管理/ProjectGroup1.groupproj.local b/B04采购计划管理/ProjectGroup1.groupproj.local
index adbd561..9b32477 100644
--- a/B04采购计划管理/ProjectGroup1.groupproj.local
+++ b/B04采购计划管理/ProjectGroup1.groupproj.local
@@ -1,6 +1,6 @@
-
-
-
+
+
+
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
+
+
+ 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 2313f07..de25106 100644
Binary files a/B04采购计划管理/testDll.identcache and b/B04采购计划管理/testDll.identcache differ
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);