Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

111

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-06-06 15:41:48 +08:00
parent e0118c99e3
commit 2c0eb26f0b
27 changed files with 18778 additions and 298 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

215
A00通用窗体/U_SalesContract_SXSel.dfm
View File

@ -70,8 +70,6 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
ExplicitLeft = 8
ExplicitTop = 36
object Label1: TLabel object Label1: TLabel
Left = 18 Left = 18
Top = 15 Top = 15
@ -130,6 +128,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 88
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -265,6 +264,74 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
Options.Editing = False Options.Editing = False
Width = 89 Width = 89
end end
object v1Column6: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column7: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object TV1Column13: TcxGridDBColumn object TV1Column13: TcxGridDBColumn
Caption = #32433#32447#32534#21495 Caption = #32433#32447#32534#21495
DataBinding.FieldName = 'Y_Code' DataBinding.FieldName = 'Y_Code'
@ -274,6 +341,28 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 75 Width = 75
end end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'ConUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 58
end
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'ConSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object TV1Column14: TcxGridDBColumn object TV1Column14: TcxGridDBColumn
Caption = #32433#32447#21517#31216 Caption = #32433#32447#21517#31216
DataBinding.FieldName = 'Y_Name' DataBinding.FieldName = 'Y_Name'
@ -282,16 +371,24 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
Width = 71 Width = 71
end end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #35268#26684 Caption = #32433#32447#35268#26684
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
end end
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #25104#20998 Caption = #32433#32447#25104#20998
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #32433#32447#39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -339,103 +436,21 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 88 Width = 88
end end
object cxGridDBColumn5: TcxGridDBColumn object TV1Column15: TcxGridDBColumn
Caption = #39068#33394 Caption = #32433#32447#29992#37327
DataBinding.FieldName = 'Y_Color' DataBinding.FieldName = 'SXQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 88 Width = 100
end end
object cxGridDBColumn6: TcxGridDBColumn object TV1Column16: TcxGridDBColumn
Caption = #33394#21495 Caption = #32433#32447#24211#23384
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'KCQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 88 Width = 100
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column6: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column7: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'ConUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 58
end
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'ConSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
@ -4883,8 +4898,8 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
end end
end end
object PM_1: TPopupMenu object PM_1: TPopupMenu
Left = 648 Left = 647
Top = 296 Top = 295
object N1: TMenuItem object N1: TMenuItem
Caption = #20840#36873 Caption = #20840#36873
OnClick = N1Click OnClick = N1Click
@ -4893,5 +4908,9 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
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

33
A00通用窗体/U_SalesContract_SXSel.pas
View File

@ -11,7 +11,8 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox, System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations; Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations,
Clipbrd;
type type
TfrmSalesContract_SXSel = class(TfrmBaseHelp) TfrmSalesContract_SXSel = class(TfrmBaseHelp)
@ -85,6 +86,9 @@ type
TV1Column12: TcxGridDBColumn; TV1Column12: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn; TV1Column13: TcxGridDBColumn;
TV1Column14: TcxGridDBColumn; TV1Column14: TcxGridDBColumn;
N3: TMenuItem;
TV1Column15: TcxGridDBColumn;
TV1Column16: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -96,6 +100,7 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure ConNoChange(Sender: TObject); procedure ConNoChange(Sender: TObject);
procedure N3Click(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
@ -177,21 +182,16 @@ begin
SQL.Add(' C.C_Pattern,'); SQL.Add(' C.C_Pattern,');
SQL.Add(' C.C_Width,'); SQL.Add(' C.C_Width,');
SQL.Add(' C.C_GramWeight,'); SQL.Add(' C.C_GramWeight,');
SQL.Add(' D.Y_Code,'); SQL.Add(' D.*,');
SQL.Add(' D.Y_Name,'); SQL.Add(' KCQTy=(select Sum(StkQty) from Bs_Yarn_IO X where X.Y_Code =D.Y_Code ),');
SQL.Add(' B.ConQty,'); SQL.Add(' SXQty= case when B.ConUnit =''Y'' then round(ConQty*0.9144*D.MeterQty/1000,2)');
SQL.Add(' B.ConUnit,'); SQL.Add(' else round(ConQty*D.MeterQty/1000,2) end ');
SQL.Add(' B.ConSNote,');
SQL.Add(' D.YRType,');
SQL.Add(' D.Denier,');
SQL.Add(' C.ZS,');
SQL.Add(' D.FF,');
SQL.Add(' D.ND');
SQL.Add('FROM Bs_Contract_Main A'); SQL.Add('FROM Bs_Contract_Main A');
SQL.Add('INNER JOIN Bs_Contract_Sub B ON A.ConMId = B.ConMId'); SQL.Add('INNER JOIN Bs_Contract_Sub B ON A.ConMId = B.ConMId');
SQL.Add('INNER JOIN Bs_Cloth_Info C ON B.C_Code = C.C_Code'); SQL.Add('INNER JOIN Bs_Cloth_Info C ON B.C_Code = C.C_Code');
SQL.Add('INNER JOIN BS_Cloth_Yarn D ON C.BCIID = D.BCIID'); SQL.Add('INNER JOIN BS_Cloth_Yarn D ON C.BCIID = D.BCIID');
SQL.Add('WHERE A.Status = ''9'''); SQL.Add('WHERE A.Status = ''9'' and D.Y_Code <> '''' ');
Open; Open;
end; end;
@ -214,13 +214,18 @@ begin
SelOKNo(CDS_1, False); SelOKNo(CDS_1, False);
end; end;
procedure TfrmSalesContract_SXSel.N3Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmSalesContract_SXSel.FormShow(Sender: TObject); procedure TfrmSalesContract_SXSel.FormShow(Sender: TObject);
begin begin
inherited; inherited;
InitGrid(); InitGrid();
ReadCxGrid(Trim(self.Caption), TV1, '×Ô¶¨ÒåÊý¾Ý'); ReadCxGrid(Trim(self.Caption) + '1', TV1, '×Ô¶¨ÒåÊý¾Ý');
end; end;
@ -232,7 +237,7 @@ end;
procedure TfrmSalesContract_SXSel.TBSaveClick(Sender: TObject); procedure TfrmSalesContract_SXSel.TBSaveClick(Sender: TObject);
begin begin
WriteCxGrid(Trim(self.Caption), TV1, '×Ô¶¨ÒåÊý¾Ý'); WriteCxGrid(Trim(self.Caption) + '1', TV1, '×Ô¶¨ÒåÊý¾Ý');
end; end;

4895
A00通用窗体/U_SalesContract_ZZDSXSel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

236
A00通用窗体/U_SalesContract_ZZDSXSel.pas Normal file
View File

@ -0,0 +1,236 @@
unit U_SalesContract_ZZDSXSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations,
Clipbrd;
type
TfrmSalesContract_ZZDSXSel = class(TfrmBaseHelp)
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TBSave: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
ConNo: TEdit;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
VC_SCSCode: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
TV1Column7: TcxGridDBColumn;
PM_1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Label2: TLabel;
C_Name: TEdit;
Label3: TLabel;
OrderNo: TEdit;
TV1Column8: TcxGridDBColumn;
TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
TV1Column11: TcxGridDBColumn;
TV1Column12: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
TV1Column14: TcxGridDBColumn;
N3: TMenuItem;
TV1Column15: TcxGridDBColumn;
TV1Column16: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TV1DblClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure N3Click(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FCoType, FAuthority: string;
{ Public declarations }
end;
var
frmSalesContract_ZZDSXSel: TfrmSalesContract_ZZDSXSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmSalesContract_ZZDSXSel.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmSalesContract_ZZDSXSel.ConNoChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmSalesContract_ZZDSXSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ConNo.SetFocus;
Action := cahide;
end;
procedure TfrmSalesContract_ZZDSXSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
SQL.Add('SELECT A.*,B.*,C.*');
SQL.Add(' ,SXQty=round(OrdQty*C.MeterQty/1000,2)');
sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.Mainid=B.MainId');
sql.Add(' inner join Tat_Plan_Yarn C on A.Mainid=C.MainId');
SQL.Add('WHERE A.Status = ''9'' and C.Y_Code <> '''' ');
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmSalesContract_ZZDSXSel.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, True);
end;
procedure TfrmSalesContract_ZZDSXSel.N2Click(Sender: TObject);
begin
SelOKNo(CDS_1, False);
end;
procedure TfrmSalesContract_ZZDSXSel.N3Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmSalesContract_ZZDSXSel.FormShow(Sender: TObject);
begin
inherited;
InitGrid();
ReadCxGrid(Trim(self.Caption) + '1', TV1, '自定义数据');
end;
procedure TfrmSalesContract_ZZDSXSel.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmSalesContract_ZZDSXSel.TBSaveClick(Sender: TObject);
begin
WriteCxGrid(Trim(self.Caption) + '1', TV1, '自定义数据');
end;
procedure TfrmSalesContract_ZZDSXSel.ToolButton1Click(Sender: TObject);
begin
ConNo.SetFocus;
ModalResult := 1;
end;
procedure TfrmSalesContract_ZZDSXSel.TV1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmSalesContract_ZZDSXSel.FormDestroy(Sender: TObject);
begin
inherited;
frmSalesContract_ZZDSXSel := nil;
end;
end.

4895
A00通用窗体/U_SalesContract_ZZDSel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

257
A00通用窗体/U_SalesContract_ZZDSel.pas Normal file
View File

@ -0,0 +1,257 @@
unit U_SalesContract_ZZDSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations;
type
TfrmSalesContract_ZZDSel = class(TfrmBaseHelp)
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TBSave: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
ConNo: TEdit;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
VC_SCSCode: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
TV1Column7: TcxGridDBColumn;
PM_1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Label2: TLabel;
C_Name: TEdit;
Label3: TLabel;
BuyName: TEdit;
TV1Column8: TcxGridDBColumn;
TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
TV1Column11: TcxGridDBColumn;
TV1Column12: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
TV1Column14: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TV1DblClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ConNoChange(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FCoType, FAuthority: string;
{ Public declarations }
end;
var
frmSalesContract_ZZDSel: TfrmSalesContract_ZZDSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmSalesContract_ZZDSel.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmSalesContract_ZZDSel.ConNoChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmSalesContract_ZZDSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ConNo.SetFocus;
Action := cahide;
end;
procedure TfrmSalesContract_ZZDSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
//sql.Add('select A.*,B.* from BS_Contract_Main A inner join BS_Contract_Sub B on A.ConMId=B.ConMId ');
//sql.Add(' and isnull(A.status,''0'')=''9''');
SQL.Add('SELECT DISTINCT');
SQL.Add(' A.ConNo,');
SQL.Add(' A.BuyConNo,');
SQL.Add(' A.SellName,');
SQL.Add(' A.BuyName,');
SQL.Add(' A.MiddleName,');
SQL.Add(' B.C_Spec,');
SQL.Add(' A.DlyDate,');
SQL.Add(' B.C_Code,');
SQL.Add(' C.C_Name,');
SQL.Add(' C.C_EName,');
SQL.Add(' C.C_Composition,');
SQL.Add(' C.C_Color,');
SQL.Add(' C.C_ColorNo,');
SQL.Add(' C.C_StyleNo,');
SQL.Add(' C.C_Pattern,');
SQL.Add(' C.C_Width,');
SQL.Add(' C.C_GramWeight,');
SQL.Add(' D.Y_Code,');
SQL.Add(' D.Y_Name,');
SQL.Add(' B.ConQty,');
SQL.Add(' B.ConUnit,');
SQL.Add(' B.ConSNote,');
SQL.Add(' D.YRType,');
SQL.Add(' D.Denier,');
SQL.Add(' C.ZS,');
SQL.Add(' D.FF,');
SQL.Add(' D.ND');
SQL.Add('FROM Bs_Contract_Main A');
SQL.Add('INNER JOIN Bs_Contract_Sub B ON A.ConMId = B.ConMId');
SQL.Add('INNER JOIN Bs_Cloth_Info C ON B.C_Code = C.C_Code');
SQL.Add('INNER JOIN BS_Cloth_Yarn D ON C.BCIID = D.BCIID');
SQL.Add('WHERE A.Status = ''9''');
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmSalesContract_ZZDSel.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, True);
end;
procedure TfrmSalesContract_ZZDSel.N2Click(Sender: TObject);
begin
SelOKNo(CDS_1, False);
end;
procedure TfrmSalesContract_ZZDSel.FormShow(Sender: TObject);
begin
inherited;
InitGrid();
ReadCxGrid(Trim(self.Caption), TV1, '自定义数据');
end;
procedure TfrmSalesContract_ZZDSel.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmSalesContract_ZZDSel.TBSaveClick(Sender: TObject);
begin
WriteCxGrid(Trim(self.Caption), TV1, '自定义数据');
end;
procedure TfrmSalesContract_ZZDSel.ToolButton1Click(Sender: TObject);
begin
ConNo.SetFocus;
ModalResult := 1;
end;
procedure TfrmSalesContract_ZZDSel.TV1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmSalesContract_ZZDSel.FormDestroy(Sender: TObject);
begin
inherited;
frmSalesContract_ZZDSel := nil;
end;
end.

5
A00通用窗体/U_YarnPurchasePlanSel.pas
View File

@ -11,7 +11,8 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit,
cxCheckBox, Vcl.Menus, cxCalendar, cxPC, dxScrollbarAnnotations; cxCheckBox, Vcl.Menus, cxCalendar, cxPC, dxScrollbarAnnotations, dxSkinsCore,
dxSkinsDefaultPainters;
type type
TfrmYarnPurchasePlanSel = class(TfrmBaseHelp) TfrmYarnPurchasePlanSel = class(TfrmBaseHelp)
@ -192,7 +193,7 @@ begin
sql.Add(' ,YDHQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) '); sql.Add(' ,YDHQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) ');
sql.Add(' from Pur_YarnPlan_Main A'); sql.Add(' from Pur_YarnPlan_Main A');
sql.Add(' inner join Pur_YarnPlan_sub B on A.PurMId=B.PurMId'); sql.Add(' inner join Pur_YarnPlan_sub B on A.PurMId=B.PurMId');
sql.Add(' where isnull(A.status,''0'')=''9'''); sql.Add(' where isnull(LX,'''') <> ''廉芚데'' and isnull(A.status,''0'')=''9''');
sql.add(' and A.PurDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); sql.add(' and A.PurDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.PurDate<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); sql.Add(' and A.PurDate<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of

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

@ -1,81 +1,81 @@
<?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.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.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.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.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.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.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.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.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.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.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.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.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.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.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.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.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.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.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.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.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.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10szKaiXiYa"/>
<File Path="..\A00通用方法"/> <File Path="..\A00通用方法"/>
<File Path="..\A00通用方法\AES"/> <File Path="..\A00通用方法\AES"/>
<File Path="..\A00通用方法\AES\ElAES.pas"/> <File Path="..\A00通用方法\AES\ElAES.pas"/>

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

@ -29,7 +29,6 @@ uses
U_YarnPurchasePlanDetailList in 'U_YarnPurchasePlanDetailList.pas' {frmYarnPurchasePlanDetailList}, U_YarnPurchasePlanDetailList in 'U_YarnPurchasePlanDetailList.pas' {frmYarnPurchasePlanDetailList},
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame}, FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
U_ClothPurchasePlanPut in 'U_ClothPurchasePlanPut.pas' {frmClothPurchasePlanPut}, U_ClothPurchasePlanPut in 'U_ClothPurchasePlanPut.pas' {frmClothPurchasePlanPut},
U_YarnPurchasePlanPut in 'U_YarnPurchasePlanPut.pas' {frmYarnPurchasePlanPut},
U_YarnInfoInPut in '..\B02基础纱线仓库\U_YarnInfoInPut.pas' {frmYarnInfoInPut}, U_YarnInfoInPut in '..\B02基础纱线仓库\U_YarnInfoInPut.pas' {frmYarnInfoInPut},
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas', U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas', U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
@ -39,6 +38,9 @@ uses
U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_ProductInfoSel in '..\A00通用窗体\U_ProductInfoSel.pas' {frmProductInfoSel}, U_ProductInfoSel in '..\A00通用窗体\U_ProductInfoSel.pas' {frmProductInfoSel},
U_YarnPurchasePlanList_ZZD in 'U_YarnPurchasePlanList_ZZD.pas' {frmYarnPurchasePlanList_ZZD},
U_YarnPurchasePlanPut_ZZD in 'U_YarnPurchasePlanPut_ZZD.pas' {frmYarnPurchasePlanPut_ZZD},
U_SalesContract_ZZDSXSel in '..\A00通用窗体\U_SalesContract_ZZDSXSel.pas' {frmSalesContract_ZZDSXSel},
U_SalesContract_SXSel in '..\A00通用窗体\U_SalesContract_SXSel.pas' {frmSalesContract_SXSel}; U_SalesContract_SXSel in '..\A00通用窗体\U_SalesContract_SXSel.pas' {frmSalesContract_SXSel};
{$R *.res} {$R *.res}

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

@ -161,10 +161,6 @@
<Form>frmClothPurchasePlanPut</Form> <Form>frmClothPurchasePlanPut</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_YarnPurchasePlanPut.pas">
<Form>frmYarnPurchasePlanPut</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\B02基础纱线仓库\U_YarnInfoInPut.pas"> <DCCReference Include="..\B02基础纱线仓库\U_YarnInfoInPut.pas">
<Form>frmYarnInfoInPut</Form> <Form>frmYarnInfoInPut</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
@ -186,6 +182,18 @@
<Form>frmProductInfoSel</Form> <Form>frmProductInfoSel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_YarnPurchasePlanList_ZZD.pas">
<Form>frmYarnPurchasePlanList_ZZD</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_YarnPurchasePlanPut_ZZD.pas">
<Form>frmYarnPurchasePlanPut_ZZD</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_SalesContract_ZZDSXSel.pas">
<Form>frmSalesContract_ZZDSXSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_SalesContract_SXSel.pas"> <DCCReference Include="..\A00通用窗体\U_SalesContract_SXSel.pas">
<Form>frmSalesContract_SXSel</Form> <Form>frmSalesContract_SXSel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>

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

@ -1,57 +1,63 @@
<?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.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.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.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.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.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_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.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.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.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.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.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.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.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.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.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.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.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.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.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.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.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.734,=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.422,=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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>2025-06-06 11:56:01.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas</Transaction>
<Transaction>2025-06-06 11:56:53.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>2025-06-06 11:56:53.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>2025-06-06 12:26:31.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction>
<Transaction>2025-06-06 12:26:31.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>2025-06-06 12:26:53.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10szKaiXiYa"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@ -65,12 +71,14 @@
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/> <File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/> <File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/> <File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_TatClothInfoSel.pas"/>
<File Path="..\A00通用窗体\U_TatClothInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_ProductInfoSel.pas"/> <File Path="..\A00通用窗体\U_ProductInfoSel.pas"/>
<File Path="..\A00通用窗体\U_ProductInfoSel.dfm"/> <File Path="..\A00通用窗体\U_ProductInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_TatClothInfoSel.pas"/>
<File Path="..\A00通用窗体\U_TatClothInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_SalesContract_ZZDSXSel.pas"/>
<File Path="..\A00通用窗体\U_SalesContract_ZZDSXSel.dfm"/>
<File Path="..\A00通用窗体\U_SalesContract_SXSel.pas"/> <File Path="..\A00通用窗体\U_SalesContract_SXSel.pas"/>
<File Path="..\A00通用窗体\U_SalesContract_SXSel.dfm"/> <File Path="..\A00通用窗体\U_SalesContract_SXSel.dfm"/>
<File Path="..\A00通用组件"/> <File Path="..\A00通用组件"/>
@ -116,7 +124,9 @@
<File Path="U_iniParam.pas"/> <File Path="U_iniParam.pas"/>
<File Path="U_YarnPurchasePlanDetailList.pas"/> <File Path="U_YarnPurchasePlanDetailList.pas"/>
<File Path="U_YarnPurchasePlanDetailList.dfm"/> <File Path="U_YarnPurchasePlanDetailList.dfm"/>
<File Path="U_YarnPurchasePlanPut.pas"/> <File Path="U_YarnPurchasePlanList_ZZD.pas"/>
<File Path="U_YarnPurchasePlanPut.dfm"/> <File Path="U_YarnPurchasePlanList_ZZD.dfm"/>
<File Path="U_YarnPurchasePlanPut_ZZD.pas"/>
<File Path="U_YarnPurchasePlanPut_ZZD.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

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

@ -16,7 +16,7 @@ implementation
uses uses
U_DataLink, U_iniParam, U_ClothPurchasePlanList, U_YarnPurchasePlanList, U_DataLink, U_iniParam, U_ClothPurchasePlanList, U_YarnPurchasePlanList,
U_YarnPurchasePlanDetailList; U_YarnPurchasePlanDetailList, U_YarnPurchasePlanList_ZZD;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -160,6 +160,18 @@ begin
end; end;
end; end;
311: //É´ÏßÉêÇë
begin
with TfrmYarnPurchasePlanList_ZZD.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
10000: 10000:
begin begin
for i := 0 to application.MainForm.MDIChildCount - 1 do for i := 0 to application.MainForm.MDIChildCount - 1 do

2
B04采购计划管理/U_YarnPurchasePlanDetailList.pas
View File

@ -228,7 +228,7 @@ begin
sql.Add('select A.*,B.* '); sql.Add('select A.*,B.* ');
sql.Add(' ,YDHQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) '); sql.Add(' ,YDHQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) ');
sql.Add(' from Pur_YarnPlan_Main A inner join Pur_YarnPlan_sub B on A.PurMId=B.PurMId '); sql.Add(' from Pur_YarnPlan_Main A inner join Pur_YarnPlan_sub B on A.PurMId=B.PurMId ');
sql.Add('where 1=1 ' + (WSql)); sql.Add('where isnull(LX,'''') <> ''廉芚데'' and 1=1 ' + (WSql));
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:

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

@ -643,15 +643,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end end
object Tv2Column1: TcxGridDBColumn
Caption = #32463#19997#32428#19997
DataBinding.FieldName = 'YRType'
DataBinding.IsNullValueType = True
FooterAlignmentHorz = taCenter
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 100
end
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #25467#24230 Caption = #25467#24230
DataBinding.FieldName = 'ND' DataBinding.FieldName = 'ND'

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

@ -129,7 +129,6 @@ type
v1Column2: TcxGridDBColumn; v1Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
d: TcxGridDBColumn; d: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -463,7 +462,7 @@ begin
SqlStr := SqlStr + ' where X.IOFlag=''Èë¿â'' and X.FromPurNo=AA.PurNo and isnull(StkPosition,'''') <> '''' ) '; SqlStr := SqlStr + ' where X.IOFlag=''Èë¿â'' and X.FromPurNo=AA.PurNo and isnull(StkPosition,'''') <> '''' ) ';
SqlStr := SqlStr + ' from Pur_YarnPlan_Main AA '; SqlStr := SqlStr + ' from Pur_YarnPlan_Main AA ';
SqlStr := SqlStr + ' where PurDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)); SqlStr := SqlStr + ' where isnull(LX,'''') <> ''廉芚데'' and PurDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date));
SqlStr := SqlStr + ' and PurDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)); SqlStr := SqlStr + ' and PurDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1));
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of

733
B04采购计划管理/U_YarnPurchasePlanList_ZZD.dfm Normal file
View File

@ -0,0 +1,733 @@
inherited frmYarnPurchasePlanList_ZZD: TfrmYarnPurchasePlanList_ZZD
Left = 246
Top = 116
Caption = #32433#32447#30003#35831
ClientHeight = 735
ClientWidth = 1364
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitWidth = 1380
ExplicitHeight = 774
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1364
Height = 60
AutoSize = True
ButtonHeight = 30
ButtonWidth = 131
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_PurchasePlan.cxImageList_bar
Images = DataLink_PurchasePlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 4
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = TBFindClick
end
object TBAdd: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 9
OnClick = TBAddClick
end
object TBEdit: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = TBEditClick
end
object ToolButton2: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 13
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 4
OnClick = ToolButton1Click
end
object ToolButton5: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #38468#20214
ImageIndex = 22
OnClick = ToolButton5Click
end
object TBPrint: TToolButton
Left = 497
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = TBPrintClick
end
object btnTijiao: TToolButton
Left = 568
Top = 0
AutoSize = True
Caption = #25552#20132
ImageIndex = 12
Wrap = True
OnClick = btnTijiaoClick
end
object btnCXTijiao: TToolButton
Left = 0
Top = 30
AutoSize = True
Caption = #25764#38144#25552#20132
ImageIndex = 11
OnClick = btnCXTijiaoClick
end
object tchk: TToolButton
Left = 103
Top = 30
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
OnClick = tchkClick
end
object Tnochk: TToolButton
Left = 174
Top = 30
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 11
OnClick = TnochkClick
end
object btnWC: TToolButton
Left = 277
Top = 30
AutoSize = True
Caption = #23436#25104
ImageIndex = 12
OnClick = btnWCClick
end
object btnWCCX: TToolButton
Left = 348
Top = 30
AutoSize = True
Caption = #25764#38144#23436#25104
ImageIndex = 11
OnClick = btnWCCXClick
end
object Tqx: TToolButton
Left = 451
Top = 30
AutoSize = True
Caption = #21512#21516#21462#28040
ImageIndex = 14
OnClick = TqxClick
end
object Tnoqx: TToolButton
Left = 554
Top = 30
AutoSize = True
Caption = #25764#38144#21512#21516#21462#28040
ImageIndex = 11
OnClick = TnoqxClick
end
object ToolButton7: TToolButton
Left = 689
Top = 30
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton7Click
end
object TBClose: TToolButton
Left = 792
Top = 30
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid [1]
Left = 0
Top = 168
Width = 1364
Height = 292
Align = alClient
PopupMenu = pm1
TabOrder = 3
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
OnCustomDrawCell = Tv1CustomDrawCell
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
object v1Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 53
end
object v1OrdDate: TcxGridDBColumn
Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'PurDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 86
end
object v1ConNo: TcxGridDBColumn
Caption = #30003#35831#21333#21495
DataBinding.FieldName = 'PurNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 82
end
object v1Column1: TcxGridDBColumn
Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 94
end
object v1CustomerNoName: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 99
end
object Tv1Column1: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object v1Column10: TcxGridDBColumn
DataBinding.FieldName = 'status'
DataBinding.IsNullValueType = True
Visible = False
Options.Editing = False
VisibleForCustomization = False
end
object v1Column12: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'ISSC'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 50
end
object v1Column13: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel1: TPanel [2]
Left = 0
Top = 60
Width = 1364
Height = 80
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 5
object Label4: TLabel
Left = 532
Top = 45
Width = 64
Height = 21
Caption = #20135#21697#32534#21495
end
object Label9: TLabel
Left = 24
Top = 45
Width = 64
Height = 21
Caption = #30003#35831#21333#21495
end
object Label3: TLabel
Left = 278
Top = 45
Width = 64
Height = 21
Caption = #32455#36896#21333#21495
end
object Label1: TLabel
Left = 786
Top = 45
Width = 64
Height = 21
Caption = #20135#21697#21517#31216
end
object C_Code: TcxTextEdit
Tag = 2
Left = 616
Top = 41
Properties.OnChange = PurNoPropertiesChange
TabOrder = 0
Width = 150
end
object PurNo: TcxTextEdit
Tag = 2
Left = 108
Top = 41
Properties.OnChange = PurNoPropertiesChange
TabOrder = 1
Width = 150
end
object OrderNo: TcxTextEdit
Tag = 2
Left = 362
Top = 41
Properties.OnChange = PurNoPropertiesChange
TabOrder = 2
Width = 150
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
Top = 2
Width = 1360
Height = 37
Align = alTop
Color = clWhite
ParentBackground = False
ParentColor = False
TabOrder = 3
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1360
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
end
end
object Y_Name: TcxTextEdit
Tag = 2
Left = 870
Top = 41
Properties.OnChange = PurNoPropertiesChange
TabOrder = 4
Width = 150
end
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 140
Width = 1364
Height = 28
Align = alTop
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#25552#20132
#24050#25552#20132
#24050#23457#26680
#24050#23436#25104
#24050#21462#28040
#20840#37096)
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
object cxSplitter1: TcxSplitter [4]
Left = 0
Top = 727
Width = 1364
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
end
inherited loadProcess: TPanel
Left = 454
Top = 243
ExplicitLeft = 454
ExplicitTop = 243
end
inherited cxProgressBar2: TcxProgressBar
Left = 391
Top = 295
ExplicitLeft = 391
ExplicitTop = 295
ExplicitHeight = 29
end
object cxGrid2: TcxGrid [7]
Left = 0
Top = 460
Width = 1364
Height = 267
Align = alBottom
BorderStyle = cxcbsNone
TabOrder = 7
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = v1PRTOrderQty
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v1XHNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
SortIndex = 0
SortOrder = soAscending
Width = 70
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object Tv21Column16: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column5: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 122
end
object Tv21Column11: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 117
end
object Tv21Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv21Column15: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'A'
'B'
'C')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 122
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 233
Top = 248
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 297
Top = 249
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 664
Top = 288
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Parameters = <>
Left = 168
Top = 320
end
object ADOQueryMain: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 80
Top = 320
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 80
Top = 240
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 744
Top = 288
end
object CDS_2: TClientDataSet
Aggregates = <>
IndexFieldNames = 'SerialNo'
Params = <>
Left = 456
Top = 536
end
object pm2: TPopupMenu
Left = 376
Top = 544
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
object N4: TMenuItem
Caption = #22797#21046
OnClick = N4Click
end
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 504
Top = 544
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 416
Top = 536
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 704
Top = 288
end
object pm1: TPopupMenu
Left = 480
Top = 344
object N5: TMenuItem
Caption = #20840#36873
OnClick = N5Click
end
object N6: TMenuItem
Caption = #20840#24323
OnClick = N6Click
end
object N3: TMenuItem
Caption = #22797#21046
OnClick = N3Click
end
end
object ADOQueryImage: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Parameters = <>
Left = 176
Top = 243
end
object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 96
object cxStyle1: TcxStyle
end
end
object cxStyleRepository2: TcxStyleRepository
Left = 45
Top = 281
PixelsPerInch = 96
object cxStyle2: TcxStyle
end
end
object ADO_1: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 267
Top = 550
end
end

1220
B04采购计划管理/U_YarnPurchasePlanList_ZZD.pas Normal file
View File

File diff suppressed because it is too large Load Diff

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

@ -115,7 +115,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 2 TabOrder = 2
ExplicitTop = 192
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -254,14 +253,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end end
object Tv1Column6: TcxGridDBColumn
Caption = #32463#19997'/'#32428#19997
DataBinding.FieldName = 'YRType'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 97
end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #25467#24230 Caption = #25467#24230
DataBinding.FieldName = 'ND' DataBinding.FieldName = 'ND'
@ -458,6 +449,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
end end
object Label4: TLabel object Label4: TLabel
Left = 1223 Left = 1223
@ -471,6 +463,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
end end
object PurNo: TcxTextEdit object PurNo: TcxTextEdit
Tag = 2 Tag = 2

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

@ -104,7 +104,6 @@ type
ToolButton4: TToolButton; ToolButton4: TToolButton;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
ToolButton5: TToolButton; ToolButton5: TToolButton;
Tv1Column6: TcxGridDBColumn;
Label3: TLabel; Label3: TLabel;
ADOQuery1: TADOQuery; ADOQuery1: TADOQuery;
Label4: TLabel; Label4: TLabel;
@ -1011,21 +1010,17 @@ begin
FieldByName('PurSId').Value := maxno + INTTOSTR(i); FieldByName('PurSId').Value := maxno + INTTOSTR(i);
FieldByName('C_Degree').Value := 'É´Ïß'; FieldByName('C_Degree').Value := 'É´Ïß';
FieldByName('Y_Code').Value := CDS_1.fieldbyname('C_Code').value; FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value;
FieldByName('Y_Name').Value := CDS_1.fieldbyname('C_Name').value; FieldByName('Y_Name').Value := CDS_1.fieldbyname('Y_Name').value;
FieldByName('Y_Spec').Value := CDS_1.fieldbyname('C_Spec').value; FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value;
FieldByName('Y_Composition').Value := CDS_1.fieldbyname('C_Composition').value; FieldByName('Y_Composition').Value := CDS_1.fieldbyname('Y_Composition').value;
FieldByName('Y_Color').Value := Cds_1.FieldByName('Y_Color').Value;
FieldByName('Denier').Value := CDS_1.fieldbyname('Denier').value; FieldByName('Denier').Value := CDS_1.fieldbyname('Denier').value;
FieldByName('ZS').Value := CDS_1.fieldbyname('ZS').value;
FieldByName('FF').Value := CDS_1.fieldbyname('FF').value; FieldByName('FF').Value := CDS_1.fieldbyname('FF').value;
FieldByName('ND').Value := Cds_1.FieldByName('ND').Value; FieldByName('ND').Value := Cds_1.FieldByName('ND').Value;
FieldByName('Y_Color').Value := Cds_1.FieldByName('C_Color').Value; FieldByName('Qty').Value := Cds_1.FieldByName('SXQty').Value;
FieldByName('YRType').Value := Cds_1.FieldByName('YRType').Value;
FieldByName('Qty').Value := 0;
FieldByName('Price').Value := 0; FieldByName('Price').Value := 0;
FieldByName('QtyUnit').Value := 'Kg'; FieldByName('QtyUnit').Value := 'Kg';

786
B04采购计划管理/U_YarnPurchasePlanPut_ZZD.dfm Normal file
View File

@ -0,0 +1,786 @@
inherited frmYarnPurchasePlanPut_ZZD: TfrmYarnPurchasePlanPut_ZZD
Left = 219
Top = 76
Caption = #32433#32447#30003#35831#24405#20837
ClientHeight = 651
ClientWidth = 1524
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitWidth = 1540
ExplicitHeight = 690
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1524
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_PurchasePlan.cxImageList_bar
Images = DataLink_PurchasePlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object ToolButton3: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ToolBar2: TToolBar [1]
Tag = 1
Left = 0
Top = 147
Width = 1524
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clBtnFace
DisabledImages = DataLink_PurchasePlan.cxImageList_bar
EdgeInner = esNone
EdgeOuter = esNone
Images = DataLink_PurchasePlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 1
ExplicitTop = 117
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #32433#32447#26723#26696
ImageIndex = 2
Visible = False
OnClick = ToolButton1Click
end
object ToolButton4: TToolButton
Left = 103
Top = 0
AutoSize = True
Caption = #26426#29289#26009#26723#26696
ImageIndex = 2
Visible = False
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 222
Top = 0
Caption = #38144#21806#21512#21516
ImageIndex = 2
Visible = False
OnClick = ToolButton5Click
end
object ToolButton2: TToolButton
Left = 337
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 177
Width = 1479
Height = 474
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 2
ExplicitTop = 186
ExplicitHeight = 465
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = v1PRTOrderQty
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv1Column7: TcxGridDBColumn
Tag = 9
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 65
end
object v1XHNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
SortIndex = 0
SortOrder = soAscending
Width = 70
end
object Tv1Column2: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object Tv1Column16: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column4: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column5: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 122
end
object Tv1Column11: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 117
end
object Tv1Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv1Column15: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column1: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'A'
'B'
'C')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object Tv1Column8: TcxGridDBColumn
AlternateCaption = 'DataLink_PurchasePlan.grid_head_red'
Caption = #31665'/'#20214
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Styles.Header = DataLink_PurchasePlan.grid_head_red
Width = 82
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_PurchasePlan.grid_head_red
Width = 94
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 122
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ScrollBox1: TScrollBox [3]
Left = 0
Top = 30
Width = 1524
Height = 117
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 3
object lbl5: TLabel
Left = 369
Top = 9
Width = 80
Height = 21
Caption = #19979#21333#26085#26399#65306
end
object lbl6: TLabel
Left = 32
Top = 9
Width = 80
Height = 21
Caption = #30003#35831#21333#21495#65306
end
object lbl7: TLabel
Left = 313
Top = 191
Width = 80
Height = 21
Caption = #25105#26041#21333#20301#65306
Visible = False
end
object lbl8: TLabel
Left = 25
Top = 191
Width = 80
Height = 21
AutoSize = False
Caption = #20379#24212#21830#65306
Visible = False
end
object lbl1: TLabel
Left = 313
Top = 231
Width = 80
Height = 21
Caption = #20184#27454#26041#24335#65306
Visible = False
end
object lbl3: TLabel
Left = 25
Top = 231
Width = 80
Height = 21
Caption = #36816#36755#26041#24335#65306
Visible = False
end
object Label23: TLabel
Left = 601
Top = 231
Width = 80
Height = 21
AutoSize = False
Caption = #31867#22411#65306
Visible = False
end
object Label1: TLabel
Left = 601
Top = 191
Width = 80
Height = 21
Caption = #23384#25918#21333#20301#65306
Visible = False
end
object Label2: TLabel
Left = 923
Top = 188
Width = 78
Height = 21
Caption = #31246' '#29575#65306
Visible = False
end
object Label3: TLabel
Left = 1221
Top = 172
Width = 68
Height = 23
Caption = #24211#23384#25968#37327
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -17
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
Visible = False
end
object Label4: TLabel
Left = 1221
Top = 143
Width = 68
Height = 23
Caption = #24211#23384#20214#25968
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -17
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
Visible = False
end
object Label5: TLabel
Left = 717
Top = 9
Width = 80
Height = 21
Caption = #32455#36896#21333#21495#65306
end
object Label6: TLabel
Left = 34
Top = 57
Width = 80
Height = 21
Caption = #20135#21697#32534#21495#65306
end
object Label7: TLabel
Left = 371
Top = 57
Width = 80
Height = 21
Caption = #20135#21697#21517#31216#65306
end
object PurNo: TcxTextEdit
Tag = 2
Left = 119
Top = 5
TabOrder = 0
Text = #33258#21160#29983#25104
Width = 200
end
object Sellname: TcxButtonEdit
Tag = 2
Left = 111
Top = 184
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = SellnamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 1
Visible = False
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object BuyName: TcxButtonEdit
Tag = 2
Left = 397
Top = 185
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = BuyNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 2
Visible = False
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object PurDate: TcxDateEdit
Tag = 2
Left = 456
Top = 5
Properties.ShowTime = False
TabOrder = 3
Width = 200
end
object Payment: TcxButtonEdit
Tag = 2
Left = 395
Top = 224
Hint = 'Payment/'#20184#27454#26041#24335
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ShipMentPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 4
Visible = False
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object ShipMent: TcxButtonEdit
Tag = 2
Left = 111
Top = 225
Hint = 'ShipMent/'#36816#36755#26041#24335
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ShipMentPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 5
Visible = False
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object PurType: TcxComboBox
Tag = 2
Left = 685
Top = 225
Properties.Items.Strings = (
#35746#21333
#22791#36135
#35797#26679
#36192#36865)
TabOrder = 6
Visible = False
Width = 200
end
object StkName: TcxButtonEdit
Tag = 2
Left = 685
Top = 185
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Style.ButtonStyle = btsDefault
TabOrder = 7
Visible = False
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object ShuiLv: TcxTextEdit
Tag = 2
Left = 1008
Top = 184
Properties.OnEditValueChanged = ShuiLvPropertiesEditValueChanged
TabOrder = 8
Visible = False
Width = 200
end
object OrderNo: TcxButtonEdit
Tag = 2
Left = 801
Top = 5
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = OrderNoPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 9
Width = 200
end
object C_Code: TcxTextEdit
Tag = 2
Left = 119
Top = 53
Enabled = False
TabOrder = 10
Width = 200
end
object C_Name: TcxTextEdit
Tag = 2
Left = 457
Top = 53
Enabled = False
TabOrder = 11
Width = 200
end
end
object cxGrid2: TcxGrid [4]
Left = 1479
Top = 177
Width = 45
Height = 474
Align = alRight
BorderStyle = cxcbsNone
PopupMenu = pm_sub
TabOrder = 4
Visible = False
ExplicitTop = 186
ExplicitHeight = 465
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object TV2Column2: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object TV2Column1: TcxGridDBColumn
Caption = #26085#26399
DataBinding.FieldName = 'PurDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 137
end
object TV2Column4: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Sellname'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object TV2Column3: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV2
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 1185
Top = 328
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 1057
Top = 289
end
inherited ImageList_new32: TImageList
Left = 968
Top = 360
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 527
Top = 350
DesignInfo = 22938127
end
object ADOTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 765
Top = 284
end
object ADOCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Parameters = <>
Left = 890
Top = 278
end
object DS_1: TDataSource
DataSet = Order_Sub
Left = 860
Top = 404
end
object Order_Sub: TClientDataSet
Aggregates = <>
IndexFieldNames = 'SerialNo'
Params = <>
Left = 716
Top = 404
end
object cxgrdpmn1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 464
Top = 348
end
object pm_sub: TPopupMenu
Left = 598
Top = 323
object N1: TMenuItem
Caption = #26222#36890#26367#25442
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20135#21697#26367#25442
OnClick = N2Click
end
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 772
Top = 476
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 824
Top = 465
end
object GPM_2: TcxGridPopupMenu
PopupMenus = <>
Left = 648
Top = 476
end
object ADO_2: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 576
Top = 461
end
object ADOQuery1: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 871
Top = 317
end
end

1312
B04采购计划管理/U_YarnPurchasePlanPut_ZZD.pas Normal file
View File

File diff suppressed because it is too large Load Diff

869
B04采购计划管理/U_YarnSQPlanList.dfm Normal file
View File

@ -0,0 +1,869 @@
inherited frmYarnSQPlanList: TfrmYarnSQPlanList
Left = 246
Top = 116
Caption = #32433#32447#30003#35831
ClientHeight = 735
ClientWidth = 1364
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitWidth = 1380
ExplicitHeight = 774
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1364
Height = 60
AutoSize = True
ButtonHeight = 30
ButtonWidth = 131
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_PurchasePlan.cxImageList_bar
Images = DataLink_PurchasePlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 4
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = TBFindClick
end
object TBAdd: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 9
OnClick = TBAddClick
end
object TBEdit: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = TBEditClick
end
object ToolButton2: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 13
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 4
OnClick = ToolButton1Click
end
object ToolButton5: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #38468#20214
ImageIndex = 22
OnClick = ToolButton5Click
end
object TBPrint: TToolButton
Left = 497
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = TBPrintClick
end
object btnTijiao: TToolButton
Left = 568
Top = 0
AutoSize = True
Caption = #25552#20132
ImageIndex = 12
Wrap = True
OnClick = btnTijiaoClick
end
object btnCXTijiao: TToolButton
Left = 0
Top = 30
AutoSize = True
Caption = #25764#38144#25552#20132
ImageIndex = 11
OnClick = btnCXTijiaoClick
end
object tchk: TToolButton
Left = 103
Top = 30
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
OnClick = tchkClick
end
object Tnochk: TToolButton
Left = 174
Top = 30
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 11
OnClick = TnochkClick
end
object btnWC: TToolButton
Left = 277
Top = 30
AutoSize = True
Caption = #23436#25104
ImageIndex = 12
OnClick = btnWCClick
end
object btnWCCX: TToolButton
Left = 348
Top = 30
AutoSize = True
Caption = #25764#38144#23436#25104
ImageIndex = 11
OnClick = btnWCCXClick
end
object Tqx: TToolButton
Left = 451
Top = 30
AutoSize = True
Caption = #21512#21516#21462#28040
ImageIndex = 14
OnClick = TqxClick
end
object Tnoqx: TToolButton
Left = 554
Top = 30
AutoSize = True
Caption = #25764#38144#21512#21516#21462#28040
ImageIndex = 11
OnClick = TnoqxClick
end
object ToolButton7: TToolButton
Left = 689
Top = 30
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton7Click
end
object TBClose: TToolButton
Left = 792
Top = 30
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid [1]
Left = 0
Top = 168
Width = 1364
Height = 292
Align = alClient
PopupMenu = pm1
TabOrder = 3
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
OnCustomDrawCell = Tv1CustomDrawCell
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column3
end
item
Kind = skSum
Column = Tv1Column4
end
item
Kind = skSum
Column = Tv1Column6
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
object v1Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 53
end
object v1OrdDate: TcxGridDBColumn
Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'PurDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 86
end
object v1ConNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'PurNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 82
end
object v1Column1: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'SellName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 94
end
object v1CustomerNoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'BuyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 99
end
object v1Column9: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Mnote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column10: TcxGridDBColumn
DataBinding.FieldName = 'status'
DataBinding.IsNullValueType = True
Visible = False
Options.Editing = False
VisibleForCustomization = False
end
object v1Column12: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'ISSC'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 50
end
object v1Column13: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object Tv1Column1: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'PurType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object Tv1Column4: TcxGridDBColumn
Caption = #19979#21333#25968#37327
DataBinding.FieldName = 'CGQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object Tv1Column3: TcxGridDBColumn
Caption = #24635#25910#36135#25968#37327
DataBinding.FieldName = 'YDHQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
end
object Tv1Column6: TcxGridDBColumn
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'RKQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column2: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'RKDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column9: TcxGridDBColumn
Caption = #24037#24207
DataBinding.FieldName = 'GXHZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column5: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'ShuiLv'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkName2HZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column8: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'SDlyDateHZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel1: TPanel [2]
Left = 0
Top = 60
Width = 1364
Height = 80
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 5
object Label4: TLabel
Left = 452
Top = 45
Width = 64
Height = 21
Caption = #25105#26041#21333#20301
end
object Label9: TLabel
Left = 24
Top = 45
Width = 64
Height = 21
Caption = #37319#36141#21333#21495
end
object Label3: TLabel
Left = 246
Top = 45
Width = 48
Height = 21
Caption = #20379#24212#21830
end
object Label1: TLabel
Left = 674
Top = 45
Width = 32
Height = 21
Caption = #21697#21517
end
object BuyName: TcxTextEdit
Tag = 2
Left = 520
Top = 39
Properties.OnChange = PurNoPropertiesChange
TabOrder = 0
Width = 150
end
object PurNo: TcxTextEdit
Tag = 2
Left = 92
Top = 39
Properties.OnChange = PurNoPropertiesChange
TabOrder = 1
Width = 150
end
object SellName: TcxTextEdit
Tag = 2
Left = 298
Top = 39
Properties.OnChange = PurNoPropertiesChange
TabOrder = 2
Width = 150
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
Top = 2
Width = 1360
Height = 37
Align = alTop
Color = clWhite
ParentBackground = False
ParentColor = False
TabOrder = 3
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1360
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
end
end
object Y_Name: TcxTextEdit
Tag = 2
Left = 710
Top = 39
Properties.OnChange = PurNoPropertiesChange
TabOrder = 4
Width = 150
end
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 140
Width = 1364
Height = 28
Align = alTop
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#25552#20132
#24050#25552#20132
#24050#23457#26680
#24050#23436#25104
#24050#21462#28040
#20840#37096)
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
object cxSplitter1: TcxSplitter [4]
Left = 0
Top = 727
Width = 1364
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
end
inherited loadProcess: TPanel
Left = 454
Top = 243
ExplicitLeft = 454
ExplicitTop = 243
end
inherited cxProgressBar2: TcxProgressBar
Left = 391
Top = 295
ExplicitLeft = 391
ExplicitTop = 295
ExplicitHeight = 29
end
object cxGrid2: TcxGrid [7]
Left = 0
Top = 460
Width = 1364
Height = 267
Align = alBottom
BorderStyle = cxcbsNone
TabOrder = 7
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = v1PRTOrderQty
end
item
Format = '0'
Position = spFooter
Column = v1PRTPrice
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn6
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v1XHNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
SortIndex = 0
SortOrder = soAscending
Width = 70
end
object Tv21Column18: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'C_Degree'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object Tv21Column16: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column5: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 122
end
object Tv21Column11: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 117
end
object Tv21Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv21Column15: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv2Column1: TcxGridDBColumn
Caption = #32463#19997#32428#19997
DataBinding.FieldName = 'YRType'
DataBinding.IsNullValueType = True
FooterAlignmentHorz = taCenter
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 100
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'A'
'B'
'C')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1PRTPrice: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 90
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object d: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'currency'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'SDlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 109
end
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 122
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 233
Top = 248
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 297
Top = 249
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 664
Top = 288
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Parameters = <>
Left = 168
Top = 320
end
object ADOQueryMain: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 80
Top = 320
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 80
Top = 240
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 744
Top = 288
end
object CDS_2: TClientDataSet
Aggregates = <>
IndexFieldNames = 'SerialNo'
Params = <>
Left = 456
Top = 536
end
object pm2: TPopupMenu
Left = 376
Top = 544
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
object N4: TMenuItem
Caption = #22797#21046
OnClick = N4Click
end
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 504
Top = 544
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 416
Top = 536
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 704
Top = 288
end
object pm1: TPopupMenu
Left = 480
Top = 344
object N5: TMenuItem
Caption = #20840#36873
OnClick = N5Click
end
object N6: TMenuItem
Caption = #20840#24323
OnClick = N6Click
end
object N3: TMenuItem
Caption = #22797#21046
OnClick = N3Click
end
end
object ADOQueryImage: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Parameters = <>
Left = 176
Top = 243
end
object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 96
object cxStyle1: TcxStyle
end
end
object cxStyleRepository2: TcxStyleRepository
Left = 45
Top = 281
PixelsPerInch = 96
object cxStyle2: TcxStyle
end
end
object ADO_1: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 267
Top = 550
end
end

1219
B04采购计划管理/U_YarnSQPlanList.pas Normal file
View File

File diff suppressed because it is too large Load Diff

749
B04采购计划管理/U_YarnSQPut.dfm Normal file
View File

@ -0,0 +1,749 @@
inherited frmYarnSQPut: TfrmYarnSQPut
Left = 219
Top = 76
Caption = #32433#32447#30003#35831#24405#20837
ClientHeight = 651
ClientWidth = 1524
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitWidth = 1540
ExplicitHeight = 690
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1524
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_PurchasePlan.cxImageList_bar
Images = DataLink_PurchasePlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object ToolButton3: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ToolBar2: TToolBar [1]
Tag = 1
Left = 0
Top = 156
Width = 1524
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 95
Caption = 'ToolBar1'
Color = clBtnFace
DisabledImages = DataLink_PurchasePlan.cxImageList_bar
EdgeInner = esNone
EdgeOuter = esNone
Images = DataLink_PurchasePlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 1
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #32433#32447#26723#26696
ImageIndex = 2
Visible = False
OnClick = ToolButton1Click
end
object ToolButton4: TToolButton
Left = 87
Top = 0
AutoSize = True
Caption = #26426#29289#26009#26723#26696
ImageIndex = 2
Visible = False
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 186
Top = 0
Caption = #32455#36896#21333
ImageIndex = 2
OnClick = ToolButton5Click
end
object ToolButton2: TToolButton
Left = 281
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 186
Width = 1479
Height = 465
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = v1PRTOrderQty
end
item
Format = '0'
Position = spFooter
Column = v1PRTPrice
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column9
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv1Column7: TcxGridDBColumn
Tag = 9
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 41
end
object v1XHNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
SortIndex = 0
SortOrder = soAscending
Width = 70
end
object Tv1Column18: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'C_Degree'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column18PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column2: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object Tv1Column16: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column4: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column5: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 122
end
object Tv1Column11: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 117
end
object Tv1Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv1Column15: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column6: TcxGridDBColumn
Caption = #32463#19997'/'#32428#19997
DataBinding.FieldName = 'YRType'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 97
end
object Tv1Column1: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'A'
'B'
'C')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 94
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1PRTPrice: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 90
end
object Tv1Column9: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object Tv1Column4: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'currency'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'USD'
'RMB'
'VND')
HeaderAlignmentHorz = taCenter
end
object Tv1Column3: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'SDlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter
Width = 109
end
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 122
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ScrollBox1: TScrollBox [3]
Left = 0
Top = 30
Width = 1524
Height = 126
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 3
object lbl5: TLabel
Left = 32
Top = 50
Width = 80
Height = 21
Caption = #19979#21333#26085#26399#65306
end
object lbl6: TLabel
Left = 32
Top = 10
Width = 80
Height = 21
Caption = #37319#36141#21333#21495#65306
end
object lbl7: TLabel
Left = 616
Top = 10
Width = 80
Height = 21
Caption = #25105#26041#21333#20301#65306
end
object lbl8: TLabel
Left = 328
Top = 10
Width = 80
Height = 21
AutoSize = False
Caption = #20379#24212#21830#65306
end
object lbl1: TLabel
Left = 616
Top = 50
Width = 80
Height = 21
Caption = #20184#27454#26041#24335#65306
end
object lbl3: TLabel
Left = 328
Top = 50
Width = 80
Height = 21
Caption = #36816#36755#26041#24335#65306
end
object Label23: TLabel
Left = 904
Top = 50
Width = 80
Height = 21
AutoSize = False
Caption = #31867#22411#65306
end
object Label1: TLabel
Left = 904
Top = 10
Width = 80
Height = 21
Caption = #23384#25918#21333#20301#65306
Visible = False
end
object Label2: TLabel
Left = 34
Top = 95
Width = 78
Height = 21
Caption = #31246' '#29575#65306
end
object Label3: TLabel
Left = 1223
Top = 56
Width = 64
Height = 21
Caption = #32433#32447#24211#23384
end
object PurNo: TcxTextEdit
Tag = 2
Left = 119
Top = 4
TabOrder = 0
Text = #33258#21160#29983#25104
Width = 200
end
object Sellname: TcxButtonEdit
Tag = 2
Left = 414
Top = 3
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = SellnamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 1
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object BuyName: TcxButtonEdit
Tag = 2
Left = 700
Top = 4
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = BuyNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 2
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object PurDate: TcxDateEdit
Tag = 2
Left = 119
Top = 44
Properties.ShowTime = False
TabOrder = 3
Width = 200
end
object Payment: TcxButtonEdit
Tag = 2
Left = 698
Top = 43
Hint = 'Payment/'#20184#27454#26041#24335
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ShipMentPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 4
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object ShipMent: TcxButtonEdit
Tag = 2
Left = 414
Top = 44
Hint = 'ShipMent/'#36816#36755#26041#24335
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ShipMentPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 5
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object PurType: TcxComboBox
Tag = 2
Left = 988
Top = 44
Properties.Items.Strings = (
#35746#21333
#22791#36135
#35797#26679
#36192#36865)
TabOrder = 6
Width = 200
end
object StkName: TcxButtonEdit
Tag = 2
Left = 988
Top = 4
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = StkNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 7
Visible = False
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object ShuiLv: TcxTextEdit
Tag = 2
Left = 119
Top = 91
Properties.OnEditValueChanged = ShuiLvPropertiesEditValueChanged
TabOrder = 8
Width = 200
end
end
object cxGrid2: TcxGrid [4]
Left = 1479
Top = 186
Width = 45
Height = 465
Align = alRight
BorderStyle = cxcbsNone
PopupMenu = pm_sub
TabOrder = 4
Visible = False
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object TV2Column2: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object TV2Column1: TcxGridDBColumn
Caption = #26085#26399
DataBinding.FieldName = 'PurDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 137
end
object TV2Column4: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Sellname'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object TV2Column3: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV2
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 1185
Top = 328
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 1057
Top = 289
end
inherited ImageList_new32: TImageList
Left = 968
Top = 360
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 527
Top = 350
DesignInfo = 22938127
end
object ADOTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 765
Top = 284
end
object ADOCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Parameters = <>
Left = 890
Top = 278
end
object DS_1: TDataSource
DataSet = Order_Sub
Left = 860
Top = 404
end
object Order_Sub: TClientDataSet
Aggregates = <>
IndexFieldNames = 'SerialNo'
Params = <>
Left = 716
Top = 404
end
object cxgrdpmn1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 464
Top = 348
end
object pm_sub: TPopupMenu
Left = 598
Top = 323
object N1: TMenuItem
Caption = #26222#36890#26367#25442
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20135#21697#26367#25442
OnClick = N2Click
end
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 772
Top = 476
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 824
Top = 465
end
object GPM_2: TcxGridPopupMenu
PopupMenus = <>
Left = 648
Top = 476
end
object ADO_2: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 576
Top = 461
end
object ADOQuery1: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 871
Top = 317
end
end

1238
B04采购计划管理/U_YarnSQPut.pas Normal file
View File

File diff suppressed because it is too large Load Diff

48
E02梭织经轴仓库/U_TatWBPlanCard.dfm
View File

@ -3,10 +3,10 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
Top = 76 Top = 76
Caption = #26631#31614#25171#21360 Caption = #26631#31614#25171#21360
ClientHeight = 700 ClientHeight = 700
ClientWidth = 1376 ClientWidth = 1382
Font.Height = -16 Font.Height = -16
Position = poScreenCenter Position = poScreenCenter
ExplicitWidth = 1392 ExplicitWidth = 1398
ExplicitHeight = 739 ExplicitHeight = 739
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -14,17 +14,18 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1376 Width = 1382
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 99 ButtonWidth = 107
Caption = 'ToolBar1' Caption = 'ToolBar1'
DisabledImages = DataLink_WarpBeamStk.cxImageList_bar DisabledImages = DataLink_WarpBeamStk.cxImageList_bar
Images = DataLink_WarpBeamStk.cxImageList_bar Images = DataLink_WarpBeamStk.cxImageList_bar
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 6 TabOrder = 6
ExplicitWidth = 1376
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -34,7 +35,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 71 Left = 63
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -42,7 +43,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 142 Left = 126
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -50,15 +51,23 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 213 Left = 189
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36724#21345#21024#38500 Caption = #36724#21345#21024#38500
ImageIndex = 5 ImageIndex = 5
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton4: TToolButton
Left = 276
Top = 0
AutoSize = True
Caption = #25972#32463#35745#21010#25171#21360
ImageIndex = 21
OnClick = ToolButton4Click
end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 316 Left = 387
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36724#21345#25171#21360 Caption = #36724#21345#25171#21360
@ -66,7 +75,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 419 Left = 474
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -74,7 +83,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 522 Left = 561
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -85,7 +94,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1376 Width = 1382
Height = 83 Height = 83
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -93,6 +102,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
ParentBackground = False ParentBackground = False
ParentColor = True ParentColor = True
TabOrder = 7 TabOrder = 7
ExplicitWidth = 1376
object Label1: TLabel object Label1: TLabel
Left = 15 Left = 15
Top = 45 Top = 45
@ -151,7 +161,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
inline Frame11: TfrmFrameDateSel inline Frame11: TfrmFrameDateSel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1372 Width = 1378
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite Color = clWhite
@ -387,13 +397,14 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
end end
end end
object Panel2: TPanel [3] object Panel2: TPanel [3]
Left = 984 Left = 990
Top = 113 Top = 113
Width = 392 Width = 392
Height = 394 Height = 394
Align = alRight Align = alRight
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 3 TabOrder = 3
ExplicitLeft = 984
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 112 Top = 112
@ -592,11 +603,12 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
object cxGrid4: TcxGrid [4] object cxGrid4: TcxGrid [4]
Left = 737 Left = 737
Top = 113 Top = 113
Width = 247 Width = 253
Height = 394 Height = 394
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4
ExplicitWidth = 247
object Tv4: TcxGridDBTableView object Tv4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -766,21 +778,23 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
object PageControl1: TPageControl [5] object PageControl1: TPageControl [5]
Left = 0 Left = 0
Top = 507 Top = 507
Width = 1376 Width = 1382
Height = 193 Height = 193
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alBottom Align = alBottom
TabOrder = 5 TabOrder = 5
Visible = False Visible = False
ExplicitWidth = 1376
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = #25972#32463#25195#25551#35760#24405 Caption = #25972#32463#25195#25551#35760#24405
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1368 Width = 1374
Height = 157 Height = 157
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1368
object TV3: TcxGridDBTableView object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -939,7 +953,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
object cxGrid5: TcxGrid object cxGrid5: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1368 Width = 1374
Height = 157 Height = 157
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0

22
E02梭织经轴仓库/U_TatWBPlanCard.pas
View File

@ -166,6 +166,7 @@ type
ADO_4: TADOQuery; ADO_4: TADOQuery;
TV1Column2: TcxGridDBColumn; TV1Column2: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn; TV2Column4: TcxGridDBColumn;
ToolButton4: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -181,6 +182,7 @@ type
procedure WBCNOPropertiesChange(Sender: TObject); procedure WBCNOPropertiesChange(Sender: TObject);
procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure Tv4FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure Tv4FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ToolButton4Click(Sender: TObject);
private private
FInt, PFInt: Integer; FInt, PFInt: Integer;
FFMainID, BPFlag: string; FFMainID, BPFlag: string;
@ -232,6 +234,7 @@ begin
sql.add(' and A.WB_Date>=''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.BegDate.Date)) + ''''); sql.add(' and A.WB_Date>=''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.BegDate.Date)) + '''');
sql.Add(' and A.WB_Date<''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.enddate.Date + 1)) + ''''); sql.Add(' and A.WB_Date<''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.enddate.Date + 1)) + '''');
sql.Add(' and WB_Type not in (''½¬Öá'')'); sql.Add(' and WB_Type not in (''½¬Öá'')');
// showmessage(Sql.text);
// ShowMessage(sql.text); // ShowMessage(sql.text);
// case cxTabControl1.TabIndex of // case cxTabControl1.TabIndex of
@ -393,6 +396,25 @@ begin
end; end;
end; end;
procedure TfrmTatWBPlanCard.ToolButton4Click(Sender: TObject);
begin
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FPreviewPrint := False;
FLMType := 'WBJH';
FFiltration1 := Trim(Self.CDS_1.fieldbyname('WBCNO').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatWBPlanCard.ToolButton5Click(Sender: TObject); procedure TfrmTatWBPlanCard.ToolButton5Click(Sender: TObject);
begin begin