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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -82,6 +82,7 @@ type
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
btn1: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -100,6 +101,7 @@ type
procedure FromCoNameChange(Sender: TObject); procedure FromCoNameChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private private
canshu1, FStkName, canshu3: string; canshu1, FStkName, canshu3: string;
procedure InitGrid(); procedure InitGrid();
@ -113,7 +115,7 @@ type
implementation implementation
uses uses
U_DataLink, U_RTFun, U_YarnInEdit; U_DataLink, U_RTFun, U_YarnInEdit, U_LabelPrint;
{$R *.dfm} {$R *.dfm}
procedure TfrmYarnInList.setStatus(); procedure TfrmYarnInList.setStatus();
@ -369,6 +371,27 @@ begin
end; end;
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); procedure TfrmYarnInList.BYIOIDChange(Sender: TObject);
begin begin
if Length(Trim(BYIOID.Text)) < 4 then if Length(Trim(BYIOID.Text)) < 4 then

View File

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

View File

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

View File

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

View File

@ -36,7 +36,8 @@ uses
U_YarnStkTotalList in 'U_YarnStkTotalList.pas' {frmYarnTotalStkList}, U_YarnStkTotalList in 'U_YarnStkTotalList.pas' {frmYarnTotalStkList},
U_YarnInfoSel in '..\A00通用窗体\U_YarnInfoSel.pas' {frmYarnInfoSel}, U_YarnInfoSel in '..\A00通用窗体\U_YarnInfoSel.pas' {frmYarnInfoSel},
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, 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} {$R *.res}

View File

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

View File

@ -1,52 +1,53 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.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.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.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.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.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.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.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.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.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.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.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.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.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.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.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -77,7 +78,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/> <File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@ -107,6 +108,8 @@
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/> <File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/> <File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.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"/>
<File Path="..\..\..\public10\ThreeFun\Form"/> <File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/> <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>

View File

@ -124,7 +124,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">

View File

@ -1,52 +1,52 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.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.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.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.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.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.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.898,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_LCKQuery.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.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.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.030,D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.dfm=D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -77,7 +77,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/> <File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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> <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.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.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.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.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.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.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.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.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.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -69,7 +69,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/> <File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

View File

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

View File

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

View File

@ -13,7 +13,8 @@ uses
cxContainer, cxCurrencyEdit, BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic, 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, RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker; dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker,
dxScrollbarAnnotations;
type type
TfrmKnitClothInspList = class(TfrmBaseList) TfrmKnitClothInspList = class(TfrmBaseList)
@ -95,6 +96,8 @@ type
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
N2: TMenuItem;
N3: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -121,6 +124,8 @@ type
procedure TBExportClick(Sender: TObject); procedure TBExportClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
FLeft, FTop: Integer; FLeft, FTop: Integer;
@ -538,8 +543,17 @@ end;
procedure TfrmKnitClothInspList.N1Click(Sender: TObject); procedure TfrmKnitClothInspList.N1Click(Sender: TObject);
begin 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; end;
procedure TfrmKnitClothInspList.RKOrdIDKeyPress(Sender: TObject; var Key: Char); procedure TfrmKnitClothInspList.RKOrdIDKeyPress(Sender: TObject; var Key: Char);

View File

@ -1,46 +1,46 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.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\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</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.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.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.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.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.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.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.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.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.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.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.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.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.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.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.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.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -71,7 +71,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/> <File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

View File

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

View File

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

View File

@ -1,17 +1,18 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.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.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.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.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.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.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.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.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.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> <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.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.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -50,7 +50,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/> <File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_CompanySel.pas"/> <File Path="..\A00通用窗体\U_CompanySel.pas"/>
<File Path="..\A00通用窗体\U_CompanySel.dfm"/> <File Path="..\A00通用窗体\U_CompanySel.dfm"/>

View File

@ -3,17 +3,17 @@
<Transactions> <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.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.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.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.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.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.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.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.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.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.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> <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
@ -45,7 +45,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\众华"/> <File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_CompanySel.pas"/> <File Path="..\A00通用窗体\U_CompanySel.pas"/>
<File Path="..\A00通用窗体\U_CompanySel.dfm"/> <File Path="..\A00通用窗体\U_CompanySel.dfm"/>

View File

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

View File

@ -40,7 +40,7 @@ type
SpeedButton10: TSpeedButton; SpeedButton10: TSpeedButton;
SpeedButton12: TSpeedButton; SpeedButton12: TSpeedButton;
SpeedButton49: TSpeedButton; SpeedButton49: TSpeedButton;
ADOQuery1: TADOQuery; ADOQueryCmd: TADOQuery;
ADO_Car: TADOQuery; ADO_Car: TADOQuery;
ADO_YG: TADOQuery; ADO_YG: TADOQuery;
ADO_Cmd: TADOQuery; ADO_Cmd: TADOQuery;
@ -77,6 +77,11 @@ type
tishi: TLabel; tishi: TLabel;
Button1: TButton; Button1: TButton;
Timer1: TTimer; Timer1: TTimer;
lbl1: TLabel;
OutNumber: TcxTextEdit;
MachineNo: TcxTextEdit;
lbl2: TLabel;
ADOQueryTemp: TADOQuery;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -183,10 +188,10 @@ begin
begin begin
close; close;
sql.Clear; 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('INNER JOIN Knit_Plan_MAIN C ON A.MAINID=B.MAINID');
sql.Add('where LCKID=' + quotedstr(trim(fPCID))); sql.Add('where LCKID=' + quotedstr(trim(fPCID)));
// showmessage(sql.Text); // showmessage(sql.Text);
open; open;
end; end;
// if trim(ADO_Car.fieldbyname('ShowMsg').AsString) <> '' then // if trim(ADO_Car.fieldbyname('ShowMsg').AsString) <> '' then
@ -198,8 +203,7 @@ begin
// end // end
// else // else
SInData(ADO_Car, Panel2, 2); SInData(ADO_Car, Panel2, 2);
ROLLNUM.text := ADO_Car.FieldByName('KKPS').AsString; ROLLNUM.text := ADO_Car.FieldByName('OutNumber').AsString;
Scan.text := ''; Scan.text := '';
Scan.OnClick(Scan); Scan.OnClick(Scan);
@ -417,6 +421,8 @@ begin
end; end;
procedure TfrmDyeOutput.SpeedButton14Click(Sender: TObject); procedure TfrmDyeOutput.SpeedButton14Click(Sender: TObject);
var
Maxno: string;
begin begin
try try
@ -469,11 +475,11 @@ begin
exit; exit;
end; end;
if StrToFloatDef(ROLLNUM.Text, 0) > StrToFloatDef(KKPS.Text, 0) then if StrToFloatDef(ROLLNUM.Text, 0) > StrToFloatDef(OutNumber.Text, 0) then
begin begin
MovePanel1.Visible := true; MovePanel1.Visible := true;
SpeedButton14.Enabled := True; SpeedButton14.Enabled := True;
tishi.Caption := '登记匹数超过开卡匹数'; tishi.Caption := '登记匹数超过实际匹数';
Timer1.Enabled := true; Timer1.Enabled := true;
exit; exit;
end; end;
@ -485,12 +491,14 @@ begin
// SpeedButton14.Enabled := True; // SpeedButton14.Enabled := True;
// Exit; // Exit;
// end; // end;
// if (CDS_GX.FieldByName('GlideNo').AsString = CDS_GX.FieldByName('maxGlideNo').AsString) and (StrToFloatDef(QTY.Text, 0) = 0) then if (CDS_GX.FieldByName('GlideNo').AsString = CDS_GX.FieldByName('maxGlideNo').AsString) and (MachineNo.Text = '') then
// begin begin
// Application.MessageBox('最后一道工序需输入重量!', '提示信息', 0); MovePanel1.Visible := true;
// SpeedButton14.Enabled := True; SpeedButton14.Enabled := True;
// Exit; tishi.Caption := '请输入车号!';
// end; Timer1.Enabled := true;
Exit;
end;
with ADO_Cmd do with ADO_Cmd do
begin begin
@ -513,12 +521,96 @@ begin
end; end;
FieldByName('Qty').Value := 0; FieldByName('Qty').Value := 0;
FieldByName('MachineNo').Value := trim(MachineNo.text);
FieldByName('RollNum').Value := trim(ROLLNUM.text); FieldByName('RollNum').Value := trim(ROLLNUM.text);
FieldByName('Filler').Value := trim(DName); FieldByName('Filler').Value := trim(DName);
Post; Post;
end; 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 // with ADO_Cmd do
// begin // begin

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.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.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.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.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.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.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> <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.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.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.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.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.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.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.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.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -73,7 +73,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/> <File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

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.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.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.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.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
@ -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.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.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.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.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.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> <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.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.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.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.903,=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.150,=D:\Dp10Repo\项目代码\东亚\T04贸易明细仓库\U_TradeSalesContractSel2.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.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.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.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.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.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -86,7 +86,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10gmbitao"/> <File Path="..\..\D10gmBitao"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

View File

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

View File

@ -72,7 +72,6 @@ type
Grade: TEdit; Grade: TEdit;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Label4: TLabel; Label4: TLabel;
BuyName: TEdit; BuyName: TEdit;
Label6: TLabel; Label6: TLabel;
@ -83,6 +82,7 @@ type
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn;
cxgrdbclmnTv1Column6: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -185,15 +185,15 @@ begin
sql.Add(' from '); sql.Add(' from ');
sql.Add('(select rownumber=cast((row_number() over(order by AA.C_Code desc)) as int)'); 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(',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(',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(' 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.ConNo,''''),isnull(C.BuyName,''''),isnull(A.ConMID,''''),isnull(A.ConSID,''''),C.Saleser,a.mainid,a.subid,C_Width,C_GramWeight,OrderNo) '); 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(' AA where 1=1 ' + WSql);
sql.Add(') temp_row'); sql.Add(') temp_row');
sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber))); sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber)));
sql.Add(' order by rownumber'); sql.Add(' order by rownumber');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_1); SCreateCDS(ADOQueryMain, CDS_1);

View File

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

View File

@ -340,7 +340,7 @@ begin
begin begin
Append; 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('ConMID').Value := Trim(frmTradeClothTotalStkList_Sel.CDS_1.fieldbyname('ConMID').AsString);
FieldByName('ConSID').Value := Trim(frmTradeClothTotalStkList_Sel.CDS_1.fieldbyname('ConSID').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('ORDERNO').Value := Trim(frmTradeClothTotalStkList_Sel.CDS_1.fieldbyname('ORDERNO').AsString);
FieldByName('Piece').Value := frmTradeClothTotalStkList_Sel.CDS_1.fieldbyname('KCPS').AsInteger; 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; end;
CDS_1.Edit; CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false; CDS_1.fieldbyname('SSel').value := false;