梭织
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
078a177f98
commit
b164ebe819
|
|
@ -103,6 +103,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
|
|||
Height = 484
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 80
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
|
|||
4710
E00梭织通用窗体/U_TatPlanSel2.dfm
Normal file
4710
E00梭织通用窗体/U_TatPlanSel2.dfm
Normal file
File diff suppressed because it is too large
Load Diff
223
E00梭织通用窗体/U_TatPlanSel2.pas
Normal file
223
E00梭织通用窗体/U_TatPlanSel2.pas
Normal file
|
|
@ -0,0 +1,223 @@
|
|||
unit U_TatPlanSel2;
|
||||
|
||||
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, cxCheckBox, cxCalendar, dxScrollbarAnnotations,
|
||||
dxSkinsCore, dxSkinsDefaultPainters, dxSkinBasic, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
|
||||
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
|
||||
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
|
||||
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
|
||||
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
|
||||
dxSkinXmas2008Blue, cxPC;
|
||||
|
||||
type
|
||||
TfrmTatPlanSel2 = 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;
|
||||
GPM_1: TcxGridPopupMenu;
|
||||
ImageList1: TImageList;
|
||||
cxStyleRepository1: TcxStyleRepository;
|
||||
cxStyle1: TcxStyle;
|
||||
Label3: TLabel;
|
||||
Label8: TLabel;
|
||||
Label1: TLabel;
|
||||
OrderNo: TEdit;
|
||||
ConNo: TEdit;
|
||||
CustName: TEdit;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1OrderNo: TcxGridDBColumn;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
v1Column31: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
v1Column19: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
v1PRTMF: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
cxTabControl1: TcxTabControl;
|
||||
cxStyle2: TcxStyle;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure OrderNoChange(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure Tv1DblClick(Sender: TObject);
|
||||
procedure cxTabControl1Change(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
FCoType, FAuthority: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmTatPlanSel2: TfrmTatPlanSel2;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmTatPlanSel2.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 TfrmTatPlanSel2.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmTatPlanSel2 := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmTatPlanSel2.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatPlanSel2.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
Action := cahide;
|
||||
end;
|
||||
|
||||
procedure TfrmTatPlanSel2.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' select *,PZQty=(select count(*) from Tat_WB_Card X where X.OrderNo =A.OrderNo)');
|
||||
SQL.Add(',apqty=(select sum(WB_YarnLen) from Tat_WB_Card X where X.OrderNo =A.OrderNo)');
|
||||
sql.Add(',ZS=(select ZS from Bs_Cloth_Info X where X.C_Code =B.C_Code) ');
|
||||
sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId');
|
||||
//SQL.Add(' where isnull(A.status,''0'')=''9'' ');
|
||||
sql.add('where 1=1');
|
||||
case cxTabControl1.TabIndex of
|
||||
0:
|
||||
begin
|
||||
sql.Add('and isnull(Status,''0'') =''0'' ');
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
sql.Add('and isnull(Status,''0'') =''9'' ');
|
||||
end;
|
||||
2:
|
||||
begin
|
||||
sql.Add('and isnull(Status,''0'') =''10'' ');
|
||||
// sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
|
||||
// sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
|
||||
end;
|
||||
3:
|
||||
begin
|
||||
sql.Add('and isnull(Status,''0'') not in (''11'',''22'') ');
|
||||
end;
|
||||
end;
|
||||
sql.add('order by A.FILLTIME DESC');
|
||||
Open;
|
||||
end;
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS(ADOQueryMain, CDS_1);
|
||||
SInitCDSData(ADOQueryMain, CDS_1);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatPlanSel2.OrderNoChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS(ADOQueryMain, CDS_1);
|
||||
SInitCDSData(ADOQueryMain, CDS_1);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatPlanSel2.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ReadCxGrid('单位名称1' + Trim(FCoType), TV1, '自定义数据');
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatPlanSel2.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmTatPlanSel2.TBSaveClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid('单位名称1' + Trim(FCoType), TV1, '自定义数据');
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatPlanSel2.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
ModalResult := 1;
|
||||
end;
|
||||
|
||||
procedure TfrmTatPlanSel2.Tv1DblClick(Sender: TObject);
|
||||
begin
|
||||
ModalResult := 1;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Binary file not shown.
|
|
@ -72,7 +72,6 @@ inherited frmTatGYInPut: TfrmTatGYInPut
|
|||
Ctl3D = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
ExplicitTop = 36
|
||||
object Label2: TLabel
|
||||
Left = 848
|
||||
Top = 9
|
||||
|
|
|
|||
|
|
@ -377,7 +377,7 @@ begin
|
|||
end;
|
||||
SCSHData(ADOQueryTemp, ScrollBox1, 0);
|
||||
|
||||
// QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
|
||||
QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
|
||||
CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString);
|
||||
CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString);
|
||||
|
||||
|
|
@ -621,7 +621,7 @@ begin
|
|||
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
|
||||
end;
|
||||
FieldByName('MainId').Value := Trim(maxno);
|
||||
// FieldByName('QZF').Value := Trim(QZF.text);
|
||||
FieldByName('QZF').Value := Trim(QZF.text);
|
||||
FieldByName('CZF').Value := Trim(CZF.text);
|
||||
FieldByName('CKF').Value := Trim(CKF.text);
|
||||
|
||||
|
|
|
|||
|
|
@ -634,7 +634,7 @@ begin
|
|||
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
|
||||
end;
|
||||
FieldByName('MainId').Value := Trim(maxno);
|
||||
// FieldByName('QZF').Value := Trim(QZF.text);
|
||||
FieldByName('QZF').Value := Trim(QZF.text);
|
||||
FieldByName('CZF').Value := Trim(CZF.text);
|
||||
FieldByName('CKF').Value := Trim(CKF.text);
|
||||
RTSetsavedata(ADOQueryCmd, 'Tat_Plan_Main', ScrollBox1, 0);
|
||||
|
|
|
|||
265
E02梭织经轴仓库/U_GKManageSel.dfm
Normal file
265
E02梭织经轴仓库/U_GKManageSel.dfm
Normal file
|
|
@ -0,0 +1,265 @@
|
|||
inherited frmGKManageSel: TfrmGKManageSel
|
||||
Left = 297
|
||||
Top = 109
|
||||
Caption = #38050#25187#20449#24687#36873#25321
|
||||
ClientHeight = 523
|
||||
ClientWidth = 1461
|
||||
KeyPreview = True
|
||||
ExplicitWidth = 1477
|
||||
ExplicitHeight = 562
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 17
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1461
|
||||
Height = 38
|
||||
AutoSize = True
|
||||
ButtonHeight = 38
|
||||
ButtonWidth = 75
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Images = DataLink_WarpBeamStk.ImageList_new32
|
||||
List = True
|
||||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 3
|
||||
object ToolButton1: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36873#25321
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TBRafresh: TToolButton
|
||||
Left = 71
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 1
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TbFilter: TToolButton
|
||||
Left = 142
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 213
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 7
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid [1]
|
||||
Left = 0
|
||||
Top = 81
|
||||
Width = 1461
|
||||
Height = 442
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 76
|
||||
object Tv2: TcxGridDBTableView
|
||||
OnDblClick = Tv2DblClick
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_HZ
|
||||
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
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skCount
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Deleting = False
|
||||
OptionsData.DeletingConfirmation = False
|
||||
OptionsData.Editing = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
object Tv2Column4: TcxGridDBColumn
|
||||
Caption = #38050#31576#32534#21495
|
||||
DataBinding.FieldName = 'GKBH'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 100
|
||||
end
|
||||
object Tv2Column1: TcxGridDBColumn
|
||||
Caption = #26550#23376#32534#21495
|
||||
DataBinding.FieldName = 'JZBH'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
object Tv2Column3: TcxGridDBColumn
|
||||
Caption = #26550#23376#23618#21495
|
||||
DataBinding.FieldName = 'JZCH'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
object Tv2Column5: TcxGridDBColumn
|
||||
Caption = #31576#21495'('#40831'/2'#33521#23544')'
|
||||
DataBinding.FieldName = 'GKKH'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 124
|
||||
end
|
||||
object Tv2Column6: TcxGridDBColumn
|
||||
Caption = #38050#31576#38271#24230'CM'
|
||||
DataBinding.FieldName = 'GKLength'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
object Tv2Column10: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Note'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 100
|
||||
end
|
||||
object Tv2Column7: TcxGridDBColumn
|
||||
Caption = #24211#23384#25968#37327
|
||||
DataBinding.FieldName = 'kcqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = Tv2
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel [2]
|
||||
Left = 0
|
||||
Top = 38
|
||||
Width = 1461
|
||||
Height = 43
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 4
|
||||
ExplicitTop = 32
|
||||
object Label1: TLabel
|
||||
Left = 13
|
||||
Top = 11
|
||||
Width = 48
|
||||
Height = 17
|
||||
Caption = #38050#25187#32534#21495
|
||||
end
|
||||
object GKBH: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 83
|
||||
Top = 6
|
||||
ParentColor = True
|
||||
Properties.OnChange = MCNOPropertiesChange
|
||||
TabOrder = 0
|
||||
Width = 158
|
||||
end
|
||||
end
|
||||
inherited loadProcess: TPanel
|
||||
Left = 316
|
||||
Top = 411
|
||||
ExplicitLeft = 316
|
||||
ExplicitTop = 411
|
||||
end
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
Left = 316
|
||||
Top = 356
|
||||
ExplicitLeft = 316
|
||||
ExplicitTop = 356
|
||||
ExplicitHeight = 25
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_WarpBeamStk.ADOLink
|
||||
Left = 113
|
||||
Top = 256
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_WarpBeamStk.ADOLink
|
||||
Left = 137
|
||||
Top = 169
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_WarpBeamStk.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 459
|
||||
Top = 169
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_WarpBeamStk.ADOLink
|
||||
Parameters = <>
|
||||
Left = 357
|
||||
Top = 153
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_WarpBeamStk.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 253
|
||||
Top = 161
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 520
|
||||
Top = 264
|
||||
end
|
||||
object DS_HZ: TDataSource
|
||||
DataSet = CDS_HZ
|
||||
Left = 283
|
||||
Top = 259
|
||||
end
|
||||
object CDS_HZ: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 429
|
||||
Top = 271
|
||||
end
|
||||
object PopupMenu1: TPopupMenu
|
||||
Left = 355
|
||||
Top = 250
|
||||
object N1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N1Click
|
||||
end
|
||||
object N2: TMenuItem
|
||||
Caption = #20840#24323
|
||||
OnClick = N2Click
|
||||
end
|
||||
end
|
||||
end
|
||||
189
E02梭织经轴仓库/U_GKManageSel.pas
Normal file
189
E02梭织经轴仓库/U_GKManageSel.pas
Normal file
|
|
@ -0,0 +1,189 @@
|
|||
unit U_GKManageSel;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
|
||||
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
|
||||
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
|
||||
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
|
||||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
|
||||
dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer,
|
||||
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters;
|
||||
|
||||
type
|
||||
TfrmGKManageSel = class(TfrmBaseList)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
TbFilter: TToolButton;
|
||||
ADOQueryMain: TADOQuery;
|
||||
cxGrid2: TcxGrid;
|
||||
Tv2: TcxGridDBTableView;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
GPM_1: TcxGridPopupMenu;
|
||||
DS_HZ: TDataSource;
|
||||
CDS_HZ: TClientDataSet;
|
||||
PopupMenu1: TPopupMenu;
|
||||
N1: TMenuItem;
|
||||
N2: TMenuItem;
|
||||
Panel1: TPanel;
|
||||
Label1: TLabel;
|
||||
GKBH: TcxTextEdit;
|
||||
Tv2Column4: TcxGridDBColumn;
|
||||
Tv2Column10: TcxGridDBColumn;
|
||||
Tv2Column1: TcxGridDBColumn;
|
||||
Tv2Column3: TcxGridDBColumn;
|
||||
Tv2Column5: TcxGridDBColumn;
|
||||
Tv2Column6: TcxGridDBColumn;
|
||||
Tv2Column7: TcxGridDBColumn;
|
||||
ToolButton1: TToolButton;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure cxTabControl1Change(Sender: TObject);
|
||||
procedure N1Click(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure CustomerChange(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure MCNOPropertiesChange(Sender: TObject);
|
||||
procedure Tv2DblClick(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
|
||||
private
|
||||
{ Private declarations }
|
||||
procedure InitGrid();
|
||||
public
|
||||
fFlag: integer;
|
||||
{ Public declarations }
|
||||
RKFlag, FCYID, fmanage: string;
|
||||
end;
|
||||
|
||||
var
|
||||
frmGKManageSel: TfrmGKManageSel;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_EmployeeSel;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmGKManageSel.InitGrid();
|
||||
begin
|
||||
GKBH.SetFocus;
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' select A.*,kcqty=( select sum(IOQtyFlag*qty) from Bs_Product_IO e where e.p_code=a.gkbh and stkname=''物料'') from BS_GK A ');
|
||||
// showmessage(Sql.text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryMain, CDS_HZ);
|
||||
SInitCDSData(ADOQueryMain, CDS_HZ);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
TbFilter.Click;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGKManageSel.MCNOPropertiesChange(Sender: TObject);
|
||||
var
|
||||
sql: string;
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
sql := SGetFilters(Panel1, 1, 2);
|
||||
SDofilter(ADOQueryMain, sql);
|
||||
SCreateCDS(ADOQueryMain, CDS_HZ);
|
||||
SInitCDSData(ADOQueryMain, CDS_HZ);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGKManageSel.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmGKManageSel := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmGKManageSel.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmGKManageSel.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(Trim(Self.Caption), Tv2, '钢扣信息选择');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmGKManageSel.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ReadCxGrid(Trim(Self.Caption), Tv2, '钢扣信息选择');
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmGKManageSel.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmGKManageSel.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
if CDS_HZ.IsEmpty then
|
||||
exit;
|
||||
ModalResult := 1;
|
||||
end;
|
||||
|
||||
procedure TfrmGKManageSel.Tv2DblClick(Sender: TObject);
|
||||
begin
|
||||
ModalResult := 1;
|
||||
end;
|
||||
|
||||
procedure TfrmGKManageSel.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
InitGrid;
|
||||
end;
|
||||
|
||||
procedure TfrmGKManageSel.N1Click(Sender: TObject);
|
||||
begin
|
||||
if CDS_HZ.IsEmpty then
|
||||
exit;
|
||||
SelOKNo(CDS_HZ, True);
|
||||
end;
|
||||
|
||||
procedure TfrmGKManageSel.N2Click(Sender: TObject);
|
||||
begin
|
||||
if CDS_HZ.IsEmpty then
|
||||
exit;
|
||||
SelOKNo(CDS_HZ, False);
|
||||
end;
|
||||
|
||||
procedure TfrmGKManageSel.CustomerChange(Sender: TObject);
|
||||
begin
|
||||
TbFilter.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmGKManageSel.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
fmanage := Trim(DParameters1);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -34,8 +34,6 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
|
|||
Height = 518
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitLeft = -284
|
||||
ExplicitTop = 242
|
||||
object TV2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
|
|||
|
|
@ -215,7 +215,7 @@ implementation
|
|||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_WBTatPlanSel, U_WBSpecSel,
|
||||
U_WarpBeamInfoSel, U_WBTypeSel, U_CompanySel, U_TatGYSel, U_TatPlanSel;
|
||||
U_WarpBeamInfoSel, U_WBTypeSel, U_CompanySel, U_TatGYSel, U_TatPlanSel2;
|
||||
|
||||
{$R *.dfm} procedure TfrmTatWBCardInPut.InitCard3();
|
||||
begin
|
||||
|
|
@ -526,8 +526,8 @@ procedure TfrmTatWBCardInPut.GYNoPropertiesButtonClick(Sender: TObject; AButtonI
|
|||
begin
|
||||
inherited;
|
||||
try
|
||||
frmTatPlanSel := TfrmTatPlanSel.Create(Application);
|
||||
with frmTatPlanSel do
|
||||
frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application);
|
||||
with frmTatPlanSel2 do
|
||||
begin
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
|
|
@ -568,7 +568,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
finally
|
||||
frmTatPlanSel.Free;
|
||||
frmTatPlanSel2.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
|
|||
|
|
@ -18,7 +18,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
|
|||
Height = 408
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitTop = 461
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -262,7 +261,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
|
|||
Ctl3D = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 2
|
||||
ExplicitTop = 36
|
||||
object Label7: TLabel
|
||||
Left = 75
|
||||
Top = 342
|
||||
|
|
@ -327,7 +325,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
|
|||
Caption = #21514#25968
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 361
|
||||
Left = 569
|
||||
Top = 127
|
||||
Width = 64
|
||||
Height = 21
|
||||
|
|
@ -389,6 +387,13 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
|
|||
Height = 21
|
||||
Caption = #26159#21542#19978#27974
|
||||
end
|
||||
object Label19: TLabel
|
||||
Left = 361
|
||||
Top = 126
|
||||
Width = 64
|
||||
Height = 21
|
||||
Caption = #38050#31576#32534#21495
|
||||
end
|
||||
object WB_Code: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 113
|
||||
|
|
@ -441,7 +446,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
|
|||
object WB_YarnStripRemainder: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 431
|
||||
Top = 82
|
||||
Top = 84
|
||||
ParentColor = True
|
||||
TabOrder = 6
|
||||
Width = 200
|
||||
|
|
@ -456,11 +461,12 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
|
|||
end
|
||||
object WB_ReedNo: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 431
|
||||
Top = 121
|
||||
Left = 639
|
||||
Top = 123
|
||||
ParentColor = True
|
||||
Properties.ReadOnly = True
|
||||
TabOrder = 8
|
||||
Width = 200
|
||||
Width = 90
|
||||
end
|
||||
object WB_Width: TcxTextEdit
|
||||
Tag = 2
|
||||
|
|
@ -473,7 +479,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
|
|||
object WB_YarnLen: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 431
|
||||
Top = 161
|
||||
Top = 163
|
||||
ParentColor = True
|
||||
TabOrder = 10
|
||||
Width = 200
|
||||
|
|
@ -489,7 +495,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
|
|||
object WB_Arg_PXDS: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 431
|
||||
Top = 200
|
||||
Top = 202
|
||||
ParentColor = True
|
||||
TabOrder = 12
|
||||
Width = 200
|
||||
|
|
@ -505,7 +511,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
|
|||
object WB_YarnArrNote: TcxMemo
|
||||
Tag = 2
|
||||
Left = 764
|
||||
Top = 11
|
||||
Top = 6
|
||||
ParentFont = False
|
||||
TabOrder = 14
|
||||
Height = 264
|
||||
|
|
@ -539,6 +545,19 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
|
|||
Text = #21542
|
||||
Width = 200
|
||||
end
|
||||
object GKBH: TcxButtonEdit
|
||||
Tag = 2
|
||||
Left = 431
|
||||
Top = 124
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = GKBHPropertiesButtonClick
|
||||
TabOrder = 18
|
||||
Width = 132
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar [3]
|
||||
Tag = 1
|
||||
|
|
|
|||
|
|
@ -102,6 +102,8 @@ type
|
|||
Label18: TLabel;
|
||||
ISSizing: TcxComboBox;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Label19: TLabel;
|
||||
GKBH: TcxButtonEdit;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBAddClick(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -112,6 +114,7 @@ type
|
|||
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure btn1Click(Sender: TObject);
|
||||
procedure GYNoDblClick(Sender: TObject);
|
||||
procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
private
|
||||
{ Private declarations }
|
||||
function SaveData(): Boolean;
|
||||
|
|
@ -127,7 +130,7 @@ implementation
|
|||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_ZDYHelp, U_YarnInfoSel, U_TatClothInfoSel, U_TatGYSel,
|
||||
U_CompanySel;
|
||||
U_CompanySel, U_GKManageSel;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
|
@ -438,6 +441,24 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmWBSpecInPut.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmGKManageSel := tfrmGKManageSel.Create(Application);
|
||||
with frmGKManageSel do
|
||||
begin
|
||||
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString;
|
||||
SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmGKManageSel.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmWBSpecInPut.GYNoDblClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
|
|
|||
|
|
@ -151,8 +151,6 @@ inherited frmWBSpecList: TfrmWBSpecList
|
|||
Height = 480
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitLeft = 8
|
||||
ExplicitTop = 75
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -240,6 +238,13 @@ inherited frmWBSpecList: TfrmWBSpecList
|
|||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column13: TcxGridDBColumn
|
||||
Caption = #38050#31576#32534#21495
|
||||
DataBinding.FieldName = 'GKBH'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 95
|
||||
end
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #32463#23494
|
||||
DataBinding.FieldName = 'WB_YarnDensity'
|
||||
|
|
|
|||
|
|
@ -99,6 +99,7 @@ type
|
|||
TV2Column4: TcxGridDBColumn;
|
||||
ToolButton2: TToolButton;
|
||||
TV2Column5: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -67,7 +67,7 @@ uses
|
|||
U_TatWBOutputList_XB in 'U_TatWBOutputList_XB.pas' {frmTatWBOutputList_XB},
|
||||
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
|
||||
U_TatGYSel in '..\E00梭织通用窗体\U_TatGYSel.pas' {frmTatGYSel},
|
||||
U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel};
|
||||
U_TatPlanSel2 in '..\E00梭织通用窗体\U_TatPlanSel2.pas' {frmTatPlanSel2};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
|
|
|
|||
|
|
@ -80,7 +80,7 @@
|
|||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E02梭织经轴仓库\testDll.exe</Debugger_HostApplication>
|
||||
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\testDll.exe</Debugger_HostApplication>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
|
|
@ -284,8 +284,8 @@
|
|||
<Form>frmTatGYSel</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\E00梭织通用窗体\U_TatPlanSel.pas">
|
||||
<Form>frmTatPlanSel</Form>
|
||||
<DCCReference Include="..\E00梭织通用窗体\U_TatPlanSel2.pas">
|
||||
<Form>frmTatPlanSel2</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Debug">
|
||||
|
|
|
|||
|
|
@ -53,8 +53,8 @@
|
|||
<File Path="..\E00梭织通用窗体"/>
|
||||
<File Path="..\E00梭织通用窗体\U_TatGYSel.pas"/>
|
||||
<File Path="..\E00梭织通用窗体\U_TatGYSel.dfm"/>
|
||||
<File Path="..\E00梭织通用窗体\U_TatPlanSel.pas"/>
|
||||
<File Path="..\E00梭织通用窗体\U_TatPlanSel.dfm"/>
|
||||
<File Path="..\E00梭织通用窗体\U_TatPlanSel2.pas"/>
|
||||
<File Path="..\E00梭织通用窗体\U_TatPlanSel2.dfm"/>
|
||||
<File Path="D:\Dp10RepoV1"/>
|
||||
<File Path="..\..\..\public10"/>
|
||||
<File Path="..\..\..\public10\design"/>
|
||||
|
|
@ -125,17 +125,19 @@
|
|||
<File Path="U_WBTypeSel.dfm"/>
|
||||
</ProjectSortOrder>
|
||||
<Transactions>
|
||||
<Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
|
||||
<Transaction>2025-07-10 16:55:54.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
|
||||
<Transaction>2025-07-10 16:55:54.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
|
||||
</Transactions>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
Binary file not shown.
Loading…
Reference in New Issue
Block a user