LZC/D10gmBitao
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

111

Browse Source
This commit is contained in:
“username” 2025-04-15 20:16:06 +08:00
parent 630f9184a2
commit cebba7d3b2
47 changed files with 719 additions and 366 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -98,6 +98,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@ -126,6 +127,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
object Tv1Column1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSEL'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
@ -135,6 +137,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Tag = 2
Caption = #21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
@ -142,6 +145,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
object v1Column18: TcxGridDBColumn
Caption = #37319#36141#21152#24037#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -159,6 +163,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Tag = 2
Caption = #21697#29260
DataBinding.FieldName = 'SXPinPai'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -175,6 +180,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 101
@ -183,6 +189,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
@ -192,6 +199,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Tag = 2
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -202,6 +210,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Tag = 2
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96
@ -210,6 +219,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Tag = 2
Caption = #36816#36153
DataBinding.FieldName = 'YunFei'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -219,6 +229,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
@ -227,6 +238,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Tag = 2
Caption = 'D'#25968
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
@ -235,6 +247,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 118

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

@ -11,7 +11,7 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit,
cxCheckBox, Vcl.Menus;
cxCheckBox, Vcl.Menus, dxScrollbarAnnotations;
type
TfrmYarnInfoSel = class(TfrmBaseHelp)

9
B02基础纱线仓库/U_DataLink.dfm
View File

@ -1,9 +1,10 @@
object DataLink_YarnStk: TDataLink_YarnStk
OldCreateOrder = False
OnCreate = DataModuleCreate
inherited DataLink_YarnStk: TDataLink_YarnStk
OnDestroy = DataModuleDestroy
Height = 349
Width = 482
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
end
object AdoDataLink: TADOQuery
Connection = ADOLink
Parameters = <>
@ -10426,6 +10427,8 @@ object DataLink_YarnStk: TDataLink_YarnStk
object ThreeLookAndFeelCol: TcxLookAndFeelController
Kind = lfStandard
NativeStyle = False
ScrollbarMode = sbmHybrid
SkinName = 'WXI'
Left = 253
Top = 12
end

7
B02基础纱线仓库/U_DataLink.pas
View File

@ -5,7 +5,8 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
dxSkinsCore, dxSkinsDefaultPainters, System.ImageList;
dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, U_BaseDataLink, dxCore,
cxLocalization, cxImageList, cxGraphics, dxSkinsForm;
type
TMyThread = class(TThread)
@ -37,7 +38,7 @@ var
UserDataFlag: string;
type
TDataLink_YarnStk = class(TDataModule)
TDataLink_YarnStk = class(TBaseDataLink)
AdoDataLink: TADOQuery;
ADOLink: TADOConnection;
ThreeImgList: TImageList;
@ -109,6 +110,7 @@ end;
procedure TDataLink_YarnStk.DataModuleDestroy(Sender: TObject);
begin
inherited;
CriticalSection.Free;
DataLink_YarnStk := nil;
end;
@ -120,6 +122,7 @@ end;
procedure TDataLink_YarnStk.DataModuleCreate(Sender: TObject);
begin
inherited;
CriticalSection := TCriticalSection.Create;
end;

17
B02基础纱线仓库/U_YarnInList.dfm
View File

@ -16,7 +16,7 @@ inherited frmYarnInList: TfrmYarnInList
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonWidth = 103
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
@ -79,16 +79,23 @@ inherited frmYarnInList: TfrmYarnInList
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton1: TToolButton
object btn1: TToolButton
Left = 426
Top = 0
Caption = #25171#21360#20837#24211#21333
ImageIndex = 21
OnClick = btn1Click
end
object ToolButton1: TToolButton
Left = 529
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 521
Left = 624
Top = 0
AutoSize = True
Caption = #20851#38381
@ -548,8 +555,8 @@ inherited frmYarnInList: TfrmYarnInList
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 1056
Top = 152
Left = 1026
Top = 220
end
object RM1: TRMGridReport
ThreadPrepareReport = True

25
B02基础纱线仓库/U_YarnInList.pas
View File

@ -82,6 +82,7 @@ type
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
btn1: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -100,6 +101,7 @@ type
procedure FromCoNameChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
canshu1, FStkName, canshu3: string;
procedure InitGrid();
@ -113,7 +115,7 @@ type
implementation
uses
U_DataLink, U_RTFun, U_YarnInEdit;
U_DataLink, U_RTFun, U_YarnInEdit, U_LabelPrint;
{$R *.dfm}
procedure TfrmYarnInList.setStatus();
@ -369,6 +371,27 @@ begin
end;
end;
procedure TfrmYarnInList.btn1Click(Sender: TObject);
begin
if CDS_Main.IsEmpty then
Exit;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'YarnStoragePrint';
FFiltration1 := QuotedStr(Trim(self.CDS_Main.fieldbyname('BYIOID').AsString));
CheckBox1.Checked := True;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmYarnInList.BYIOIDChange(Sender: TObject);
begin
if Length(Trim(BYIOID.Text)) < 4 then

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

@ -892,7 +892,7 @@ begin
sql.Add(',@Operation=''³·ÏúÈ¡Ïû'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
ShowMessage(sql.Text);
//ShowMessage(sql.Text);
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then

2
B02基础纱线仓库/U_YarnPurchasePlanPut.dfm
View File

@ -95,6 +95,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
AutoSize = True
Caption = #35745#21010#21333
ImageIndex = 12
Visible = False
OnClick = ToolButton1Click
end
object ToolButton5: TToolButton
@ -193,6 +194,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'orderno'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78

7
B02基础纱线仓库/U_YarnPurchasePlanPut.pas
View File

@ -98,7 +98,6 @@ type
private
FLeft, FTop: Integer;
fuserName, Fstatus: string;
procedure JSMoney();
procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
@ -676,10 +675,10 @@ procedure TfrmYarnPurchasePlanPut.ToolButton2Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
Exit;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
while Order_Sub.Locate('SSel', True, []) do
begin
if Application.MessageBox('确定要删除勾选数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
// with ADOTemp do
// begin
// Close;
@ -773,7 +772,7 @@ begin
FieldByName('SSEL').Value := False;
FieldByName('SerialNo').Value := i;
FieldByName('PurSId').Value := maxno + INTTOSTR(i);
FieldByName('Y_Code').value := CDS_1.fieldbyname('Y_Code').value;
FieldByName('Brand').Value := CDS_1.fieldbyname('Brand').value;
FieldByName('Y_Name').Value := CDS_1.fieldbyname('Y_Name').value;
FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value;

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

@ -36,7 +36,8 @@ uses
U_YarnStkTotalList in 'U_YarnStkTotalList.pas' {frmYarnTotalStkList},
U_YarnInfoSel in '..\A00通用窗体\U_YarnInfoSel.pas' {frmYarnInfoSel},
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
{$R *.res}

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

@ -226,6 +226,11 @@
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
<Form>BaseDataLink</Form>
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

31
B02基础纱线仓库/YarnStk.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.172,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.792,=D:\Dp10Repo\项目代码\共佳\A00通用窗体\U_YarnInfoSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.172,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.146,D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_PlanYarnSel.pas=D:\Dp10Repo\项目代码\共佳\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.311,D:\Dp10Repo\项目代码\阔禾\B02基础纱线仓库\U_YarnStkTotalList.dfm=D:\Dp10Repo\项目代码\阔禾\B02基础纱线仓库\U_YarnStkList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.146,D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_PlanYarnSel.dfm=D:\Dp10Repo\项目代码\共佳\A00通用窗体\U_YarnInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.581,=D:\Dp10Repo\项目代码\阔和\B02基础纱线仓库\U_YarnRackList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.311,D:\Dp10Repo\项目代码\阔禾\B02基础纱线仓库\U_YarnStkTotalList.pas=D:\Dp10Repo\项目代码\阔禾\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -77,7 +78,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/>
<File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@ -107,6 +108,8 @@
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.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
B02基础纱线仓库/YarnStk.identcache
View File

Binary file not shown.

2
D01针织生产计划/KnitPlan.dproj
View File

@ -124,7 +124,7 @@
</PropertyGroup>
<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>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\testDll.exe</Debugger_HostApplication>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">

50
D01针织生产计划/KnitPlan.dproj.local
View File

@ -1,52 +1,52 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.938,=D:\Dp10Repo\项目代码\D10gmXinHua\D01针织生产计划\U_LCKInput.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.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.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.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.898,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_LCKQuery.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.913,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,=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.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.dfm=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.756,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas=D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.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.227,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelAdd.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.830,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_PlanCardOFF.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.175,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_KnitPlanCard.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.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.pas=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.914,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_testdll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.383,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.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:\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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.pas=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.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.030,D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.dfm=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.dfm</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.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.pas=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.dfm=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.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.030,D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.dfm=D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.913,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_TradeInspSet.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.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj</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.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -77,7 +77,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/>
<File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

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

@ -3,21 +3,35 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Top = 14
Caption = #36710#38388#29983#20135#35745#21010#21333#24405#20837
ClientHeight = 658
ClientWidth = 1263
ClientWidth = 1229
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
Position = poScreenCenter
ExplicitWidth = 1279
ExplicitTop = -10
ExplicitWidth = 1245
ExplicitHeight = 697
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
object lbl4: TLabel [0]
Left = 570
Top = 325
Width = 112
Height = 21
Caption = #21518' '#22788' '#29702#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object ToolBar1: TToolBar [1]
Tag = 1
Left = 0
Top = 0
Width = 1263
Width = 1229
Height = 38
AutoSize = True
ButtonHeight = 38
@ -36,6 +50,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 1263
object TBSave: TToolButton
Left = 0
Top = 0
@ -67,11 +82,11 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
OnClick = btn1Click
end
end
object ScrollBox1: TScrollBox [1]
object ScrollBox1: TScrollBox [2]
Left = 0
Top = 38
Width = 1263
Height = 547
Width = 1229
Height = 574
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@ -217,9 +232,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object Label16: TLabel
Left = 9
Top = 456
Top = 483
Width = 114
Height = 21
Height = 20
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -242,10 +257,10 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False
end
object Label27: TLabel
Left = 1105
Top = 430
Left = 1106
Top = 470
Width = 24
Height = 21
Height = 20
Caption = 'KG'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -256,10 +271,10 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Visible = False
end
object Label28: TLabel
Left = 974
Top = 430
Left = 975
Top = 470
Width = 66
Height = 21
Height = 20
Caption = #30382#37325#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -297,9 +312,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object Label54: TLabel
Left = 562
Top = 317
Top = 310
Width = 112
Height = 21
Height = 20
Caption = #21518' '#22788' '#29702#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -375,9 +390,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object Label9: TLabel
Left = 9
Top = 317
Top = 310
Width = 114
Height = 21
Height = 20
Caption = #39068' '#33394#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -388,9 +403,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object Label10: TLabel
Left = 850
Top = 317
Top = 310
Width = 110
Height = 21
Height = 20
Caption = #32986#24067#35201#27714#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -401,9 +416,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object Label11: TLabel
Left = 270
Top = 315
Top = 308
Width = 114
Height = 21
Height = 20
Caption = #25104' '#20998#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -427,9 +442,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object Label17: TLabel
Left = 9
Top = 362
Top = 355
Width = 114
Height = 21
Height = 20
Caption = #25552' '#33457#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -439,10 +454,10 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False
end
object Label19: TLabel
Left = 270
Top = 362
Left = 9
Top = 400
Width = 114
Height = 21
Height = 20
Caption = #38754' '#32433#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -453,9 +468,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object Label20: TLabel
Left = 564
Top = 362
Top = 355
Width = 112
Height = 21
Height = 20
Caption = #20844' '#26020' '#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -479,9 +494,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object lbl3: TLabel
Left = 851
Top = 360
Top = 353
Width = 110
Height = 21
Height = 20
Caption = #33394#19997#27604#20363#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -492,9 +507,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object Label21: TLabel
Left = 9
Top = 407
Top = 438
Width = 114
Height = 21
Height = 20
Caption = #24213' '#32433#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -504,10 +519,10 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False
end
object Label23: TLabel
Left = 270
Top = 407
Left = 562
Top = 400
Width = 114
Height = 21
Height = 20
Caption = #22841' '#23618#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
@ -529,6 +544,19 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = [fsBold]
ParentFont = False
end
object lbl5: TLabel
Left = 562
Top = 264
Width = 112
Height = 21
Caption = #29289' '#26009' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrdDate: TDateTimePicker
Left = 957
Top = 4
@ -587,7 +615,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Left = 114
Top = 261
Width = 150
Height = 27
Height = 30
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
@ -602,8 +630,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Tag = 2
Left = 389
Top = 261
Width = 150
Height = 27
Width = 101
Height = 30
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
@ -617,9 +645,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object OrdTare: TEdit
Tag = 2
Left = 1030
Top = 428
Top = 468
Width = 60
Height = 27
Height = 26
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
@ -758,7 +786,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_Deal: TBtnEditC
Tag = 2
Left = 665
Top = 313
Top = 306
Width = 180
Height = 30
Hint = 'C_Deal/'#21518#22788#29702
@ -829,7 +857,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Left = 958
Top = 261
Width = 180
Height = 27
Height = 30
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
@ -843,7 +871,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_Color: TBtnEditC
Tag = 2
Left = 114
Top = 313
Top = 306
Width = 150
Height = 30
Hint = 'CYYS/'#39068#33394
@ -860,7 +888,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_KnitNote: TBtnEditC
Tag = 2
Left = 958
Top = 313
Top = 306
Width = 180
Height = 30
Hint = 'C_KnitNote/'#32986#24067#35201#27714
@ -877,7 +905,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_Composition: TBtnEditC
Tag = 2
Left = 390
Top = 313
Top = 306
Width = 150
Height = 30
Hint = 'CYCF/'#25104#20998
@ -909,8 +937,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_Figure: TBtnEditC
Tag = 2
Left = 114
Top = 358
Width = 150
Top = 351
Width = 426
Height = 30
Hint = 'C_Figure/'#25552#33457
Font.Charset = GB2312_CHARSET
@ -925,9 +953,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object C_Yarn: TBtnEditC
Tag = 2
Left = 390
Top = 358
Width = 150
Left = 114
Top = 396
Width = 426
Height = 30
Hint = 'C_Yarn/'#38754#32433
Font.Charset = GB2312_CHARSET
@ -943,9 +971,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object KGQty: TEdit
Tag = 2
Left = 665
Top = 359
Top = 352
Width = 180
Height = 27
Height = 30
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
@ -989,9 +1017,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object OrdSNote: TRichEdit
Tag = 2
Left = 114
Top = 447
Top = 474
Width = 809
Height = 66
Height = 65
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
@ -1005,7 +1033,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object SSBL: TBtnEditC
Tag = 2
Left = 959
Top = 356
Top = 349
Width = 180
Height = 30
Hint = 'SSBL/'#33394#19997#27604#20363
@ -1021,8 +1049,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object OrdUnit: TComboBox
Tag = 2
Left = 548
Top = 259
Left = 492
Top = 260
Width = 61
Height = 29
Font.Charset = GB2312_CHARSET
@ -1043,8 +1071,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_DYARN: TBtnEditC
Tag = 2
Left = 114
Top = 403
Width = 150
Top = 434
Width = 426
Height = 30
Hint = 'C_DYARN/'#24213#32433
Font.Charset = GB2312_CHARSET
@ -1059,9 +1087,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object C_jiaceng: TBtnEditC
Tag = 2
Left = 390
Top = 403
Width = 150
Left = 665
Top = 396
Width = 474
Height = 30
Hint = 'C_jiaceng/'#22841#23618
Font.Charset = GB2312_CHARSET
@ -1088,20 +1116,40 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
TabOrder = 33
OnKeyPress = ConNoKeyPress
end
object C_Material_Name: TBtnEditC
Tag = 2
Left = 665
Top = 261
Width = 180
Height = 30
Hint = 'C_Material_Name/'#29289#26009#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 34
OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
end
object Panel2: TPanel [2]
object Panel2: TPanel [3]
Left = 0
Top = 585
Width = 1263
Height = 73
Top = 612
Width = 1229
Height = 46
Align = alClient
TabOrder = 2
Visible = False
ExplicitTop = 585
ExplicitWidth = 1263
ExplicitHeight = 73
object cxPageControl1: TcxPageControl
Left = 1
Top = 1
Width = 1261
Height = 71
Width = 1227
Height = 44
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -1116,18 +1164,22 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 71
ClientRectRight = 1261
ExplicitWidth = 1261
ExplicitHeight = 71
ClientRectBottom = 44
ClientRectRight = 1227
ClientRectTop = 32
object cxTabSheet1: TcxTabSheet
Caption = ' '#37197' '#27604' '
Color = clWhite
ImageIndex = 0
ParentColor = False
ExplicitWidth = 1261
ExplicitHeight = 39
object cxGrid2: TcxGrid
Left = 0
Top = 38
Width = 1261
Width = 1227
Height = 1
Align = alClient
Font.Charset = GB2312_CHARSET
@ -1137,6 +1189,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitWidth = 1261
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1327,7 +1380,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Tag = 1
Left = 0
Top = 0
Width = 1261
Width = 1227
Height = 38
AutoSize = True
ButtonHeight = 38
@ -1348,6 +1401,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
ParentFont = False
ShowCaptions = True
TabOrder = 1
ExplicitWidth = 1261
object ToolButton3: TToolButton
Left = 0
Top = 0
@ -1377,13 +1431,11 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxTabSheet2: TcxTabSheet
Caption = #25490#38024#19977#35282
ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
ExplicitHeight = 39
object Panel1: TPanel
Left = 0
Top = 183
Width = 1261
Width = 1227
Height = 25
Align = alTop
BevelInner = bvRaised
@ -1401,7 +1453,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object Panel3: TPanel
Left = 0
Top = 0
Width = 1261
Width = 1227
Height = 25
Align = alTop
BevelInner = bvRaised
@ -1419,7 +1471,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGrid5: TcxGrid
Left = 0
Top = 208
Width = 1261
Width = 1227
Height = 165
Align = alClient
Font.Charset = GB2312_CHARSET
@ -2701,7 +2753,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGrid3: TcxGrid
Left = 0
Top = 25
Width = 1261
Width = 1227
Height = 158
Align = alTop
Font.Charset = GB2312_CHARSET
@ -3846,19 +3898,19 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Connection = DataLink_KnitPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 426
Top = 473
Left = 437
Top = 544
end
object DataSource2: TDataSource
DataSet = CDS_YuanLiao
Left = 328
Top = 472
Left = 342
Top = 524
end
object CDS_YuanLiao: TClientDataSet
Aggregates = <>
Params = <>
Left = 479
Top = 474
Left = 509
Top = 547
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_KnitPlan.ADOLink
@ -3874,8 +3926,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object DataSource3: TDataSource
DataSet = ClientDataSet3
Left = 376
Top = 472
Left = 383
Top = 523
end
object ClientDataSet3: TClientDataSet
Aggregates = <>
@ -3885,12 +3937,12 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object DataSource5: TDataSource
DataSet = ClientDataSet5
Left = 288
Top = 472
Left = 280
Top = 520
end
object PM_3: TPopupMenu
Left = 185
Top = 477
Left = 129
Top = 533
object N1: TMenuItem
Caption = #22686#34892
OnClick = N1Click
@ -3901,8 +3953,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
end
object PM_5: TPopupMenu
Left = 233
Top = 477
Left = 168
Top = 528
object MenuItem1: TMenuItem
Caption = #22686#34892
OnClick = MenuItem1Click

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

@ -385,6 +385,9 @@ type
C_jiaceng: TBtnEditC;
Label24: TLabel;
khconno: TEdit;
lbl4: TLabel;
lbl5: TLabel;
C_Material_Name: TBtnEditC;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);

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

@ -3,9 +3,9 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Top = 194
Caption = #36710#38388#29983#20135#35745#21010#21333
ClientHeight = 778
ClientWidth = 1935
ClientWidth = 1924
Position = poScreenCenter
ExplicitWidth = 1951
ExplicitWidth = 1940
ExplicitHeight = 817
PixelsPerInch = 96
TextHeight = 12
@ -13,7 +13,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Tag = 1
Left = 0
Top = 0
Width = 1935
Width = 1924
Height = 76
AutoSize = True
ButtonHeight = 38
@ -230,7 +230,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
object Panel1: TPanel [1]
Left = 0
Top = 76
Width = 1935
Width = 1924
Height = 67
Align = alTop
BevelInner = bvRaised
@ -238,7 +238,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitWidth = 1540
object Label1: TLabel
Left = 18
Top = 13
@ -402,12 +401,10 @@ inherited frmKnitPlanList: TfrmKnitPlanList
object cxGrid1: TcxGrid [2]
Left = 0
Top = 171
Width = 1935
Width = 1924
Height = 374
Align = alClient
TabOrder = 2
ExplicitWidth = 1540
ExplicitHeight = 294
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -798,6 +795,14 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column19: TcxGridDBColumn
Caption = #29289#26009#21495
DataBinding.FieldName = 'C_Material_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -806,7 +811,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 143
Width = 1935
Width = 1924
Height = 28
Align = alTop
Font.Charset = GB2312_CHARSET
@ -825,9 +830,8 @@ inherited frmKnitPlanList: TfrmKnitPlanList
#24050#32467#26463
#20840#37096)
OnChange = cxTabControl1Change
ExplicitWidth = 1540
ClientRectBottom = 30
ClientRectRight = 1935
ClientRectRight = 1924
ClientRectTop = 30
end
object Panel2: TPanel [4]
@ -975,13 +979,11 @@ inherited frmKnitPlanList: TfrmKnitPlanList
object cxGrid3: TcxGrid [5]
Left = 0
Top = 545
Width = 1935
Width = 1924
Height = 233
Align = alBottom
PopupMenu = PopupMenu1
TabOrder = 5
ExplicitLeft = 29
ExplicitWidth = 1552
object Tv3: TcxGridDBTableView
PopupMenu = PopupMenu1
Navigator.Buttons.CustomButtons = <>

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

@ -154,6 +154,7 @@ type
ToolButton9: TToolButton;
Tv1Column18: TcxGridDBColumn;
ToolButton10: TToolButton;
cxgrdbclmnTv1Column19: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);

5
D01针织生产计划/U_LCKInput.dfm
View File

@ -78,7 +78,6 @@ object frmLCKInput: TfrmLCKInput
ParentCtl3D = False
ParentFont = False
TabOrder = 1
ExplicitHeight = 652
object Label2: TLabel
Left = 23
Top = 33
@ -686,10 +685,6 @@ object frmLCKInput: TfrmLCKInput
Font.Style = []
ParentFont = False
TabOrder = 1
ExplicitLeft = 0
ExplicitTop = 391
ExplicitWidth = 1376
ExplicitHeight = 406
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

1
D01针织生产计划/U_LCKInput.pas
View File

@ -213,6 +213,7 @@ begin
C_Name.text := Trim(self.ADOQueryTemp.fieldbyname('C_Name').AsString);
HclNote.text := Trim(self.ADOQueryTemp.fieldbyname('C_Deal').AsString);
Note.Text := Trim(self.ADOQueryTemp.fieldbyname('OrdSNote').AsString);
PBKC.Text := FPBKC;
with ADOQueryTemp do
begin

18
D02针织坯布检验/KnitInsp.dproj.local
View File

@ -7,20 +7,20 @@
<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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.617,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.506,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\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.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.925,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
@ -28,17 +28,17 @@
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.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.617,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -69,7 +69,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/>
<File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

24
D02针织坯布检验/KnitInspLogin.dproj.local
View File

@ -29,24 +29,24 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/>
<File Path="delphitwain"/>
<File Path="delphitwain\DelphiTwain.pas"/>
<File Path="delphitwain\DelphiTwainUtils.pas"/>
<File Path="delphitwain\Twain.pas"/>
<File Path="AES.pas"/>
<File Path="ElAES.pas"/>
<File Path="JDAESExtend.pas"/>
<File Path="logon.pas"/>
<File Path="logon.dfm"/>
<File Path="spmain.pas"/>
<File Path="spmain.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="U_Link.pas"/>
<File Path="U_Link.dfm"/>
<File Path="delphitwain"/>
<File Path="delphitwain\DelphiTwain.pas"/>
<File Path="delphitwain\DelphiTwainUtils.pas"/>
<File Path="delphitwain\Twain.pas"/>
<File Path="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/>
<File Path="AES.pas"/>
<File Path="ElAES.pas"/>
<File Path="U_upPassword.pas"/>
<File Path="U_upPassword.dfm"/>
<File Path="U_Link.pas"/>
<File Path="U_Link.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="JDAESExtend.pas"/>
</ProjectSortOrder>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.552,D:\Dp10Repo\项目代码\东亚\D02针织坯布检验\KnitInspLogin.dproj=D:\Dp10Repo\项目代码\东亚\D02针织坯布检验\DyeInspLogin.dproj</Transaction>

41
D02针织坯布检验/U_KnitClothInspList.dfm
View File

@ -127,10 +127,10 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
ParentFont = False
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 136
object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
@ -204,6 +204,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column22: TcxGridDBColumn
Caption = #36873#20013
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@ -214,6 +215,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column21: TcxGridDBColumn
Caption = #25171#30721#26102#38388
DataBinding.FieldName = 'FillTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -221,6 +223,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column32: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'conNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -228,6 +231,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -235,6 +239,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -242,6 +247,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -249,6 +255,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -256,6 +263,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object Tv1Column6: TcxGridDBColumn
Caption = #22383#24067#20811#37325
DataBinding.FieldName = 'C_KnitGramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -263,6 +271,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column5: TcxGridDBColumn
Caption = #25104#21697#20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -270,6 +279,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object Tv1Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -277,6 +287,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object Tv1Column5: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -284,6 +295,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object Tv1Column8: TcxGridDBColumn
Caption = #25552#33457
DataBinding.FieldName = 'C_Figure'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -291,6 +303,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object Tv1Column9: TcxGridDBColumn
Caption = #38754#32433
DataBinding.FieldName = 'C_Yarn'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -298,6 +311,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object Tv1Column7: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -305,6 +319,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column7: TcxGridDBColumn
Caption = #30133#28857#24773#20917
DataBinding.FieldName = 'FlawList'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -312,6 +327,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column17: TcxGridDBColumn
Caption = #29366#24577
DataBinding.FieldName = 'CIIOFlag'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -319,6 +335,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object Tv1Column1: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'Loom'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -326,6 +343,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column23: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -333,6 +351,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column18: TcxGridDBColumn
Caption = #24067#31080#21495
DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -340,6 +359,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -348,6 +368,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column27: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -356,6 +377,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column28: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -364,6 +386,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column10: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -371,6 +394,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -378,6 +402,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object Tv1Column2: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'LenUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -385,6 +410,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column20: TcxGridDBColumn
Caption = #25171#30721#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -392,6 +418,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column14: TcxGridDBColumn
Caption = #25187#20998
DataBinding.FieldName = 'KouFenQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
@ -400,6 +427,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column12: TcxGridDBColumn
Caption = #21697#36136
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -407,6 +435,7 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
object v1Column42: TcxGridDBColumn
Caption = #24635#35760#24405#25968
DataBinding.FieldName = 'TotalCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -800,8 +829,16 @@ inherited frmKnitClothInspList: TfrmKnitClothInspList
Left = 748
Top = 324
object N1: TMenuItem
Caption = #22797#21046
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046
OnClick = N3Click
end
end
end

18
D02针织坯布检验/U_KnitClothInspList.pas
View File

@ -13,7 +13,8 @@ uses
cxContainer, cxCurrencyEdit, BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic,
RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker;
dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker,
dxScrollbarAnnotations;
type
TfrmKnitClothInspList = class(TfrmBaseList)
@ -95,6 +96,8 @@ type
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
N2: TMenuItem;
N3: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -121,6 +124,8 @@ type
procedure TBExportClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
DQdate: TDateTime;
FLeft, FTop: Integer;
@ -538,8 +543,17 @@ end;
procedure TfrmKnitClothInspList.N1Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
SelOKNo(Order_Main, true);
end;
procedure TfrmKnitClothInspList.N2Click(Sender: TObject);
begin
SelOKNo(Order_Main, false);
end;
procedure TfrmKnitClothInspList.N3Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmKnitClothInspList.RKOrdIDKeyPress(Sender: TObject; var Key: Char);

38
F01染色坯布仓库/DyeGreyClothStk.dproj.local
View File

@ -1,46 +1,46 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.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.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.865,=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.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.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.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.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.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.619,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=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.619,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -71,7 +71,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/>
<File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

BIN
F01染色坯布仓库/DyeGreyClothStk.identcache
View File

Binary file not shown.

63
F01染色坯布仓库/U_DyeGreyClothOutList.dfm
View File

@ -336,9 +336,10 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Width = 1193
Height = 447
Align = alClient
PopupMenu = PopupMenu1
PopupMenu = PM_1
TabOrder = 2
ExplicitLeft = 1
ExplicitLeft = -26
ExplicitTop = 115
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -706,27 +707,27 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
object ADOQueryCmd: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
Parameters = <>
Left = 984
Top = 152
Left = 964
Top = 134
end
object ADOQueryMain: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1048
Top = 168
Left = 1020
Top = 178
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1016
Top = 160
Left = 956
Top = 218
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 920
Top = 152
Left = 864
Top = 164
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2
@ -737,8 +738,8 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 952
Top = 152
Left = 923
Top = 166
end
object RM1: TRMGridReport
ThreadPrepareReport = True
@ -756,15 +757,15 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 360
Top = 232
Left = 339
Top = 282
ReportData = {}
end
object RMDBMain: TRMDBDataSet
Visible = True
DataSet = CDS_PRT
Left = 424
Top = 232
Left = 453
Top = 186
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
@ -777,37 +778,41 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 392
Top = 232
Left = 401
Top = 275
end
object RMDBHZ: TRMDBDataSet
Visible = True
DataSet = CDS_HZ
Left = 296
Top = 232
Left = 265
Top = 259
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 488
Top = 232
Left = 510
Top = 230
end
object CDS_PRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 456
Top = 232
Left = 492
Top = 294
end
object PopupMenu1: TPopupMenu
Left = 328
Top = 233
object N1: TMenuItem
object PM_1: TPopupMenu
Left = 561
Top = 343
object MenuItem1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
object MenuItem2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046
OnClick = N3Click
end
end
end

15
F01染色坯布仓库/U_DyeGreyClothOutList.pas
View File

@ -12,7 +12,7 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,Clipbrd,
dxScrollbarAnnotations;
type
@ -40,9 +40,6 @@ type
CDS_HZ: TClientDataSet;
CDS_PRT: TClientDataSet;
TBDel: TToolButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
TBAdd: TToolButton;
TBEdit: TToolButton;
cxGrid2: TcxGrid;
@ -105,6 +102,10 @@ type
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
PM_1: TPopupMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
N3: TMenuItem;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -125,6 +126,7 @@ type
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
canshu1, canshu2, FWorkshop: string;
procedure InitGrid();
@ -327,6 +329,11 @@ begin
SelOKNo(CDS_Main, False);
end;
procedure TfrmDyeGreyClothOutList.N3Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmDyeGreyClothOutList.TBDelClick(Sender: TObject);
var
MBCIOID: string;

14
F04染色刷卡/DyeProcess.dproj.local
View File

@ -1,17 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.882,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj</Transaction>
@ -19,7 +20,6 @@
<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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>2025-04-09 23:36:47.882,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -50,7 +50,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/>
<File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_CompanySel.pas"/>
<File Path="..\A00通用窗体\U_CompanySel.dfm"/>

BIN
F04染色刷卡/DyeProcess.identcache
View File

Binary file not shown.

8
F04染色刷卡/InformationBase.dproj.local
View File

@ -3,17 +3,17 @@
<Transactions>
<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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
@ -45,7 +45,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\众华"/>
<File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_CompanySel.pas"/>
<File Path="..\A00通用窗体\U_CompanySel.dfm"/>

BIN
F04染色刷卡/InformationBase.identcache
View File

Binary file not shown.

93
F04染色刷卡/U_DyeOutput.dfm
View File

@ -76,8 +76,6 @@ inherited frmDyeOutput: TfrmDyeOutput
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
ExplicitLeft = 3
ExplicitTop = 72
object Label2: TLabel
Left = 48
Top = 20
@ -185,9 +183,9 @@ inherited frmDyeOutput: TfrmDyeOutput
object Label13: TLabel
Left = 517
Top = 148
Width = 85
Width = 84
Height = 20
Caption = #24635' '#21305' '#25968
Caption = #35745#21010#25968#37327
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -20
@ -196,8 +194,8 @@ inherited frmDyeOutput: TfrmDyeOutput
ParentFont = False
end
object Label14: TLabel
Left = 563
Top = 261
Left = 489
Top = 260
Width = 42
Height = 20
Caption = #21305#25968
@ -234,6 +232,32 @@ inherited frmDyeOutput: TfrmDyeOutput
Font.Style = [fsBold]
ParentFont = False
end
object lbl1: TLabel
Left = 517
Top = 191
Width = 84
Height = 20
Caption = #23454#38469#25968#37327
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lbl2: TLabel
Left = 688
Top = 260
Width = 42
Height = 20
Caption = #36710#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object LCKID: TcxTextEdit
Tag = 2
Left = 138
@ -375,11 +399,11 @@ inherited frmDyeOutput: TfrmDyeOutput
Style.IsFontAssigned = True
TabOrder = 8
OnClick = GlideRateClick
Width = 97
Width = 182
end
object rollnum: TcxTextEdit
Left = 611
Top = 249
Left = 537
Top = 248
ParentFont = False
Style.BorderStyle = ebsSingle
Style.Font.Charset = GB2312_CHARSET
@ -422,6 +446,38 @@ inherited frmDyeOutput: TfrmDyeOutput
TabOrder = 11
OnClick = Edit17Click
end
object OutNumber: TcxTextEdit
Tag = 2
Left = 609
Top = 183
Enabled = False
ParentFont = False
Style.BorderStyle = ebsSingle
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -29
Style.Font.Name = #23435#20307
Style.Font.Style = [fsBold]
Style.IsFontAssigned = True
TabOrder = 12
OnClick = GlideRateClick
Width = 182
end
object MachineNo: TcxTextEdit
Left = 736
Top = 248
ParentFont = False
Style.BorderStyle = ebsSingle
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -29
Style.Font.Name = #23435#20307
Style.Font.Style = [fsBold]
Style.IsFontAssigned = True
TabOrder = 13
OnClick = GlideRateClick
Width = 258
end
end
object Panel_JP: TPanel [2]
Left = 8
@ -774,7 +830,7 @@ inherited frmDyeOutput: TfrmDyeOutput
Top = 182
Width = 80
Height = 80
Caption = 'M'
Caption = ','
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
@ -822,15 +878,16 @@ inherited frmDyeOutput: TfrmDyeOutput
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_DyeProcess.ADOLink
Left = 1025
Top = 272
Left = 994
Top = 259
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_DyeProcess.ADOLink
Left = 1009
Top = 305
Left = 997
Top = 318
end
object ADOQuery1: TADOQuery
object ADOQueryCmd: TADOQuery
Connection = DataLink_DyeProcess.ADOLink
Parameters = <>
Left = 1012
Top = 380
@ -872,4 +929,10 @@ inherited frmDyeOutput: TfrmDyeOutput
Left = 569
Top = 379
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_DyeProcess.ADOLink
Parameters = <>
Left = 1105
Top = 369
end
end

120
F04染色刷卡/U_DyeOutput.pas
View File

@ -40,7 +40,7 @@ type
SpeedButton10: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton49: TSpeedButton;
ADOQuery1: TADOQuery;
ADOQueryCmd: TADOQuery;
ADO_Car: TADOQuery;
ADO_YG: TADOQuery;
ADO_Cmd: TADOQuery;
@ -77,6 +77,11 @@ type
tishi: TLabel;
Button1: TButton;
Timer1: TTimer;
lbl1: TLabel;
OutNumber: TcxTextEdit;
MachineNo: TcxTextEdit;
lbl2: TLabel;
ADOQueryTemp: TADOQuery;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
@ -183,10 +188,10 @@ begin
begin
close;
sql.Clear;
sql.Add(' select * from PB_LCK A INNER JOIN Knit_Plan_Sub B ON A.SUBID=B.SUBID ');
sql.Add(' select OutNumber=(select count(C.LCKID) OutNumber from PB_LCK C,PB_CK_LCK B where B.LCKID = C.LCKID and C.LCKID = A.LCKID),* from PB_LCK A INNER JOIN Knit_Plan_Sub B ON A.SUBID=B.SUBID ');
SQL.Add('INNER JOIN Knit_Plan_MAIN C ON A.MAINID=B.MAINID');
sql.Add('where LCKID=' + quotedstr(trim(fPCID)));
// showmessage(sql.Text);
// showmessage(sql.Text);
open;
end;
// if trim(ADO_Car.fieldbyname('ShowMsg').AsString) <> '' then
@ -198,8 +203,7 @@ begin
// end
// else
SInData(ADO_Car, Panel2, 2);
ROLLNUM.text := ADO_Car.FieldByName('KKPS').AsString;
ROLLNUM.text := ADO_Car.FieldByName('OutNumber').AsString;
Scan.text := '';
Scan.OnClick(Scan);
@ -417,6 +421,8 @@ begin
end;
procedure TfrmDyeOutput.SpeedButton14Click(Sender: TObject);
var
Maxno: string;
begin
try
@ -469,11 +475,11 @@ begin
exit;
end;
if StrToFloatDef(ROLLNUM.Text, 0) > StrToFloatDef(KKPS.Text, 0) then
if StrToFloatDef(ROLLNUM.Text, 0) > StrToFloatDef(OutNumber.Text, 0) then
begin
MovePanel1.Visible := true;
SpeedButton14.Enabled := True;
tishi.Caption := '登记匹数超过开卡匹数';
tishi.Caption := '登记匹数超过实际匹数';
Timer1.Enabled := true;
exit;
end;
@ -485,12 +491,14 @@ begin
// SpeedButton14.Enabled := True;
// Exit;
// end;
// if (CDS_GX.FieldByName('GlideNo').AsString = CDS_GX.FieldByName('maxGlideNo').AsString) and (StrToFloatDef(QTY.Text, 0) = 0) then
// begin
// Application.MessageBox('最后一道工序需输入重量！', '提示信息', 0);
// SpeedButton14.Enabled := True;
// Exit;
// end;
if (CDS_GX.FieldByName('GlideNo').AsString = CDS_GX.FieldByName('maxGlideNo').AsString) and (MachineNo.Text = '') then
begin
MovePanel1.Visible := true;
SpeedButton14.Enabled := True;
tishi.Caption := '请输入车号！';
Timer1.Enabled := true;
Exit;
end;
with ADO_Cmd do
begin
@ -513,12 +521,96 @@ begin
end;
FieldByName('Qty').Value := 0;
FieldByName('MachineNo').Value := trim(MachineNo.text);
FieldByName('RollNum').Value := trim(ROLLNUM.text);
FieldByName('Filler').Value := trim(DName);
Post;
end;
//定型工序提交完之后把库存数据自动出库
if CDS_GX.FieldByName('GlideNo').AsString = CDS_GX.FieldByName('maxGlideNo').AsString then
begin
if not GetLSNo(ADOQueryCmd, Maxno, 'PC', 'BS_Cloth_IO', 3, 1) then
raise Exception.Create('取染色坯布出库编号失败！');
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add(' select * from BS_Cloth_IO where IOFlag = ''入库'' and StkID = ' + quotedstr(trim(LCKID.text)));
// showmessage(sql.Text);
open;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add(' select * from BS_Cloth_IO where IOFlag = ''入库'' and StkID = ' + quotedstr(trim(LCKID.text)));
// showmessage(sql.Text);
open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('BCIOID').Value := Trim(Maxno);
FieldByName('STKName').Value := ADOQueryTemp.fieldbyname('STKName').Value;
FieldByName('Workshop').Value := ADOQueryTemp.fieldbyname('Workshop').Value;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('IOQtyFlag').Value := -1;
FieldByName('STKID').Value := ADOQueryTemp.fieldbyname('STKID').Value;
FieldByName('IOFlag').Value := '出库';
FieldByName('IOType').Value := '加工出库';
FieldByName('C_code').Value := ADOQueryTemp.fieldbyname('C_code').Value;
FieldByName('C_Name').Value := ADOQueryTemp.fieldbyname('C_Name').Value;
FieldByName('C_Composition').Value := ADOQueryTemp.fieldbyname('C_Composition').Value;
FieldByName('C_Spec').Value := ADOQueryTemp.fieldbyname('C_Spec').Value;
FieldByName('C_Width').Value := ADOQueryTemp.fieldbyname('C_Width').Value;
FieldByName('C_GramWeight').Value := ADOQueryTemp.fieldbyname('C_GramWeight').Value;
FieldByName('C_Color').Value := ADOQueryTemp.fieldbyname('C_Color').Value;
FieldByName('C_ColorNo').Value := ADOQueryTemp.fieldbyname('C_ColorNo').Value;
FieldByName('C_EColor').Value := ADOQueryTemp.fieldbyname('C_EColor').Value;
FieldByName('C_Pattern').Value := ADOQueryTemp.fieldbyname('C_Pattern').Value;
FieldByName('C_StyleNo').Value := ADOQueryTemp.fieldbyname('C_StyleNo').Value;
FieldByName('C_ColorDepth').Value := ADOQueryTemp.fieldbyname('C_ColorDepth').Value;
FieldByName('BatchNO').Value := ADOQueryTemp.fieldbyname('BatchNo').Value;
FieldByName('StkCoNo').Value := ADOQueryTemp.fieldbyname('StkCoNo').Value;
FieldByName('StkCoName').Value := ADOQueryTemp.fieldbyname('StkCoName').Value;
FieldByName('FromCoNo').Value := ADOQueryTemp.fieldbyname('FromCoNo').Value;
FieldByName('FromCoName').Value := ADOQueryTemp.fieldbyname('FromCoName').Value;
FieldByName('ToCoNo').Value := ADOQueryTemp.fieldbyname('ToCoNo').Value;
FieldByName('ToCoName').Value := ADOQueryTemp.fieldbyname('ToCoName').Value;
FieldByName('FromOrdNo').Value := ADOQueryTemp.fieldbyname('FromOrdNo').Value;
FieldByName('FromMainId').Value := ADOQueryTemp.fieldbyname('FromMainId').Value;
FieldByName('FromSubId').Value := ADOQueryTemp.fieldbyname('FromSubId').Value;
FieldByName('ToOrdNo').Value := ADOQueryTemp.fieldbyname('ToOrdNo').Value;
FieldByName('ToMainId').Value := ADOQueryTemp.fieldbyname('ToMainId').Value;
FieldByName('ToSubId').Value := ADOQueryTemp.fieldbyname('ToSubId').Value;
FieldByName('PieceWeight').Value := ADOQueryTemp.fieldbyname('PieceWeight').Value;
FieldByName('PieceLen').Value := ADOQueryTemp.fieldbyname('PieceLen').Value;
FieldByName('StkPosition').Value := ADOQueryTemp.fieldbyname('StkPosition').Value;
FieldByName('BZSpec').Value := ADOQueryTemp.fieldbyname('BZSpec').Value;
FieldByName('QtyUnit').Value := ADOQueryTemp.fieldbyname('QtyUnit').Value;
FieldByName('Qty').Value := ADOQueryTemp.fieldbyname('STKQTY').Value;
FieldByName('Piece').Value := RollNum.Text;
FieldByName('Filler').Value := Trim(DName);
FieldByName('C_XINHAO').Value := ADOQueryTemp.fieldbyname('C_XINHAO').Value;
FieldByName('C_GONGYI').Value := ADOQueryTemp.fieldbyname('C_GONGYI').Value;
FieldByName('C_JITAI').Value := ADOQueryTemp.fieldbyname('C_JITAI').Value;
FieldByName('C_ZHUANGKUANG').Value := ADOQueryTemp.fieldbyname('C_ZHUANGKUANG').Value;
FieldByName('C_JIAJI').Value := ADOQueryTemp.fieldbyname('C_JIAJI').Value;
FieldByName('JIAZINO').Value := MachineNo.Text;
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update BS_Cloth_IO Set StkPiece=(select Sum(isnull(Piece,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID)');
sql.Add(',STKQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID )');
sql.Add('where BCIOID=''' + Trim(ADOQueryTemp.fieldbyname('STKID').AsString) + '''');
ExecSQL;
end;
end;
////////////////// ¸üнø¶È //////////////////
// with ADO_Cmd do
// begin

12
T03贸易布匹检验/TradeInsp.dproj.local
View File

@ -7,8 +7,8 @@
<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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</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.136,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.108,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T03贸易布匹检验\U_LabelAdd.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.401,D:\Dp10Repo\项目代码\D10gmbitao\T03贸易布匹检验\U_TradePACKETPrint.pas=D:\Dp10Repo\项目代码\D10gmbitao\T03贸易布匹检验\U_TradeLabelPrint.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.901,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T03贸易布匹检验\U_LabSet.pas</Transaction>
@ -34,15 +34,15 @@
<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.401,D:\Dp10Repo\项目代码\D10gmbitao\T03贸易布匹检验\U_TradePACKETPrint.dfm=D:\Dp10Repo\项目代码\D10gmbitao\T03贸易布匹检验\U_TradeLabelPrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,=D:\Dp10Repo\项目代码\东亚\T03贸易布匹检验\U_TradeLabelPrint.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.136,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.641,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.401,D:\Dp10Repo\项目代码\D10gmbitao\T03贸易布匹检验\U_TradePACKETPrint.pas=D:\Dp10Repo\项目代码\D10gmbitao\T03贸易布匹检验\U_TradeLabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.108,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T03贸易布匹检验\U_LabelAdd.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.861,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T03贸易布匹检验\U_LabelInput.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -73,7 +73,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/>
<File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

24
T03贸易布匹检验/TradeInspLogin.dproj.local
View File

@ -29,24 +29,24 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/>
<File Path="delphitwain"/>
<File Path="delphitwain\DelphiTwain.pas"/>
<File Path="delphitwain\DelphiTwainUtils.pas"/>
<File Path="delphitwain\Twain.pas"/>
<File Path="AES.pas"/>
<File Path="ElAES.pas"/>
<File Path="JDAESExtend.pas"/>
<File Path="logon.pas"/>
<File Path="logon.dfm"/>
<File Path="spmain.pas"/>
<File Path="spmain.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="U_Link.pas"/>
<File Path="U_Link.dfm"/>
<File Path="delphitwain"/>
<File Path="delphitwain\DelphiTwain.pas"/>
<File Path="delphitwain\DelphiTwainUtils.pas"/>
<File Path="delphitwain\Twain.pas"/>
<File Path="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/>
<File Path="AES.pas"/>
<File Path="ElAES.pas"/>
<File Path="U_upPassword.pas"/>
<File Path="U_upPassword.dfm"/>
<File Path="U_Link.pas"/>
<File Path="U_Link.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="JDAESExtend.pas"/>
</ProjectSortOrder>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction>

4
T03贸易布匹检验/U_TradeClothInspList.pas
View File

@ -396,7 +396,7 @@ begin
end;
if Trim(ADOQueryPrint.fieldbyname('Grade').AsString) = 'ÕýÆ·' then
FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString)
FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabPackage').AsString)
else
FLabVolume := '´ÎÆ·±êÇ©';
@ -406,7 +406,7 @@ begin
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> '´ÎÆ·±êÇ©' then
if Trim(ADOQueryPrint.fieldbyname('LabPackage').AsString) <> '´ÎÆ·±êÇ©' then
Rm1.DefaultCopies := strtointdef((edt1.Text),1)
else
Rm1.DefaultCopies:=strtointdef((edt1.Text),1);

17
T03贸易布匹检验/U_TradeMachInsp.dfm
View File

@ -37,7 +37,6 @@
ParentBackground = False
ParentFont = False
TabOrder = 1
ExplicitTop = 186
object lblLenUnit: TLabel
Left = 203
Top = 89
@ -53,7 +52,7 @@
OnClick = lblLenUnitClick
end
object Label4: TLabel
Left = 231
Left = 238
Top = 142
Width = 44
Height = 34
@ -318,8 +317,8 @@
OnKeyPress = MJstr3KeyPress
end
object Tare: TEdit
Left = 161
Top = 139
Left = 168
Top = 138
Width = 66
Height = 41
Font.Charset = ANSI_CHARSET
@ -426,9 +425,9 @@
OnClick = Button5Click
end
object DelQty: TEdit
Left = 230
Left = 223
Top = 39
Width = 50
Width = 76
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -1958,7 +1957,6 @@
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
ExplicitTop = 1
object AOrdDefNote1: TRichEdit
Left = 2
Top = 78
@ -2359,10 +2357,6 @@
object 查看: TcxTabSheet
Caption = #26597#30475
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid1: TcxGrid
Left = 0
Top = 0
@ -2814,7 +2808,6 @@
ParentBackground = False
TabOrder = 5
Visible = False
ExplicitTop = 1
object Label35: TLabel
Left = 27
Top = 55

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

@ -2023,30 +2023,60 @@ procedure TfrmTradeMachInsp.SpeedButton13Click(Sender: TObject);
var
i: Integer;
begin
if CheckData('疵点') = False then
exit;
// if CheckData('疵点') = False then
// exit;
//
// FCIFName := Trim(TSpeedButton(Sender).Hint);
// MovePanel1.Visible := True;
// lblCIFName.Caption := Trim(FCIFName);
//
//
//
// //显示数字键盘
//// CIFBeg.Text := InputLen.Text;
// with Panel3 do
// begin
// for i := 0 to ControlCount - 1 do
// begin
// if Controls[i] is TSpeedButton then
// begin
// TSpeedButton(Controls[i]).Hint := Trim(CIFBeg.Name);
// end;
// end;
// end;
//
// CIFNumber.OnClick(CIFNumber);
// CIFNumber.SetFocus;
FCIFName := Trim(TSpeedButton(Sender).Hint);
MovePanel1.Visible := True;
lblCIFName.Caption := Trim(FCIFName);
//显示数字键盘
// CIFBeg.Text := InputLen.Text;
with Panel3 do
with CDS_2 do
begin
for i := 0 to ControlCount - 1 do
Append;
// if RadioGroup1.ItemIndex = 5 then
// FieldByName('CIFName').Value := '连续性' + Trim(FCIFName)
// else if RadioGroup1.ItemIndex = 4 then
// FieldByName('CIFName').Value := '整匹' + Trim(FCIFName)
// else
FieldByName('CIFName').Value := Trim(TSpeedButton(Sender).Hint);
FieldByName('CIFbeg').Value := Trim(InputLen.Text);
FieldByName('CIFEnd').Value := Trim(InputLen.Text);
FieldByName('CIFNumber').Value := 1;
FieldByName('CIFPoints').Value := 0;
if RadioGroup1.ItemIndex > -1 then
begin
if Controls[i] is TSpeedButton then
if RadioGroup1.ItemIndex < 3 then
begin
TSpeedButton(Controls[i]).Hint := Trim(CIFBeg.Name);
FieldByName('CIFPoints').Value := RadioGroup1.ItemIndex + 1;
end
else
begin
FieldByName('CIFPoints').Value := 4;
end;
end;
end;
FieldByName('CIFQty').Value := 0;
CIFNumber.OnClick(CIFNumber);
CIFNumber.SetFocus;
Post;
end;
end;
procedure TfrmTradeMachInsp.cxDBImage1DblClick(Sender: TObject);

1
T03贸易布匹检验/U_TradePACKETPrint.dfm
View File

@ -7,7 +7,6 @@ inherited frmTradePACKETPrint: TfrmTradePACKETPrint
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitLeft = -185
ExplicitWidth = 1382
ExplicitHeight = 650
PixelsPerInch = 96

2
T03贸易布匹检验/U_TradePACKETPrint.pas
View File

@ -161,7 +161,7 @@ begin
end;
if Trim(ADOQueryPrint.fieldbyname('Grade').AsString) = 'ÕýÆ·' then
FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString)
FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabPackage').AsString)
else
FLabVolume := '´ÎÆ·±êÇ©';

20
T04贸易明细仓库/TradeClothStk.dproj.local
View File

@ -4,7 +4,7 @@
<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.742,=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeClothTotalOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.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.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>
@ -24,7 +24,7 @@
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeClothTotalStkList_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.521,D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T04贸易明细仓库\U_TradeClothTotalInList.pas=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\T04贸易明细仓库\U_TradeClothTotalOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
@ -42,20 +42,20 @@
<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.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj</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.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.499,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.150,=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.499,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.025,D:\Dp10Repo\项目代码\东亚\T00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.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>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -86,7 +86,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/>
<File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

16
T04贸易明细仓库/U_TradeClothTotalStkList_Sel.dfm
View File

@ -560,14 +560,6 @@ inherited frmTradeClothTotalStkList_Sel: TfrmTradeClothTotalStkList_Sel
Options.Editing = False
Width = 80
end
object Tv1Column6: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column8: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'orderno'
@ -675,6 +667,14 @@ inherited frmTradeClothTotalStkList_Sel: TfrmTradeClothTotalStkList_Sel
Options.Editing = False
Width = 80
end
object cxgrdbclmnTv1Column6: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'khconno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

10
T04贸易明细仓库/U_TradeClothTotalStkList_Sel.pas
View File

@ -72,7 +72,6 @@ type
Grade: TEdit;
Tv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Label4: TLabel;
BuyName: TEdit;
Label6: TLabel;
@ -83,6 +82,7 @@ type
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
cxgrdbclmnTv1Column6: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -185,15 +185,15 @@ begin
sql.Add(' from ');
sql.Add('(select rownumber=cast((row_number() over(order by AA.C_Code desc)) as int)');
sql.Add(',COUNT(1) OVER() AS TotalCount');
sql.Add(',* from (select a.mainid,a.subid,C_Width,C_GramWeight,OrderNo,A.C_Code,A.C_Name,C_Color,C_ColorNo,A.LenUnit,A.Grade,isnull(C.ConNo,'''') AS ConNo,isnull(C.BuyName,'''') AS BuyName,isnull(A.ConMID,'''') AS ConMID,isnull(A.ConSID,'''') AS ConSID,C.Saleser ');
sql.Add(',* from (select a.mainid,a.subid,C_Width,C_GramWeight,C.OrderNo,A.C_Code,A.C_Name,C_Color,C_ColorNo,A.LenUnit,A.Grade,isnull(C.CustName,'''') AS BuyName,isnull(A.ConMID,'''') AS ConMID,isnull(A.ConSID,'''') AS ConSID,C.Saleser,C.khconno ');
sql.Add(',sum(Meter) AS Meter,sum(Yardage) AS Yardage,sum(GrossWeight) AS GrossWeight,sum(NetWeight) AS NetWeight,Count(*) AS KCPS');
sql.Add(' from Trade_Cloth_Stock A inner join Trade_Cloth_IO B on B.StkId=A.StkId and A.StkCycles=B.IOCycles left join BS_Contract_Main C on C.ConMId=A.ConMId where A.StkExists=1 and B.IOFlag=''Èë¿â'' ');
sql.Add(' GROUP BY A.C_Code,A.C_Name,C_Color,C_ColorNo,A.LenUnit,A.Grade,isnull(C.ConNo,''''),isnull(C.BuyName,''''),isnull(A.ConMID,''''),isnull(A.ConSID,''''),C.Saleser,a.mainid,a.subid,C_Width,C_GramWeight,OrderNo) ');
sql.Add(' from Trade_Cloth_Stock A inner join Trade_Cloth_IO B on B.StkId=A.StkId and A.StkCycles=B.IOCycles left join Knit_Plan_Main C on C.MainId=A.MainId where A.StkExists=1 and B.IOFlag=''Èë¿â'' ');
sql.Add(' GROUP BY A.C_Code,A.C_Name,C_Color,C_ColorNo,A.LenUnit,A.Grade,isnull(C.CustName,''''),isnull(A.ConMID,''''),isnull(A.ConSID,''''),C.Saleser,a.mainid,a.subid,C_Width,C_GramWeight,C.OrderNo,C.khconno) ');
sql.Add(' AA where 1=1 ' + WSql);
sql.Add(') temp_row');
sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber)));
sql.Add(' order by rownumber');
// showmessage(sql.text);
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);

2
T04贸易明细仓库/U_TradeDeliveryRequest.dfm
View File

@ -252,7 +252,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
end
object v1Column27: TcxGridDBColumn
Caption = #21457#36135#26085#26399
DataBinding.FieldName = 'fhDate'
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False

4
T04贸易明细仓库/U_TradeDeliveryRequestInPut.pas
View File

@ -340,7 +340,7 @@ begin
begin
Append;
FieldByName('ConNo').Value := Trim(frmTradeClothTotalStkList_Sel.CDS_1.fieldbyname('ConNo').AsString);
//FieldByName('ConNo').Value := Trim(frmTradeClothTotalStkList_Sel.CDS_1.fieldbyname('ConNo').AsString);
FieldByName('ConMID').Value := Trim(frmTradeClothTotalStkList_Sel.CDS_1.fieldbyname('ConMID').AsString);
FieldByName('ConSID').Value := Trim(frmTradeClothTotalStkList_Sel.CDS_1.fieldbyname('ConSID').AsString);
@ -359,7 +359,7 @@ begin
FieldByName('ORDERNO').Value := Trim(frmTradeClothTotalStkList_Sel.CDS_1.fieldbyname('ORDERNO').AsString);
FieldByName('Piece').Value := frmTradeClothTotalStkList_Sel.CDS_1.fieldbyname('KCPS').AsInteger;
// FieldByName('Qty').Value := frmTradeClothTotalStkList_Sel.CDS_1.fieldbyname('KCQty').Asfloat;
ToCoName.Text := frmTradeClothTotalStkList_Sel.CDS_1.fieldbyname('BuyName').AsString;
end;
CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false;