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 Top = 106
Caption = #38134#34892#36134#25143#36873#25321 Caption = #38134#34892#36134#25143#36873#25321
ClientHeight = 558 ClientHeight = 558
ClientWidth = 950 ClientWidth = 1384
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 966 ExplicitWidth = 1400
ExplicitHeight = 597 ExplicitHeight = 597
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
@ -18,7 +18,7 @@ inherited frmBankSel: TfrmBankSel
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 950 Width = 1384
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -36,6 +36,7 @@ inherited frmBankSel: TfrmBankSel
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 950
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -64,12 +65,13 @@ inherited frmBankSel: TfrmBankSel
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 38 Top = 38
Width = 950 Width = 1384
Height = 44 Height = 44
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
ExplicitWidth = 950
object Label1: TLabel object Label1: TLabel
Left = 18 Left = 18
Top = 15 Top = 15
@ -87,18 +89,22 @@ inherited frmBankSel: TfrmBankSel
OnChange = BankNameChange OnChange = BankNameChange
end end
end end
object cxGrid1: TcxGrid [2] object cxGrid2: TcxGrid [2]
Left = 0 Left = 0
Top = 82 Top = 82
Width = 950 Width = 1384
Height = 476 Height = 476
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitLeft = -545
ExplicitTop = 77
ExplicitWidth = 1495
ExplicitHeight = 481
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -127,60 +133,108 @@ inherited frmBankSel: TfrmBankSel
OptionsData.DeletingConfirmation = False OptionsData.DeletingConfirmation = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Header = DataLink_Financial.Default
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #24207#21495 Caption = #24207#21495
DataBinding.FieldName = 'SerialNo' DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False
Width = 50 Width = 50
end 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 object Tv1Column3: TcxGridDBColumn
Caption = #21517#31216 Caption = #21517#31216
DataBinding.FieldName = 'BankName' DataBinding.FieldName = 'BankName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False
Width = 107 Width = 107
end 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 object Tv1Column5: TcxGridDBColumn
Caption = #24320#25143#34892 Caption = #24320#25143#34892
DataBinding.FieldName = 'BankDeposit' DataBinding.FieldName = 'BankDeposit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False
Width = 112 Width = 112
end 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 object Tv1Column6: TcxGridDBColumn
Caption = #34892#21495 Caption = #34892#21495
DataBinding.FieldName = 'BankNo' DataBinding.FieldName = 'BankNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False
Width = 133 Width = 133
end 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 end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -771,6 +825,7 @@ inherited frmBankSel: TfrmBankSel
Top = 168 Top = 168
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <> PopupMenus = <>
Left = 416 Left = 416
Top = 272 Top = 272

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

@ -11,7 +11,7 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit,
cxDropDownEdit; cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations;
type type
TfrmBankSel = class(TfrmBaseHelp) TfrmBankSel = class(TfrmBaseHelp)
@ -45,14 +45,18 @@ type
handBlack: TcxStyle; handBlack: TcxStyle;
cxBlue: TcxStyle; cxBlue: TcxStyle;
SHuangSeCu: TcxStyle; SHuangSeCu: TcxStyle;
cxGrid1: TcxGrid; cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v2Column1: TcxGridDBColumn; v2Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);

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

@ -57,6 +57,14 @@ inherited frmCompanySel: TfrmCompanySel
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 159 Width = 159
end end
object TV1Column4: TcxGridDBColumn
Caption = #22320#22336
DataBinding.FieldName = 'CoAddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 150
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = TV1 GridView = TV1
@ -70,7 +78,7 @@ inherited frmCompanySel: TfrmCompanySel
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 115
Caption = 'ToolBar1' Caption = 'ToolBar1'
Images = cxImageList_bar Images = cxImageList_bar
List = True List = True
@ -85,14 +93,14 @@ inherited frmCompanySel: TfrmCompanySel
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 63 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686#20379#24212#21830 Caption = #26032#22686#20379#24212#21830
ImageIndex = 2 ImageIndex = 2
end end
object TBSave: TToolButton object TBSave: TToolButton
Left = 162 Left = 190
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -100,7 +108,7 @@ inherited frmCompanySel: TfrmCompanySel
OnClick = TBSaveClick OnClick = TBSaveClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 249 Left = 293
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

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

@ -53,6 +53,7 @@ type
CoName: TcxTextEdit; CoName: TcxTextEdit;
cxImageList_bar: TcxImageList; cxImageList_bar: TcxImageList;
ToolButton2: TToolButton; ToolButton2: TToolButton;
TV1Column4: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

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

@ -135,8 +135,16 @@ inherited frmProductInfoSel: TfrmProductInfoSel
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False OptionsSelection.CheckBoxPosition = cbpIndicator
OptionsView.GroupByBox = False 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 object Tv1Column2: TcxGridDBColumn
Caption = #21697#29260 Caption = #21697#29260
DataBinding.FieldName = 'Brand' DataBinding.FieldName = 'Brand'

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

@ -11,7 +11,8 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit,
cxDropDownEdit, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters; cxDropDownEdit, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters,
cxCheckBox;
type type
TfrmProductInfoSel = class(TfrmBaseHelp) TfrmProductInfoSel = class(TfrmBaseHelp)
@ -55,6 +56,7 @@ type
v1Column9: TcxGridDBColumn; v1Column9: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel; cxGrid2Level1: TcxGridLevel;
Tv1Column3: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -128,7 +130,7 @@ begin
sql.Clear; sql.Clear;
sql.Add(' select A.* '); sql.Add(' select A.* ');
sql.Add(' from BS_Product_Info A'); sql.Add(' from BS_Product_Info A');
sql.Add(' where isnull(STKNAME,'''')=''' + Trim(FSTKName) + ''''); // sql.Add(' where isnull(STKNAME,'''')=''' + Trim(FSTKName) + '''');
Open; Open;
end; end;

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

@ -3,14 +3,14 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Top = 106 Top = 106
Caption = #32433#32447#21517#31216#36873#25321 Caption = #32433#32447#21517#31216#36873#25321
ClientHeight = 558 ClientHeight = 558
ClientWidth = 1353 ClientWidth = 1584
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1369 ExplicitWidth = 1600
ExplicitHeight = 597 ExplicitHeight = 597
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -18,7 +18,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1353 Width = 1584
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -29,7 +29,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1151
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -74,13 +73,12 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1353 Width = 1584
Height = 44 Height = 44
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
ExplicitWidth = 1151
object Label1: TLabel object Label1: TLabel
Left = 216 Left = 216
Top = 10 Top = 10
@ -115,12 +113,11 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 74 Top = 74
Width = 1353 Width = 1584
Height = 484 Height = 484
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 80
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -163,14 +160,14 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False Options.Editing = False
Width = 127 Width = 127
end end
object v1Column2: TcxGridDBColumn object v1SPName: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21697#29260 Caption = #21697#21517
DataBinding.FieldName = 'Brand' DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100 Width = 101
end end
object v1Column18: TcxGridDBColumn object v1Column18: TcxGridDBColumn
Caption = #37319#36141#21152#24037#21512#21516#21495 Caption = #37319#36141#21152#24037#21512#21516#21495
@ -206,15 +203,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
VisibleForCustomization = False VisibleForCustomization = False
Width = 103 Width = 103
end 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 object v1SPSpec: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #35268#26684 Caption = #35268#26684
@ -266,7 +254,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
end end
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #29702#35770'D'#25968 Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -297,6 +285,15 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end 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 object v1Column12: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
@ -322,6 +319,22 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
end 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 end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

@ -75,6 +75,8 @@ type
ToolButton3: TToolButton; ToolButton3: TToolButton;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

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

@ -22,7 +22,6 @@ uses
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel}, U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmFjList_RZ}, U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmFjList_RZ},
U_CompressionFun in '..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas', 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_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint}, U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_DataLink in 'U_DataLink.pas' {DataLink_Company: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_Company: TDataModule},
@ -31,7 +30,6 @@ uses
U_FactoryInput in 'U_FactoryInput.pas' {frmFactoryInput}, U_FactoryInput in 'U_FactoryInput.pas' {frmFactoryInput},
U_Company in 'U_Company.pas' {frmCompany}, U_Company in 'U_Company.pas' {frmCompany},
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, 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_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas',
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas', U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas', U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
@ -40,7 +38,9 @@ uses
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame}, FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
U_LXDept in 'U_LXDept.pas' {frmLXDept}, U_LXDept in 'U_LXDept.pas' {frmLXDept},
U_LXInPut in 'U_LXInPut.pas' {frmLXInPut}, 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} {$R *.res}

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

@ -172,10 +172,6 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/> <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"> <DCCReference Include="..\A00通用窗体\U_LabelMapSet.pas">
<Form>frmLabelMapSet</Form> <Form>frmLabelMapSet</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
@ -210,10 +206,6 @@
<Form>frmZDYHelp</Form> <Form>frmZDYHelp</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </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_cxGridCustomCss.pas"/>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomSet.pas"/> <DCCReference Include="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/> <DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
@ -233,6 +225,14 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/> <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"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

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

@ -1,42 +1,44 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.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.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.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.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.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.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.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.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.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.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.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.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.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.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.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm</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.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas</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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -67,7 +69,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10szKaiXiYa"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@ -116,8 +118,6 @@
<File Path="U_CustInput.dfm"/> <File Path="U_CustInput.dfm"/>
<File Path="U_Customer.pas"/> <File Path="U_Customer.pas"/>
<File Path="U_Customer.dfm"/> <File Path="U_Customer.dfm"/>
<File Path="U_CustomerInput.pas"/>
<File Path="U_CustomerInput.dfm"/>
<File Path="U_DataLink.pas"/> <File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/> <File Path="U_DataLink.dfm"/>
<File Path="U_Factory.pas"/> <File Path="U_Factory.pas"/>
@ -134,5 +134,7 @@
<File Path="U_LXList.dfm"/> <File Path="U_LXList.dfm"/>
<File Path="U_ModuleNote.pas"/> <File Path="U_ModuleNote.pas"/>
<File Path="U_ModuleNote.dfm"/> <File Path="U_ModuleNote.dfm"/>
<File Path="U_BankInput.pas"/>
<File Path="U_BankInput.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </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 Top = 109
Caption = #38134#34892#36134#25143#31649#29702 Caption = #38134#34892#36134#25143#31649#29702
ClientHeight = 562 ClientHeight = 562
ClientWidth = 1183 ClientWidth = 1495
KeyPreview = True KeyPreview = True
ExplicitWidth = 1199 ExplicitWidth = 1511
ExplicitHeight = 601 ExplicitHeight = 601
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 17 TextHeight = 17
@ -13,7 +13,7 @@ inherited frmBankList: TfrmBankList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1183 Width = 1495
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -41,24 +41,50 @@ inherited frmBankList: TfrmBankList
ImageIndex = 0 ImageIndex = 0
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object btnadd: TToolButton object ToolButton3: TToolButton
Left = 142 Left = 142
Top = 0 Top = 0
AutoSize = True 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 Caption = #22686#34892
ImageIndex = 2 ImageIndex = 2
Visible = False
OnClick = btnaddClick OnClick = btnaddClick
end end
object btndel: TToolButton object btndel: TToolButton
Left = 213 Left = 426
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
ImageIndex = 6 ImageIndex = 6
Visible = False
OnClick = btndelClick OnClick = btndelClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 284 Left = 497
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -66,7 +92,7 @@ inherited frmBankList: TfrmBankList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 379 Left = 592
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -77,11 +103,12 @@ inherited frmBankList: TfrmBankList
object cxGrid2: TcxGrid [1] object cxGrid2: TcxGrid [1]
Left = 0 Left = 0
Top = 81 Top = 81
Width = 1183 Width = 1495
Height = 481 Height = 481
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 80
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -122,8 +149,28 @@ inherited frmBankList: TfrmBankList
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 50 Width = 50
end 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 object Tv2Column3: TcxGridDBColumn
Caption = #21517#31216 Caption = #21517#31216
DataBinding.FieldName = 'BankName' DataBinding.FieldName = 'BankName'
@ -131,8 +178,21 @@ inherited frmBankList: TfrmBankList
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 107 Width = 107
end 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 object Tv2Column4: TcxGridDBColumn
Caption = #21345#21495 Caption = #21345#21495
DataBinding.FieldName = 'BankCardNo' DataBinding.FieldName = 'BankCardNo'
@ -140,8 +200,39 @@ inherited frmBankList: TfrmBankList
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 150 Width = 150
end 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 object Tv2Column1: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'Currency' DataBinding.FieldName = 'Currency'
@ -155,26 +246,10 @@ inherited frmBankList: TfrmBankList
'VND') 'VND')
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 85 Width = 85
end 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 end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv2 GridView = Tv2
@ -183,13 +258,14 @@ inherited frmBankList: TfrmBankList
object Panel1: TPanel [2] object Panel1: TPanel [2]
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1183 Width = 1495
Height = 43 Height = 43
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 4 TabOrder = 4
ExplicitWidth = 1183
object Label1: TLabel object Label1: TLabel
Left = 66 Left = 66
Top = 15 Top = 15
@ -207,7 +283,15 @@ inherited frmBankList: TfrmBankList
OnChange = CustomerChange OnChange = CustomerChange
end end
end end
inherited loadProcess: TPanel
Left = 296
Top = 197
ExplicitLeft = 296
ExplicitTop = 197
end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Top = 137
ExplicitTop = 137
ExplicitHeight = 25 ExplicitHeight = 25
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

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

@ -13,10 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls, cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxBarBuiltInMenu, U_BaseList, cxContainer, dxScrollbarAnnotations,
cxContainer, dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters;
dxSkinsDefaultPainters;
type type
TfrmBankList = class(TfrmBaseList) TfrmBankList = class(TfrmBaseList)
@ -48,6 +47,13 @@ type
Tv2Column5: TcxGridDBColumn; Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn; Tv2Column6: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
Tv2Column2: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
Tv2Column9: TcxGridDBColumn;
ToolButton5: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -65,6 +71,9 @@ type
procedure btnokClick(Sender: TObject); procedure btnokClick(Sender: TObject);
procedure v2Column1PropertiesEditValueChanged(Sender: TObject); procedure v2Column1PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
@ -80,7 +89,7 @@ var
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp; U_DataLink, U_RTFun, U_ZDYHelp, U_BankInput;
{$R *.dfm} {$R *.dfm}
@ -124,7 +133,7 @@ end;
procedure TfrmBankList.FormShow(Sender: TObject); procedure TfrmBankList.FormShow(Sender: TObject);
begin begin
inherited; inherited;
ReadCxGrid(Trim(Self.Caption), Tv2, '财务管理'); ReadCxGrid(Trim(Self.Caption) + '1', Tv2, '财务管理');
InitGrid(); InitGrid();
end; end;
@ -143,7 +152,7 @@ end;
procedure TfrmBankList.ToolButton1Click(Sender: TObject); procedure TfrmBankList.ToolButton1Click(Sender: TObject);
begin begin
WriteCxGrid(Trim(Self.Caption), Tv2, '财务管理'); WriteCxGrid(Trim(Self.Caption) + '1', Tv2, '财务管理');
end; end;
procedure TfrmBankList.ToolButton2Click(Sender: TObject); procedure TfrmBankList.ToolButton2Click(Sender: TObject);
@ -159,6 +168,58 @@ begin
end; end;
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); procedure TfrmBankList.cxTabControl1Change(Sender: TObject);
begin begin
InitGrid; InitGrid;

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

@ -1,4 +1,3 @@
unit U_GetDllForm; unit U_GetDllForm;
interface interface
@ -72,10 +71,10 @@ begin
if trim(DataBaseStr) = '' then if trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; server := '150.109.121.232,7781';
dtbase := 'KaiXiYadata'; dtbase := 'KaiXiYadata';
user := 'rtsa'; user := 'kaixiyasa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '¹ÜÀí'; Parameters1 := '¹ÜÀí';
end end

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

@ -36,7 +36,8 @@ uses
U_PictureUpload22 in '..\E01梭织生产计划\U_PictureUpload22.pas' {frmPictureUpload22}, U_PictureUpload22 in '..\E01梭织生产计划\U_PictureUpload22.pas' {frmPictureUpload22},
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload}, U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame}, 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} {$R *.res}

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

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

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

@ -2,83 +2,84 @@
<BorlandProject> <BorlandProject>
<Transactions> <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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.734,=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.441,=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.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.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.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.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.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.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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.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.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</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.339,=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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.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.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.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.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.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.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.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.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.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</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.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm</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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.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.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.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.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -127,6 +128,8 @@
<File Path="..\A00通用窗体\U_UserSel.dfm"/> <File Path="..\A00通用窗体\U_UserSel.dfm"/>
<File Path="..\A00通用窗体\U_PictureUpload.pas"/> <File Path="..\A00通用窗体\U_PictureUpload.pas"/>
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/> <File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
<File Path="..\A00通用窗体\U_BankSel.pas"/>
<File Path="..\A00通用窗体\U_BankSel.dfm"/>
<File Path="..\A00通用组件"/> <File Path="..\A00通用组件"/>
<File Path="..\A00通用组件\FrameDateSel.pas"/> <File Path="..\A00通用组件\FrameDateSel.pas"/>
<File Path="..\A00通用组件\FrameDateSel.dfm"/> <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 if trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; server := '150.109.121.232,7781';
dtbase := 'KaiXiYadata'; dtbase := 'KaiXiYadata';
user := 'rtsa'; user := 'kaixiyasa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '¹ÜÀí'; Parameters1 := '¹ÜÀí';
end end

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

@ -60,7 +60,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1506 Width = 1506
Height = 307 Height = 379
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -72,7 +72,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
TabOrder = 1 TabOrder = 1
object Label3: TLabel object Label3: TLabel
Left = 330 Left = 330
Top = 86 Top = 118
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #19979#21333#26085#26399#65306 Caption = #19979#21333#26085#26399#65306
@ -93,21 +93,21 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object Label14: TLabel object Label14: TLabel
Left = 330 Left = 330
Top = 49 Top = 45
Width = 48 Width = 48
Height = 21 Height = 21
Caption = #23458#25143#65306 Caption = #23458#25143#65306
end end
object Label20: TLabel object Label20: TLabel
Left = 40 Left = 40
Top = 49 Top = 45
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #32463#33829#21333#20301#65306 Caption = #32463#33829#21333#20301#65306
end end
object Label6: TLabel object Label6: TLabel
Left = 330 Left = 715
Top = 193 Top = 413
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #28322#30701#35013#65306 Caption = #28322#30701#35013#65306
@ -122,91 +122,91 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object Label26: TLabel object Label26: TLabel
Left = 637 Left = 637
Top = 49 Top = 45
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #20013#38388#21830#65306 Caption = #20013#38388#21830#65306
end end
object Label27: TLabel object Label27: TLabel
Left = 40 Left = 40
Top = 193 Top = 225
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #26159#21542#21547#31246#65306 Caption = #26159#21542#21547#31246#65306
end end
object Label29: TLabel object Label29: TLabel
Left = 330 Left = 330
Top = 122 Top = 154
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #36215#36816#28207#65306 Caption = #36215#36816#28207#65306
end end
object Label30: TLabel object Label30: TLabel
Left = 637 Left = 637
Top = 122 Top = 154
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #30446#30340#28207#65306 Caption = #30446#30340#28207#65306
end end
object Label2: TLabel object Label2: TLabel
Left = 940 Left = 940
Top = 158 Top = 190
Width = 48 Width = 48
Height = 21 Height = 21
Caption = #27719#29575#65306 Caption = #27719#29575#65306
end end
object Label5: TLabel object Label5: TLabel
Left = 637 Left = 637
Top = 158 Top = 190
Width = 48 Width = 48
Height = 21 Height = 21
Caption = #24065#31181#65306 Caption = #24065#31181#65306
end end
object Label7: TLabel object Label7: TLabel
Left = 940 Left = 940
Top = 49 Top = 45
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #20323#37329#27604#20363#65306 Caption = #20323#37329#27604#20363#65306
end end
object Label11: TLabel object Label11: TLabel
Left = 40 Left = 40
Top = 158 Top = 190
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #20184#27454#26041#24335#65306 Caption = #20184#27454#26041#24335#65306
end end
object Label12: TLabel object Label12: TLabel
Left = 40 Left = 40
Top = 122 Top = 154
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #36816#36755#26041#24335#65306 Caption = #36816#36755#26041#24335#65306
end end
object Label4: TLabel object Label4: TLabel
Left = 40 Left = 40
Top = 230 Top = 302
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #33337#26679#35201#27714#65306 Caption = #33337#26679#35201#27714#65306
end end
object Label13: TLabel object Label13: TLabel
Left = 330 Left = 330
Top = 158 Top = 190
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #20215#26684#26415#35821#65306 Caption = #20215#26684#26415#35821#65306
end end
object Label8: TLabel object Label8: TLabel
Left = 40 Left = 40
Top = 267 Top = 339
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #21253#35013#35201#27714#65306 Caption = #21253#35013#35201#27714#65306
end end
object Label15: TLabel object Label15: TLabel
Left = 356 Left = 356
Top = 427 Top = 462
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #20132#26399#35828#26126#65306 Caption = #20132#26399#35828#26126#65306
@ -214,15 +214,15 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object Label16: TLabel object Label16: TLabel
Left = 53 Left = 53
Top = 427 Top = 462
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #20132#36135#26085#26399#65306 Caption = #20132#36135#26085#26399#65306
Visible = False Visible = False
end end
object Label17: TLabel object Label17: TLabel
Left = 1109 Left = 1104
Top = 316 Top = 398
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #33136#23553#22823#29260#65306 Caption = #33136#23553#22823#29260#65306
@ -230,7 +230,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object Label23: TLabel object Label23: TLabel
Left = 40 Left = 40
Top = 86 Top = 118
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #21512#21516#31867#22411#65306 Caption = #21512#21516#31867#22411#65306
@ -244,7 +244,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object lblSalesId: TLabel object lblSalesId: TLabel
Left = 63 Left = 63
Top = 375 Top = 410
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #19994#21153#32534#21495#65306 Caption = #19994#21153#32534#21495#65306
@ -252,7 +252,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object Label25: TLabel object Label25: TLabel
Left = 276 Left = 276
Top = 375 Top = 410
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #29702#21333#32534#21495#65306 Caption = #29702#21333#32534#21495#65306
@ -260,11 +260,60 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object Label1: TLabel object Label1: TLabel
Left = 637 Left = 637
Top = 86 Top = 118
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #24067#21305#31867#22411#65306 Caption = #24067#21305#31867#22411#65306
end 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 object ConNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 114 Left = 114
@ -283,7 +332,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object ExchangeRate: TcxTextEdit object ExchangeRate: TcxTextEdit
Tag = 2 Tag = 2
Left = 1015 Left = 1015
Top = 152 Top = 184
TabOrder = 2 TabOrder = 2
OnKeyPress = ExchangeRateKeyPress OnKeyPress = ExchangeRateKeyPress
Width = 200 Width = 200
@ -291,7 +340,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object CommissionRatio: TcxTextEdit object CommissionRatio: TcxTextEdit
Tag = 2 Tag = 2
Left = 1015 Left = 1015
Top = 43 Top = 41
TabOrder = 3 TabOrder = 3
Width = 200 Width = 200
end end
@ -318,7 +367,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object PackSeal: TBtnEditC object PackSeal: TBtnEditC
Tag = 2 Tag = 2
Left = 1180 Left = 1180
Top = 312 Top = 394
Width = 125 Width = 125
Height = 30 Height = 30
TabOrder = 5 TabOrder = 5
@ -328,7 +377,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object DlyNote: TcxTextEdit object DlyNote: TcxTextEdit
Tag = 2 Tag = 2
Left = 431 Left = 431
Top = 421 Top = 456
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
Visible = False Visible = False
@ -351,7 +400,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object SalesId: TcxTextEdit object SalesId: TcxTextEdit
Tag = 2 Tag = 2
Left = 134 Left = 134
Top = 369 Top = 404
ParentFont = False ParentFont = False
TabOrder = 9 TabOrder = 9
Visible = False Visible = False
@ -360,7 +409,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object TallyId: TcxTextEdit object TallyId: TcxTextEdit
Tag = 2 Tag = 2
Left = 335 Left = 335
Top = 366 Top = 401
ParentFont = False ParentFont = False
TabOrder = 10 TabOrder = 10
Visible = False Visible = False
@ -369,7 +418,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object BuyName: TcxButtonEdit object BuyName: TcxButtonEdit
Tag = 2 Tag = 2
Left = 403 Left = 403
Top = 43 Top = 42
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -385,7 +434,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object PackNote: TcxButtonEdit object PackNote: TcxButtonEdit
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 261 Top = 333
Hint = 'PackNote/'#21253#35013#35201#27714 Hint = 'PackNote/'#21253#35013#35201#27714
Properties.Buttons = < Properties.Buttons = <
item item
@ -401,7 +450,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object Sellname: TcxButtonEdit object Sellname: TcxButtonEdit
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 41 Top = 42
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -417,7 +466,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object MiddleName: TcxButtonEdit object MiddleName: TcxButtonEdit
Tag = 2 Tag = 2
Left = 710 Left = 710
Top = 43 Top = 41
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -433,7 +482,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object ShipMent: TcxButtonEdit object ShipMent: TcxButtonEdit
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 116 Top = 148
Hint = 'ShipMent/'#36816#36755#26041#24335 Hint = 'ShipMent/'#36816#36755#26041#24335
Properties.Buttons = < Properties.Buttons = <
item item
@ -449,7 +498,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object BegPort: TcxButtonEdit object BegPort: TcxButtonEdit
Tag = 2 Tag = 2
Left = 403 Left = 403
Top = 116 Top = 148
Hint = 'BegPort/'#36215#36816#28207 Hint = 'BegPort/'#36215#36816#28207
Properties.Buttons = < Properties.Buttons = <
item item
@ -465,7 +514,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object EndPort: TcxButtonEdit object EndPort: TcxButtonEdit
Tag = 2 Tag = 2
Left = 710 Left = 710
Top = 116 Top = 148
Hint = 'EndPort/'#30446#30340#28207 Hint = 'EndPort/'#30446#30340#28207
Properties.Buttons = < Properties.Buttons = <
item item
@ -481,7 +530,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object Payment: TcxButtonEdit object Payment: TcxButtonEdit
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 152 Top = 184
Hint = 'Payment/'#20184#27454#26041#24335 Hint = 'Payment/'#20184#27454#26041#24335
Properties.Buttons = < Properties.Buttons = <
item item
@ -496,8 +545,8 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object QtyNote: TcxButtonEdit object QtyNote: TcxButtonEdit
Tag = 2 Tag = 2
Left = 403 Left = 788
Top = 187 Top = 407
Hint = 'QtyNoteZW/'#28322#30701#35013 Hint = 'QtyNoteZW/'#28322#30701#35013
Properties.Buttons = < Properties.Buttons = <
item item
@ -514,7 +563,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object PriceTerms: TcxButtonEdit object PriceTerms: TcxButtonEdit
Tag = 2 Tag = 2
Left = 403 Left = 403
Top = 152 Top = 184
Hint = 'PriceTerms/'#20215#26684#26415#35821 Hint = 'PriceTerms/'#20215#26684#26415#35821
Properties.Buttons = < Properties.Buttons = <
item item
@ -530,7 +579,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object ShippingSample: TcxButtonEdit object ShippingSample: TcxButtonEdit
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 224 Top = 296
Hint = 'ShippingSample/'#33337#26679#35201#27714 Hint = 'ShippingSample/'#33337#26679#35201#27714
Properties.Buttons = < Properties.Buttons = <
item item
@ -563,7 +612,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object ConType: TcxComboBox object ConType: TcxComboBox
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 80 Top = 112
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
#20869#38144 #20869#38144
@ -574,7 +623,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object ConDate: TcxDateEdit object ConDate: TcxDateEdit
Tag = 2 Tag = 2
Left = 403 Left = 403
Top = 80 Top = 112
Properties.ShowTime = False Properties.ShowTime = False
TabOrder = 24 TabOrder = 24
Width = 200 Width = 200
@ -582,7 +631,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object Currency: TcxComboBox object Currency: TcxComboBox
Tag = 2 Tag = 2
Left = 710 Left = 710
Top = 152 Top = 184
Properties.Items.Strings = ( Properties.Items.Strings = (
'CNY' 'CNY'
'USD' 'USD'
@ -594,7 +643,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object DlyDate: TcxDateEdit object DlyDate: TcxDateEdit
Tag = 2 Tag = 2
Left = 126 Left = 126
Top = 421 Top = 456
ParentFont = False ParentFont = False
Properties.ShowTime = False Properties.ShowTime = False
TabOrder = 26 TabOrder = 26
@ -604,7 +653,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object IsTax: TcxComboBox object IsTax: TcxComboBox
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 187 Top = 221
Properties.Items.Strings = ( Properties.Items.Strings = (
#26159 #26159
#21542) #21542)
@ -615,7 +664,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
object BPType: TcxComboBox object BPType: TcxComboBox
Tag = 2 Tag = 2
Left = 710 Left = 710
Top = 80 Top = 112
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
#22383#24067 #22383#24067
@ -623,11 +672,72 @@ inherited frmSalesConInPut: TfrmSalesConInPut
TabOrder = 28 TabOrder = 28
Width = 200 Width = 200
end 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 end
object ToolBar2: TToolBar [2] object ToolBar2: TToolBar [2]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 337 Top = 409
Width = 1506 Width = 1506
Height = 30 Height = 30
AutoSize = True AutoSize = True
@ -676,14 +786,13 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object cxGrid1: TcxGrid [3] object cxGrid1: TcxGrid [3]
Left = 0 Left = 0
Top = 367 Top = 439
Width = 1506 Width = 1506
Height = 381 Height = 309
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = pm_sub PopupMenu = pm_sub
TabOrder = 3 TabOrder = 3
ExplicitTop = 366
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -933,14 +1042,14 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Top = 1 Top = 1
end end
inherited ImageList_new32: TImageList inherited ImageList_new32: TImageList
Left = 1085 Left = 1276
Top = 313 Top = 21
end end
inherited cxImageList_bar: TcxImageList inherited cxImageList_bar: TcxImageList
FormatVersion = 1 FormatVersion = 1
Left = 731 Left = 1015
Top = 217 Top = 170
DesignInfo = 14222043 DesignInfo = 11142135
end end
object ADOTemp: TADOQuery object ADOTemp: TADOQuery
Connection = DataLink_Contract.ADOLink Connection = DataLink_Contract.ADOLink
@ -987,14 +1096,14 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object DataSource1: TDataSource object DataSource1: TDataSource
DataSet = ADOQueryImage DataSet = ADOQueryImage
Left = 1203 Left = 1243
Top = 294 Top = 302
end end
object ADOQueryImage: TADOQuery object ADOQueryImage: TADOQuery
Connection = DataLink_Contract.ADOLink Connection = DataLink_Contract.ADOLink
Parameters = <> Parameters = <>
Left = 1117 Left = 1248
Top = 325 Top = 258
end end
object DS_ImgHX: TDataSource object DS_ImgHX: TDataSource
DataSet = Qry_ImgHX DataSet = Qry_ImgHX

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

@ -136,6 +136,20 @@ type
BPType: TcxComboBox; BPType: TcxComboBox;
ToolButton4: TToolButton; ToolButton4: TToolButton;
Tv1Column2: TcxGridDBColumn; 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 TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -164,6 +178,7 @@ type
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure BankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private private
FLeft, FTop: Integer; FLeft, FTop: Integer;
fuserName, Fstatus: string; fuserName, Fstatus: string;
@ -192,7 +207,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel, U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel,
U_PictureUpload11, U_TatClothInfoSel; U_PictureUpload11, U_TatClothInfoSel, U_BankSel;
{$R *.dfm} {$R *.dfm}
@ -207,6 +222,7 @@ begin
begin begin
self.Sellname.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); self.Sellname.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.Sellname.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); self.Sellname.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.GFDZ.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAddress').AsString);
end; end;
end; end;
@ -840,6 +856,7 @@ begin
// self.Saleser.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Saleser').AsString); // self.Saleser.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Saleser').AsString);
self.TallyId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('TallyId').AsString); self.TallyId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('TallyId').AsString);
self.Tallyer.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Tallyer').AsString); self.Tallyer.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Tallyer').AsString);
self.KHDZ.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAddress').AsString);
end; end;
end; end;
@ -1047,6 +1064,30 @@ begin
end; end;
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); procedure TfrmSalesConInPut.BuyNameBtnUpClick(Sender: TObject);
begin begin
try try

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

@ -7,6 +7,7 @@ inherited frmSalesContractList: TfrmSalesContractList
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitLeft = -210
ExplicitWidth = 1800 ExplicitWidth = 1800
ExplicitHeight = 810 ExplicitHeight = 810
PixelsPerInch = 96 PixelsPerInch = 96
@ -187,6 +188,8 @@ inherited frmSalesContractList: TfrmSalesContractList
Align = alClient Align = alClient
PopupMenu = pm1 PopupMenu = pm1
TabOrder = 3 TabOrder = 3
ExplicitLeft = -1
ExplicitTop = 159
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -248,6 +251,14 @@ inherited frmSalesContractList: TfrmSalesContractList
Options.Focusing = False Options.Focusing = False
Width = 94 Width = 94
end 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 object v1CustomerNoName: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'BuyName' DataBinding.FieldName = 'BuyName'
@ -257,6 +268,14 @@ inherited frmSalesContractList: TfrmSalesContractList
Options.Focusing = False Options.Focusing = False
Width = 99 Width = 99
end 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 object Tv1Column1: TcxGridDBColumn
Caption = #20013#38388#21830 Caption = #20013#38388#21830
DataBinding.FieldName = 'MiddleName' DataBinding.FieldName = 'MiddleName'
@ -394,6 +413,46 @@ inherited frmSalesContractList: TfrmSalesContractList
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
end 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 end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

@ -135,6 +135,13 @@ type
TV2Column1: TcxGridDBColumn; TV2Column1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
Picture4: TcxDBImage; Picture4: TcxDBImage;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

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

@ -70,10 +70,10 @@ begin
if trim(DataBaseStr) = '' then if trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; server := '150.109.121.232,7781';
dtbase := 'KaiXiYadata'; dtbase := 'KaiXiYadata';
user := 'rtsa'; user := 'kaixiyasa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '管理'; Parameters1 := '管理';
Parameters2 := '纱线'; Parameters2 := '纱线';

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

@ -77,6 +77,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentCtl3D = False ParentCtl3D = False
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Label2: TLabel object Label2: TLabel
Left = 16 Left = 16
Top = 159 Top = 159
@ -105,7 +106,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
end end
object Label7: TLabel object Label7: TLabel
Left = 16 Left = 16
Top = 285 Top = 332
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #22791#27880 Caption = #22791#27880
@ -117,8 +118,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 16 Left = 17
Top = 32 Top = 35
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #21697#21517 Caption = #21697#21517
@ -130,8 +131,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 387 Left = 388
Top = 32 Top = 35
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #32534#21495 Caption = #32534#21495
@ -156,11 +157,11 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentFont = False ParentFont = False
end end
object Label8: TLabel object Label8: TLabel
Left = 387 Left = 388
Top = 74 Top = 72
Width = 60 Width = 77
Height = 21 Height = 21
Caption = #29702#35770'D'#25968 Caption = #20998#29305'(Dtex)'
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -169,7 +170,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentFont = False ParentFont = False
end end
object Label9: TLabel object Label9: TLabel
Left = 387 Left = 388
Top = 201 Top = 201
Width = 32 Width = 32
Height = 21 Height = 21
@ -195,7 +196,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 387 Left = 388
Top = 159 Top = 159
Width = 32 Width = 32
Height = 21 Height = 21
@ -221,7 +222,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentFont = False ParentFont = False
end end
object Label12: TLabel object Label12: TLabel
Left = 387 Left = 388
Top = 116 Top = 116
Width = 32 Width = 32
Height = 21 Height = 21
@ -234,7 +235,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentFont = False ParentFont = False
end end
object Label13: TLabel object Label13: TLabel
Left = 387 Left = 388
Top = 243 Top = 243
Width = 64 Width = 64
Height = 21 Height = 21
@ -246,10 +247,36 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end 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 object Brand: TcxTextEdit
Tag = 2 Tag = 2
Left = 68 Left = 68
Top = 237 Top = 239
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
@ -263,8 +290,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
end end
object Y_Name: TcxTextEdit object Y_Name: TcxTextEdit
Tag = 2 Tag = 2
Left = 68 Left = 69
Top = 28 Top = 31
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
@ -280,8 +307,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
end end
object Y_Code: TcxTextEdit object Y_Code: TcxTextEdit
Tag = 2 Tag = 2
Left = 458 Left = 469
Top = 28 Top = 31
Enabled = False Enabled = False
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
@ -296,7 +323,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
end end
object Denier: TcxTextEdit object Denier: TcxTextEdit
Tag = 2 Tag = 2
Left = 458 Left = 469
Top = 69 Top = 69
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
@ -314,8 +341,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
end end
object Note: TcxMemo object Note: TcxMemo
Tag = 2 Tag = 2
Left = 68 Left = 67
Top = 285 Top = 332
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
@ -326,12 +353,12 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 4 TabOrder = 4
Height = 89 Height = 89
Width = 691 Width = 702
end end
object FF: TcxTextEdit object FF: TcxTextEdit
Tag = 2 Tag = 2
Left = 458 Left = 469
Top = 152 Top = 155
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
@ -360,8 +387,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
end end
object ZS: TcxTextEdit object ZS: TcxTextEdit
Tag = 2 Tag = 2
Left = 458 Left = 469
Top = 111 Top = 112
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Properties.OnEditValueChanged = ZSPropertiesEditValueChanged Properties.OnEditValueChanged = ZSPropertiesEditValueChanged
@ -378,8 +405,8 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
end end
object BYDate: TcxDateEdit object BYDate: TcxDateEdit
Tag = 2 Tag = 2
Left = 458 Left = 469
Top = 237 Top = 239
ParentFont = False ParentFont = False
Properties.ShowTime = False Properties.ShowTime = False
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
@ -393,7 +420,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
end end
object Y_Color: TcxButtonEdit object Y_Color: TcxButtonEdit
Tag = 2 Tag = 2
Left = 458 Left = 469
Top = 194 Top = 194
Hint = 'Y_Color/'#39068#33394 Hint = 'Y_Color/'#39068#33394
ParentFont = False ParentFont = False
@ -418,7 +445,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object Y_Type: TcxButtonEdit object Y_Type: TcxButtonEdit
Tag = 2 Tag = 2
Left = 68 Left = 68
Top = 152 Top = 155
Hint = 'Y_Type/'#31867#22411 Hint = 'Y_Type/'#31867#22411
ParentFont = False ParentFont = False
Properties.Buttons = < Properties.Buttons = <
@ -442,7 +469,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object Y_Composition: TcxButtonEdit object Y_Composition: TcxButtonEdit
Tag = 2 Tag = 2
Left = 68 Left = 68
Top = 111 Top = 112
Hint = 'Y_Composition/'#25104#20998 Hint = 'Y_Composition/'#25104#20998
ParentFont = False ParentFont = False
Properties.Buttons = < Properties.Buttons = <
@ -466,7 +493,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object Y_Spec: TcxButtonEdit object Y_Spec: TcxButtonEdit
Tag = 2 Tag = 2
Left = 68 Left = 68
Top = 69 Top = 70
Hint = 'Y_Spec/'#35268#26684 Hint = 'Y_Spec/'#35268#26684
ParentFont = False ParentFont = False
Properties.Buttons = < Properties.Buttons = <
@ -487,6 +514,43 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
OnDblClick = Y_ColorDblClick OnDblClick = Y_ColorDblClick
Width = 300 Width = 300
end 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 end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1

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

@ -67,6 +67,10 @@ type
Y_Type: TcxButtonEdit; Y_Type: TcxButtonEdit;
Y_Composition: TcxButtonEdit; Y_Composition: TcxButtonEdit;
Y_Spec: TcxButtonEdit; Y_Spec: TcxButtonEdit;
Label14: TLabel;
CJ: TcxButtonEdit;
Label15: TLabel;
LLSH: TcxTextEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -83,6 +87,7 @@ type
procedure ZSPropertiesEditValueChanged(Sender: TObject); procedure ZSPropertiesEditValueChanged(Sender: TObject);
procedure ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Y_ColorDblClick(Sender: TObject); procedure Y_ColorDblClick(Sender: TObject);
procedure CJPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
function SaveData(): Boolean; function SaveData(): Boolean;
@ -97,10 +102,28 @@ var
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp; //, U_ProductInfoSel U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel; //, U_ProductInfoSel
{$R *.dfm} {$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); procedure TfrmYarnInfoInPut.DenierClick(Sender: TObject);
begin begin
ZS.Style.Color := clMoneyGreen; ZS.Style.Color := clMoneyGreen;
@ -113,7 +136,7 @@ end;
procedure TfrmYarnInfoInPut.DenierPropertiesEditValueChanged(Sender: TObject); procedure TfrmYarnInfoInPut.DenierPropertiesEditValueChanged(Sender: TObject);
begin begin
ZS.text := floattostr(roundfloat(9000 / strtofloatdef(Denier.text, 0), 2)); ZS.text := floattostr(roundfloat(5315.5 / strtofloatdef(Denier.text, 0), 0));
end; end;
procedure TfrmYarnInfoInPut.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmYarnInfoInPut.FormClose(Sender: TObject; var Action: TCloseAction);
@ -290,7 +313,9 @@ begin
// Application.MessageBox('编号不能为空!', '提示', 0); // Application.MessageBox('编号不能为空!', '提示', 0);
// Exit; // Exit;
// end; // 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 if Trim(Y_Name.Text) = '' then
begin begin
Application.MessageBox('名称不能为空!', '提示', 0); Application.MessageBox('名称不能为空!', '提示', 0);
@ -315,21 +340,25 @@ end;
procedure TfrmYarnInfoInPut.Y_NameClick(Sender: TObject); procedure TfrmYarnInfoInPut.Y_NameClick(Sender: TObject);
begin begin
Y_Spec.Style.Color := clMoneyGreen;
Y_Composition.Style.Color := clMoneyGreen; Y_Composition.Style.Color := clMoneyGreen;
ZS.Style.Color := clMoneyGreen;
Y_Color.Style.Color := clMoneyGreen; Y_Color.Style.Color := clMoneyGreen;
FF.Style.Color := clMoneyGreen;
CJ.Style.Color := clMoneyGreen;
end; end;
procedure TfrmYarnInfoInPut.Y_NameExit(Sender: TObject); procedure TfrmYarnInfoInPut.Y_NameExit(Sender: TObject);
begin begin
Y_Spec.Style.Color := clWhite;
Y_Composition.Style.Color := clWhite; Y_Composition.Style.Color := clWhite;
ZS.Style.Color := clWhite;
Y_Color.Style.Color := clWhite; Y_Color.Style.Color := clWhite;
FF.Style.Color := clWhite;
CJ.Style.Color := clWhite;
end; end;
procedure TfrmYarnInfoInPut.Y_SpecPropertiesChange(Sender: TObject); procedure TfrmYarnInfoInPut.Y_SpecPropertiesChange(Sender: TObject);
begin 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; end;
procedure TfrmYarnInfoInPut.ZSClick(Sender: TObject); procedure TfrmYarnInfoInPut.ZSClick(Sender: TObject);
@ -344,7 +373,7 @@ end;
procedure TfrmYarnInfoInPut.ZSPropertiesEditValueChanged(Sender: TObject); procedure TfrmYarnInfoInPut.ZSPropertiesEditValueChanged(Sender: TObject);
begin begin
Denier.text := floattostr(roundfloat(9000 / strtofloatdef(ZS.text, 0), 2)); Denier.text := floattostr(roundfloat(5315.5 / strtofloatdef(ZS.text, 0), 0));
end; end;
end. end.

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

@ -3,9 +3,9 @@ inherited frmYarnInfoList: TfrmYarnInfoList
Top = 106 Top = 106
Caption = #32433#32447#20449#24687#21015#34920 Caption = #32433#32447#20449#24687#21015#34920
ClientHeight = 556 ClientHeight = 556
ClientWidth = 1234 ClientWidth = 1357
Font.Height = -16 Font.Height = -16
ExplicitWidth = 1250 ExplicitWidth = 1373
ExplicitHeight = 595 ExplicitHeight = 595
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -13,7 +13,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1234 Width = 1357
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -31,6 +31,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 3 TabOrder = 3
ExplicitWidth = 1256
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -136,7 +137,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1234 Width = 1357
Height = 43 Height = 43
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -144,6 +145,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
ExplicitWidth = 1256
object Label2: TLabel object Label2: TLabel
Left = 226 Left = 226
Top = 10 Top = 10
@ -210,10 +212,11 @@ inherited frmYarnInfoList: TfrmYarnInfoList
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 73 Top = 73
Width = 1234 Width = 1357
Height = 483 Height = 483
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1256
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -353,7 +356,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList
Width = 89 Width = 89
end end
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #29702#35770'D'#25968 Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -410,6 +413,22 @@ inherited frmYarnInfoList: TfrmYarnInfoList
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
end 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 object v1Column12: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
@ -417,7 +436,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 102 Width = 103
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel

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

@ -84,6 +84,8 @@ type
ToolButton5: TToolButton; ToolButton5: TToolButton;
Y_Spec: TcxComboBox; Y_Spec: TcxComboBox;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(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_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmFjList_RZ}, U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmFjList_RZ},
U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel}, 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_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
U_YarnStkList in 'U_YarnStkList.pas' {frmYarnStkList}, U_YarnStkList in 'U_YarnStkList.pas' {frmYarnStkList},
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload}, U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
U_YarnInfoSel in '..\A00通用窗体\U_YarnInfoSel.pas' {frmYarnInfoSel}, U_YarnInfoSel in '..\A00通用窗体\U_YarnInfoSel.pas' {frmYarnInfoSel},
U_testdll in 'U_testdll.pas' {Form1}, U_testdll in 'U_testdll.pas' {Form1},
U_ClothPurchasePlanSel in '..\A00通用窗体\U_ClothPurchasePlanSel.pas' {frmClothPurchasePlanSel}, U_ClothPurchasePlanSel in '..\A00通用窗体\U_ClothPurchasePlanSel.pas' {frmClothPurchasePlanSel},
// U_JWLPurchasePlanSel in '..\B03基础物料仓库\U_JWLPurchasePlanSel.pas' {frmJWLPurchasePlanSel},
U_YarnWeighing in 'U_YarnWeighing.pas' {frmYarnWeighing}, U_YarnWeighing in 'U_YarnWeighing.pas' {frmYarnWeighing},
U_CPSelBig in 'U_CPSelBig.pas' {frmCPSelBig}, U_CPSelBig in 'U_CPSelBig.pas' {frmCPSelBig},
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet}, U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
@ -50,7 +48,8 @@ uses
U_YarnPurOutReturn1 in 'U_YarnPurOutReturn1.pas' {frmYarnPurOutReturn1}, U_YarnPurOutReturn1 in 'U_YarnPurOutReturn1.pas' {frmYarnPurOutReturn1},
U_YarnInList_RC in 'U_YarnInList_RC.pas' {frmYarnInList_RC}, U_YarnInList_RC in 'U_YarnInList_RC.pas' {frmYarnInList_RC},
U_YarnPurchasePlanSel in '..\A00通用窗体\U_YarnPurchasePlanSel.pas' {frmYarnPurchasePlanSel}, 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} {$R *.res}

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

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

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

@ -1,92 +1,92 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.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.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.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.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=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.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.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.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</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.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.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.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.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm</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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.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.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.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.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_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.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.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.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.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.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.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.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</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.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.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.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.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.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.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.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.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.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.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -117,7 +117,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10szKaiXiYa"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <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 GridView = Tv1
end end
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 inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_ProductStk.ADOLink Connection = DataLink_ProductStk.ADOLink
Left = 113 Left = 113

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

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

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

@ -37,7 +37,8 @@ uses
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas', U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel}, U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, 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} {$R *.res}

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

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

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

@ -1,50 +1,51 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.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.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.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.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.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.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.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.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.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.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.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.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.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.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.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.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.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.630,=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.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.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.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -93,6 +94,8 @@
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/> <File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_TatClothInfoSel.pas"/> <File Path="..\A00通用窗体\U_TatClothInfoSel.pas"/>
<File Path="..\A00通用窗体\U_TatClothInfoSel.dfm"/> <File Path="..\A00通用窗体\U_TatClothInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_ProductInfoSel.pas"/>
<File Path="..\A00通用窗体\U_ProductInfoSel.dfm"/>
<File Path="..\A00通用组件"/> <File Path="..\A00通用组件"/>
<File Path="..\A00通用组件\FrameDateSel.pas"/> <File Path="..\A00通用组件\FrameDateSel.pas"/>
<File Path="..\A00通用组件\FrameDateSel.dfm"/> <File Path="..\A00通用组件\FrameDateSel.dfm"/>

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

@ -70,10 +70,10 @@ begin
if trim(DataBaseStr) = '' then if trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; server := '150.109.121.232,7781';
dtbase := 'KaiXiYadata'; dtbase := 'KaiXiYadata';
user := 'rtsa'; user := 'kaixiyasa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '¹ÜÀí'; Parameters1 := '¹ÜÀí';
end end

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

@ -178,10 +178,11 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Left = 0 Left = 0
Top = 168 Top = 168
Width = 1364 Width = 1364
Height = 297 Height = 294
Align = alClient Align = alClient
PopupMenu = pm1 PopupMenu = pm1
TabOrder = 3 TabOrder = 3
ExplicitHeight = 297
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -384,7 +385,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 5
object Label4: TLabel object Label4: TLabel
Left = 452 Left = 452
Top = 45 Top = 45
@ -450,8 +451,12 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1360 ExplicitWidth = 1360
inherited cbbType: TcxComboBox ExplicitHeight = 37
ExplicitHeight = 29 inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
end end
end end
object Y_Name: TcxTextEdit object Y_Name: TcxTextEdit
@ -486,22 +491,29 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
end end
object cxSplitter1: TcxSplitter [4] object cxSplitter1: TcxSplitter [4]
Left = 0 Left = 0
Top = 465 Top = 729
Width = 1364 Width = 1364
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
ExplicitTop = 465
end 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 Left = 0
Top = 473 Top = 462
Width = 1364 Width = 1364
Height = 264 Height = 267
Align = alBottom Align = alBottom
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = pm2 TabOrder = 7
TabOrder = 5 object Tv2: TcxGridDBTableView
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2 DataController.DataSource = DS_2
@ -532,11 +544,10 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
end end
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn9 Column = cxGridDBColumn6
end end
item item
Kind = skSum Kind = skSum
Column = TV2Column5
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True OptionsBehavior.FocusCellOnTab = True
@ -555,163 +566,111 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False Options.Editing = False
SortIndex = 0 SortIndex = 0
SortOrder = soAscending SortOrder = soAscending
Width = 55 Width = 70
end end
object TV2Column15: TcxGridDBColumn object Tv21Column18: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #31867#22411
DataBinding.FieldName = 'StkName2' DataBinding.FieldName = 'C_Degree'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100 Width = 72
end end
object TV2Column2: TcxGridDBColumn object cxGridDBColumn2: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'SDlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 109
end
object TV2Column10: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'Y_Code' DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False 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 Width = 80
end end
object TV2Column9: TcxGridDBColumn object cxGridDBColumn3: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Yarn_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'Y_Name' DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end end
object TV2Column3: TcxGridDBColumn
Caption = #24037#24207
DataBinding.FieldName = 'GX'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #32463#32433'/'#32428#32433 Caption = #25104#20998
DataBinding.FieldName = 'Y_Spec' DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 105 Width = 122
end end
object TV2Column11: TcxGridDBColumn object Tv21Column11: TcxGridDBColumn
Caption = 'D'#25968 Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 117
end end
object TV2Column12: TcxGridDBColumn object Tv21Column14: TcxGridDBColumn
Caption = #25903#25968 Caption = #25903#25968
DataBinding.FieldName = 'Z_Number' DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 82
end end
object TV2Column13: TcxGridDBColumn object Tv21Column15: TcxGridDBColumn
Caption = 'F'#25968 Caption = #32442#27861
DataBinding.FieldName = 'F_Number' DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 70
end end
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #32433#32447#31561#32423 Caption = #25467#24230
DataBinding.FieldName = 'Y_Type' DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'A'
'B'
'C')
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 104 Width = 95
end end
object cxGridDBColumn5: TcxGridDBColumn object cxGridDBColumn5: TcxGridDBColumn
Caption = #26412#21378#25209#21495 Caption = #39068#33394
DataBinding.FieldName = 'BCPH' DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 91 Width = 108
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
end end
object v1PRTOrderQty: TcxGridDBColumn object v1PRTOrderQty: TcxGridDBColumn
Caption = #24635#37325#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 81 Width = 94
end end
object v1OrderUnit: TcxGridDBColumn object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
@ -722,10 +681,10 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
'Y') 'Y')
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 86 Width = 80
end end
object v1PRTPrice: TcxGridDBColumn object v1PRTPrice: TcxGridDBColumn
Caption = #21547#31246#21333#20215 Caption = #21333#20215
DataBinding.FieldName = 'Price' DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
@ -734,22 +693,23 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Sorting = False Options.Sorting = False
Width = 90 Width = 90
end end
object cxGridDBColumn9: TcxGridDBColumn object cxGridDBColumn6: TcxGridDBColumn
Caption = #21547#31246#37329#39069 Caption = #37329#39069
DataBinding.FieldName = 'Amount' DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 84 Width = 90
end end
object TV2Column14: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #19981#21547#31246#37329#39069 Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'Amount2' DataBinding.FieldName = 'SDlyDate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100 Width = 109
end end
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
@ -757,45 +717,13 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 122
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
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV2 GridView = Tv2
end end
end end
inherited cxProgressBar2: TcxProgressBar
Left = 391
Top = 295
ExplicitLeft = 391
ExplicitTop = 295
ExplicitHeight = 28
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink Connection = DataLink_PurchasePlan.ADOLink
Left = 233 Left = 233

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

@ -10,26 +10,10 @@ uses
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg,
U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, RM_E_llPDF, Vcl.Clipbrd, dxScrollbarAnnotations, FrameDateSel, cxContainer,
dxScrollbarAnnotations, FrameDateSel, cxContainer, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters;
cxProgressBar;
type type
TfrmYarnPurchasePlanList = class(TfrmBaseList) TfrmYarnPurchasePlanList = class(TfrmBaseList)
@ -89,28 +73,11 @@ type
ToolButton7: TToolButton; ToolButton7: TToolButton;
N3: TMenuItem; N3: TMenuItem;
N4: 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; N5: TMenuItem;
N6: TMenuItem; N6: TMenuItem;
TV2Column1: TcxGridDBColumn;
frmFrameDateSel1: TfrmFrameDateSel; frmFrameDateSel1: TfrmFrameDateSel;
TV2Column2: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
Y_Name: TcxTextEdit; Y_Name: TcxTextEdit;
cxStyleRepository1: TcxStyleRepository; cxStyleRepository1: TcxStyleRepository;
@ -119,26 +86,32 @@ type
cxStyle2: TcxStyle; cxStyle2: TcxStyle;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
ADO_1: TADOQuery; ADO_1: TADOQuery;
TV2Column6: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn;
TV2Column9: TcxGridDBColumn;
TV2Column10: TcxGridDBColumn;
TV2Column11: TcxGridDBColumn;
TV2Column12: TcxGridDBColumn;
TV2Column13: TcxGridDBColumn;
TV2Column14: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
TV2Column15: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
TV2Column8: TcxGridDBColumn;
TV2Column16: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn; cxGrid2: TcxGrid;
TV2Column17: TcxGridDBColumn; Tv2: TcxGridDBTableView;
TV2Column18: TcxGridDBColumn; 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 FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

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

@ -64,7 +64,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 67 ButtonWidth = 115
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clBtnFace Color = clBtnFace
DisabledImages = DataLink_PurchasePlan.cxImageList_bar DisabledImages = DataLink_PurchasePlan.cxImageList_bar
@ -79,12 +79,20 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Left = 0 Left = 0
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22686#34892 Caption = #32433#32447#26723#26696
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton4: TToolButton
Left = 103
Top = 0
AutoSize = True
Caption = #26426#29289#26009#26723#26696
ImageIndex = 2
OnClick = ToolButton4Click
end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 71 Left = 222
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
@ -136,7 +144,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column21
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True OptionsBehavior.FocusCellOnTab = True
@ -168,8 +175,8 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Width = 70 Width = 70
end end
object Tv1Column18: TcxGridDBColumn object Tv1Column18: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #31867#22411
DataBinding.FieldName = 'StkName2' DataBinding.FieldName = 'C_Degree'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
@ -180,26 +187,20 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column18PropertiesButtonClick Properties.OnButtonClick = Tv1Column18PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 103 Options.Editing = False
end Width = 72
object Tv1Column3: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'SDlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter
Width = 109
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'Y_Code' DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67 Width = 67
end end
object Tv1Column16: TcxGridDBColumn object Tv1Column16: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'Yarn_Name' DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -207,61 +208,47 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
end end
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'Y_Name' DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end 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 object v1Column5: TcxGridDBColumn
Caption = #32463#32433'/'#32428#32433 Caption = #25104#20998
DataBinding.FieldName = 'Y_Spec' DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 122 Width = 122
end end
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = 'D'#25968 Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 117
end end
object Tv1Column14: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
Caption = #25903#25968 Caption = #25903#25968
DataBinding.FieldName = 'Z_Number' DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 82 Width = 82
end end
object Tv1Column15: TcxGridDBColumn object Tv1Column15: TcxGridDBColumn
Caption = 'F'#25968 Caption = #32442#27861
DataBinding.FieldName = 'F_Number' DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #32433#32447#31561#32423 Caption = #25467#24230
DataBinding.FieldName = 'Y_Type' DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -269,65 +256,19 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
'B' 'B'
'C') 'C')
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95 Width = 95
end end
object Tv1Column4: TcxGridDBColumn
Caption = #26412#21378#25209#21495
DataBinding.FieldName = 'BCPH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #20379#24212#21830#25209#21495 Caption = #39068#33394
DataBinding.FieldName = 'GYSPH' DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108 Width = 108
end 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 object v1PRTOrderQty: TcxGridDBColumn
Caption = #24635#37325#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
@ -336,7 +277,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Width = 94 Width = 94
end end
object v1OrderUnit: TcxGridDBColumn object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
@ -349,7 +290,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Width = 80 Width = 80
end end
object v1PRTPrice: TcxGridDBColumn object v1PRTPrice: TcxGridDBColumn
Caption = #21547#31246#21333#20215 Caption = #21333#20215
DataBinding.FieldName = 'Price' DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
@ -359,7 +300,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Width = 90 Width = 90
end end
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #21547#31246#37329#39069 Caption = #37329#39069
DataBinding.FieldName = 'Amount' DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
@ -367,40 +308,20 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Options.Editing = False Options.Editing = False
Width = 90 Width = 90
end end
object Tv1Column17: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #19981#21547#31246#37329#39069 Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'Amount2' DataBinding.FieldName = 'SDlyDate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 109
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
end end
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'SNote' DataBinding.FieldName = 'SNote'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 48 Width = 122
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel

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

@ -10,28 +10,12 @@ uses
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
dxDateRanges, dxBarBuiltInMenu, dxDateTimeWheelPicker, dxGDIPlusClasses, dxDateTimeWheelPicker, dxGDIPlusClasses, Vcl.Menus, MovePanel, cxCheckBox,
Vcl.Menus, MovePanel, cxCheckBox, cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, System.ImageList, Vcl.ImgList,
System.ImageList, Vcl.ImgList, IdBaseComponent, IdComponent, IdTCPConnection, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, dxScrollbarAnnotations, dxCore,
dxScrollbarAnnotations, dxCore, cxDateUtils, cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters;
cxImageList, dxSkinsCore, dxSkinsDefaultPainters;
type type
TfrmYarnPurchasePlanPut = class(TfrmBaseInput) TfrmYarnPurchasePlanPut = class(TfrmBaseInput)
@ -91,26 +75,17 @@ type
cxGridLevel2: TcxGridLevel; cxGridLevel2: TcxGridLevel;
TV2Column4: TcxGridDBColumn; TV2Column4: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
StkName: TcxButtonEdit; StkName: TcxButtonEdit;
Tv1Column11: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn; Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn;
Label2: TLabel; Label2: TLabel;
ShuiLv: TcxTextEdit; ShuiLv: TcxTextEdit;
Tv1Column13: TcxGridDBColumn; ToolButton4: TToolButton;
Tv1Column19: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -138,6 +113,7 @@ type
procedure ShuiLvPropertiesEditValueChanged(Sender: TObject); procedure ShuiLvPropertiesEditValueChanged(Sender: TObject);
procedure IsTaxPropertiesChange(Sender: TObject); procedure IsTaxPropertiesChange(Sender: TObject);
procedure Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject);
private private
FLeft, FTop: Integer; FLeft, FTop: Integer;
fuserName, Fstatus: string; fuserName, Fstatus: string;
@ -166,7 +142,8 @@ var
implementation implementation
uses 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} {$R *.dfm}
@ -384,16 +361,6 @@ begin
if Order_Sub.IsEmpty then if Order_Sub.IsEmpty then
raise Exception.Create('明细不能为空！'); 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 if Order_Sub.Locate('Y_Name', null, []) then
raise Exception.Create('品名不能为空！'); raise Exception.Create('品名不能为空！');
if Order_Sub.Locate('Y_Name', '', []) then if Order_Sub.Locate('Y_Name', '', []) then
@ -409,19 +376,6 @@ begin
if Order_Sub.Locate('QtyUnit', '', []) then if Order_Sub.Locate('QtyUnit', '', []) then
raise Exception.Create('数量单位不能为空！'); 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; Result := True;
except except
Result := false; Result := false;
@ -813,53 +767,18 @@ begin
FieldByName(FFieldName).Value := Trim(mvalue); FieldByName(FFieldName).Value := Trim(mvalue);
Post; Post;
FPiece := Fieldbyname('Piece').AsFloat; FQty := Fieldbyname('Qty').AsFloat;
FPieceKG := Fieldbyname('PieceKG').AsFloat; FPrice := Fieldbyname('Price').AsFloat; //单价
FPrice := Fieldbyname('Price').AsFloat; //含税单价
FSJMoney := Fieldbyname('SJMoney').AsFloat; //实际金额
FSL := StrToFloatdef(ShuiLv.text, 0);
FKeShu := Fieldbyname('KeShu').AsInteger;
FKeKG := Fieldbyname('KeKG').AsFloat;
end; end;
if FFieldName <> 'Qty' then FAmount := RoundFloat(FQty * FPrice, 2); //金额
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); //实际金额
with Order_Sub do with Order_Sub do
begin begin
Edit; Edit;
FieldByName('PieceKG').Value := FPieceKG;
FieldByName('Piece').Value := FPiece;
FieldByName('Qty').Value := FQty; FieldByName('Qty').Value := FQty;
FieldByName('KeShu').Value := FKeShu;
FieldByName('KeKG').Value := FKeKG;
FieldByName('Price').Value := FPrice; FieldByName('Price').Value := FPrice;
FieldByName('SJPrice').Value := FSJPrice;
FieldByName('Amount').Value := FAmount; FieldByName('Amount').Value := FAmount;
FieldByName('Amount2').Value := FAmount2;
FieldByName('SJMoney').Value := FSJMoney;
Post; Post;
end; end;
tv1.Controller.EditingController.ShowEdit(); tv1.Controller.EditingController.ShowEdit();
@ -884,8 +803,6 @@ begin
frmYarnInfoSel := TfrmYarnInfoSel.Create(Application); frmYarnInfoSel := TfrmYarnInfoSel.Create(Application);
with frmYarnInfoSel do with frmYarnInfoSel do
begin begin
// ISDJ := 1;
FSTKName := '纱线原料';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
with CDS_1 do with CDS_1 do
@ -902,52 +819,22 @@ begin
FieldByName('SerialNo').Value := i; FieldByName('SerialNo').Value := i;
FieldByName('PurSId').Value := maxno + INTTOSTR(i); FieldByName('PurSId').Value := maxno + INTTOSTR(i);
FieldByName('C_Degree').Value := '纱线';
FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').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_Name').Value := CDS_1.fieldbyname('Y_Name').value;
FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').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('Denier').Value := CDS_1.fieldbyname('Denier').value;
FieldByName('Z_Number').Value := CDS_1.fieldbyname('Z_Number').value; FieldByName('ZS').Value := CDS_1.fieldbyname('ZS').value;
FieldByName('F_Number').Value := CDS_1.fieldbyname('F_Number').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 FieldByName('Y_Color').Value := Cds_1.FieldByName('Y_Color').Value;
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('Qty').Value := 0; FieldByName('Qty').Value := 0;
FieldByName('Price').Value := 0;
FieldByName('QtyUnit').Value := 'Kg'; FieldByName('QtyUnit').Value := 'Kg';
end; end;
@ -1006,6 +893,64 @@ begin
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '销售合同管理'); WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '销售合同管理');
end; 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); procedure TfrmYarnPurchasePlanPut.Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try 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 if trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; server := '150.109.121.232,7781';
dtbase := 'KaiXiYadata'; dtbase := 'KaiXiYadata';
user := 'rtsa'; user := 'kaixiyasa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '管理'; Parameters1 := '管理';
Parameters2 := '空轴'; Parameters2 := '空轴';

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

@ -2,24 +2,23 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 88 Left = 88
Top = 141 Top = 141
Caption = #25972#32463#24037#33402#24405#20837 Caption = #25972#32463#24037#33402#24405#20837
ClientHeight = 755 ClientHeight = 863
ClientWidth = 1115 ClientWidth = 1115
Color = clWhite Color = clWhite
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
ExplicitWidth = 1131 ExplicitWidth = 1131
ExplicitHeight = 794 ExplicitHeight = 902
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object cxGrid1: TcxGrid [0] object cxGrid1: TcxGrid [0]
Left = 0 Left = 0
Top = 455 Top = 455
Width = 1115 Width = 1115
Height = 300 Height = 408
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 461 ExplicitHeight = 300
ExplicitHeight = 294
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -149,12 +148,19 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Width = 70 Width = 70
end end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #29702#35770'D'#25968 Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Width = 100
end end
object Tv1Column8: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #26681#25968 Caption = #26681#25968
DataBinding.FieldName = 'YarnQty' DataBinding.FieldName = 'YarnQty'
@ -550,7 +556,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ShowCaptions = True ShowCaptions = True
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
ExplicitTop = 431
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0

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

@ -101,6 +101,7 @@ type
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Label18: TLabel; Label18: TLabel;
ISSizing: TcxComboBox; ISSizing: TcxComboBox;
Tv1Column8: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -388,24 +389,50 @@ begin
Append; Append;
FieldByName('RowNo').Value := 'A'; FieldByName('RowNo').Value := 'A';
Post; Post;
Append; Append;
FieldByName('RowNo').Value := 'B'; FieldByName('RowNo').Value := 'B';
Post; Post;
Append; Append;
FieldByName('RowNo').Value := 'C'; FieldByName('RowNo').Value := 'C';
Post; Post;
Append; Append;
FieldByName('RowNo').Value := 'D'; FieldByName('RowNo').Value := 'D';
Post; Post;
Append; Append;
FieldByName('RowNo').Value := 'E'; FieldByName('RowNo').Value := 'E';
Post; Post;
Append; Append;
FieldByName('RowNo').Value := 'F'; FieldByName('RowNo').Value := 'F';
Post; Post;
Append; Append;
FieldByName('RowNo').Value := 'G'; FieldByName('RowNo').Value := 'G';
Post; 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;
end; end;
@ -526,6 +553,7 @@ begin
FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').value; FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').value;
FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value; FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value;
FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').value; FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').value;
FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').value;
FieldByName('Y_Ratio').Value := 0; FieldByName('Y_Ratio').Value := 0;
end; end;
end; end;

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

@ -3,9 +3,9 @@ inherited frmWBSpecList: TfrmWBSpecList
Top = 106 Top = 106
Caption = #25972#32463#24037#33402#21015#34920 Caption = #25972#32463#24037#33402#21015#34920
ClientHeight = 556 ClientHeight = 556
ClientWidth = 1420 ClientWidth = 1539
Font.Height = -16 Font.Height = -16
ExplicitWidth = 1436 ExplicitWidth = 1555
ExplicitHeight = 595 ExplicitHeight = 595
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -13,7 +13,7 @@ inherited frmWBSpecList: TfrmWBSpecList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1420 Width = 1539
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -101,7 +101,7 @@ inherited frmWBSpecList: TfrmWBSpecList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1420 Width = 1539
Height = 46 Height = 46
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -147,7 +147,7 @@ inherited frmWBSpecList: TfrmWBSpecList
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 76 Top = 76
Width = 824 Width = 943
Height = 480 Height = 480
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
@ -319,7 +319,7 @@ inherited frmWBSpecList: TfrmWBSpecList
end end
end end
object Panel2: TPanel [3] object Panel2: TPanel [3]
Left = 824 Left = 943
Top = 76 Top = 76
Width = 596 Width = 596
Height = 480 Height = 480
@ -466,13 +466,21 @@ inherited frmWBSpecList: TfrmWBSpecList
Width = 70 Width = 70
end end
object TV2Column4: TcxGridDBColumn object TV2Column4: TcxGridDBColumn
Caption = #29702#35770'D'#25968 Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
end end
object TV2Column5: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #26681#25968 Caption = #26681#25968
DataBinding.FieldName = 'YarnQty' DataBinding.FieldName = 'YarnQty'

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

@ -98,6 +98,7 @@ type
TV2Column3: TcxGridDBColumn; TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn; TV2Column4: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
TV2Column5: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);