rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
WIN-20240704XZY\Administrator 2024-09-13 17:30:30 +08:00
parent 24bfda764b
commit 4661a115bf
33 changed files with 25981 additions and 1833 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
public10/ThreeFun/Form/U_ZDYHelpSel.dfm
View File

@ -23,9 +23,16 @@ object frmZDYHelpSel: TfrmZDYHelpSel
Top = 88
Width = 481
Height = 377
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 0
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = TV1CellDblClick
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -40,6 +47,7 @@ object frmZDYHelpSel: TfrmZDYHelpSel
object V1Code: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'ZDYNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 97
@ -47,6 +55,7 @@ object frmZDYHelpSel: TfrmZDYHelpSel
object V1Column1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@ -57,6 +66,7 @@ object frmZDYHelpSel: TfrmZDYHelpSel
Tag = 2
Caption = #21517#31216
DataBinding.FieldName = 'ZDYName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
@ -65,6 +75,7 @@ object frmZDYHelpSel: TfrmZDYHelpSel
object V1Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1NotePropertiesEditValueChanged
Visible = False
@ -74,6 +85,7 @@ object frmZDYHelpSel: TfrmZDYHelpSel
object V1OrderNo: TcxGridDBColumn
Caption = #39034#24207#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 53
@ -87,18 +99,18 @@ object frmZDYHelpSel: TfrmZDYHelpSel
Left = 0
Top = 0
Width = 512
Height = 38
Height = 30
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = ImageList_new32
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
@ -112,28 +124,28 @@ object frmZDYHelpSel: TfrmZDYHelpSel
OnClick = ToolButton1Click
end
object TBAdd: TToolButton
Left = 75
Left = 59
Top = 0
Caption = #22686#34892
ImageIndex = 2
OnClick = TBAddClick
end
object TBDel: TToolButton
Left = 150
Left = 118
Top = 0
Caption = #21024#34892
ImageIndex = 6
OnClick = TBDelClick
end
object TBEdit: TToolButton
Left = 225
Left = 177
Top = 0
Caption = #20462#25913
ImageIndex = 3
OnClick = TBEditClick
end
object TBSave: TToolButton
Left = 300
Left = 236
Top = 0
Caption = #20445#23384
ImageIndex = 16
@ -141,7 +153,7 @@ object frmZDYHelpSel: TfrmZDYHelpSel
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 375
Left = 295
Top = 0
Caption = #20851#38381
ImageIndex = 7
@ -150,20 +162,27 @@ object frmZDYHelpSel: TfrmZDYHelpSel
end
object Panel1: TPanel
Left = 0
Top = 38
Top = 30
Width = 512
Height = 44
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentFont = False
TabOrder = 2
ExplicitTop = 38
object Label1: TLabel
Left = 19
Top = 17
Width = 24
Height = 12
Left = 21
Top = 11
Width = 32
Height = 21
Caption = #21517#31216
end
object Label2: TLabel
@ -181,14 +200,12 @@ object frmZDYHelpSel: TfrmZDYHelpSel
ParentColor = False
ParentFont = False
end
object ZDYName: TEdit
object ZDYName: TcxTextEdit
Tag = 2
Left = 54
Top = 12
Width = 169
Height = 20
Left = 56
Top = 6
TabOrder = 0
OnChange = ZDYNameChange
Width = 169
end
end
object ADOQueryMain: TADOQuery

5
public10/ThreeFun/Form/U_ZDYHelpSel.pas
View File

@ -10,7 +10,8 @@ uses
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxCheckBox, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsDefaultPainters, cxNavigator, dxDateRanges, System.ImageList,
System.Types, dxBarBuiltInMenu, cxGridCustomPopupMenu, cxGridPopupMenu;
System.Types, dxBarBuiltInMenu, cxGridCustomPopupMenu, cxGridPopupMenu,
dxSkinWXI, dxScrollbarAnnotations, cxContainer;
type
TfrmZDYHelpSel = class(TForm)
@ -36,7 +37,7 @@ type
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
ZDYName: TEdit;
ZDYName: TcxTextEdit;
ThreeImgList: TImageList;
V1Column1: TcxGridDBColumn;
Label2: TLabel;

18
public10/design/U_BaseDataLink.pas
View File

@ -8,7 +8,23 @@ uses
cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit,
System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles,
dxSkinBasic, dxSkinWXI, dxLayoutLookAndFeels,
cxLocalization, dxSkinHighContrast;
cxLocalization, dxSkinHighContrast, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark,
dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver,
dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, dxSkinOffice2013White,
dxSkinOffice2016Colorful, dxSkinOffice2016Dark, dxSkinOffice2019Black,
dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, dxSkinOffice2019White,
dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type
TBaseDataLink = class(TDataModule)

BIN
项目代码/RTBasicsV1/F01染色坯布仓库/DyeGreyClothStk.identcache
View File

Binary file not shown.

2
项目代码/RTBasicsV1/F01染色坯布仓库/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject>
<Transactions/>
<Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj"/>
<Projects ActiveProject="D:\RTFormwork\项目代码\RTBasicsV1\F01染色坯布仓库\DyeGreyClothStk.dproj"/>
</Default.Personality>
</BorlandProject>

BIN
项目代码/RTBasicsV1/F01染色坯布仓库/testDll.identcache
View File

Binary file not shown.

26
项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj.local
View File

@ -8,8 +8,8 @@
<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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.937,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.537,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.764,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInStk.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.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.505,D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeLabelSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeInspSet.pas</Transaction>
@ -37,42 +37,42 @@
<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.753,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.053,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.334,D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule1.pas=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.365,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.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.053,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.053,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanList.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:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule1.dfm=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule.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.396,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanList.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.396,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.103,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll</Transaction>
<Transaction>1899-12-30 00:00:00.000.442,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll=</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.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.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.442,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll=</Transaction>
<Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll</Transaction>
<Transaction>1899-12-30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradePlanList.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.081,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.686,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.082,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.560,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm</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.082,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.686,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.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.424,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleString.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.dfm</Transaction>
<Transaction>2024-07-23 21:02:39.334,D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule1.pas=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
<Transaction>2024-07-23 21:02:39.334,D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule1.dfm=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule.dfm</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>

BIN
项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.identcache
View File

Binary file not shown.

8069
项目代码/RTBasicsV1/T01贸易生产计划/devchs.ini Normal file
View File

File diff suppressed because it is too large Load Diff

150
项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.dproj.local
View File

@ -1,109 +1,109 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj</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.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.591,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.591,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.336,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeClothOutInspList.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.795,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutEdit.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.110,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.722,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.336,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeClothOutInspList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.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.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm</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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.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.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.266,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.389,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothStkList.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.929,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.282,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.266,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.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.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.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.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm</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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</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.801,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.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.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.350,=D:\Dp10RepoV1\项目代码\永亮\T02贸易汇总仓库\U_TradeGreyClothInList.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.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.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.558,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.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.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.129,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.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.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.908,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.029,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkSel.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.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.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.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.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.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.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.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.307,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.110,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.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.736,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.656,=D:\RTFormwork\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.210,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInList.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.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.549,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.656,=D:\RTFormwork\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.038,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.908,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.210,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInList.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>

BIN
项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.identcache
View File

Binary file not shown.

406
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInEdit.dfm
View File

@ -18,13 +18,20 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
object cxGrid2: TcxGrid [0]
Tag = 2
Left = 0
Top = 132
Top = 116
Width = 992
Height = 432
Height = 448
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 0
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DataSource3
DataController.Summary.DefaultGroupSummaryItems = <>
@ -51,23 +58,18 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.IncSearch = DataLink_TradeTotalClothStk.SHuangSe
Styles.Header = DataLink_TradeTotalClothStk.Default
Styles.Inactive = DataLink_TradeTotalClothStk.SHuangSe
Styles.Selection = DataLink_TradeTotalClothStk.SHuangSe
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 83
end
object Tv1Column8: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -76,13 +78,11 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
end>
Properties.OnButtonClick = ButtonEdit
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
end
object v1SPName: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -91,14 +91,12 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
end>
Properties.OnButtonClick = v2Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 101
end
object v1SPSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -108,61 +106,49 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
Properties.OnButtonClick = v1Column8PropertiesButtonClick
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 112
end
object v1SPMF: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 75
end
object v1Column8: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 73
end
object Tv1Column7: TcxGridDBColumn
Caption = #26579#21378#32568#21495
DataBinding.FieldName = 'FtyPCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 81
end
object v1Column9: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 68
end
object v2Column6: TcxGridDBColumn
Caption = #38271#24230
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 92
end
object v1QtyUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
@ -170,23 +156,19 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
'Y'
'Kg')
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 64
end
object Tv1Column1: TcxGridDBColumn
Caption = #37325#37327
DataBinding.FieldName = 'KGQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 80
end
object v1Column5: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -196,86 +178,67 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
Properties.ReadOnly = False
Properties.OnButtonClick = v1Column5PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 79
end
object v1Column7: TcxGridDBColumn
Caption = #36710#38388
DataBinding.FieldName = 'Workshop'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#19968#36710#38388
#20108#36710#38388)
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 70
end
object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 68
end
object Tv1Column6: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 67
end
object Tv1Column9: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 66
end
object Tv1Column10: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 66
end
object Tv1Column13: TcxGridDBColumn
Caption = #26412#21378#32568#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 68
end
object Tv1Column11: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 66
end
object v1Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 66
end
end
@ -288,18 +251,18 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
Left = 0
Top = 0
Width = 1465
Height = 38
Height = 30
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = DataLink_TradeTotalClothStk.ImageList_new32
Images = DataLink_TradeTotalClothStk.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
@ -322,7 +285,7 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 166
Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381
@ -330,7 +293,7 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
OnClick = TBCloseClick
end
object ToolButton2: TToolButton
Left = 237
Left = 245
Top = 0
AutoSize = True
Caption = #25209#37327#25171#21360
@ -341,23 +304,30 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
end
object GroupBox1: TGroupBox [2]
Left = 992
Top = 132
Top = 116
Width = 473
Height = 432
Height = 448
Align = alRight
Caption = #22238#20179#26126#32454#20449#24687'('#21452#20987#21024#38500#26126#32454#20449#24687')'
TabOrder = 2
object cxGrid1: TcxGrid
Left = 2
Top = 52
Top = 44
Width = 469
Height = 378
Height = 402
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
PopupMenu = PopupMenu1
TabOrder = 0
object Tv2: TcxGridDBTableView
OnMouseDown = Tv2MouseDown
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv2CellDblClick
OnCustomDrawCell = Tv2CustomDrawCell
DataController.DataSource = DSMX
@ -393,86 +363,68 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 40
Styles.Content = DataLink_TradeTotalClothStk.Default
Styles.Header = DataLink_TradeTotalClothStk.Default
object Tv2Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 41
end
object v2Column5: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'Pieceno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 43
end
object v2Column3: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 80
end
object v2Column4: TcxGridDBColumn
Caption = #38271#24230
DataBinding.FieldName = 'InputLen'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column4PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 67
end
object Tv2Column2: TcxGridDBColumn
Caption = #38271#24230#21333#20301
DataBinding.FieldName = 'LenUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 70
end
object Tv2Column1: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 80
end
object Tv2Column3: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 65
end
object Tv2Column5: TcxGridDBColumn
Caption = #25171#21360#27425#25968
DataBinding.FieldName = 'PrtCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
Width = 60
end
end
@ -485,18 +437,18 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
Left = 2
Top = 14
Width = 469
Height = 38
Height = 30
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
ButtonHeight = 30
ButtonWidth = 67
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = DataLink_TradeTotalClothStk.ImageList_new32
Images = DataLink_TradeTotalClothStk.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
@ -514,86 +466,54 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
end
object Panel1: TPanel [3]
Left = 0
Top = 38
Top = 30
Width = 1465
Height = 56
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 3
object Label1: TLabel
Left = 36
Top = 20
Width = 48
Height = 12
Left = 26
Top = 17
Width = 64
Height = 21
Caption = #20837#24211#26085#26399
end
object Label8: TLabel
Left = 116
Top = 120
Width = 48
Height = 12
Width = 64
Height = 21
Caption = #20837#24211#21333#21495
end
object Label2: TLabel
Left = 232
Top = 20
Width = 48
Height = 12
Left = 231
Top = 17
Width = 64
Height = 21
Caption = #20837#24211#31867#22411
end
object Label4: TLabel
Left = 440
Top = 20
Width = 48
Height = 12
Left = 436
Top = 17
Width = 64
Height = 21
Caption = #26469#33258#21333#20301
end
object IOTime: TDateTimePicker
Left = 90
Top = 17
Width = 100
Height = 20
Date = 41509.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.970132187503622800
TabOrder = 0
end
object InoutNo: TEdit
object InoutNo: TcxTextEdit
Left = 164
Top = 116
ParentFont = False
TabOrder = 0
Width = 100
Height = 20
TabOrder = 1
end
object IOType: TComboBox
Left = 284
Top = 16
Width = 117
Height = 20
Style = csDropDownList
ItemIndex = 0
TabOrder = 2
Text = #21152#24037#23436#25104
Items.Strings = (
#21152#24037#23436#25104
#22238#20462#23436#25104
#26816#39564#36864#22238
#26399#21021#20837#24211
#25104#21697#37319#36141
#21152#24037#36180#27454
#26579#21378#26399#21021#20837#24211
#23458#25143#36864#36135
#26679#21697#35843#25320#20837#24211)
end
object FromCoName: TBtnEditA
Left = 494
Top = 16
Width = 213
Height = 20
TabOrder = 3
OnBtnClick = FromCoNameBtnClick
end
object Panel3: TPanel
Left = 883
@ -603,73 +523,49 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
Align = alRight
BevelOuter = bvNone
Color = clSkyBlue
TabOrder = 4
TabOrder = 1
ExplicitLeft = 885
ExplicitTop = -2
object Label3: TLabel
Left = 297
Top = 16
Width = 44
Width = 32
Height = 21
Caption = #25968#37327
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 466
Top = 21
Width = 24
Height = 12
Left = 470
Top = 16
Width = 32
Height = 21
Caption = #30382#37325
end
object Label6: TLabel
Left = 32
Top = 21
Width = 24
Height = 12
Top = 16
Width = 32
Height = 21
Caption = #21367#25968
end
object QtyMX: TEdit
Left = 347
Top = 15
Width = 65
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
object QtyMX: TcxTextEdit
Left = 339
Top = 10
TabOrder = 0
OnKeyPress = QtyMXKeyPress
end
object QtyFJ: TEdit
Left = 494
Top = 15
Width = 65
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object QtyFJ: TcxTextEdit
Left = 512
Top = 10
TabOrder = 1
Width = 65
end
object LenUnit: TComboBox
Left = 414
Top = 15
Top = 12
Width = 46
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
Height = 29
ItemIndex = 0
ParentFont = False
TabOrder = 2
Text = 'M'
Items.Strings = (
@ -677,68 +573,84 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
'Y'
'KG')
end
object edtMJXH: TEdit
Left = 210
Top = 15
Width = 65
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
object edtMJXH: TcxTextEdit
Left = 222
Top = 10
TabOrder = 3
Width = 65
end
object chkMJJH: TCheckBox
Left = 141
Left = 149
Top = 11
Width = 63
Height = 32
Caption = #21367#21495
Color = clWindow
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
TabOrder = 4
OnClick = chkMJJHClick
end
object CountMX: TEdit
Left = 62
Top = 15
Width = 65
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
object CountMX: TcxTextEdit
Left = 74
Top = 10
TabOrder = 5
Width = 65
end
end
object IOTime: TcxDateEdit
Left = 100
Top = 11
TabOrder = 2
Width = 121
end
object IOType: TcxComboBox
Left = 305
Top = 11
Properties.Items.Strings = (
#21152#24037#23436#25104
#22238#20462#23436#25104
#26816#39564#36864#22238
#26399#21021#20837#24211
#25104#21697#37319#36141
#21152#24037#36180#27454
#26579#21378#26399#21021#20837#24211
#23458#25143#36864#36135
#26679#21697#35843#25320#20837#24211)
TabOrder = 3
Text = #21152#24037#23436#25104
Width = 121
end
object FromCoName: TcxButtonEdit
Left = 510
Top = 11
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = FromCoNamePropertiesButtonClick
TabOrder = 4
OnDblClick = FromCoNameDblClick
Width = 213
end
end
object ToolBar2: TToolBar [4]
Tag = 1
Left = 0
Top = 94
Top = 86
Width = 1465
Height = 38
Height = 30
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
ButtonHeight = 30
ButtonWidth = 67
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = DataLink_TradeTotalClothStk.ImageList_new32
Images = DataLink_TradeTotalClothStk.cxImageList_bar
List = True
ParentColor = False
ParentFont = False

110
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInEdit.pas
View File

@ -12,7 +12,24 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput,
System.ImageList, Vcl.ImgList, BtnEdit, Vcl.Menus, RM_Common, RM_Class,
RM_GridReport, RM_Dataset;
RM_GridReport, RM_Dataset, dxSkinBasic, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils,
cxMaskEdit;
type
TfrmTradeReturnClothInEdit = class(TfrmBaseInput)
@ -60,15 +77,12 @@ type
Label8: TLabel;
Label2: TLabel;
Label4: TLabel;
IOTime: TDateTimePicker;
InoutNo: TEdit;
IOType: TComboBox;
FromCoName: TBtnEditA;
InoutNo: TcxTextEdit;
Panel3: TPanel;
Label3: TLabel;
Label5: TLabel;
QtyMX: TEdit;
QtyFJ: TEdit;
QtyMX: TcxTextEdit;
QtyFJ: TcxTextEdit;
ToolBar2: TToolBar;
TBAdd: TToolButton;
TBDel: TToolButton;
@ -80,13 +94,13 @@ type
LenUnit: TComboBox;
Tv1Column1: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
edtMJXH: TEdit;
edtMJXH: TcxTextEdit;
chkMJJH: TCheckBox;
ToolButton2: TToolButton;
ToolBar3: TToolBar;
ToolButton6: TToolButton;
Label6: TLabel;
CountMX: TEdit;
CountMX: TcxTextEdit;
Tv2Column4: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
@ -95,6 +109,9 @@ type
RMDB_1: TRMDBDataSet;
RM1: TRMGridReport;
Tv2Column5: TcxGridDBColumn;
IOTime: TcxDateEdit;
IOType: TcxComboBox;
FromCoName: TcxButtonEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -120,17 +137,20 @@ type
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure FromCoNameBtnClick(Sender: TObject);
procedure FromCoName1BtnClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure FromCoNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure FromCoNameClick(Sender: TObject);
procedure FromCoNameDblClick(Sender: TObject);
private
{ Private declarations }
Printsavefalg: Integer;
function SaveCKData(): Boolean;
procedure initMJID();
public
{ Public declarations }
FBCId, canshu3, FSTKName, FKHName: string;
@ -195,7 +215,7 @@ end;
procedure TfrmTradeReturnClothInEdit.FormCreate(Sender: TObject);
begin
inherited;
IOTime.DateTime := now();
IOTime.Date := now();
end;
procedure TfrmTradeReturnClothInEdit.TBAddClick(Sender: TObject);
@ -276,11 +296,11 @@ begin
end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Cloth_IO', 0);
FieldByName('IOTime').Value := IOTime.DateTime;
FieldByName('IOTime').Value := IOTime.Date;
FieldByName('IOType').Value := IOType.Text;
FieldByName('FromCoName').Value := FromCoName.Text;
FieldByName('FromCoNo').Value := FromCoName.TxtCode;
FieldByName('FromCoNo').Value := FromCoName.Properties.LookupItems.Text;
FieldByName('StkCoNo').Value := CDS_Sub.fieldbyname('StkCoNo').Value;
FieldByName('FromMainId').Value := CDS_Sub.fieldbyname('FromMainId').Value;
@ -421,9 +441,9 @@ begin
if not CDS_Sub.IsEmpty then
begin
IOTime.Date := CDS_Sub.fieldbyname('IOTime').AsDateTime;
IOType.ItemIndex := IOType.Items.IndexOf(trim(CDS_Sub.fieldbyname('IOType').AsString));
IOType.ItemIndex := IOType.properties.Items.IndexOf(trim(CDS_Sub.fieldbyname('IOType').AsString));
FromCoName.Text := trim(CDS_Sub.fieldbyname('FromCoName').AsString);
FromCoName.TxtCode := trim(CDS_Sub.fieldbyname('FromCoNo').AsString);
FromCoName.Properties.LookupItems.Text := trim(CDS_Sub.fieldbyname('FromCoNo').AsString);
end;
chkMJJH.Checked := True;
@ -432,7 +452,60 @@ begin
end;
procedure TfrmTradeReturnClothInEdit.FromCoNameBtnClick(Sender: TObject);
procedure TfrmTradeReturnClothInEdit.FromCoName1BtnClick(Sender: TObject);
begin
inherited;
if iotype.Text = '¿Í»§ÍË»õ' then
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '¿Í»§';
if ShowModal = 1 then
begin
FromCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end
else
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'GYSName';
flagname := '¹©Ó¦ÉÌ';
MainType := FSTKName;
if ShowModal = 1 then
begin
FromCoName.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
end;
procedure TfrmTradeReturnClothInEdit.FromCoNameClick(Sender: TObject);
begin
TcxButtonEdit(Sender).Text := '';
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end;
procedure TfrmTradeReturnClothInEdit.FromCoNameDblClick(Sender: TObject);
begin
TcxButtonEdit(Sender).Text := '';
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end;
procedure TfrmTradeReturnClothInEdit.FromCoNamePropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
inherited;
if iotype.Text = '客户退货' then
@ -762,7 +835,7 @@ procedure TfrmTradeReturnClothInEdit.TBSaveClick(Sender: TObject);
begin
if CDS_Sub.IsEmpty then
Exit;
if IOTime.DateTime = null then
if IOTime.Date = null then
begin
Application.MessageBox('入库时间不能为空!', '提示', 0);
Exit;
@ -1107,7 +1180,6 @@ begin
// sql.Add(',Qty=Qty-(select InputLen from Trade_Cloth_Inspect X where X.CIID=''' + trim(CDS_MX.fieldbyName('CIID').AsString) + ''' ) ');
// sql.Add(',KGQty=KGQty-(select NetWeight from Trade_Cloth_Inspect X where X.CIID=''' + trim(CDS_MX.fieldbyName('CIID').AsString) + ''' ) ');
// sql.Add(' where BCIOID=''' + trim(CDS_Sub.fieldbyname('BCIOID').AsString) + '''');
// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
// sql.Add(' ' + quotedstr(trim(DName)));
// sql.Add(',getdate() ');

406
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInList.dfm
View File

@ -2,29 +2,29 @@
Left = 165
Top = 111
Caption = #22238#20179#20837#24211#21015#34920
ClientHeight = 478
ClientWidth = 1374
ExplicitWidth = 1390
ExplicitHeight = 517
ClientHeight = 538
ClientWidth = 1386
ExplicitWidth = 1402
ExplicitHeight = 577
PixelsPerInch = 96
TextHeight = 17
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1374
Height = 38
Width = 1386
Height = 30
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = DataLink_TradeTotalClothStk.ImageList_new32
Images = DataLink_TradeTotalClothStk.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
@ -104,7 +104,7 @@
OnClick = ToolButton1Click
end
object ToolButton4: TToolButton
Left = 663
Left = 671
Top = 0
AutoSize = True
Caption = #22238#20179#26085#24535
@ -112,7 +112,7 @@
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 758
Left = 774
Top = 0
AutoSize = True
Caption = #20851#38381
@ -122,253 +122,153 @@
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1374
Height = 75
Top = 30
Width = 1386
Height = 120
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentFont = False
TabOrder = 1
object Label1: TLabel
Left = 28
Top = 12
Width = 64
Height = 16
Caption = #26597#35810#26102#38388
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 64
Top = 41
Width = 16
Height = 16
Caption = #33267
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 391
Top = 12
Left = 225
Top = 48
Width = 32
Height = 16
Height = 21
Caption = #21697#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 540
Top = 12
Left = 377
Top = 48
Width = 64
Height = 16
Height = 21
Caption = #26469#33258#21333#20301
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 199
Top = 12
Left = 19
Top = 48
Width = 64
Height = 16
Height = 21
Caption = #20837#24211#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 391
Top = 41
Left = 225
Top = 87
Width = 32
Height = 16
Height = 21
Caption = #35268#26684
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 200
Top = 41
Left = 20
Top = 87
Width = 64
Height = 16
Height = 21
Caption = #20837#24211#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 540
Top = 41
Left = 377
Top = 87
Width = 64
Height = 16
Height = 21
Caption = #26412#21378#32568#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object 已打印: TLabel
Left = 919
Top = 16
Width = 51
Height = 16
Left = 733
Top = 48
Width = 48
Height = 21
Hint = '1'
Caption = #24050#25171#21360
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 718
Top = 12
Width = 64
Height = 16
Left = 561
Top = 48
Width = 52
Height = 21
Caption = #33457' '#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 98
Top = 8
Width = 87
Height = 24
Date = 40768.000000000000000000
Time = 0.458268587972270300
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
object C_name: TcxTextEdit
Tag = 2
Left = 267
Top = 42
TabOrder = 0
Width = 100
end
object EndDate: TDateTimePicker
Left = 98
Top = 37
Width = 87
Height = 24
Date = 40768.000000000000000000
Time = 0.458268587972270300
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
object FromCoName: TcxTextEdit
Tag = 2
Left = 451
Top = 42
TabOrder = 1
end
object C_name: TEdit
Tag = 2
Left = 426
Top = 8
Width = 100
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object BCIOID: TcxTextEdit
Tag = 2
Left = 93
Top = 42
TabOrder = 2
OnChange = TBFindClick
Width = 122
end
object FromCoName: TEdit
object C_spec: TcxTextEdit
Tag = 2
Left = 608
Top = 8
Width = 100
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Left = 267
Top = 81
TabOrder = 3
OnChange = FromCoNameChange
end
object BCIOID: TEdit
Tag = 2
Left = 268
Top = 8
Width = 109
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnChange = BCIOIDChange
end
object C_spec: TEdit
Tag = 2
Left = 426
Top = 37
Width = 100
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
OnChange = C_specChange
end
object IOType: TComboBox
object BatchNo: TcxTextEdit
Tag = 2
Left = 268
Top = 37
Width = 109
Height = 24
Style = csDropDownList
DropDownCount = 20
Font.Charset = GB2312_CHARSET
Left = 451
Top = 81
TabOrder = 4
Width = 100
end
object Panel3: TPanel
Left = 791
Top = 45
Width = 57
Height = 27
Color = 15659150
ParentBackground = False
TabOrder = 5
end
object C_Pattern: TcxTextEdit
Tag = 2
Left = 623
Top = 42
TabOrder = 6
Width = 100
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
Top = 2
Width = 1382
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 6
OnChange = TBFindClick
Items.Strings = (
TabOrder = 7
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1583
end
object IOType: TcxComboBox
Left = 94
Top = 81
Properties.Items.Strings = (
''
#37319#36141#20837#24211
#21152#24037#20837#24211
@ -376,55 +276,26 @@
#38144#21806#36864#22238
#30424#30408#20837#24211
#26399#21021#20837#24211)
end
object BatchNo: TEdit
Tag = 2
Left = 608
Top = 36
Width = 100
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
OnChange = FromCoNameChange
end
object Panel3: TPanel
Left = 976
Top = 11
Width = 57
Height = 27
Color = 15659150
ParentBackground = False
TabOrder = 8
end
object C_Pattern: TEdit
Tag = 2
Left = 787
Top = 8
Width = 100
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 9
OnChange = FromCoNameChange
Width = 121
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 113
Width = 906
Height = 365
Top = 150
Width = 918
Height = 388
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 204
ExplicitHeight = 334
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -464,10 +335,6 @@
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 40
Styles.IncSearch = DataLink_TradeTotalClothStk.SHuangSe
Styles.Header = DataLink_TradeTotalClothStk.Default
Styles.Inactive = DataLink_TradeTotalClothStk.SHuangSe
Styles.Selection = DataLink_TradeTotalClothStk.SHuangSe
object Tv1Column7: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
@ -754,21 +621,30 @@
end
end
object Panel2: TPanel [3]
Left = 906
Top = 113
Left = 918
Top = 150
Width = 468
Height = 365
Height = 388
Align = alRight
Caption = 'Panel2'
TabOrder = 3
ExplicitTop = 204
ExplicitHeight = 334
object cxGrid2: TcxGrid
Left = 1
Top = 39
Top = 31
Width = 466
Height = 325
Height = 356
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
PopupMenu = PopupMenu2
TabOrder = 0
ExplicitHeight = 302
object Tv2: TcxGridDBTableView
PopupMenu = PopupMenu2
Navigator.Buttons.CustomButtons = <>
@ -807,8 +683,6 @@
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 30
Styles.Content = DataLink_TradeTotalClothStk.Default
Styles.Header = DataLink_TradeTotalClothStk.Default
object Tv2Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
@ -882,18 +756,18 @@
Left = 1
Top = 1
Width = 466
Height = 38
Height = 30
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
ButtonHeight = 30
ButtonWidth = 67
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = DataLink_TradeTotalClothStk.ImageList_new32
Images = DataLink_TradeTotalClothStk.cxImageList_bar
List = True
ParentColor = False
ParentFont = False

32
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInList.pas
View File

@ -28,7 +28,8 @@ uses
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations;
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations,
cxContainer, FrameDateSel, cxMaskEdit;
type
TfrmTradeReturnClothInList = class(TfrmBaseList)
@ -43,10 +44,6 @@ type
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
Label1: TLabel;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_Main: TClientDataSet;
TBDel: TToolButton;
PopupMenu1: TPopupMenu;
@ -59,11 +56,10 @@ type
Label5: TLabel;
Label8: TLabel;
Label12: TLabel;
C_name: TEdit;
FromCoName: TEdit;
BCIOID: TEdit;
C_spec: TEdit;
IOType: TComboBox;
C_name: TcxTextEdit;
FromCoName: TcxTextEdit;
BCIOID: TcxTextEdit;
C_spec: TcxTextEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column6: TcxGridDBColumn;
@ -78,7 +74,7 @@ type
v1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label10: TLabel;
BatchNo: TEdit;
BatchNo: TcxTextEdit;
v1Column11: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
@ -127,10 +123,12 @@ type
ÒÑ´òÓ¡: TLabel;
Tv2Column5: TcxGridDBColumn;
Label6: TLabel;
C_Pattern: TEdit;
C_Pattern: TcxTextEdit;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
ToolButton4: TToolButton;
frmFrameDateSel1: TfrmFrameDateSel;
IOType: TcxComboBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -189,8 +187,8 @@ end;
procedure TfrmTradeReturnClothInList.FormCreate(Sender: TObject);
begin
inherited;
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 30;
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 30;
canshu1 := Trim(self.fParameters1);
canshu2 := Trim(self.fParameters2);
canshu3 := Trim(self.fParameters3);
@ -209,8 +207,8 @@ begin
sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''óÒ×»ã×ܲ¼'' and X.WBID=A.BCIOID)>0 THEN 1 ELSE 0 END) AS BIT) ');
sql.Add(' from BS_Cloth_IO A');
sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''');
sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1. enddate.Date + 1)) + '''');
sql.Add(' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''');
SQL.Add(' and IOFlag=''Èë¿â'' ');
SQL.Add(' order by IOTime desc');
@ -226,7 +224,7 @@ end;
procedure TfrmTradeReturnClothInList.TBRafreshClick(Sender: TObject);
begin
BegDate.SetFocus;
frmFrameDateSel1.BegDate.SetFocus;
InitGrid();
end;

8069
项目代码/RTBasicsV1/T02贸易汇总仓库/devchs.ini Normal file
View File

File diff suppressed because it is too large Load Diff

11
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.dpr
View File

@ -10,9 +10,6 @@ uses
U_GetDllForm in 'U_GetDllForm.pas',
U_DataLink in 'U_DataLink.pas' {DataLink_TradeMarket: TDataModule},
U_iniParam in 'U_iniParam.pas',
U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp},
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
U_CompressionFun in '..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas',
U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
@ -32,8 +29,12 @@ uses
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
FramePagingSel in '..\A00通用组件\FramePagingSel.pas' {frmFramePagingSel: TFrame};
FramePagingSel in '..\A00通用组件\FramePagingSel.pas' {frmFramePagingSel: TFrame},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp},
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame};
{$R *.res}

37
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.dproj
View File

@ -136,18 +136,6 @@
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="U_iniParam.pas"/>
<DCCReference Include="..\..\..\public10\design\U_BaseHelp.pas">
<Form>frmBaseHelp</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseInput.pas">
<Form>frmBaseInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseList.pas">
<Form>frmBaseList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas">
@ -203,13 +191,30 @@
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<DCCReference Include="..\A00通用组件\FrameDateSel.pas">
<Form>frmFrameDateSel</Form>
<DCCReference Include="..\A00通用组件\FramePagingSel.pas">
<Form>frmFramePagingSel</Form>
<FormType>dfm</FormType>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="..\A00通用组件\FramePagingSel.pas">
<Form>frmFramePagingSel</Form>
<DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
<Form>BaseDataLink</Form>
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseHelp.pas">
<Form>frmBaseHelp</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseInput.pas">
<Form>frmBaseInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseList.pas">
<Form>frmBaseList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用组件\FrameDateSel.pas">
<Form>frmFrameDateSel</Form>
<FormType>dfm</FormType>
<DesignClass>TFrame</DesignClass>
</DCCReference>

45
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.dproj.local
View File

@ -1,52 +1,53 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.530,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedList.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.556,=D:\RTFormwork\public10\design\U_BaseDataLink.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.020,D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeDispatchedList.pas=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketList.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.530,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedList.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.530,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedList.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedSel.dfm</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.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.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.075,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisScan.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.197,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketInPut.dfm</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.623,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.075,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisScan.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.197,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.298,=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.020,D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeDispatchedList.dfm=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketList.dfm</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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.530,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedList.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.623,=D:\RTFormwork\public10\design\U_cxGridCustomSet.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.783,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.901,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.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.448,=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketList.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.728,=D:\Dp10Repo\项目代码\希风\T00贸易通用窗体\U_StockPlanSel.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.996,D:\Dp10Repo\项目代码\希风\T00贸易通用窗体\U_StockPlanSel.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.728,=D:\Dp10Repo\项目代码\希风\T00贸易通用窗体\U_StockPlanSel.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.667,=D:\RTFormwork\public10\design\U_FormLayOutDesign.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\T05门市订单管理\TradeMarket.dproj=D:\Dp10Repo\项目代码\RTBasics\T05门市订单管理\InformationBase.dproj</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.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.901,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.293,=D:\Dp10Repo\项目代码\宝磊\A00通用窗体\U_PictureUpload.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.901,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>2024-08-16 14:51:13.783,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>2024-08-16 14:51:13.901,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.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.293,=D:\Dp10Repo\项目代码\宝磊\A00通用窗体\U_PictureUpload.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>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -112,6 +113,8 @@
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
<File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>

BIN
项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.identcache
View File

Binary file not shown.

167
项目代码/RTBasicsV1/T05贸易门市管理/U_DataLink.dfm
View File

@ -1,9 +1,29 @@
object DataLink_TradeMarket: TDataLink_TradeMarket
OldCreateOrder = False
OnCreate = DataModuleCreate
inherited DataLink_TradeMarket: TDataLink_TradeMarket
OnDestroy = DataModuleDestroy
Height = 349
Width = 482
Height = 359
Width = 498
inherited cxEditStyleController1: TcxEditStyleController
PixelsPerInch = 96
end
inherited cxDefaultEditStyleController1: TcxDefaultEditStyleController
PixelsPerInch = 96
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 300
Top = 172
DesignInfo = 11272492
end
inherited ThreeColorBase: TcxStyleRepository
PixelsPerInch = 96
end
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 403
Top = 154
inherited dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel
PixelsPerInch = 96
end
end
object AdoDataLink: TADOQuery
Connection = ADOLink
Parameters = <>
@ -10423,139 +10443,6 @@ object DataLink_TradeMarket: TDataLink_TradeMarket
FF800001000000F003FFFE00FFE0000300000000000000000000000000000000
000000000000}
end
object ThreeLookAndFeelCol: TcxLookAndFeelController
Kind = lfStandard
NativeStyle = False
Left = 253
Top = 12
end
object ThreeColorBase: TcxStyleRepository
Left = 147
Top = 80
PixelsPerInch = 96
object SHuangSe: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = 4707838
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
TextColor = clBtnText
end
object SkyBlue: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
TextColor = clBlack
end
object Default: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object QHuangSe: TcxStyle
AssignedValues = [svColor, svFont]
Color = 8454143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object Red: TcxStyle
AssignedValues = [svColor, svFont]
Color = clRed
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object FontBlue: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBlue
end
object TextSHuangSe: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clOlive
end
object FonePurple: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindow
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clPurple
end
object FoneClMaroon: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clMaroon
end
object FoneRed: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clRed
end
object RowColor: TcxStyle
AssignedValues = [svColor]
Color = 16311512
end
object handBlack: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxBlue: TcxStyle
AssignedValues = [svColor, svFont]
Color = 16711731
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object SHuangSeCu: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = 4707838
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clRed
end
end
object Timer_link: TTimer
Interval = 15000
OnTimer = Timer_linkTimer
@ -10566,8 +10453,8 @@ object DataLink_TradeMarket: TDataLink_TradeMarket
DrawingStyle = dsTransparent
Height = 32
Width = 32
Left = 256
Top = 184
Left = 222
Top = 188
Bitmap = {
494C010119002400040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
000000000000360000002800000080000000E0000000010020000000000000C0

16
项目代码/RTBasicsV1/T05贸易门市管理/U_DataLink.pas
View File

@ -4,10 +4,10 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinBasic,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
U_BaseDataLink, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls,
SyncObjs, cxClasses, dxSkinsCore, dxSkinsDefaultPainters, System.ImageList,
dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
@ -21,7 +21,9 @@ uses
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxCore, cxLocalization,
dxLayoutLookAndFeels, cxImageList, cxGraphics, cxEdit, cxContainer,
dxSkinsForm;
type
TMyThread = class(TThread)
@ -53,7 +55,7 @@ var
UserDataFlag: string;
type
TDataLink_TradeMarket = class(TDataModule)
TDataLink_TradeMarket = class(TBaseDataLink)
AdoDataLink: TADOQuery;
ADOLink: TADOConnection;
ThreeImgList: TImageList;
@ -125,6 +127,7 @@ end;
procedure TDataLink_TradeMarket.DataModuleDestroy(Sender: TObject);
begin
inherited;
CriticalSection.Free;
DataLink_TradeMarket := nil;
end;
@ -136,6 +139,7 @@ end;
procedure TDataLink_TradeMarket.DataModuleCreate(Sender: TObject);
begin
inherited;
CriticalSection := TCriticalSection.Create;
end;

368
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedList.dfm
View File

@ -16,18 +16,18 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
Left = 0
Top = 0
Width = 1540
Height = 38
Height = 30
AutoSize = True
ButtonHeight = 38
ButtonWidth = 103
ButtonHeight = 30
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
@ -50,7 +50,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = ToolButton1Click
end
object TBPrint: TToolButton
Left = 166
Left = 174
Top = 0
AutoSize = True
Caption = #25171#21360
@ -58,7 +58,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = TBPrintClick
end
object TBPrint1: TToolButton
Left = 237
Left = 245
Top = 0
AutoSize = True
Caption = #25171#21360#20986#24211#21333
@ -66,7 +66,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = TBPrint1Click
end
object TBCK: TToolButton
Left = 344
Left = 364
Top = 0
AutoSize = True
Caption = #26597#30475
@ -74,7 +74,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = TBCKClick
end
object TBFJ: TToolButton
Left = 415
Left = 435
Top = 0
AutoSize = True
Caption = #38468#20214
@ -82,7 +82,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = TBFJClick
end
object ToolButton2: TToolButton
Left = 486
Left = 506
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -90,7 +90,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 581
Left = 609
Top = 0
AutoSize = True
Caption = #20851#38381
@ -100,159 +100,127 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Top = 30
Width = 1540
Height = 67
Height = 80
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentFont = False
TabOrder = 1
object Label3: TLabel
Left = 283
Top = 20
Width = 52
Height = 12
Left = 22
Top = 45
Width = 64
Height = 21
Caption = #22823#36135#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 613
Top = 119
Width = 26
Height = 12
Left = 548
Top = 45
Width = 32
Height = 21
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 612
Top = 20
Width = 26
Height = 12
Left = 392
Top = 45
Width = 32
Height = 21
Caption = #23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 449
Top = 20
Width = 52
Height = 12
Left = 207
Top = 45
Width = 64
Height = 21
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TMMNo: TEdit
object Label4: TLabel
Left = 697
Top = 45
Width = 32
Height = 21
Caption = #20840#36873
end
object TMMNo: TcxTextEdit
Tag = 2
Left = 341
Top = 16
Width = 101
Height = 25
Left = 96
Top = 41
TabOrder = 0
OnKeyPress = TMMNoKeyPress
Width = 101
end
object MPRTKZ: TEdit
object MPRTKZ: TcxTextEdit
Tag = 2
Left = 654
Top = 99
Width = 56
Height = 25
Left = 590
Top = 42
TabOrder = 1
Width = 56
end
object CustName: TEdit
object CustName: TcxTextEdit
Tag = 2
Left = 644
Top = 16
Width = 104
Height = 25
Left = 434
Top = 41
TabOrder = 2
OnKeyPress = TMMNoKeyPress
Width = 104
end
object C_Name: TEdit
object C_Name: TcxTextEdit
Tag = 2
Left = 504
Top = 16
Width = 101
Height = 25
Left = 281
Top = 41
TabOrder = 3
OnKeyPress = TMMNoKeyPress
end
object CheckBox3: TCheckBox
Left = 776
Top = 16
Width = 99
Height = 19
Caption = #20840#36873
TabOrder = 4
OnClick = CheckBox3Click
end
object BegDate: TDateTimePicker
Left = 152
Top = 16
Width = 101
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
end
object cxCheckBox1: TcxCheckBox
Left = 671
Top = 41
Style.TransparentBorder = False
TabOrder = 4
OnClick = cxCheckBox1Click
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
Top = 2
Width = 1536
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 5
end
object EndDate: TDateTimePicker
Left = 152
Top = 42
Width = 102
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
TabOrder = 6
end
object ComboBox1: TComboBox
Left = 49
Top = 16
Width = 93
Height = 25
TabOrder = 7
Text = #21046#21333#26085#26399
OnChange = ComboBox1Change
Items.Strings = (
#21046#21333#26085#26399
#20132#36135#26085#26399)
end
object CheckBox1: TCheckBox
Left = 28
Top = 18
Width = 19
Height = 17
Checked = True
State = cbChecked
TabOrder = 8
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1536
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 127
Top = 136
Width = 1540
Height = 205
Height = 195
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
PopupMenu = PM_1
TabOrder = 2
object Tv1: TcxGridDBTableView
@ -277,12 +245,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.Content = DataLink_TradeMarket.Default
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Footer = DataLink_TradeMarket.Default
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object v1Column16: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
@ -307,7 +269,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object Tv1Column2: TcxGridDBColumn
@ -316,7 +277,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.FontBlue
Width = 66
end
object Tv1Column4: TcxGridDBColumn
@ -325,7 +285,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.FoneClMaroon
Width = 66
end
object v1DeliveryDate: TcxGridDBColumn
@ -336,7 +295,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object Tv1Column9: TcxGridDBColumn
@ -450,6 +408,12 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
Width = 1540
Height = 231
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -643,114 +607,109 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
end
object cxTabControl1: TcxTabControl [4]
Left = 0
Top = 105
Top = 110
Width = 1540
Height = 22
Height = 26
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 4
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#37197#36135
#24050#37197#36135
#24050#21457#36135
#20840#37096)
' '#26410#37197#36135' '
' '#24050#37197#36135' '
' '#24050#21457#36135' '
' '#20840#37096' ')
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
object Panel3: TPanel [5]
Left = 0
Top = 332
Top = 331
Width = 1540
Height = 34
Height = 35
Align = alBottom
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 5
object Label14: TLabel
Left = 500
Top = 60
Width = 36
Height = 12
Width = 48
Height = 21
Caption = #21367#26465#30721
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 881
Top = 11
Width = 48
Height = 17
Left = 962
Top = 6
Width = 64
Height = 21
Caption = #20986#24211#26085#26399
end
object Label5: TLabel
Left = 1195
Top = 6
Width = 32
Height = 21
Caption = #20840#36873
end
object Panel4: TPanel
Left = 1286
Top = 1
Width = 253
Height = 32
Height = 33
Align = alRight
BevelOuter = bvNone
TabOrder = 0
end
object Edit1: TEdit
Left = 536
object Edit1: TcxTextEdit
Left = 558
Top = 56
Width = 145
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
end
object CRdate: TDateTimePicker
Left = 935
Top = 7
Width = 91
Height = 21
Date = 41557.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.498293449083576000
TabOrder = 2
end
object CheckBox2: TCheckBox
Left = 1038
Top = 7
Width = 99
Height = 19
Caption = #20840#36873
TabOrder = 3
OnClick = CheckBox2Click
Width = 145
end
object ToolBar2: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 874
Width = 852
Height = 33
Align = alLeft
ButtonHeight = 38
ButtonWidth = 91
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 4
TabOrder = 2
object ToolButton4: TToolButton
Left = 0
Top = 0
@ -760,7 +719,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = ToolButton4Click
end
object phwc: TToolButton
Left = 95
Left = 103
Top = 0
AutoSize = True
Caption = #37197#36135#23436#25104
@ -768,7 +727,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = phwcClick
end
object ToolButton6: TToolButton
Left = 190
Left = 206
Top = 0
AutoSize = True
Caption = #20462#25913#37197#36135
@ -776,7 +735,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = ToolButton6Click
end
object phok: TToolButton
Left = 285
Left = 309
Top = 0
AutoSize = True
Caption = #37197#36135#30830#35748
@ -784,7 +743,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = phokClick
end
object fh: TToolButton
Left = 380
Left = 412
Top = 0
AutoSize = True
Caption = #25104#21697#21457#36135
@ -792,7 +751,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = fhClick
end
object ToolButton9: TToolButton
Left = 475
Left = 515
Top = 0
AutoSize = True
Caption = #25171#21360#26631#31614
@ -800,7 +759,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = ToolButton9Click
end
object del: TToolButton
Left = 570
Left = 618
Top = 0
AutoSize = True
Caption = #21024#38500
@ -808,7 +767,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = delClick
end
object ToolButton5: TToolButton
Left = 641
Left = 689
Top = 0
AutoSize = True
Caption = #25972#21333#25764#38144
@ -816,7 +775,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = ToolButton5Click
end
object Tdbchexiao: TToolButton
Left = 736
Left = 792
Top = 0
AutoSize = True
Caption = #25972#31508#25764#38144
@ -824,7 +783,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = TdbchexiaoClick
end
object ToolButton3: TToolButton
Left = 831
Left = 895
Top = 0
AutoSize = True
Caption = #25764#38144#21457#36135
@ -832,6 +791,25 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = ToolButton3Click
end
end
object cxCheckBox2: TcxCheckBox
Left = 1167
Top = 2
ParentBackground = False
ParentColor = False
ParentFont = False
Style.Color = clMenu
Style.TransparentBorder = False
TabOrder = 3
OnClick = cxCheckBox2Click
end
object CRdate: TcxDateEdit
Left = 1036
Top = 1
EditValue = 45548d
ParentFont = False
TabOrder = 4
Width = 121
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink

148
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedList.pas
View File

@ -31,7 +31,8 @@ uses
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations;
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations,
FrameDateSel, dxCore, cxDateUtils;
type
TfrmTradeDispatchedList = class(TfrmBaseList)
@ -49,13 +50,13 @@ type
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
TMMNo: TEdit;
TMMNo: TcxTextEdit;
v1OrdDate: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
Order_Main: TClientDataSet;
TBCK: TToolButton;
Label12: TLabel;
MPRTKZ: TEdit;
MPRTKZ: TcxTextEdit;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
TBFJ: TToolButton;
@ -70,7 +71,7 @@ type
N3: TMenuItem;
N4: TMenuItem;
Label1: TLabel;
CustName: TEdit;
CustName: TcxTextEdit;
Tv1Column6: TcxGridDBColumn;
cxgrdpmn2: TcxGridPopupMenu;
Tv1Column2: TcxGridDBColumn;
@ -78,7 +79,7 @@ type
Tv1Column11: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Label2: TLabel;
C_Name: TEdit;
C_Name: TcxTextEdit;
CDS_WXTS: TClientDataSet;
ToolButton2: TToolButton;
PM_1: TPopupMenu;
@ -93,9 +94,7 @@ type
Label14: TLabel;
Label15: TLabel;
Panel4: TPanel;
Edit1: TEdit;
CRdate: TDateTimePicker;
CheckBox2: TCheckBox;
Edit1: TcxTextEdit;
ADO_PH: TADOQuery;
DS_PH: TDataSource;
CDS_PH: TClientDataSet;
@ -138,13 +137,14 @@ type
RM1: TRMGridReport;
ToolButton5: TToolButton;
Tdbchexiao: TToolButton;
CheckBox3: TCheckBox;
ToolButton1: TToolButton;
ToolButton3: TToolButton;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
ComboBox1: TComboBox;
CheckBox1: TCheckBox;
cxCheckBox1: TcxCheckBox;
cxCheckBox2: TcxCheckBox;
frmFrameDateSel1: TfrmFrameDateSel;
Label4: TLabel;
Label5: TLabel;
CRdate: TcxDateEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -155,7 +155,6 @@ type
procedure FormShow(Sender: TObject);
procedure TBTPClick(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure TBCKClick(Sender: TObject);
procedure TMMNoKeyPress(Sender: TObject; var Key: Char);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
@ -179,9 +178,10 @@ type
procedure ToolButton9Click(Sender: TObject);
procedure delClick(Sender: TObject);
procedure TdbchexiaoClick(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure cxCheckBox1Click(Sender: TObject);
procedure cxCheckBox2Click(Sender: TObject);
private
DQdate: TDateTime;
MSubIds: string;
@ -339,7 +339,7 @@ begin
inherited;
cxgrid1.Align := alClient;
DQdate := SGetServerDate(ADOQueryTemp);
CRdate.DateTime := DQdate;
CRdate.Date := DQdate;
end;
procedure TfrmTradeDispatchedList.TBCloseClick(Sender: TObject);
@ -382,26 +382,26 @@ begin
sql.add(' from Trade_Market_Sub B');
sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = True) then
if (cxComboBox1.Text = '制单日期') and (cxCheckBox3.Checked = True) then
begin
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
end;
if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = False) then
if (cxComboBox1.Text = '制单日期') and (cxCheckBox3.Checked = False) then
begin
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date - 39999))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
end;
if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = True) then
if (cxComboBox1.Text = '交货日期') and (cxCheckBox3.Checked = True) then
begin
sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
end;
if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = False) then
if (cxComboBox1.Text = '交货日期') and (cxCheckBox3.Checked = False) then
begin
sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date - 39999))));
sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
end;
if canshu1 = '录入' then
@ -487,7 +487,7 @@ begin
Close;
sql.Clear;
sql.Add('exec Order_QryList :TMMId,:WSql');
Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''';
Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.EndDate.Date + 1)) + '''';
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
@ -501,8 +501,8 @@ procedure TfrmTradeDispatchedList.InitForm();
begin
ReadCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
ReadCxGrid('指示单列表FFTv21', Tv2, '生产指示单管理');
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 180;
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180;
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
SetStatus();
InitGrid();
@ -595,46 +595,9 @@ begin
InitGrid();
end;
procedure TfrmTradeDispatchedList.CheckBox2Click(Sender: TObject);
begin
if CDS_PH.IsEmpty then
exit;
with CDS_PH do
begin
DisableControls;
first;
while not eof do
begin
edit;
fieldbyname('ssel').Value := checkbox2.Checked;
post;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTradeDispatchedList.CheckBox3Click(Sender: TObject);
begin
inherited;
if Order_Main.IsEmpty then
exit;
with Order_Main do
begin
DisableControls;
first;
while not eof do
begin
edit;
fieldbyname('ssel').Value := checkbox1.Checked;
post;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTradeDispatchedList.TBCKClick(Sender: TObject);
begin
@ -833,7 +796,7 @@ begin
Sql.Clear;
Sql.Add('exec P_Trade_Cloth_Out ');
Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds)));
Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRDate.DateTime)));
Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRDate.Date)));
Sql.Add(',@IOType=' + Quotedstr('配货出库'));
Sql.Add(',@IONO=' + Quotedstr(maxno));
Sql.Add(',@FillId=' + Quotedstr(DCode));
@ -864,7 +827,7 @@ begin
TBPrint1.Click;
end;
TBRafresh.Click;
CRdate.DateTime := DQdate;
CRdate.Date := DQdate;
except
CDS_ph.EnableControls;
Order_Main.EnableControls;
@ -1002,6 +965,47 @@ begin
end;
end;
procedure TfrmTradeDispatchedList.cxCheckBox1Click(Sender: TObject);
begin
inherited;
if Order_Main.IsEmpty then
exit;
with Order_Main do
begin
DisableControls;
first;
while not eof do
begin
edit;
fieldbyname('ssel').Value := cxcheckbox1.Checked;
post;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTradeDispatchedList.cxCheckBox2Click(Sender: TObject);
begin
if CDS_PH.IsEmpty then
exit;
with CDS_PH do
begin
DisableControls;
first;
while not eof do
begin
edit;
fieldbyname('ssel').Value := cxcheckbox2.Checked;
post;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTradeDispatchedList.cxTabControl1Change(Sender: TObject);
begin
SetStatus();

275
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedSel.dfm
View File

@ -5,7 +5,6 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
ClientHeight = 562
ClientWidth = 1540
Position = poScreenCenter
ExplicitLeft = -70
ExplicitWidth = 1556
ExplicitHeight = 601
PixelsPerInch = 96
@ -15,18 +14,18 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
Left = 0
Top = 0
Width = 1540
Height = 38
Height = 30
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
@ -49,7 +48,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 166
Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381
@ -59,9 +58,9 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Top = 30
Width = 1540
Height = 51
Height = 86
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
@ -69,153 +68,172 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
ParentBackground = False
TabOrder = 1
object Label3: TLabel
Left = 317
Top = 20
Width = 52
Height = 12
Left = 221
Top = 49
Width = 64
Height = 22
Caption = #22823#36135#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 613
Top = 119
Width = 26
Height = 12
Left = 675
Top = 49
Width = 32
Height = 22
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 637
Top = 20
Width = 26
Height = 12
Left = 543
Top = 49
Width = 32
Height = 22
Caption = #23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 478
Top = 20
Width = 52
Height = 12
Left = 382
Top = 49
Width = 64
Height = 22
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 128
Top = 16
Width = 85
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
object Label4: TLabel
Left = 783
Top = 49
Width = 32
Height = 22
Caption = #20840#36873
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object TMMNo: TcxTextEdit
Tag = 2
Left = 295
Top = 45
ParentFont = False
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 219
Top = 16
Width = 86
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009200
TabOrder = 2
end
object TMMNo: TEdit
Tag = 2
Left = 375
Top = 16
Width = 77
Height = 21
TabOrder = 1
OnKeyPress = TMMNoKeyPress
Width = 77
end
object MPRTKZ: TEdit
object MPRTKZ: TcxTextEdit
Tag = 2
Left = 654
Top = 99
Left = 717
Top = 46
ParentFont = False
TabOrder = 1
Width = 56
Height = 21
TabOrder = 3
end
object ComboBox1: TComboBox
Left = 49
Top = 16
Width = 71
Height = 21
Enabled = False
object CustName: TcxTextEdit
Tag = 2
Left = 585
Top = 45
ParentFont = False
TabOrder = 2
OnKeyPress = TMMNoKeyPress
Width = 80
end
object C_Name: TcxTextEdit
Tag = 2
Left = 456
Top = 45
ParentFont = False
TabOrder = 3
OnKeyPress = TMMNoKeyPress
Width = 77
end
object checkbox1: TcxCheckBox
Left = 826
Top = 45
ParentFont = False
Style.TransparentBorder = False
TabOrder = 4
Text = #21046#21333#26085#26399
OnChange = ComboBox1Change
Items.Strings = (
OnClick = cxCheckBox1Click
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
Top = 2
Width = 1536
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 5
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1536
end
object cxComboBox1: TcxComboBox
Left = 90
Top = 45
ParentFont = False
Properties.Items.Strings = (
#21046#21333#26085#26399
#20132#36135#26085#26399)
end
object CustName: TEdit
Tag = 2
Left = 669
Top = 16
Width = 80
Height = 21
TabOrder = 5
OnKeyPress = TMMNoKeyPress
end
object C_Name: TEdit
Tag = 2
Left = 533
Top = 16
Width = 77
Height = 21
TabOrder = 6
OnKeyPress = TMMNoKeyPress
Text = #21046#21333#26085#26399
Width = 121
end
object CheckBox1: TCheckBox
Left = 28
Top = 18
Width = 19
Height = 17
Checked = True
State = cbChecked
object CheckBox2: TcxCheckBox
Left = 59
Top = 42
ParentFont = False
State = cbsChecked
Style.TransparentBorder = False
TabOrder = 7
end
object CheckBox3: TCheckBox
Left = 776
Top = 16
Width = 99
Height = 19
Caption = #20840#36873
TabOrder = 8
OnClick = CheckBox3Click
OnClick = CheckBox2Click
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 111
Top = 143
Width = 1540
Height = 451
Height = 419
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 2
ExplicitTop = 158
ExplicitHeight = 404
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
@ -235,78 +253,78 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.Content = DataLink_TradeMarket.Default
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Footer = DataLink_TradeMarket.Default
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object Tv1Column14: TcxGridDBColumn
Caption = #22823#36135#21333#21495
DataBinding.FieldName = 'TMMNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object Tv1Column2: TcxGridDBColumn
Caption = #32463#33829#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.FontBlue
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.FoneClMaroon
Width = 66
end
object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column12: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column13: TcxGridDBColumn
Caption = #20013#25991#39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column15: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column11: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'TMSPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -314,6 +332,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
object Tv1Column10: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'TMSQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
@ -322,14 +341,17 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
object Tv1Column7: TcxGridDBColumn
Caption = #37197#36135#21305#25968
DataBinding.FieldName = 'PHRollNum'
DataBinding.IsNullValueType = True
end
object Tv1Column8: TcxGridDBColumn
Caption = #37197#36135#25968#37327
DataBinding.FieldName = 'PHQty'
DataBinding.IsNullValueType = True
end
object v1Column11: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
@ -338,6 +360,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
object Tv1Column6: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'FILLER'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -345,6 +368,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
object Tv1Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -352,12 +376,14 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
object Tv1Column3: TcxGridDBColumn
Caption = #21457#36135#22320#22336
DataBinding.FieldName = 'ShippingAddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 134
end
object Tv1Column5: TcxGridDBColumn
Caption = #32852#31995#26041#24335
DataBinding.FieldName = 'CONTACT'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
@ -368,11 +394,17 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 89
Top = 116
Width = 1540
Height = 22
Height = 27
Align = alTop
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
@ -383,6 +415,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
#24050#21457#36135
#20840#37096)
OnChange = cxTabControl1Change
ExplicitTop = 131
ClientRectRight = 0
ClientRectTop = 0
end

84
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedSel.pas
View File

@ -16,7 +16,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
IdExplicitTLSClientServerBase, U_BaseHelp, Vcl.Clipbrd, U_BaseList,
System.ImageList, Vcl.ImgList;
System.ImageList, Vcl.ImgList, dxSkinWXI, dxScrollbarAnnotations, FrameDateSel;
type
TfrmTradeDispatchedSel = class(TfrmBaseHelp)
@ -24,8 +24,6 @@ type
TBRafresh: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
@ -34,28 +32,26 @@ type
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
TMMNo: TEdit;
TMMNo: TcxTextEdit;
v1OrdDate: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
Order_Main: TClientDataSet;
Label12: TLabel;
MPRTKZ: TEdit;
MPRTKZ: TcxTextEdit;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
IdFTP1: TIdFTP;
v1Column11: TcxGridDBColumn;
ORDER_SUB: TClientDataSet;
ComboBox1: TComboBox;
Label1: TLabel;
CustName: TEdit;
CustName: TcxTextEdit;
Tv1Column6: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Label2: TLabel;
C_Name: TEdit;
CheckBox1: TCheckBox;
C_Name: TcxTextEdit;
ToolButton2: TToolButton;
Tv1Column4: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
@ -68,7 +64,11 @@ type
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
CheckBox3: TCheckBox;
Label4: TLabel;
frmFrameDateSel1: TfrmFrameDateSel;
cxComboBox1: TcxComboBox;
CheckBox2: TcxCheckBox;
checkbox1: TcxCheckBox;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -90,6 +90,9 @@ type
procedure fhClick(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure cxCheckBox1Click(Sender: TObject);
procedure Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
private
DQdate: TDateTime;
MSubIds: string;
@ -209,26 +212,26 @@ begin
sql.add(' from Trade_Market_Sub B');
sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = True) then
if (cxComboBox1.Text = '制单日期') and (CheckBox2.Checked = True) then
begin
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
end;
if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = False) then
if (cxComboBox1.Text = '制单日期') and (CheckBox2.Checked = False) then
begin
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date - 39999))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
end;
if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = True) then
if (cxComboBox1.Text = '交货日期') and (CheckBox2.Checked = True) then
begin
sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
end;
if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = False) then
if (cxComboBox1.Text = '交货日期') and (CheckBox2.Checked = False) then
begin
sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date - 39999))));
sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
end;
if canshu1 = '录入' then
@ -268,7 +271,7 @@ begin
Close;
sql.Clear;
sql.Add('exec Order_QryList :TMMId,:WSql');
Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''';
Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.EndDate.Date + 1)) + '''';
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
@ -281,8 +284,8 @@ end;
procedure TfrmTradeDispatchedSel.InitForm();
begin
ReadCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 180;
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180;
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
SetStatus();
InitGrid();
@ -352,6 +355,11 @@ begin
InitGrid();
end;
procedure TfrmTradeDispatchedSel.CheckBox2Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradeDispatchedSel.CheckBox3Click(Sender: TObject);
begin
inherited;
@ -373,6 +381,11 @@ begin
end;
end;
procedure TfrmTradeDispatchedSel.Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradeDispatchedSel.TMMNoKeyPress(Sender: TObject; var Key: Char);
begin
@ -391,6 +404,27 @@ begin
end;
procedure TfrmTradeDispatchedSel.cxCheckBox1Click(Sender: TObject);
begin
inherited;
if Order_Main.IsEmpty then
exit;
with Order_Main do
begin
DisableControls;
first;
while not eof do
begin
edit;
fieldbyname('ssel').Value := checkbox1.Checked;
post;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTradeDispatchedSel.cxTabControl1Change(Sender: TObject);
begin
SetStatus();

157
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketDisScan.dfm
View File

@ -1,4 +1,4 @@
inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
Left = 143
Top = 4
Caption = #25195#25551#37197#36135
@ -19,20 +19,20 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
Left = 0
Top = 0
Width = 1540
Height = 38
Height = 30
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
@ -54,7 +54,7 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
ImageIndex = 16
end
object TBClose: TToolButton
Left = 166
Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381
@ -81,90 +81,74 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
end
object Panel1: TPanel [2]
Left = 0
Top = 38
Top = 30
Width = 1540
Height = 75
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 2
object Label1: TLabel
Left = 24
Top = 24
Width = 100
Height = 24
Width = 64
Height = 21
Caption = #26465#30721#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 428
Top = 28
Width = 80
Height = 20
Left = 426
Top = 24
Width = 64
Height = 21
Caption = #37197#36135#20154#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object SmNO: TEdit
object SmNO: TcxTextEdit
Left = 130
Top = 20
Width = 153
Height = 32
CharCase = ecUpperCase
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Top = 18
TabOrder = 0
OnKeyPress = SmNOKeyPress
Width = 153
end
object PHYG: TBtnEditA
Left = 508
Top = 24
Width = 100
Height = 29
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
end
object Button1: TButton
Left = 281
Top = 20
Width = 75
Height = 33
object cxButton1: TcxButton
Left = 283
Top = 19
Width = 79
Height = 31
Caption = #36873#25321
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = cxButton1Click
end
object cxButtonEdit1: TcxButtonEdit
Left = 511
Top = 18
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
TabOrder = 2
OnClick = Button1Click
Width = 116
end
end
object cxGrid1: TcxGrid [3]
Left = 0
Top = 113
Top = 105
Width = 713
Height = 537
Height = 545
Align = alLeft
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 3
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -272,10 +256,16 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
end
object cxGrid2: TcxGrid [4]
Left = 713
Top = 113
Top = 105
Width = 827
Height = 537
Height = 545
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 4
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -404,8 +394,8 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
end
end
object MovePanel1: TMovePanel [5]
Left = 28
Top = 345
Left = 63
Top = 303
Width = 561
Height = 305
BevelInner = bvLowered
@ -425,30 +415,29 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
Font.Style = [fsBold]
ParentFont = False
end
object Edit2: TEdit
object Edit2: TcxTextEdit
Left = 85
Top = 35
Width = 386
Height = 72
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -64
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
Text = '91209120001'
Width = 386
end
object Button4: TButton
Left = 224
Top = 248
Width = 75
Height = 41
object 关闭: TcxButton
Left = 211
Top = 233
Width = 111
Height = 49
Caption = #20851#38381
TabOrder = 1
OnClick = Button4Click
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
OnClick = 关闭Click
end
end
inherited ADOQueryBaseCmd: TADOQuery

42
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketDisScan.pas
View File

@ -31,7 +31,7 @@ uses
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue, dxScrollbarAnnotations;
dxSkinXmas2008Blue, dxScrollbarAnnotations, cxButtons;
type
TfrmTradeMarketDisScan = class(TfrmBaseInput)
@ -69,12 +69,10 @@ type
cxGridLevel1: TcxGridLevel;
MovePanel1: TMovePanel;
Label2: TLabel;
Edit2: TEdit;
Button4: TButton;
Edit2: TcxTextEdit;
Label1: TLabel;
SmNO: TEdit;
SmNO: TcxTextEdit;
Label15: TLabel;
PHYG: TBtnEditA;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
@ -105,7 +103,9 @@ type
RM1: TRMGridReport;
Tv1Column2: TcxGridDBColumn;
TV2Column1: TcxGridDBColumn;
Button1: TButton;
¹Ø±Õ: TcxButton;
cxButton1: TcxButton;
cxButtonEdit1: TcxButtonEdit;
procedure TBCloseClick(Sender: TObject);
procedure CustomerNoNameBtnDnClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -115,6 +115,8 @@ type
procedure TBSaveClick(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ¹Ø±ÕClick(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
private
fCode, fColor, FPattern: string;
function SaveData(): Boolean;
@ -185,7 +187,7 @@ begin
ADOQueryCmd.FieldByName('TMSID').Value := trim(cdsmjid.fieldbyname('TMSID').AsString);
ADOQueryCmd.FieldByName('STKID').Value := trim(cdsmjid.fieldbyname('STKID').AsString);
ADOQueryCmd.FieldByName('Filler').Value := trim(DName);
ADOQueryCmd.FieldByName('PHYG').Value := trim(PHYG.Text);
// ADOQueryCmd.FieldByName('PHYG').Value := trim(PHYG.Text);
ADOQueryCmd.FieldByName('TMDType').Value := 'ɨÃèÅä»õ';
ADOQueryCmd.Post;
@ -316,6 +318,12 @@ begin
end;
end;
procedure TfrmTradeMarketDisScan.¹Ø±ÕClick(Sender: TObject);
begin
inherited;
MovePanel1.Visible := False;
end;
procedure TfrmTradeMarketDisScan.Button1Click(Sender: TObject);
var
key: Char;
@ -348,6 +356,26 @@ begin
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmTradeMarketDisScan.cxButton1Click(Sender: TObject);
var
key: Char;
begin
inherited;
key := #13;
frmTradeDispatchedSel := TfrmTradeDispatchedSel.create(self);
with frmTradeDispatchedSel do
begin
if showmodal = 1 then
begin
smno.Text := trim(Order_Main.FieldByName('TMMID').AsString);
SmNOKeyPress(smno, key);
end;
free;
end;
end;
procedure TfrmTradeMarketDisScan.InitOrder();
var
fP_No: string;

439
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketInPut.dfm
View File

@ -19,20 +19,20 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 0
Top = 0
Width = 1540
Height = 38
Height = 30
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
@ -55,7 +55,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 166
Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381
@ -65,26 +65,27 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
end
object ToolBar2: TToolBar [1]
Left = 0
Top = 217
Top = 245
Width = 1540
Height = 34
ButtonHeight = 38
ButtonWidth = 91
Height = 28
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
ExplicitTop = 213
object ToolButton4: TToolButton
Left = 0
Top = 0
@ -94,7 +95,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OnClick = ToolButton4Click
end
object ToolButton1: TToolButton
Left = 95
Left = 103
Top = 0
AutoSize = True
Caption = #22686#34892
@ -102,7 +103,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 166
Left = 174
Top = 0
AutoSize = True
Caption = #21024#34892
@ -110,7 +111,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OnClick = ToolButton2Click
end
object ToolButton5: TToolButton
Left = 237
Left = 245
Top = 0
Caption = #19968#38190#26367#25442
ImageIndex = 17
@ -119,33 +120,37 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
end
object Panel2: TPanel [2]
Left = 0
Top = 251
Top = 273
Width = 1540
Height = 399
Height = 377
Align = alClient
Caption = 'Panel2'
TabOrder = 2
ExplicitTop = 241
ExplicitHeight = 409
object Panel3: TPanel
Left = 1
Top = 1
Width = 900
Height = 397
Height = 375
Align = alLeft
Caption = 'Panel2'
TabOrder = 0
ExplicitHeight = 407
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 898
Height = 395
Height = 373
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitHeight = 405
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -189,11 +194,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OptionsData.Deleting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Footer = DataLink_TradeMarket.Default
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object Tv1Column3: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
@ -249,7 +249,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeMarket.handBlack
Width = 116
end
object Tv1Column9: TcxGridDBColumn
@ -295,7 +294,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeMarket.Default
Width = 98
end
object Tv1Column8: TcxGridDBColumn
@ -356,73 +354,69 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 901
Top = 1
Width = 638
Height = 397
Height = 375
Align = alClient
Caption = 'Panel4'
TabOrder = 1
ExplicitHeight = 407
object Panel5: TPanel
Left = 1
Top = 1
Width = 636
Height = 41
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 0
object Label33: TLabel
Left = 20
Top = 8
Width = 44
Width = 32
Height = 21
Caption = #25968#37327
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label38: TLabel
Left = 304
Top = 8
Width = 44
Width = 32
Height = 21
Caption = #24207#21495
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object QtyMX: TEdit
object QtyMX: TcxTextEdit
Left = 70
Top = 9
Width = 89
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Top = 2
TabOrder = 0
OnKeyPress = QtyMXKeyPress
Width = 89
end
end
object GroupBox2: TGroupBox
Left = 1
Top = 42
Width = 636
Height = 354
Height = 332
Align = alClient
Caption = #21452#20987#21024#38500#26126#32454#20449#24687
TabOrder = 1
ExplicitHeight = 364
object cxGrid2: TcxGrid
Left = 2
Top = 14
Width = 632
Height = 338
Height = 316
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitHeight = 348
object TvMX: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -498,282 +492,241 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
object Label22: TLabel
Left = 112
Top = 4
Width = 45
Height = 14
Width = 48
Height = 22
Caption = #21305#25968#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object Label23: TLabel
Left = 212
Top = 4
Width = 45
Height = 14
Width = 48
Height = 22
Caption = #25968#37327#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object Label29: TLabel
Left = 12
Top = 4
Width = 45
Height = 14
Width = 48
Height = 22
Caption = #21333#20215#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object Label34: TLabel
Left = 335
Top = 4
Width = 45
Height = 14
Width = 48
Height = 22
Caption = #21305#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object Label35: TLabel
Left = 435
Top = 4
Width = 45
Height = 14
Width = 48
Height = 22
Caption = #25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
end
object ScrollBox1: TScrollBox [4]
Left = 0
Top = 38
Top = 30
Width = 1540
Height = 179
Height = 215
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentColor = False
ParentCtl3D = False
ParentFont = False
TabOrder = 4
OnClick = ScrollBox1Click
object Label3: TLabel
Left = 404
Top = 7
Width = 52
Height = 15
Left = 442
Top = 10
Width = 64
Height = 21
Caption = #21046#21333#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label25: TLabel
Left = 215
Top = 7
Width = 52
Height = 15
Left = 237
Top = 10
Width = 64
Height = 21
Caption = #20132#36135#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 23
Top = 102
Width = 53
Height = 15
Top = 133
Width = 77
Height = 21
Caption = #22791' '#27880
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 37
Top = 6
Width = 39
Height = 15
Left = 23
Top = 10
Width = 48
Height = 21
Caption = #35746#21333#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 217
Top = 35
Width = 50
Height = 15
Left = 237
Top = 56
Width = 72
Height = 21
Caption = #23458' '#25143
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 24
Top = 35
Width = 52
Height = 15
Left = 23
Top = 56
Width = 64
Height = 21
Caption = #32463#33829#21333#20301
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 202
Top = 64
Width = 65
Height = 12
Left = 237
Top = 97
Width = 80
Height = 21
Caption = #32852#31995#26041#24335#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label37: TLabel
Left = 11
Top = 64
Width = 65
Height = 12
Left = 23
Top = 97
Width = 80
Height = 21
Caption = #35746#21333#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 404
Top = 35
Width = 52
Height = 12
Left = 442
Top = 56
Width = 64
Height = 21
Caption = #21457#36135#22320#22336
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TMMNo: TEdit
object TMMNo: TcxTextEdit
Tag = 2
Left = 78
Top = 6
Width = 100
Height = 18
Left = 109
Top = 3
TabOrder = 0
Width = 122
end
object TMMDate: TDateTimePicker
Tag = 2
Left = 458
object DLYDate: TcxDateEdit
Left = 311
Top = 4
Width = 100
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
TabOrder = 1
Width = 121
end
object DLYDate: TDateTimePicker
Tag = 2
Left = 273
object TMMDate: TcxDateEdit
Left = 516
Top = 4
Width = 100
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
ShowCheckbox = True
TabOrder = 2
Width = 121
end
object OrdNote: TMemo
Tag = 2
Left = 82
Top = 107
Width = 476
Height = 58
Hint = 'OrdNote/'#22791#27880
ScrollBars = ssVertical
object OurCoName: TcxButtonEdit
Left = 110
Top = 50
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = OurCoNamePropertiesButtonClick
TabOrder = 3
OnDblClick = PackNoteDblClick
OnDblClick = OurCoNameDblClick
Width = 121
end
object CustName: TBtnEditC
Tag = 2
Left = 273
Top = 32
Width = 100
Height = 20
ReadOnly = True
object CustName: TcxButtonEdit
Left = 311
Top = 50
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
TabOrder = 4
OnBtnUpClick = CustNameBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
OnDblClick = OurCoNameDblClick
Width = 121
end
object OurCoName: TBtnEditC
Tag = 2
Left = 78
Top = 32
Width = 100
Height = 20
ReadOnly = True
object ShippingAddress: TcxButtonEdit
Left = 516
Top = 50
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = cxButtonEdit2PropertiesButtonClick
TabOrder = 5
OnBtnUpClick = OurCoNameBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
OnDblClick = OurCoNameDblClick
Width = 121
end
object CONTACT: TBtnEditC
Tag = 2
Left = 273
Top = 59
Width = 285
Height = 20
object CONTACT: TcxButtonEdit
Left = 311
Top = 91
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = CONTACTPropertiesButtonClick
TabOrder = 6
OnBtnUpClick = CONTACTBtnUpClick
OnDblClick = OurCoNameDblClick
Width = 326
end
object OrdType: TComboBox
Tag = 2
Left = 78
Top = 59
Width = 100
Height = 20
Style = csDropDownList
Ctl3D = False
object OrdType: TcxComboBox
Left = 110
Top = 91
Enabled = False
ItemIndex = 0
ParentCtl3D = False
TabOrder = 7
Text = #27491#24120#21333
Items.Strings = (
#27491#24120#21333)
Width = 121
end
object ShippingAddress: TBtnEditC
Tag = 2
Left = 458
Top = 32
Width = 100
Height = 20
object OrdNote: TcxMemo
Left = 110
Top = 133
Hint = 'OrdNote/'#22791#27880
Properties.OnChange = OrdNotePropertiesChange
TabOrder = 8
OnBtnUpClick = ShippingAddressBtnUpClick
OnDblClick = OrdNoteDblClick
Height = 71
Width = 527
end
end
inherited ADOQueryBaseCmd: TADOQuery

280
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketInPut.pas
View File

@ -15,7 +15,7 @@ uses
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
IdFTP, ShellAPI, dxSkinWXI, dxScrollbarAnnotations;
IdFTP, ShellAPI, dxSkinWXI, dxScrollbarAnnotations, dxCore, cxDateUtils;
type
TfrmTradeMarketInPut = class(TfrmBaseInput)
@ -54,12 +54,7 @@ type
Label2: TLabel;
Label14: TLabel;
Label20: TLabel;
TMMNo: TEdit;
TMMDate: TDateTimePicker;
DLYDate: TDateTimePicker;
OrdNote: TMemo;
CustName: TBtnEditC;
OurCoName: TBtnEditC;
TMMNo: TcxTextEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column11: TcxGridDBColumn;
@ -74,10 +69,7 @@ type
Tv1Column9: TcxGridDBColumn;
Label19: TLabel;
Label37: TLabel;
CONTACT: TBtnEditC;
OrdType: TComboBox;
Label18: TLabel;
ShippingAddress: TBtnEditC;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
@ -86,7 +78,7 @@ type
Panel5: TPanel;
Label33: TLabel;
Label38: TLabel;
QtyMX: TEdit;
QtyMX: TcxTextEdit;
GroupBox2: TGroupBox;
cxGrid2: TcxGrid;
TvMX: TcxGridDBTableView;
@ -98,6 +90,14 @@ type
Tv1Column5: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
DLYDate: TcxDateEdit;
TMMDate: TcxDateEdit;
OurCoName: TcxButtonEdit;
CustName: TcxButtonEdit;
ShippingAddress: TcxButtonEdit;
CONTACT: TcxButtonEdit;
OrdType: TcxComboBox;
OrdNote: TcxMemo;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -117,9 +117,9 @@ type
procedure cxDBImage1DblClick(Sender: TObject);
procedure SYRNameBtnUpClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure CustNameBtnUpClick(Sender: TObject);
procedure OurCoNameBtnUpClick(Sender: TObject);
procedure OurCoNameBtnDnClick(Sender: TObject);
procedure CustName1BtnUpClick(Sender: TObject);
procedure OurCoName1BtnUpClick(Sender: TObject);
procedure OurCoName1BtnDnClick(Sender: TObject);
procedure TechnicsBtnUpClick(Sender: TObject);
procedure TechnicsBtnDnClick(Sender: TObject);
procedure PackNoteDblClick(Sender: TObject);
@ -128,9 +128,20 @@ type
procedure QtyMXKeyPress(Sender: TObject; var Key: Char);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure TvMXCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ShippingAddressBtnUpClick(Sender: TObject);
procedure CONTACTBtnUpClick(Sender: TObject);
procedure ShippingAddress1BtnUpClick(Sender: TObject);
procedure CONTACT1BtnUpClick(Sender: TObject);
procedure Tv1Column1PropertiesEditValueChanged(Sender: TObject);
procedure OurCoNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure OurCoNameDblClick(Sender: TObject);
procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure cxButtonEdit2PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure CONTACTPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure OrdNotePropertiesChange(Sender: TObject);
procedure OrdNoteDblClick(Sender: TObject);
private
FSCXDH: string;
procedure InitData();
@ -255,11 +266,11 @@ end;
procedure TfrmTradeMarketInPut.InitData();
var
FDate: TDateTime;
FDate: TDate;
begin
FDate := SGetServerDateTime(ADOTemp);
TMMDate.DateTime := FDate;
DlyDate.DateTime := FDate;
FDate := SGetServerDate(ADOTemp);
TMMDate.Date := FDate;
DlyDate.Date := FDate;
with ADOTemp do
begin
@ -272,8 +283,8 @@ begin
SCSHData(ADOTemp, ScrollBox1, 5);
SCSHData(ADOTemp, ScrollBox1, 9);
SCSHData(ADOTemp, ScrollBox1, 7);
OurCoName.TxtCode := Trim(ADOTemp.FieldByName('OurCoNo').AsString);
CustName.TxtCode := Trim(ADOTemp.FieldByName('CustNo').AsString);
OurCoName.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('OurCoNo').AsString);
CustName.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('CustNo').AsString);
with ADOTemp do
begin
Close;
@ -294,8 +305,8 @@ begin
if PState = 0 then
begin
TMMDate.DateTime := SGetServerDateTime(ADOTemp);
DlyDate.DateTime := TMMDate.DateTime;
TMMDate.Date := SGetServerDateTime(ADOTemp);
DlyDate.Date := TMMDate.Date;
TMMNo.Text := '';
TMMNo.Enabled := True;
end
@ -309,7 +320,7 @@ begin
TMMNo.Text := '';
TMMNo.Enabled := True;
TMMDate.DateTime := FDate;
TMMDate.Date := FDate;
with CDS_1 do
begin
@ -342,8 +353,8 @@ begin
TMMNo.Text := '';
fFlileFlag := UserDataFlag + 'HX';
InitData();
ordtype.Items.Clear;
ordtype.Items.Add(fordtype);
ordtype.Properties.Items.Clear;
ordtype.Properties.Items.Add(fordtype);
ordtype.ItemIndex := 0;
InitImage1();
InitImage2();
@ -393,8 +404,8 @@ begin
end;
RTSetsavedata(ADOCmd, 'Trade_Market_Main', ScrollBox1, 2);
FieldByName('TMMID').Value := Trim(maxno);
FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode);
FieldByName('CustNo').Value := Trim(CustName.TxtCode);
FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text);
FieldByName('CustNo').Value := Trim(CustName.Properties.LookupItems.Text);
Post;
end;
@ -769,7 +780,7 @@ var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -779,7 +790,7 @@ begin
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
@ -788,7 +799,7 @@ begin
end;
procedure TfrmTradeMarketInPut.CONTACTBtnUpClick(Sender: TObject);
procedure TfrmTradeMarketInPut.CONTACT1BtnUpClick(Sender: TObject);
begin
inherited;
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -798,12 +809,28 @@ begin
flagname := '联系方式';
if ShowModal = 1 then
begin
tedit(Sender).text := ClientDataSet1.FieldByName('ZDYName').AsString;
TcxTextEdit(Sender).text := ClientDataSet1.FieldByName('ZDYName').AsString;
end;
end;
end;
procedure TfrmTradeMarketInPut.CustNameBtnUpClick(Sender: TObject);
procedure TfrmTradeMarketInPut.CONTACTPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
inherited;
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'FHTel';
flagname := '联系方式';
if ShowModal = 1 then
begin
TcxTextEdit(Sender).text := ClientDataSet1.FieldByName('ZDYName').AsString;
end;
end;
end;
procedure TfrmTradeMarketInPut.CustName1BtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
@ -812,7 +839,7 @@ begin
FCoType := '客户';
if ShowModal = 1 then
begin
self.CustName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.CustName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.ShippingAddress.Text := frmCompanySel.CDS_1.FieldByName('CoAddress').AsString;
end;
@ -846,6 +873,60 @@ begin
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmTradeMarketInPut.cxButtonEdit1PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '客户';
if ShowModal = 1 then
begin
self.CustName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.ShippingAddress.Text := frmCompanySel.CDS_1.FieldByName('CoAddress').AsString;
end;
end;
finally
frmCompanySel.Free;
end;
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('select top 1 * from Trade_Market_Main where CustName=''' + CustName.Text + ''' ');
sql.Add(' and (isnull(ShippingAddress,'''')<>'''' or isnull(CONTACT,'''')<>'''' ) ');
sql.Add(' order by TMMDate desc ');
open;
end;
if ADOTemp.IsEmpty = False then
begin
ShippingAddress.Text := ADOTemp.FieldByName('ShippingAddress').AsString;
CONTACT.Text := ADOTemp.FieldByName('CONTACT').AsString;
end;
end;
procedure TfrmTradeMarketInPut.cxButtonEdit2PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
inherited;
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'FHAdress';
flagname := '发货地址';
if ShowModal = 1 then
begin
TcxTextEdit(Sender).text := ClientDataSet1.FieldByName('ZDYName').AsString;
end;
end;
end;
procedure TfrmTradeMarketInPut.cxDBImage1DblClick(Sender: TObject);
begin
if TcxDBImage(Sender).Picture.Height = 0 then
@ -1024,7 +1105,7 @@ var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -1034,7 +1115,7 @@ begin
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
@ -1047,7 +1128,7 @@ begin
TMMDate.SetFocus;
end;
procedure TfrmTradeMarketInPut.ShippingAddressBtnUpClick(Sender: TObject);
procedure TfrmTradeMarketInPut.ShippingAddress1BtnUpClick(Sender: TObject);
begin
inherited;
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -1057,18 +1138,94 @@ begin
flagname := '发货地址';
if ShowModal = 1 then
begin
tedit(Sender).text := ClientDataSet1.FieldByName('ZDYName').AsString;
TcxTextEdit(Sender).text := ClientDataSet1.FieldByName('ZDYName').AsString;
end;
end;
end;
procedure TfrmTradeMarketInPut.OurCoNameBtnDnClick(Sender: TObject);
procedure TfrmTradeMarketInPut.OrdNoteDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TCXMemo(Sender).Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
TCXMemo(Sender).Lines.Add(FieldByName('ZDYName').AsString) //inttostr(i)+'.'+
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmTradeMarketInPut.OrdNotePropertiesChange(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TMemo(Sender).Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
TMemo(Sender).Lines.Add(FieldByName('ZDYName').AsString) //inttostr(i)+'.'+
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmTradeMarketInPut.OurCoName1BtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmTradeMarketInPut.OurCoNameBtnUpClick(Sender: TObject);
procedure TfrmTradeMarketInPut.OurCoName1BtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
@ -1077,7 +1234,34 @@ begin
FCoType := '我司';
if ShowModal = 1 then
begin
self.OurCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.OurCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.OurCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTradeMarketInPut.OurCoNameDblClick(Sender: TObject);
begin
TcxButtonEdit(Sender).Text := '';
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end;
procedure TfrmTradeMarketInPut.OurCoNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '我司';
if ShowModal = 1 then
begin
self.OurCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.OurCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
@ -1197,7 +1381,7 @@ var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -1208,7 +1392,7 @@ begin
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
@ -1383,7 +1567,7 @@ var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -1393,7 +1577,7 @@ begin
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
@ -1406,7 +1590,7 @@ var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -1422,7 +1606,7 @@ begin
end;
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;

277
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketList.dfm
View File

@ -16,18 +16,18 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Left = 0
Top = 0
Width = 1540
Height = 38
Height = 30
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
@ -114,7 +114,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBTJCXClick
end
object Tchk: TToolButton
Left = 734
Left = 742
Top = 0
AutoSize = True
Caption = #23457#26680
@ -122,7 +122,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TchkClick
end
object Tnochk: TToolButton
Left = 805
Left = 813
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
@ -130,7 +130,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TnochkClick
end
object TWC: TToolButton
Left = 900
Left = 916
Top = 0
AutoSize = True
Caption = #23436#25104
@ -138,7 +138,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TWCClick
end
object TNowc: TToolButton
Left = 971
Left = 987
Top = 0
AutoSize = True
Caption = #25764#38144#23436#25104
@ -146,7 +146,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TNowcClick
end
object ToolButton2: TToolButton
Left = 1066
Left = 1090
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -154,7 +154,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 1161
Left = 1193
Top = 0
AutoSize = True
Caption = #20851#38381
@ -164,175 +164,137 @@ inherited frmTradeMarketList: TfrmTradeMarketList
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Top = 30
Width = 1540
Height = 69
Height = 91
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentFont = False
TabOrder = 1
object Label3: TLabel
Left = 295
Top = 20
Width = 52
Height = 12
Left = 19
Top = 48
Width = 64
Height = 21
Caption = #35745#21010#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 613
Top = 119
Width = 26
Height = 12
Left = 747
Top = 51
Width = 32
Height = 21
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 319
Top = 47
Width = 26
Height = 12
Left = 400
Top = 48
Width = 32
Height = 21
Caption = #23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 470
Top = 20
Width = 52
Height = 12
Left = 207
Top = 48
Width = 64
Height = 21
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 480
Top = 47
Width = 39
Height = 12
Left = 567
Top = 51
Width = 48
Height = 21
Caption = #21512#21516#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object TMMNo: TcxTextEdit
Tag = 2
Left = 93
Top = 45
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 152
Top = 16
Width = 101
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 152
Top = 42
Width = 102
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
TabOrder = 2
end
object TMMNo: TEdit
Tag = 2
Left = 353
Top = 16
OnKeyPress = TMMNoKeyPress
Width = 104
Height = 25
end
object MPRTKZ: TcxTextEdit
Tag = 2
Left = 789
Top = 47
ParentFont = False
TabOrder = 1
OnKeyPress = TMMNoKeyPress
end
object MPRTKZ: TEdit
Tag = 2
Left = 654
Top = 99
Width = 56
Height = 25
end
object CustName: TcxTextEdit
Tag = 2
Left = 445
Top = 47
ParentFont = False
TabOrder = 2
OnKeyPress = TMMNoKeyPress
Width = 104
end
object C_Name: TcxTextEdit
Tag = 2
Left = 281
Top = 45
ParentFont = False
TabOrder = 3
OnChange = OrderNoMChange
OnKeyPress = TMMNoKeyPress
Width = 104
end
object ComboBox1: TComboBox
Left = 49
Top = 16
Width = 93
Height = 25
object ConNo: TcxTextEdit
Tag = 2
Left = 633
Top = 47
ParentFont = False
TabOrder = 4
Text = #21046#21333#26085#26399
OnChange = ComboBox1Change
Items.Strings = (
#21046#21333#26085#26399
#20132#36135#26085#26399)
end
object CustName: TEdit
Tag = 2
Left = 351
Top = 43
OnKeyPress = TMMNoKeyPress
Width = 104
Height = 25
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
Top = 2
Width = 1536
Height = 37
Align = alTop
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 5
OnKeyPress = TMMNoKeyPress
end
object C_Name: TEdit
Tag = 2
Left = 525
Top = 16
Width = 104
Height = 25
TabOrder = 6
OnKeyPress = TMMNoKeyPress
end
object ConNo: TEdit
Tag = 2
Left = 525
Top = 43
Width = 104
Height = 25
TabOrder = 7
OnKeyPress = TMMNoKeyPress
end
object CheckBox1: TCheckBox
Left = 28
Top = 18
Width = 19
Height = 17
Checked = True
State = cbChecked
TabOrder = 8
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1536
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 125
Top = 147
Width = 1540
Height = 431
Height = 409
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
PopupMenu = PM_1
TabOrder = 3
ExplicitTop = 177
ExplicitHeight = 379
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -361,12 +323,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.Content = DataLink_TradeMarket.Default
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Footer = DataLink_TradeMarket.Default
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object v1Column16: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
@ -384,7 +340,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object Tv1Column2: TcxGridDBColumn
@ -393,7 +348,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.FontBlue
Width = 66
end
object Tv1Column4: TcxGridDBColumn
@ -402,7 +356,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.FoneClMaroon
Width = 66
end
object v1DeliveryDate: TcxGridDBColumn
@ -414,7 +367,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnCustomDrawCell = v1DeliveryDateCustomDrawCell
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object Tv1Column11: TcxGridDBColumn
@ -495,10 +447,16 @@ inherited frmTradeMarketList: TfrmTradeMarketList
end
object cxTabControl1: TcxTabControl [4]
Left = 0
Top = 107
Top = 121
Width = 1540
Height = 18
Height = 26
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
@ -510,6 +468,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
' '#24050#23436#25104' '
' '#20840#37096' ')
OnChange = cxTabControl1Change
ExplicitTop = 151
ClientRectRight = 0
ClientRectTop = 0
end
@ -530,7 +489,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
@ -579,11 +538,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OptionsData.Deleting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Footer = DataLink_TradeMarket.Default
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Tag = 99
Caption = #36873#25321
@ -625,7 +579,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.handBlack
Width = 79
end
object TV2Column4: TcxGridDBColumn
@ -650,7 +603,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object v1OrderUnit: TcxGridDBColumn
@ -664,7 +616,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
'Kg')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object TV2Column3: TcxGridDBColumn

45
项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketList.pas
View File

@ -16,7 +16,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxSkinWXI,
dxScrollbarAnnotations;
dxScrollbarAnnotations, FrameDateSel;
type
TfrmTradeMarketList = class(TfrmBaseList)
@ -28,8 +28,6 @@ type
TBPrint: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
@ -39,13 +37,13 @@ type
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
TMMNo: TEdit;
TMMNo: TcxTextEdit;
v1OrdDate: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
Order_Main: TClientDataSet;
TBCK: TToolButton;
Label12: TLabel;
MPRTKZ: TEdit;
MPRTKZ: TcxTextEdit;
btnCopy: TToolButton;
cxSplitter1: TcxSplitter;
ADOQuerySub: TADOQuery;
@ -68,9 +66,8 @@ type
PopupMenu2: TPopupMenu;
N3: TMenuItem;
N4: TMenuItem;
ComboBox1: TComboBox;
Label1: TLabel;
CustName: TEdit;
CustName: TcxTextEdit;
Tv1Column6: TcxGridDBColumn;
cxgrdpmn2: TcxGridPopupMenu;
cxGrid2: TcxGrid;
@ -87,11 +84,10 @@ type
Tv1Column11: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Label2: TLabel;
C_Name: TEdit;
C_Name: TcxTextEdit;
CDS_WXTS: TClientDataSet;
Label4: TLabel;
ConNo: TEdit;
CheckBox1: TCheckBox;
ConNo: TcxTextEdit;
ToolButton2: TToolButton;
PM_1: TPopupMenu;
N1: TMenuItem;
@ -105,6 +101,7 @@ type
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
frmFrameDateSel1: TfrmFrameDateSel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -334,26 +331,26 @@ begin
sql.add(' from Trade_Market_Main A ');
// Sql.add(' inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = True) then
if (cxComboBox1.Text = '制单日期') and (cxCheckBox1.Checked = True) then
begin
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
end;
if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = False) then
if (cxComboBox1.Text = '制单日期') and (cxCheckBox1.Checked = False) then
begin
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date - 39999))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
end;
if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = True) then
if (cxComboBox1.Text = '交货日期') and (cxCheckBox1.Checked = True) then
begin
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1.enddate.Date + 1))));
end;
if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = False) then
if (cxComboBox1.Text = '交货日期') and (cxCheckBox1.Checked = False) then
begin
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date - 39999))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
end;
if canshu1 = '录入' then
@ -432,8 +429,8 @@ procedure TfrmTradeMarketList.InitForm();
begin
ReadCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
ReadCxGrid('指示单列表FFTv21', Tv2, '生产指示单管理');
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 180;
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180;
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
SetStatus();
InitGrid();

8069
项目代码/RTBasicsV1/T05贸易门市管理/devchs.ini Normal file
View File

File diff suppressed because it is too large Load Diff