Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-04-23 15:09:48 +08:00
parent bf62570614
commit a9c0a76acf
50 changed files with 1739 additions and 894 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

113
A00通用窗体/U_BankSel.dfm
View File

@ -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

12
A00通用窗体/U_BankSel.pas
View File

@ -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);

16
A00通用窗体/U_CompanySel.dfm
View File

@ -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

1
A00通用窗体/U_CompanySel.pas
View File

@ -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);

10
A00通用窗体/U_ProductInfoSel.dfm
View File

@ -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'

6
A00通用窗体/U_ProductInfoSel.pas
View File

@ -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;

57
A00通用窗体/U_YarnInfoSel.dfm
View File

@ -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

2
A00通用窗体/U_YarnInfoSel.pas
View File

@ -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);

6
A01基础公司管理/Company.dpr
View File

@ -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}

16
A01基础公司管理/Company.dproj
View File

@ -172,10 +172,6 @@
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<DCCReference Include="U_BankList.pas">
<Form>frmBankList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_LabelMapSet.pas">
<Form>frmLabelMapSet</Form>
<FormType>dfm</FormType>
@ -210,10 +206,6 @@
<Form>frmZDYHelp</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_CustomerInput.pas">
<Form>frmCustomerInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
@ -233,6 +225,14 @@
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="U_BankList.pas">
<Form>frmBankList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_BankInput.pas">
<Form>frmBankInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

58
A01基础公司管理/Company.dproj.local
View File

@ -1,42 +1,44 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.175,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>2025-04-23 09:44:21.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.dfm</Transaction>
<Transaction>2025-04-23 09:44:21.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -67,7 +69,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10SZKaiXiYa"/>
<File Path="..\..\D10szKaiXiYa"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@ -116,8 +118,6 @@
<File Path="U_CustInput.dfm"/>
<File Path="U_Customer.pas"/>
<File Path="U_Customer.dfm"/>
<File Path="U_CustomerInput.pas"/>
<File Path="U_CustomerInput.dfm"/>
<File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/>
<File Path="U_Factory.pas"/>
@ -134,5 +134,7 @@
<File Path="U_LXList.dfm"/>
<File Path="U_ModuleNote.pas"/>
<File Path="U_ModuleNote.dfm"/>
<File Path="U_BankInput.pas"/>
<File Path="U_BankInput.dfm"/>
</ProjectSortOrder>
</BorlandProject>

241
A01基础公司管理/U_BankInput.dfm Normal file
View File

@ -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

198
A01基础公司管理/U_BankInput.pas Normal file
View File

@ -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.

138
A01基础公司管理/U_BankList.dfm
View File

@ -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

75
A01基础公司管理/U_BankList.pas
View File

@ -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;

7
A01基础公司管理/U_GetDllForm.pas
View File

@ -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

3
B01基础合同管理/Contract.dpr
View File

@ -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}

4
B01基础合同管理/Contract.dproj
View File

@ -222,6 +222,10 @@
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="..\A00通用窗体\U_BankSel.pas">
<Form>frmBankSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

121
B01基础合同管理/Contract.dproj.local
View File

@ -2,83 +2,84 @@
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -127,6 +128,8 @@
<File Path="..\A00通用窗体\U_UserSel.dfm"/>
<File Path="..\A00通用窗体\U_PictureUpload.pas"/>
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
<File Path="..\A00通用窗体\U_BankSel.pas"/>
<File Path="..\A00通用窗体\U_BankSel.dfm"/>
<File Path="..\A00通用组件"/>
<File Path="..\A00通用组件\FrameDateSel.pas"/>
<File Path="..\A00通用组件\FrameDateSel.dfm"/>

BIN
B01基础合同管理/Contract.identcache
View File

Binary file not shown.

6
B01基础合同管理/U_GetDllForm.pas
View File

@ -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

235
B01基础合同管理/U_SalesConInPut.dfm
View File

@ -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

43
B01基础合同管理/U_SalesConInPut.pas
View File

@ -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

59
B01基础合同管理/U_SalesContractList.dfm
View File

@ -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

7
B01基础合同管理/U_SalesContractList.pas
View File

@ -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);

6
B02基础纱线仓库/U_GetDllForm.pas
View File

@ -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 := '纱线';

128
B02基础纱线仓库/U_YarnInfoInPut.dfm
View File

@ -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

43
B02基础纱线仓库/U_YarnInfoInPut.pas
View File

@ -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.

33
B02基础纱线仓库/U_YarnInfoList.dfm
View File

@ -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

2
B02基础纱线仓库/U_YarnInfoList.pas
View File

@ -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);

5
B02基础纱线仓库/YarnStk.dpr
View File

@ -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}

8
B02基础纱线仓库/YarnStk.dproj
View File

@ -162,10 +162,6 @@
<Form>frmClothInfoSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_CompanySel.pas">
<Form>frmCompanySel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_EmployeeSel.pas">
<Form>frmEmployeeSel</Form>
<FormType>dfm</FormType>
@ -274,6 +270,10 @@
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="..\A00通用窗体\U_CompanySel.pas">
<Form>frmCompanySel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

126
B02基础纱线仓库/YarnStk.dproj.local
View File

@ -1,92 +1,92 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -117,7 +117,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10SZKaiXiYa"/>
<File Path="..\..\D10szKaiXiYa"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

BIN
B03基础物料仓库/ProductStk.identcache
View File

Binary file not shown.

13
B03基础物料仓库/U_BSPrtMachInList.dfm
View File

@ -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

2
B04采购计划管理/ProjectGroup1.groupproj.local
View File

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10szJinCheng\B04采购计划管理\testDll.dproj"/>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\testDll.dproj"/>
</Default.Personality>
</BorlandProject>

3
B04采购计划管理/PurchasePlan.dpr
View File

@ -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}

4
B04采购计划管理/PurchasePlan.dproj
View File

@ -226,6 +226,10 @@
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="..\A00通用窗体\U_ProductInfoSel.pas">
<Form>frmProductInfoSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

49
B04采购计划管理/PurchasePlan.dproj.local
View File

@ -1,50 +1,51 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>2025-04-23 14:43:20.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -93,6 +94,8 @@
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_TatClothInfoSel.pas"/>
<File Path="..\A00通用窗体\U_TatClothInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_ProductInfoSel.pas"/>
<File Path="..\A00通用窗体\U_ProductInfoSel.dfm"/>
<File Path="..\A00通用组件"/>
<File Path="..\A00通用组件\FrameDateSel.pas"/>
<File Path="..\A00通用组件\FrameDateSel.dfm"/>

6
B04采购计划管理/U_GetDllForm.pas
View File

@ -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

244
B04采购计划管理/U_YarnPurchasePlanList.dfm
View File

@ -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

75
B04采购计划管理/U_YarnPurchasePlanList.pas
View File

@ -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);

161
B04采购计划管理/U_YarnPurchasePlanPut.dfm
View File

@ -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

211
B04采购计划管理/U_YarnPurchasePlanPut.pas
View File

@ -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

BIN
B04采购计划管理/testDll.identcache
View File

Binary file not shown.

6
E02梭织经轴仓库/U_GetDllForm.pas
View File

@ -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 := '空轴';

19
E02梭织经轴仓库/U_WBSpecInPut.dfm
View File

@ -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

28
E02梭织经轴仓库/U_WBSpecInPut.pas
View File

@ -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;

22
E02梭织经轴仓库/U_WBSpecList.dfm
View File

@ -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'

1
E02梭织经轴仓库/U_WBSpecList.pas
View File

@ -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);