Group_02/D10gmBitao
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

111

Browse Source
This commit is contained in:
“username” 2025-05-08 07:53:22 +08:00
parent 8f3d8d1cc5
commit 9ae6e7e17d
19 changed files with 361 additions and 170 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
A00通用窗体/U_ClothInfoSel.dfm
View File

@ -10,7 +10,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -32 ExplicitTop = -3
ExplicitWidth = 1501 ExplicitWidth = 1501
ExplicitHeight = 673 ExplicitHeight = 673
PixelsPerInch = 96 PixelsPerInch = 96
@ -263,6 +263,14 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxgrdbclmnTv1Column11: TcxGridDBColumn
Caption = #29289#26009#21517#31216
DataBinding.FieldName = 'C_Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -445,6 +453,13 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Height = 12 Height = 12
Caption = #29289#26009#32534#30721 Caption = #29289#26009#32534#30721
end end
object lbl3: TLabel
Left = 1307
Top = 10
Width = 48
Height = 12
Caption = #29289#26009#21517#31216
end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
Left = 91 Left = 91
@ -517,6 +532,15 @@ inherited frmClothInfoSel: TfrmClothInfoSel
TabOrder = 7 TabOrder = 7
OnChange = C_NameChange OnChange = C_NameChange
end end
object C_Material: TEdit
Tag = 2
Left = 1360
Top = 6
Width = 89
Height = 20
TabOrder = 8
OnChange = C_NameChange
end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1

3
A00通用窗体/U_ClothInfoSel.pas
View File

@ -93,6 +93,9 @@ type
cxgrdbclmnTv1Column10: TcxGridDBColumn; cxgrdbclmnTv1Column10: TcxGridDBColumn;
lbl2: TLabel; lbl2: TLabel;
C_KHCode: TEdit; C_KHCode: TEdit;
cxgrdbclmnTv1Column11: TcxGridDBColumn;
lbl3: TLabel;
C_Material: TEdit;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

7
A00通用窗体/U_LabelMapSet.dfm
View File

@ -95,6 +95,7 @@ object frmLabelMapSet: TfrmLabelMapSet
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -125,6 +126,7 @@ object frmLabelMapSet: TfrmLabelMapSet
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #31867#22411 Caption = #31867#22411
DataBinding.FieldName = 'LMType' DataBinding.FieldName = 'LMType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -134,6 +136,7 @@ object frmLabelMapSet: TfrmLabelMapSet
object v2Column12: TcxGridDBColumn object v2Column12: TcxGridDBColumn
Caption = #25253#34920#21517#31216 Caption = #25253#34920#21517#31216
DataBinding.FieldName = 'LMName' DataBinding.FieldName = 'LMName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -142,6 +145,7 @@ object frmLabelMapSet: TfrmLabelMapSet
object v2Column8: TcxGridDBColumn object v2Column8: TcxGridDBColumn
Caption = #35843#29992#23384#20648'1' Caption = #35843#29992#23384#20648'1'
DataBinding.FieldName = 'LMSql1' DataBinding.FieldName = 'LMSql1'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -150,6 +154,7 @@ object frmLabelMapSet: TfrmLabelMapSet
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #35843#29992#23384#20648'2' Caption = #35843#29992#23384#20648'2'
DataBinding.FieldName = 'LMSql2' DataBinding.FieldName = 'LMSql2'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -158,6 +163,7 @@ object frmLabelMapSet: TfrmLabelMapSet
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #35843#29992#23384#20648'3' Caption = #35843#29992#23384#20648'3'
DataBinding.FieldName = 'LMSql3' DataBinding.FieldName = 'LMSql3'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -222,6 +228,7 @@ object frmLabelMapSet: TfrmLabelMapSet
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2 DataController.DataSource = DS_2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>

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

@ -15,7 +15,7 @@ uses
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls, cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, System.ImageList, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, System.ImageList,
Vcl.ImgList, U_BaseHelp; Vcl.ImgList, U_BaseHelp, dxScrollbarAnnotations;
type type
TfrmLabelMapSet = class(Tform) TfrmLabelMapSet = class(Tform)

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

@ -95,7 +95,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql1').AsString) + ' @Filtration=' + quotedstr(Trim(FFiltration1))); sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql1').AsString) + ' @Filtration=' + quotedstr(Trim(FFiltration1)));
// ShowMessage(sql.text); //ShowMessage(sql.text);
Open; Open;
end; end;
end; end;

2
A02基础产品管理/ClothInfo.dproj
View File

@ -124,7 +124,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\A02基础产品管理\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmBitao\A02基础产品管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">

48
A02基础产品管理/ClothInfo.dproj.local
View File

@ -1,44 +1,44 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.710,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.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.692,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.710,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.692,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.656,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.656,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.372,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.372,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.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.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.886,=D:\Dp10Repo\项目代码\阔和\A02基础产品管理\U_testdll.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.886,=D:\Dp10Repo\项目代码\阔和\A02基础产品管理\U_testdll.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</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.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.246,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</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.734,=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>2025-03-17 16:20:28.246,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -69,7 +69,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/> <File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

BIN
A02基础产品管理/ClothInfo.identcache
View File

Binary file not shown.

20
A02基础产品管理/ProjectGroup1.groupproj
View File

@ -1,11 +1,8 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{D75EC075-444C-40C2-8ACB-0AAD801B39FF}</ProjectGuid> <ProjectGuid>{DB10C7B5-98E1-4614-982F-CD218213F95A}</ProjectGuid>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Projects Include="ClothInfo.dproj">
<Dependencies/>
</Projects>
<Projects Include="testDll.dproj"> <Projects Include="testDll.dproj">
<Dependencies/> <Dependencies/>
</Projects> </Projects>
@ -17,15 +14,6 @@
<Default.Personality/> <Default.Personality/>
</BorlandProject> </BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Target Name="ClothInfo">
<MSBuild Projects="ClothInfo.dproj"/>
</Target>
<Target Name="ClothInfo:Clean">
<MSBuild Projects="ClothInfo.dproj" Targets="Clean"/>
</Target>
<Target Name="ClothInfo:Make">
<MSBuild Projects="ClothInfo.dproj" Targets="Make"/>
</Target>
<Target Name="testDll"> <Target Name="testDll">
<MSBuild Projects="testDll.dproj"/> <MSBuild Projects="testDll.dproj"/>
</Target> </Target>
@ -36,13 +24,13 @@
<MSBuild Projects="testDll.dproj" Targets="Make"/> <MSBuild Projects="testDll.dproj" Targets="Make"/>
</Target> </Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="ClothInfo;testDll"/> <CallTarget Targets="testDll"/>
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="ClothInfo:Clean;testDll:Clean"/> <CallTarget Targets="testDll:Clean"/>
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="ClothInfo:Make;testDll:Make"/> <CallTarget Targets="testDll:Make"/>
</Target> </Target>
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/> <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
</Project> </Project>

7
A02基础产品管理/ProjectGroup1.groupproj.local
View File

@ -1,7 +1,6 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions/> <Default.Personality>
<Default.Personality> <Projects ActiveProject="D:\Dp10Repo\项目代码\D10gmBitao\A02基础产品管理\testDll.dproj"/>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10gmbitao\A02基础产品管理\testDll.dproj"/> </Default.Personality>
</Default.Personality>
</BorlandProject> </BorlandProject>

24
A02基础产品管理/U_ClothInfo.dfm
View File

@ -239,6 +239,13 @@ inherited frmClothInfo: TfrmClothInfo
Height = 12 Height = 12
Caption = #29289#26009#32534#30721 Caption = #29289#26009#32534#30721
end end
object lbl3: TLabel
Left = 407
Top = 48
Width = 48
Height = 12
Caption = #29289#26009#21517#31216
end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
Left = 115 Left = 115
@ -320,6 +327,15 @@ inherited frmClothInfo: TfrmClothInfo
TabOrder = 8 TabOrder = 8
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
end end
object C_Material: TEdit
Tag = 2
Left = 465
Top = 43
Width = 89
Height = 20
TabOrder = 9
OnKeyPress = C_CodeKeyPress
end
end end
object Panel2: TPanel [3] object Panel2: TPanel [3]
Left = 512 Left = 512
@ -595,6 +611,14 @@ inherited frmClothInfo: TfrmClothInfo
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxgrdbclmnTv1Column15: TcxGridDBColumn
Caption = #29289#26009#21517#31216
DataBinding.FieldName = 'C_Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

3
A02基础产品管理/U_ClothInfo.pas
View File

@ -148,6 +148,9 @@ type
C_KHName: TEdit; C_KHName: TEdit;
lbl2: TLabel; lbl2: TLabel;
C_KHCode: TEdit; C_KHCode: TEdit;
cxgrdbclmnTv1Column15: TcxGridDBColumn;
lbl3: TLabel;
C_Material: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject); procedure TBDelClick(Sender: TObject);

41
A02基础产品管理/U_ClothInfoInput.dfm
View File

@ -4,7 +4,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Anchors = [] Anchors = []
Caption = #20135#21697#20449#24687#24405#20837 Caption = #20135#21697#20449#24687#24405#20837
ClientHeight = 547 ClientHeight = 547
ClientWidth = 931 ClientWidth = 1198
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -20,7 +20,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 931 Width = 1198
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -33,6 +33,7 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 931
object ToolButton1: TToolButton object ToolButton1: TToolButton
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -62,7 +63,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 38 Top = 38
Width = 931 Width = 1198
Height = 509 Height = 509
Align = alClient Align = alClient
AutoSize = True AutoSize = True
@ -73,7 +74,7 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitHeight = 436 ExplicitWidth = 931
object Label1: TLabel object Label1: TLabel
Left = 23 Left = 23
Top = 439 Top = 439
@ -297,6 +298,19 @@ object frmClothInfoInput: TfrmClothInfoInput
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object lbl3: TLabel
Left = 799
Top = 27
Width = 110
Height = 21
Caption = #29289#26009#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
Left = 155 Left = 155
@ -550,7 +564,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Left = 142 Left = 142
Top = 231 Top = 231
Width = 240 Width = 240
Height = 31 Height = 30
Hint = 'C_DYARN/'#24213#32433 Hint = 'C_DYARN/'#24213#32433
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -567,7 +581,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Left = 533 Left = 533
Top = 230 Top = 230
Width = 240 Width = 240
Height = 31 Height = 30
Hint = 'C_jiaceng/'#22841#23618 Hint = 'C_jiaceng/'#22841#23618
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -579,6 +593,21 @@ object frmClothInfoInput: TfrmClothInfoInput
OnBtnUpClick = C_WidthBtnUpClick OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick OnBtnDnClick = C_WidthBtnDnClick
end end
object C_Material: TEdit
Tag = 2
Left = 906
Top = 26
Width = 240
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 17
OnKeyPress = CYColorKeyPress
end
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink

2
A02基础产品管理/U_ClothInfoInput.pas
View File

@ -56,6 +56,8 @@ type
Label23: TLabel; Label23: TLabel;
C_DYARN: TBtnEditC; C_DYARN: TBtnEditC;
C_jiaceng: TBtnEditC; C_jiaceng: TBtnEditC;
lbl3: TLabel;
C_Material: TEdit;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);

224
D01针织生产计划/U_KnitPlanInPut.dfm
View File

@ -2,7 +2,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Left = 212 Left = 212
Top = 14 Top = 14
Caption = #36710#38388#29983#20135#35745#21010#21333#24405#20837 Caption = #36710#38388#29983#20135#35745#21010#21333#24405#20837
ClientHeight = 658 ClientHeight = 581
ClientWidth = 1363 ClientWidth = 1363
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -10,7 +10,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
ExplicitWidth = 1379 ExplicitWidth = 1379
ExplicitHeight = 697 ExplicitHeight = 620
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -71,7 +71,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1363 Width = 1363
Height = 538 Height = 610
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -98,8 +98,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 847 Left = 555
Top = 8 Top = 9
Width = 110 Width = 110
Height = 21 Height = 21
Caption = #19979#21333#26085#26399#65306 Caption = #19979#21333#26085#26399#65306
@ -150,9 +150,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False ParentFont = False
end end
object Label22: TLabel object Label22: TLabel
Left = 845 Left = 851
Top = 152 Top = 152
Width = 110 Width = 102
Height = 21 Height = 21
Caption = #25104#21697#20811#37325#65306 Caption = #25104#21697#20811#37325#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -163,8 +163,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 557 Left = 848
Top = 8 Top = 9
Width = 110 Width = 110
Height = 21 Height = 21
Caption = #20132#36135#26085#26399#65306 Caption = #20132#36135#26085#26399#65306
@ -189,8 +189,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False ParentFont = False
end end
object Label12: TLabel object Label12: TLabel
Left = 939 Left = 934
Top = 534 Top = 628
Width = 114 Width = 114
Height = 21 Height = 21
Caption = #21305' '#38271#65306 Caption = #21305' '#38271#65306
@ -217,7 +217,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label16: TLabel object Label16: TLabel
Left = 9 Left = 9
Top = 414 Top = 409
Width = 114 Width = 114
Height = 21 Height = 21
Caption = #22791' '#27880#65306 Caption = #22791' '#27880#65306
@ -242,8 +242,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False ParentFont = False
end end
object Label27: TLabel object Label27: TLabel
Left = 1029 Left = 1033
Top = 424 Top = 448
Width = 24 Width = 24
Height = 21 Height = 21
Caption = 'KG' Caption = 'KG'
@ -256,7 +256,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object Label28: TLabel object Label28: TLabel
Left = 874 Left = 874
Top = 424 Top = 448
Width = 66 Width = 66
Height = 21 Height = 21
Caption = #30382#37325#65306 Caption = #30382#37325#65306
@ -268,8 +268,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False ParentFont = False
end end
object Label31: TLabel object Label31: TLabel
Left = 96 Left = 91
Top = 561 Top = 655
Width = 114 Width = 114
Height = 21 Height = 21
Caption = #32433' '#32447#65306 Caption = #32433' '#32447#65306
@ -360,9 +360,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 850 Left = 851
Top = 195 Top = 240
Width = 110 Width = 114
Height = 21 Height = 21
Caption = #33853#24067#36716#25968#65306 Caption = #33853#24067#36716#25968#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -386,8 +386,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 850 Left = 874
Top = 241 Top = 408
Width = 110 Width = 110
Height = 21 Height = 21
Caption = #32986#24067#35201#27714#65306 Caption = #32986#24067#35201#27714#65306
@ -556,7 +556,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end end
object lbl6: TLabel object lbl6: TLabel
Left = 871 Left = 871
Top = 471 Top = 486
Width = 88 Width = 88
Height = 21 Height = 21
Caption = #21253#26631#31614#65306 Caption = #21253#26631#31614#65306
@ -567,15 +567,28 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object lbl7: TLabel
Left = 851
Top = 195
Width = 110
Height = 21
Caption = #29289#26009#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrdDate: TDateTimePicker object OrdDate: TDateTimePicker
Left = 957 Left = 665
Top = 4 Top = 5
Width = 180 Width = 172
Height = 29 Height = 29
BevelInner = bvNone BevelInner = bvNone
Date = 40916.000000000000000000 Date = 40916.000000000000000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 0.670856296288548000 Time = 0.670856296288548100
ShowCheckbox = True ShowCheckbox = True
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -586,14 +599,14 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
TabOrder = 0 TabOrder = 0
end end
object DlyDate: TDateTimePicker object DlyDate: TDateTimePicker
Left = 659 Left = 957
Top = 4 Top = 5
Width = 180 Width = 182
Height = 29 Height = 29
BevelInner = bvNone BevelInner = bvNone
Date = 40916.000000000000000000 Date = 40916.000000000000000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 0.670856296288548000 Time = 0.670856296288548100
ShowCheckbox = True ShowCheckbox = True
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -601,12 +614,12 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 8 TabOrder = 7
end end
object OrdPieceWeight: TEdit object OrdPieceWeight: TEdit
Tag = 2 Tag = 2
Left = 950 Left = 945
Top = 550 Top = 644
Width = 180 Width = 180
Height = 27 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -652,20 +665,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
OnChange = OrdPieceWeightChange OnChange = OrdPieceWeightChange
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object RuleBeforeTare: TEdit
Left = 959
Top = 423
Width = 60
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnKeyPress = ConNoKeyPress
end
object C_GramWeight: TEdit object C_GramWeight: TEdit
Tag = 2 Tag = 2
Left = 957 Left = 957
@ -723,7 +722,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 9 TabOrder = 8
OnBtnUpClick = CustNameBtnUpClick OnBtnUpClick = CustNameBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
@ -740,7 +739,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 10 TabOrder = 9
OnBtnUpClick = C_CodeBtnUpClick OnBtnUpClick = C_CodeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
@ -757,7 +756,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 11 TabOrder = 10
OnBtnUpClick = ConNoBtnUpClick OnBtnUpClick = ConNoBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
@ -772,7 +771,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 12 TabOrder = 11
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object OurCoName: TBtnEditC object OurCoName: TBtnEditC
@ -787,7 +786,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 13 TabOrder = 12
OnBtnUpClick = OurCoNameBtnUpClick OnBtnUpClick = OurCoNameBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
@ -804,7 +803,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 14 TabOrder = 13
OnBtnUpClick = MCTypeBtnUpClick OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
@ -820,7 +819,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 15 TabOrder = 14
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object OrdType: TComboBox object OrdType: TComboBox
@ -837,7 +836,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ItemHeight = 20 ItemHeight = 20
ItemIndex = 0 ItemIndex = 0
ParentFont = False ParentFont = False
TabOrder = 16 TabOrder = 15
Text = #22823#36135#21333 Text = #22823#36135#21333
Items.Strings = ( Items.Strings = (
#22823#36135#21333 #22823#36135#21333
@ -856,14 +855,14 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 17 TabOrder = 16
OnBtnUpClick = FtyCoNameBtnUpClick OnBtnUpClick = FtyCoNameBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
object C_revolution: TEdit object C_revolution: TEdit
Tag = 2 Tag = 2
Left = 958 Left = 957
Top = 192 Top = 237
Width = 180 Width = 180
Height = 27 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -872,7 +871,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 18 TabOrder = 17
OnChange = OrdPieceWeightChange OnChange = OrdPieceWeightChange
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
@ -889,14 +888,14 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 19 TabOrder = 18
OnBtnUpClick = MCTypeBtnUpClick OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
object C_KnitNote: TBtnEditC object C_KnitNote: TBtnEditC
Tag = 2 Tag = 2
Left = 958 Left = 982
Top = 237 Top = 404
Width = 180 Width = 180
Height = 30 Height = 30
Hint = 'C_KnitNote/'#32986#24067#35201#27714 Hint = 'C_KnitNote/'#32986#24067#35201#27714
@ -906,7 +905,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 20 TabOrder = 19
OnBtnUpClick = MCTypeBtnUpClick OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
@ -923,7 +922,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 21 TabOrder = 20
OnBtnUpClick = MCTypeBtnUpClick OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
@ -939,7 +938,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 22 TabOrder = 21
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object C_Figure: TBtnEditC object C_Figure: TBtnEditC
@ -955,7 +954,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 23 TabOrder = 22
OnBtnUpClick = MCTypeBtnUpClick OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
@ -972,7 +971,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 24 TabOrder = 23
OnBtnUpClick = MCTypeBtnUpClick OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
@ -988,7 +987,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 25 TabOrder = 24
OnChange = OrdPieceWeightChange OnChange = OrdPieceWeightChange
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
@ -1004,13 +1003,13 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 26 TabOrder = 25
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object C_Spec: TEdit object C_Spec: TEdit
Tag = 2 Tag = 2
Left = 201 Left = 196
Top = 554 Top = 648
Width = 1023 Width = 1023
Height = 46 Height = 46
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1019,23 +1018,23 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 27 TabOrder = 26
Visible = False Visible = False
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object OrdSNote: TRichEdit object OrdSNote: TRichEdit
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 405 Top = 406
Width = 731 Width = 731
Height = 110 Height = 101
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -21 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 28 TabOrder = 27
Zoom = 100 Zoom = 100
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
@ -1052,7 +1051,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 29 TabOrder = 28
OnBtnUpClick = MCTypeBtnUpClick OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
@ -1069,7 +1068,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [] Font.Style = []
ItemIndex = 0 ItemIndex = 0
ParentFont = False ParentFont = False
TabOrder = 30 TabOrder = 29
Text = #20844#26020 Text = #20844#26020
Items.Strings = ( Items.Strings = (
#20844#26020 #20844#26020
@ -1090,7 +1089,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 31 TabOrder = 30
OnBtnUpClick = MCTypeBtnUpClick OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
@ -1107,7 +1106,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 32 TabOrder = 31
OnBtnUpClick = MCTypeBtnUpClick OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
@ -1122,7 +1121,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 33 TabOrder = 32
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object C_Material_Name: TBtnEditC object C_Material_Name: TBtnEditC
@ -1138,7 +1137,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 34 TabOrder = 33
OnBtnUpClick = MCTypeBtnUpClick OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
@ -1155,13 +1154,13 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 35 TabOrder = 34
OnBtnUpClick = MCTypeBtnUpClick OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
object LabPackage: TBtnEditC object LabPackage: TBtnEditC
Left = 959 Left = 959
Top = 467 Top = 482
Width = 180 Width = 180
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1170,24 +1169,61 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 36 TabOrder = 35
OnBtnUpClick = LabPackageBtnUpClick OnBtnUpClick = LabPackageBtnUpClick
OnBtnDnClick = CustNameBtnDnClick OnBtnDnClick = CustNameBtnDnClick
end end
object RuleBeforeTare: TComboBox
Left = 958
Top = 447
Width = 65
Height = 26
Style = csOwnerDrawFixed
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 20
ParentFont = False
TabOrder = 36
Items.Strings = (
'0.5'
'1')
end
object C_Material: TBtnEditC
Tag = 2
Left = 957
Top = 192
Width = 180
Height = 30
Hint = 'C_Material/'#29289#26009#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 37
OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
end end
object Panel2: TPanel [2] object Panel2: TPanel [2]
Left = 0 Left = 0
Top = 576 Top = 648
Width = 1363 Width = 1363
Height = 82 Height = 3
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
Visible = False Visible = False
ExplicitTop = 576
ExplicitHeight = 82
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1361 Width = 1361
Height = 80 Height = 1
Align = alClient Align = alClient
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1202,19 +1238,22 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ClientRectBottom = 80 ExplicitHeight = 80
ClientRectBottom = 3
ClientRectRight = 1361 ClientRectRight = 1361
ClientRectTop = 32 ClientRectTop = 3
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#37197' '#27604' ' Caption = ' '#37197' '#27604' '
Color = clWhite Color = clWhite
ImageIndex = 0 ImageIndex = 0
ParentColor = False ParentColor = False
ExplicitTop = 32
ExplicitHeight = 48
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1361 Width = 1361
Height = 10 Height = 0
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1223,6 +1262,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitHeight = 10
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -1463,6 +1503,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #25490#38024#19977#35282 Caption = #25490#38024#19977#35282
ImageIndex = 1 ImageIndex = 1
ExplicitTop = 32
ExplicitHeight = 48
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 183 Top = 183

6
D01针织生产计划/U_KnitPlanInPut.pas
View File

@ -78,7 +78,6 @@ type
Label26: TLabel; Label26: TLabel;
Label27: TLabel; Label27: TLabel;
Label28: TLabel; Label28: TLabel;
RuleBeforeTare: TEdit;
v2Column1: TcxGridDBColumn; v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn; v2Column3: TcxGridDBColumn;
v2Column5: TcxGridDBColumn; v2Column5: TcxGridDBColumn;
@ -391,6 +390,9 @@ type
C_MainYarn: TBtnEditC; C_MainYarn: TBtnEditC;
lbl6: TLabel; lbl6: TLabel;
LabPackage: TBtnEditC; LabPackage: TBtnEditC;
RuleBeforeTare: TComboBox;
lbl7: TLabel;
C_Material: TBtnEditC;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -1685,9 +1687,9 @@ begin
Self.C_jiaceng.Text := frmClothInfoSel.CDS_1.fieldbyname('C_jiaceng').AsString; Self.C_jiaceng.Text := frmClothInfoSel.CDS_1.fieldbyname('C_jiaceng').AsString;
Self.C_DYARN.Text := frmClothInfoSel.CDS_1.fieldbyname('C_DYARN').AsString; Self.C_DYARN.Text := frmClothInfoSel.CDS_1.fieldbyname('C_DYARN').AsString;
Self.C_Material_Name.Text := frmClothInfoSel.CDS_1.fieldbyname('C_KHCode').AsString; Self.C_Material_Name.Text := frmClothInfoSel.CDS_1.fieldbyname('C_KHCode').AsString;
Self.C_Material.Text := frmClothInfoSel.CDS_1.fieldbyname('C_Material').AsString;
Self.OrdSNote.Text := frmClothInfoSel.CDS_1.fieldbyname('Note').AsString; Self.OrdSNote.Text := frmClothInfoSel.CDS_1.fieldbyname('Note').AsString;
Self.C_Deal.Text := frmClothInfoSel.CDS_1.fieldbyname('C_Deal').AsString; Self.C_Deal.Text := frmClothInfoSel.CDS_1.fieldbyname('C_Deal').AsString;
end; end;
end; end;
finally finally

56
D01针织生产计划/U_KnitPlanList.dfm
View File

@ -89,16 +89,24 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Visible = False Visible = False
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object TBView: TToolButton object DYPrint: TToolButton
Left = 569 Left = 569
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360#25171#26679#21333
ImageIndex = 21
OnClick = DYPrintClick
end
object TBView: TToolButton
Left = 676
Top = 0
AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
ImageIndex = 4 ImageIndex = 4
OnClick = TBViewClick OnClick = TBViewClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 640 Left = 747
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -106,7 +114,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBDelClick OnClick = TBDelClick
end end
object TBSCAP: TToolButton object TBSCAP: TToolButton
Left = 711 Left = 818
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #29983#20135#23433#25490 Caption = #29983#20135#23433#25490
@ -114,7 +122,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBSCAPClick OnClick = TBSCAPClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 806 Left = 913
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21367#35774#32622 Caption = #25171#21367#35774#32622
@ -122,24 +130,24 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object btn1: TToolButton object btn1: TToolButton
Left = 901 Left = 1008
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360#27969#31243#21345 Caption = #25171#21360#27969#31243#21345
ImageIndex = 21 ImageIndex = 21
Wrap = True
OnClick = btn1Click OnClick = btn1Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 1008 Left = 0
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = ' '#26032#22686#27969#31243#21345 Caption = ' '#26032#22686#27969#31243#21345
ImageIndex = 2 ImageIndex = 2
Wrap = True
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 0 Left = 113
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #26032#22686#25286#20998#21345 Caption = #26032#22686#25286#20998#21345
@ -147,7 +155,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
Left = 107 Left = 220
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #26032#22686#22238#20462#21345 Caption = #26032#22686#22238#20462#21345
@ -155,7 +163,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton10Click OnClick = ToolButton10Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 214 Left = 327
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20462#25913#27969#31243#21345 Caption = #20462#25913#27969#31243#21345
@ -163,7 +171,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 321 Left = 434
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #21024#38500#27969#31243#21345 Caption = #21024#38500#27969#31243#21345
@ -171,7 +179,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object TBEnd: TToolButton object TBEnd: TToolButton
Left = 428 Left = 541
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #32467#26463 Caption = #32467#26463
@ -179,7 +187,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBEndClick OnClick = TBEndClick
end end
object TBNoEnd: TToolButton object TBNoEnd: TToolButton
Left = 499 Left = 612
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #25764#38144#32467#26463 Caption = #25764#38144#32467#26463
@ -187,7 +195,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBNoEndClick OnClick = TBNoEndClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 594 Left = 707
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #26631#32418 Caption = #26631#32418
@ -195,7 +203,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 665 Left = 778
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #25764#38144#26631#32418 Caption = #25764#38144#26631#32418
@ -203,7 +211,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 760 Left = 873
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -211,7 +219,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 831 Left = 944
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -219,7 +227,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 926 Left = 1039
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -498,11 +506,17 @@ inherited frmKnitPlanList: TfrmKnitPlanList
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Header = DataLink_KnitPlan.Default Styles.Header = DataLink_KnitPlan.Default
object cxgrdbclmnTv1Column21: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Width = 50
end
object v1OrderNo: TcxGridDBColumn object v1OrderNo: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'

53
D01针织生产计划/U_KnitPlanList.pas
View File

@ -156,6 +156,8 @@ type
ToolButton10: TToolButton; ToolButton10: TToolButton;
cxgrdbclmnTv1Column19: TcxGridDBColumn; cxgrdbclmnTv1Column19: TcxGridDBColumn;
cxgrdbclmnTv1Column20: TcxGridDBColumn; cxgrdbclmnTv1Column20: TcxGridDBColumn;
cxgrdbclmnTv1Column21: TcxGridDBColumn;
DYPrint: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
@ -199,6 +201,7 @@ type
procedure ToolButton9Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject); procedure ToolButton10Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure DYPrintClick(Sender: TObject);
private private
FInt, PFInt: Integer; FInt, PFInt: Integer;
procedure InitGrid(); procedure InitGrid();
@ -551,6 +554,56 @@ begin
end; end;
end; end;
procedure TfrmKnitPlanList.DYPrintClick(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('ûÓÐÑ¡ÔñÊý¾Ý!', 'Ìáʾ', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('MainId').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('MainId').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'ZZDYD';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmKnitPlanList.TBExportClick(Sender: TObject); procedure TfrmKnitPlanList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then

5
T03贸易布匹检验/U_TradeMachInsp.pas
View File

@ -970,7 +970,7 @@ begin
sql.Add(' left JOIN Trade_Cloth_Inspect_Rule E on C.MainId =E.RuleID '); sql.Add(' left JOIN Trade_Cloth_Inspect_Rule E on C.MainId =E.RuleID ');
// sql.Add(' INNER JOIN BS_Contract_Sub F on D.ConSID =F.ConSID '); // sql.Add(' INNER JOIN BS_Contract_Sub F on D.ConSID =F.ConSID ');
sql.Add(' where A.PCID = ''' + Trim(MBCIOID) + ''''); sql.Add(' where A.PCID = ''' + Trim(MBCIOID) + '''');
//ShowMessage(sql.Text); // ShowMessage(sql.Text);
Open; Open;
end; end;
@ -999,6 +999,7 @@ begin
FConSId := Trim(ADOTmp.fieldbyname('ConSId').AsString); FConSId := Trim(ADOTmp.fieldbyname('ConSId').AsString);
FConNo := Trim(ADOTmp.fieldbyname('ConNo').AsString); FConNo := Trim(ADOTmp.fieldbyname('ConNo').AsString);
FOrderNo := Trim(ADOTmp.fieldbyname('OrderNo').AsString); FOrderNo := Trim(ADOTmp.fieldbyname('OrderNo').AsString);
FCUSTNAME := Trim(ADOTmp.fieldbyname('CUSTNAME').AsString);
FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString); FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString);
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString); FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
FPCId := Trim(ADOTmp.fieldbyname('PCID').AsString); FPCId := Trim(ADOTmp.fieldbyname('PCID').AsString);
@ -1015,7 +1016,7 @@ begin
FC_Width := Trim(ADOTmp.fieldbyname('C_Width').AsString); FC_Width := Trim(ADOTmp.fieldbyname('C_Width').AsString);
FC_GramWeight := Trim(ADOTmp.fieldbyname('C_GramWeight').AsString); FC_GramWeight := Trim(ADOTmp.fieldbyname('C_GramWeight').AsString);
FRulePieceNo := Trim(ADOTmp.fieldbyname('RulePieceNo').AsString); //¾íºÅÉú³É¹æÔò FRulePieceNo := Trim(ADOTmp.fieldbyname('RulePieceNo').AsString); //¾íºÅÉú³É¹æÔò
FYWY := Trim(ADOTmp.fieldbyname('YWY').AsString); //业务员 FYWY := Trim(ADOTmp.fieldbyname('Saleser').AsString); //业务员
if FRulePieceNo = 'ÊÖ¶¯Éú³É' then if FRulePieceNo = 'ÊÖ¶¯Éú³É' then